 ; rotabb <S.ORCHARD>
 ; <TEXT #4>
 
 ORG $4500
 PUT *
 
 SETDP 0
 
TEMP EQU 251
COUNT EQU 253
 
PBLS EQU $3A98
BACK EQU $3B0B
BUFF EQU $3E76
SP16 EQU $3C0D
CALC EQU $3C89
MOVE EQU $3C9C
EXPL EQU $3CE1
BCOL EQU $3D81
FEX EQU $3DBF
RAD2 EQU $3DE1
RAD EQU $3E0E
TAB EQU $3E2E
MULTAB EQU $3E4E
ANDTAB EQU $3E56
BDTB EQU $3E5E
RTAB EQU $3E6E
 
SHIP EQU $3F2B
EBLS EQU $3F5F
FSH EQU $402E
FRT EQU $406F
FEB EQU $40C3
BCTB EQU $4109
EINT EQU $4129
BINT EQU $4159
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
ADTAB EQU $434D
LNTAB EQU $4375
MISL EQU $438D
MCOL EQU $44B4
MST EQU $44F0
 
 
JETS LDY #AJR
 LDA #-5
 STA COUNT+1
 LEAS -1,S
AJLP LDA #-1
 STA ,S
 LDA 4,Y
 BEQ AJLPE
 BPL NDISP
 LDU #13376
 JSR SP16
 JSR BCOL
 JSR MCOL
 LDA CFL
 BEQ NDISP
 CLR 4,Y
 JSR FEX
 LDD #192
 STD 4,U
 STB SR1
 DEC NJET
 LDA #1
 STA U2+1
 JSR UPSC
 BRA AJLPE
NDISP LDA #-1
 STA 4,Y
 LDX ,Y
 LDA GXV
 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 -128,X
 STX 2,Y
 CMPX #32
 BLT UN2
 CMPX #5631
 BLT OK
UN2 CLR ,S
OK JSR RAD2
 LDA ,S
 BNE AJLPE
 LDA #1
 STA 4,Y
AJLPE LDA COUNT+1
 LDX #VALR+5
 LDB 4,Y
 STB A,X
 LEAY 5,Y
 INC COUNT+1
 BMI AJLP
 PULS A,PC
 
GRND LDY #AGR
 LDA #-5
 STA COUNT+1
 LEAS -1,S
AGLP LDA #255
 STA ,S
 LDA 4,Y
 BEQ AGLPE
 BPL NDSP2
 LDU #13312
 JSR SP16
 JSR MCOL
 LDA CFL
 BEQ NDSP2
 JSR FEX
 CLR 4,Y
 CLR 4,U
 CLR 5,U
 LDA #192
 STA SR1
 DEC NGRD
 LDA #1
 STA U2+1
 JSR UPSC
 BRA AGLPE
NDSP2 LDA #-1
 STA 4,Y
 LDX ,Y
 LDD GXV
 LEAX A,X
 LEAX 32,X
 STX ,Y
 CMPX #32
 BLT UN3
 CMPX #5631
 BLT VER2
UN3 CLR ,S
VER2 LDX 2,Y
 LEAX B,X
 STX 2,Y
 CMPX #32
 BLT UN4
 CMPX #5631
 BLT OK2
UN4 CLR ,S
OK2 JSR RAD2
 LDA ,S
 BNE AGLPE
 LDA #1
 STA 4,Y
AGLPE LDA COUNT+1
 LDX #VALR+18
 LDB 4,Y
 STB A,X
 LEAY 5,Y
 INC COUNT+1
 BMI AGLP
 PULS A,PC
 
FLPS LDY #AFR
 LEAS -1,S
AFLP LDA #255
 STA ,S
 LDA 4,Y
 BEQ AFLPE
 BPL NDSP3
FR LDU #13056
 JSR SP16
 JSR BCOL
 LDA CFL
 BEQ NDSP3
 JSR FEX
 CLR 4,Y
 LDD #$30D0
 STD 4,U
 LDA #192
 STA SR1
 DEC NFLP
 LDA #$50
 STA U1+1
 JSR UPSC
 BRA AFLPE
NDSP3 LDA #-1
 STA 4,Y
 LDX ,Y
 LDA GXV
 LEAX A,X
 LEAX 96,X
 STX ,Y
 CMPX #32
 BLT UN5
 CMPX #5631
 BLT VER3
UN5 CLR ,S
VER3 LDX 2,Y
 LDA GYV
 LEAX A,X
 LEAX -96,X
 STX 2,Y
 CMPX #32
 BLT UN6
 CMPX #5631
 BLT OK3
UN6 CLR ,S
OK3 JSR RAD2
 LDA ,S
 BNE AFLPE
 LDA #1
 STA 4,Y
AFLPE LEAY 5,Y
 CMPY #AFR+25
 BLO AFLP
 LDX FR+1
 LEAX 64,X
 CMPX #13312
 BNE FROK
 LDX #13056
FROK STX FR+1
 PULS A,PC
 
PNTS LDY #PTR
 LDA #-8
 STA COUNT+1
 LEAS -1,S
PTLP LDA #255
 STA ,S
 LDA 4,Y
 BEQ PTLPE
 BPL NDSP4
 LDU #14742
 JSR SP16
 JSR MCOL
 LDA CFL
 BEQ NDSP4
 JSR FEX
 CLR 4,Y
 CLR 4,U
 CLR 5,U
 LDA #248
 STA SR1
 DEC NPNT
 LDA #2
 STA U2+1
 JSR UPSC
 BRA PTLPE
NDSP4 LDA #-1
 STA 4,Y
 LDX ,Y
 LDD GXV
 LEAX A,X
 STX ,Y
 CMPX #32
 BLT UN7
 CMPX #5631
 BLT VER4
UN7 CLR ,S
VER4 LDX 2,Y
 LEAX B,X
 STX 2,Y
 CMPX #32
 BLT UN8
 CMPX #5631
 BLT OK4
UN8 CLR ,S
OK4 JSR RAD2
 LDA ,S
 BNE PTLPE
 LDA #1
 STA 4,Y
PTLPE LDA COUNT+1
 LDX #VALR+13
 LDB 4,Y
 STB A,X
 LEAY 5,Y
 INC COUNT+1
 BMI PTLP
 PULS A,PC
 
SHTS LDY #SHR
SHLP LDA 7,Y
 BEQ SHLPE
 LDU #14230
 LDA 6,Y
 CLRB
 LSRA
 RORB
 LSRA
 RORB
 LEAU D,U
 JSR SP16
 JSR BCOL
 LDA CFL
 BEQ OK5
 JSR FEX
 CLR 7,Y
 LDD 4,Y
 STD 4,U
 LDA #128
 STA SR1
 DEC FSH+1
 LDA #$25
 STA U1+1
 JSR UPSC
 BRA SHLPE
OK5 LDX ,Y
 LDD GXV
 LEAX A,X
 LDA 4,Y
 LEAX A,X
 STX ,Y
 CMPX #32
 BLT UN9
 CMPX #5631
 BLT VER5
UN9 CLR 7,Y
 DEC FSH+1
 BRA SHLPE
VER5 LDX 2,Y
 LEAX B,X
 LDA 5,Y
 LEAX A,X
 STX 2,Y
 CMPX #32
 BLT UN9
 CMPX #5631
 BGT UN9
SHLPE LEAY 8,Y
 CMPY #SHR+32
 BLO SHLP
 RTS
 
ROTS LDY #RTR
RTLP LDA 6,Y
 LBEQ RTLPE
RFR LDU #13440
 JSR SP16
 JSR BCOL
 JSR MCOL
 LDA CFL
 BEQ OK6
 JSR FEX
 CLR 6,Y
 LDD 4,Y
 STD 4,U
 DEC FRT+1
 LDA #192
 STA SR1
 LDA #$50
 STA U1+1
 JSR UPSC
 BRA RTLPE
OK6 LDX ,Y
 LDD GXV
 LEAX A,X
 LDA 4,Y
 LEAX A,X
 LEAX A,X
 STX ,Y
 CMPX #32
 BLT UNB
 CMPX #5631
 BLT VER6
UNB CLR 6,Y
 DEC FRT+1
 BRA RTLPE
VER6 LDX 2,Y
 LEAX B,X
 LDA 5,Y
 LEAX A,X
 LEAX A,X
 STX 2,Y
 CMPX #32
 BLT UNB
 CMPX #5631
 BGT UNB
 LDA 6,Y
 CMPA #-2
 BEQ RTLPE
 CMPX #2616
 BLT RTLPE
 CMPX #3016
 BGT RTLPE
 LDA #-2
 STA 6,Y
 LDD GXV
 NEGA
 ASRA
 LDX ,Y
 CMPX #2816
 BLT GRT
 SUBA #64
 BRA ST2
GRT ADDA #64
ST2 NEGB
 ASRB
 STD 4,Y
RTLPE LEAY 7,Y
 CMPY #RTR+14
 LBLO RTLP
 LDX RFR+1
 LEAX 64,X
 CMPX #13696
 BLO RFROK
 LDX #13440
RFROK STX RFR+1
 LDA RTR+6
 LDB RTR+13
 STD VALR+18
 RTS
 
UPSC LDA SCORE+3
U1 ADDA #0
 DAA
 STA SCORE+3
 LDA SCORE+2
U2 ADCA #0
 DAA
 STA SCORE+2
 LDA SCORE+1
U3 ADCA #0
 DAA
 STA SCORE+1
 LDA SCORE
 ADCA #0
 DAA
 STA SCORE
 CLRA
 STA U1+1
 STA U2+1
 STA U3+1
 LDA #1
 STA SCFL
 RTS
 
DSCR LDA SCFL
 BEQ EXD
 CLR SCFL
 LDA SCORE
 LDX #$1A17
 BSR DIGS
 LDA SCORE+1
 BSR DIGS
 LDA SCORE+2
 BSR DIGS
 LDA SCORE+3
DIGS STA TEMP
 ANDA #240
 LSRA
 LSRA
 LSRA
 BSR DIG
 LDA TEMP
 ANDA #15
 LSLA
DIG LDU #14157
 LEAU A,U
 LEAU A,U
 LEAU A,U
 LDB #6
DGLP LDA ,U+
 STA ,X
 LEAX 32,X
 DECB
 BNE DGLP
 LEAX -191,X
EXD RTS
 
 
STAB FCB 255,247,239,231,223
 FCB 215,207,199
 
 
 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
EQTR RMB 2
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
 
 
