 ;rotabb BY S.ORCHARD <TEXT #10>
 
 ORG $57FE
 PUT *
 
 SETDP 0
 
TEMP EQU 251
COUNT EQU 253
SEED EQU 14255
SED2 EQU 277
PBLS EQU $3A98
BACK EQU $3B0B
BUFF EQU $3E76
SP16 EQU $3C0D
MOVE EQU $3C9C
EXPL EQU $3CE1
BCOL EQU $3D81
FEX EQU $3DBF
RAD2 EQU $3DE1
RAD EQU $3E0E
SHIP EQU $3F2B
EBLS EQU $3F5F
FSH EQU $402E
FRT EQU $406F
FEB EQU $40C3
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
MISL EQU $438D
MCOL EQU $44B4
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
KYBD EQU $48DC
GCRD EQU $494E
SP8 EQU $4960
FAT EQU $4A44
FLA EQU $4A8F
ASTD EQU $4AB0
LAST EQU $4B39
BCOL2 EQU $4BB3
B16 EQU $4D1F
BGGY EQU $4D98
INIT EQU $4E4A
BOOM EQU $4F48
TEXT EQU $4F67
ELSC1 EQU $4FFE
RDKYS EQU $50A8
FIRM EQU $5184
FRM2 EQU $5188
WAIT EQU $51B2
MSLG EQU $527D
INTH EQU $52C3
SND EQU $52C7
GNRL EQU $5395
MSGS EQU $552B
GTCH EQU $55AA
MID EQU $55CD
SMID EQU $55D1
KEYS EQU $55FE
INPT EQU $56FA
CNVT EQU $573F
PIPT EQU $578F
TXBF EQU $57B5
 
 
LEVEL JSR INIT
 LDD SED2
 STD RND2
 LDB #26
 LDX #BGR
IN3 CLR ,X+
 DECB
 BNE IN3
 LDX SCR
 STX SCORE
 LDX SCR+2
 STX SCORE+2
 LDA JOYF
 STA JFLG
 LDA #50
 STA MR3
BLP LDA DIR
 ADDA RAND
 ADDA GX+1
 EORA GY+1
 STA RAND
 RORA
 RORA
 ROR RND2
 ROR RND3
 ROR RAND
 LDD RND2
 ADDA #15
 ADDB #15
 STD RND2
 JSR BACK
 JSR PNTS
 JSR GRND
 JSR SND
 JSR GET
 LDA EOLF
 BEQ NEOL
 JSR BGGY
NEOL JSR SHTS
 JSR ROTS
 JSR FLPS
 JSR JETS
 JSR ASTD
 JSR LAST
 JSR EBLS
 JSR COL
 LDA CFL
 BEQ NHIT
 LDA CHFL
 BNE NHIT
 LDA NTRX
 ORA PDED
 BNE NHIT
 LDA #5
 STA NTRX
 LDA #30
 STA SR2
NHIT JSR PBLS
 JSR MISL
 JSR EXPL
 JSR LKLN
 LDA PDED
 BEQ NDED
 BPL DED
NDED JSR SHIP
DED JSR MSGS
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 JSR GNRL
 LDA PDED
 CMPA #90
 BNE N90
 LDD #$520
 STA PDED
 STB MR3
N90 JSR KEYS
 LDA QUIT
 LBEQ BLP
 CMPA #3
 BEQ Q2
 LDB LIVES
 BNE Q3
 LDB PDED
 CMPB #2
 BLS Q2
Q3 CMPA #2
 LBNE BLP
 LDA MR2
 LBNE BLP
 LDA PDED
 LBNE BLP
Q2 LDA RAND
 STA SEED
 LDD RND2
 STD SED2
 LDX SCORE
 STX SCR
 LDX SCORE+2
 STX SCR+2
 LDA JFLG
 STA JOYF
 RTS
 
 
 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,0,2,0,5,10
LIVES RMB 1
SCR RMB 4
JOYF RMB 1
 
 
 
