Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/hypercardiigs/HyperTalk2.S

6550 lines
116 KiB
ArmAsm
Raw Permalink Blame History

*
* HypercardGS
* segment: $0D HyperTalk2
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk HyperTalk2.l
lst off
*---------------------------------------
use HyperTalk2.E
use HyperTalk2.X
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Dialog.Macs
use 4/Event.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/List.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/MidiSyn.Macs
use 4/Misc.Macs
use 4/Qd.Macs
use 4/SANE.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L0D0000 PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
LDA $2E
LDX $30
STA $09
STX $0B
LDY #$001C
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D0028
EOR #$8000
L0D0028 BMI L0D006B
LDA #$001A
CLC
ADC $09
LDX $0B
BCC L0D0035
INX
L0D0035 STA $11
STX $13
PHY
PHY
LDY #$001C
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
PHY
PHY
LDY #$0002
LDA [$2A],Y
PHA
LDA [$2A]
PHA
LDY #$0002
LDA [$26],Y
PHA
LDA [$26]
PHA
JSL L0B0C30
JSL L09603C
PLA
STA [$11]
PLA
LDY #$0002
STA [$11],Y
L0D006B LDY #$0020
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D0083
EOR #$8000
L0D0083 BMI L0D0099
LDY #$001C
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
LDY #$001E
STA [$09],Y
INY
INY
TXA
STA [$09],Y
L0D0099 LDY #$001A
LDA [$09],Y
INY
INY
ORA [$09],Y
BNE L0D00B7
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
STA [$26]
TXA
LDY #$0002
STA [$26],Y
BRL L0D0267
L0D00B7 LDY #$001C
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
STA $05
STX $07
PEI $07
PEI $05
LDA #$0002
LDX #$0000
JSL L033477
BVS L0D00D8
EOR #$8000
L0D00D8 BMI L0D00DD
BRL L0D01BF
L0D00DD LDA #$0002
LDX #$0000
STA $0D
STX $0F
L0D00E7 LDY #$0002
LDA [$22],Y
TAX
LDA [$22]
CMP [$2A]
BNE L0D00F9
LDY #$0002
TXA
CMP [$2A],Y
L0D00F9 BNE L0D0136
LDA $1E
LDX $20
STA $11
STX $13
LDY #$001C
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
INC
BNE L0D0111
INX
L0D0111 PHX
PHA
LDA $0D
LDX $0F
JSL L1512A5
STA [$11]
TXA
LDY #$0002
STA [$11],Y
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA [$2A]
TXA
LDY #$0002
STA [$2A],Y
BRL L0D0267
L0D0136 PEI $2C
PEI $2A
JSL L071B83
LDY #$0002
LDA [$2A],Y
PHA
LDA [$2A]
PHA
LDY #$0002
LDA [$22],Y
TAX
LDA [$22]
JSL L033477
BVS L0D0158
EOR #$8000
L0D0158 BMI L0D0170
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
INC
BNE L0D0166
INX
L0D0166 STA [$2A]
TXA
LDY #$0002
STA [$2A],Y
BRA L0D01AA
L0D0170 LDA $1E
LDX $20
STA $11
STX $13
LDY #$001C
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
LDA $0D
LDX $0F
JSL L1512A5
INC
BNE L0D018F
INX
L0D018F STA [$11]
TXA
LDY #$0002
STA [$11],Y
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STA [$2A]
TXA
LDY #$0002
STA [$2A],Y
BRL L0D0267
L0D01AA LDA $0D
LDX $0F
CMP $05
BNE L0D01B4
CPX $07
L0D01B4 BEQ L0D01BF
INC $0D
BNE L0D01BC
INC $0F
L0D01BC BRL L0D00E7
L0D01BF LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
STA [$26]
TXA
LDY #$0002
STA [$26],Y
LDY #$0020
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
LDY #$001C
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
JSL L1512A5
STA $01
STX $03
PEI $03
PEI $01
LDA #$0000
TAX
JSL L033477
BMI L0D0267
STZ $0D
STZ $0F
L0D01FE PEI $28
PEI $26
JSL L071B83
LDY #$0002
LDA [$22],Y
TAX
LDA [$22]
CMP [$26]
BNE L0D0218
LDY #$0002
TXA
CMP [$26],Y
L0D0218 BNE L0D021C
BRA L0D0267
L0D021C PEI $0F
PEI $0D
LDY #$0020
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
LDY #$001C
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
JSL L1512A5
JSL L033477
BEQ L0D0253
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
INC
BNE L0D024B
INX
L0D024B STA [$26]
TXA
LDY #$0002
STA [$26],Y
L0D0253 LDA $0D
LDX $0F
CMP $01
BNE L0D025D
CPX $03
L0D025D BEQ L0D0267
INC $0D
BNE L0D0265
INC $0F
L0D0265 BRA L0D01FE
L0D0267 LDA $18
STA $30
LDA $17
STA $2F
LDA $15
TCD
TSC
CLC
ADC #$002E
TCS
RTL
L0D0279 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $10
PEI $0E
JSL L032589
L0D0289 LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
STA $01
STX $03
LDA #$00FF
AND [$01]
CMP L055277
BNE L0D02A4
LDA #$0000
BRA L0D02A7
L0D02A4 LDA #$0001
L0D02A7 PHA
LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
STA $01
STX $03
LDA #$00FF
AND [$01]
BEQ L0D02BE
LDA #$0001
L0D02BE AND $01,S
PLX
LSR
BCC L0D02DA
LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
INC
BNE L0D02D0
INX
L0D02D0 STA [$0E]
TXA
LDY #$0002
STA [$0E],Y
BRA L0D0289
L0D02DA LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L0D02EC PHD
TSC
CLC
ADC #$FFE2
TCS
TCD
LDA $34
LDX $36
STA $05
STX $07
LDY #$0014
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D0314
EOR #$8000
L0D0314 BMI L0D0357
LDA #$0012
CLC
ADC $05
LDX $07
BCC L0D0321
INX
L0D0321 STA $1B
STX $1D
PHY
PHY
LDY #$0014
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
PHY
PHY
LDY #$0002
LDA [$30],Y
PHA
LDA [$30]
PHA
LDY #$0002
LDA [$2C],Y
PHA
LDA [$2C]
PHA
JSL L0B0BC2
JSL L09603C
PLA
STA [$1B]
PLA
LDY #$0002
STA [$1B],Y
L0D0357 LDY #$0018
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D036F
EOR #$8000
L0D036F BMI L0D0385
LDY #$0014
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
LDY #$0016
STA [$05],Y
INY
INY
TXA
STA [$05],Y
L0D0385 LDY #$0012
LDA [$05],Y
INY
INY
ORA [$05],Y
BNE L0D03A3
LDY #$0002
LDA [$30],Y
TAX
LDA [$30]
STA [$2C]
TXA
LDY #$0002
STA [$2C],Y
BRL L0D058B
L0D03A3 LDY #$0014
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $17
STX $19
LDY #$0002
LDA [$30],Y
TAX
LDA [$30]
STA $0F
STX $11
L0D03BD PEI $19
PEI $17
LDA #$0001
LDX #$0000
JSL L033477
BEQ L0D03D4
BVS L0D03D2
EOR #$8000
L0D03D2 BMI L0D03D9
L0D03D4 LDA #$0000
BRA L0D03DC
L0D03D9 LDA #$0001
L0D03DC PHA
LDY #$0002
LDA [$30],Y
PHA
LDA [$30]
PHA
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
JSL L033477
BVS L0D03F7
EOR #$8000
L0D03F7 BPL L0D03FE
LDA #$0000
BRA L0D0401
L0D03FE LDA #$0001
L0D0401 AND $01,S
PLX
LSR
BCC L0D041D
LDX $19
LDA $17
BNE L0D040E
DEX
L0D040E DEC
STA $17
STX $19
PEI $32
PEI $30
JSL L0325D1
BRA L0D03BD
L0D041D LDY #$0002
LDA [$30],Y
PHA
LDA [$30]
PHA
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
JSL L033477
BVS L0D0437
EOR #$8000
L0D0437 BMI L0D043C
BRL L0D04CA
L0D043C LDA $17
LDX $19
STA [$28]
TXA
LDY #$0002
STA [$28],Y
LDY #$0002
LDA [$30],Y
PHA
LDA [$30]
PHA
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
JSL L033477
BEQ L0D0476
BVS L0D0464
EOR #$8000
L0D0464 BPL L0D0476
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
STA [$30]
TXA
LDY #$0002
STA [$30],Y
L0D0476 LDY #$0002
LDA [$30],Y
TAX
LDA [$30]
TAY
BNE L0D0482
DEX
L0D0482 DEC
STA $13
STX $15
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
CMP $0F
BNE L0D0495
CPX $11
L0D0495 BEQ L0D049C
LDA #$0000
BRA L0D049F
L0D049C LDA #$0001
L0D049F BNE L0D04B2
LDX #$0000
LDA #$00FF
AND [$13]
CMP L055277
BNE L0D04AF
INX
L0D04AF TXA
BEQ L0D04C7
L0D04B2 LDY #$0002
LDA [$28],Y
TAX
LDA [$28]
TAY
BNE L0D04BE
DEX
L0D04BE DEC
STA [$28]
TXA
LDY #$0002
STA [$28],Y
L0D04C7 BRL L0D058B
L0D04CA LDY #$0002
LDA [$30],Y
TAX
LDA [$30]
STA $0B
STX $0D
LDY #$0018
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
LDY #$0014
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
JSL L1512A5
STA $01
STX $03
PEI $03
PEI $01
LDA #$0000
TAX
JSL L033477
BMI L0D0566
STZ $17
STZ $19
L0D0505 TDC
CLC
ADC #$000B
PEA $0000
PHA
PEA $0000
PHD
JSL L0D0279
LDX #$0000
LDA #$00FF
AND [$0B]
CMP L055277
BNE L0D0524
INX
L0D0524 TXA
STA $09
LDA $09
BEQ L0D0537
LDA $0B
LDX $0D
INC
BNE L0D0533
INX
L0D0533 STA $0B
STX $0D
L0D0537 PEI $0D
PEI $0B
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
JSL L033477
BEQ L0D0552
BVS L0D054E
EOR #$8000
L0D054E BPL L0D0552
BRA L0D058B
L0D0552 LDA $17
LDX $19
CMP $01
BNE L0D055C
CPX $03
L0D055C BEQ L0D0566
INC $17
BNE L0D0564
INC $19
L0D0564 BRA L0D0505
L0D0566 LDA $0B
LDX $0D
STA [$2C]
TXA
LDY #$0002
STA [$2C],Y
LDA $09
BEQ L0D058B
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
TAY
BNE L0D0582
DEX
L0D0582 DEC
STA [$2C]
TXA
LDY #$0002
STA [$2C],Y
L0D058B LDA $22
STA $36
LDA $21
STA $35
LDA $1F
TCD
TSC
CLC
ADC #$0034
TCS
RTL
L0D059D PHD
TSC
CLC
ADC #$FEE2
TCS
ADC #$0037
TCD
LDA $F8
LDX $FA
TXY
LDX #$FFD1
STA $00,X
TYA
STA $02,X
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D05C5
INX
L0D05C5 STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
PHX
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D05E0
EOR #$8000
L0D05E0 BMI L0D0640
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D05F2
INX
L0D05F2 PHX
PHA
PHY
PHY
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D0606
INX
L0D0606 STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
PHX
PHA
PHY
PHY
LDY #$0002
LDA [$F4],Y
PHA
LDA [$F4]
PHA
LDY #$0002
LDA [$F0],Y
PHA
LDA [$F0]
PHA
JSL L0B0C90
JSL L09603C
PLA
PLY
PLX
STX $E3
PLX
STX $E5
STA [$E3]
TYA
LDY #$0002
STA [$E3],Y
L0D0640 LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000E
BCC L0D0650
INX
L0D0650 STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
PHX
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D066B
EOR #$8000
L0D066B BMI L0D06AD
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000E
BCC L0D067D
INX
L0D067D PHX
PHA
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D068F
INX
L0D068F STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
PHX
PHA
PLA
PLY
PLX
STX $E3
PLX
STX $E5
STA [$E3]
TYA
LDY #$0002
STA [$E3],Y
L0D06AD LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D06BD
INX
L0D06BD STA $E3
STX $E5
LDA [$E3]
LDY #$0002
ORA [$E3],Y
BNE L0D06DD
LDY #$0002
LDA [$F4],Y
TAX
LDA [$F4]
STA [$F0]
TXA
LDY #$0002
STA [$F0],Y
BRL L0D08FF
L0D06DD PEI $F6
PEI $F4
JSL L032589
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D06F5
INX
L0D06F5 STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
TXY
LDX #$FFCD
STA $00,X
TYA
STA $02,X
LDX #$FFCD
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0002
LDX #$0000
JSL L033477
BVS L0D0722
EOR #$8000
L0D0722 BPL L0D077E
LDA #$0002
LDX #$0000
STA $DF
STX $E1
L0D072E PEI $F6
PEI $F4
PEA $0000
TDC
CLC
ADC #$FFD5
PHA
JSL L0B0361
PEI $F6
PEI $F4
JSL L032589
LDY #$0002
LDA [$F4],Y
PHA
LDA [$F4]
PHA
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
JSL L033477
BVS L0D0761
EOR #$8000
L0D0761 BPL L0D0765
BRA L0D077E
L0D0765 LDX #$FFCD
LDA $02,X
TAY
LDA $00,X
TYX
CMP $DF
BNE L0D0774
CPX $E1
L0D0774 BEQ L0D077E
INC $DF
BNE L0D077C
INC $E1
L0D077C BRA L0D072E
L0D077E LDY #$0002
LDA [$F4],Y
PHA
LDA [$F4]
PHA
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
JSL L033477
BEQ L0D07AC
BVS L0D079A
EOR #$8000
L0D079A BPL L0D07AC
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
STA [$F4]
TXA
LDY #$0002
STA [$F4],Y
L0D07AC LDY #$0002
LDA [$F4],Y
TAX
LDA [$F4]
STA $D7
STX $D9
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000E
BCC L0D07C8
INX
L0D07C8 STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
PHX
PHA
LDX #$FFD1
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000A
BCC L0D07E6
INX
L0D07E6 STA $E3
STX $E5
LDY #$0002
LDA [$E3],Y
TAX
LDA [$E3]
JSL L1512A5
TXY
LDX #$FFC9
STA $00,X
TYA
STA $02,X
LDX #$FFC9
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0000
TAX
JSL L033477
BMI L0D086B
STZ $DF
STZ $E1
L0D0816 TDC
CLC
ADC #$00D7
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFD5
PHA
JSL L0B0361
TDC
CLC
ADC #$00D7
PEA $0000
PHA
JSL L032589
PEI $D9
PEI $D7
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
JSL L033477
BVS L0D084E
EOR #$8000
L0D084E BPL L0D0852
BRA L0D086B
L0D0852 LDX #$FFC9
LDA $02,X
TAY
LDA $00,X
TYX
CMP $DF
BNE L0D0861
CPX $E1
L0D0861 BEQ L0D086B
INC $DF
BNE L0D0869
INC $E1
L0D0869 BRA L0D0816
L0D086B PEI $D9
PEI $D7
LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
JSL L033477
BVS L0D0880
EOR #$8000
L0D0880 BMI L0D088E
LDA $D7
LDX $D9
STA [$F0]
TXA
LDY #$0002
STA [$F0],Y
L0D088E LDY #$0002
LDA [$F0],Y
TAX
LDA [$F0]
TAY
BNE L0D089A
DEX
L0D089A DEC
STA $DB
STX $DD
L0D089F PEI $DD
PEI $DB
LDY #$0002
LDA [$F4],Y
TAX
LDA [$F4]
JSL L033477
BEQ L0D08B8
BVS L0D08B6
EOR #$8000
L0D08B6 BMI L0D08BD
L0D08B8 LDA #$0000
BRA L0D08C0
L0D08BD LDA #$0001
L0D08C0 BEQ L0D08EF
LDA #$00FF
AND [$DB]
AND #$00FF
SEC
SBC #$0020
BEQ L0D08DC
BVS L0D08D5
EOR #$8000
L0D08D5 BPL L0D08DC
LDA #$0000
BRA L0D08DF
L0D08DC LDA #$0001
L0D08DF BEQ L0D08EF
LDX $DD
LDA $DB
BNE L0D08E8
DEX
L0D08E8 DEC
STA $DB
STX $DD
BRA L0D089F
L0D08EF LDA $DB
LDX $DD
INC
BNE L0D08F7
INX
L0D08F7 STA [$F0]
TXA
LDY #$0002
STA [$F0],Y
L0D08FF LDA $EA
STA $FA
LDA $E9
STA $F9
LDA $E7
TCD
TSC
CLC
ADC #$0130
TCS
RTL
L0D0911 PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDA $22
LDX $24
STA $01
STX $03
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D0939
EOR #$8000
L0D0939 BMI L0D097C
LDA #$0002
CLC
ADC $01
LDX $03
BCC L0D0946
INX
L0D0946 STA $0D
STX $0F
PHY
PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
PHY
PHY
LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDY #$0002
LDA [$1A],Y
PHA
LDA [$1A]
PHA
JSL L0B0B98
JSL L09603C
PLA
STA [$0D]
PLA
LDY #$0002
STA [$0D],Y
L0D097C LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D0994
EOR #$8000
L0D0994 BMI L0D09AA
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
LDY #$0006
STA [$01],Y
INY
INY
TXA
STA [$01],Y
L0D09AA LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L0D09C8
LDY #$0002
LDA [$1E],Y
TAX
LDA [$1E]
STA [$1A]
TXA
LDY #$0002
STA [$1A],Y
BRL L0D0A76
L0D09C8 LDA $1E
LDX $20
STA $0D
STX $0F
LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
TAY
BNE L0D09EB
DEX
L0D09EB DEC
STA [$0D]
TXA
LDY #$0002
STA [$0D],Y
LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDY #$0002
LDA [$1A],Y
TAX
LDA [$1A]
JSL L033477
BEQ L0D0A22
BVS L0D0A10
EOR #$8000
L0D0A10 BPL L0D0A22
LDY #$0002
LDA [$1A],Y
TAX
LDA [$1A]
STA [$1E]
TXA
LDY #$0002
STA [$1E],Y
L0D0A22 LDY #$0002
LDA [$1E],Y
PHA
LDA [$1E]
PHA
LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
PHX
PHA
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L1512A5
INC
BNE L0D0A4D
INX
L0D0A4D STA $09
STX $0B
PEI $0B
PEI $09
LDY #$0002
LDA [$1A],Y
TAX
LDA [$1A]
JSL L033477
BEQ L0D0A6A
BVS L0D0A68
EOR #$8000
L0D0A68 BMI L0D0A76
L0D0A6A LDA $09
LDX $0B
STA [$1A]
TXA
LDY #$0002
STA [$1A],Y
L0D0A76 LDA $14
STA $24
LDA $13
STA $23
LDA $11
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L0D0A88 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0000
TAX
STA [$12]
TXA
LDY #$0002
STA [$12],Y
LDA #$0000
TAX
STA [$0E]
TXA
LDY #$0002
STA [$0E],Y
JSL L031B09
LDA $22
LDX $24
STA $05
STX $07
PHY
PHY
PEA $0000
JSL L031415
PLA
STA [$05]
PLA
LDY #$0002
STA [$05],Y
LDY #$0002
LDA [$22],Y
TAX
LDA [$22]
STA [$1E]
TXA
LDY #$0002
STA [$1E],Y
LDY #$0002
LDA [$22],Y
TAX
LDA [$22]
STA [$16]
TXA
LDY #$0002
STA [$16],Y
PEI $18
PEI $16
JSL L071BC3
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA [$1A]
TXA
LDY #$0002
STA [$1A],Y
LDA $26
LDX $28
STA $01
STX $03
LDA [$01]
BEQ L0D0B0D
BRL L0D0BCE
L0D0B0D LDY #$001C
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$FFFF
BNE L0D0B1F
CPX #$FFFF
L0D0B1F BEQ L0D0B49
PEI $28
PEI $26
PEI $20
PEI $1E
PEI $1C
PEI $1A
PEI $18
PEI $16
PEI $14
PEI $12
PEA $0000
PHD
JSL L0D0000
LDA [$12]
LDY #$0002
ORA [$12],Y
BEQ L0D0B49
BRL L0D0BCE
L0D0B49 LDY #$0014
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$FFFF
BNE L0D0B5B
CPX #$FFFF
L0D0B5B BEQ L0D0B7E
PEI $28
PEI $26
PEI $20
PEI $1E
PEI $1C
PEI $1A
PEI $10
PEI $0E
PEA $0000
PHD
JSL L0D02EC
LDA [$0E]
LDY #$0002
ORA [$0E],Y
BNE L0D0BCE
L0D0B7E LDY #$000C
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$FFFF
BNE L0D0B90
CPX #$FFFF
L0D0B90 BEQ L0D0BA6
PEI $28
PEI $26
PEI $20
PEI $1E
PEI $1C
PEI $1A
PEA $0000
PHD
JSL L0D059D
L0D0BA6 LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$FFFF
BNE L0D0BB8
CPX #$FFFF
L0D0BB8 BEQ L0D0BCE
PEI $28
PEI $26
PEI $20
PEI $1E
PEI $1C
PEI $1A
PEA $0000
PHD
JSL L0D0911
L0D0BCE LDA $0C
STA $28
LDA $0B
STA $27
LDA $09
TCD
TSC
CLC
ADC #$0026
TCS
RTL
L0D0BE0 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
STZ $10
STZ $05
L0D0BEC LDA $05
INC
STA $05
LDA $05
SEC
SBC L055387
BEQ L0D0C03
BVS L0D0BFE
EOR #$8000
L0D0BFE BPL L0D0C03
BRL L0D0CD1
L0D0C03 LDA $05
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0D0C19
INX
L0D0C19 STA $01
STX $03
LDAL L051054
CMP [$01]
BNE L0D0BEC
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMPL L051056
BNE L0D0C3A
TXA
CMPL L051058
L0D0C3A BNE L0D0BEC
LDA [$01]
DEC
BPL L0D0C44
BRL L0D0CCD
L0D0C44 CMP #$0003
BMI L0D0C4C
BRL L0D0CCD
L0D0C4C SEC
SBC #$0000
BEQ L0D0C5A
DEC
BEQ L0D0C95
DEC
BEQ L0D0CB1
BRA L0D0CCD
L0D0C5A LDY #$0012
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMPL L051064
BNE L0D0C6F
TXA
CMPL L051066
L0D0C6F BNE L0D0C76
LDA #$0000
BRA L0D0C79
L0D0C76 LDA #$0001
L0D0C79 BEQ L0D0C7E
BRL L0D0BEC
L0D0C7E LDX #$0000
LDY #$000E
LDAL L051062
CMP [$01],Y
BEQ L0D0C8D
INX
L0D0C8D TXA
BEQ L0D0C93
BRL L0D0BEC
L0D0C93 BRA L0D0CCD
L0D0C95 LDY #$000C
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMPL L05105E
BNE L0D0CAA
TXA
CMPL L051060
L0D0CAA BEQ L0D0CAF
BRL L0D0BEC
L0D0CAF BRA L0D0CCD
L0D0CB1 LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMPL L05105A
BNE L0D0CC6
TXA
CMPL L05105C
L0D0CC6 BEQ L0D0CCB
BRL L0D0BEC
L0D0CCB BRA L0D0CCD
L0D0CCD LDA $05
STA $10
L0D0CD1 PLY
PLY
PLY
PLY
PLY
PLD
RTL
L0D0CD8 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEI $10
PEI $0E
JSL L07899F
PLA
STA $01
PLX
STX $03
PEI $03
PEI $01
JSL L0718BF
PHY
PEA $0001
PEA $0000
PEA $0000
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L150B64
PLA
STA $12
LDAL L05565D
BEQ L0D0D1A
STZ $12
L0D0D1A PEI $03
PEI $01
JSL L07185A
LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L0D0D34 PHD
TSC
CLC
ADC #$FE98
TCS
ADC #$0075
TCD
LDY #$0046
LDA [$F8],Y
TAX
DEY
DEY
LDA [$F8],Y
STA $8B
STX $8D
LDY #$0004
LDA [$8B],Y
TAX
DEY
DEY
LDA [$8B],Y
CMP L055027
BNE L0D0D5F
CPX L055029
L0D0D5F BNE L0D0D83
TDC
CLC
ADC #$00CF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $001C
JSL L0B127A
PEA $0020
JSL L0313BE
BRA L0D0DC3
L0D0D83 LDY #$0004
LDA [$8B],Y
TAX
DEY
DEY
LDA [$8B],Y
CMP L05501F
BNE L0D0D95
CPX L055021
L0D0D95 BNE L0D0DB9
TDC
CLC
ADC #$00CF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $001D
JSL L0B127A
PEA $0020
JSL L0313BE
BRA L0D0DC3
L0D0DB9 LDAL L04075A
SEP #$20
STA $CF
REP #$20
L0D0DC3 LDA [$8B]
DEC
DEC
BNE L0D0DEB
TDC
CLC
ADC #$008F
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $001B
JSL L0B127A
PEA $0020
JSL L0313BE
BRA L0D0E10
L0D0DEB LDA [$8B]
DEC
BNE L0D0E10
TDC
CLC
ADC #$008F
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $001A
JSL L0B127A
PEA $0020
JSL L0313BE
L0D0E10 LDY #$000E
LDA [$8B],Y
DEC
DEC
BEQ L0D0E1C
BRL L0D0EC4
L0D0E1C LDY #$0012
LDA [$8B],Y
PHA
DEY
DEY
LDA [$8B],Y
PHA
LDA #$FFFF
TAX
JSL L033477
BVS L0D0E34
EOR #$8000
L0D0E34 BMI L0D0E92
LDA [$8B]
DEC
DEC
BNE L0D0E5E
TDC
CLC
ADC #$008F
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $0077
JSL L0B127A
PEA $0020
JSL L0313BE
BRA L0D0E7E
L0D0E5E TDC
CLC
ADC #$008F
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $0076
JSL L0B127A
PEA $0020
JSL L0313BE
L0D0E7E LDA #$0075
LDY #$0035
STA [$F8],Y
LDAL L04075B
SEP #$20
STA $AF
REP #$20
BRA L0D0EC2
L0D0E92 LDA #$0014
LDY #$0035
STA [$F8],Y
TDC
CLC
ADC #$00AF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$0077
PHA
LDY #$0012
LDA [$8B],Y
PHA
DEY
DEY
LDA [$8B],Y
PHA
JSL L07346C
PEA $0014
JSL L0313BE
L0D0EC2 BRA L0D0F2D
L0D0EC4 LDY #$000E
LDA [$8B],Y
DEC
BNE L0D0EF3
LDA #$004F
LDY #$0035
STA [$F8],Y
TDC
CLC
ADC #$00AF
PEA $0000
PHA
LDA #$0010
CLC
ADC $8B
LDX $8D
BCC L0D0EE8
INX
L0D0EE8 PHX
PHA
PEA $0020
JSL L0313BE
BRA L0D0F2D
L0D0EF3 LDY #$000E
LDA #$0003
CMP [$8B],Y
BNE L0D0F2D
LDA #$0019
LDY #$0035
STA [$F8],Y
TDC
CLC
ADC #$00AF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$0077
PHA
LDY #$0010
LDA [$8B],Y
JSL L150488
PHX
PHA
JSL L0715D9
PEA $0014
JSL L0313BE
L0D0F2D TDC
CLC
ADC #$00CF
PEA $0000
PHA
TDC
CLC
ADC #$008F
PEA $0000
PHA
TDC
CLC
ADC #$00AF
PEA $0000
PHA
PEA ^L04075C
PEA L04075C
JSL L0B24DB
LDY #$0035
LDA [$F8],Y
PHA
JSL L0B0B7A
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$016E
TCS
RTL
L0D0F6E ENT
PHD
TSC
CLC
ADC #$FFC4
TCS
TCD
LDA $44
LDX $46
STA $01
STX $03
STZ $37
LDY #$000E
LDA [$01],Y
DEC
BPL L0D0F8B
BRL L0D1070
L0D0F8B CMP #$0003
BMI L0D0F93
BRL L0D1070
L0D0F93 SEC
SBC #$0000
BNE L0D0F9C
BRL L0D104B
L0D0F9C DEC
BEQ L0D0FE1
DEC
BEQ L0D0FA5
BRL L0D1070
L0D0FA5 PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDY #$0010
LDA [$01],Y
PHA
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L07ABAE
PLA
BEQ L0D0FDE
LDX #$0000
LDA #$000F
AND $0B
CMP [$01]
BNE L0D0FD4
INX
L0D0FD4 TXA
BEQ L0D0FDE
LDY #$0010
LDA [$01],Y
STA $37
L0D0FDE BRL L0D1077
L0D0FE1 LDY #$0012
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $31
STX $33
PEI $33
PEI $31
LDA #$FFFF
TAX
JSL L033477
BVS L0D1000
EOR #$8000
L0D1000 BMI L0D1031
PHY
PHY
PEI $33
PEI $31
PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L07977D
PLA
LDX #$0000
BIT #$8000
BEQ L0D1025
DEX
L0D1025 PHX
PHA
JSL L09603C
PLA
STA $31
PLX
STX $33
L0D1031 PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
PEI $31
LDA [$01]
PHA
JSL L07AC17
PLA
STA $37
BRA L0D1077
L0D104B PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA #$0010
CLC
ADC $01
LDX $03
BCC L0D1065
INX
L0D1065 PHX
PHA
JSL L07BF8F
PLA
STA $37
BRA L0D1077
L0D1070 PEA $178E
JSL L07272E
L0D1077 LDA $37
STA $48
LDA $42
BEQ L0D1081
BRA L0D108D
L0D1081 LDA $37
BNE L0D108D
PEA $0000
PHD
JSL L0D0D34
L0D108D LDA $40
STA $46
LDA $3F
STA $45
LDA $3D
TCD
TSC
CLC
ADC #$0044
TCS
RTL
L0D109F ENT
PHD
TSC
CLC
ADC #$FFA0
TCS
TCD
STZ L055363
LDA #$0001
STA $6A
LDA L055039
LDX L05503B
CMP $66
BNE L0D10BB
CPX $68
L0D10BB BNE L0D10BF
BRA L0D1109
L0D10BF PEA ^L05098E
PEA L05098E
JSL L0940E5
LDA #$0002
STA $01
LDA #$0001
LDX #$0000
STA $07
STX $09
LDA #$0006
STA $2D
LDA $66
LDX $68
STA $59
STX $5B
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCC L0D10FF
LDA #$0001
STA L055363
BRA L0D1109
L0D10FF STZ $6A
JSL L072314
JSL L073A49
L0D1109 LDA $64
STA $68
LDA $63
STA $67
LDA $61
TCD
TSC
CLC
ADC #$0066
TCS
RTL
L0D111B PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0C
LDA $0A
CMPL L051BDE
BNE L0D1144
LDA #$0001
STA $0C
LDAL L051BE0
JSL L150488
PHX
PHA
JSL L0E0DE2
JSL L0B0000
L0D1144 LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L0D1154 ENT
PHD
TSC
CLC
ADC #$FDF8
TCS
ADC #$0111
TCD
PHY
JSL L0B0072
PLA
LSR
BCC L0D1172
PHY
JSL L0E05E8
PLA
STA $F1
BRA L0D11C4
L0D1172 PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L0E06AC
STZ $EF
L0D1181 LDA $EF
INC
STA $EF
PHY
PEA $0000
PEI $EF
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
JSL L150428
PLA
STA $F1
LDX #$0000
LDA #$FFFF
CMP $F1
BNE L0D11A7
INX
L0D11A7 TXA
BNE L0D11C4
PHY
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
JSL L071C56
PLA
BEQ L0D1181
L0D11C4 LDA $F1
STA $FC
TSC
CLC
ADC #$0208
TCS
PLD
RTL
L0D11D0 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $000C
JSL L0D111B
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D11E7 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
STZ $0C
STZ $01
L0D11F3 PHY
PEA $0000
JSL L0B5681
PLA
LSR
BCC L0D1239
PHY
JSL L03198D
PLA
LSR
BCS L0D120A
BRA L0D124A
L0D120A LDA $01
INC
STA $01
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0D121C
INX
L0D121C TXA
BEQ L0D1235
LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0D122C
INX
L0D122C TXA
BEQ L0D1235
JSL L0B0000
BRA L0D1237
L0D1235 BRA L0D1239
L0D1237 BRA L0D11F3
L0D1239 LDA $01
BNE L0D123F
BRA L0D124A
L0D123F LDA #$0001
STA $0C
PEI $01
JSL L0E0E11
L0D124A PLY
PLY
PLY
PLD
RTL
L0D124F ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA L0553B3
STA $01
LDA #$0003
STA L0553B3
LDA #$000C
CMPL L051BDE
BNE L0D1276
LDAL L051BE0
STA L0553B3
JSL L0B0000
L0D1276 PHY
PEA $0001
JSL L0B5B81
PLA
STA $0C
LDA $01
STA L0553B3
PLY
PLY
PLY
PLD
RTL
L0D128B ENT
PHD
TSC
CLC
ADC #$FEF0
TCS
ADC #$0019
TCD
LDA #$0001
STA $FC
STZ $EB
STZ $ED
PHY
JSL L0314F6
PLA
STA $F1
LDA $F1
SEC
SBC #$0004
BEQ L0D12BA
BVS L0D12B4
EOR #$8000
L0D12B4 BPL L0D12BA
JSL L0E0000
L0D12BA LDA $F1
SEC
SBC #$0001
BPL L0D12C5
BRL L0D13F4
L0D12C5 CMP #$0009
BMI L0D12CD
BRL L0D13F4
L0D12CD ASL
TAX
LDAL L0D12D5,X
PHA
RTS
L0D12D5 DA L0D12E5+1
DA L0D131E+2
DA L0D1332+2
DA L0D1397+1
DA L0D13B6+1
DA L0D13C2+1
DA L0D13CE+1
DA L0D13DA+1
L0D12E5 DA L0D13E6+1
PHY
PHY
PHY
PHY
PHY
JSL L0E05E8
PLA
LDX #$0000
BIT #$8000
BEQ L0D12FA
DEX
L0D12FA PHX
PHA
PHY
JSL L1606BE
PLA
LDX #$0000
BIT #$8000
BEQ L0D130B
DEX
L0D130B PHX
PHA
JSL L09603C
PLA
PLX
PHA
JSL L1606CC
PLA
STA $EB
PLX
STX $ED
L0D131E BRL L0D13F4
PHY
PHY
PHY
JSL L0E05E8
JSL L1606CC
PLA
STA $EB
PLX
STX $ED
L0D1332 BRL L0D13F4
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
JSL L0E06AC
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
JSL L0A132A
PLA
STA $EB
PLX
STX $ED
LDA $EB
ORA $ED
BNE L0D1397
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
JSL L1606DA
PLA
STA $E7
PLX
STX $E9
LDA $E7
ORA $E9
BEQ L0D1397
LDY #$0002
LDA [$E7],Y
TAX
LDA [$E7]
CLC
ADC #$0004
BCC L0D1387
INX
L0D1387 STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $EB
STX $ED
L0D1397 BRA L0D13F4
PHY
PHY
JSL L0E061D
PLA
STA $EB
PLX
STX $ED
PHY
PEI $ED
PEI $EB
JSL L1606E8
PLA
LSR
BCS L0D13B6
STZ $EB
STZ $ED
L0D13B6 BRA L0D13F4
LDA L0550ED
LDX L0550EF
STA $EB
STX $ED
L0D13C2 BRA L0D13F4
LDA L0550DD
LDX L0550DF
STA $EB
STX $ED
L0D13CE BRA L0D13F4
LDA L0550E9
LDX L0550EB
STA $EB
STX $ED
L0D13DA BRA L0D13F4
LDA L0550E5
LDX L0550E7
STA $EB
STX $ED
L0D13E6 BRA L0D13F4
LDA L0550E1
LDX L0550E3
STA $EB
STX $ED
BRA L0D13F4
L0D13F4 PEI $ED
PEI $EB
JSL L0E0E79
TSC
CLC
ADC #$0110
TCS
PLD
RTL
L0D1404 ENT
PHD
TSC
CLC
ADC #$FFD0
TCS
TCD
LDA #$0001
STA $36
PHY
JSL L0314F6
PLA
DEC
BMI L0D148D
CMP #$0006
BPL L0D148D
SEC
SBC #$0000
BEQ L0D1434
DEC
BEQ L0D1447
DEC
BEQ L0D145A
DEC
BEQ L0D1467
DEC
DEC
BEQ L0D147E
BRA L0D148D
L0D1434 LDA #$0001
STA $01
PHY
PHY
JSL L0E05AF
PLA
STA $03
PLX
STX $05
BRA L0D148D
L0D1447 LDA #$0002
STA $01
PHY
PHY
JSL L0E05AF
PLA
STA $07
PLX
STX $09
BRA L0D148D
L0D145A LDA #$0003
STA $01
STZ $0B
JSL L0E0000
BRA L0D148D
L0D1467 LDA #$0004
STA $01
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA $001F
JSL L0E06F4
BRA L0D148D
L0D147E LDA #$0003
STA $01
PHY
JSL L0E05E8
PLA
STA $0B
BRA L0D148D
L0D148D TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $002C
PEA $0001
JSL L0E07C5
TSC
CLC
ADC #$0030
TCS
PLD
RTL
L0D14AB ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEA $000A
JSL L031415
PLA
STA $01
PLX
STX $03
LDX #$0000
LDA [$01]
DEC
BNE L0D14CB
INX
L0D14CB TXA
STA $0E
PLY
PLY
PLY
PLY
PLD
RTL
L0D14D4 ENT
PHD
TSC
CLC
ADC #$FFA0
TCS
TCD
LDA #$0001
STA $66
LDA #$0006
STA $2D
LDA L055039
LDX L05503B
STA $59
STX $5B
PHY
JSL L0314F6
PLA
CMP #$0007
BNE L0D150C
LDA #$0005
STA $01
LDA #$0001
STA $0B
JSL L0E0000
BRL L0D15C5
L0D150C PHY
JSL L0314F6
PLA
CMP #$0009
BNE L0D1528
LDA #$0005
STA $01
LDA #$0002
STA $0B
JSL L0E0000
BRL L0D15C5
L0D1528 PHY
JSL L0314F6
PLA
CMP #$0008
BNE L0D1549
TDC
CLC
ADC #$002D
PEA $0000
PHA
PEA $0000
PEA $002C
PEA $0001
JSL L0E0656
L0D1549 PHY
JSL L0314F6
PLA
DEC
BMI L0D15C5
CMP #$0006
BPL L0D15C5
SEC
SBC #$0000
BEQ L0D156C
DEC
BEQ L0D157F
DEC
BEQ L0D1592
DEC
BEQ L0D159F
DEC
DEC
BEQ L0D15B6
BRA L0D15C5
L0D156C LDA #$0001
STA $01
PHY
PHY
JSL L0E05AF
PLA
STA $03
PLX
STX $05
BRA L0D15C5
L0D157F LDA #$0002
STA $01
PHY
PHY
JSL L0E05AF
PLA
STA $07
PLX
STX $09
BRA L0D15C5
L0D1592 LDA #$0003
STA $01
STZ $0B
JSL L0E0000
BRA L0D15C5
L0D159F LDA #$0004
STA $01
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA $001F
JSL L0E06F4
BRA L0D15C5
L0D15B6 LDA #$0003
STA $01
PHY
JSL L0E05E8
PLA
STA $0B
BRA L0D15C5
L0D15C5 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $005C
PEA $0002
JSL L0E07C5
TSC
CLC
ADC #$0060
TCS
PLD
RTL
L0D15E3 ENT
PHD
TSC
CLC
ADC #$FF36
TCS
TCD
LDA #$0001
STA $D0
TDC
CLC
ADC #$005D
PEA $0000
PHA
JSL L0940E5
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $005C
PEA $0002
JSL L0E0656
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCS L0D163E
STZ $D0
LDA L055259
BEQ L0D1635
PEA $0001
JSL L0B0B7A
BRA L0D163C
L0D1635 PEA $0002
JSL L0B0B7A
L0D163C BRA L0D1672
L0D163E TDC
CLC
ADC #$00BB
PEA $0000
PHA
JSL L0B0D87
TDC
CLC
ADC #$00BB
PEA $0000
PHA
PEA $0000
PEA $000C
PEA $0003
JSL L0E07C5
PHY
TDC
CLC
ADC #$005D
PEA $0000
PHA
JSL L0953DD
PLA
STA $B9
L0D1672 TSC
CLC
ADC #$00CA
TCS
PLD
RTL
L0D167A ENT
PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
STZ $1E
PHY
JSL L0B0072
PLA
LSR
BCS L0D168F
BRA L0D16D3
L0D168F PHY
PHY
PEA $0012
JSL L031415
PLA
PLX
STA $15
STX $17
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
PHX
PHA
LDA #$0000
TAX
JSL L033477
BMI L0D16B9
LDA #$0001
STA $1E
BRA L0D16D3
L0D16B9 PEA $007A
PEA $0000
TDC
CLC
ADC #$0001
PHA
PHY
PHY
JSL L0E05AF
JSL L07346C
JSL L0B0841
L0D16D3 TSC
CLC
ADC #$0018
TCS
PLD
RTL
L0D16DB PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
STZ $10
LDA L0553B5
LDX L0553B7
CLC
ADC #$0008
BCC L0D16F2
INX
L0D16F2 STA $03
STX $05
LDA [$03]
STA $01
PHY
PEA $0000
JSL L0B7A56
PLA
LSR
BCC L0D1720
PHY
JSL L031630
PLA
LSR
BCC L0D1716
LDA #$0001
STA $10
BRA L0D1720
L0D1716 JSL L0E0000
PEI $01
JSL L0B2BBB
L0D1720 LDA $0A
STA $0E
LDA $09
STA $0D
LDA $07
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0D1732 ENT
PHD
TSC
CLC
ADC #$FEC8
TCS
ADC #$0041
TCD
STZ $FC
LDX #$0000
LDA #$000D
CMPL L051BDE
BEQ L0D174C
INX
L0D174C TXA
BEQ L0D1762
LDX #$0000
LDA #$000A
CMPL L051BDE
BEQ L0D175C
INX
L0D175C TXA
BEQ L0D1762
BRL L0D19AF
L0D1762 STZ $E5
TDC
CLC
ADC #$00BF
PEA $0000
PHA
PEA ^L0510BC
PEA L0510BC
PEA $0022
JSL L0313BE
L0D177A LDA #$000D
CMPL L051BDE
BEQ L0D1786
BRL L0D18D7
L0D1786 LDX #$0000
LDAL L051BE0
BNE L0D1790
INX
L0D1790 TXA
STA $E1
TDC
CLC
ADC #$00C1
PEA $0000
PHA
LDAL L051BE0
JSL L150488
JSL L150F53
STA $EF
STX $F1
JSL L0B0000
PHY
PEA $0000
PHD
JSL L0D16DB
PLA
LSR
BCS L0D17D4
PEA $0003
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
JSL L0B369F
JSL L0B0841
BRL L0D19AF
L0D17D4 PHY
PHY
JSL L0E061D
PLA
STA $E7
PLX
STX $E9
LDA $E7
LDX $E9
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
LDA $EF
LDX $F1
CLC
ADC #$0004
BCC L0D17F7
INX
L0D17F7 STA $EF
STX $F1
LDA $E7
LDX $E9
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
LDX #$0000
LDA #$0016
CMPL L051BDE
BNE L0D1814
INX
L0D1814 TXA
BEQ L0D1892
LDX #$0000
LDA #$000D
CMPL L051BE0
BNE L0D1824
INX
L0D1824 TXA
BEQ L0D1892
JSL L0B0000
PHY
PEA $0000
PHD
JSL L0D16DB
PLA
LSR
BCS L0D184F
PEA $0003
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
JSL L0B369F
JSL L0B0841
BRL L0D19AF
L0D184F PHY
PHY
JSL L0E061D
PLA
STA $EB
PLX
STX $ED
PEI $ED
PEI $EB
LDA $E7
LDX $E9
JSL L033477
BVS L0D186C
EOR #$8000
L0D186C BMI L0D1886
LDA $E7
LDX $E9
STA $EB
STX $ED
LDA $E1
BEQ L0D1886
LDX $E9
LDA $E7
BNE L0D1881
DEX
L0D1881 DEC
STA $EB
STX $ED
L0D1886 LDA $EB
LDX $ED
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
L0D1892 LDX #$0000
LDA #$0016
CMPL L051BDE
BNE L0D189F
INX
L0D189F TXA
BEQ L0D18C0
LDX #$0000
LDA #$0006
CMPL L051BE0
BNE L0D18AF
INX
L0D18AF TXA
BEQ L0D18C0
LDA #$0001
STA $E5
JSL L0B0000
BRL L0D177A
BRA L0D18D7
L0D18C0 PEA $0005
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
JSL L0B369F
JSL L0B0841
BRL L0D19AF
L0D18D7 LDA #$000A
CMPL L051BDE
BEQ L0D18E3
BRL L0D1992
L0D18E3 LDAL L051BE0
JSL L150488
STA $E7
STX $E9
JSL L0B0000
LDA #$000D
CMPL L051BDE
BEQ L0D190A
JSL L0B28E4
LDA $E5
BEQ L0D1907
BRL L0D1992
L0D1907 BRL L0D19AF
L0D190A TDC
CLC
ADC #$00C1
PEA $0000
PHA
LDAL L051BE0
JSL L150488
JSL L150F53
STA $EF
STX $F1
JSL L0B0000
LDA $E7
LDX $E9
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
LDA $EF
LDX $F1
CLC
ADC #$0004
BCC L0D193E
INX
L0D193E STA $EF
STX $F1
LDA $E7
LDX $E9
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
LDX #$0000
LDA #$0016
CMPL L051BDE
BNE L0D195B
INX
L0D195B TXA
BEQ L0D197C
LDX #$0000
LDA #$0006
CMPL L051BE0
BNE L0D196B
INX
L0D196B TXA
BEQ L0D197C
LDA #$0001
STA $E5
JSL L0B0000
BRL L0D177A
BRA L0D1992
L0D197C PEA $0005
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
JSL L0B369F
JSL L0B0841
BRA L0D19AF
L0D1992 LDA #$0001
STA $FC
STZ $BF
TDC
CLC
ADC #$00BF
PEA $0000
PHA
PEA $0000
PEA $0022
PEA $0004
JSL L0E07C5
L0D19AF TSC
CLC
ADC #$0138
TCS
PLD
RTL
L0D19B7 ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
LDA #$0001
STA $20
PHY
JSL L0314F6
PLA
CMP #$0007
BEQ L0D19D4
LDA #$0000
BRA L0D19D7
L0D19D4 LDA #$0001
L0D19D7 STA $01
LDA $01
BNE L0D19DF
BRA L0D1A2F
L0D19DF PHY
PEA $0034
JSL L151681
PLA
DEC
BMI L0D1A2F
CMP #$0002
BPL L0D1A2F
SEC
SBC #$0000
BEQ L0D1A15
DEC
BEQ L0D19FB
BRA L0D1A2F
L0D19FB PHY
JSL L0E05E8
PLA
STA $0F
PHY
JSL L0E05E8
PLA
STA $0D
PHY
JSL L0E05E8
PLA
STA $0B
BRA L0D1A4F
L0D1A15 PHY
JSL L0E05E8
PLA
STA $0B
PHY
JSL L0E05E8
PLA
STA $0D
PHY
JSL L0E05E8
PLA
STA $0F
BRA L0D1A4F
L0D1A2F PHY
JSL L0E05E8
PLA
STA $0B
PHY
JSL L0E05E8
PLA
STA $0F
PHY
JSL L0E05E8
PLA
STA $0D
LDA $01
BNE L0D1A4F
JSL L0E0000
L0D1A4F LDA $0B ; It is for the ProDOS technote about dates
SEC
SBC #100 ; AV 202208
BEQ L0D1A66
BVS L0D1A5C
EOR #$8000
L0D1A5C BPL L0D1A66
LDA $0B
SEC
SBC #1900 ; AV 202208
STA $0B
L0D1A66 TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA $0000
PEA $0008
JSL L071EC5
sep #$20 ; AV 202208
LDA $0B
* SEP #$20
STA $06
* REP #$20
LDA $0D
* SEP #$20
STA $08
* REP #$20
LDA $0F
* SEP #$20
STA $07
REP #$20
PHY
PHY
PEA $000A ; from seconds to HyperCard IIgs format
PHY
PHY
PEA $000B
PEA $0000
PEA $0000
TDC
CLC
ADC #$0003
PEA $0000
PHA
_ConvSeconds
STAL L05565D
TDC
CLC
ADC #$0003
PEA $0000
PHA
_ConvSeconds
STAL L05565D
PLA
STA $13
PLX
STX $15
LDA #$00FF
AND $0A
STA $11
TDC
CLC
ADC #$000B
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $0005
JSL L0E07C5
TSC
CLC
ADC #$001A
TCS
PLD
RTL
L0D1AF4 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$0001
STA $14
LDA #$0001
STA $01
PHY
JSL L0E05E8
PLA
SEP #$20
STA $0A
REP #$20
PHY
JSL L0E05E8
PLA
SEP #$20
STA $03
REP #$20
PHY
JSL L0E05E8
PLA
SEP #$20
STA $04
REP #$20
PHY
JSL L0E05E8
PLA
SEP #$20
STA $05
REP #$20
PHY
JSL L0E05E8
PLA
SEP #$20
STA $07
REP #$20
PHY
JSL L0E05E8
PLA
SEP #$20
STA $08
REP #$20
PHY
JSL L0E05E8
PLA
SEP #$20
STA $06
REP #$20
LDA #$00FF
AND $06
SEC
SBC #$0064
BEQ L0D1B7B
BVS L0D1B6A
EOR #$8000
L0D1B6A BPL L0D1B7B
LDA #$00FF
AND $06
SEC
SBC #$076C ; AV 202208 - 1900
SEP #$20
STA $06
REP #$20
L0D1B7B TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $000A
PEA $0006
JSL L0E07C5
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L0D1B99 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $000F
JSL L0D111B
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D1BB0 ENT
PHD
TSC
CLC
ADC #$FE98
TCS
ADC #$0071
TCD
LDA #$0001
STA $FC
STZ L055415
PHY
JSL L0314F6
PLA
CMP #$0003
BEQ L0D1BDA
LDA L055039
LDX L05503B
STA $E7
STX $E9
BRA L0D1C1D
L0D1BDA PEA $0000
TDC
CLC
ADC #$FF8F
PHA
JSL L0E06AC
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FF8F
PHA
JSL L0735A8
PLA
STA $EF
PLX
STX $F1
LDA $EF
ORA $F1
BNE L0D1C05
BRL L0D1CC6
L0D1C05 PHY
PHY
PEI $F1
PEI $EF
JSL L078841
PLA
STA $E7
PLX
STX $E9
PEI $F1
PEI $EF
JSL L07185A
L0D1C1D LDA #$0006
STA $8F
LDA #$0006
STA $BB
PHY
JSL L0314F6
PLA
BPL L0D1C32
BRL L0D1CC6
L0D1C32 CMP #$0003
BMI L0D1C3A
BRL L0D1CC6
L0D1C3A SEC
SBC #$0000
BEQ L0D1C48
DEC
BEQ L0D1C79
DEC
BEQ L0D1C98
BRA L0D1CC6
L0D1C48 LDA #$0002
STA $8F
LDA #$0001
LDX #$0000
STA $95
STX $97
JSL L0E0000
TDC
CLC
ADC #$008F
PEA $0000
PHA
PEA $0000
PEA $005C
PEA $0002
JSL L0E07C5
LDA #$0001
STA L055415
BRA L0D1CC6
L0D1C79 PHY
PHY
PEA $0002
JSL L031415
PLA
STA $EB
PLX
STX $ED
LDA $E7
LDX $E9
LDY #$0058
STA [$EB],Y
INY
INY
TXA
STA [$EB],Y
BRA L0D1CC6
L0D1C98 TDC
CLC
ADC #$00BB
PEA $0000
PHA
PEA $0000
PEA $002C
PEA $0001
JSL L0E0656
TDC
CLC
ADC #$008F
PEA $0000
PHA
PEA $0000
PEA $005C
PEA $0002
JSL L0E07C5
BRA L0D1CC6
L0D1CC6 TSC
CLC
ADC #$0168
TCS
PLD
RTL
L0D1CCE ENT
PHD
TSC
CLC
ADC #$FFA6
TCS
TCD
LDA #$0001
STA $60
PHY
JSL L0314F6
PLA
CMP #$0002
BEQ L0D1CEB
LDA #$0000
BRA L0D1CEE
L0D1CEB LDA #$0001
L0D1CEE STA $55
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0054
PEA $0007
JSL L0E0656
LDA $55
BEQ L0D1D20
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0022
PEA $0004
JSL L0E0656
L0D1D20 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0054
PEA $0007
JSL L0E07C5
TSC
CLC
ADC #$005A
TCS
PLD
RTL
L0D1D3E ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
JSL L0314F6
PLA
CMP #$0001
BNE L0D1D63
JSL L0E0000
PEA $0001
JSL L0E0E4B
BRA L0D1D72
L0D1D63 PHY
JSL L0314F6
PLA
CMP #$0003
BNE L0D1D72
JSL L0B26CD
L0D1D72 PLY
PLY
PLD
RTL
L0D1D76 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PEA $0000
PEA $0000
JSL L0E0DE2
PLY
PLY
PLD
RTL
L0D1D91 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
LDAL L051BDE
DEC
DEC
BNE L0D1DB2
LDA #$0001
STA $0A
PEA $0000
PEA $0000
JSL L0E0DE2
L0D1DB2 PLY
PLY
PLD
RTL
L0D1DB6 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0000
JSL L0B5681
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D1DCD ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
LDX #$0000
LDAL L051BDE
DEC
DEC
BNE L0D1DE3
INX
L0D1DE3 PHX
LDX #$0000
LDA #$0004
CMPL L051BDE
BNE L0D1DF1
INX
L0D1DF1 TXA
ORA $01,S
PLX
LSR
BCC L0D1DFA
BRA L0D1E20
L0D1DFA LDA #$0001
STA $0A
LDA L05539D
DEC
STA L05539D
PHY
PEA $0000
JSL L0B7A56
PLA
LSR
BCS L0D1E19
JSL L0E10F4
STZ L0553A5
L0D1E19 LDA L05539D
INC
STA L05539D
L0D1E20 PLY
PLY
PLD
RTL
L0D1E24 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
JSL L0314F6
PLA
CMP #$0001
BNE L0D1E3E
BRA L0D1E6B
L0D1E3E LDX #$0000
LDAL L051BDE
DEC
DEC
BNE L0D1E4A
INX
L0D1E4A PHX
LDX #$0000
LDA #$0004
CMPL L051BDE
BNE L0D1E58
INX
L0D1E58 TXA
ORA $01,S
PLX
LSR
BCC L0D1E63
STZ $0A
BRA L0D1E6B
L0D1E63 JSL L0E0000
JSL L0E1220
L0D1E6B PLY
PLY
PLD
RTL
L0D1E6F ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0064
JSL L0B5681
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D1E86 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
JSL L0314F6
PLA
CMP #$0001
BNE L0D1EA0
BRA L0D1EB4
L0D1EA0 LDAL L051BDE
DEC
DEC
BNE L0D1EAC
STZ $0A
BRA L0D1EB4
L0D1EAC JSL L0E0000
JSL L0E1220
L0D1EB4 PLY
PLY
PLD
RTL
L0D1EB8 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEA $000A
JSL L031415
PLA
STA $01
PLX
STX $03
LDX #$0000
LDA [$01]
DEC
DEC
BNE L0D1ED9
INX
L0D1ED9 TXA
STA $0E
PLY
PLY
PLY
PLY
PLD
RTL
L0D1EE2 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $0E
PHY
JSL L0E05E8
PLA
STA $03
LDA #$0003
STA $01
PHY
JSL L0314F6
PLA
CMP #$0001
BNE L0D1F11
PHY
JSL L0E05E8
PLA
STA $01
BRA L0D1F15
L0D1F11 JSL L0E0000
L0D1F15 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0008
JSL L0E07C5
PLY
PLY
PLY
PLY
PLD
RTL
L0D1F31 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
LDA L055399
PHA
JSL L0B5681
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D1F49 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
LDAL L051BDE
SEC
SBC #$000E
BEQ L0D1F80
BVS L0D1F62
EOR #$8000
L0D1F62 BPL L0D1F80
LDA #$0001
STA $0A
PEA ^L051BE2
PEA L051BE2
PEA $0000
PEA $0004
PEA $0009
JSL L0E07C5
JSL L0B0000
L0D1F80 PLY
PLY
PLD
RTL
L0D1F84 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
STZ $0C
STZ $01
L0D1F90 LDAL L051BDE
SEC
SBC #$000E
BEQ L0D1FFC
BVS L0D1F9F
EOR #$8000
L0D1F9F BPL L0D1FFC
LDA $01
INC
STA $01
PEA ^L051BE2
PEA L051BE2
PEA $0000
PEA $0004
PEA $0009
JSL L0E07C5
JSL L0B0000
LDAL L051BDE
DEC
DEC
BNE L0D1FD2
LDA #$0001
STA $0C
PEI $01
JSL L0E0E11
BRA L0D1FFC
L0D1FD2 LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0D1FDF
INX
L0D1FDF TXA
BEQ L0D1FF8
LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0D1FEF
INX
L0D1FEF TXA
BEQ L0D1FF8
JSL L0B0000
BRA L0D1FFA
L0D1FF8 BRA L0D1FFC
L0D1FFA BRA L0D1F90
L0D1FFC PLY
PLY
PLY
PLD
RTL
L0D2001 ENT
PHD
TSC
CLC
ADC #$FEF2
TCS
ADC #$0017
TCD
STZ $FC
TSC
CLC
ADC #$010E
TCS
PLD
RTL
L0D2016 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
LDA #$0007
CMPL L051BDE
BNE L0D2032
LDA #$0001
STA $0A
JSL L0E1220
L0D2032 PLY
PLY
PLD
RTL
L0D2036 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA #$0001
STA $0C
PHY
JSL L0314F6
PLA
STA $01
JSL L0E0000
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $0013
JSL L0E07C5
PLY
PLY
PLY
PLD
RTL
L0D206A ENT
PHD
TSC
CLC
ADC #$FDFC
TCS
ADC #$010D
TCD
STZ $FC
LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L0D2085
CPX L0553BB
L0D2085 BNE L0D2089
BRA L0D20DC
L0D2089 LDA L0553B9
LDX L0553BB
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L0B1388
PHY
PEA $0000
TDC
CLC
ADC #$FEF3
PHA
JSL L0B369F
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L071C56
PLA
LSR
BCC L0D20DC
LDA #$0001
STA $FC
JSL L0B0000
PEA $0000
PEA $0000
JSL L0E0DE2
L0D20DC TSC
CLC
ADC #$0204
TCS
PLD
RTL
L0D20E4 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0010
JSL L0D111B
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D20FB ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
LDA #$0001
STA $FC
LDAL L051BDE
SEC
SBC #$000E
BVS L0D2118
EOR #$8000
L0D2118 BMI L0D212D
LDAL L051BDE
DEC
DEC
BEQ L0D2129
PEA $0004
JSL L0B0B7A
L0D2129 STZ $FC
BRA L0D217F
L0D212D LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L0D213B
CPX L0553BB
L0D213B BNE L0D2151
JSL L0B0000
LDAL L051BDE
DEC
DEC
BEQ L0D214D
STZ $FC
BRA L0D217F
L0D214D JSL L0B28E4
L0D2151 PHY
LDA L0553BD
LDX L0553BF
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L0B369F
JSL L0B2819
PLA
LDX #$0000
BIT #$8000
BEQ L0D2175
DEX
L0D2175 PHX
PHA
JSL L0E0DE2
JSL L0B0000
L0D217F TSC
CLC
ADC #$0104
TCS
PLD
RTL
L0D2187 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $000A
JSL L0D111B
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D219E PHD
TSC
CLC
ADC #$FFCE
TCS
TCD
STZ $44
LDA [$40]
DEC
BEQ L0D21B0
BRL L0D2253
L0D21B0 LDY #$0004
LDA [$40],Y
TAX
DEY
DEY
LDA [$40],Y
CMP L055039
BNE L0D21C2
CPX L05503B
L0D21C2 BEQ L0D21CE
PEA $0006
JSL L0B0B7A
BRL L0D2253
L0D21CE LDA $3C
LDX $3E
STA $01
STX $03
LDY #$0012
LDA [$40],Y
TAX
DEY
DEY
LDA [$40],Y
LDY #$0002
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDY #$0008
LDA [$40],Y
TAX
DEY
DEY
LDA [$40],Y
LDY #$0006
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDY #$000C
LDA [$40],Y
TAX
DEY
DEY
LDA [$40],Y
LDY #$000A
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0003
LDY #$000E
STA [$01],Y
LDY #$000E
LDA [$40],Y
LDY #$0010
STA [$01],Y
PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDY #$0010
LDA [$01],Y
PHA
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L07ABAE
PLA
LSR
BCC L0D2253
LDA #$000F
AND $09
STA [$01]
LDA #$0001
STA $44
L0D2253 LDA $36
STA $42
LDA $35
STA $41
LDA $33
TCD
TSC
CLC
ADC #$0040
TCS
RTL
L0D2265 ENT
PHD
TSC
CLC
ADC #$FFB4
TCS
TCD
STZ $52
PHY
JSL L0314F6
PLA
CMP #$0007
BNE L0D22A0
JSL L0E0000
PHY
PEA ^L05103C
PEA L05103C
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PHD
JSL L0D219E
PLA
LSR
BCC L0D229D
BRL L0D242C
L0D229D BRL L0D2447
L0D22A0 PHY
JSL L0314F6
PLA
CMP #$0008
BNE L0D22F3
JSL L0E0000
LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L0D22BD
CPX L0553BB
L0D22BD BNE L0D22C4
LDA #$0000
BRA L0D22C7
L0D22C4 LDA #$0001
L0D22C7 BEQ L0D22F0
PHY
LDA L0553B9
LDX L0553BB
CLC
ADC #$0020
BCC L0D22D7
INX
L0D22D7 PHX
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PHD
JSL L0D219E
PLA
BEQ L0D22F0
BRL L0D242C
L0D22F0 BRL L0D2447
L0D22F3 PHY
JSL L0314F6
PLA
CMP #$0006
BNE L0D2316
TDC
CLC
ADC #$0031
PEA $0000
PHA
PEA $0000
PEA $000C
PEA $0003
JSL L0E0656
BRA L0D2323
L0D2316 TDC
CLC
ADC #$0031
PEA $0000
PHA
JSL L0B0D87
L0D2323 PHY
JSL L0314F6
PLA
DEC
DEC
BPL L0D2330
BRL L0D23DF
L0D2330 CMP #$0004
BMI L0D2338
BRL L0D23DF
L0D2338 SEC
SBC #$0000
BEQ L0D2348
DEC
DEC
BEQ L0D2371
DEC
BEQ L0D2396
BRL L0D23DF
L0D2348 LDA #$0002
STA $0F
TDC
CLC
ADC #$0045
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0014
JSL L0E0656
PHY
PHY
JSL L0E05AF
PLA
STA $11
PLX
STX $13
BRA L0D23DF
L0D2371 LDA #$0003
STA $0F
PHY
JSL L0E05E8
PLA
STA $11
TDC
CLC
ADC #$0045
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0014
JSL L0E0656
BRA L0D23DF
L0D2396 PHY
JSL L031630
PLA
LSR
BCC L0D23B2
LDA #$0002
STA $0F
PHY
PHY
JSL L0E05AF
PLA
STA $11
PLX
STX $13
BRA L0D23C7
L0D23B2 LDA #$0001
STA $0F
TDC
CLC
ADC #$0011
PEA $0000
PHA
PEA $001F
JSL L0E06F4
L0D23C7 TDC
CLC
ADC #$0045
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0014
JSL L0E0656
BRA L0D23DF
L0D23DF LDA L055039
LDX L05503B
CMP $39
BNE L0D23EB
CPX $3B
L0D23EB BEQ L0D23F6
PEA $0006
JSL L0B0B7A
BRA L0D2447
L0D23F6 LDA $31
LDX $33
STA $0B
STX $0D
LDA $35
LDX $37
STA $07
STX $09
LDA $45
BEQ L0D2414
LDA $07
LDX $09
STA $03
STX $05
BRA L0D241C
L0D2414 LDA $0B
LDX $0D
STA $03
STX $05
L0D241C LDA $47
BEQ L0D2427
LDA #$0001
STA $01
BRA L0D242C
L0D2427 LDA #$0002
STA $01
L0D242C LDA #$0001
STA $52
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0030
PEA $000A
JSL L0E07C5
L0D2447 TSC
CLC
ADC #$004C
TCS
PLD
RTL
L0D244F ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $0E
PHY
JSL L0314F6
PLA
CMP #$0004
BEQ L0D246C
LDA #$0000
BRA L0D246F
L0D246C LDA #$0001
L0D246F STA $01
JSL L0E0000
PHY
JSL L0314F6
PLA
DEC
BMI L0D24A5
CMP #$0003
BPL L0D24A5
SEC
SBC #$0000
BEQ L0D2491
DEC
BEQ L0D2495
DEC
BEQ L0D249C
BRA L0D24A5
L0D2491 STZ $03
BRA L0D24A5
L0D2495 LDA #$0001
STA $03
BRA L0D24A5
L0D249C LDA $01
EOR #$0001
STA $03
BRA L0D24A5
L0D24A5 JSL L0E0000
LDA $01
BEQ L0D24C9
LDA $03
BEQ L0D24BD
PEA $0000
PEA $0002
JSL L0E0DE2
BRA L0D24C7
L0D24BD PEA $0000
PEA $0001
JSL L0E0DE2
L0D24C7 BRA L0D24E3
L0D24C9 LDA $03
BEQ L0D24D9
PEA $0000
PEA $0004
JSL L0E0DE2
BRA L0D24E3
L0D24D9 PEA $0000
PEA $0003
JSL L0E0DE2
L0D24E3 PLY
PLY
PLY
PLY
PLD
RTL
L0D24E9 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
STZ $0E
LDA #$0016
CMPL L051BDE
BEQ L0D24FF
BRL L0D25BA
L0D24FF LDAL L051BE0
DEC
BPL L0D2509
BRL L0D2599
L0D2509 CMP #$0005
BMI L0D2511
BRL L0D2599
L0D2511 SEC
SBC #$0000
BEQ L0D253C
DEC
DEC
BEQ L0D2523
DEC
BEQ L0D253C
DEC
BEQ L0D2523
BRA L0D2599
L0D2523 LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0D2530
INX
L0D2530 TXA
STA $03
LDA $03
EOR #$0001
STA $01
BRA L0D259B
L0D253C LDX #$0000
LDAL L051BE0
DEC
BNE L0D2547
INX
L0D2547 TXA
STA $01
JSL L0B0000
LDX #$0000
LDA #$0016
CMPL L051BDE
BEQ L0D255B
INX
L0D255B TXA
BNE L0D2585
LDX #$0000
LDA #$0005
CMPL L051BE0
BEQ L0D256B
INX
L0D256B TXA
BEQ L0D2580
PHA
LDX #$0000
LDA #$0003
CMPL L051BE0
BEQ L0D257C
INX
L0D257C TXA
AND $01,S
PLX
L0D2580 CMP #$0000
BEQ L0D2587
L0D2585 BRA L0D25BA
L0D2587 LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0D2594
INX
L0D2594 TXA
STA $03
BRA L0D259B
L0D2599 BRA L0D25BA
L0D259B JSL L0B0000
LDA #$0001
STA $0E
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0014
JSL L0E07C5
L0D25BA PLY
PLY
PLY
PLY
PLD
RTL
L0D25C0 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $0E
PHY
JSL L0E05E8
PLA
STA $01
PHY
JSL L0E05E8
PLA
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E07C5
PLY
PLY
PLY
PLY
PLD
RTL
L0D25F9 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $000B
JSL L0D111B
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D2610 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
STZ $0C
LDA #$0014
CMPL L051BDE
BNE L0D2648
LDA #$0001
STA $0C
LDAL L051BE0
STA $01
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $0015
JSL L0E07C5
JSL L0B0000
L0D2648 PLY
PLY
PLY
PLD
RTL
L0D264D ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDAL L051BE0
STA L055413
PHY
JSL L0D2610
PLA
STA $0A
PLY
PLY
PLD
RTL
L0D2668 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
STZ $10
LDA L0553D1
LDX L0553D3
STA $07
STX $09
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $01
STX $03
LDA L055413
SEC
SBC #$0003
BPL L0D2694
BRL L0D2797
L0D2694 CMP #$0048
BMI L0D269C
BRL L0D2797
L0D269C ASL
TAX
LDAL L0D26A4,X
PHA
RTS
L0D26A4 DA L0D2732+1
DA L0D2732+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D278C+1
DA L0D2744+1
DA L0D2744+1
DA L0D2744+1
DA L0D2744+1
DA L0D2744+1
DA L0D2744+1
DA L0D2795+1
DA L0D2771+1
DA L0D2768+1
DA L0D275F+1
DA L0D277A+1
DA L0D2732+1
DA L0D2744+1
DA L0D2783+1
DA L0D2744+1
DA L0D2732+1
DA L0D2756+1
DA L0D274D+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2744+1
DA L0D2756+1
DA L0D2744+1
DA L0D2756+1
DA L0D2756+1
DA L0D2744+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2744+1
DA L0D2744+1
DA L0D2744+1
DA L0D2744+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2732+1
DA L0D2756+1
DA L0D2756+1
DA L0D2732+1
DA L0D2744+1
DA L0D2732+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
DA L0D273B+1
DA L0D273B+1
DA L0D273B+1
DA L0D273B+1
DA L0D275F+1
DA L0D275F+1
DA L0D273B+1
DA L0D273B+1
DA L0D2732+1
DA L0D2756+1
DA L0D2732+1
DA L0D2744+1
DA L0D2756+1
DA L0D2756+1
DA L0D2756+1
L0D2732 DA L0D2732+1
LDY #$01B0
LDA [$01],Y
STA $05
L0D273B BRA L0D27A0
LDY #$01AC
LDA [$01],Y
STA $05
L0D2744 BRA L0D27A0
LDY #$01AE
LDA [$01],Y
STA $05
L0D274D BRA L0D27A0
LDY #$01C6
LDA [$01],Y
STA $05
L0D2756 BRA L0D27A0
LDY #$01AA
LDA [$01],Y
STA $05
L0D275F BRA L0D27A0
LDY #$01A8
LDA [$01],Y
STA $05
L0D2768 BRA L0D27A0
LDY #$01A6
LDA [$01],Y
STA $05
L0D2771 BRA L0D27A0
LDY #$01A4
LDA [$01],Y
STA $05
L0D277A BRA L0D27A0
LDY #$01A2
LDA [$01],Y
STA $05
L0D2783 BRA L0D27A0
LDY #$01B2
LDA [$01],Y
STA $05
L0D278C BRA L0D27A0
LDY #$01C8
LDA [$01],Y
STA $05
L0D2795 BRA L0D27A0
L0D2797 PEA $0007
JSL L0B0B7A
BRA L0D27AA
L0D27A0 PHY
PEI $05
JSL L0B4D5D
PLA
STA $10
L0D27AA PLY
PLY
PLY
PLY
PLY
PLD
RTL
L0D27B1 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA #$0001
STA $12
PHY
JSL L0E05E8
PLA
STA $05
PHY
JSL L0E05E8
PLA
STA $07
PHY
JSL L0E05E8
PLA
STA $01
PHY
JSL L0E05E8
PLA
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $000C
JSL L0E07C5
TSC
CLC
ADC #$000C
TCS
PLD
RTL
L0D27FC ENT
PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
STZ $3C
STZ $29
TDC
CLC
ADC #$001D
PEA $0000
PHA
JSL L0E00CC
LDA $1D
BEQ L0D2824
LDA $1F
LDX $21
STA $2B
STX $2D
BRL L0D28D8
L0D2824 PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$001F
PEA $0000
PHA
PLY
PLX
TSC
CLC
ADC #$FFF6
TCS
PEA $0000
INC
PHA
PHX
PHY
PEA $000A
JSL L0313BE
JSL L03312F
TAY
CLC
TSC
ADC #$000A
TCS
TYA
PHX
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$001F
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0008
_SANEFP816
BNE L0D289D
LDA #$0000
BRA L0D28A0
L0D289D LDA #$0001
L0D28A0 BEQ L0D28AB
PEA $007B
JSL L0B0B7A
BRA L0D28F3
L0D28AB TDC
CLC
ADC #$001F
PEA $0000
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L0B8121
LDA $19
ORA $1B
BEQ L0D28D0
PEA $007C
JSL L0B0B7A
BRA L0D28F3
L0D28D0 LDA $15
LDX $17
STA $2B
STX $2D
L0D28D8 TDC
CLC
ADC #$0029
PEA $0000
PHA
PEA $0000
PEA $000A
PEA $0006
JSL L0E07C5
LDA #$0001
STA $3C
L0D28F3 TSC
CLC
ADC #$0036
TCS
PLD
RTL
L0D28FB ENT
PHD
TSC
CLC
ADC #$FFA8
TCS
TCD
LDA #$0001
STA $5E
LDA #$0001
STA $01
PHY
JSL L0314F6
PLA
DEC
DEC
BMI L0D296C
CMP #$0004
BPL L0D296C
SEC
SBC #$0000
BEQ L0D292D
DEC
BEQ L0D2938
DEC
BEQ L0D2952
DEC
BEQ L0D2961
BRA L0D296C
L0D292D LDA #$0002
STA $23
JSL L0E0000
BRA L0D296C
L0D2938 STZ $23
TDC
CLC
ADC #$0025
PEA $0000
PHA
PEA $0000
PEA $0030
PEA $000A
JSL L0E0656
BRA L0D296C
L0D2952 LDA #$0001
STA $23
PHY
JSL L0E05E8
PLA
STA $25
BRA L0D296C
L0D2961 LDA #$0003
STA $23
JSL L0E0000
BRA L0D296C
L0D296C TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0054
PEA $0007
JSL L0E07C5
TSC
CLC
ADC #$0058
TCS
PLD
RTL
L0D298A ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
STZ $10
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0006
JSL L071EC5
L0D29A7 LDA #$0013
CMPL L051BDE
BNE L0D2A2C
LDAL L032C56
CMPL L051BE0
BNE L0D29C1
LDA #$0001
STA $01
BRA L0D29E5
L0D29C1 LDAL L032C54
CMPL L051BE0
BNE L0D29D2
LDA #$0001
STA $03
BRA L0D29E5
L0D29D2 LDAL L032C52
CMPL L051BE0
BNE L0D29E3
LDA #$0001
STA $05
BRA L0D29E5
L0D29E3 BRA L0D2A2C
L0D29E5 JSL L0B0000
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0D29F6
INX
L0D29F6 PHX
LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0D2A04
INX
L0D2A04 TXA
AND $01,S
PLX
LSR
BCC L0D2A11
JSL L0B0000
BRA L0D29A7
L0D2A11 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0006
PEA $000D
JSL L0E07C5
LDA #$0001
STA $10
L0D2A2C PLY
PLY
PLY
PLY
PLY
PLD
RTL
L0D2A33 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA #$0001
STA $12
PHY
JSL L0314F6
PLA
BNE L0D2A88
JSL L0E0000
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
LDA L055043
LDX L055045
PHX
PHA
JSL L072B9F
PLA
STA $05
PLX
STX $07
PHY
PHY
PEI $07
PEI $05
JSL L072D71
PLA
STA $01
PLX
STX $03
PEI $07
PEI $05
JSL L07185A
PEI $03
PEI $01
JSL L0E0CFE
L0D2A88 TSC
CLC
ADC #$000C
TCS
PLD
RTL
L0D2A90 ENT
PHD
TSC
CLC
ADC #$FFD8
TCS
TCD
LDA #$0001
STA $2E
LDA #$0001
STA $0D
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $0000
PEA $0006
JSL L071EC5
TDC
CLC
ADC #$001D
PEA $0000
PHA
PEA $0000
PEA $0008
JSL L071EC5
PHY
JSL L0314F6
PLA
CMP #$0004
BNE L0D2AE9
TDC
CLC
ADC #$001D
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $0005
JSL L0E0656
L0D2AE9 PHY
JSL L0314F6
PLA
CMP #$0002
BNE L0D2B0A
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $0000
PEA $0006
PEA $0010
JSL L0E0656
L0D2B0A PHY
JSL L0314F6
PLA
CMP #$0003
BNE L0D2B2B
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $0000
PEA $0006
PEA $0010
JSL L0E0656
L0D2B2B PHY
JSL L0314F6
PLA
CMP #$0001
BNE L0D2B4C
TDC
CLC
ADC #$001D
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $0005
JSL L0E0656
L0D2B4C JSL L0E0000
LDX #$0000
LDA $1D
BNE L0D2B58
INX
L0D2B58 PHX
LDX #$0000
LDA $1F
BNE L0D2B61
INX
L0D2B61 TXA
AND $01,S
PLX
PHA
LDX #$0000
LDA $21
BNE L0D2B6E
INX
L0D2B6E TXA
AND $01,S
PLX
LSR
BCC L0D2BAC
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
JSL L15014A
PEA $0008
JSL L0313BE
LDA #$00FF
AND $14
INC
SEP #$20
STA $14
REP #$20
LDA #$00FF
AND $13
INC
SEP #$20
STA $13
REP #$20
BRA L0D2BCC
L0D2BAC LDA $1D
SEP #$20
STA $12
REP #$20
LDA $1F
SEP #$20
STA $14
REP #$20
LDA $21
SEP #$20
STA $13
REP #$20
LDA $23
SEP #$20
STA $16
REP #$20
L0D2BCC LDA $17
SEP #$20
STA $11
REP #$20
LDA $19
SEP #$20
STA $10
REP #$20
LDA $1B
SEP #$20
STA $0F
REP #$20
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA $0000
PEA $000A
PEA $0006
JSL L0E07C5
TSC
CLC
ADC #$0028
TCS
PLD
RTL
L0D2C02 ENT
PHD
TSC
CLC
ADC #$FEEC
TCS
ADC #$001D
TCD
STZ $FC
TDC
CLC
ADC #$00CB
PEA $0000
PHA
JSL L0B0D0A
PHY
JSL L0314F6
PLA
SEC
SBC #$0001
BPL L0D2C2B
BRL L0D2DCB
L0D2C2B CMP #$0007
BMI L0D2C33
BRL L0D2DCB
L0D2C33 ASL
TAX
LDAL L0D2C3B,X
PHA
RTS
L0D2C3B DA L0D2C49-1
DA L0D2C55-1
DA L0D2C60-1
DA L0D2C96-1
DA L0D2CE7-1
DA L0D2CE7-1
DA L0D2DAF-1
L0D2C49 LDA #$0005
STA $CB
JSL L0E0000
BRL L0D2DCB
L0D2C55 LDA #$0001
STA $FC
BRL L0D2DE6
* BRL L0D2DCB
L0D2C60 LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L0D2C6E
CPX L0553BB
L0D2C6E BEQ L0D2C8F
TDC
CLC
ADC #$00CB
PEA $0000
PHA
LDA L0553B9
LDX L0553BB
CLC
ADC #$0020
BCC L0D2C86
INX
L0D2C86 PHX
PHA
PEA $0018
JSL L0313BE
L0D2C8F JSL L0E0000
BRL L0D2DCB
L0D2C96 LDA #$0001
STA $CB
TDC
CLC
ADC #$009B
PEA $0000
PHA
PEA $0000
PEA $0030
PEA $000A
JSL L0E0656
LDA $9D
LDX $9F
STA $DB
STX $DD
PHY
TDC
CLC
ADC #$009B
PEA $0000
PHA
PEA $0000
JSL L0D0F6E
PLA
STA $D9
LDA $A5
LDX $A7
STA $D5
STX $D7
LDA $A1
LDX $A3
STA $D1
STX $D3
LDA $D9
BNE L0D2CE4
BRL L0D2DE6
L0D2CE4 BRL L0D2DCB
L0D2CE7 TDC
CLC
ADC #$003F
PEA $0000
PHA
JSL L0940E5
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
JSL L0940E5
PHY
JSL L0314F6
PLA
CMP #$0005
BNE L0D2D3B
STZ $F1
LDA #$0001
LDX #$FFE3
STA $00,X
TDC
CLC
ADC #$00E3
PEA $0000
PHA
PEA $0000
PEA $000C
PEA $0003
JSL L0E0656
LDA $E3
LDX $E5
TXY
LDX #$FFE5
STA $00,X
TYA
STA $02,X
BRA L0D2D5E
L0D2D3B LDA #$0001
STA $F1
PEA $0000
TDC
CLC
ADC #$000F
PHA
PEA $0000
PEA $002C
PEA $0001
JSL L0E0656
LDA #$0006
LDX #$FFE3
STA $00,X
L0D2D5E PHY
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
JSL L0953DD
PLA
LSR
BCS L0D2D86
LDA $F1
BEQ L0D2D7D
PEA $007D
JSL L0B0B7A
BRA L0D2D84
L0D2D7D PEA $0002
JSL L0B0B7A
L0D2D84 BRA L0D2DE6
L0D2D86 TDC
CLC
ADC #$00CB
PEA $0000
PHA
JSL L0B0D0A
LDA $F1
BEQ L0D2D9C
LDA #$0003
STA $CB
L0D2D9C PHY
TDC
CLC
ADC #$003F
PEA $0000
PHA
JSL L0953DD
PLA
STA $EF
BRA L0D2DCB
L0D2DAF TDC
CLC
ADC #$00CB
PEA $0000
PHA
PEA ^L05103C
PEA L05103C
PEA $0018
JSL L0313BE
JSL L0E0000
BRA L0D2DCB
L0D2DCB LDA #$0001
STA $FC
TDC
CLC
ADC #$00CB
PEA $0000
PHA
PEA $0000
PEA $0018
PEA $000F
JSL L0E07C5
L0D2DE6 TSC
CLC
ADC #$0114
TCS
PLD
RTL
L0D2DEE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000F
BNE L0D2E06
CPX #$0000
L0D2E06 BEQ L0D2E0D
LDA #$0000
BRA L0D2E10
L0D2E0D LDA #$0001
L0D2E10 STA $0A
PLY
PLY
PLD
RTL
L0D2E16 PHD
TSC
CLC
ADC #$FDE4
TCS
ADC #$0125
TCD
TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L0B0D0A
STZ $FC
LDA #$0004
STA $DB
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
JSL L0E06AC
PHY
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
PEA ^L0402F3
PEA L0402F3
JSL L071C56
PHY
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
PEA $0000
TDC
CLC
ADC #$FEDB
PHA
LDA L055035
LDX L055037
PHX
PHA
JSL L072CD4
JSL L071C56
PLA
ORA $01,S
PLX
LSR
BCC L0D2E96
LDA L05502B
LDX L05502D
STA $DD
STX $DF
LDA L055275
STA $EF
LDA L055273
STA $F1
BRA L0D2EB3
L0D2E96 PHY
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L0B309A
PLA
LSR
BCS L0D2EB3
BRA L0D2ECE
L0D2EB3 TDC
CLC
ADC #$00DB
PEA $0000
PHA
PEA $0000
PEA $0018
PEA $000F
JSL L0E07C5
LDA #$0001
STA $FC
L0D2ECE TSC
CLC
ADC #$021C
TCS
PLD
RTL
L0D2ED6 PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
JSL L0E0000
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0B0D0A
LDA #$0004
STA $01
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0018
PEA $000F
JSL L0E07C5
TSC
CLC
ADC #$001C
TCS
PLD
RTL
L0D2F12 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000F
BNE L0D2F2F
CPX #$0000
L0D2F2F BNE L0D2F33
BRA L0D2F51
L0D2F33 LDA L055349
SEC
SBC #$0008
BEQ L0D2F43
BVS L0D2F41
EOR #$8000
L0D2F41 BMI L0D2F4D
L0D2F43 PHY
JSL L0D2E16
PLA
STA $0A
BRA L0D2F51
L0D2F4D JSL L0D2ED6
L0D2F51 PLY
PLY
PLD
RTL
L0D2F55 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000F
BNE L0D2F72
CPX #$0000
L0D2F72 BNE L0D2F76
BRA L0D2FB8
L0D2F76 LDA L055413
SEC
SBC #$0002
BEQ L0D2F86
BVS L0D2F84
EOR #$8000
L0D2F84 BMI L0D2F8B
L0D2F86 LDA #$0000
BRA L0D2F8E
L0D2F8B LDA #$0001
L0D2F8E BEQ L0D2FB4
LDA L055413
SEC
SBC #$0008
BEQ L0D2FA5
BVS L0D2F9E
EOR #$8000
L0D2F9E BPL L0D2FA5
LDA #$0000
BRA L0D2FA8
L0D2FA5 LDA #$0001
L0D2FA8 BEQ L0D2FB4
PHY
JSL L0D2E16
PLA
STA $0A
BRA L0D2FB8
L0D2FB4 JSL L0D2ED6
L0D2FB8 PLY
PLY
PLD
RTL
L0D2FBC ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L0B3773
PLA
PLX
CMP #$000F
BNE L0D2FD4
CPX #$0000
L0D2FD4 BNE L0D2FDD
LDA #$0001
STA $0A
BRA L0D2FE5
L0D2FDD PHY
JSL L0D2E16
PLA
STA $0A
L0D2FE5 PLY
PLY
PLD
RTL
L0D2FE9 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
STZ $0C
STZ $01
L0D2FF5 PHY
LDA L0553D1
LDX L0553D3
STA $03
STX $05
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
CLC
ADC #$01B4
BCC L0D300F
INX
L0D300F STA $03
STX $05
LDA [$03]
PHA
JSL L0B4D5D
PLA
LSR
BCC L0D302A
PHY
JSL L0E05E8
PLA
ORA $01
STA $01
BRA L0D302C
L0D302A BRA L0D305F
L0D302C LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0D3039
INX
L0D3039 PHX
LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0D3047
INX
L0D3047 TXA
AND $01,S
PLX
LSR
BCC L0D3054
JSL L0B0000
BRA L0D2FF5
L0D3054 LDA #$0001
STA $0C
PEI $01
JSL L0E0E11
L0D305F PLY
PLY
PLY
PLD
RTL
L0D3064 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$0001
STA $14
PHY
JSL L0314F6
PLA
CMP #$0005
BEQ L0D3081
LDA #$0000
BRA L0D3084
L0D3081 LDA #$0001
L0D3084 STA $01
PHY
JSL L0314F6
PLA
CMP #$0004
BEQ L0D3096
LDA #$0000
BRA L0D3099
L0D3096 LDA #$0001
L0D3099 STA $03
JSL L0E0000
PHY
JSL L0314F6
PLA
CMP #$0003
BNE L0D30B4
PHY
JSL L0E05E8
PLA
STA $09
BRA L0D30B6
L0D30B4 STZ $09
L0D30B6 PHY
JSL L0E05E8
PLA
STA $07
PHY
JSL L0E05E8
PLA
STA $05
LDA #$000C
CMP $05
BNE L0D30D5
LDA $03
BEQ L0D30D3
STZ $05
L0D30D3 BRA L0D30E1
L0D30D5 LDA $01
BEQ L0D30E1
LDA #$000C
CLC
ADC $05
STA $05
L0D30E1 TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $0000
PEA $0006
PEA $0010
JSL L0E07C5
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L0D30FF ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
JSL L0314F6
PLA
CMP #$0002
BNE L0D3125
JSL L0E0000
PEA $0000
PEA $0000
JSL L0E0DE2
L0D3125 PLY
PLY
PLD
RTL
L0D3129 ENT
PHD
TSC
CLC
ADC #$FFDA
TCS
TCD
STZ $21
L0D3133 TDC
CLC
ADC #$0001
STA $23
STZ $25
LDA #$000F
SEC
SBC $21
ASL
CLC
ADC $23
STA $23
BCC L0D314C
INC $25
L0D314C PHY
PHY
JSL L0E05E8
PEA $0000
PEA $0FFF
JSL L071A1B
PLA
STA [$23]
LDA #$000F
CMP $21
BEQ L0D316A
INC $21
BRA L0D3133
L0D316A TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0020
PEA $0018
JSL L0E07C5
LDA #$0001
STA $2C
TSC
CLC
ADC #$0026
TCS
PLD
RTL
L0D318D ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA #$0001
STA $12
STZ $05
LDA #$0001
STA $03
STZ $07
PHY
JSL L0314F6
PLA
CMP #$0003
BNE L0D31D3
PHY
JSL L0E05E8
PLA
STA $05
LDA #$0005
CMP $05
BNE L0D31D3
PHY
PHY
JSL L0E05E8
PLA
DEC
PHA
PEA $0000
PEA $000F
JSL L071A1B
PLA
STA $07
L0D31D3 PHY
JSL L0314F6
PLA
CMP #$0002
BNE L0D31E6
PHY
JSL L0E05E8
PLA
STA $03
L0D31E6 PHY
JSL L0E05E8
PLA
STA $01
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $0017
JSL L0E07C5
TSC
CLC
ADC #$000C
TCS
PLD
RTL
L0D320C ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0001
STA $0A
PHY
JSL L0314F6
PLA
CMP #$0005
BNE L0D322E
PEA $0000
PEA $0005
JSL L0E0DE2
L0D322E PLY
PLY
PLD
RTL
Reference in New Issue View Git Blame Copy Permalink