 ;rotabb BY S.ORCHARD <TEXT #14>
 
 ORG $7042
 PUT *
 
 SETDP 0
 
TEMP EQU 251
COUNT EQU 253
 
BACK EQU $3B0B
BUFF EQU $3E76
TEXT EQU $4F67
RDKYS EQU $50A8
INTH EQU $52C3
GTCH EQU $55AA
LEVEL EQU $57FE
DEFL EQU $6118
HEDR EQU $61AC
STEXT EQU $6281
NOISE EQU $6299
SCRS EQU $6706
TSC EQU $6909
TIN EQU $69B2
MSSF EQU $6A6D
MSSG EQU $6AC7
MSSH EQU $6AD0
MSSI EQU $6AD9
LOAD EQU $6DC2
BKGR EQU $6E30
 
 ORCC #80
 LDX #INTH
 STX 269
 LDA $FF23
 ORA #8
 STA $FF23
 LDA $FF01
 ANDA #247
 STA $FF01
 LDA $FF03
 ANDA #247
 STA $FF03
 CLR JOYF
 
MAIN JSR TSC
 CMPA #50
 BEQ EXIT
MAIN2 BSR MENU
 JSR TIN
 CMPA #50
 BEQ EXIT
 BRA MAIN2
EXIT LDX #$9D3D
 STX 269
 ANDCC #255-80
 RTS
 
MENU JSR GTCH
 BNE MENU
MNLP JSR BKGR
 LDY #MSSF
 LDU #9216
 JSR STEXT
 LDA JOYF
 BEQ KBS
 LDY #MSSH
 BRA JSS
KBS LDY #MSSG
JSS LDU #11528
 JSR TEXT
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 JSR GTCH
 BEQ MNLP
 CMPA #1
 BEQ GAME
 CMPA #2
 BEQ SKB
 CMPA #3
 BEQ SJS
 CMPA #4
 BNE NIN
 JSR $6E46
 BRA MENU
NIN CMPA #5
 LBEQ LOAD
 CMPA #6
 BNE WK2
 JSR $6E65
 BRA MENU
WK2 JSR GTCH
 BNE WK2
 RTS
SKB CLR JOYF
 BRA MNLP
SJS LDA #1
 STA JOYF
 BRA MNLP
 
GAME LDA #3
 STA LIVES
 LDX #0
 STX SCR
 STX SCR+2
 STX $585
 STX $587
 LDX #$7200
 STX PPTR
 LDA #1
 STA LEVL
 STA $589
 JSR $488F
CONT JSR DEFL
 LDX PPTR
 LDX -2,X
 LEAX 64,X
 LDU #$4C91
 LDB #8
 STB ,-S
LFLP LDA ,X+
 STA ,U++
 LDB #8
RGLP LSRA
 ROL 61,U
 DECB
 BNE RGLP
 DEC ,S
 BNE LFLP
 LEAS 1,S
 JSR HEDR
 LDA QUIT
 CMPA #3
 BNE NQT
 LDA $5F8
 BEQ SCZ
NQT LDA LIVES
 BEQ GMVR
 ADDA #1
 DAA
 STA LIVES
 DEC LEVL
 BNE CONT
WK3 JSR GTCH
 BNE WK3
FCHL JSR BKGR
 LDY #$6EAF
 LDU #8064
 JSR STEXT
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 JSR GTCH
 BEQ FCHL
 BRA SCZ
GMVR JSR NOISE
SCZ JSR SCRS
WK1 JSR GTCH
 BNE WK1
 RTS
 
MSSZ FDB 0,0
 
 ORG $7200
 PUT *
 FCB 3,0,0,0,2,0,2,0,2,1,0,0
 FCB 3,0,1,0,5,8,$20,$30
 FDB $80,$DED2,MSSZ,$7400
 
 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
 ORG $3BA2
 PUT *
BGR RMB 26
PRM RMB 18
LIVES RMB 1
SCR RMB 4
JOYF RMB 1
PPTR RMB 2
LEVL RMB 1
 
 
 
 
 
