First commit main
authorHistorical Source <49599193+historicalsource@users.noreply.github.com>
Fri, 15 Oct 2021 18:00:19 +0000 (14:00 -0400)
committerHistorical Source <49599193+historicalsource@users.noreply.github.com>
Fri, 15 Oct 2021 18:00:19 +0000 (14:00 -0400)
A07313.XX [new file with mode: 0644]
A07314.XX [new file with mode: 0644]
A07315.RBN [new file with mode: 0644]
A07316.RBN [new file with mode: 0644]
SPRNT8.DIR [new file with mode: 0644]
SPRNT8.MAP [new file with mode: 0644]

diff --git a/A07313.XX b/A07313.XX
new file mode 100644 (file)
index 0000000..dfb6b3a
--- /dev/null
+++ b/A07313.XX
@@ -0,0 +1,1134 @@
+       .TITLE SPRINT8\r
+       ;REVISED OCTOBER 19, 1976\r
+       .SBTTL EQU\r
+       .NLIST TTM\r
+       .ASECT\r
+       VLSB:   .BLKB 10        ;VERTICAL MOTION COUNTER\r
+       HLSB:   .BLKB 10\r
+       HMSB:   .BLKB 10        ;HORIZONTAL MOTION\r
+       VMSB:   .BLKB 10\r
+       ROT:    .BLKB 10        ;PICTURE ROTATION 0-27\r
+       DIR:    .BLKB 10        ;VELOCITY DIRECTIN 0-27\r
+       VEL:    .BLKB 10        ;VELOCITY DIRECTION 0-31\r
+       STAT:   .BLKB 10        ;STATUS - ON/CRASH/SKID/COLLISION\r
+       TIM:    .BLKB 10        ;PLAYER EVENT TIMER\r
+       SCORE:  .BLKB 10        ;PLAYER SCORE\r
+       ROTLSB: .BLKB 10        ;LSB OF ROTATION\r
+       P0:     .BLKB 1         ;PLAYER TABLE START ADDRESS P0-P7\r
+       P1:     .BLKB 1 \r
+       P2:     .BLKB 1\r
+       P3:     .BLKB 1\r
+       P4:     .BLKB 1\r
+       P5:     .BLKB 1\r
+       P6:     .BLKB 1\r
+       P7:     .BLKB 1\r
+       T0:     .BLKB 1         ;TEMP CELLS\r
+       T1:     .BLKB 1\r
+       T2:     .BLKB 1\r
+       T3:     .BLKB 1\r
+       T4:     .BLKB 1\r
+       T6:     .BLKB 1\r
+       T7:     .BLKB 1\r
+       CTR0:   .BLKB 1 ;SPARE TIMERS\r
+       CTR1:   .BLKB 1\r
+       FRCTR:  .BLKB 1 ;FRAME TIMER\r
+       GATIM:  .BLKB 1 ;GAME TIMER\r
+       GSTAT:  .BLKB 1 ;GAME STATUS D0:        RAT-PACK,7=ATTRACT\r
+       SCRTMP: .BLKB 30        ;SCORE TEM 136-156 FOR OUTPUT ROUTINE\r
+               .BLKB 1\r
+       HISCR:  .BLKB 1 ;HIGH SCORE FOR FLASH\r
+       T8:     .BLKB 1\r
+       T9:     .BLKB 1\r
+       T10:    .BLKB 1\r
+       T11:    .BLKB 1\r
+       INTER0: .BLKB 1 ;INTERRUPT TEMP CELLS\r
+       INTER1: .BLKB 1\r
+       INTER2: .BLKB 1\r
+       T12:    .BLKB 1\r
+       T13:    .BLKB 1\r
+       T14:    .BLKB 1\r
+       TRAKN:  .BLKB 1 ;TRACK NUMBER\r
+       HMSBT:   .BLKB 10       ;COMPACTED H POST\r
+       TIMER:  .BLKB 1\r
+       ;CRASH TIME\r
+       STKPTR  =377    ;STACK POINTER\r
+       DISP    =014000 ;PLAYFIELD RAM\r
+       POSH    =016000 ;H POS RAM\r
+       POSV    =016020 ;V POS RAM\r
+       POSD    =016040 ;DISPLAY PICT RAM\r
+       SYNC    =016017 ;V BLANK IN\r
+       CINT    =016000 ;COLLISION IN\r
+       COINLK  =016060 ;COIN LOCK OUT\r
+       CRSHON  =016401 ;CRASH\r
+       TEAM    =016405 ;TEAM COLORS\r
+       SWP0    =016001 ;SWITCH IN P0\r
+       SWP1    =016012 ;REMOTE CONTROLS\r
+       GTIME   =016011 ;GAME TIMER IN\r
+       REMCN   =016013 ;REMOTE COINS\r
+       SKIDON  =016402 ;SKID ON\r
+       STRST   =017400 ;STEERING RESET; INDY 8 TABLES\r
+       CHKPT   =22000\r
+       PFPICT  =22012\r
+       MOTOR   =017000 ;MOTOR SOUND\r
+       INTRES  =016400 ;COLLISION INTERRUPT RESET\r
+       ATGAME  =016406 ;ATTRACT\r
+       OPCTL   =16012  ; - TRACK SEL = D1\r
+       STEST   =016005 ;SELF TEST IN BIT 7\r
+       HORO    =0\r
+       VERO    =20\r
+       ROTO    =40\r
+       ;****************************************************************\r
+       .PAGE\r
+       .=26000\r
+       ;******************MAIN PROGRAM *********************************\r
+       .SBTTL MAIN PROGRAM INITIALIZE\r
+INIT:  SEI     ;INITIALIZE - INTERRUPT OFF\r
+       LDX I,377       ;CLEAR RAM\r
+1$:    CLR X,0\r
+       DEX\r
+       BNE 1$\r
+       LDS I,STKPTR\r
+       JSR E,INITSB\r
+       JSR E,RSTAL     ;RESET ALL CARS\r
+INIT2: SEI\r
+       LDX I,PFPICT+736        ;PLAYFIELD OUT\r
+       JSR E,PFADJ     ;STEP TO PROPER P.F.\r
+       LDS I,DISP+1777 ;S POINTS TO OUTPUT RAM + X TO ROM\r
+       LDAB I,100      ;B IS & T0 ARE COUNTERS\r
+       STAB D,INTER2\r
+2$:    LDAB I,010\r
+       STAB D,T1\r
+5$:    LDAA E,SYNC     ;WAIT FOR V BLANK\r
+       BPL 5$\r
+6$:    LDAA E,SYNC\r
+       BMI 6$\r
+3$:    LDAA I,01\r
+       STAA D,T2\r
+       LDAA X,0                ;GET NEXT BYTE FOR FIELD\r
+       STAA D,T3\r
+4$:    LDAA D,T3\r
+       TAB\r
+       BITA I,020      ;CHECK VECTOR BIT\r
+       BEQ 7$                  ;CHANGE TO A BRA TO DISPLAY ARROWS\r
+       CLRA\r
+       BRA 8$\r
+7$:    ANDA I,300\r
+       ORAA I,50\r
+       LSRB    ;FORMAT PLAYFIELD FOR ASCII CHARACTER 28-30\r
+       LSRB\r
+       LSRB\r
+       LSRB\r
+       ANDB I,03\r
+       ABA\r
+8$:    ASL E,T3\r
+       ASL E,T3\r
+       ASL E,T3\r
+       ASL E,T3\r
+       PSHA                    ;DEPOSIT ONTO SCREEN\r
+       DEC E,T2                ;TWO BYTE COUNTER\r
+       BEQ 4$\r
+       DEX\r
+       DEC E,T1\r
+       BNE 3$                  ;OUTPUT 16 LOC EACH FRAME\r
+       STX D,INTER0\r
+       STS D,T10\r
+       LDS I,377\r
+       JSR E,SWITCH            ;CHECK SWITCHES WHILE OUTPUTTING SCREEN\r
+       LDS D,T10\r
+       LDX D,INTER0\r
+       DEC E,INTER2\r
+       BNE 2$\r
+       LDAA D,GSTAT\r
+       ASLA\r
+       BPL MNLOOP\r
+       LDS I,377\r
+       JSR E,RSTAL\r
+       JSR E,TNSMSG\r
+       JMP E,PROC\r
+       .PAGE\r
+       .SBTTL MAIN LOOP, TIMERS, TRACK SELECT\r
+MNLOOP:        LDS I,377\r
+       LDAA E,STEST    ;CHECK TEST SWITCH\r
+       BMI 1$\r
+       JSR E,TEST\r
+1$:    LDAA D,GSTAT    ;CHECK FIRST COIN FLAG\r
+       ASLA\r
+       BPL 5$\r
+2$:    LDAA E,OPCTL    ;CHECK NEW TRACK SELECT SWITCH\r
+       LSRA\r
+       LSRA\r
+       BCS 5$\r
+       INC E,TRAKN             ;INCREMENT TRACK NUMBER\r
+       JMP E,INIT2\r
+5$:    DEC E, FRCTR            ;NEXT FRAME\r
+       LDAA D,FRCTR\r
+       BEQ 4$\r
+       BITA I,077\r
+       BNE EVFR        ;1 SEC TIMER\r
+       LDAA D,GSTAT\r
+       BEQ EVFR\r
+       BRA TSECTIM\r
+4$:    LDAA D,GATIM    ;CHECK GAME TIMER\r
+       BEQ FRSEC\r
+       DEC E,GATIM\r
+       BNE FRSEC\r
+ENDGAME: JSR E,INITSB  ;RESET STATUS\r
+       BRA EVFR\r
+FRSEC: TST E,GSTAT     ;EVERY 4 SECONDS UPDATE TIMER\r
+       BNE TSECTIM\r
+       INC E,TRAKN     ;STEP TOO NEW TRACK IN ATTRACT\r
+       JMP E,INIT2\r
+TSECTIM:       BMI EVFR\r
+       DEC E,CTR0      ;CHECK FIRST COIN COUNTER\r
+       LDAA D,CTR0\r
+       ANDA I,017\r
+       BEQ STGAM\r
+       CMPA I,10       \r
+       BEQ TNSCO\r
+       BRA EVFR\r
+STGAM: LDAA I,200      ;START GAME\r
+       STAA D,GSTAT\r
+       LDAA E,GTIME    ;GAME LENGTH 1 MIN TO 3 1/2 MINUTE\r
+       COMA\r
+       ASLA\r
+       ADDA I,16\r
+       STAA D,GATIM\r
+       JSR E,RSTAL     ;RESET CARS\r
+TNSCO: JMP E,INIT2\r
+       .PAGE\r
+       .SBTTL PLAYER TIMERS, SKID, CRASH, GAS, BRAKE\r
+EVFR:  LDX I,MOTOR\r
+       STX D,T12\r
+       LDX I,00        ;TAKE CARE OF EACH PLAYER VELOCITY EVERY FRAME\r
+       CLR E,T14\r
+       LDAA D,TIMER\r
+       BEQ EVFR1\r
+       DEC E,TIMER\r
+       LDAA I,02               ;SET CRASH BIT\r
+       STAA D,T14\r
+EVFR1: LDAB X,STAT\r
+       BPL 11$         ;BRANCH IF A DRONE!!\r
+       ANDB I,375      ;DON'T PUT IN CRASH BITS\r
+       ORAB D,T14\r
+       STAB D,T14      ;COLLECT SKID & CRASH FLAGS IN T2\r
+       LDAB X,STAT\r
+11$:\r
+1$:    STX D,T6                ;SAVE CAR NUMBER\r
+       TST X,STAT      ;IS IT A DRONE?\r
+       BPL 10$         ;YES, NO MOTOR\r
+       LDAA X,VEL\r
+       CMPA I,4*8.     ;LOW MOTOR FOR LOW SPEED\r
+       BHI 12$\r
+       LDAA I,1\r
+       LDX D,T12\r
+       STAA X,0        ;TURN OFF MOTOR WHEN STOPPED\r
+       BRA 10$\r
+12$:\r
+       LDX D,T12\r
+       COMB\r
+       STAB X,0                ;STORES MOTOR FREQUENCY, HIGH OR LOW FREQ\r
+       COMB                    ;HIGH IF GAS OR ELSE LOW\r
+;\r
+;ACCELERATE OR DE-ACCELERATE\r
+;\r
+10$:\r
+       LDX D,T6                ;GET CAR NUMBER\r
+       LDAA D,FRCTR\r
+       ANDA I,07               ;UPDATE ONCE PER 8 FRAMES\r
+       BNE EVFR2\r
+       LDAA X,VEL              ;GET CAR SPEED\r
+       LSRA\r
+       LSRA                    ;0-31\r
+       LSRA\r
+       LSRA                    ;0-16\r
+       LDX I,ACTAB             ;GUESS ACCELERATING\r
+       LSRB                    ;TEST ACCELERATOR SWITCH\r
+       BCS 2$                  ;RIGHT\r
+       LDX I,DACTAB            ;WRONG, DEACCELERATE\r
+2$:\r
+       JSR E,ADDOF             ;ADD VELOCITY TO TABLE PTR.\r
+       LDAA X,0                        ;LOAD BYTE OF VECTOR\r
+       BITB I,20               ;TEST IF SECOND GEAR\r
+       BNE 20$                 ;YES\r
+       LSRA\r
+       LSRA                    ;GET 1ST GEAR ACCELERATION\r
+       LSRA\r
+       LSRA\r
+20$:   ANDA I,17               ;MASK TO LOW NIBBLE\r
+       BITA I,10               ;IS NIBBLE NEGATIVE?\r
+       BEQ 21$                 ;NO, POSITIVE\r
+       ORAA I,360              ;EXTEND SIGN\r
+21$:   LDX D,T6                ;GET CAR NUMBER\r
+       ASLA                    ;DOUBLE ACCELERATION\r
+22$:\r
+       ADDA X,VEL              ;ADD TO OLD VELOCITY\r
+       STAA X,VEL\r
+EVFR2: LDAA X,VEL      ;GET CURRENT SPEED\r
+       LDAB I,234              ;CRASH C, CRASH DISABLE\r
+       CMPA I,10.*8.           ;TEST VEL\r
+       BLS 23$\r
+       LDAB I,226              ;CRASH C, CRASH W\r
+23$:\r
+       LDAA D,FRCTR\r
+       LSRA\r
+       BCS 24$\r
+       ORAB I,100              ;CLEAR SKIDS ON EVEN FRAMES ONLY\r
+24$:   ANDB X,STAT             ;CHANGE STATUS\r
+       STAB X,STAT\r
+;\r
+;UPDATE DIRECTION\r
+;\r
+8$:    LDAB I,3        ;GET THE VELOCITY\r
+       TST X,VEL       ;TEST HIGH BIT OF VELOCITY\r
+       BPL 9$          ;LOW VEL\r
+       LDAB I,2        ;HIGH VELOCITY\r
+9$:    STAB D,T3       ;SAVE CONSTANT\r
+       LDAB X,ROTLSB   ;GET ROTATION\r
+       ANDB I,370      ;MASK TO HIGH 5 BITS\r
+       LDAA X,DIR\r
+       ANDA I,370      ;MASK DIRECTION TO HIGH 5 BITS\r
+       SBA             ;SUB ROTATION FROM DRECTION\r
+       BEQ CRASH               ;NO CHANGE NEEDED\r
+       BMI 15$         ;TEST IF SKIDDING LEFT\r
+       NEG E,T3        ;TURN RIGHT\r
+       CMPA I,20       ;SKIDDING TURN?\r
+       BMI 18$         ;NO SKID\r
+       BPL 17$         ;MAKE SKID NOISE\r
+15$:   CMPA I,370\r
+       BPL 18$         ;NO SKID\r
+17$:   LDAA X,STAT\r
+       ORAA I,100      ;GET SKID BIT\r
+       STAA X,STAT\r
+18$:   LDAB X,DIR\r
+       ADDB D,T3       ;ADD IN +/- CHANGE\r
+       LDAA D,T3\r
+       JSR E,MOD28     ;ADJUST B MOD 28\r
+       STAB X,DIR\r
+CRASH: LDAA X,STAT     ;CRASH SEQUENCE\r
+       BITA I,02       ;CHECK FOR NEW CRASH\r
+       BEQ DRNCR\r
+       BITA I,10       ;CRASHES DISABLED?\r
+       BNE DRNCR       ;YES\r
+       ORAA I,10\r
+       STAA X,STAT     ;DISABLE FUTURE CRASHES\r
+       CLR X,VEL       ;ZERO VELOCITY\r
+       LDAA I,32.\r
+       STAA D,TIMER    ;CRASH SOUND FOR 1/4 SECOND\r
+       .PAGE\r
+       .SBTTL DRONE CARS, OUT OF BOUNDS, COMPACTED HMSB, AUDIO\r
+DRNCR: TST E,GSTAT     ;CHECK FOR ATTRACT MODE\r
+       BPL 1$\r
+2$:    LDAB X,STAT\r
+       BMI 1$  ;CHECK IF PLAYER ON\r
+       JSR E,GETDR     ;NOPE CONTINUE - GET DIRECTION CAR SHOULD GO\r
+       LDAB X,ROTLSB   ;CHECK IF DIRECTION CHANGE REQUIRED\r
+       ANDB I,374\r
+       SBA\r
+       LDAB I,3        ;STEERING RATE\r
+       TSTA\r
+       BNE 3$\r
+       INC X,STAT      ;GAS ON FLAG - CAR GOING STRAIGHT\r
+       BRA 1$\r
+3$:    BPL 4$  ;TURN REQUIRED\r
+       NEGB\r
+4$:    JSR E,CW\r
+1$:    TST X,STAT\r
+       BPL 6$\r
+       LDAA X,HMSBT    ;OUT OF BOUNDS CHECK\r
+       TAB\r
+       ADDB I,4\r
+       ANDB I,370\r
+       BNE 5$  ;OUT OF BOUNDS H\r
+       ASL X,HMSB\r
+       CLR X,VEL               ;RESET VELOCITY\r
+5$:    LDAA X,VMSB\r
+       TAB\r
+       SUBB I,6\r
+       ANDB I,360\r
+       BNE 6$\r
+       CLR X,VEL       ;RESET VELOCITY\r
+       ADDA X,VMSB     ;V OUT OF BOUND\r
+       SUBA I,014\r
+       STAA X,VMSB\r
+6$:    LDAA X,ROT      ;UPDATE HMSB TEMP\r
+       ASLA\r
+       LDAA X,HMSB\r
+       RORA\r
+       STAA  X,HMSBT\r
+       INC E,T13       ;INCREMENT MOTOR SOUND POINTER\r
+       INX\r
+       CPX I,010\r
+       BEQ AUDOT\r
+       JMP E,EVFR1     ;DO NEXT PLAYER\r
+AUDOT: LDAA D,T14      ;OUTPUT CRASH & SCREECH\r
+       TAB\r
+       ROLA\r
+       ROLA\r
+       ROLA\r
+       COMA\r
+       STAA E,SKIDON\r
+       LSRB\r
+       STAB E,CRSHON\r
+       JSR E,SWITCH\r
+       .PAGE\r
+       .SBTTL VERT OUT & SCORE FLASH\r
+VBLANK:        LDX I,8.                ;SETUP FOR V BLANK\r
+       LDAB I,3\r
+       STAB E,TEAM     ;JUST A CONVENIENT PLACE TO KEEP TEAM OFF\r
+2$:    LDAA E,SYNC     ;WAIT FOR V BLANK\r
+       BPL 2$\r
+1$:    LDAA E,SYNC\r
+       BMI 1$\r
+       SEI\r
+;\r
+;OUTPUT CAR POSITIONS TO SHELLS IF A DRONE\r
+;\r
+OUTPUT:\r
+2$:    STX D,T0                ;SAVE NUMBER\r
+       LDAA X,ROT-1\r
+       PSHA\r
+       LDAA X,VMSB-1           ;SAVE COORDS ON STACK\r
+       PSHA\r
+       LDAA X,HMSB-1\r
+       PSHA\r
+       LDAB X,STAT-1           ;PLAYER OR DRONE\r
+       BITB I,220              ;PLAYER\r
+       BNE 6$                  ;PLAYER OR EX-PLAYER\r
+       LDAA D,T1               ;GET CAR NUMBER\r
+       LDX I,POSH-1            ;POINT AT CAR OUTPUTS\r
+       JSR E,ADDOF\r
+       PULA\r
+       STAA X,HORO+10          ;H POS\r
+       PULA\r
+       STAA X,VERO+10          ;STORE V POS\r
+       PULA\r
+       STAA X,ROTO+10          ;STORE ROT\r
+       LDAB I,0\r
+       STAB X,VERO             ;REMOVE CAR\r
+       STAB X,HORO\r
+       STAB X,ROTO     \r
+       BRA 9$\r
+6$:\r
+       LDAA D,T1               ;GET CAR NUMBER\r
+       LDX I,POSH-1            ;OUTPUT ADDS\r
+       JSR E,ADDOF\r
+       PULA\r
+       STAA X,HORO             ;H POS\r
+       PULA\r
+       STAA X,VERO             ;UPOS\r
+       PULA\r
+       STAA X,ROTO             ;ROTATION\r
+       LDAB I,0\r
+       STAB X,VERO+10          ;REMOVE DRONE CAR\r
+       STAB X,HORO+10\r
+       STAB X,ROTO+10\r
+9$:    LDX D,T0                ;GET CAR NUMBER\r
+       DEX\r
+       BNE 2$                  ;NOT DONE YET\r
+       LDS I,SCRTMP-1\r
+;\r
+;OUTPUT SCORES\r
+;HIGH SCORE BYTES\r
+;\r
+       .IRP X,<151,167,500,576,1751,1766,1400,1476>\r
+       PULA\r
+       STAA E,DISP+X\r
+       .ENDM\r
+;LOW SCORE BYTES\r
+       .IRP X,<150,166,540,536,1752,1767,1440,1436>\r
+       PULA\r
+       STAA E,DISP+X\r
+       .ENDM\r
+;BLANKS OR END OF DRONE WORD\r
+       .IRP X,<147,165,600,476,1753,1770,1500,1376>\r
+       PULA\r
+       STAA E,DISP+X\r
+       .ENDM\r
+TSECOUT:       LDAA D,GSTAT    ;TENSEC COUNT\r
+       ASLA\r
+       BPL SCRSET\r
+       LDAA D,CTR0     ;OUTPUT TIME\r
+       CMPA I,8.               ;COUNT FROM 8\r
+       BHI SCRSET\r
+       ORAA I,060\r
+       STAA E,15045\r
+       ORAA I,100\r
+       STAA E,14732\r
+SCRSET:        LDS I,SCRTBL-1          ;SET ROTATINS OF SCORE\r
+       LDX I,8.                        ;CAR NUMBER\r
+1$:    PULA                    ;GET ROTATION CODE\r
+       STAA X,SCRTMP-1\r
+       STAA X,SCRTMP+10-1      ;THREE BYTES OF INFO.\r
+       STAA X,SCRTMP+20-1\r
+       DEX\r
+       BNE 1$                  ;NOT DONE YET.\r
+SCRFRM:        LDS I,SCORE-1\r
+       LDX I,0                 ;FORMAT SCORE FOR OUTPUT\r
+2$:    PULA                    ;GET THE SCORE\r
+       LDAB I,220\r
+       BITB X,STAT\r
+       BNE 3$                  ;NOT A DRONE\r
+       LDAB I,54-60            ;TR CODE\r
+       BRA 4$                  ;PUT ON SCREEN\r
+3$:    TAB\r
+       LSRB\r
+       LSRB                    ;GET HIGH BYTE OF SCORE\r
+       LSRB\r
+       LSRB\r
+4$:    ADDB X,SCRTMP           ;ADD TO ROTATION\r
+       STAB X,SCRTMP\r
+       ANDA I,017              ;LOW BYTE OF SCORE\r
+       LDAB I,220\r
+       BITB X,STAT\r
+       BNE 5$                  ;NOT A DRONE\r
+       LDAA I,55-60            ;AF CODE\r
+5$:    ADDA X,SCRTMP+10\r
+       STAA X,SCRTMP+10\r
+       LDAA I,-60              ;BLANK CODE\r
+       LDAB I,220\r
+       BITB X,STAT\r
+       BNE 6$                  ;NOT A DRONE\r
+       LDAA I,56-60            ;FIC CODE\r
+6$:    ADDA X,SCRTMP+20\r
+       STAA X,SCRTMP+20\r
+       INX\r
+       CPX I,10\r
+       BNE 2$\r
+SCRFLH:        LDAA I,60       ;FLASH LEADING PLAYERS SCORE\r
+       BITA D,FRCTR    ;EVERY 32 FRAMES\r
+       BNE PROC\r
+       LDX D,HISCR-1\r
+       CLR X,SCRTMP\r
+       CLR X,SCRTMP+10\r
+       CLR     X,SCRTMP+20\r
+       .PAGE\r
+       .SBTTL INTERRUPT ENABLE, SWITCH CHECK, STEP, SCORE, PLAYER COLLISION\r
+PROC:  LDS I,STKPTR    ;PROCESSING STARTS\r
+       LDAA D,GSTAT\r
+3$:    ROLA    ;ENABLE GAME\r
+       ROLA\r
+       STAA E,INTRES\r
+       CLI\r
+       COMA\r
+       STAA E,ATGAME\r
+       JSR E,SWITCH\r
+       LDAA D,FRCTR\r
+       LSRA\r
+       BCC 1$\r
+       JSR E,COLIS     ;CHECK COLLISION OF CAR TO CAR\r
+       BRA 2$  ;EVERY OTHER FRAME\r
+1$:    JSR E,SCR       ;CHECK IF SCORE UPDATE\r
+2$:    JSR E,STEP      ;STEP EACH OF THE EIGHT PLAYERS\r
+       JMP E,MNLOOP\r
+\f  .PAGE\r
+       .SBTTL INDY8 SUBROUTINES***************************************\r
+       .SBTTL SWITCH CHECK, PLAYER COLLISION, SCORE, RESET CAR\r
+SWITCH:        LDX I,0 ;POLLS SWITCHES\r
+       STX D,T8\r
+       LDX I,SWP0\r
+NXSW1: LDAA X,0\r
+       STX D,T6\r
+       LDX D,T8\r
+       LSRA\r
+       STAA D,T4\r
+       BCS STEER       ;CHECK COIN\r
+       INC X,TIM       ;COIN IN BUMP  TIMER\r
+       LDAB X,TIM\r
+       CMPB I,003      ;CHECK FOR 2 FRAMES\r
+       BNE NXSW\r
+       SEI\r
+       LDAB I,220      ;REAL COIN\r
+       STAB X,STAT     ;SET COIN ON FLAG\r
+       JSR E,RSTCAR\r
+       TST E,GSTAT\r
+       BNE 1$\r
+       LDAB I,100\r
+       STAB D,GSTAT    ;SET COIN RECEIVED FLAG BIT 7\r
+       LDAA I,11       ;SET FIRST COIN TIMER\r
+       STAA D,CTR0     ;LENGTH OF TIME IN FIRST COIN\r
+       STAA D,FRCTR    ;MODE PRIOR TO GAME START\r
+1$:    LDX D,T6\r
+       CLR X,57        ;UNLOCK COIN\r
+NXSW:  LDX D,T6\r
+       INC E,T9\r
+       INX\r
+       CPX I,SWP0+10\r
+       BNE NXSW1\r
+       CLR E,STRST     ;RESET STEERING FLAGS\r
+       RTS\r
+STEER: LDAB X,STAT\r
+       BMI 2$\r
+       CLR X,TIM       ;ZEROES TIME ON DRONES\r
+       BRA NXSW\r
+2$:    LDAA D,T4\r
+       LDAB D,GSTAT\r
+       BPL NXSW\r
+       LSR E,T4\r
+       LSR E,T4\r
+       LDAB X,STAT\r
+       BITB I,4        ;CAR TO CAR COLLISION?\r
+       BEQ 22$         ;NO, ALWAYS STEER\r
+       LDAB D,FRCTR\r
+       ANDB I,1        ;ONLY EVERY 2 FRAMES\r
+       BEQ 23$         ;NOW\r
+       CLC             ;LATER\r
+22$:\r
+       BCC ACCEL\r
+23$:   LDAB I,2        ;STEERING RATE\r
+       LSRA\r
+       BCC 1$          ;CLOCKWISE\r
+       NEGB            ;COUNTER-CLOCKWISE\r
+1$:    JSR E,CW        ;UPDATE ROTATION\r
+ACCEL: LDAA D,T4\r
+       LSRA\r
+       BCS SHIFT\r
+       LDAB X,STAT\r
+       ORAB I,01\r
+       STAB X,STAT\r
+SHIFT: LSRA                    ;TEST GEAR SHIFT BIT\r
+       BCC SHFTLW      ;LOW GEAR\r
+       LDAB I,40       ;GEAR BIT\r
+       ORAB X,STAT\r
+       STAB X,STAT     ;SET IN CAR STATUS\r
+       BRA NXSW\r
+SHFTLW:        LDAB X,STAT\r
+       ANDB I,337      ;CLEAR HIGH GEAR BIT\r
+       STAB X,STAT\r
+       BRA NXSW\r
+COLIS: LDX I,8.        ;CHECK COLLISION OF 8 CARS\r
+       CLR E,T8\r
+1$:    LDAA X,STAT-1\r
+       ANDA I,373              ;CLEAR CAR COLLISION BIT\r
+       STAA X,STAT-1\r
+       DEX\r
+       BNE 1$                  ;DO ALL 8 CARS\r
+       LDX I,7\r
+COLIS1:\r
+       LDAA X,VMSB\r
+       LDAB X,HMSBT\r
+       STAB D,T0\r
+       STAA D,T1\r
+       CLRA\r
+       STX D,T2\r
+1$:    LDAB D,T0\r
+       SUBB X,HMSBT-1  ;CHECK H & THEN V OVERLAP\r
+       BPL 10$\r
+       NEGB\r
+10$:   CMPB I,8.       ;TEST IF TOO CLOSE X\r
+       BHI 3$\r
+       LDAB D,T1\r
+       SUBB X,VMSB-1\r
+       BPL 11$\r
+       NEGB\r
+11$:   CMPB I,8.       ;TEST IF TOO CLOSE Y\r
+       BHI 3$\r
+       INCA    ;MATCH COUNT IN A\r
+       STX D,T6\r
+       LDAB D,T7\r
+       DECB\r
+       PSHB    ;STACK HAS X OF OTHER UNIT\r
+3$:    DEX\r
+       BNE 1$\r
+       TSTA\r
+       BEQ NXTCOL      ;NO COLLISION\r
+       LDX D,T2\r
+5$:    LDAB X,STAT\r
+       BPL 6$  ;ONLY ENABLE SKID ON ACTIVE CARS\r
+       BITB I,12       ;TEST IF ALREADY CRASHING\r
+       BNE 6$\r
+       ORAB I,104      ;SET SKID FLAG\r
+       STAB X,STAT\r
+6$:    DECA\r
+       BMI NXTCOL\r
+       PULB    ;GET OTHER CAR (S)\r
+       STAB D,T9\r
+       LDX D,T8\r
+       BRA 5$\r
+NXTCOL:        LDX D,T2        ;STEP TO NEXT PLAYER\r
+       DEX\r
+       BNE COLIS1\r
+       RTS\r
+SCR:   LDX I,10        ;CHECK IF ANY OF EIGHT PLAYERS SCORED\r
+1$:    TST X,STAT-1    ;CHECK IF PLAYER ON\r
+       BPL 55$\r
+       LDAA X,VMSB-1   ;GET VERITICAL POSITION\r
+       ANDA I,360      ;MASK TO HIGH 4 BITS\r
+       LDAB X,HMSBT-1  ;HORIZONTAL POSITION\r
+       LSRB\r
+       LSRB\r
+       LSRB            ;IN LOW NIBBLE\r
+       LSRB\r
+       ABA             ;ADD TO FOR COMPOSITE X,Y\r
+       STAA D,T14      ;SAME RESULT\r
+       LDAA X,SCORE-1\r
+       ANDA I,17       ;USE SCORE AS INDEX TO FIND\r
+       CMPA I,4\r
+       BLS  10$\r
+       SUBA I,5        ;MOD 5 ON THE INDEX\r
+10$:\r
+       ASLA\r
+       ASLA            ;TIMES 4\r
+       STX D,T0\r
+       LDX I,CHKPT\r
+       JSR E,PFADJ     ;STEP TO PROPER PF NO\r
+       JSR E,ADDOF\r
+       LDAB I,4        ;LOOP COUNTER\r
+2$:    LDAA X,0        ;GET NEXT CHECKPOINT\r
+       CMPA D,T14      ;ARE WE THERE?\r
+       BEQ 3$          ;YES\r
+       INX\r
+       DECB            ;DOWN LOOP COUNTER\r
+       BNE 2$\r
+       BEQ 5$          ;NO SCORE HERE\r
+3$:\r
+       LDX D,T0        ;RESTORE INDEX\r
+       LDAA X,SCORE-1\r
+       ADDA I,01\r
+       DAA\r
+       TAB\r
+       STAB X,SCORE-1\r
+       CLR E,HISCR-1   ;CHECK HIGH SCORE\r
+       STX D,T2\r
+       LDX D,HISCR-1\r
+       LDAB X,SCORE    ;CHECK IF NEW HIGH SCORE\r
+       LDX D,T2\r
+       CBA\r
+       BLS 4$  ;YES NEW SCORE SET POINTER\r
+       DEX     ;GET THE TRUE CAR NUMBER\r
+       STX D,HISCR-1\r
+4$:    CMPA I,231      ;SCORE=99\r
+       BNE 5$\r
+       JMP E,ENDGAME\r
+5$:    LDX D,T0        ;RESTORE CAR NUMBER\r
+55$:   DEX\r
+       BNE 1$          ;NOT DONE YET\r
+6$:    RTS\r
+RSTCAR:        STX D,T0        ;RESET CAR POSITION & SCORE\r
+       LDAA I,330      ;X POINTS TO PLAYER\r
+       STAA X,HMSB     ;SET HPOS & DIR\r
+       LDAA I,270\r
+       STAA X,ROT\r
+       LDAA    I,21.*8.        ;SET THE INITIAL ROTATION\r
+       STAA X,ROTLSB\r
+       LDAA I,36\r
+       CLR X,TIM\r
+       CLR X,VEL\r
+1$:    ADDA I,012      ;DELTA VPOS\r
+       DEC E,T1\r
+       BPL 1$\r
+       STAA X,VMSB\r
+       RTS\r
+       .PAGE\r
+       .SBTTL ROTATE CAR, STEP CAR, DRONE CAR DIRECTION\r
+CW:    \r
+       TBA\r
+       ADDB X,ROTLSB\r
+       JSR E,MOD28     ;ADJUST B MOD 28\r
+       STAB X,ROTLSB\r
+       STX D,T0\r
+       LDX I,CWT       ;LOAD POINTER TO ROTATION TABLE\r
+       TBA\r
+       LSRA\r
+       LSRA\r
+       LSRA\r
+       JSR E,ADDOF     ;ADD A TO X\r
+       LDAA X,0\r
+       LDX D,T0\r
+       LDAB X,ROT\r
+       ANDB I,200      ;SAVE MSB OF HORIZONTAL\r
+       ABA\r
+       STAA X,ROT\r
+       RTS\r
+STEP:  LDX I,0 ;STEP EIGHT OBJECTS\r
+STEP2: TST E,GSTAT\r
+       BMI 1$          ;BRANCH IF PLAYING\r
+       RTS\r
+1$:    STX D,T0\r
+       LDAB X,VEL\r
+       LSRB\r
+       LSRB            ;VEL/8\r
+       LSRB\r
+       TST X,STAT\r
+       BMI 2$          ;BRANCH IF NOT ALONE\r
+       CMPB I,9.\r
+       BLS 10$         ;TOO SLOW TO SHIFT\r
+       LDAA I,40\r
+       ORAA X,STAT     ;REQUEST HIGH GEAR\r
+       STAA X,STAT\r
+10$:\r
+       LDX I,DRSPD\r
+       LDAA D,T1\r
+       JSR E,ADDOF     ;POINT AT SPEED TABLE\r
+       CMPB X,0\r
+       BLS 3$  ;SET MAXIMUM SPEED\r
+       LDAB X,0\r
+3$:    LDX D,T0\r
+2$:    LDAA X,DIR      ;SET CARS AT DIFFERENT SPEED DIR IS HIGH 5 BITS OF ISOLATION\r
+       LSRA\r
+       LSRA            ;GET 5 BITS OF DIRECTION\r
+       LSRA\r
+       ANDA I,37\r
+       TSTB\r
+       BNE 55$\r
+       JMP E,STPNX     ;CAR ISN'T READY\r
+55$:\r
+       CMPB I,20\r
+       BMI 5$  ;VELOCITY SET FOR 0-15\r
+       LSRB    ;FOR VEL GREATER THAN 16-DIVIDE BY 2\r
+5$:    LDX I,HOFF      ;ADD A TO H OFFSET\r
+       JSR E,ADDOF\r
+       LDAA X,0\r
+       STAA D,T10      ;HORIZONTAL POSITION\r
+       LDAA X,VOFF-HOFF\r
+       STAA D,T11      ;VERTICAL POSITION\r
+       LDX I,0\r
+       STX D,T2        ;CLEAR T2,3,6,7\r
+       STX D,T6\r
+       TST E,T10\r
+       BPL 8$\r
+       COM E,T2        ;SET T2=-1\r
+\r
+8$:    TST E,T11\r
+       BPL 6$\r
+       COM E,T6        ;SET T6=-1\r
+6$:    LSRB            ;SHIFT IN BIT OF VELOCITY\r
+       BCC 7$  ;MULTIPLY LOOP\r
+       LDAA D,T10      ;GET HPOS\r
+       ADDA D,T3       ;MULTIPLY IT\r
+       STAA D,T3\r
+       LDAA D,T11      ;GET VPOS\r
+       ADDA D,T7       ;MULTIPLY IT\r
+       STAA D,T7       ;H OFFSET IN 3-V IN 7\r
+7$:    ASL E,T10\r
+       ASL E,T11\r
+       TSTB            ;DONE?\r
+       BNE 6$\r
+       LDX D,T0        ;MPY DONE RESTORE X\r
+       TST X,VEL       ;CHECK IF VEL >16\r
+       BPL 4$\r
+       ASL E,T3        ;MULTIPLY RESULT BY 2\r
+       ROL E,T2\r
+       ASL E,T7\r
+       ROL E,T6\r
+4$:    ASL E,T3        ;MULTIPLY OFFSET BY 2\r
+       ROL E,T2\r
+       LDAA X,VLSB\r
+       ADDA D,T7       ;ADD POSITION CHANGE TO V AND H POSITIONS\r
+       STAA X,VLSB\r
+       LDAA X,VMSB\r
+       ADCA D,T6\r
+       STAA X,VMSB\r
+       LDAA X,HLSB\r
+       ADDA D,T3\r
+       STAA X,HLSB\r
+       LDAA D,T2\r
+       TAB\r
+       ADCA X,HMSB\r
+       STAA X,HMSB\r
+       BCC 9$\r
+       COMB\r
+9$:    ANDB I,200\r
+       EORB X,ROT      ;HANDLE THE TURKEY 9TH HORIZONTAL BIT IN ROTATION WORD\r
+       STAB X,ROT\r
+STPNX: INX\r
+       CPX I,010\r
+       BNE 1$\r
+       RTS\r
+1$:    JMP E,STEP2\r
+GETDR: LDAB X,ROT      ;GET DIRECTION DRONE CAR SHOULD BE GOING\r
+       ASLB\r
+       LDAB X,HMSB\r
+       RORB\r
+       ADDB I,4        ;X POINTS TO CAR - T0-5 USED\r
+       COMB    ;GET H POS, AROT TO GET CENTER OF\r
+       LSRB    ;CAR COMPLIMENT DIVIDE BY 16\r
+       LSRB\r
+       LSRB\r
+       STAB D,T2\r
+       LSRB    ;T2 HAS LSB OF PICTURE\r
+       LDAA X,VMSB\r
+       SUBA I,26       ;V OFFSET TWIDGE\r
+       STX D,T8\r
+       LDX I,PFPICT-1\r
+       JSR E,PFADJ\r
+       STX D,T0        ;T0,T1 ARE THE PLAYFIELD POINTER\r
+       ASLA\r
+       BCC 1$\r
+       INC E,T0\r
+1$:    ANDA I,360      ;ADD VERTICAL IN - 5 BITS TO 4 BITS OF H\r
+       ABA\r
+       ADDA D,T1\r
+       STAA D,T1       ;INDEX INTO PLAYFIELD TABLE\r
+       BCC 2$\r
+       INC E,T0\r
+2$:    LDX D,T0\r
+       LDAA X,0        ;GET DIRECTION BYTE FROM ROM\r
+       LSR E,T2        ;CHECK LSB OF HORIZ POS\r
+       BCC 3$\r
+       LSRA\r
+       LSRA            ;USE HIGH BYTE FOR DIRECTION\r
+       LSRA\r
+       LSRA\r
+3$:    LSRA            ;ELIMINATE THE VECTOR BIT\r
+       LDX I,STPDR\r
+       ANDA I,07\r
+       JSR E,ADDOF\r
+       LDAA X,0        ;GET BYTE FROM DIRECTIN TABLE\r
+       LDX D,T8        ;A HAS NEW DIR RTS\r
+       RTS\r
+       .PAGE\r
+       .SBTTL COLLISION INTERRUPT,TEN SEC MESSAGE, MESSAGE OUT, PLAYER TO WALL\r
+COLINT:        LDAA E,CINT     ;COLLISION INTERRUPT\r
+       CLR E,INTRES\r
+       TAB\r
+       ANDA I,07       ;MASK INPUT TO 8 MOVING CARS\r
+       STAA D,INTER1\r
+       CLR E,INTER0\r
+       LDX D,INTER0\r
+       LDAA X,STAT     ;CHECK IF ALREADY IN COLLISION\r
+       BMI 2$  ;CHECK IF PLAYER IS ENABLED D7 = 0 & NOT ALREADY IN CRASH\r
+1$:    LDAA I,01       ;REENABLE INTERRUPT\r
+       STAA E,INTRES\r
+       RTI\r
+2$:    ORAA I,2        ;SET CRASH BIT IN STATUS\r
+       STAA X,STAT\r
+       BRA 1$\r
+TNSMSG:                ;MESSAGE TEN SEC TO GAME\r
+       LDX I,TENSEC\r
+MSGOT: SEI\r
+       STS D,T6\r
+       TXS     ;MESSAGE OUT\r
+       LDX I,DISP+1044 ;SET X TO POINT TO MESSAGE-1\r
+       STX D,T0\r
+       LDX I,DISP+733  ;SET X & T0 TO POINT TO PF START LOCATION FOR\r
+MSGOT1:        LDAA E,SYNC     ;WAIT FOR VSYNC\r
+       BPL MSGOT1\r
+2$:    LDAA E,SYNC\r
+       BMI 2$\r
+4$:    STX D,T2\r
+       LDX D,T0\r
+       PULA\r
+       CMPA I,46       ;46 IS END MESSAGE CHARACTER\r
+       BNE 3$\r
+       LDS D,T6\r
+       RTS\r
+3$:    STAA X,0        ;OUTPUT RIGHT SIDE UP MESSAGE\r
+       INX\r
+       STX D,T0\r
+       LDX D,T2\r
+       ORAA I,100      ;100 FLIPS PICTURE UPSIDE DOWN\r
+       STAA X,0        ;OUTPUT UPSIDE DOWN MESSAGE\r
+       DEX\r
+       BRA 4$\r
+       .PAGE\r
+       .SBTTL UTILITY SUBROUTINES TEST\r
+ADDOF: STX D,T2        ;ADD A TO X\r
+       ADDA D,T3\r
+       STAA D,T3\r
+       BCC 1$\r
+       INC E,T2\r
+1$:    LDX D,T2        \r
+       RTS\r
+RSTAL: LDX I,0 ;RESET 8 CARS & SCORE\r
+1$:    CLR X,SCORE\r
+       LDAA X,STAT\r
+       BMI 2$\r
+       CLR X,STAT\r
+2$:\r
+       JSR E,RSTCAR\r
+       INX\r
+       CPX I,10\r
+       BNE 1$\r
+       RTS\r
+INITSB:        CLR E,GSTAT     ;CLEAR GAME STAT & INDIVIDUAL STAT\r
+       CLR E,GATIM     ;RESET TIME\r
+       LDX I,10\r
+1$:    LDAA X,STAT-1\r
+       ANDA I,20       ;CLEAR ALL BUT LAST PLAYED BITS\r
+       STAA X,STAT-1\r
+       DEX\r
+       BNE 1$\r
+INIT1: LDAA I,1        ;COIN LOCKOUT OFF-ATTRACT ON TERM OFF\r
+       LDX I,COINLK\r
+1$:    STAA X,0\r
+       INX\r
+       CPX I,ATGAME+1\r
+       BNE 1$\r
+       RTS\r
+PFADJ: STX D,T10       ;ADJUST X TO PROPER TRACK NUMBER, X + TRACK NUMBER TIMES 512\r
+       PSHA\r
+       LDAA D,TRAKN    ;ADD TRACK NO TOX\r
+       ANDA I,003      ;CHANGE TO DECREASE # OF TRACKS\r
+       ASLA\r
+       ADDA D,T10\r
+       STAA D,T10\r
+       LDX D,T10\r
+       PULA\r
+       RTS\r
+;\r
+;ADJUST B MOD 28, A HAS DIRECTION OF CHANGE\r
+;\r
+MOD28:\r
+       CMPB I,27.*8.+7\r
+       BHI MOD29\r
+       BLS MOD31       ;ALREADY LESS THEN 28\r
+MOD29: TSTA            ;TEST DIRECTION OF CHANGE\r
+       BPL MOD30       ;FROM 27 TO ZERO\r
+       LDAB I,27.*8.   ;FROM ZERO TO 27\r
+       BRA MOD31\r
+MOD30: CLRB\r
+MOD31: RTS\r
+TEST:  SEI     ;TEST ROUTINE\r
+       CLR E,ATGAME    ;TEST SWITCHES USING SCREEN\r
+       LDX I,ERRMSG    ;PUT DIAGNOSTIC MESSAGE UP\r
+       JSR E,MSGOT\r
+       LDX I,DISP+733\r
+       LDAA I,0\r
+       LDAB I,22.\r
+1$:\r
+       STAA X,0        ;BLANK UPSIDE DOWN LINE\r
+       DEX\r
+       DECB\r
+       BNE 1$\r
+RMCHK: LDAA I,377      ;CHECK RAME\r
+       LDX I,377\r
+1$:    STAA X,0\r
+       CMPA X,0\r
+       BNE RAMER\r
+       DECA\r
+       BNE 1$\r
+       DEX\r
+       BNE 1$\r
+       LDX I,22000     ;ROM CHECK 1\r
+2$:    ADDA X,0\r
+       INX\r
+       CPX I,26000\r
+       BNE 2$\r
+       TSTA\r
+       BNE ROMER1\r
+3$:    ADDA X,0        ;ROM 2 CHECK\r
+       INX\r
+       CPX I,32000\r
+       BNE 3$\r
+       TSTA\r
+       BNE ROMER2\r
+       BEQ SWCHK\r
+RAMER: LDX I,RAMERR\r
+       LDAA I,61       ;ASCII 1\r
+       BRA RMCHK2\r
+ROMER1:        LDAA I,61       ;ASCII 1\r
+       BRA ROMER3\r
+ROMER2:        LDAA I,62       ;ASCII 2\r
+ROMER3:        LDX I,ROMERR\r
+RMCHK2:        LDAB I,0        ;ASCII BLANK\r
+RMCHK3:        TST E,SYNC\r
+       BPL RMCHK3      ;WAIT FOR V BLANK\r
+RMCHK4:        TST E,SYNC\r
+       BMI RMCHK4\r
+       STAB X,0        ;STORE MESSAGE ON THE SCREEN\r
+       STAA X,1\r
+SWCHK: LDAA E,STEST\r
+       BPL 1$\r
+       JMP E,MNLOOP    ;NO MORE TESTING\r
+1$:    CLR E,CRSHON    ;CRASH AUDIO ON\r
+       LDX I,SWP0\r
+       CLR E,T3        ;CLEAR COIN ON LOCATION\r
+       CLRA\r
+2$:    EORA X,0        ;X OR ALL SWITCHES\r
+       LDAB X,0\r
+       LSRB\r
+       BLS 3$          ;COIN IS NOT ON\r
+       STX D,T2        ;SAVE PLAYER NUMBER\r
+3$:    INX\r
+       CPX I,SWP0+10   ;DONE?\r
+       BNE 2$\r
+       STAA D,T0\r
+       LSRA\r
+       EORA D,T0       ;EXOR GAS AND SHIFT TOGETHER\r
+       ANDA I,8.       ;MASH TO OUR BIT\r
+       BNE 4$\r
+       CLR E,SKIDON    ;EVEN PARITY SKID ON\r
+       BRA 5$\r
+4$:    LDAA I,1\r
+       STAA E,SKIDON   ;ODD PARITY,SKID OFF\r
+5$:    LDX I,COINER    ;COIN MESSAGE PTS\r
+       LDAB I,17       ;O\r
+       LDAA I,13       ;K\r
+       TST E,T3        ;WAS THERE A COIN?\r
+       BEQ RMCHK3      ;OUTPUT OK\r
+       LDAA D,T3\r
+\r
+       ORAA I,60       ;FOR PLAYER NUMBER\r
+       BRA RMCHK2      ;OUTPUT COIN ON NUMBER\r
+       .SBTTL SPRINT8 STEERING, SCORE, STEP & MESSAGE TABLES, CHECKSUM\r
+;\r
+;TABLE TO MAP PLAYFIELD ARROWS TO ROTATIONS\r
+;\r
+       .RADIX 10\r
+STPDR:\r
+       .BYTE 7*8,11*8,21*8,25*8\r
+       .BYTE 0*8,3*8,14*8,17*8\r
+       .RADIX 10\r
+HOFF:  .BYTE   0,3,6,9,12,14,15\r
+VOFF:\r
+       .BYTE   15,15,14,12,9,6,3\r
+       .BYTE   0,-3,-6,-9,-12,-14,-15\r
+       .BYTE   -15,-15,-14,-12,-9,-6,-3\r
+       .BYTE   0,3,6,9,12,14,15\r
+       .RADIX 8\r
+\r
+DRSPD  =^H27E9\r
+ERRMSG =^H25E9\r
+RAMERR =DISP + 1044 + 4\r
+ROMERR =DISP + 1044 + 11.\r
+COINER =DISP + 1044 + 19.\r
+\r
+TENSEC:        .BYTE 0,70,0,23,5,3,17,16,4,23,0,24,17,0,7,1\r
+       .BYTE 15,5,0,20,14,1,31,46      ;TEN SECONDS TO GAME START MESSAGE\r
+       ;INDY 8 TABLES\r
+CWT:   .BYTE 27,6,5,4,3,2,1,0\r
+       .BYTE 11,12,13,14,15,16,17      ;ROTATION TABLE FOR CAR TURNING\r
+       .BYTE 36,35,34,33,32,31,30\r
+       .BYTE 21,22,23,24,25,26\r
+SCRTBL:        .BYTE 260,360,60,60,260,360,160,160     ;RATATION TABLE FOR PLAYER SCORE OUT\r
+       .MACRO PAIR A,B\r
+       .BYTE<A>*16.+<<B>&15.>\r
+       .ENDM\r
+       .LIST MEB\r
+;\r
+;ACCELERATION TABLE\r
+;\r
+ACTAB:\r
+       .IRP A,<<7,1>,<7,1>,<7,1>,<5,3>,<2,4>,<0,5>>\r
+       PAIR A\r
+       .ENDM\r
+       .IRP A,<<-1,5>,<-2,7>,<-1,7>,<-2,7>,<-3,7>,<-4,5>>\r
+       PAIR A\r
+       .ENDM\r
+       .IRP A,<<-5,5>,<-6,4>,<-7,2>,<-7,0>>\r
+       PAIR    A\r
+       .ENDM\r
+;\r
+;DE-ACCELERATE TABLE\r
+;\r
+DACTAB:\r
+       .IRP A,<<0,0>,<-2,-1>,<-4,-2>,<-6,-3>,<-7,-4>,<-7,-5>>\r
+       PAIR A\r
+       .ENDM\r
+       .IRP A,<<-7,-5>,<-7,-6>,<-7,-6>,<-7,-7>,<-7,-7>,<-7,-7>>\r
+       PAIR A\r
+       .ENDM\r
+       .IRP A,<<-7,-7>,<-7,-7>,<-7,-7>,<-7,-7>>\r
+       PAIR A\r
+       .ENDM\r
+       .NLIST MEB\r
+\r
+       .BYTE ^H6D\r
+       .BYTE 0 ;ROM 2 CHECKSUM = 0\r
+       .=31770         ;INTERRUPT VECTORS ETC.\r
+       .BYTE COLINT/400,COLINT&377,INIT/400,INIT&377\r
+       .BYTE COLINT/400,COLINT&377\r
+       .BYTE INIT/400\r
+       .BYTE INIT&377\r
+       .END\r
+\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
\ No newline at end of file
diff --git a/A07314.XX b/A07314.XX
new file mode 100644 (file)
index 0000000..4d7c4f4
--- /dev/null
+++ b/A07314.XX
@@ -0,0 +1,543 @@
+       .TITLE  TRACK8\r
+       .ASECT\r
+       .=22000\r
+       .MACRO  PAIR8   A,B,C,D,E,F,G,H\r
+       .BYTE   <B>*16.+<A>,<D>*16.+<C>,<F>*16.+<E>,<H>*16.+<G>\r
+       .ENDM\r
+       .RADIX  16\r
+;\r
+;      PACKED ARROW AND WALL DEFINITION\r
+;\r
+UA     =0D     ;UP ARROW\r
+DA     =9      ;DOWN ARROW\r
+LA     =1      ;LEFT ARROW\r
+RA     =5      ;RIGHT ARROW\r
+UR     =0F     ;UP RIGHT\r
+UL     =3      ;UP LEFT\r
+DR     =7      ;DOWN RIGHT\r
+DL     =0B     ;DOWN LEFT\r
+;\r
+UHW    =8      ;UPPER HORIZONTAL WALL\r
+DHW    =0C     ;LOWER HORIZONTAL WALL\r
+LVW    =4      ;LEFT VERTICAL WALL\r
+RVW    =0      ;RIGHT VERTICAL WALL\r
+URW    =0A     ;UPPER RIGHT DIAGONAL WALL\r
+ULW    =6      ;UPPER LEFT DIAGONAL WALL\r
+LRW    =2      ;LOWER RIGHT DIAGONAL WALL\r
+LLW    =0E     ;LOWER LEFT DIAGONAL WALL\r
+       .RADIX  8\r
+       .NLIST  TTM\r
+       .RADIX  16\r
+CHKPT: .BYTE   80,81,82,83\r
+       .BYTE   0B3,0C3,0D3,0E3\r
+       .BYTE   0BA,0CA,0DA,0EA\r
+       .BYTE   09C,09D,09E,09F\r
+       .BYTE   27,37,47,57\r
+       .BYTE   0,0,0,0,0\r
+       .RADIX  8\r
+PFPICT:\r
+       PAIR8   DR,LRW,UHW,UHW,UHW,UHW,DHW,DA           ;LINE 1/TRACK 1\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DL,DL,DL,DL,DL,DL\r
+       PAIR8   RA,LVW,RA,RA,DR,DR,DR,UHW               ;LINE 2\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW\r
+       PAIR8   UHW,DHW,DL,LA,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA                ;LINE 3\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DR,DR,UHW,LLW,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA                ;LINE 4\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DR,DR,URW,LLW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,UR                ;LINE 5\r
+       PAIR8   UR,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DR,DR,DA,RVW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR                ;LINE 6\r
+       PAIR8   UR,UR,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DR,DR,DA,DA,LVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR                ;LINE 7\r
+       PAIR8   UR,UR,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DR,DR,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR                ;LINE 8\r
+       PAIR8   UR,UR,UR,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DR,DR,DR,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR                ;LINE 9\r
+       PAIR8   UR,UR,UR,UR,RA,RA,RA,UR\r
+       PAIR8   UR,UR,UR,UR,UR,RA,DR,DR\r
+       PAIR8   DR,DR,DR,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR                ;LINE 10\r
+       PAIR8   UR,UR,UR,UR,UR,UR,UR,DHW\r
+       PAIR8   DHW,UHW,UHW,UHW,UHW,UHW,LLW,DR\r
+       PAIR8   DR,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,UR,UR,UR                ;LINE 11\r
+       PAIR8   UR,UR,UR,UR,UR,DHW,UHW,UA\r
+       PAIR8   UA,UA,UA,UA,UA,RA,URW,LLW\r
+       PAIR8   DR,DA,DA,DA,DA,DL,LVW,LA\r
+       PAIR8   RVW,RA,RA,RA,UR,UR,UR,UR                ;LINE 12\r
+       PAIR8   UR,UR,UR,DHW,UHW,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UA,RA,RA,RVW\r
+       PAIR8   DR,DR,DA,DA,DA,DL,LVW,LA\r
+       PAIR8   LVW,RA,RA,UR,UR,UR,UR,UR                ;LINE 13\r
+       PAIR8   UR,LRW,UHW,UA,UA,UA,UA,UA\r
+       PAIR8   DA,DA,DA,DA,UA,RA,RA,RA\r
+       PAIR8   LVW,DR,DA,DA,DA,DL,RVW,LA\r
+       PAIR8   LVW,RA,UR,UR,UR,UR,UR,UR                ;LINE 14\r
+       PAIR8   LRW,ULW,LA,UA,UA,UA,DA,DA\r
+       PAIR8   DA,DA,DA,DA,DL,UR,RA,RA\r
+       PAIR8   RVW,DR,DA,DA,DA,DL,RVW,LA\r
+       PAIR8   LVW,UR,UR,UR,UR,UR,UR,UA                ;LINE 15\r
+       PAIR8   LVW,LA,LA,UA,UA,DR,DA,DA\r
+       PAIR8   DA,DA,DA,DA,DL,DA,RA,RA\r
+       PAIR8   RA,LVW,DA,DA,DA,DL,RVW,LA\r
+       PAIR8   LVW,UR,UR,UA,UA,UR,UA,RVW               ;LINE 16\r
+       PAIR8   LA,LA,LA,UA,DR,DR,DA,DA\r
+       PAIR8   DHW,UHW,UHW,LLW,DL,DA,DA,RA\r
+       PAIR8   RA,LVW,DA,DA,DA,DL,RVW,LA\r
+       PAIR8   LVW,UR,UA,UA,UA,UA,UA,LVW               ;LINE 17\r
+       PAIR8   LA,LA,LA,DR,DR,DR,LRW,UHW\r
+       PAIR8   DL,DL,DL,URW,LLW,DA,DA,RA\r
+       PAIR8   RA,LVW,DA,DA,DA,DL,RVW,LA\r
+       PAIR8   RVW,UR,UA,UA,UA,UA,UA,LVW               ;LINE 18\r
+       PAIR8   LA,LA,DA,DR,DR,LRW,ULW,DL\r
+       PAIR8   DL,DL,DL,LA,URW,LLW,DA,DA\r
+       PAIR8   LRW,ULW,DL,DA,DA,DL,LVW,LA\r
+       PAIR8   RVW,UR,UA,UA,UA,UA,UA,RVW               ;LINE 19\r
+       PAIR8   LA,DL,DA,DR,LRW,ULW,DL,DL\r
+       PAIR8   DL,LA,LA,LA,LA,URW,LLW,LRW\r
+       PAIR8   ULW,DL,DL,DL,DA,DL,LVW,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,UL                ;LINE 20\r
+       PAIR8   LVW,DA,DA,LRW,ULW,DL,DL,DL\r
+       PAIR8   LA,LA,LA,LA,LA,LA,URW,ULW\r
+       PAIR8   DL,DL,DL,DL,DL,DL,LVW,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,UL                ;LINE 21\r
+       PAIR8   URW,DHW,DHW,ULW,DL,DL,DL,DL\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,RVW,UA,UA,UA,UA,UL,UL                ;LINE 22\r
+       PAIR8   LA,LA,LA,LA,DL,DL,DL,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,RA,LVW,UA,UA,UL,UL,UL                ;LINE 23\r
+       PAIR8   UL,LA,LA,LA,LA,LA,LA,DHW\r
+       PAIR8   UL,UL,UL,UL,UL,UL,UL,UL\r
+       PAIR8   LA,LA,DL,DL,LA,LVW,LA,LA\r
+       PAIR8   RA,RA,URW,LLW,UA,UL,UL,UL               ;LINE 24\r
+       PAIR8   UL,LA,LA,LA,LA,LRW,UHW,UA\r
+       PAIR8   UHW,LLW,UL,UL,UL,UL,UL,UL\r
+       PAIR8   LA,LA,LA,LA,RVW,LA,LA,LA\r
+       PAIR8   RA,RA,RA,URW,LLW,UL,UL,UL               ;LINE 25\r
+       PAIR8   UL,LA,LA,LA,LRW,ULW,UA,UA\r
+       PAIR8   UA,URW,LLW,UL,UL,UL,UL,UL\r
+       PAIR8   UL,LA,LA,LRW,ULW,LA,LA,LA\r
+       PAIR8   RA,RA,RA,RA,URW,DHW,DHW,UL              ;LINE 26\r
+       PAIR8   UL,UL,UL,DHW,ULW,UA,UA,UA\r
+       PAIR8   UA,UA,URW,LLW,UL,UL,UL,UL\r
+       PAIR8   UL,UL,LRW,ULW,UL,UL,LA,LA\r
+       PAIR8   UR,UR,UR,UR,UR,UA,UA,UHW                ;LINE 27\r
+       PAIR8   UHW,UHW,UHW,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,URW,DHW,UL,UL,UL\r
+       PAIR8   UL,DHW,ULW,UL,UL,UL,LA,LA\r
+       PAIR8   UR,UR,UR,UR,UA,UA,UA,UA                 ;LINE 28\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UA,UHW,DHW,DHW\r
+       PAIR8   UHW,UA,UA,UA,UL,UL,LA,LA\r
+       PAIR8   UR,UR,UR,UR,UA,UA,UA,UA                 ;LINE 29\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UL,UL,UL,UL\r
+ERRMSG:        .BYTE   22,01,15,00,17,13,00,22,17,15,00\r
+       .BYTE   17,13,00,03,17,11,16,00\r
+       .BYTE   17,13,46,00\r
+       .=23000\r
+CHKPT2:\r
+       .RADIX  16\r
+       .BYTE   57,67,77,87\r
+       .BYTE   84,94,0A4,0B4\r
+       .BYTE   0CA,0DA,0EA,0FA\r
+       .BYTE   8C,8D,8E,8F\r
+       .BYTE   25,35,45,55\r
+       .BYTE   0,0,0,0,0\r
+       .RADIX  8\r
+       PAIR8   DR,LRW,UHW,UHW,UHW,UHW,DHW,DA   ;LINE 1/TRACK 2\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DL,DL,DL,DL,DL,DL\r
+       PAIR8   RA,LVW,RA,RA,DR,DR,DR,UHW       ;LINE 2\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW \r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW\r
+       PAIR8   UHW,DHW,LA,LA,LA,LA,DL,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 3\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,DR,DR,DR,DR,DR\r
+       PAIR8   DA,DA,UHW,LLW,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 4\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,DR,DR,DR,DR\r
+       PAIR8   DA,DA,DA,URW,LLW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 5\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DA,DA,DA,DA,RVW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,UR        ;LINE 6\r
+       PAIR8   UR,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DA,DA,DA,DL,DL,LVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 7\r
+       PAIR8   UR,UR,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DA,DA,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 8\r
+       PAIR8   UR,UR,UR,RA,RA,RA,RA,RA\r
+       PAIR8   UR,UR,UR,UR,UR,RA,RA,DR\r
+       PAIR8   DA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 9\r
+       PAIR8   UR,UR,UR,UR,UR,UR,UR,UR\r
+       PAIR8   DHW,DHW,UHW,UHW,UHW,UHW,UHW,DA\r
+       PAIR8   DL,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,UR,UR,UR        ;LINE 10\r
+       PAIR8   UR,UR,UR,UR,DHW,DHW,UHW,UHW\r
+       PAIR8   DL,DL,DL,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,UR,UR,UR,UR        ;LINE 11\r
+       PAIR8   UR,UR,DHW,UHW,DA,DL,DL,DL\r
+       PAIR8   DL,DL,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LVW,LA,LA\r
+       PAIR8   RA,LVW,RA,UR,UR,UR,UR,UR        ;LINE 12\r
+       PAIR8   LRW,UHW,DA,DA,DA,DL,DL,DL\r
+       PAIR8   DL,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,RVW,LA,LA,LA\r
+       PAIR8   RA,LVW,UR,UR,UR,UR,UR,UA        ;LINE 13\r
+       PAIR8   LVW,DA,DA,DA,DA,DL,DL,DL\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LRW,ULW,LA,LA,LA\r
+       PAIR8   RA,LVW,UR,UA,UA,UA,UA,RVW       ;LINE 14\r
+       PAIR8   DR,DR,DA,DA,DA,DL,LA,LA\r
+       PAIR8   LA,LA,LA,LA,UL,UL,UL,UL\r
+       PAIR8   UL,UL,DHW,ULW,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,LVW       ;LINE 15\r
+       PAIR8   DR,DR,DR,DA,DA,LA,LA,LA\r
+       PAIR8   LA,DHW,DHW,DHW,DHW,UHW,UHW,UHW\r
+       PAIR8   UHW,UHW,DHW,LA,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,LVW       ;LINE 16\r
+       PAIR8   DR,DR,DR,DR,DA,LA,DHW,UHW\r
+       PAIR8   UHW,DHW,UHW,DR,DR,DR,DR,DR\r
+       PAIR8   DA,DA,DA,UHW,LLW,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,LVW       ;LINE 17\r
+       PAIR8   DR,DR,DR,DR,DR,URW,DHW,DHW\r
+       PAIR8   UHW,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DA,DA,DA,DA,URW,LLW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,LVW       ;LINE 18\r
+       PAIR8   DR,DR,DR,DR,DR,DR,DR,DR\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DA,DA,DA,DA,DL,LVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,LVW       ;LINE 19\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   UR,RA,RA,UR,UR,RA,RA,DR\r
+       PAIR8   DA,DA,DA,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UA,LVW       ;LINE 20\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,UR,UR,UR,UR,UR,RA,RA\r
+       PAIR8   DA,DA,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,URW       ;LINE 21\r
+       PAIR8   LLW,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   UR,UR,UR,UR,DHW,UHW,UHW,LLW\r
+       PAIR8   DA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,UL        ;LINE 22\r
+       PAIR8   URW,DHW,DHW,DHW,DHW,DHW,DHW,DHW\r
+       PAIR8   DHW,DHW,UHW,UHW,UHW,UHW,UHW,DA\r
+       PAIR8   DL,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,UL        ;LINE 23\r
+       PAIR8   LA,LA,DL,DL,DL,DL,DL,DL\r
+       PAIR8   DL,DL,DL,DL,DL,DL,DL,DL\r
+       PAIR8   DL,DL,LA,LA,LA,RVW,LA,LA\r
+       PAIR8   RA,RVW,UA,UA,UA,UA,UL,UL        ;LINE 24\r
+       PAIR8   UL,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LVW,LA,LA\r
+       PAIR8   RA,RA,LVW,UA,UA,UA,UL,UL        ;LINE 25\r
+       PAIR8   UL,UL,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,RVW,LA,LA,LA\r
+       PAIR8   RA,RA,URW,LLW,UA,UA,UL,UL       ;LINE 26\r
+       PAIR8   UL,UL,UL,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LRW,ULW,LA,LA,LA\r
+       PAIR8   RA,RA,RA,URW,DHW,UA,UL,UL       ;LINE 27\r
+       PAIR8   UL,UL,UL,UL,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,DHW,ULW,UL,UL,LA,LA\r
+       PAIR8   RA,UR,UR,UR,RA,UHW,DHW,DHW      ;LINE 28\r
+       PAIR8   DHW,DHW,DHW,DHW,DHW,DHW,DHW,DHW\r
+       PAIR8   DHW,DHW,DHW,DHW,DHW,DHW,DHW,DHW\r
+       PAIR8   DHW,UHW,UA,UL,UL,UL,UL,UL\r
+       PAIR8   UR,UR,UR,UR,UA,UA,UA,UA         ;LINE 29\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UL,UL,UL,UL,UL\r
+DRSPD: .BYTE   21.,26.,24.,22.,20.,18.,16.,12.,00,00\r
+       .BYTE   0,0,0,0,0,0,0,0,0,0,0,0,0\r
+       .=24000\r
+CHKPT3:\r
+       .RADIX  16\r
+       .BYTE   0B1,0B2,0B3,0B4\r
+       .BYTE   84,85,86,87\r
+       .BYTE   0B9,0BA,0BB,0BC\r
+       .BYTE   9C,9D,9E,9F\r
+       .BYTE   25,35,45,55\r
+       .BYTE   0,0,0,0,0\r
+       .RADIX  8\r
+       PAIR8   RA,LRW,UHW,UHW,UHW,UHW,DHW,DA   ;LINE 1/TRACK 3\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DL,DL,DL,DL,DL,DL\r
+       PAIR8   RA,LVW,RA,RA,DR,DR,DR,UHW       ;LINE 2\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW\r
+       PAIR8   UHW,DHW,DA,LA,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 3\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DR,DR,UHW,LLW,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 4\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DR,DA,URW,LLW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 5\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,DR\r
+       PAIR8   DR,DR,DA,DA,RVW,LA,LA,LA\r
+       PAIR8   LA,LVW,RA,RA,RA,RA,RA,UR        ;LINE 6\r
+       PAIR8   UR,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DR,DA,DA,DA,LVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 7\r
+       PAIR8   UR,UR,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DA,DR,DR,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 8\r
+       PAIR8   UR,UR,UR,RA,RA,RA,RA,UR\r
+       PAIR8   UR,UR,UR,UR,UR,UR,DR,DR\r
+       PAIR8   DA,DA,DR,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 9\r
+       PAIR8   UR,UR,UR,UR,UR,UR,UR,UR\r
+       PAIR8   DHW,DHW,UHW,UHW,UHW,UHW,LLW,DR\r
+       PAIR8   DA,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,UR,UR,UR        ;LINE 10\r
+       PAIR8   UR,UR,UR,UR,UR,DHW,UHW,UHW\r
+       PAIR8   DL,DL,DL,DL,DL,DL,URW,LLW\r
+       PAIR8   DA,DA,DL,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,UR,UR,UR        ;LINE 11\r
+       PAIR8   UR,UR,UR,LRW,UHW,DL,DL,DL\r
+       PAIR8   DL,DL,DL,LA,LA,LA,LA,RVW\r
+       PAIR8   DR,DA,DL,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,UR,UR,UR,UR        ;LINE 12\r
+       PAIR8   UR,UR,LRW,ULW,DL,DL,DL,DL\r
+       PAIR8   DL,DL,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LVW,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,UR,UR,UR,UR,UR        ;LINE 13\r
+       PAIR8   UR,LRW,ULW,DA,DL,DL,DL,DL\r
+       PAIR8   DL,LA,LA,LA,LA,LA,LA,LA\r
+       PAIR8   LVW,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UR,UR,UR,UR,UR,UR        ;LINE 14\r
+       PAIR8   LRW,ULW,DA,DA,DL,DL,DL,DL\r
+       PAIR8   LA,LA,LA,UL,UL,UL,UL,UL\r
+       PAIR8   LVW,DR,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UR,UR,UR,UR,UR        ;LINE 15\r
+       PAIR8   LVW,DA,DA,DA,DL,DL,DL,LA\r
+       PAIR8   LRW,ULW,UA,UA,UL,UL,UL,RVW\r
+       PAIR8   LVW,DR,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UR,UR,UA,RVW       ;LINE 16\r
+       PAIR8   DA,DA,DA,DA,DL,DL,LA,LRW\r
+       PAIR8   ULW,UR,UA,UA,UA,UL,UL,LVW\r
+       PAIR8   LVW,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UR,UA,LVW       ;LINE 17\r
+       PAIR8   DA,DA,DA,DA,DL,LA,LRW,ULW\r
+       PAIR8   UR,UR,UA,UA,UA,UL,RVW,UL\r
+       PAIR8   LVW,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,LVW       ;LINE 18\r
+       PAIR8   DA,DA,DA,DA,DL,LA,LVW,UR\r
+       PAIR8   UR,UR,UR,UA,UA,UL,UL,LVW\r
+       PAIR8   LVW,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   LA,LVW,UA,UA,UA,UA,UL,LVW       ;LINE 19\r
+       PAIR8   DA,DA,DA,DL,DL,RVW,UR,UR\r
+       PAIR8   UR,UR,UR,UA,UA,UL,UL,RVW\r
+       PAIR8   LVW,DA,DA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,LVW       ;LINE 20\r
+       PAIR8   DA,DA,DL,DL,DL,LVW,UR,UR\r
+       PAIR8   UR,UR,UA,LRW,LLW,UA,UL,UL\r
+       PAIR8   LVW,DA,LA,DA,DA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,LVW       ;LINE 21\r
+       PAIR8   DA,DL,DL,DL,DL,LVW,UR,UR\r
+       PAIR8   UR,UA,LRW,ULW,URW,LLW,UA,UL\r
+       PAIR8   UL,LA,LA,DA,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,ULW       ;LINE 22\r
+       PAIR8   DL,DL,DL,DL,RVW,UR,UA,UA\r
+       PAIR8   UA,UA,RVW,UL,UR,LVW,UA,UA\r
+       PAIR8   UL,UL,UL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,LA        ;LINE 23\r
+       PAIR8   LA,LA,LA,LA,RVW,UR,UA,UA\r
+       PAIR8   UA,UA,UL,UHW,UHW,UR,UA,UA\r
+       PAIR8   UA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,UL        ;LINE 24\r
+       PAIR8   LA,LA,LA,LA,RVW,UR,UA,UA\r
+       PAIR8   UA,UA,UL,LA,LA,LA,LA,LA\r
+       PAIR8   DL,DL,DL,DL,DL,LVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,UL        ;LINE 25\r
+       PAIR8   UL,LA,LA,LA,RVW,UR,UA,UA\r
+       PAIR8   UA,UL,UL,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,RVW,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,UL        ;LINE 26\r
+       PAIR8   UL,UL,LA,LA,RVW,LLW,UA,UA\r
+       PAIR8   UA,UL,UL,UL,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LRW,ULW,LA,LA,LA\r
+       PAIR8   RA,URW,LLW,UA,UA,UA,UL,UL       ;LINE 27\r
+       PAIR8   UL,UL,UL,LRW,ULW,URW,LLW,UA\r
+       PAIR8   UA,UL,UL,UL,UL,LA,LA,LA\r
+       PAIR8   LA,LA,DHW,ULW,UL,LA,LA,LA\r
+       PAIR8   RA,RA,URW,DHW,DHW,DHW,DHW,DHW   ;LINE 28\r
+       PAIR8   DHW,DHW,DHW,ULW,UA,UA,URW,DHW\r
+       PAIR8   DHW,DHW,DHW,DHW,DHW,DHW,DHW,DHW\r
+       PAIR8   DHW,UHW,UA,UL,UL,UL,UL,UL\r
+       PAIR8   UR,UR,UA,UA,UA,UA,UA,UA         ;LINE 29\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UL,UL,UL,UL,UL\r
+RAMMSG:        .BYTE   22,01,15,00,05,22,22,17,22,46           ;RAM ERROR\r
+BLANK: .BYTE   0,0,0,0,0,0,0,0,0,0,0,0,46              ;BLANK MESSAGE\r
+       .=25000\r
+CHKPT4:\r
+       .RADIX  16\r
+       .BYTE   83,84,85,86\r
+       .BYTE   0C6,0C7,0C8,0C9\r
+       .BYTE   0A9,0AA,0AB,0AC\r
+       .BYTE   8C,8D,8E,8F\r
+       .BYTE   25,35,45,55\r
+       .BYTE   0,0,0,0,0\r
+       .RADIX  8\r
+       PAIR8   RA,LRW,UHW,UHW,UHW,UHW,DHW,DA   ;LINE 1/TRACK 4\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DA,DA,DA,DA,DA,DA\r
+       PAIR8   DA,DA,DL,DL,DL,DL,DL,DL\r
+       PAIR8   RA,LVW,RA,RA,DR,DR,DR,UHW\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW ;LINE 2\r
+       PAIR8   UHW,UHW,UHW,UHW,UHW,UHW,UHW,UHW\r
+       PAIR8   UHW,DHW,LA,LA,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 3\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,DR,DR,DR,DR\r
+       PAIR8   DR,DA,UHW,LLW,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 4\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,DR,DR,DR\r
+       PAIR8   DR,DA,DA,URW,LLW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,RA        ;LINE 5\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,DR,DR\r
+       PAIR8   DR,DA,DA,DA,RVW,LA,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,RA,UR        ;LINE 6\r
+       PAIR8   UR,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,DR\r
+       PAIR8   DR,DA,DA,DA,DL,LVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 7\r
+       PAIR8   UR,UR,RA,RA,RA,RA,RA,RA\r
+       PAIR8   RA,RA,RA,RA,RA,RA,RA,RA\r
+       PAIR8   DR,DA,DA,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 8\r
+       PAIR8   UR,UR,UR,RA,RA,RA,RA,RA\r
+       PAIR8   RA,UR,UR,UR,UR,UR,UR,RA\r
+       PAIR8   DA,DA,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 9\r
+       PAIR8   UR,UR,UR,UR,UR,UR,UR,UR\r
+       PAIR8   UR,UR,DHW,DHW,UHW,UHW,UHW,UHW\r
+       PAIR8   DA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,RA,RA,UR,UR        ;LINE 10\r
+       PAIR8   UR,UR,UR,UR,UR,UR,DHW,DHW\r
+       PAIR8   UHW,UHW,LRW,ULW,DA,DA,DA,DA\r
+       PAIR8   DL,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   LA,LVW,RA,RA,RA,UR,UR,UR        ;LINE 11\r
+       PAIR8   UR,UR,UR,DHW,UHW,UHW,UHW,UHW\r
+       PAIR8   LLW,DR,LVW,DR,DA,DA,DA,DA\r
+       PAIR8   DL,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,RA,UR,UR,UR,UR        ;LINE 12\r
+       PAIR8   UR,LRW,UHW,DA,DL,DL,DL,DL\r
+       PAIR8   URW,LLW,LVW,DR,DR,DA,DA,DA\r
+       PAIR8   DL,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,RA,UR,UR,UR,UR,UR        ;LINE 13\r
+       PAIR8   LRW,ULW,DA,DL,DL,DL,DL,DL\r
+       PAIR8   LA,RVW,LVW,DR,DR,DR,DA,DA\r
+       PAIR8   DL,LA,LA,LA,LA,RVW,LA,LA\r
+       PAIR8   RA,LVW,UR,UR,UR,UR,UR,LRW       ;LINE 14\r
+       PAIR8   ULW,DA,DA,DL,DL,DL,DL,LA\r
+       PAIR8   LA,LA,LVW,DR,DR,DR,DR,DA\r
+       PAIR8   DL,LA,LA,LA,LRW,ULW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UR,UA,LVW       ;LINE 15\r
+       PAIR8   DA,DA,DA,DL,DL,DL,LA,LA\r
+       PAIR8   LA,LA,RVW,DR,DR,DR,DR,DR\r
+       PAIR8   DL,DHW,DHW,DHW,ULW,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 16\r
+       PAIR8   DA,DA,DA,DL,DL,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LVW,DR,DR,DR,DR\r
+       PAIR8   DR,DA,URW,LLW,LA,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 17\r
+       PAIR8   DA,DA,DA,DL,DL,LLW,UL,UL\r
+       PAIR8   UL,UL,UL,RVW,DR,DR,DR,DR\r
+       PAIR8   DR,DR,DA,URW,LLW,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 18\r
+       PAIR8   DA,DA,DA,DA,RVW,RVW,UA,UL\r
+       PAIR8   UL,UL,UL,UL,LVW,DR,DR,DR\r
+       PAIR8   DR,DA,DA,DA,RVW,LA,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 19\r
+       PAIR8   DA,DA,DA,DA,RVW,DL,LVW,UA\r
+       PAIR8   UL,UL,UL,UL,RVW,LLW,DR,DR\r
+       PAIR8   DR,DA,DA,DA,DL,LVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 20\r
+       PAIR8   DA,DA,DA,DL,RVW,RVW,UL,UA\r
+       PAIR8   UA,UL,UL,UL,RVW,URW,LLW,DR\r
+       PAIR8   DA,DA,DA,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 21\r
+       PAIR8   DA,DA,DL,DL,RVW,ULW,UR,UA\r
+       PAIR8   UA,UA,UL,UL,RVW,UL,URW,LLW\r
+       PAIR8   DA,DA,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,RVW,DR       ;LINE 22\r
+       PAIR8   DA,DL,DL,DL,RVW,UR,UR,UA\r
+       PAIR8   UA,UA,UA,LRW,UHW,UHW,UHW,ULW\r
+       PAIR8   DA,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,LA,LA        ;LINE 23\r
+       PAIR8   DL,DL,DL,DL,RVW,UR,UR,UA\r
+       PAIR8   UA,UA,UA,ULW,DL,DL,DL,DL\r
+       PAIR8   DL,DL,DL,DL,DL,RVW,LA,LA\r
+       PAIR8   RA,LVW,UA,UA,UA,UA,UL,LA        ;LINE 24\r
+       PAIR8   LA,LA,LA,LA,RVW,UR,UR,UA\r
+       PAIR8   UA,UA,UL,LA,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,RVW,LA,LA\r
+       PAIR8   LA,LVW,UA,UA,UA,UA,UL,UL        ;LINE 25\r
+       PAIR8   LA,LA,LA,LA,RVW,UR,UR,UA\r
+       PAIR8   UA,UA,UL,UL,LA,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LA,RVW,LA,LA\r
+       PAIR8   RA,URW,LLW,UA,UA,UA,UL,UL       ;LINE 26\r
+       PAIR8   UL,LA,LA,LRW,UHW,LLW,UR,UA\r
+       PAIR8   UA,UA,UL,UL,UL,LA,LA,LA\r
+       PAIR8   LA,LA,LA,LA,LRW,ULW,LA,LA\r
+       PAIR8   RA,RA,URW,LLW,UA,UA,UL,UL       ;LINE 27\r
+       PAIR8   UL,UL,LRW,ULW,UA,URW,LLW,UA\r
+       PAIR8   UA,UA,UL,UL,UL,UL,LA,LA\r
+       PAIR8   LA,LA,LA,LRW,ULW,LA,LA,LA\r
+       PAIR8   UR,UR,UR,URW,DHW,DHW,DHW,DHW    ;LINE 28\r
+       PAIR8   DHW,DHW,ULW,UA,UA,UA,URW,LLW\r
+       PAIR8   UA,UA,UL,UL,UL,DHW,DHW,DHW\r
+       PAIR8   DHW,DHW,DHW,ULW,UL,UL,LA,LA\r
+       PAIR8   UR,UR,UR,UA,UA,UA,UA,UA         ;LINE 29\r
+       PAIR8   UA,UA,UA,UA,UA,UA,UA,URW\r
+       PAIR8   DHW,DHW,DHW,DHW,UHW,UA,UA,UA\r
+       PAIR8   UA,UA,UA,UA,UL,UL,UL,UL\r
+COINMS:        .BYTE   03,17,11,16,00,17,16,00,00,46           ;COIN ON\r
+       .BYTE   0,0,0,0,0,0,0,0,0,0,0,0,^H38\r
+       .END\r
+\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
\ No newline at end of file
diff --git a/A07315.RBN b/A07315.RBN
new file mode 100644 (file)
index 0000000..5bff7b4
Binary files /dev/null and b/A07315.RBN differ
diff --git a/A07316.RBN b/A07316.RBN
new file mode 100644 (file)
index 0000000..65eac1d
Binary files /dev/null and b/A07316.RBN differ
diff --git a/SPRNT8.DIR b/SPRNT8.DIR
new file mode 100644 (file)
index 0000000..fdce299
Binary files /dev/null and b/SPRNT8.DIR differ
diff --git a/SPRNT8.MAP b/SPRNT8.MAP
new file mode 100644 (file)
index 0000000..a71f303
Binary files /dev/null and b/SPRNT8.MAP differ