 ;rotabb BY S.ORCHARD <TEXT #12>
 
 ORG $6706
 PUT *
 
 SETDP 0
 
TEMP EQU 251
COUNT EQU 253
SEED EQU 14255
SED2 EQU 277
BACK EQU $3B0B
BUFF EQU $3E76
TEXT EQU $4F67
ELSC1 EQU $4FFE
RDKYS EQU $50A8
INTH EQU $52C3
GTCH EQU $55AA
INPT EQU $56FA
CNVT EQU $573F
PIPT EQU $578F
TXBF EQU $57B5
LEVEL EQU $57FE
DEFL EQU $6118
HEDR EQU $61AC
STEXT EQU $6281
NOISE EQU $6299
 
 
SCRS LDY #TXBF
 LDU #SCORE
 LDA #4
 STA ,-S
BLP LDB ,U
 ANDB #240
 LSRB
 LSRB
 LSRB
 LDA #3
 MUL
 ADDB #162
 STB ,Y+
 LDB ,U+
 ANDB #15
 LDA #6
 MUL
 ADDB #162
 STB ,Y+
 DEC ,S
 BNE BLP
 LEAS 1,S
 LDX #$631D
SCLP LDU #TXBF
 LEAY 6,X
 CLRB
CMLP LDA B,U
 CMPA B,Y
 BHI HI
 BLO LO
 INCB
 CMPB #8
 BNE CMLP
LO LEAX 34,X
 CMPX #$65C5
 BLO SCLP
 RTS
HI CMPX #$65A3
 BEQ DBS
 PSHS X
 LDX #$6581
CPLP LEAY 34,X
 LDB #6
CPLP2 LDA B,X
 STA B,Y
 INCB
 CMPB #31
 BNE CPLP2
 LEAX -34,X
 CMPX ,S
 BHS CPLP
 PULS X
DBS LDD ,U
 STD 6,X
 LDD 2,U
 STD 8,X
 LDD 4,U
 STD 10,X
 LDD 6,U
 STD 12,X
 PSHS X
 LDA #15
 STA MAX
 CLR LEN
GMLP JSR BACK
 LDY #MSSC
 LDU #8256
 JSR STEXT
 LDY ,S
 LEAY 1,Y
 LDU #9603
 JSR TEXT
 JSR INPT
 LDU #9798
 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 GMLP
 PULS X
 LEAX 16,X
 LDU #TXBF
 LDB LEN
 LDA #222
 STA B,U
 LDB #15
CPSC LDA ,U+
 STA ,X+
 DECB
 BNE CPSC
FHS RTS
 
HSTB LDA TBFL
 BEQ NSCT
TPOS LDY #0
SCPOS LDU #0
 JSR STEXT
 LDX SCPOS+1
 LEAX -24,X
 CMPX #7680
 BNE STR
 LDX #8256
 LDU TPOS+2
 CMPU #$65A3
 BNE DWN
 CLR TBFL
DWN LEAU 34,U
 STU TPOS+2
STR STX SCPOS+1
NSCT RTS
 
MSSC FCB 3,120,48,30,222,247,42
 FCB 30,120,222,54,84,120,90,222
 FCB 120,48,30,0,3,48,6,72,72
 FCB 222,90,36,222,36,6,78,30
 FCB 247,222,12,54,120,235,0,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
LEN RMB 1
MAX RMB 1
LSCH RMB 1
CHFL RMB 1
TBFL RMB 1
 
 ORG $3BA2
 PUT *
 
BGR RMB 26
PRM RMB 18
LIVES RMB 1
SCR RMB 4
JOYF RMB 1
PPTR RMB 2
LEVL RMB 1
 
 
 
 
