 ;rotabb BY S.ORCHARD <TEXT #9>
 
 ORG $55FE
 PUT *
 
 SETDP 0
 
TEMP EQU 251
COUNT EQU 253
SEED EQU 14255
PBLS EQU $3A98
BACK EQU $3B0B
BUFF EQU $3E76
SP16 EQU $3C0D
CALC EQU $3C89
MOVE EQU $3C9C
EXPL EQU $3CE1
BCOL EQU $3D81
FEX EQU $3DBF
RAD2 EQU $3DE1
RAD EQU $3E0E
TAB EQU $3E2E
MULTAB EQU $3E4E
ANDTAB EQU $3E56
BDTB EQU $3E5E
RTAB EQU $3E6E
SHIP EQU $3F2B
EBLS EQU $3F5F
FSH EQU $402E
FRT EQU $406F
FEB EQU $40C3
BCTB EQU $4109
EINT EQU $4129
BINT EQU $4159
JST EQU $4189
GST EQU $41C6
FST EQU $41E3
PST EQU $41FE
TRAK EQU $4224
LKLN EQU $4277
DRLN EQU $42C4
GET EQU $42F1
COL EQU $4321
ADTAB EQU $434D
LNTAB EQU $4375
MISL EQU $438D
MCOL EQU $44B4
MST EQU $44F0
JETS EQU $4500
GRND EQU $458C
FLPS EQU $4613
PNTS EQU $46A7
SHTS EQU $472B
ROTS EQU $47A0
UPSC EQU $485B
U11 EQU $485F
U22 EQU $4868
U33 EQU $4871
DSCR EQU $488F
DIGS EQU $48AC
STAB EQU $48D4
KYBD EQU $48DC
GCRD EQU $494E
SP8 EQU $4960
XTAB EQU $49E4
ATAB EQU $49F4
RCTAB EQU $4A04
FAT EQU $4A44
FLA EQU $4A8F
ASTD EQU $4AB0
LAST EQU $4B39
BCOL2 EQU $4BB3
B16 EQU $4D1F
BGGY EQU $4D98
INIT EQU $4E4A
GNR2 EQU $4EC0
INBG EQU $4F00
BOOM EQU $4F48
TEXT EQU $4F67
BGHD EQU $4F82
ELSC1 EQU $4FFE
BITAB EQU $5088
RDKYS EQU $50A8
JYSTK EQU $50BD
FIRM EQU $5184
FRM2 EQU $5188
JTAB EQU $51A9
WAIT EQU $51B2
MSLG EQU $527D
INTH EQU $52C3
SND EQU $52C7
MSS1 EQU $534B
MSS2 EQU $5350
MSS3 EQU $5361
MSS4 EQU $536E
GNRL EQU $5395
MSGS EQU $552B
GTCH EQU $55AA
MID EQU $55CD
SMID EQU $55D1
MSS5 EQU $55D5
MSS6 EQU $55DE
MSS7 EQU $55ED
 
 
KEYS JSR RDKYS
 LDX #0
 STX ACC
 LDA PDED
 BEQ NDD2
 BPL NM
NDD2 LDA JFLG
 BEQ NJSTK
 JSR JYSTK
 BRA NKBD
NJSTK JSR KYBD
NKBD LDA KTAB+3
 BITA #32
 BNE NM
 LDU #MSR
 LDA 6,U
 BEQ FND
 LEAU 7,U
 LDA 6,U
 BNE NM
FND JSR FRM2
NM LDA KTAB+5
 BITA #64
 BEQ BRK
 RTS
BRK LDU #8265
 LDY #MSS4
 JSR TEXT
 LDU #10182
 JSR TEXT
 LDU #10374
 JSR TEXT
 LDU #10566
 JSR TEXT
 JSR BUFF
PLP JSR RDKYS
 LDA KTAB+6
 BITA #16
 BNE PN1
 LDA #3
 STA QUIT
 RTS
PN1 LDA KTAB+5
 BITA #8
 BNE PN2
 LDA #1
 STA JFLG
 RTS
PN2 LDA KTAB+4
 BITA #8
 BNE PN3
 CLR JFLG
 RTS
PN3 LDA KTAB+2
 ORA KTAB+3
 ORA KTAB+4
 BITA #16
 BNE PLP
WK JSR GTCH
 BNE WK
 LDX GX
 LDU GY
 PSHS X,U
 LDA #18
 STA MAX
 CLR LEN
ILP JSR BACK
 LDY #MSS8
 LDU #8258
 JSR TEXT
 LDU #8544+6
 JSR TEXT
 BSR INPT
 LDU #9888+3
 JSR PIPT
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 LDX GX
 LEAX -32,X
 STX GX
 LDX GY
 LEAX 32,X
 STX GY
 LDA MAX
 BNE ILP
 PULS X,U
 STX GX
 STU GY
 LDX #CHMS
 LDU #TXBF
CHLP LDA ,X+
 EORA ,U+
 BNE NBRK
 CMPX #CHMS+18
 BLO CHLP
 COM CHFL
NBRK RTS
 
INPT LDA MAX
 BEQ INX
 JSR GTCH
 BNE CHI
 LDA #255
 STA LSCH
 RTS
CHI CMPA LSCH
 BEQ INX
 STA LSCH
 CMPA #48
 BNE INP1
 CLR MAX
 RTS
INP1 CMPA #45
 BEQ DEL
 LDB LEN
 CMPB MAX
 BEQ INX
 BSR CNVT
 BEQ INX
 LDX #TXBF
 LDA LEN
 STB A,X
 INC LEN
INX RTS
DEL LDA LEN
 BEQ INX
 DEC LEN
 RTS
 
CNVT LDB #6
 TST SHFL
 BEQ SHFT
 CMPA #9
 BHI CNV1
 ADDA #27
 MUL
 RTS
CNV1 CMPA #17
 BLO CNV2
 CMPA #42
 BHI CNV2
 SUBA #16
 MUL
 RTS
CNV2 CMPA #47
 BEQ SPC
 CMPA #12
 BEQ CMA
 CMPA #14
 BEQ STP
 CLRB
 RTS
SPC LDB #222
 RTS
CMA LDB #241
 RTS
STP LDB #235
 RTS
SHFT CMPA #15
 BEQ QSM
 CMPA #2
 BEQ QTE
 CMPA #1
 BEQ EXC
 CMPA #7
 BEQ APS
 CLRB
 RTS
QSM LDB #253
 RTS
QTE LDB #247
 RTS
EXC LDB #229
 RTS
APS LDB #239
 RTS
 
PIPT LDA MAX
 BEQ PTX
 LDY #TXBF
 LDA LEN
 LDB #223
 STB A,Y
 LDB MAX
 CLR B,Y
 LDB #222
 INCA
PRLP CMPA MAX
 BHS PRT
 STB A,Y
 INCA
 BRA PRLP
PRT JSR TEXT
PTX RTS
 
TXBF RMB 21
 
MSS8 FCB 114,90,78,30,120,48,54
 FCB 84,42,222,222,138,90,84,24
 FCB 30,108,36,126,72,0
 FCB 48,6,114,222,48,6,96,96,30
 FCB 84,30,24,0
 
CHMS FCB 54,222,48,90,96,30,222
 FCB 54,120,239,114,222,18,48,54
 FCB 96,114,235
 
 ORG 1024
 PUT *
GX RMB 2
GY RMB 2
GXV RMB 1
GYV RMB 1
ACC RMB 2
DIR RMB 1
QUIT RMB 1
KTAB RMB 8
AJR RMB 25
EXR RMB 56
AGR RMB 28
AFR RMB 25
SNAP RMB 28
PBR RMB 20
RAND RMB 1
CFL RMB 1
PTR RMB 40
SHR RMB 32
RTR RMB 14
EBR RMB 28
KCNT RMB 1
NTRX RMB 1
TRXF RMB 1
VALR RMB 20
VLR2 RMB 20
TRKR RMB 8
TRKR2 RMB 8
MSR RMB 14
SCORE RMB 4
SCFL RMB 1
SR1 RMB 1
NFLP RMB 1
NGRD RMB 1
NJET RMB 1
NPNT RMB 1
PDED RMB 1
MR1 RMB 1
NJSQ RMB 1
NFSQ RMB 1
SR2 RMB 1
SR3 RMB 1
EOLF RMB 1
ATR RMB 28
LAR RMB 56
RND2 RMB 1
RND3 RMB 1
BHT RMB 1
NHTS RMB 1
BDED RMB 1
BGTR RMB 1
MR2 RMB 1
INBF RMB 1
JFLG RMB 1
MR3 RMB 1
SHFL RMB 1
LEN RMB 1
MAX RMB 1
LSCH RMB 1
CHFL RMB 1
 
 ORG $3BA2
 PUT *
 
BGR RMB 26
PRM FCB 0,0,4,0,0,0,0,7,2,2,2,0
 FCB 4,1,1,0,5,10
LIVES RMB 1
 
 
