487 lines
12 KiB
Plaintext
487 lines
12 KiB
Plaintext
^9 LDA RAD2YH
|
|
SEC
|
|
SBC OCEAN+10
|
|
STA TEMP
|
|
BPL ROSY
|
|
LDA RAD2Y
|
|
ASL
|
|
LDA TEMP
|
|
ROL
|
|
EOR #$FF
|
|
STA TN2
|
|
BEQ ROSY
|
|
LDA #65
|
|
STA YVAL
|
|
JSR RYCAL
|
|
JSR RADEV
|
|
RADOC LDA RAD1Y
|
|
SEC
|
|
SBC #$24
|
|
STA TEMP
|
|
LDA RAD1YH
|
|
SBC OCEAN+6
|
|
BPL ROSY
|
|
LSR
|
|
LDA TEMP
|
|
ROR
|
|
EOR #$FF
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA TN2
|
|
BEQ ROSY
|
|
LDA #$01
|
|
STA YVAL
|
|
JSR RYCAL
|
|
JSR RADEV
|
|
ROSY LDA RAD2YH
|
|
SEC
|
|
SBC OCEAN+11
|
|
STA TEMP
|
|
BMI ROEX
|
|
LDA RAD2Y
|
|
ASL
|
|
LDA TEMP
|
|
ROL
|
|
STA TN2
|
|
BEQ ROEX
|
|
LDA #$3F
|
|
JSR ROSFIN
|
|
ROTSY LDA RAD1YH
|
|
SEC
|
|
SBC OCEAN+7
|
|
BMI ROEX
|
|
LSR
|
|
LDA RAD1Y
|
|
ROR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA TN2
|
|
BEQ ROEX
|
|
LDA #$1F
|
|
JSR ROSFIN
|
|
ROEX RTS
|
|
ROSFIN SEC
|
|
SBC TN2
|
|
ASL
|
|
ORA #$01
|
|
STA YVAL
|
|
JSR RYCAL
|
|
JSR RADEV
|
|
RTS
|
|
RADEV LDA YLO
|
|
CLC
|
|
ADC #31
|
|
STA YLO
|
|
^2 LDY #$08
|
|
LDA #$EA
|
|
STA (YLO),Y
|
|
DEY
|
|
REVLPO LDA #$D5
|
|
STA (YLO),Y
|
|
DEY
|
|
BEQ INOSEX
|
|
LDA #$AA
|
|
STA (YLO),Y
|
|
DEY
|
|
JMP REVLPO
|
|
INOSEX LDA #$AB
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
LDY #$08
|
|
LDA #$60
|
|
STA (YLO),Y
|
|
DEY
|
|
LDA #$00
|
|
RODLPO STA (YLO),Y
|
|
DEY
|
|
BNE RODLPO
|
|
LDA #$03
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
DEC TN2
|
|
BNE <2
|
|
RTS
|
|
RADXO JSR >1
|
|
JSR <9
|
|
RTS
|
|
^1 LDA RAD2X
|
|
SEC
|
|
SBC #$18
|
|
STA TEMP
|
|
LDA RAD2XH
|
|
SBC OCEAN+8
|
|
BPL >9
|
|
ASL TEMP
|
|
ROL
|
|
ASL TEMP
|
|
ROL
|
|
EOR #$FF
|
|
AND #$FE
|
|
STA XVAL
|
|
BEQ >9
|
|
LDA #65
|
|
STA YVAL
|
|
JSR XMUS
|
|
JSR RYCAL
|
|
JSR LFTOCN
|
|
LDA RAD1X
|
|
SEC
|
|
SBC #$18
|
|
STA TEMP
|
|
LDA RAD1XH
|
|
SBC OCEAN+4
|
|
BPL >9
|
|
LSR
|
|
ROR TEMP
|
|
LDA TEMP
|
|
EOR #$FF
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$FE
|
|
STA XVAL
|
|
BEQ >9
|
|
LDA #$01
|
|
STA YVAL
|
|
JSR XMUS
|
|
JSR RYCAL
|
|
JSR LFTOCN
|
|
^9 JMP >1
|
|
LFTOCN LDA YLO
|
|
CLC
|
|
ADC #31
|
|
STA YLO
|
|
LDA #31
|
|
STA TN1
|
|
DEC XHI
|
|
JSR FNDLNE
|
|
JSR COMLNE
|
|
LDY #$00
|
|
LDX XHI
|
|
BEQ >6
|
|
BMI >4
|
|
JMP >5
|
|
^6 LDA #$AB
|
|
STA (YLO),Y
|
|
INY
|
|
LDA (YLO),Y
|
|
AND TN2
|
|
ORA TEMP
|
|
STA (YLO),Y
|
|
DEY
|
|
JSR DLIN
|
|
LDA #$03
|
|
STA (YLO),Y
|
|
INY
|
|
LDA (YLO),Y
|
|
AND TN2
|
|
STA (YLO),Y
|
|
DEY
|
|
JSR DLIN
|
|
DEC TN1
|
|
BNE <6
|
|
RTS
|
|
^4 LDA (YLO),Y
|
|
AND TN2
|
|
ORA TEMP
|
|
ORA #$03
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
LDA (YLO),Y
|
|
AND TN2
|
|
ORA #$03
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
DEC TN1
|
|
BNE <4
|
|
RTS
|
|
^5 LDY #$00
|
|
LDX XHI
|
|
LDA #$AB
|
|
STA (YLO),Y
|
|
INY
|
|
^8 LDA #$D5
|
|
STA (YLO),Y
|
|
INY
|
|
DEX
|
|
BEQ >7
|
|
LDA #$AA
|
|
STA (YLO),Y
|
|
INY
|
|
DEX
|
|
BNE <8
|
|
^7 LDA (YLO),Y
|
|
AND TN2
|
|
ORA TEMP
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
LDY #$00
|
|
LDX XHI
|
|
LDA #$03
|
|
STA (YLO),Y
|
|
INY
|
|
LDA #$00
|
|
^7 STA (YLO),Y
|
|
INY
|
|
DEX
|
|
BNE <7
|
|
LDA (YLO),Y
|
|
AND TN2
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
DEC TN1
|
|
BNE <5
|
|
RTS
|
|
^1 LDA RAD2X
|
|
STA TN2
|
|
LDA RAD2XH
|
|
SEC
|
|
SBC OCEAN+9
|
|
BMI >9
|
|
ASL TN2
|
|
ROL
|
|
ASL TN2
|
|
ROL
|
|
ORA #$01
|
|
STA XVAL
|
|
BEQ >9
|
|
LDA #65
|
|
STA YVAL
|
|
JSR XMUS
|
|
JSR RYCAL
|
|
JSR RGTOCN
|
|
LDA RAD1X
|
|
SEC
|
|
SBC #$18
|
|
STA TEMP
|
|
LDA RAD1XH
|
|
SBC OCEAN+5
|
|
BMI >9
|
|
LSR
|
|
LDA TEMP
|
|
ROR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
ORA #$01
|
|
STA XVAL
|
|
BEQ >9
|
|
LDA #$01
|
|
STA YVAL
|
|
JSR XMUS
|
|
JSR RYCAL
|
|
JSR RGTOCN
|
|
^9 RTS
|
|
RGTOCN LDA YLO
|
|
CLC
|
|
ADC #31
|
|
STA YLO
|
|
LDA #31
|
|
STA TN1
|
|
DEC XHI
|
|
LDA #$06
|
|
SEC
|
|
SBC XLO
|
|
STA XLO
|
|
JSR FNDLNE
|
|
JSR REGLNE
|
|
LDY #$08
|
|
LDX XHI
|
|
BEQ >6
|
|
BMI >4
|
|
JMP >5
|
|
^6 LDA #$EA
|
|
STA (YLO),Y
|
|
DEY
|
|
LDA (YLO),Y
|
|
AND TN2
|
|
ORA TEMP
|
|
STA (YLO),Y
|
|
INY
|
|
JSR DLIN
|
|
LDA #$60
|
|
STA (YLO),Y
|
|
DEY
|
|
LDA TN2
|
|
EOR #$FF
|
|
AND (YLO),Y
|
|
STA (YLO),Y
|
|
INY
|
|
JSR DLIN
|
|
DEC TN1
|
|
BNE <6
|
|
RTS
|
|
^4 LDA (YLO),Y
|
|
AND TN2
|
|
ORA TEMP
|
|
ORA #$60
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
LDA TN2
|
|
EOR #$FF
|
|
AND (YLO),Y
|
|
ORA #$60
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
DEC TN1
|
|
BNE <4
|
|
RTS
|
|
^5 LDY #$08
|
|
LDX XHI
|
|
LDA #$EA
|
|
STA (YLO),Y
|
|
DEY
|
|
^8 LDA #$D5
|
|
STA (YLO),Y
|
|
DEY
|
|
DEX
|
|
BEQ >7
|
|
LDA #$AA
|
|
STA (YLO),Y
|
|
DEY
|
|
DEX
|
|
BNE <8
|
|
^7 LDA (YLO),Y
|
|
AND TN2
|
|
ORA TEMP
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
LDY #$08
|
|
LDX XHI
|
|
LDA #$60
|
|
STA (YLO),Y
|
|
DEY
|
|
LDA #$00
|
|
^7 STA (YLO),Y
|
|
DEY
|
|
DEX
|
|
BNE <7
|
|
LDA TN2
|
|
EOR #$FF
|
|
AND (YLO),Y
|
|
STA (YLO),Y
|
|
JSR DLIN
|
|
DEC TN1
|
|
BNE <5
|
|
RTS
|
|
LOOKT HEX 0D000F00030100000000090B00070005
|
|
PLATAB HEX 6060000F0A0E020E0FC160080F0A0E020E0F
|
|
BLOOD HEX 0000000000000000
|
|
BLOOD2 HEX 0000000000000000
|
|
INITAL HEX 2060000F0A0E020E0FE160080F0A0E020E0F00000000000000000000000000000000
|
|
H2SIZE HEX 0C0C0C060808060A
|
|
HIGH HEX 001010503040
|
|
OCEAN HEX 708E748C708D748B7080747E0E0D120E
|
|
FLOX HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
FLOY HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
RNGX HEX 00000000000000000000000000000000
|
|
RNGY HEX 00000000000000000000000000000000
|
|
RNGXH HEX 00000000000000000000000000000000
|
|
RNGYH HEX 00000000000000000000000000000000
|
|
RNGPSX HEX 777F7F867B837F777F8677837B837B86
|
|
HEX 7B7F838673777B7F7F737B7B867F8377
|
|
HEX 687F6883969696686C6C6F7F7B8E9292
|
|
HEX 8A8A7F837B7773737B8386868A73777F
|
|
HEX 777F7F7F7F867F837B77837F7B867F7F
|
|
HEX 6F7F686F968E7F8E7B8A837373838A7B
|
|
HEX 967F737F8683866F7B8E837F6C836877
|
|
HEX 777B7E83867F7F7F7B83777786867B83
|
|
HEX 9683837B7B966868928E966C926F6C68
|
|
HEX 737B7F7B7B7777778A838A77866F837B
|
|
HEX 6C777386736F8A96688A7B92838E738A
|
|
HEX 7F83837F7F7F777B7B8A868686736F77
|
|
HEX 738383868383776F6F7B7F7F7F8A8A86
|
|
HEX 77777F8A8373867B7B837B737F8A8683
|
|
HEX 8A7396836873686F6F6C7F736F777F8A
|
|
HEX 8373737B83868A8A7F868E778B83737F
|
|
HEX 777B7B83867B837F777F7786868A8373
|
|
HEX 867773838E928A7B68968A6C6F7F8A8A
|
|
HEX 7B7F7F7F7F7F7B837F837F7B837B837F
|
|
HEX 777F837F7B7F777F77837B7B7783837B
|
|
HEX 7B777B868A7F867B837B7B867B868686
|
|
HEX 7F6F68838686967377776F7B8E7F8A8E
|
|
HEX 8683867B96966C68836C686C6F8A8E92
|
|
HEX 96776886687796866F8E738A8E6F738A
|
|
HEX 7B7F77777F7786778383867B777B778A
|
|
HEX 8A837F7B777F83867B73737F8A7B7F83
|
|
HEX 777B7B777F83837F7F7B777F83837B77
|
|
HEX 83837F7F837F7F83837B838383867B7B
|
|
HEX 8E77837B838E8E6C6F776C7F778A6C83
|
|
HEX 7B7F7F7F7F7F837F7B7F8377867F7F86
|
|
HEX 7B737F8A86777F776F7F778E837F7B8A
|
|
HEX 737F7B777B7F73837783868386777783
|
|
HEX 8E83687B7B96738A6F8A8E836F6F738E
|
|
HEX 7F777783777B7B7F777F838383777B83
|
|
HEX 926F6F83776F6F77736F7B6F866F8A6F
|
|
HEX 8E7F7B7F86866F6F83837F77777B7F8E
|
|
HEX 777B7783838673737F7F777B73868683
|
|
HEX 737F7F7F7F868A77737B7B778386838A
|
|
HEX 7F7B7F838E8A6F736F83868E737B778A
|
|
HEX 777F737B8A8A8A73737F738A7F837F86
|
|
HEX 8383777B867B7F7377867B7F8386778A
|
|
HEX 83837F7F7F7F837F838383837F7F7F83
|
|
HEX 966C68926C7B9283687B7F6C7F968392
|
|
RNGPSY HEX 7E827A7E7575877A75828287877E7E7A
|
|
HEX 82827A7A7E7A7175717A75877E877E7E
|
|
HEX 987A647E646898948F6468827E946D98
|
|
HEX 827A718B8B877E7A717175877E82758B
|
|
HEX 64716D82756487946898688F94987A8B
|
|
HEX 8F987E6D7E6D648F718271827A8B7A8B
|
|
HEX 647A75828B878F757E6D7E987A947E7A
|
|
HEX 757E7E7E7582878B71717A877A878B8B
|
|
HEX 7A827A7A8282827A757E7E87877E757E
|
|
HEX 7E7A7A827E757A7E827A87718B7E8B87
|
|
HEX 687A7182826D7E98647A7A94828F7E8B
|
|
HEX 717E6D7A75828B876D686887828B8B71
|
|
HEX 827A6D6D7E8282878B8787757171757A
|
|
HEX 877E8B827A82878B75757A7E7A7E7E8B
|
|
HEX 7A7E7E7E646D988B717E758F7E7E8782
|
|
HEX 8B7A7E87757E7A7E8B757E8286827575
|
|
HEX 87757A75758B8B8F758B7A877A827A82
|
|
HEX 878787877E7E75877A827A7E82877E82
|
|
HEX 7E877E826D7A878B717E7582828B878B
|
|
HEX 87878782827E827A7A827A7E7E7E7A87
|
|
HEX 7E8B82718B6D7A716D877A8775757E82
|
|
HEX 75827E7E87757E7E75877A7E7A877E82
|
|
HEX 8B7E877E7E8271878B8782757171717E
|
|
HEX 6475648798879875718B6D6D718B8F8F
|
|
HEX 757A757E878287877E8782877A827187
|
|
HEX 827E877E7E75717E71827A7A7A8B828B
|
|
HEX 8B8271757E758B8F718F7A827A877E87
|
|
HEX 68717A828B6498948798758F6D7E647E
|
|
HEX 877A7A87877A827A7A877E7A8287877E
|
|
HEX 947A7E828B8768717E8F7E9468756D94
|
|
HEX 71717E827E877E7E75756D877A87828B
|
|
HEX 7575757A82828271717A757E82877E87
|
|
HEX 987A6D827A8F8B71646D71826D8B8F8F
|
|
HEX 757A7E8B75718B8F717E7A878287828F
|
|
HEX 6D82756D6D6D94756D876D7A6D716D8B
|
|
HEX 7E7A82827E827A7E717A717A7E8B8B82
|
|
HEX 8B757A7E7A87878B758B7E8B828B828B
|
|
HEX 7E7E7A82757E7E7E82827A827A828282
|
|
HEX 7A7A7E7E7A7A7E7A7A7A7A7E7E7E7E7E
|
|
HEX 7E7E7E827F82877A827A877A827E8782
|
|
HEX 877A757A7A87878F7A757582758B8B8F
|
|
HEX 7E6D7E8F8771758271827A8B758B7A87
|
|
HEX 64649898687A9482687E7A9482947E68
|
|
PLPS HEX 7F7E7F7E7D7C7D7C7F7E7F7E7F7E7F7E7F7E7F7E7F7E7F7E
|
|
HEX 7F7E7F7E7F8F7F8F7F7E7F7E83828382
|
|
HEX 7F7A7F827F8B838F837186757771867177757787
|
|
HEX 77757B7573718A71737A837A778B868B7375868B
|
|
HEX 7F8B838B687596877F7A7F827B7E837E83718A7A
|
|
HEX 7F7E7F7E7D777D897B717B8B777E8382777E867E
|
|
HEX 866D8E757D7C7D7C777E867E7782837E73828371
|
|
HEX 7B7A8382777183717B7E837E777A867E7F757F8B
|
|
HEX 737E8A7E7F6D838F68649498
|
|
LST
|
|
;END <2000?
|
|
NLS
|
|
DCM "BSAVE A/1800,A$1800,L$7FE"
|
|
ICL "LINK"
|