 ;rotabb BY S.ORCHARD <TEXT #11>
 
 ORG $6118
 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 LDX PPTR
 LDU #PRM
 LDB #18
PRLP LDA ,X+
 STA ,U+
 DECB
 BNE PRLP
 LDA #32
 STA SHFL
 LDB ,X+
 STB $5459
 LDA #16
 MUL
 JSR $573F
 STB $5466
 LDB ,X+
 STB $5493
 LDA #16
 MUL
 JSR $573F
 STB $54A0
 LDD ,X++
 STD ELSC1
 LDD ,X++
 STD $5361
 LDD ,X++
 STD TXT+2
 LDD ,X++
 STD BGFX+1
 STX PPTR
 LDU #$4BF0
BGFX LDX #0
 LDD #$2020
 STD COUNT
CLP1 LDD ,X++
 STD ,U++
 DEC COUNT
 BNE CLP1
 LEAX -64,X
CLP2 LDA #16
 STA COUNT
 LDD ,X++
CLP3 ASRA
 RORB
 ROL 1,U
 ROL ,U
 DEC COUNT
 BNE CLP3
 LEAU 2,U
 DEC COUNT+1
 BNE CLP2
 LEAX -32,X
 BSR UPDN
 LDX #$4C50
UPDN LDD #$1010
 STD COUNT
CLP4 LDD ,--X
 STD ,U++
 DEC COUNT
 BNE CLP4
 LEAX 64,X
CLP5 LDD ,--X
 STD ,U++
 DEC COUNT+1
 BNE CLP5
 RTS
 
HEDR LDX #0
 STX GX
 STX GY
 LDA #100
 STA GXV
GBLP JSR BACK
FRM LDX #$6118-512
 LDY #8066
 LDB #64
SPLP LDU ,X
 STU ,Y
 LDU 2,X
 STU 2,Y
 LDU 4,X
 STU 4,Y
 LDU 6,X
 STU 6,Y
 LEAX 8,X
 LEAY 24,Y
 DECB
 BNE SPLP
 LEAX -1024,X
 CMPX #$5918-512
 BNE STR
 LDX #$6118-512
STR STX FRM+1
FRM2 LDU #13056
 LDY #FLPC
 JSR $3BDC
 LEAU 2,U
 CMPU #13312
 BNE STR2
 LDU #13056
STR2 STU FRM2+1
 LDY #JETC
 LDU #13376
 JSR $3BDC
 LDU #8193
 LDY #$5361
 JSR TEXT
 LDY #MSSB
 LDU #8448
 BSR STEXT
 LDU #10563
 JSR TEXT
 LDA #3
 STA COUNT
 LDU #10856
 LDA $5466
TLP2 LDY #$534B
 STA ,Y
 JSR TEXT
 LEAU 188,U
 LDA -5,Y
 ADDA #6
 DEC COUNT
 BNE TLP2
 LEAY -5,Y
 LDU #10960
 LDA $54A0
 STA ,Y
 JSR TEXT
 LEAU 188,U
 LEAY -5,Y
 LDA ,Y
 ADDA #12
 STA ,Y
 JSR TEXT
TXT LDY #0
 LDU #9792
 BSR STEXT
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 JSR $3E0E
 DEC GXV
 LBNE GBLP
 JMP LEVEL
 
STEXT STU TEMP
 LDA ,Y+
 BEQ EX2
 LEAU A,U
 JSR TEXT
 LDU TEMP
 LEAU 192,U
 CMPU #11712
 BLO STEXT
EX2 RTS
 
NOISE LDA #25
 STA SR1
 LDA RAND
 LDB RND2
SCLP LDX #8066
 LDU #RND3
 LDY #3836
NSLP STD ,X++
 ADDD #$F1F
 LSR ,U
 RORA
 ROLB
 ROL ,U
 LEAY -2,Y
 BNE NSLP
 PSHS D
 LDU #9802
 LDY #MSSA
 JSR TEXT
 LDU #9994
 JSR TEXT
 JSR BUFF
 PULS D
 DEC SR1
 BNE SCLP
 RTS
 
FLPC FDB 1280,4352
JETC FDB 3328,4352
 
MSSA FCB 42,6,78,30,0
 FCB 90,132,30,108,0
MSSB FCB 15,90,84,0,11,18,90,78
 FCB 96,72,30,120,54,90,84,0
 FCB 12,90,36,222,120,48,54,114
 FCB 0,13,72,30,132,30,72,0,0
 FCB 12,90,84,126,114,222,96,90
 FCB 54,84,120,114,235,235,235,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
 
 ORG $3BA2
 PUT *
 
BGR RMB 26
PRM RMB 18
LIVES RMB 1
SCR RMB 4
JOYF RMB 1
PPTR RMB 2
LEVL RMB 1
 
 
