 ;rotabb BY S.ORCHARD <TEXT #8>
 
 ORG $5395
 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 JSR MOVE
 JSR SND
 LDY #MID
 JSR RAD2
 JSR RAD
 JSR MSLG
 JSR FRT
 JSR FSH
 JSR FEB
 JSR FAT
 LDA INBF
 BEQ GN1
 DEC INBF
 BNE GN1
 JSR INBG
GN1 LDA BGTR
 BNE TNOK
TOK JSR TRAK
TNOK JSR DSCR
 JSR GNR2
 LDA NTRX
 BEQ NXT1
 COM TRXF
 LBEQ NXT2
 LDY #SMID
 JSR FEX
 CLR 4,U
 CLR 5,U
 DEC NTRX
 BNE NXT1
 LDA #134
 STA PDED
 STA MR3
 LDA LIVES
 ADDA #$99
 DAA
 STA LIVES
 BNE NXT1
 LDA #1
 STA QUIT
NXT1 LDA PDED
 BEQ NXT2
 CLRB
 DEC PDED
 BNE NXT1B
 LDB EOLF
 BEQ NXT1B
 LDB #20
 STB INBF
 CLRB
 STB BGR+10
 STB BGR+15
 STB BGR+20
 STB BGR+25
NXT1B STB FSH+3
 STB FRT+3
 STB FEB+3
 STB FAT+3
 CMPA #128
 BEQ BANG
 CMPA #1
 BNE NXT2
 JSR WAIT
 BRA NXT2
BANG LDY #SMID
 LDD GXV
 NEGA
 NEGB
 ASRA
 ASRB
 STD TEMP
 JSR BOOM
NXT2 LDA NFSQ
 BEQ NXTA
 LDA NFLP
 BNE NXTA
IFSC LDA #$10
 STA U22
 ADDA #$10
 STA IFSC+1
 JSR UPSC
IFSC2 LDA #168
 STA MSS1
 ADDA #6
 STA IFSC2+1
 LDA #30
 STA MR1
 DEC NFSQ
 BEQ NXTA
 JSR GCRD
 LDX ,Y
 LDU 2,Y
 JSR FST
 LDA #5
 STA NFLP
NXTA LDA NJSQ
 BEQ NXTB
 LDA NJET
 BNE NXTB
IJSC LDA #$20
 STA U22
 ADDA #$20
 STA IJSC+1
 JSR UPSC
IJSC2 LDA #174
 STA MSS1
 ADDA #12
 STA IJSC2+1
 LDA #30
 STA MR1
 DEC NJSQ
 BEQ NXTB
 JSR GCRD
 LDX ,Y
 LDD 2,Y
 JSR JST
 LDA #5
 STA NJET
NXTB LDA NGRD
 BNE NXTC
 INC NGRD
 LDA #$10
 STA U22
 JSR UPSC
 LDA #168
 STA MSS1
 LDA #30
 STA MR1
NXTC LDA NPNT
 BNE NXT3
 INC NPNT
 LDA #$50
 STA U22
 JSR UPSC
 LDA #192
 STA MSS1
 LDA #50
 STA MR1
 COM EOLF
 LDA #20
 STA INBF
NXT3 LDA EOLF
 BEQ NXT4
 CLRB
 STB FSH+3
 STB FEB+3
 STB FRT+3
 STB FAT+3
 LDA PDED
 BEQ NXT3B
 LDA TRKR+2
 BPL NXT4
 STB TRKR+3
 STB TRKR+7
 BRA NXT4
NXT3B LDA INBF
 BNE NXT4
 JSR BGHD
NXT4 RTS
 
MSGS LDA MR1
 BEQ M2
 DEC MR1
 LDU #8259
 LDY #MSS1
 JSR TEXT
M2 LDA MR2
 BEQ M3
 DEC MR2
 LDU #8836
 LDY #MSS2
 JSR TEXT
 LDU #9030
 LDY #MSS3
 JSR TEXT
M3 LDA MR3
 BEQ M4
 DEC MR3
 BMI M4
 LDB LIVES
 BEQ M3A
 CMPB #1
 BEQ M3B
 LDU #8544+8
 ANDB #15
 LDA #6
 MUL
 ADDB #162
 STB MSS5+1
 LDB LIVES
 LSRB
 LSRB
 LSRB
 LSRB
 LDA #6
 MUL
 BNE NZR
 LDB #60
 LEAU -1,U
NZR ADDB #162
 STB MSS5
 LDY #MSS5
TXT JSR TEXT
 BRA M4
M3A LDY #MSS6
 LDU #8544+5
 BRA TXT
M3B LDY #MSS7
 LDU #8544+4
 BRA TXT
M4 RTS
 
GTCH JSR RDKYS
 LDA KTAB
 ANDA #64
 STA SHFL
 CLRA
KL LEAX -1,X
 LDB #1
KM BITB ,X
 BEQ FNDK
 ADDA #8
 LSLB
 BPL KM
 SUBA #55
 CMPA #8
 BLO KL
 RTS
FNDK ANDCC #251
 RTS
 
MID FDB 3071,3071
SMID FDB 2816,2816
 
MSS5 FCB 222,162,222,72,54,132
 FCB 30,114,0
MSS6 FCB 84,90,222,72,54,132,30
 FCB 114,222,72,30,36,120,229,0
MSS7 FCB 168,222,72,54,36,30,222
 FCB 108,30,78,6,54,84,54,84,42
 FCB 0
 
 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
 
 ORG $3BA2
 PUT *
 
BGR RMB 26
PRM FCB 0,0,0,0,0,0,0,0,0,0,0,0
 FCB 0,0,0,0,5,10
LIVES RMB 1
 
 
 
