 ;rotabb BY S.ORCHARD <TEXT #13>
 
 ORG $683E
 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
HSTB EQU $67E3
TPOS EQU $67EA
SCPOS EQU $67ED
OFF EQU 3072-24576
OFF2 EQU 1536-24576
 
LETS LDY #LAR
 LDA #6
 STA COUNT+1
 LDU #$65C6
 STU GR+1
 LEAS -1,S
LTLP LDA #-1
 STA ,S
 LDA 6,Y
 BEQ LTLPE
 BPL NDISP
GR LDU #0
 JSR $3C0D
NDISP LDA #-1
 STA 6,Y
 LDX ,Y
 LDA GXV
 LEAX A,X
 LDD 4,Y
 LEAX A,X
 STX ,Y
 CMPX #32
 BLT UN
 CMPX #5631
 BLT VER
UN CLR ,S
VER LDX 2,Y
 LDA GYV
 LEAX A,X
 LEAX B,X
 STX 2,Y
 CMPX #32
 BLT UN2
 CMPX #5631
 BLT OK
UN2 CLR ,S
OK JSR $3DE1
 LDA ,S
 BNE LTLPE
 LDA #1
 STA 6,Y
LTLPE LEAY 7,Y
 LDU GR+1
 LEAU 64,U
 CMPU #$6706
 BNE STR
 LDU #$66C6
STR STU GR+1
 DEC COUNT+1
 BNE LTLP
 PULS A,PC
 
MSSD FCB 5,66,90,126,42,6,222
 FCB 114,90,36,120,138,6,108,30
 FCB 0,6,96,108,30,114,30,84,120
 FCB 114,235,235,235,235,0,0
 
ILTR FDB OFF2+20480,OFF+20480
 FCB -64,-64,1
 FDB OFF2+16896,OFF+16384
 FCB -32,-32,1
 FDB OFF2+13312,OFF+12288
 FCB 0,0,1
 FDB OFF2+9728,OFF+8192
 FCB 32,32,1
 FDB OFF2+6144,OFF+4096
 FCB 64,64,1
 FDB OFF2+2560,OFF
 FCB 96,96,1
 
TSC LDX #0
 STX GX
 STX GY
 LDD #$6060
 STD GXV
 LDA #100
 STA MR1
 LDX #ILTR
 LDY #LAR
 LDB #21
ILP LDU ,X++
 STU ,Y++
 DECB
 BNE ILP
MTLP JSR BACK
 JSR LETS
 LDY #MSSD
 LDU #8160
 JSR STEXT
 LDA GXV
 CMPA #32
 BNE NYT3
 LDU #9600
 LDY #MSSE
 JSR STEXT
 DEC MR1
 BEQ TIN
NYT3 LDD GXV
 LDX GX
 LEAX A,X
 STX GX
 LDX GY
 LEAX B,X
 STX GY
 LDX LAR+2
 CMPX #3072
 BNE NYT
 LDU #$C0A0
 LDX #LAR
 LDB #6
NVLP STU 4,X
 LEAX 7,X
 DECB
 BNE NVLP
 LDD #$4040
 STD GXV
NYT LDA GXV
 CMPA #64
 BNE NYT2
 LDX LAR+2
 CMPX #1536
 BNE NYT2
 LDU #$E0E0
 LDX #LAR
 LDB #6
NVLP2 STU 4,X
 LEAX 7,X
 DECB
 BNE NVLP2
 LDD #$2020
 STD GXV
NYT2 JSR $3E0E
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 JSR GTCH
 LBEQ MTLP
 BRA OUT
TIN LDX #11856
 STX SCPOS
 LDX #0
 STX GY
 LDX #$631D
 STX TPOS
 LDA #1
 STA TBFL
TLP JSR BACK
 LDX GX
 LEAX 32,X
 STX GX
 JSR HSTB
 LDB TBFL
 LBEQ TSC
 ANDCC #255-16
 SYNC
 ORCC #16
 JSR BUFF
 JSR GTCH
 BEQ TLP
OUT RTS
 
MSSE FCB 4,247,108,30,132,30,84
 FCB 42,30,222,90,36,222,120,48
 FCB 30,0,2,6,72,54,30,84,222,12
 FCB 90,84,42,90,222,12,30,6,114
 FCB 120,222,54,84,0,4,120,48,30
 FCB 222,18,108,54,114,114,222
 FCB 18,108,90,114,114,150,0,4
 FCB 72,54,84,30,114,222,24,54
 FCB 78,30,84,114,54,90,84,247,0
 FCB 1,0,1,0,3,12,150,222,114
 FCB 120,30,138,6,108,120,222
 FCB 90,108,18,48,6,108,24,0,1,0
 FCB 1,0,6,48,54,42,48,222,114
 FCB 18,90,108,30,114,0,7,18,90
 FCB 78,54,84,42,222,126,96,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
 
 
 
 
 
