antoine-source/hypercardiigs/LowMemCmds.S
2023-07-01 22:15:51 +02:00

7336 lines
134 KiB
ArmAsm

*
* HypercardGS
* segment: $1D LowMemCmds
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk LowMemCmds.l
lst off
*---------------------------------------
use LowMemCmds.E
use LowMemCmds.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/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L1D0000 ENT
PHD
TSC
CLC
ADC #$FEF4
TCS
ADC #$002F
TCD
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEI $F6
JSL L07BCB8
LDA L055079
BNE L1D0036
BRL L1D0145
L1D0036 LDA [$EE]
STA L055073
LDY #$0002
LDA [$EA],Y
TAX
LDA [$EA]
STA L05506F
STX L055071
LDY #$0002
LDA [$E6],Y
TAX
LDA [$E6]
STA L05506B
STX L05506D
PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
LDY #$0002
LDA [$F2],Y
PHA
LDA [$F2]
PHA
JSL L07B8EA
PLA
STA $D5
PLX
STX $D7
LDY #$0002
LDA [$F2],Y
TAX
LDA [$F2]
STA $D1
STX $D3
LDA $D5
LDX $D7
STA L05505D
STX L05505F
LDA $D5
ORA $D7
BNE L1D0095
BRL L1D0145
L1D0095 PEA $0000
JSL L09091E
STZ L055087
STZ L055089
JSL L072328
LDA $F2
LDX $F4
STA $D9
STX $DB
PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
LDY #$0002
LDA [$F2],Y
TAX
LDA [$F2]
TAY
BNE L1D00C6
DEX
L1D00C6 DEC
PHX
PHA
PEA ^L0536E5
PEA L0536E5
PEA ^L07E5A5
PEA L07E5A5
PEA $0001
JSL L07C7B5
PLA
STA [$D9]
PLA
LDY #$0002
STA [$D9],Y
LDA [$F2]
LDY #$0002
ORA [$F2],Y
BNE L1D0114
STZ L05505D
STZ L05505F
LDA $D1
LDX $D3
STA [$F2]
TXA
LDY #$0002
STA [$F2],Y
PHY
TDC
CLC
ADC #$00D5
PEA $0000
PHA
JSL L07E5A5
PLA
LSR
BCS L1D0114
BRA L1D0145
L1D0114 LDA L055073
STA [$EE]
LDA L05506F
LDX L055071
STA [$EA]
TXA
LDY #$0002
STA [$EA],Y
LDA L05506B
LDX L05506D
STA [$E6]
TXA
LDY #$0002
STA [$E6],Y
LDA L055067
LDX L055069
STA [$E2]
TXA
LDY #$0002
STA [$E2],Y
BRA L1D017A
L1D0145 LDA #$0000
TAX
STA [$F2]
TXA
LDY #$0002
STA [$F2],Y
LDA #$0000
STA [$EE]
LDA #$0000
TAX
STA [$EA]
TXA
LDY #$0002
STA [$EA],Y
LDA #$0000
TAX
STA [$E6]
TXA
LDY #$0002
STA [$E6],Y
LDA #$0000
TAX
STA [$E2]
TXA
LDY #$0002
STA [$E2],Y
L1D017A LDA $E0
STA $FA
LDA $DF
STA $F9
LDA $DD
TCD
TSC
CLC
ADC #$0128
TCS
RTL
L1D018C PHD
TSC
CLC
ADC #$FEEC
TCS
ADC #$001D
TCD
LDA #$0001
STA $F1
PHY
JSL L0314F6
PLA
STA $EB
PHY
JSL L0727BF
PLA
STA $EF
LDA $EB
SEC
SBC #$0004
BPL L1D01B7
BRL L1D0237
L1D01B7 CMP #$0006
BPL L1D0237
ASL
TAX
LDAL L1D01C4,X
PHA
RTS
L1D01C4 DA L1D01D0-1
DA L1D01D7-1
DA L1D01E8-1
DA L1D01F4-1
DA L1D0205-1
DA L1D0216-1
L1D01D0 LDA #$C000
STA $F1
BRA L1D0237
L1D01D7 LDA #$0055
STA $ED
LDA #$0001
LDX #$0000
STA $E7
STX $E9
BRA L1D0237
L1D01E8 LDA #$0004
STA $ED
LDA #$8000
STA $F1
BRA L1D0237
L1D01F4 LDA #$00B3
STA $ED
LDA #$00FF
LDX #$0000
STA $E7
STX $E9
BRA L1D0237
L1D0205 LDA #$00C1
STA $ED
LDA #$00C0
LDX #$0000
STA $E7
STX $E9
BRA L1D0237
L1D0216 PEA ^L050C32
PEA L050C32
JSL L0E06AC
PHY
PHY
PEA ^L050C32
PEA L050C32
JSL L071DE3
PLA
PLX
STA $ED
LDA #$8000
STA $F1
BRA L1D0237
L1D0237 LDX #$0000
LDA #$0004
CMP $EB
BEQ L1D0242
INX
L1D0242 PHX
LDX #$0000
LDA #$0009
CMP $EB
BEQ L1D024E
INX
L1D024E TXA
AND $01,S
PLX
LSR
BCC L1D0265
JSL L0E0000
LDAL L040648
SEP #$20
STAL L050C32
REP #$20
L1D0265 PEA ^L050C32
PEA L050C32
JSL L0E06AC
PHY
PEI $F1
PEI $ED
PEI $E9
PEI $E7
PEA ^L050C32
PEA L050C32
TDC
CLC
ADC #$00E3
PEA $0000
PHA
JSL L09B294
PLA
LSR
BCC L1D02AE
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEI $E5
PEI $E3
JSL L072CD4
JSL L0E0EA8
PEI $E5
PEI $E3
JSL L07185A
BRA L1D02B2
L1D02AE JSL L0E0C52
L1D02B2 JSL L0E0074
PEI $EF
JSL L0724F7
TSC
CLC
ADC #$0114
TCS
PLD
RTL
L1D02C4 PHD
TSC
TCD
SEP #$20
LDY $08
BEQ L1D02E1
LDY #$0000
L1D02D0 LDA [$0A],Y
BNE L1D02D8
LDA #$20
STA [$0A],Y
L1D02D8 INY
BNE L1D02D0
INC $0C
DEC $08
BNE L1D02D0
L1D02E1 LDY $06
BEQ L1D02FB
DEY
BEQ L1D02F3
L1D02E8 LDA [$0A],Y
BNE L1D02F0
LDA #$20
STA [$0A],Y
L1D02F0 DEY
BNE L1D02E8
L1D02F3 LDA [$0A]
BNE L1D02FB
LDA #$20
STA [$0A]
L1D02FB LDY $06
LDA [$0A],Y
LDA #$00
STA [$0A],Y
REP #$20
LDA $04
STA $0C
LDA $03
STA $0B
TDC
TCS
PLD
PLY
PLY
PLY
PLY
RTL
L1D0315 PHD
TSC
SEC
SBC #$0026
TCD
TCS
LDA $34
LDX $36
STA $15
STX $17
LDX $32
LDA $30
BNE L1D032C
DEX
L1D032C DEC
STX $1B
ASL
ROL $1B
ASL
ROL $1B
ASL
ROL $1B
CLC
ADC $15
STA $19
LDA $1B
ADC $17
STA $1B
LDA $2C
STAL L1D03D8+1
STAL L1D041C+1
LDA $2D
STAL L1D03D8+2
STAL L1D041C+2
TSX
STX $1D
PEI $17
PEI $15
PEI $1B
PEI $19
L1D0362 PLA
PLX
STA $19
STX $1B
PLA
PLX
STA $15
STX $17
L1D036E LDA $15
LDX $17
STA $0D
STX $0F
LDA $19
LDX $1B
STA $11
STX $13
SEC
LDA $11
SBC $0D
TAY
LDA $13
SBC $0F
LSR
TAX
TYA
ROR
AND #$FFF8
CLC
ADC $0D
STA $09
TXA
ADC $0F
STA $0B
LDY #$0002
LDA [$09]
STA $01
LDA [$09],Y
STA $03
INY
INY
LDA [$09],Y
STA $05
INY
INY
LDA [$09],Y
STA $07
BRA L1D03BE
L1D03B2 LDA $0D
CLC
ADC #$0008
STA $0D
BCC L1D03BE
INC $0F
L1D03BE LDY #$0002
LDA [$0D]
CMP $01
BNE L1D03CD
LDA [$0D],Y
CMP $03
BEQ L1D03E1
L1D03CD PHY
LDA [$0D],Y
PHA
LDA [$0D]
PHA
PEI $03
PEI $01
L1D03D8 JSL $000000
PLA
BMI L1D03B2
BNE L1D0402
L1D03E1 LDY #$0006
LDA [$0D],Y
CMP $07
BCC L1D03B2
BNE L1D0402
DEY
DEY
LDA [$0D],Y
CMP $05
BCC L1D03B2
BRA L1D0402
L1D03F6 LDA $11
SEC
SBC #$0008
STA $11
BCS L1D0402
DEC $13
L1D0402 LDY #$0002
LDA [$11]
CMP $01
BNE L1D0411
LDA [$11],Y
CMP $03
BEQ L1D0425
L1D0411 PHY
LDA [$11],Y
PHA
LDA [$11]
PHA
PEI $03
PEI $01
L1D041C JSL $000000
PLA
BMI L1D0438
BNE L1D03F6
L1D0425 LDY #$0006
LDA $07
CMP [$11],Y
BCC L1D03F6
BNE L1D0438
DEY
DEY
LDA $05
CMP [$11],Y
BCC L1D03F6
L1D0438 LDA $13
CMP $0F
BCC L1D0481
BNE L1D0446
LDA $11
CMP $0D
BCC L1D0481
L1D0446 LDY #$0006
L1D0449 TYX
LDA [$0D],Y
STA $1F,X
DEY
DEY
BPL L1D0449
LDY #$0006
L1D0455 LDA [$11],Y
STA [$0D],Y
DEY
DEY
BPL L1D0455
LDY #$0006
L1D0460 TYX
LDA $1F,X
STA [$11],Y
DEY
DEY
BPL L1D0460
LDA $0D
CLC
ADC #$0008
STA $0D
BCC L1D0475
INC $0F
L1D0475 LDA $11
SEC
SBC #$0008
STA $11
BCS L1D0481
DEC $13
L1D0481 LDA $13
CMP $0F
BCC L1D0492
BNE L1D048F
LDA $11
CMP $0D
BCC L1D0492
L1D048F BRL L1D03BE
L1D0492 LDA $0F
CMP $1B
BCC L1D04A0
BNE L1D04A8
LDA $0D
CMP $19
BCS L1D04A8
L1D04A0 PEI $0F
PEI $0D
PEI $1B
PEI $19
L1D04A8 LDA $11
LDX $13
STA $19
STX $1B
LDA $17
CMP $1B
BCC L1D04BE
BNE L1D04C1
LDA $15
CMP $19
BCS L1D04C1
L1D04BE BRL L1D036E
L1D04C1 TSX
CPX $1D
BEQ L1D04C9
BRL L1D0362
L1D04C9 LDA $2A
STA $36
LDA $29
STA $35
LDX $27
TDC
CLC
ADC #$0034
TCS
TXA
TCD
RTL
L1D04DC PHD
TSC
TCD
PHP
SEI
PEA ^L1D0617
PEA L1D0617
PEA $0000
PEA $0100
_WriteRamBlock
LDA $06
BPL L1D04FE
JSR L1D0588
BRL L1D057A
L1D04FE ASL
TAX
SEP #$20
LDAL $E100CA
ORA #$20
STAL $E1C03C
LDA #$80
STAL $E1C03E
LDA #$00
STAL $E1C03D
STAL $E1C03D
LDA #$00
STAL $E1C03E
LDAL L1D05D7,X
STAL $E1C03D
LDAL L1D05D7+1,X
STAL $E1C03D
LDA #$20
STAL $E1C03E
LDAL L1D05F7,X
STAL $E1C03D
LDAL L1D05F7+1,X
STAL $E1C03D
LDA #$40
STAL $E1C03E
LDA #$80
STAL $E1C03D
STAL $E1C03D
LDA #$C0
STAL $E1C03E
LDA #$02
STAL $E1C03D
STAL $E1C03D
LDA #$A0
STAL $E1C03E
LDA #$00
STAL $E1C03D
STAL $E1C03D
REP #$20
L1D057A PLP
LDA $04
STA $06
LDA $03
STA $05
TDC
TCS
PLD
PLY
RTL
L1D0588 SEP #$20
LDAL $E100CA
ORA #$20
STAL $E1C03C
LDA #$C0
STAL $E1C03E
LDA #$00
STAL $E1C03D
STAL $E1C03D
LDA #$20
STAL $E1C03E
LDA #$FF
STAL $E1C03D
STAL $E1C03D
LDA #$A0
STAL $E1C03E
LDA #$02
STAL $E1C03D
STAL $E1C03D
LDA #$40
STAL $E1C03E
LDA #$00
STAL $E1C03D
STAL $E1C03D
REP #$20
RTS
L1D05D7 DW $7619
DW $0E1B
DW $761B
DW $031B
DW $0E16
DW $7616
DW $0316
DW $0ECE
DW $76CE
DW $03CE
DW $0E19
DW $0319
DW $CB1B
DW $CB16
DW $CBCE
DW $CB19
L1D05F7 DW $6D4D
DW $6339
DW $6D39
DW $7939
DW $633F
DW $6D3F
DW $793F
DW $6345
DW $6D45
DW $7945
DW $634D
DW $794D
DW $8539
DW $853F
DW $8545
DW $854D
L1D0617 HEX 7F8386898C8F9295989B9EA1A4A7AAAD
HEX B0B3B6B8BBBEC1C3C6C8CBCDD0D2D4D7
HEX D9DBDDDFE1E3E5E7E9EAECEEEFF0F2F3
HEX F4F5F7F8F9F9FAFBFCFCFDFDFDFEFEFE
HEX FEFEFEFEFDFDFDFCFCFBFAF9F8F8F7F5
HEX F4F3F2F0EFEEECEAE9E7E5E3E1DFDDDB
HEX D9D7D4D2D0CDCBC8C6C3C0BEBBB8B6B3
HEX B0ADAAA7A4A19E9B9895928F8C898683
HEX 7F7C797673706D6A6764615E5B585552
HEX 4F4C494744413E3C393734322F2D2B28
HEX 262422201E1C1A1816151311100F0D0C
HEX 0B0A0807060605040303020202010101
HEX 0101010102020203030405060707080A
HEX 0B0C0D0F1011131516181A1C1E202224
HEX 26282B2D2F323437393C3F414447494C
HEX 4F5255585B5E6164676A6D707376797C
L1D0717 ENT
PHD
TSC
CLC
ADC #$FD86
TCS
ADC #$0183
TCD
PHY
JSL L0727BF
PLA
STA $ED
PHY
JSL L0314F6
PLA
SEC
SBC #$0004
BVS L1D0739
EOR #$8000
L1D0739 BPL L1D0742
JSL L1D018C
BRL L1D0923
L1D0742 PHY
PHY
PEA $0C1C
JSL L072834
PLA
STA $EF
PLX
STX $F1
PHY
JSL L0314F6
PLA
STA $EB
LDA $EB
BNE L1D07A1
LDA #$0001
STA $EB
PEA $0000
TDC
CLC
ADC #$0081
PHA
PEA $0000
TDC
CLC
ADC #$FE7D
PHA
PEA $083C
JSL L073002
PEA $0020
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0081
PHA
PHY
PHY
PEI $F1
PEI $EF
PEA $0000
PEA $0001
JSL L151367
JSL L151436
BRA L1D0812
L1D07A1 LDA $EB
LDX #$FF7F
STA $00,X
LDX #$FF7F
LDA $00,X
SEC
SBC #$0001
BVS L1D07B6
EOR #$8000
L1D07B6 BPL L1D0812
LDA #$0001
STA $E9
L1D07BD LDA $E9
ASL
ASL
ASL
ASL
ASL
CLC
ADC #$0061
TAX
STX $F3
TDC
CLC
ADC $F3
LDX #$0000
PHX
PHA
JSL L0E06D0
LDA $E9
ASL
ASL
ASL
ASL
ASL
CLC
ADC #$0061
TAX
STX $F3
TDC
CLC
ADC $F3
LDX #$0000
PHX
PHA
PHY
PHY
PEI $F1
PEI $EF
LDA $E9
JSL L150488
PHX
PHA
JSL L151367
JSL L151436
LDA $E9
LDX #$FF7F
CMP $00,X
BEQ L1D0812
INC $E9
BRA L1D07BD
L1D0812 LDA $EB
INC
LDX #$FF7D
STA $00,X
LDX #$FF7D
LDA $00,X
SEC
SBC #$0003
BEQ L1D082C
BVS L1D082A
EOR #$8000
L1D082A BMI L1D0848
L1D082C LDA #$0003
STA $E9
L1D0831 PEI $F1
PEI $EF
PEI $E9
JSL L072E4C
LDA $E9
LDX #$FF7D
CMP $00,X
BEQ L1D0848
DEC $E9
BRA L1D0831
L1D0848 PEA $0000
TDC
CLC
ADC #$FF81
PHA
JSL L0E06AC
PEA $0000
TDC
CLC
ADC #$FF81
PHA
PEA ^L040316
PEA L040316
PEA ^L040317
PEA L040317
PEA ^L040318
PEA L040318
JSL L073C22
PEI $F1
PEI $EF
PEA $0004
JSL L073D2E
PHY
PEA $FFFF
PEA $0000
JSL L150B28
PLA
STA $E7
PEI $F1
PEI $EF
JSL L15102F
PEI $F1
PEI $EF
JSL L151131
L1D089D PHY
PEA $0000
JSL L0736C8
PLA
STA $E5
LDA #$FFFF
CMP $E5
BNE L1D08B8
JSL L073A49
LDA #$0001
STA $E5
L1D08B8 LDX #$0000
LDA $E5
DEC
BNE L1D08C1
INX
L1D08C1 PHX
LDX #$0000
LDA $E5
DEC
DEC
BNE L1D08CC
INX
L1D08CC TXA
ORA $01,S
PLX
PHA
LDX #$0000
LDA #$0003
CMP $E5
BNE L1D08DC
INX
L1D08DC TXA
ORA $01,S
PLX
LSR
BCC L1D089D
PEA $0000
TDC
CLC
ADC #$FF81
PHA
LDA $E5
ASL
ASL
ASL
ASL
ASL
CLC
ADC #$0061
TAX
STX $F3
TDC
CLC
ADC $F3
LDX #$0000
PHX
PHA
PEA $0020
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FF81
PHA
JSL L0E0EA8
JSL L0E0074
PEI $F1
PEI $EF
JSL L072634
L1D0923 PEI $ED
JSL L0724F7
JSL L09AFB1
TSC
CLC
ADC #$027A
TCS
PLD
RTL
L1D0935 ENT
PHD
TSC
CLC
ADC #$FCE0
TCS
ADC #$0229
TCD
PHY
JSL L0314F6
PLA
CMP #$0002
BNE L1D095A
PEA $0000
TDC
CLC
ADC #$FEDB
PHA
JSL L0E06AC
BRA L1D0967
L1D095A LDAL L040319
LDX #$FEDB
SEP #$20
STA $00,X
REP #$20
L1D0967 PEA $0000
TDC
CLC
ADC #$FFDB
PHA
JSL L0E06AC
PHY
JSL L0314F6
PLA
CMP #$0003
BNE L1D09C4
JSL L0E0000
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
PEA $0000
TDC
CLC
ADC #$FEDB
PHA
PEA $0000
JSL L093CCE
PLA
STA $DB
PLX
STX $DD
PEA $0000
TDC
CLC
ADC #$FDD7
PHA
PEI $DD
PEI $DB
JSL L072CD4
JSL L0E0EA8
PEI $DD
PEI $DB
JSL L07185A
BRL L1D0B51
L1D09C4 PHY
JSL L0314F6
PLA
STA $EF
JSL L0E0000
PHY
JSL L0727BF
PLA
STA $F1
PHY
PHY
PEA $0BB8
JSL L072834
PLA
STA $EB
PLX
STX $ED
PEI $ED
PEI $EB
PEA $0003
PEA $0000
TDC
CLC
ADC #$FEDB
PHA
JSL L073A7B
PEI $ED
PEI $EB
PEA $0003
PEA $0000
PEA $7FFF
JSL L0739E4
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
PEA ^L04031A
PEA L04031A
PEA ^L04031B
PEA L04031B
PEA ^L04031C
PEA L04031C
JSL L073C22
PEI $ED
PEI $EB
PEA $0004
JSL L073D2E
LDA $EF
BEQ L1D0A88
PHY
PHY
PHY
PHY
PEI $ED
PEI $EB
PEA $0000
PEA $0003
JSL L151367
JSL L151430
PLA
PLX
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $E7
STX $E9
LDA $E7
LDX $E9
TXY
LDX #$FED7
STA $00,X
TYA
STA $02,X
LDX #$FED7
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$0038
BCC L1D0A7F
INX
L1D0A7F STA $F3
STX $F5
LDA #$002A
STA [$F3]
L1D0A88 PEI $ED
PEI $EB
JSL L15102F
PEI $ED
PEI $EB
JSL L151131
L1D0A98 PHY
PEA $0000
JSL L0736C8
PLA
STA $DF
LDA #$FFFF
CMP $DF
BNE L1D0AB3
JSL L073A49
LDA #$0001
STA $DF
L1D0AB3 LDX #$0000
LDA $DF
DEC
BNE L1D0ABC
INX
L1D0ABC PHX
LDX #$0000
LDA $DF
DEC
DEC
BNE L1D0AC7
INX
L1D0AC7 TXA
ORA $01,S
PLX
LSR
BCC L1D0A98
LDA $DF
DEC
DEC
BNE L1D0AEC
LDAL L04031D
SEP #$20
STAL L050C32
REP #$20
PEA ^L04031E
PEA L04031E
JSL L0B2D94
BRA L1D0B39
L1D0AEC PEI $ED
PEI $EB
PEA $0003
PEA ^L050C32
PEA L050C32
JSL L071169
LDA $EF
BEQ L1D0B39
PEA ^L050C32
PEA L050C32
JSL L0714B3
PEA ^L050C32
PEA L050C32
PEA $0000
TDC
CLC
ADC #$FEC3
PHA
PHY
PHY
PEA ^L050C33
PEA L050C33
LDA #$00FF
ANDL L050C32
PHA
JSL L073FDF
JSL L0715D9
PEA $0014
JSL L0313BE
L1D0B39 PEA ^L050C32
PEA L050C32
JSL L0E0EA8
PEI $ED
PEI $EB
JSL L072634
PEI $F1
JSL L0724F7
L1D0B51 JSL L0E0074
JSL L09AFB1
TSC
CLC
ADC #$0320
TCS
PLD
RTL
L1D0B61 ENT
PHD
TSC
CLC
ADC #$FDF4
TCS
ADC #$0115
TCD
PHY
JSL L0314F6
PLA
DEC
BPL L1D0B78
BRL L1D0CA7
L1D0B78 CMP #$0003
BMI L1D0B80
BRL L1D0CA7
L1D0B80 SEC
SBC #$0000
BEQ L1D0B92
DEC
BEQ L1D0BD5
DEC
BNE L1D0B8F
BRL L1D0C6C
L1D0B8F BRL L1D0CA7
L1D0B92 PEA $0000
TDC
CLC
ADC #$FFEB
PHA
JSL L0E06AC
PHY
PEA $0000
TDC
CLC
ADC #$FFEB
PHA
PEA $0000
PEA $0001
JSL L0B16ED
PLA
STA $EF
LDA $EF
BEQ L1D0BC2
PEI $EF
JSL L0B06F1
BRA L1D0BD2
L1D0BC2 PEA $000C
PEA $0000
TDC
CLC
ADC #$FFEB
PHA
JSL L0B0841
L1D0BD2 BRL L1D0CA7
L1D0BD5 JSL L0E0000
LDA L055389
BNE L1D0BE1
BRL L1D0C66
L1D0BE1 LDA L05538B
LDX L05538D
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $F3
STX $F5
LDA [$F3]
LDY #$0002
ORA [$F3],Y
BNE L1D0C25
LDA #$0080
AND L055389
BEQ L1D0C0F
PEA $0853
JSL L0727E0
L1D0C0F PEA $0000
TDC
CLC
ADC #$FEEB
PHA
PEA $0853
JSL L072809
JSL L0B2D94
BRA L1D0C4F
L1D0C25 PHY
JSL L1D3C47
PLA
LSR
BCC L1D0C4F
PHY
LDA #$FF7F
AND L055389
PHA
LDA L05538B
LDX L05538D
PHX
PHA
JSL L1604F0
PLA
STA $F1
* PEA ^L1604F0
* PEA L1604F0
* JSL L07187A
L1D0C4F LDA L05538B
LDX L05538D
PHX
PHA
JSL L07185A
STZ L05538B
STZ L05538D
STZ L055389
BRA L1D0C6A
L1D0C66 JSL L072314
L1D0C6A BRA L1D0CA7
L1D0C6C PHY
PHY
JSL L0E061D
PLA
STA $EB
PLX
STX $ED
LDA $EB
ORA $ED
BNE L1D0C87
PEA $0084
JSL L0B0B7A
BRA L1D0CA7
L1D0C87 PHY
PEI $ED
PEI $EB
JSL L0B0653
PLA
LSR
BCC L1D0C9D
PEA $0085
JSL L0B0B7A
BRA L1D0CA5
L1D0C9D PEI $ED
PEI $EB
JSL L16049C
L1D0CA5 BRA L1D0CA7
L1D0CA7 TSC
CLC
ADC #$020C
TCS
PLD
RTL
L1D0CAF PHD
TSC
CLC
ADC #$FED0
TCS
ADC #$0049
TCD
LDY #$0002
LDA [$F4],Y
DEC
DEC
BEQ L1D0D08
LDA $F8
LDX $FA
STA $47
STX $49
LDA [$47]
BEQ L1D0CFA
PHY
PHY
PEA $000B
PEA $0000
PEA $0000
LDA #$0002
CLC
ADC $47
LDX $49
BCC L1D0CE5
INX
L1D0CE5 PHX
PHA
_ConvSeconds
STAL L05565D
PLA
STA $DF
PLX
STX $E1
BRA L1D0D08
L1D0CFA LDY #$0004
LDA [$47],Y
TAX
DEY
DEY
LDA [$47],Y
STA $DF
STX $E1
L1D0D08 LDY #$0002
LDA [$F4],Y
DEC
BPL L1D0D13
BRL L1D0EBD
L1D0D13 CMP #$0004
BMI L1D0D1B
BRL L1D0EBD
L1D0D1B SEC
SBC #$0000
BEQ L1D0D33
DEC
BEQ L1D0D52
DEC
BNE L1D0D2A
BRL L1D0E94
L1D0D2A DEC
BNE L1D0D30
BRL L1D0EA5
L1D0D30 BRL L1D0EBD
L1D0D33 PEI $F2
PEI $F0
PEA $0000
TDC
CLC
ADC #$002F
PHA
PEI $E1
PEI $DF
JSL L0715D9
PEA $0014
JSL L0313BE
BRL L1D0EBD
L1D0D52 LDA $F8
LDX $FA
STA $43
STX $45
LDA [$43]
BEQ L1D0D7D
TDC
CLC
ADC #$00D7
PEA $0000
PHA
LDA #$0002
CLC
ADC $43
LDX $45
BCC L1D0D72
INX
L1D0D72 PHX
PHA
PEA $0008
JSL L0313BE
BRA L1D0DA7
L1D0D7D PHY
PHY
PEA $000A ; from seconds to HyperCard IIgs format
LDY #$0004
LDA [$43],Y
PHA
DEY
DEY
LDA [$43],Y
PHA
TDC
CLC
ADC #$00D7
PEA $0000
PHA
_ConvSeconds
STAL L05565D
PLA
STA $DF
PLX
STX $E1
L1D0DA7 PEI $F2
PEI $F0
PEA $0000
TDC
CLC
ADC #$002F
PHA
* AV 202208 - Y2K fix
* There was no check of the year as described in the ProDOS technotes
lda $da
and #$ff
cmp #40
bcs do1900
adc #2000 ; AV 202208 - 1900
bra doY2K
do1900 clc
adc #1900
* LDA #$00FF
* AND $DA
* CLC
* ADC #1900
doY2K JSL L150488
PHX
PHA
JSL L0715D9
PEA ^L040325 ; ,
PEA L040325
PEA $0000
TDC
CLC
ADC #$001B
PHA
LDA #$00FF
AND $DC
JSL L150488
PHX
PHA
JSL L0715D9
PEA ^L040327 ; ,
PEA L040327
PEA $0000
TDC
CLC
ADC #$0007
PHA
LDA #$00FF
AND $DB
JSL L150488
PHX
PHA
JSL L0715D9
PEA ^L040329 ; ,
PEA L040329
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
LDA #$00FF
AND $D9
JSL L150488
PHX
PHA
JSL L0715D9
PEA ^L04032B ; ,
PEA L04032B
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
LDA #$00FF
AND $D8
JSL L150488
PHX
PHA
JSL L0715D9
PEA ^L04032D ; ,
PEA L04032D
PEA $0000
TDC
CLC
ADC #$FFCB
PHA
LDA #$00FF
AND $D7
JSL L150488
PHX
PHA
JSL L0715D9
PEA ^L04032F ; ,
PEA L04032F
PEA $0000
TDC
CLC
ADC #$FFB7
PHA
* AV 202208 - Y2K fix
* Day of the week was +1
lda $de ; year 1900
and #$ff
tay
lda $da ; theYEAR
and #$ff
cmp #40
bcs yr1900
dey ; year 2000
yr1900 tya
JSL L150488
PHX
PHA
JSL L0715D9
TDC
CLC
ADC #$004B
PEA $0000
PHA
PEA $000D
JSL L1509CE
PEA $008C
JSL L0313BE
BRA L1D0EBD
L1D0E94 PEI $E1
PEI $DF
LDA [$F4]
PHA
PEI $F2
PEI $F0
JSL L0B1E76
BRA L1D0EBD
L1D0EA5 PEI $E1
PEI $DF
LDX #$0000
LDA [$F4]
DEC
BNE L1D0EB2
INX
L1D0EB2 PHX
PEI $F2
PEI $F0
JSL L0B21F1
BRA L1D0EBD
L1D0EBD LDA $EA
STA $FA
LDA $E9
STA $F9
LDA $E7
TCD
TSC
CLC
ADC #$0142
TCS
RTL
L1D0ECF ENT
PHD
TSC
CLC
ADC #$FC94
TCS
ADC #$0275
TCD
PHY
JSL L0314F6
PLA
CMP #$0004
BNE L1D0EFD
TDC
CLC
ADC #$00ED
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0008
JSL L0E0656
BRA L1D0EFF
L1D0EFD STZ $EF
L1D0EFF TDC
CLC
ADC #$00E9
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0008
JSL L0E0656
STZ $F1
PHY
JSL L0314F6
PLA
CMP #$0001
BNE L1D0F4A
LDA #$0001
STA $F1
TDC
CLC
ADC #$008B
PEA $0000
PHA
PEA $0000
PEA $0054
PEA $0007
JSL L0E0656
TDC
CLC
ADC #$008B
PEA $0000
PHA
JSL L0E0BFC
L1D0F4A PHY
JSL L0B7725
PLA
LSR
BCS L1D0F60
PEA ^L040331
PEA L040331
JSL L0B2D94
BRL L1D101F
L1D0F60 TDC
CLC
ADC #$00DF
PEA $0000
PHA
PEA $0000
PEA $000A
PEA $0006
JSL L0E0656
TDC
CLC
ADC #$00DF
PEA $0000
PHA
TDC
CLC
ADC #$00E9
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $0000
PHD
JSL L1D0CAF
LDA $EF
BEQ L1D0FF8
TDC
CLC
ADC #$00DF
PEA $0000
PHA
TDC
CLC
ADC #$00ED
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FE8B
PHA
PEA $0000
PHD
JSL L1D0CAF
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA $0000
TDC
CLC
ADC #$FF8B
PHA
PEA ^L050D32
PEA L050D32
PEA $0000
TDC
CLC
ADC #$FE8B
PHA
PEA $0000
TDC
CLC
ADC #$FD8B
PHA
PEA $0003
JSL L1509CE
PEA $0100
JSL L0313BE
L1D0FF8 PEA $0000
TDC
CLC
ADC #$FF8B
PHA
JSL L0E0EA8
LDA $F1
BEQ L1D101B
TDC
CLC
ADC #$008B
PEA $0000
PHA
PEA $0002
JSL L0E0184
BRA L1D101F
L1D101B JSL L0E0074
L1D101F TSC
CLC
ADC #$036C
TCS
PLD
RTL
L1D1027 ENT
PHD
TSC
CLC
ADC #$FD0E
TCS
ADC #$01FB
TCD
JSL L0B2AC6
LDA #$0001
STA $F1
LDA L055039
LDX L05503B
STA $5D
STX $5F
PHY
JSL L0314F6
PLA
CMP #$0003
BNE L1D10A2
PEA $0000
TDC
CLC
ADC #$FF05
PHA
JSL L0E06AC
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FF05
PHA
JSL L0735A8
PLA
STA $E9
PLX
STX $EB
LDA $E9
ORA $EB
BNE L1D108A
PEA $002D
JSL L0B0B7A
JSL L0E0000
JSL L0E0000
BRL L1D119A
L1D108A PHY
PHY
PEI $EB
PEI $E9
JSL L078841
PLA
STA $5D
PLX
STX $5F
PEI $EB
PEI $E9
JSL L07185A
L1D10A2 PHY
JSL L0314F6
PLA
CMP #$0002
BNE L1D10C5
TDC
CLC
ADC #$00BD
PEA $0000
PHA
PEA $0000
PEA $002C
PEA $0001
JSL L0E0656
BRA L1D10C7
L1D10C5 STZ $F1
L1D10C7 PEA $0000
TDC
CLC
ADC #$FF05
PHA
JSL L0E06AC
LDA $F1
BEQ L1D1128
LDA #$0002
STA $05
LDA #$0001
LDX #$0000
STA $0B
STX $0D
TDC
CLC
ADC #$0031
PEA $0000
PHA
TDC
CLC
ADC #$00BD
PEA $0000
PHA
PEA $002C
JSL L0313BE
TDC
CLC
ADC #$0061
PEA $0000
PHA
JSL L0940E5
PHY
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCS L1D1128
PEA $007D
JSL L0B0B7A
BRA L1D119A
L1D1128 PHY
PEA $0000
TDC
CLC
ADC #$FF05
PHA
PEI $F1
JSL L091037
PLA
STA $ED
LDA $F1
BEQ L1D1150
PHY
TDC
CLC
ADC #$0061
PEA $0000
PHA
JSL L0953DD
PLA
STA $EF
L1D1150 LDA $ED
BEQ L1D116C
PEA $0000
TDC
CLC
ADC #$FE05
PHA
PEA $0002
JSL L072809
PEI $ED
JSL L121FDB
BRA L1D119A
L1D116C PHY
PHY
PEA $0000
TDC
CLC
ADC #$FF05
PHA
JSL L0735A8
PLA
STA $E9
PLX
STX $EB
PEA $0000
PEA $0001
PEI $EB
PEI $E9
PEA $0001
JSL L0968FC
PEI $EB
PEI $E9
JSL L07185A
L1D119A TSC
CLC
ADC #$02F2
TCS
PLD
RTL
L1D11A2 PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
JSL L0B2AC6
LDA L05502B
LDX L05502D
CMP L055039
BNE L1D11BC
CPX L05503B
L1D11BC BNE L1D11C8
PEA $0007
JSL L1220DB
BRL L1D1261
L1D11C8 LDA #$4000
ANDL L053AE9
BEQ L1D11D4
LDA #$0001
L1D11D4 STA $09
LDA L05504F
ORA $09
BEQ L1D11E6
PEA $0008
JSL L1220DB
BRA L1D1261
L1D11E6 PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
LDA L055043
LDX L055045
PHX
PHA
JSL L072B9F
PLA
STA $01
PLX
STX $03
LDA L055039
LDX L05503B
STA $05
STX $07
PEA $0004
JSL L098852
LDA $05
LDX $07
CMP L055039
BNE L1D121F
CPX L05503B
L1D121F BEQ L1D1252
PEI $07
PEI $05
PEA $0001
JSL L0B883D
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L075B09
LDAL L05565D
BNE L1D1249
PEI $07
PEI $05
JSL L09538D
BRA L1D1250
L1D1249 PEA $0009
JSL L1220DB
L1D1250 BRA L1D1259
L1D1252 PEA $0009
JSL L1220DB
L1D1259 PEI $03
PEI $01
JSL L07185A
L1D1261 LDA $12
STA $16
LDA $11
STA $15
LDA $0F
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L1D1273 ENT
PHD
TSC
CLC
ADC #$FD10
TCS
ADC #$01F9
TCD
JSL L0B2AC6
PHY
JSL L0314F6
PLA
CMP #$0003
BEQ L1D1292
LDA #$0000
BRA L1D1295
L1D1292 LDA #$0001
L1D1295 PHA
PHY
JSL L0314F6
PLA
CMP #$0004
BEQ L1D12A6
LDA #$0000
BRA L1D12A9
L1D12A6 LDA #$0001
L1D12A9 ORA $01,S
PLX
LSR
BCS L1D12B2
BRL L1D13B1
L1D12B2 PHY
JSL L0314F6
PLA
CMP #$0004
BEQ L1D12C2
LDA #$0000
BRA L1D12C5
L1D12C2 LDA #$0001
L1D12C5 STA $07
PEA $0000
TDC
CLC
ADC #$FF07
PHA
JSL L0E06AC
JSL L09999B
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FF07
PHA
PEA $0000
JSL L0730BE
PLA
STA $D7
PLX
STX $D9
LDA $07
BEQ L1D135B
LDA #$0004
STA $09
LDY #$0002
LDA [$D7],Y
TAX
LDA [$D7]
STA $0B
STX $0D
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $2006
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L1D1352
LDX #$0000
LDA #$0055
CMP $11
BEQ L1D132A
INX
L1D132A PHX
LDA #$0001
LDX #$0000
CMP $13
BNE L1D1337
CPX $15
L1D1337 BNE L1D133E
LDA #$0000
BRA L1D1341
L1D133E LDA #$0001
L1D1341 AND $01,S
PLX
LSR
BCC L1D1350
PEA $0044
JSL L1220DB
BRA L1D13A6
L1D1350 BRA L1D135B
L1D1352 PEA $0009
JSL L1220DB
BRA L1D13A6
L1D135B PHY
PEI $D9
PEI $D7
JSL L0988BB
PLA
LSR
BCC L1D1372
PEA $0000
PHD
JSL L1D11A2
BRA L1D13A6
L1D1372 PEI $D9
PEI $D7
JSL L0718BF
LDY #$0002
LDA [$D7],Y
PHA
LDA [$D7]
PHA
JSL L075B09
LDAL L05565D
BEQ L1D13A6
PEA $0000
TDC
CLC
ADC #$FE07
PHA
PEA $0044
JSL L072809
LDAL L05565D
PHA
JSL L121FDB
L1D13A6 PEI $D9
PEI $D7
JSL L07185A
BRL L1D16B7
L1D13B1 TDC
CLC
ADC #$003D
PEA $0000
PHA
PEA $0000
PEA $0054
PEA $0007
JSL L0E0656
TDC
CLC
ADC #$0091
PEA $0000
PHA
PEA $0000
PEA $0022
PEA $0004
JSL L0E0656
TDC
CLC
ADC #$003D
PEA $0000
PHA
JSL L0E0BFC
PHY
PHY
JSL L0B3727
PLA
STA $D3
PLX
STX $D5
TDC
CLC
ADC #$0091
PEA $0000
PHA
TDC
CLC
ADC #$00E3
PEA $0000
PHA
TDC
CLC
ADC #$00EF
PEA $0000
PHA
TDC
CLC
ADC #$00EB
PEA $0000
PHA
TDC
CLC
ADC #$00E7
PEA $0000
PHA
TDC
CLC
ADC #$00DF
PEA $0000
PHA
TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L0D0A88
LDX #$0000
LDA $E1
BMI L1D1445
ORA $DF
BEQ L1D1445
INX
L1D1445 TXA
BNE L1D1457
LDX #$0000
LDA $DD
BMI L1D1454
ORA $DB
BEQ L1D1454
INX
L1D1454 TXA
BEQ L1D145E
L1D1457 JSL L0E0000
BRL L1D16B7
L1D145E LDA #$FFFF
TAX
CMP $93
BNE L1D1468
CPX $95
L1D1468 BEQ L1D146D
BRL L1D1555
L1D146D LDA #$FFFF
TAX
CMP $9B
BNE L1D1477
CPX $9D
L1D1477 BEQ L1D14F8
TDC
CLC
ADC #$00EB
PEA $0000
PHA
JSL L071C12
LDX #$0000
LDA #$00FF
AND [$EB]
BNE L1D1491
INX
L1D1491 TXA
BEQ L1D14F6
LDA $E3
LDX $E5
CMP $EF
BNE L1D149E
CPX $F1
L1D149E BNE L1D14A5
LDA #$0000
BRA L1D14A8
L1D14A5 LDA #$0001
L1D14A8 BEQ L1D14F6
L1D14AA LDX $F1
LDA $EF
BNE L1D14B1
DEX
L1D14B1 DEC
STA $EF
STX $F1
LDA $E3
LDX $E5
CMP $EF
BNE L1D14C0
CPX $F1
L1D14C0 BEQ L1D14C7
LDA #$0000
BRA L1D14CA
L1D14C7 LDA #$0001
L1D14CA PHA
LDX #$0000
LDA #$00FF
AND [$EF]
CMP #$0020
BEQ L1D14D9
INX
L1D14D9 TXA
ORA $01,S
PLX
LSR
BCC L1D14AA
LDA #$00FF
AND [$EF]
CMP #$0020
BEQ L1D14F6
LDA $EF
LDX $F1
INC
BNE L1D14F2
INX
L1D14F2 STA $EF
STX $F1
L1D14F6 BRA L1D1555
L1D14F8 LDA #$FFFF
TAX
CMP $A3
BNE L1D1502
CPX $A5
L1D1502 BEQ L1D1536
LDA #$00FF
AND [$EB]
CMP L055277
BNE L1D151C
LDA $EB
LDX $ED
INC
BNE L1D1516
INX
L1D1516 STA $EB
STX $ED
BRA L1D1534
L1D151C LDA $E3
LDX $E5
CMP $EF
BNE L1D1526
CPX $F1
L1D1526 BEQ L1D1534
LDX $F1
LDA $EF
BNE L1D152F
DEX
L1D152F DEC
STA $EF
STX $F1
L1D1534 BRA L1D1555
L1D1536 LDA #$FFFF
TAX
CMP $AB
BNE L1D1540
CPX $AD
L1D1540 BEQ L1D1555
LDA #$00FF
AND [$EB]
BEQ L1D1555
LDA $EB
LDX $ED
INC
BNE L1D1551
INX
L1D1551 STA $EB
STX $ED
L1D1555 TDC
CLC
ADC #$00EB
PEA $0000
PHA
TDC
CLC
ADC #$00EF
PEA $0000
PHA
JSL L070669
PHY
PHY
PHY
PHY
PEA $0000
JSL L031415
JSL L071C98
PLA
PLX
INC
BNE L1D1580
INX
L1D1580 STA $CF
STX $D1
LDA L0553C5
LDX L0553C7
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L1D15A3
DEX
L1D15A3 DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
STA $F3
STX $F5
LDA $CF
LDX $D1
STA [$F3]
TXA
LDY #$0002
STA [$F3],Y
PEI $D1
PEI $CF
LDA #$000A
LDX #$0000
JSL L033477
BEQ L1D15E0
BVS L1D15D9
EOR #$8000
L1D15D9 BPL L1D15E0
LDA #$0000
BRA L1D15E3
L1D15E0 LDA #$0001
L1D15E3 BNE L1D15E8
BRL L1D16A5
L1D15E8 PEI $D5
PEI $D3
LDA #$000A
LDX #$0000
JSL L033477
BEQ L1D15FF
BVS L1D15FD
EOR #$8000
L1D15FD BMI L1D1604
L1D15FF LDA #$0000
BRA L1D1607
L1D1604 LDA #$0001
L1D1607 BNE L1D160C
BRL L1D16A5
L1D160C LDA L0553C5
LDX L0553C7
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L1D162B
DEX
L1D162B DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
CLC
ADC #$0006
BCC L1D1643
INX
L1D1643 STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $CB
STX $CD
LDY #$0002
LDA [$CB],Y
PHA
LDA [$CB]
PHA
LDA L0553C5
LDX L0553C7
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L1D167B
DEX
L1D167B DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
CLC
ADC #$0006
BCC L1D1693
INX
L1D1693 PHX
PHA
PEI $D1
PEI $CF
JSL L070597
PEI $CD
PEI $CB
JSL L07185A
L1D16A5 TDC
CLC
ADC #$003D
PEA $0000
PHA
PEA $0002
JSL L0E0184
BRA L1D16B7
L1D16B7 TSC
CLC
ADC #$02F0
TCS
PLD
RTL
L1D16BF PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L072314
PHD
LDA $0A
TCD
CLC
ADC #$FDCE
TCS
JMPL L1D1AFA
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1D16E9 PHD
TSC
CLC
ADC #$FF38
TCS
TCD
STZ $D2
LDA #$0009
STA $A7
STZ $A9
STZ $25
STZ $01
L1D16FE LDA $A9
INC
STA $A9
LDA #$0024
STA $49
TDC
CLC
ADC #$0049
STA $AB
STZ $AD
STZ $BB
TDC
CLC
ADC #$00A7
PEA $0000
PHA
PEA $202C
JSL GSOS2
STAL L05565D
LDA #$0016
CMP $BB
BNE L1D176B
LDA #$0007
AND $B5
DEC
DEC
BNE L1D1752
TDC
CLC
ADC #$0025
PEA $0000
PHA
TDC
CLC
ADC #$0049
PEA $0000
PHA
PEA $0024
JSL L0313BE
BRA L1D176B
L1D1752 TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$0049
PEA $0000
PHA
PEA $0024
JSL L0313BE
L1D176B LDX #$0000
LDA #$0009
CMP $BB
BNE L1D1776
INX
L1D1776 PHX
LDAL L05565D
BEQ L1D1780
LDA #$0001
L1D1780 ORA $01,S
PLX
LSR
BCS L1D1789
BRL L1D16FE
L1D1789 LDAL L05565D
BNE L1D179A
TDC
CLC
ADC #$004B
STA $71
STZ $73
BRA L1D17BE
L1D179A LDA $25
BMI L1D17AB
BEQ L1D17AB
TDC
CLC
ADC #$0027
STA $71
STZ $73
BRA L1D17BE
L1D17AB LDA $01
BMI L1D17BC
BEQ L1D17BC
TDC
CLC
ADC #$0003
STA $71
STZ $73
BRA L1D17BE
L1D17BC BRA L1D17EE
L1D17BE LDA #$0002
STA $6D
LDA #$0003
STA $75
TDC
CLC
ADC #$006D
PEA $0000
PHA
PEA $2010
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L1D17EE
LDA $6F
LDY #$00E5
STA [$CE],Y
LDA #$0001
STA $D2
L1D17EE LDA $CC
STA $D0
LDA $CB
STA $CF
LDA $C9
TCD
TSC
CLC
ADC #$00CE
TCS
RTL
L1D1800 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $01
LDY #$00E5
LDA [$0E],Y
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2014
JSL GSOS2
STAL L05565D
LDAL L05565D
BEQ L1D1837
PEA $0000
PEI $0E
JSL L1D16BF
L1D1837 LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L1D1849 PHD
TSC
CLC
ADC #$FED6
TCS
ADC #$003B
TCD
PEA $0000
TDC
CLC
ADC #$FFD9
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
LDA #$0004
STA $D9
LDY #$00E5
LDA [$F4],Y
STA $DB
TDC
CLC
ADC #$FFDA
STA $DD
STZ $DF
LDA #$00FF
LDX #$FFD9
AND $00,X
JSL L150488
STA $E1
STX $E3
TDC
CLC
ADC #$00D9
PEA $0000
PHA
PEA $2013
JSL GSOS2
STAL L05565D
LDAL L05565D
BEQ L1D18CE
PEA $0081
PEA $0000
TDC
CLC
ADC #$FFC5
PHA
LDAL L05565D
JSL L150488
PHX
PHA
JSL L07346C
JSL L0B0841
PEA $0000
PEI $F4
JSL L1D16BF
L1D18CE PEA $00B4
JSL L0706CF
LDA $F2
STA $FA
LDA $F1
STA $F9
LDA $EF
TCD
TSC
CLC
ADC #$0134
TCS
RTL
L1D18E7 ENT
PHD
TSC
CLC
ADC #$FCD8
TCS
ADC #$0231
TCD
STZ $F1
PHY
JSL L0314F6
PLA
CMP #$0002
BEQ L1D1904
LDA #$0000
BRA L1D1907
L1D1904 LDA #$0001
L1D1907 PHA
PHY
JSL L0314F6
PLA
CMP #$0003
BEQ L1D1918
LDA #$0000
BRA L1D191B
L1D1918 LDA #$0001
L1D191B ORA $01,S
PLX
LSR
BCC L1D195A
LDA #$0001
STA $F1
PHY
JSL L0314F6
PLA
CMP #$0003
BNE L1D1940
PEA $0000
TDC
CLC
ADC #$FEE5
PHA
JSL L0E06AC
BRA L1D1956
L1D1940 PEA $0000
TDC
CLC
ADC #$FEE5
PHA
PEA ^L04033E
PEA L04033E
PEA $000D
JSL L0313BE
L1D1956 JSL L0E0000
L1D195A PEA $0000
TDC
CLC
ADC #$FFE5
PHA
JSL L0E06AC
LDA $F1
BEQ L1D19D1
PHY
PEA $0000
PHD
JSL L1D16E9
PLA
LSR
BCS L1D1996
PEA $0081
PEA $0000
TDC
CLC
ADC #$FDCF
PHA
LDAL L05565D
JSL L150488
PHX
PHA
JSL L07346C
JSL L0B0841
L1D1996 PEA $0000
TDC
CLC
ADC #$FEE5
PHA
PEA $0000
TDC
CLC
ADC #$FFE5
PHA
PEA ^L032E6A
PEA L032E6A
PEA $0000
TDC
CLC
ADC #$FDE5
PHA
PEA $0003
JSL L1509CE
PEA $0000
PHD
JSL L1D1849
PEA $0000
PHD
JSL L1D1800
BRL L1D1AFA
L1D19D1 LDA L05535F
BNE L1D19D9
BRL L1D1AFA
L1D19D9 PHY
JSL L07005C
PLA
LSR
BCC L1D19E5
BRL L1D1AFA
L1D19E5 PHY
JSL L0301E4
PLA
BNE L1D19D9
PHY
PEA $00FF
JSL L1510B3
PLA
STA $EB
PEA $00FF
PEA $00FF
JSL L1510AD
PEA $0002
JSL L0706CF
LDA #$00FF
LDX #$FFE5
AND $00,X
LDX #$FDE3
STA $00,X
LDX #$FDE3
LDA $00,X
SEC
SBC #$0001
BVS L1D1A24
EOR #$8000
L1D1A24 BMI L1D1A29
BRL L1D1AF1
L1D1A29 LDA #$0001
STA $ED
L1D1A2E PHY
JSL L07005C
PLA
LSR
BCC L1D1A41
PEA $8000
JSL L1D04DC
BRL L1D1AF1
L1D1A41 LDA $ED
CLC
ADC #$FFE5
TAX
LDA #$00FF
AND $00,X
STA $EF
LDA $EF
SEC
SBC #$0023
BMI L1D1ACC
CMP #$0022
BPL L1D1ACC
SEC
SBC #$0000
BEQ L1D1AB2
SEC
SBC #$0007
BEQ L1D1AA9
DEC
DEC
BEQ L1D1A8A
SEC
SBC #$0004
BMI L1D1ACC
CMP #$000A
BCC L1D1A9C
SEC
SBC #$000B
BEQ L1D1A93
SEC
SBC #$0006
BMI L1D1ACC
CMP #$0004
BCC L1D1ABB
BRA L1D1ACC
L1D1A8A PEA $002E
JSL L0706CF
BRA L1D1ACE
L1D1A93 PEA $024A
JSL L0706CF
BRA L1D1ACE
L1D1A9C LDA $EF
SEC
SBC #$0030
PHA
JSL L1D04DC
BRA L1D1ACE
L1D1AA9 PEA $000A
JSL L1D04DC
BRA L1D1ACE
L1D1AB2 PEA $000B
JSL L1D04DC
BRA L1D1ACE
L1D1ABB LDA #$000C
CLC
ADC $EF
SEC
SBC #$0041
PHA
JSL L1D04DC
BRA L1D1ACE
L1D1ACC BRA L1D1AE3
L1D1ACE PEA $000A
JSL L0706CF
PEA $8000
JSL L1D04DC
PEA $0004
JSL L0706CF
L1D1AE3 LDA $ED
LDX #$FDE3
CMP $00,X
BEQ L1D1AF1
INC $ED
BRL L1D1A2E
L1D1AF1 PEI $EB
PEA $00FF
JSL L1510AD
L1D1AFA TSC
CLC
ADC #$0328
TCS
PLD
RTL
L1D1B02 ENT
PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0018
PEA $000F
JSL L0E0656
LDA #$0005
CMP L0551FB
BEQ L1D1B31
PEA $0062
JSL L0B0B7A
BRA L1D1B6C
L1D1B31 LDA #$0005
CMP $01
BNE L1D1B41
PEA $0063
JSL L0B0B7A
BRA L1D1B6C
L1D1B41 LDA L0550B9
DEC
BNE L1D1B50
PEA $0079
JSL L0B0B7A
BRA L1D1B6C
L1D1B50 PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
JSL L0F0635
PLA
LSR
BCS L1D1B6C
PEA $0064
JSL L0B0B7A
L1D1B6C TSC
CLC
ADC #$001C
TCS
PLD
RTL
L1D1B74 ENT
PHD
TSC
CLC
ADC #$FDE0
TCS
ADC #$0129
TCD
LDA L054FA1
STA $F1
PHY
PHY
JSL L07B114
PLA
STA $E7
PLX
STX $E9
LDA L0550B3
STA $EF
LDA L0550AF
LDX L0550B1
STA $D7
STX $D9
LDA L0550AB
JSL L150488
STA $DF
STX $E1
LDA #$0000
STAL L0538C7
STZ L05507B
STZ L05507D
PHY
JSL L0314F6
PLA
CMP #$0003
BEQ L1D1BC5
BRL L1D1C7C
L1D1BC5 PEA ^L0538B9
PEA L0538B9
PEA $0000
PEA $0030
PEA $000A
JSL L0E0656
LDAL L0538C1
TAX
LDAL L0538BF
CMPL L0538BB
BNE L1D1BEC
TXA
CMPL L0538BD
L1D1BEC BEQ L1D1C00
JSL L0E0000
JSL L0E0000
PEA $007E
JSL L0B0B7A
BRL L1D1D7A
L1D1C00 LDAL L0538C1
TAX
LDAL L0538BF
STA L05507B
STX L05507D
LDAL L0538C7
DEC
BMI L1D1C7C
CMP #$0003
BPL L1D1C7C
SEC
SBC #$0000
BEQ L1D1C4D
DEC
BEQ L1D1C29
DEC
BEQ L1D1C31
BRA L1D1C7C
L1D1C29 LDAL L0538C9
STA $EF
BRA L1D1C7C
L1D1C31 PHY
LDAL L0538BD
PHA
LDAL L0538BB
PHA
LDAL L0538C9
PHA
PEA $0000
JSL L07AD84
PLA
STA $EF
BRA L1D1C7C
L1D1C4D PHY
LDAL L0538BD
PHA
LDAL L0538BB
PHA
PHY
LDAL L0538BD
PHA
LDAL L0538BB
PHA
PEA $0002
PEA ^L0538C9
PEA L0538C9
JSL L07BF8F
PEA $0000
JSL L07AD84
PLA
STA $EF
BRA L1D1C7C
L1D1C7C PEA $0000
TDC
CLC
ADC #$FFD7
PHA
JSL L0E06AC
TDC
CLC
ADC #$00EB
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $0013
JSL L0E0656
LDA #$00FF
LDX #$FFD7
AND $00,X
BEQ L1D1D27
PEA $0000
TDC
CLC
ADC #$FFD7
PHA
PEI $EB
TDC
CLC
ADC #$00E7
PEA $0000
PHA
TDC
CLC
ADC #$00EF
PEA $0000
PHA
TDC
CLC
ADC #$00D7
PEA $0000
PHA
TDC
CLC
ADC #$00DF
PEA $0000
PHA
TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L1D0000
PHY
JSL L07005C
PLA
LSR
BCC L1D1CF1
BRL L1D1D74
L1D1CF1 LDA $E7
ORA $E9
BEQ L1D1D27
PEI $E9
PEI $E7
PEA $0000
PEA $0000
PEA $0000
JSL L0968FC
LDA $EF
STA L0550B3
LDA $D7
LDX $D9
STA L0550AF
STX L0550B1
LDA $DF
STA L0550AD
LDA $DB
STA L0550AB
JSL L086149
BRA L1D1D74
L1D1D27 STZ L0550B3
STZ L0550AF
STZ L0550B1
STZ L0550AD
STZ L0550AB
PEA ^L04034B
PEA L04034B
JSL L0B2D94
LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L1D1D4E
CPX L0553BB
L1D1D4E BNE L1D1D74
LDA L0551FB
SEC
SBC #$0004
BVS L1D1D5C
EOR #$8000
L1D1D5C BMI L1D1D70
PEA $000F
PEA $0000
TDC
CLC
ADC #$FFD7
PHA
JSL L0B0841
BRA L1D1D74
L1D1D70 JSL L072314
L1D1D74 PEI $F1
JSL L0724F7
L1D1D7A TSC
CLC
ADC #$0220
TCS
PLD
RTL
L1D1D82 PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
LDA #$0001
STA $1F
L1D1D8F LDA $1F
DEC
PEA $000A
JSL L150BEE
PLX
TXA
CLC
ADC #L05106C
LDX #^L05106C
BCC L1D1DA5
INX
L1D1DA5 CLC
ADC #$0004
BCC L1D1DAC
INX
L1D1DAC STA $21
STX $23
LDA [$21]
BEQ L1D1DC9
LDA #$0008
CMP $1F
BEQ L1D1DBF
INC $1F
BRA L1D1D8F
L1D1DBF PEA $0011
JSL L0B0B7A
BRL L1D1EE9
L1D1DC9 LDA $1F
DEC
PEA $000A
JSL L150BEE
PLX
TXA
CLC
ADC #L05106C
LDX #^L05106C
BCC L1D1DDF
INX
L1D1DDF STA $15
STX $17
LDA #$0000
LDY #$0006
STA [$15],Y
LDA #$0000
LDY #$0004
STA [$15],Y
LDA #$0000
TAX
STA [$15]
TXA
LDY #$0002
STA [$15],Y
LDA #$0001
LDY #$0008
STA [$15],Y
PEA ^L050C32
PEA L050C32
JSL L0E06AC
PHY
PHY
PEA ^L050C32
PEA L050C32
JSL L0735A8
PLA
STA $19
PLX
STX $1B
JSL L09999B
PEI $1B
PEI $19
JSL L0718BF
LDY #$0002
LDA [$19],Y
PHA
LDA [$19]
PHA
PEA $0004
PEA $0000
PEA $0000
PEA $0001
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L075A86
LDX #$0000
LDAL L05565D
BNE L1D1E5E
INX
L1D1E5E TXA
BNE L1D1E71
LDX #$0000
LDA #$0047
CMPL L05565D
BNE L1D1E6E
INX
L1D1E6E TXA
BEQ L1D1E87
L1D1E71 PHY
LDY #$0002
LDA [$19],Y
PHA
LDA [$19]
PHA
PEA $0000
JSL L075D3B
PLA
STA $1D
BRA L1D1E96
L1D1E87 PEA $0012
PEA ^L050C32
PEA L050C32
JSL L0B0841
BRA L1D1EE1
L1D1E96 LDAL L05565D
BEQ L1D1EC4
PEA $0013
PEA $0000
TDC
CLC
ADC #$0001
PHA
LDAL L05565D
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L050C32
PEA L050C32
JSL L0B0897
STZ $1D
BRA L1D1EE1
L1D1EC4 LDA $1D
LDY #$0004
STA [$15],Y
LDA $19
LDX $1B
STA [$15]
TXA
LDY #$0002
STA [$15],Y
PEI $1B
PEI $19
JSL L07191C
BRA L1D1EE9
L1D1EE1 PEI $1B
PEI $19
JSL L07185A
L1D1EE9 LDA $28
STA $2C
LDA $27
STA $2B
LDA $25
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L1D1EFB PHD
TSC
CLC
ADC #$FEFA
TCS
ADC #$0013
TCD
LDA L055389
BEQ L1D1F0E
BRL L1D1FBA
L1D1F0E LDA #$0041
STA L055389
PHY
JSL L0314F6
PLA
CMP #$0005
BNE L1D1F59
LDA #$00C2
STA L055389
PHY
JSL L1D3C47
PLA
LSR
BCC L1D1F44
PHY
LDA L055389
PHA
JSL L1604E2
PLA
STA $ED
* PEA ^L1604E2
* PEA L1604E2
* JSL L07187A
L1D1F44 LDA $ED
BNE L1D1F55
STZ L055389
PEA ^L04035C
PEA L04035C
JSL L0B2D94
L1D1F55 JSL L0E0000
L1D1F59 JSL L0E0000
LDA L055389
BEQ L1D1FB8
PHY
PHY
PEA $0000
PEA $0084
LDA L055019
PHA
JSL L0B249C
PLA
STA L05538B
PLA
STA L05538D
LDAL L05565D
BEQ L1D1F96
PEA $0000
TDC
CLC
ADC #$FFED
PHA
PEA $0BE5
JSL L072809
JSL L0B2D94
BRA L1D1FB8
L1D1F96 LDA L05538B
LDX L05538D
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
STA $EF
STX $F1
LDA #$0000
TAX
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
L1D1FB8 BRA L1D1FBE
L1D1FBA JSL L072314
L1D1FBE LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010C
TCS
RTL
L1D1FD0 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0314F6
PLA
DEC
BMI L1D2017
CMP #$0005
BPL L1D2017
SEC
SBC #$0000
BEQ L1D1FFA
DEC
BEQ L1D1FFA
DEC
BEQ L1D2003
DEC
BEQ L1D200D
DEC
BEQ L1D200D
BRA L1D2017
L1D1FFA PEA $0000
JSL L0C1032
BRA L1D2017
L1D2003 PEA $0000
PHD
JSL L1D1D82
BRA L1D2017
L1D200D PEA $0000
PHD
JSL L1D1EFB
BRA L1D2017
L1D2017 PLY
PLY
PLD
RTL
L1D201B PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
LDA L05538B
ORA L05538D
BNE L1D202E
BRL L1D20C5
L1D202E PHY
PHY
LDA L05538B
LDX L05538D
PHX
PHA
JSL L151301
PLA
STA $0D
PLX
STX $0F
LDA L05538B
LDX L05538D
STA $13
STX $15
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
STA $13
STX $15
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
INC
BNE L1D2064
INX
L1D2064 STA $05
STX $07
LDA $05
LDX $07
PEA $0000
PEA $0004
JSL L150D50
PLA
PLX
CLC
ADC #$0004
BCC L1D207F
INX
L1D207F STA $09
STX $0B
PEI $0B
PEI $09
LDA $0D
LDX $0F
JSL L033477
BEQ L1D20C3
BVS L1D2096
EOR #$8000
L1D2096 BPL L1D20C3
LDA $09
LDX $0B
CLC
ADC #$0080
BCC L1D20A3
INX
L1D20A3 STA $0D
STX $0F
PHY
LDA L05538B
LDX L05538D
PHX
PHA
PEI $0F
PEI $0D
JSL L078A05
PLA
LSR
BCS L1D20C3
JSL L072314
BRL L1D2145
L1D20C3 BRA L1D20E7
L1D20C5 LDA #$0001
LDX #$0000
STA $05
STX $07
PHY
PHY
PEA $0000
PEA $0008
LDA L055019
PHA
JSL L0B249C
PLA
STA L05538B
PLA
STA L05538D
L1D20E7 LDA L05538B
LDX L05538D
STA $13
STX $15
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
STA $01
STX $03
LDA $05
LDX $07
STA [$01]
TXA
LDY #$0002
STA [$01],Y
LDA #$0004
CLC
ADC $01
LDX $03
BCC L1D2114
INX
L1D2114 PHX
PHA
LDA $05
JSL L150488
TAY
BNE L1D2120
DEX
L1D2120 DEC
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $13
STX $15
LDA L055027
LDX L055029
STA [$13]
TXA
LDY #$0002
STA [$13],Y
L1D2145 LDA $1A
STA $1E
LDA $19
STA $1D
LDA $17
TCD
TSC
CLC
ADC #$001C
TCS
RTL
L1D2157 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L05538B
ORA L05538D
BNE L1D2169
BRA L1D21B5
L1D2169 LDA L055389
BNE L1D21B5
PHY
JSL L1D3C47
PLA
LSR
BCC L1D21A3
LDA #$00F1
CLC
ADC $0A
LDX $0C
BCC L1D2182
INX
L1D2182 STA $01
STX $03
PHY
PEA $0041
LDA L05538B
LDX L05538D
PHX
PHA
JSL L1604F0
PLA
STA [$01]
* PEA ^L1604F0
* PEA L1604F0
* JSL L07187A
L1D21A3 LDA L05538B
LDX L05538D
PHX
PHA
JSL L07185A
STZ L05538B
STZ L05538D
L1D21B5 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1D21C6 ENT
PHD
TSC
CLC
ADC #$FE90
TCS
ADC #$0079
TCD
LDX #$FFFF
STZ $00,X
STZ $02,X
PHY
JSL L0314F6
PLA
SEC
SBC #$0004
BPL L1D21E7
BRL L1D2591
L1D21E7 CMP #$0006
BMI L1D21EF
BRL L1D2591
L1D21EF SEC
SBC #$0000
BNE L1D21F8
BRL L1D2307
L1D21F8 DEC
BNE L1D21FE
BRL L1D2337
L1D21FE DEC
BNE L1D2204
BRL L1D23A2
L1D2204 DEC
DEC
BNE L1D220B
BRL L1D2512
L1D220B DEC
BEQ L1D2211
BRL L1D2591
L1D2211 JSL L0E0000
PHY
PHY
JSL L0E05AF
PLA
STA $ED
PLX
STX $EF
LDA $ED
ORA $EF
BNE L1D222A
BRL L1D2598
L1D222A PEI $EF
PEI $ED
LDA #$0000
TAX
JSL L033477
BPL L1D2253
PEA $0003
PEA $0000
TDC
CLC
ADC #$FF87
PHA
PEI $EF
PEI $ED
JSL L07346C
JSL L0B0841
BRL L1D2598
L1D2253 LDX $EF
LDA $ED
BNE L1D225A
DEX
L1D225A DEC
STA $ED
STX $EF
TDC
CLC
ADC #$001B
PEA $0000
PHA
JSL L0940E5
TDC
CLC
ADC #$0077
PEA $0000
PHA
TDC
CLC
ADC #$001B
PEA $0000
PHA
PEA $005C
JSL L0313BE
PEA $0000
PHD
JSL L1D201B
L1D228D LDX #$0000
LDA $EF
BMI L1D2299
ORA $ED
BEQ L1D2299
INX
L1D2299 TXA
PHA
PHY
JSL L07005C
PLA
EOR #$0001
AND $01,S
PLX
LSR
BCC L1D22EB
LDA #$0003
STA $77
LDA #$0002
STA $81
LDA #$0006
STA $A3
LDA $73
LDX $75
STA $CF
STX $D1
PHY
TDC
CLC
ADC #$0077
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCS L1D22D5
BRA L1D22EB
L1D22D5 LDX $EF
LDA $ED
BNE L1D22DC
DEX
L1D22DC DEC
STA $ED
STX $EF
PEA $0000
PHD
JSL L1D201B
BRA L1D228D
L1D22EB PHY
TDC
CLC
ADC #$001B
PEA $0000
PHA
JSL L0933AB
PLA
STA $F1
PEA $0000
PHD
JSL L1D2157
BRL L1D2598
L1D2307 JSL L0E0000
LDA L055389
BNE L1D2334
PHY
JSL L1D3C47
PLA
LSR
BCC L1D2334
PHY
PEA $0041
PEA $0000
PEA $0000
JSL L1604F0
PLA
STA $E9
* PEA ^L1604F0
* PEA L1604F0
* JSL L07187A
L1D2334 BRL L1D2598
L1D2337 TDC
CLC
ADC #$001B
PEA $0000
PHA
JSL L0940E5
TDC
CLC
ADC #$0077
PEA $0000
PHA
PEA $0000
PEA $005C
PEA $0002
JSL L0E0656
LDA $CF
LDX $D1
CMP $73
BNE L1D2364
CPX $75
L1D2364 BNE L1D239B
PHY
TDC
CLC
ADC #$0077
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCC L1D2399
PEA $0000
PHD
JSL L1D201B
PHY
TDC
CLC
ADC #$001B
PEA $0000
PHA
JSL L0933AB
PLA
STA $F1
PEA $0000
PHD
JSL L1D2157
L1D2399 BRA L1D239F
L1D239B JSL L072314
L1D239F BRL L1D2598
L1D23A2 LDA L054FA1
STA $D3
PEA $0000
TDC
CLC
ADC #$FFA5
PHA
PEA $0000
PEA $0030
PEA $000A
JSL L0E0656
PHY
PEA $0000
TDC
CLC
ADC #$FFA5
PHA
PEA $0000
JSL L0D0F6E
PLA
STA $EB
LDX #$FFA7
LDA $02,X
TAY
LDA $00,X
TYX
STA $DD
STX $DF
LDX #$FFAF
LDA $02,X
TAY
LDA $00,X
TYX
STA $D9
STX $DB
LDX #$FFAB
LDA $02,X
TAY
LDA $00,X
TYX
STA $D5
STX $D7
PHY
PEI $DF
PEI $DD
PEI $EB
PEA $0000
TDC
CLC
ADC #$FFD5
PHA
JSL L07ABAE
PLA
LSR
BCS L1D2413
BRL L1D2509
L1D2413 LDX #$FFAB
LDA $02,X
TAY
LDA $00,X
TYX
CMP $DD
BNE L1D2422
CPX $DF
L1D2422 BEQ L1D2429
LDA #$0000
BRA L1D242C
L1D2429 LDA #$0001
L1D242C STA $E7
LDA #$4000
LDX #$FFD9
AND $00,X
BEQ L1D243B
LDA #$0001
L1D243B AND $E7
STA $E5
LDA $D9
LDX $DB
CMP $DD
BNE L1D2449
CPX $DF
L1D2449 BNE L1D2453
LDA $EB
EOR #$FFFF
INC
STA $EB
L1D2453 PHY
PHY
PEI $DB
PEI $D9
PEI $D7
PEI $D5
PEI $EB
PEI $E5
JSL L07AEBB
PLA
STA $E1
PLX
STX $E3
PEA $0000
TDC
CLC
ADC #$FF9B
PHA
PEA $0000
PEA $000A
JSL L071EC5
LDX #$FFEF
LDA $00,X
LDX #$FF9B
STA $00,X
LDX #$FFF3
LDA $00,X
LDX #$FF9D
SEP #$20
STA $00,X
REP #$20
LDX #$FFF1
LDA $00,X
LDX #$FF9E
SEP #$20
STA $00,X
REP #$20
LDX #$FFF5
LDA $00,X
LDX #$FFA1
STA $00,X
LDX #$FFED
LDA $00,X
LDX #$FF9F
STA $00,X
LDA #$00FF
LDX #$FFF8
AND $00,X
LDX #$FFA3
STA $00,X
PEI $E3
PEI $E1
JSL L0718BF
PHY
JSL L1D3C47
PLA
LSR
BCC L1D2501
PHY
PEA $0022
PEI $E3
PEI $E1
LDX #$FFFF
LDA $02,X
PHA
LDA $00,X
PHA
PEA $0000
TDC
CLC
ADC #$FF9B
PHA
JSL L160720
PLA
STA $E9
* PEA ^L160720
* PEA L160720
* JSL L07187A
L1D2501 PEI $E3
PEI $E1
JSL L07185A
L1D2509 PEI $D3
JSL L0724F7
BRL L1D2598
L1D2512 JSL L031B09
PHY
PHY
PHY
PEA $0000
JSL L031415
TDC
CLC
ADC #$00E1
PEA $0000
PHA
PHY
PHY
PHY
PHY
PEA $0000
JSL L031415
JSL L071C98
PLA
PLX
INC
BNE L1D253E
INX
L1D253E PHX
PHA
JSL L0B25F8
PLA
STA $E9
PEI $E3
PEI $E1
JSL L0718BF
PHY
JSL L1D3C47
PLA
LSR
BCC L1D2583
PHY
PEA $0023
PEI $E3
PEI $E1
LDX #$FFFF
LDA $02,X
PHA
LDA $00,X
PHA
PEA $0000
TDC
CLC
ADC #$FF9B
PHA
JSL L160720
PLA
STA $E9
* PEA ^L160720
* PEA L160720
* JSL L07187A
L1D2583 PEI $E3
PEI $E1
JSL L07185A
JSL L0E0000
BRA L1D2598
L1D2591 PEA $0001
JSL L0C1032
L1D2598 TSC
CLC
ADC #$0170
TCS
PLD
RTL
L1D25A0 ENT
PHD
TSC
CLC
ADC #$FFAC
TCS
TCD
JSL L0B2AC6
STZ $2D
STZ $2F
STZ $4D
STZ $49
LDA #$0001
STA $47
STZ $45
PHY
JSL L0314F6
PLA
CMP #$0003
BNE L1D25D4
PHY
PHY
JSL L0E061D
PLA
STA $41
PLX
STX $43
BRA L1D2616
L1D25D4 PHY
JSL L0314F6
PLA
CMP #$0005
BNE L1D25E9
STZ $47
STZ $4D
JSL L0E0000
BRA L1D2616
L1D25E9 STZ $47
LDA #$0001
STA $45
PEA ^L050C32
PEA L050C32
JSL L0E06AC
LDA #$00FF
ANDL L050C32
SEC
SBC #$0000
BMI L1D2614
BEQ L1D2614
LDA #$00FF
ANDL L050C33
STA $4D
BRA L1D2616
L1D2614 STZ $4D
L1D2616 PHY
JSL L0314F6
PLA
CMP #$0004
BNE L1D2654
PHY
PHY
JSL L0E061D
PLA
STA $2D
PLX
STX $2F
PEI $2F
PEI $2D
LDA #$0000
TAX
JSL L033477
BMI L1D2650
BEQ L1D2650
LDX $2F
LDA $2D
BNE L1D2644
DEX
L1D2644 DEC
STA $2D
STX $2F
LDA #$0001
STA $49
BRA L1D2654
L1D2650 STZ $2D
STZ $2F
L1D2654 PEA ^L050C32
PEA L050C32
JSL L0E06AC
PHY
PEA ^L050C32
PEA L050C32
PEA $0000
PEA $0000
JSL L0B16ED
PLA
STA $4F
LDA $4F
BNE L1D269C
PEA $0016
PEA $0000
TDC
CLC
ADC #$0001
PHA
LDAL L05565D
JSL L150488
PHX
PHA
JSL L07346C
LDAL L05565D
PHA
JSL L12205A
BRL L1D29CD
L1D269C LDA #$0004
STA $15
LDA $4F
STA $17
LDA $4D
BNE L1D26AD
STZ $19
BRA L1D26B2
L1D26AD LDA #$00FF
STA $19
L1D26B2 LDA #$0001
STA $1B
TDC
CLC
ADC #$004D
STA $1D
STZ $1F
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $2011
JSL GSOS2
STAL L05565D
LDA $49
BEQ L1D26F9
PEI $4F
PEI $2F
PEI $2D
JSL L075E14
LDA #$004D
CMPL L05565D
BNE L1D26F9
PEI $4F
PHY
PHY
PEI $4F
JSL L075B7B
JSL L075E14
L1D26F9 PHY
PHY
PEI $4F
JSL L075B7B
PLA
STA $39
PLX
STX $3B
LDA $47
BEQ L1D2728
PEI $3B
PEI $39
LDA $41
LDX $43
JSL L033477
BVS L1D271C
EOR #$8000
L1D271C BMI L1D2726
LDA $39
LDX $3B
STA $41
STX $43
L1D2726 BRA L1D2730
L1D2728 LDA $39
LDX $3B
STA $41
STX $43
L1D2730 LDA $45
BNE L1D2737
BRL L1D288E
L1D2737 PHY
PHY
PEA $0000
PEA $1001
LDA L055019
PHA
JSL L0B249C
PLA
STA $21
PLX
STX $23
LDA $21
ORA $23
BNE L1D275D
PEA $0015
JSL L122130
BRL L1D29CD
L1D275D PEI $23
PEI $21
JSL L0718BF
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STA $29
STX $2B
STZ $31
STZ $33
LDA $41
LDX $43
STA $3D
STX $3F
L1D277D PHY
JSL L07005C
PLA
LSR
BCC L1D2789
BRL L1D2878
L1D2789 PHY
PHY
PEI $4F
PEI $2B
PEI $29
PEA $0000
PEA $1000
PEA $0000
JSL L075D80
PLA
STA $35
PLX
STX $37
LDAL L05565D
STA $4B
LDA $4B
BEQ L1D27B1
LDA #$0001
L1D27B1 PHA
LDX #$0000
LDA #$004C
CMP $4B
BEQ L1D27BD
INX
L1D27BD TXA
AND $01,S
PLX
LSR
BCC L1D27E5
PEA $0016
PEA $0000
TDC
CLC
ADC #$0001
PHA
LDA $4B
JSL L150488
PHX
PHA
JSL L07346C
PEI $4B
JSL L12205A
BRL L1D2878
L1D27E5 LDA $31
LDX $33
PEI $37
PEI $35
JSL L150F53
STA $31
STX $33
LDA $29
LDX $2B
PEI $37
PEI $35
JSL L150F53
TAY
BNE L1D2805
DEX
L1D2805 DEC
STA $25
STX $27
LDA #$00FF
AND [$25]
CMP $4D
BNE L1D2815
BRA L1D286D
L1D2815 PEI $23
PEI $21
JSL L1516B7
PHY
PEI $23
PEI $21
LDA $31
LDX $33
CLC
ADC #$1000
BCC L1D282D
INX
L1D282D CLC
ADC #$0002
BCC L1D2834
INX
L1D2834 PHX
PHA
JSL L078A05
PLA
LSR
BCS L1D2847
PEA $0015
JSL L122130
BRA L1D2878
L1D2847 PEI $23
PEI $21
JSL L150BB8
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
PEI $33
PEI $31
JSL L150F53
STA $29
STX $2B
LDA #$004C
CMP $4B
BEQ L1D286D
BRL L1D277D
L1D286D LDA $31
LDX $33
STA $35
STX $37
BRL L1D29B0
L1D2878 PEI $23
PEI $21
JSL L07185A
JSL L0E0C52
JSL L0E0074
BRL L1D29CD
BRL L1D29CD
L1D288E PHY
PHY
LDA $41
LDX $43
INC
BNE L1D2898
INX
L1D2898 PHX
PHA
LDA L055019
PHA
JSL L0B249C
PLA
STA $21
PLX
STX $23
LDA $21
ORA $23
BNE L1D28B8
PEA $0015
JSL L122130
BRL L1D29CD
L1D28B8 PEI $23
PEI $21
JSL L0718BF
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STA $29
STX $2B
STZ $31
STZ $33
LDA $41
LDX $43
STA $3D
STX $3F
L1D28D8 PHY
PHY
PEI $4F
PEI $2B
PEI $29
PEI $43
PEI $41
PEA $0000
JSL L075D80
PLA
STA $35
PLX
STX $37
LDAL L05565D
STA $4B
LDA $4B
BEQ L1D28FE
LDA #$0001
L1D28FE PHA
LDX #$0000
LDA #$004C
CMP $4B
BEQ L1D290A
INX
L1D290A TXA
AND $01,S
PLX
LSR
BCC L1D2932
PEA $0016
PEA $0000
TDC
CLC
ADC #$0001
PHA
LDA $4B
JSL L150488
PHX
PHA
JSL L07346C
PEI $4B
JSL L12205A
BRL L1D2878
L1D2932 LDA $31
LDX $33
PEI $37
PEI $35
JSL L150F53
STA $31
STX $33
PEI $43
PEI $41
LDA $35
LDX $37
JSL L1512A5
STA $41
STX $43
LDA $29
LDX $2B
PEI $37
PEI $35
JSL L150F53
STA $29
STX $2B
PHY
PHY
PEI $4F
JSL L075B7B
PHY
PHY
PEI $4F
JSL L075BBA
PLA
PLX
JSL L033477
BNE L1D297C
BRA L1D29B0
L1D297C LDA $3D
LDX $3F
CMP $31
BNE L1D2986
CPX $33
L1D2986 BEQ L1D298D
LDA #$0000
BRA L1D2990
L1D298D LDA #$0001
L1D2990 PHA
LDX #$0000
LDA #$004C
CMP $4B
BNE L1D299C
INX
L1D299C TXA
ORA $01,S
PLX
PHA
PHY
JSL L07005C
PLA
ORA $01,S
PLX
LSR
BCS L1D29B0
BRL L1D28D8
L1D29B0 LDY #$0002
LDA [$21],Y
PHA
LDA [$21]
PHA
PEI $37
PEI $35
JSL L1D02C4
PEI $23
PEI $21
JSL L0E0CFE
JSL L0E0074
L1D29CD TSC
CLC
ADC #$0054
TCS
PLD
RTL
L1D29D5 ENT
PHD
TSC
CLC
ADC #$FCF8
TCS
ADC #$0211
TCD
JSL L0B2AC6
STZ $1D
PEA $0000
TDC
CLC
ADC #$FF1D
PHA
JSL L0E06AC
PEA $0000
TDC
CLC
ADC #$FE1D
PHA
JSL L0E06AC
TDC
CLC
ADC #$007B
PEA $0000
PHA
JSL L0940E5
JSL L09999B
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FE1D
PHA
PEA $0000
JSL L0730BE
PLA
STA $D7
PLX
STX $D9
LDA $D7
ORA $D9
BNE L1D2A3E
PEA $0001
JSL L0B0B7A
LDA #$0040
STA $1D
BRL L1D2AD6
L1D2A3E JSL L0903F2
PEA $0001
PEA $0001
JSL L090000
PHY
PHY
PEI $D9
PEI $D7
JSL L078841
PLA
STA $77
PLX
STX $79
LDA #$0002
STA $1F
LDA #$0001
LDX #$0000
STA $25
STX $27
LDA #$0006
STA $4B
PHY
TDC
CLC
ADC #$001F
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCS L1D2A84
BRA L1D2AD6
L1D2A84 PHY
PEA $0000
TDC
CLC
ADC #$FF1D
PHA
LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L1D2A9C
CPX L0553BB
L1D2A9C BEQ L1D2AA3
LDA #$0000
BRA L1D2AA6
L1D2AA3 LDA #$0001
L1D2AA6 PHA
JSL L098B31
PLA
STA $1D
TDC
CLC
ADC #$00DB
PEA $0000
PHA
JSL L0B0D0A
LDA #$0004
STA $DB
PHY
TDC
CLC
ADC #$007B
PEA $0000
PHA
JSL L0953DD
PLA
LSR
BCS L1D2AD6
JSL L072314
L1D2AD6 PEI $D9
PEI $D7
JSL L07185A
LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L1D2AEC
CPX L0553BB
L1D2AEC BEQ L1D2B21
LDA $1D
BEQ L1D2B21
PEA ^L04037A
PEA L04037A
PEA $0000
TDC
CLC
ADC #$FDEF
PHA
LDA $1D
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FE03
PHA
PEA $0002
JSL L1509CE
JSL L0B2D94
L1D2B21 TSC
CLC
ADC #$0308
TCS
PLD
RTL
L1D2B29 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$005D
CLC
ADC $0A
LDX $0C
BCC L1D2B3C
INX
L1D2B3C PHX
PHA
PEA $0000
PEA $0030
PEA $000A
JSL L0E0656
LDA #$00F1
CLC
ADC $0A
LDX $0C
BCC L1D2B56
INX
L1D2B56 STA $01
STX $03
PHY
LDA #$005D
CLC
ADC $0A
LDX $0C
BCC L1D2B66
INX
L1D2B66 PHX
PHA
PEA $0000
JSL L0D0F6E
PLA
STA [$01]
LDA #$005D
CLC
ADC $0A
LDX $0C
BCC L1D2B7D
INX
L1D2B7D CLC
ADC #$0002
BCC L1D2B84
INX
L1D2B84 STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
LDY #$00ED
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
LDA #$005D
CLC
ADC $0A
LDX $0C
BCC L1D2BA5
INX
L1D2BA5 CLC
ADC #$000A
BCC L1D2BAC
INX
L1D2BAC STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
LDY #$00E9
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
LDA #$005D
CLC
ADC $0A
LDX $0C
BCC L1D2BCD
INX
L1D2BCD CLC
ADC #$0006
BCC L1D2BD4
INX
L1D2BD4 STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
LDY #$00E5
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1D2BFB ENT
PHD
TSC
CLC
ADC #$FD0C
TCS
ADC #$01FD
TCD
PHY
JSL L0314F6
PLA
CMP #$0009
BNE L1D2C54
PEA ^L050C32
PEA L050C32
JSL L0E06AC
LDA #$00FF
ANDL L050C32
BNE L1D2C2A
JSL L0952F7
BRA L1D2C51
L1D2C2A PEA $0040
PEA $0000
TDC
CLC
ADC #$FF03
PHA
PEA $0073
JSL L0B127A
PEA $0000
TDC
CLC
ADC #$FE03
PHA
PEA $0074
JSL L0B127A
JSL L0B0897
L1D2C51 BRL L1D2FB1
L1D2C54 PHY
JSL L0314F6
PLA
CMP #$0008
BNE L1D2C82
PEA $0000
PHD
JSL L1D2B29
LDA L055027
LDX L055029
CMP $E9
BNE L1D2C73
CPX $EB
L1D2C73 BNE L1D2C7F
PEI $EF
PEI $ED
PEI $F1
JSL L099243
L1D2C7F BRL L1D2FB1
L1D2C82 PHY
JSL L0314F6
PLA
CMP #$0006
BEQ L1D2C92
LDA #$0000
BRA L1D2C95
L1D2C92 LDA #$0001
L1D2C95 STA $E3
LDA $E3
BEQ L1D2CA5
PEA $0000
PHD
JSL L1D2B29
BRA L1D2CA9
L1D2CA5 JSL L0E0000
L1D2CA9 LDA #$0001
STA $8D
PHY
JSL L0314F6
PLA
CMP #$0005
BNE L1D2CD1
TDC
CLC
ADC #$008D
PEA $0000
PHA
PEA $0000
PEA $0022
PEA $0004
JSL L0E0656
BRA L1D2CD5
L1D2CD1 JSL L0E0000
L1D2CD5 PHY
JSL L0314F6
PLA
STA $C1
JSL L0E0000
LDA $E3
BEQ L1D2D12
STZ $2B
TDC
CLC
ADC #$002D
PEA $0000
PHA
TDC
CLC
ADC #$005D
PEA $0000
PHA
PEA $0030
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0000
JSL L0E087F
BRA L1D2D23
L1D2D12 PEA $0000
TDC
CLC
ADC #$FF03
PHA
JSL L094153
JSL L0E0F0F
L1D2D23 TDC
CLC
ADC #$008D
PEA $0000
PHA
TDC
CLC
ADC #$00DF
PEA $0000
PHA
TDC
CLC
ADC #$00D7
PEA $0000
PHA
TDC
CLC
ADC #$00DB
PEA $0000
PHA
TDC
CLC
ADC #$00D3
PEA $0000
PHA
TDC
CLC
ADC #$00CF
PEA $0000
PHA
TDC
CLC
ADC #$00CB
PEA $0000
PHA
JSL L0D0A88
JSL L0E0000
PEI $D9
PEI $D7
LDA $DF
LDX $E1
JSL L1512A5
STA $C3
STX $C5
PEI $DD
PEI $DB
LDA $DF
LDX $E1
JSL L1512A5
STA $C7
STX $C9
LDX #$0000
LDA $D1
BMI L1D2D96
ORA $CF
BEQ L1D2D96
INX
L1D2D96 TXA
AND $E3
BNE L1D2D9E
BRL L1D2F19
L1D2D9E LDA L055129
LDX L05512B
CMP $ED
BNE L1D2DAA
CPX $EF
L1D2DAA BNE L1D2DCB
LDAL L05328D
CMP $F1
BNE L1D2DCB
LDA L055125
LDX L055127
CMP L055027
BNE L1D2DC2
CPX L055029
L1D2DC2 BNE L1D2DCB
PEA $0000
JSL L09091E
L1D2DCB LDA $F1
STA $BF
LDA $E9
LDX $EB
CMP $ED
BNE L1D2DD9
CPX $EF
L1D2DD9 BNE L1D2DE3
LDA $BF
EOR #$FFFF
INC
STA $BF
L1D2DE3 LDA L05501F
LDX L055021
CMP L055129
BNE L1D2DF1
CPX L05512B
L1D2DF1 BEQ L1D2DF8
LDA #$0000
BRA L1D2DFB
L1D2DF8 LDA #$0001
L1D2DFB BEQ L1D2E0D
PHA
LDA #$4000
ANDL L05328F
BEQ L1D2E0A
LDA #$0001
L1D2E0A AND $01,S
PLX
L1D2E0D STA $AF
PHY
PHY
PEI $EB
PEI $E9
PEI $E7
PEI $E5
PEI $BF
PEI $AF
JSL L07AEBB
PLA
STA $BB
PLX
STX $BD
LDA $BB
ORA $BD
BNE L1D2E37
PEA $007F
JSL L0B0B7A
BRL L1D2F19
L1D2E37 PHY
PHY
LDY #$0002
LDA [$BB],Y
PHA
LDA [$BB]
PHA
JSL L071C98
PLA
STA $B7
PLX
STX $B9
PHY
PEI $BD
PEI $BB
LDA $B7
LDX $B9
PEI $D1
PEI $CF
JSL L150F53
INC
BNE L1D2E61
INX
L1D2E61 PHX
PHA
JSL L078A05
PLA
LSR
BCS L1D2E6E
BRL L1D2F0A
L1D2E6E LDY #$0002
LDA [$BB],Y
TAX
LDA [$BB]
PEI $B9
PEI $B7
JSL L150F53
STA $B3
STX $B5
LDA $CF
STA $07
LDA $07
SEC
SBC #$0001
BVS L1D2E91
EOR #$8000
L1D2E91 BPL L1D2EAE
LDA #$0001
STA $B1
L1D2E98 LDA $B1
DEC
TAY
SEP #$20
LDA #$0D
STA [$B3],Y
REP #$20
LDA $B1
CMP $07
BEQ L1D2EAE
INC $B1
BRA L1D2E98
L1D2EAE LDA $B3
LDX $B5
PEI $D1
PEI $CF
JSL L150F53
STA $B3
STX $B5
SEP #$20
LDA #$00
STA [$B3]
REP #$20
PHY
TDC
CLC
ADC #$005D
PEA $0000
PHA
PEI $BD
PEI $BB
JSL L0B2E1F
PLA
LSR
BCC L1D2F08
LDA $B7
LDX $B9
CMP $C3
BNE L1D2EE6
CPX $C5
L1D2EE6 BNE L1D2EF8
LDA $C3
LDX $C5
PEI $D1
PEI $CF
JSL L150F53
STA $C3
STX $C5
L1D2EF8 LDA $C7
LDX $C9
PEI $D1
PEI $CF
JSL L150F53
STA $C7
STX $C9
L1D2F08 BRA L1D2F11
L1D2F0A PEA $002D
JSL L0B0B7A
L1D2F11 PEI $BD
PEI $BB
JSL L07185A
L1D2F19 LDA $C1
DEC
BNE L1D2F26
LDA $C3
LDX $C5
STA $C7
STX $C9
L1D2F26 LDA $C1
DEC
DEC
BNE L1D2F34
LDA $C7
LDX $C9
STA $C3
STX $C5
L1D2F34 LDA L05511F
AND $E3
BEQ L1D2F8D
LDA L055129
LDX L05512B
CMP $ED
BNE L1D2F47
CPX $EF
L1D2F47 BNE L1D2F8D
LDAL L05328D
CMP $F1
BNE L1D2F8D
LDA L055121
LDX L055123
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $03
STX $05
LDY #$0070
LDA [$03],Y
TAX
DEY
DEY
LDA [$03],Y
CMP $C3
BNE L1D2F77
CPX $C5
L1D2F77 BNE L1D2F8D
LDY #$0074
LDA [$03],Y
TAX
DEY
DEY
LDA [$03],Y
CMP $C7
BNE L1D2F89
CPX $C9
L1D2F89 BNE L1D2F8D
BRA L1D2FB1
L1D2F8D LDA $E3
BEQ L1D2FA5
PEI $EF
PEI $ED
PEI $F1
PEI $C5
PEI $C3
PEI $C9
PEI $C7
JSL L09934D
BRA L1D2FB1
L1D2FA5 PEI $C5
PEI $C3
PEI $C9
PEI $C7
JSL L0991A9
L1D2FB1 TSC
CLC
ADC #$02F4
TCS
PLD
RTL
L1D2FB9 ENT
PHD
TSC
CLC
ADC #$FD38
TCS
ADC #$01D1
TCD
PEA $0001
JSL L09091E
STZ $EF
STZ $F1
STZ $E7
STZ $E9
PEA ^L05312F
PEA L05312F
JSL L151131
PHY
JSL L0314F6
PLA
CMP #$0007
BNE L1D2FEE
JSL L0E0000
BRA L1D3000
L1D2FEE JSL L0E0000
JSL L0E0000
PEA $0023
JSL L0B0B7A
BRL L1D387A
L1D3000 LDA L055051
BEQ L1D3014
JSL L0E0000
JSL L0E0000
JSL L0903A6
BRL L1D387A
L1D3014 STZ $BD
STZ $BB
STZ $B9
STZ $AB
PHY
JSL L0314F6
PLA
SEC
SBC #$0004
BMI L1D3050
CMP #$0003
BPL L1D3050
SEC
SBC #$0000
BEQ L1D303B
DEC
BEQ L1D3042
DEC
BEQ L1D3049
BRA L1D3050
L1D303B LDA #$0001
STA $BB
BRA L1D3050
L1D3042 LDA #$0001
STA $BD
BRA L1D3050
L1D3049 LDA #$0001
STA $B9
BRA L1D3050
L1D3050 LDA $B9
ORA $BB
EOR #$0001
STA $BF
JSL L0E0000
PHY
JSL L0314F6
PLA
CMP #$0002
BEQ L1D306D
LDA #$0000
BRA L1D3070
L1D306D LDA #$0001
L1D3070 STA $C1
JSL L0E0000
PEA $0000
TDC
CLC
ADC #$FF43
PHA
JSL L0B2A02
JSL L15059E
PHY
PHY
LDAL L053ACB
TAX
LDAL L053AC9
PEA $0000
PEA $0008
JSL L150D50
PLA
PLX
CLC
ADC #$0008
BCC L1D30A5
INX
L1D30A5 PHX
PHA
LDA L055019
PHA
PEA $4000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $EF
PLX
STX $F1
LDAL L05565D
BEQ L1D30D2
STZ $EF
STZ $F1
PEA $0024
JSL L0B0B7A
BRL L1D387A
L1D30D2 LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
STA $EB
STX $ED
LDA $EB
LDX $ED
STA $DB
STX $DD
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FE3F
STA $00,X
TYA
STA $02,X
LDX #$FE3F
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1D3110
EOR #$8000
L1D3110 BMI L1D3115
BRL L1D31DC
L1D3115 LDA #$0001
LDX #$0000
STA $D7
STX $D9
L1D311F LDA $AB
INC
AND #$0003
STA $AB
LDA $AB
BNE L1D312F
JSL L072328
L1D312F PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $D9
PEI $D7
PEA $0000
TDC
CLC
ADC #$FF47
PHA
JSL L07A4B1
PLA
LSR
BCS L1D3156
PEA $8759
JSL L07272E
L1D3156 LDA $DB
LDX $DD
STA $F3
STX $F5
PHY
PHY
LDX #$FF47
LDA $02,X
PHA
LDA $00,X
PHA
JSL L0742B3
PLA
STA [$F3]
PLA
LDY #$0002
STA [$F3],Y
LDA $C1
BEQ L1D31A5
LDA #$0004
CLC
ADC $DB
LDX $DD
BCC L1D3185
INX
L1D3185 STA $F3
STX $F5
LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDA $D7
LDX $D9
JSL L1512A5
STA [$F3]
TXA
LDY #$0002
STA [$F3],Y
BRA L1D31B3
L1D31A5 LDA $D7
LDX $D9
LDY #$0004
STA [$DB],Y
INY
INY
TXA
STA [$DB],Y
L1D31B3 LDA $DB
LDX $DD
CLC
ADC #$0008
BCC L1D31BE
INX
L1D31BE STA $DB
STX $DD
LDX #$FE3F
LDA $02,X
TAY
LDA $00,X
TYX
CMP $D7
BNE L1D31D1
CPX $D9
L1D31D1 BEQ L1D31DC
INC $D7
BNE L1D31D9
INC $D9
L1D31D9 BRL L1D311F
L1D31DC PEI $ED
PEI $EB
LDAL L053ACB
PHA
LDAL L053AC9
PHA
PEA ^L0B8060
PEA L0B8060
JSL L1D0315
LDA $BB
ORA $BF
BEQ L1D323B
LDA #$2800
LDX #$0000
STA $CF
STX $D1
PHY
PHY
PEI $D1
PEI $CF
LDA L055019
PHA
JSL L0B249C
PLA
STA $E7
PLX
STX $E9
LDA $E7
ORA $E9
BNE L1D3228
PEA $0024
JSL L0B0B7A
BRL L1D387A
L1D3228 STZ $DF
STZ $E1
LDA $CF
LDX $D1
SEC
SBC #$0100
BCS L1D3237
DEX
L1D3237 STA $E3
STX $E5
L1D323B PEA $0000
TDC
CLC
ADC #$FFCB
PHA
JSL L0940E5
LDAL L053AD3
TAX
LDAL L053AD1
STA $C7
STX $C9
LDA $EB
LDX $ED
STA $DB
STX $DD
LDA #$0002
STA $27
LDA #$0006
STA $53
LDA L055039
LDX L05503B
STA $7F
STX $81
LDA #$0001
STA $AD
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FE3B
STA $00,X
TYA
STA $02,X
LDX #$FE3B
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1D32A0
EOR #$8000
L1D32A0 BMI L1D32A5
BRL L1D34B7
L1D32A5 LDA #$0001
LDX #$0000
STA $D7
STX $D9
L1D32AF LDY #$0006
LDA [$DB],Y
TAX
DEY
DEY
LDA [$DB],Y
STA $2D
STX $2F
LDA $C1
BEQ L1D32D7
LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDA $2D
LDX $2F
JSL L1512A5
STA $2D
STX $2F
L1D32D7 PHY
TDC
CLC
ADC #$0027
PEA $0000
PHA
JSL L0953DD
PLA
STA $B3
LDA $AB
INC
AND #$0003
STA $AB
LDA $AB
BNE L1D32F8
JSL L072328
L1D32F8 PHY
JSL L07005C
PLA
LSR
BCC L1D3304
BRL L1D387A
L1D3304 LDA L05539D
DEC
STA L05539D
STZ L0553A5
PEA $0000
TDC
CLC
ADC #$FF43
PHA
JSL L0B2965
PHY
PEA $0000
JSL L0B7A56
PLA
LSR
BCC L1D332B
STZ $AD
BRA L1D332F
L1D332B JSL L0E0C52
L1D332F STZ L0553A5
LDA L05539D
INC
STA L05539D
LDA $B9
BEQ L1D336A
PEA $0000
TDC
CLC
ADC #$FE43
PHA
JSL L0E06AC
LDA $DB
LDX $DD
STA $F3
STX $F5
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FE43
PHA
JSL L0B5161
PLA
STA [$F3]
PLA
LDY #$0002
STA [$F3],Y
L1D336A LDA $BB
ORA $BF
BNE L1D3373
BRL L1D347C
L1D3373 PEI $E1
PEI $DF
LDA $E3
LDX $E5
JSL L033477
BEQ L1D33C1
BVS L1D3386
EOR #$8000
L1D3386 BPL L1D33C1
LDA $CF
LDX $D1
CLC
ADC #$2800
BCC L1D3393
INX
L1D3393 STA $CF
STX $D1
LDA $CF
LDX $D1
SEC
SBC #$0100
BCS L1D33A2
DEX
L1D33A2 STA $E3
STX $E5
PHY
PEI $E9
PEI $E7
PEI $D1
PEI $CF
JSL L078A05
PLA
LSR
BCS L1D33C1
PEA $0024
JSL L0B0B7A
BRL L1D387A
L1D33C1 LDA $DF
LDX $E1
STA [$DB]
TXA
LDY #$0002
STA [$DB],Y
LDA $BB
BEQ L1D3427
LDY #$0002
LDA [$E7],Y
TAX
LDA [$E7]
PEI $E1
PEI $DF
JSL L150F53
STA $AF
STX $B1
PHY
JSL L0319D4
PLA
LSR
BCC L1D3401
PEI $B1
PEI $AF
PEA $0000
PEA $000A
PEA $0011
JSL L0E0656
BRA L1D3416
L1D3401 JSL L0E0000
PEI $B1
PEI $AF
PEA ^L040396
PEA L040396
PEA $000A
JSL L0313BE
L1D3416 LDA $DF
LDX $E1
CLC
ADC #$000A
BCC L1D3421
INX
L1D3421 STA $DF
STX $E1
BRA L1D347C
L1D3427 PEA $0000
TDC
CLC
ADC #$FE43
PHA
JSL L0E06AC
LDA #$00FF
LDX #$FE43
AND $00,X
STA $D5
PEA $0000
TDC
CLC
ADC #$FE43
PHA
LDY #$0002
LDA [$E7],Y
TAX
LDA [$E7]
PEI $E1
PEI $DF
JSL L150F53
PHX
PHA
LDA $D5
INC
JSL L150488
PHX
PHA
JSL L070597
PEI $E1
PEI $DF
LDA $D5
JSL L150488
JSL L150F53
INC
BNE L1D3478
INX
L1D3478 STA $DF
STX $E1
L1D347C PHY
PHY
PEI $C9
PEI $C7
PEI $D9
PEI $D7
JSL L07B8EA
JSL L077B28
LDA $DB
LDX $DD
CLC
ADC #$0008
BCC L1D3499
INX
L1D3499 STA $DB
STX $DD
LDX #$FE3B
LDA $02,X
TAY
LDA $00,X
TYX
CMP $D7
BNE L1D34AC
CPX $D9
L1D34AC BEQ L1D34B7
INC $D7
BNE L1D34B4
INC $D9
L1D34B4 BRL L1D32AF
L1D34B7 PHY
PEA $0000
TDC
CLC
ADC #$FFCB
PHA
JSL L0953DD
PLA
STA $B3
LDA $AD
BEQ L1D34F7
PEA $0000
TDC
CLC
ADC #$FF43
PHA
JSL L0B2965
JSL L0E10F4
PEA ^L050C32
PEA L050C32
JSL L0E06AC
PEA $0068
PEA ^L050C32
PEA L050C32
JSL L0B0841
BRL L1D387A
L1D34F7 LDA $BB
ORA $BF
BNE L1D3500
BRL L1D3593
L1D3500 PEI $E9
PEI $E7
JSL L0718BF
LDA $EB
LDX $ED
STA $DB
STX $DD
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FE37
STA $00,X
TYA
STA $02,X
LDX #$FE37
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1D353A
EOR #$8000
L1D353A BPL L1D3593
LDA #$0001
LDX #$0000
STA $D7
STX $D9
L1D3546 LDA $DB
LDX $DD
STA $F3
STX $F5
LDY #$0002
LDA [$DB],Y
PHA
LDA [$DB]
PHA
LDY #$0002
LDA [$E7],Y
TAX
LDA [$E7]
JSL L150F53
STA [$F3]
TXA
LDY #$0002
STA [$F3],Y
LDA $DB
LDX $DD
CLC
ADC #$0008
BCC L1D3576
INX
L1D3576 STA $DB
STX $DD
LDX #$FE37
LDA $02,X
TAY
LDA $00,X
TYX
CMP $D7
BNE L1D3589
CPX $D9
L1D3589 BEQ L1D3593
INC $D7
BNE L1D3591
INC $D9
L1D3591 BRA L1D3546
L1D3593 LDA $BB
BEQ L1D35B1
PEI $ED
PEI $EB
LDAL L053ACB
PHA
LDAL L053AC9
PHA
PEA ^L0B802D
PEA L0B802D
JSL L1D0315
BRA L1D35F3
L1D35B1 LDA $B9
BEQ L1D35CF
PEI $ED
PEI $EB
LDAL L053ACB
PHA
LDAL L053AC9
PHA
PEA ^L0B8060
PEA L0B8060
JSL L1D0315
BRA L1D35F3
L1D35CF PEI $ED
PEI $EB
LDAL L053ACB
PHA
LDAL L053AC9
PHA
PEA ^L0B7FC4
PEA L0B7FC4
JSL L1D0315
PEI $E9
PEI $E7
JSL L07185A
STZ $E7
STZ $E9
L1D35F3 PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
TDC
CLC
ADC #$0083
PEA $0000
PHA
JSL L07A852
PLA
LSR
BCS L1D3616
PEA $976F
JSL L07272E
L1D3616 PHY
PHY
PEI $93
PEI $9B
PEI $9F
PEI $A1
JSL L079BEC
PLA
STA $C3
PLX
STX $C5
LDA $C1
BNE L1D3631
BRL L1D372A
L1D3631 PEI $ED
PEI $EB
LDAL L053ACB
TAX
LDAL L053AC9
PEA $0000
PEA $0008
JSL L150D50
PLA
PLX
JSL L150F53
STA $DB
STX $DD
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FE33
STA $00,X
TYA
STA $02,X
LDX #$FE33
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1D367C
EOR #$8000
L1D367C BMI L1D3681
BRL L1D3727
L1D3681 LDA #$0001
LDX #$0000
STA $D7
STX $D9
L1D368B LDA $AB
INC
AND #$0003
STA $AB
LDA $AB
BNE L1D369B
JSL L072328
L1D369B LDA $DB
LDX $DD
SEC
SBC #$0008
BCS L1D36A6
DEX
L1D36A6 STA $DB
STX $DD
LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDY #$0006
LDA [$DB],Y
TAX
DEY
DEY
LDA [$DB],Y
JSL L1512A5
STA $B5
STX $B7
PHY
PEI $C9
PEI $C7
PEI $B7
PEI $B5
PEA $0000
TDC
CLC
ADC #$FF47
PHA
JSL L07A4B1
PLA
LSR
BCS L1D36E7
PEA $60A2
JSL L07272E
L1D36E7 PHY
PEI $C5
PEI $C3
PEA $7FFF
PEA $FFFF
PEA $0000
TDC
CLC
ADC #$FF47
PHA
JSL L07B2EC
PLA
LSR
BCS L1D370D
PEA $0061
JSL L0B0B7A
BRL L1D387A
L1D370D LDX #$FE33
LDA $02,X
TAY
LDA $00,X
TYX
CMP $D7
BNE L1D371C
CPX $D9
L1D371C BEQ L1D3727
INC $D7
BNE L1D3724
INC $D9
L1D3724 BRL L1D368B
L1D3727 BRL L1D37F2
L1D372A LDA $EB
LDX $ED
STA $DB
STX $DD
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FE2F
STA $00,X
TYA
STA $02,X
LDX #$FE2F
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1D375C
EOR #$8000
L1D375C BMI L1D3761
BRL L1D37F2
L1D3761 LDA #$0001
LDX #$0000
STA $D7
STX $D9
L1D376B LDA $AB
INC
AND #$0003
STA $AB
LDA $AB
BNE L1D377B
JSL L072328
L1D377B PHY
PEI $C9
PEI $C7
LDY #$0006
LDA [$DB],Y
PHA
DEY
DEY
LDA [$DB],Y
PHA
PEA $0000
TDC
CLC
ADC #$FF47
PHA
JSL L07A4B1
PLA
LSR
BCS L1D37A3
PEA $5BBA
JSL L07272E
L1D37A3 PHY
PEI $C5
PEI $C3
PEA $7FFF
PEA $FFFF
PEA $0000
TDC
CLC
ADC #$FF47
PHA
JSL L07B2EC
PLA
LSR
BCS L1D37C9
PEA $0061
JSL L0B0B7A
BRL L1D387A
L1D37C9 LDA $DB
LDX $DD
CLC
ADC #$0008
BCC L1D37D4
INX
L1D37D4 STA $DB
STX $DD
LDX #$FE2F
LDA $02,X
TAY
LDA $00,X
TYX
CMP $D7
BNE L1D37E7
CPX $D9
L1D37E7 BEQ L1D37F2
INC $D7
BNE L1D37EF
INC $D9
L1D37EF BRL L1D376B
L1D37F2 LDAL L053AC3
PHA
LDAL L053AC1
PHA
LDA #$0001
LDX #$0000
JSL L033477
BEQ L1D381A
BVS L1D380D
EOR #$8000
L1D380D BPL L1D381A
LDA #$FBFF
ANDL L053AE9
STAL L053AE9
L1D381A PHY
PEI $C5
PEI $C3
PEA $0000
PEA $0001
PEA $0000
TDC
CLC
ADC #$FF47
PHA
JSL L07A4B1
PLA
LSR
BCS L1D383D
PEA $931B
JSL L07272E
L1D383D LDA $C3
LDX $C5
STAL L053AD1
TXA
STAL L053AD3
LDX #$FF47
LDA $02,X
TAY
LDA $00,X
TYX
STAL L053ACD
TXA
STAL L053ACF
JSL L078CA4
STZ L055023
STZ L055025
PHY
PEI $C9
PEI $C7
JSL L07A1F7
PLA
LSR
BCS L1D387A
PEA $1D7B
JSL L07272E
L1D387A PEI $F1
PEI $EF
PEI $E9
PEI $E7
JSL L071825
L1D3886 LDAL L051BDE
DEC
DEC
BEQ L1D3894
JSL L0B0000
BRA L1D3886
L1D3894 PEA $0000
PEA $0001
PEA $0000
PEA $0000
PEA $0000
JSL L0968FC
TSC
CLC
ADC #$02C8
TCS
PLD
RTL
L1D38AF ENT
PHD
TSC
CLC
ADC #$FECA
TCS
ADC #$003F
TCD
JSL L0B2AC6
STZ $E1
STZ $E3
STZ $D3
STZ $D5
PHY
JSL L0314F6
PLA
CMP #$0003
BEQ L1D38D6
LDA #$0000
BRA L1D38D9
L1D38D6 LDA #$0001
L1D38D9 STA $D7
LDA $D7
BEQ L1D3914
PHY
PHY
JSL L0E05AF
PLA
STA $E1
PLX
STX $E3
PEI $E3
PEI $E1
LDA #$0001
LDX #$0000
JSL L033477
BEQ L1D3910
BVS L1D3900
EOR #$8000
L1D3900 BPL L1D3910
LDX $E3
LDA $E1
BNE L1D3909
DEX
L1D3909 DEC
STA $E1
STX $E3
BRA L1D3914
L1D3910 STZ $E1
STZ $E3
L1D3914 PEA $0000
TDC
CLC
ADC #$FFC3
PHA
JSL L0E06AC
PHY
PEA $0000
TDC
CLC
ADC #$FFC3
PHA
PEA $0001
PEA $0000
JSL L0B16ED
PLA
STA $F1
LDA $F1
BNE L1D3943
JSL L0E0000
BRL L1D3B11
L1D3943 JSL L031B09
PHY
PHY
JSL L0E04DE
PLA
STA $CF
PLX
STX $D1
PEI $D1
PEI $CF
JSL L0718BF
PHY
PHY
LDY #$0002
LDA [$CF],Y
PHA
LDA [$CF]
PHA
JSL L071C98
PLA
STA $E9
PLX
STX $EB
PHY
PEA $0000
TDC
CLC
ADC #$FFC3
PHA
PEA $0000
PEA $0001
JSL L0B16ED
PLA
STA $EF
LDA $EF
DEC
PEA $000A
JSL L150BEE
PLX
TXA
CLC
ADC #L05106C
LDX #^L05106C
BCC L1D399D
INX
L1D399D CLC
ADC #$0008
BCC L1D39A4
INX
L1D39A4 STA $F3
STX $F5
LDA $D7
EOR #$0001
STA [$F3]
LDA $D7
BNE L1D39B6
BRL L1D3AC2
L1D39B6 PEI $F1
PEI $E3
PEI $E1
JSL L075E14
LDA #$004D
CMPL L05565D
BEQ L1D39CC
BRL L1D3AC2
L1D39CC PHY
PHY
PEI $F1
JSL L075B7B
PLA
STA $DD
PLX
STX $DF
PEI $F1
PEI $E3
PEI $E1
JSL L075DD3
PEI $F1
PEI $DF
PEI $DD
JSL L075E14
PEI $E3
PEI $E1
LDA $DD
LDX $DF
JSL L1512A5
STA $D9
STX $DB
PHY
PHY
PEA $0000
PEA $0200
LDA L055019
PHA
JSL L0B249C
PLA
STA $D3
PLX
STX $D5
PEI $D5
PEI $D3
JSL L150BB8
LDY #$0002
LDA [$D3],Y
PHA
LDA [$D3]
PHA
PEA $0000
PEA $0200
JSL L071EC5
PEI $DB
PEI $D9
PEA $0000
PEA $0200
JSL L150290
PLY
PLY
PLY
PLY
LDX #$FFC1
STA $00,X
LDX #$FFC1
LDA $00,X
SEC
SBC #$0001
BVS L1D3A54
EOR #$8000
L1D3A54 BPL L1D3A8E
LDA #$0001
STA $ED
L1D3A5B PHY
PHY
PEI $F1
LDY #$0002
LDA [$D3],Y
PHA
LDA [$D3]
PHA
PEA $0000
PEA $0200
PEA $0000
JSL L075E55
PLA
STA $E5
PLX
STX $E7
LDAL L05565D
BNE L1D3AE0
LDA $ED
LDX #$FFC1
CMP $00,X
BEQ L1D3A8E
INC $ED
BRA L1D3A5B
L1D3A8E PHY
PHY
PEI $F1
LDY #$0002
LDA [$D3],Y
PHA
LDA [$D3]
PHA
PEI $DB
PEI $D9
PEA $0000
PEA $0200
JSL L1503B9
PLY
PLY
PLY
PLY
PHX
PHA
PEA $0000
JSL L075E55
PLA
STA $E5
PLX
STX $E7
LDAL L05565D
BNE L1D3AE0
L1D3AC2 PHY
PHY
PEI $F1
LDY #$0002
LDA [$CF],Y
PHA
LDA [$CF]
PHA
PEI $EB
PEI $E9
PEA $0000
JSL L075E55
PLA
STA $E5
PLX
STX $E7
L1D3AE0 LDAL L05565D
BEQ L1D3AFD
PEA $0016
PEA $0000
TDC
CLC
ADC #$FFC3
PHA
LDAL L05565D
PHA
JSL L12205A
BRA L1D3B01
L1D3AFD JSL L0B2AC6
L1D3B01 PEI $D1
PEI $CF
JSL L07185A
PEI $D5
PEI $D3
JSL L07185A
L1D3B11 TSC
CLC
ADC #$0136
TCS
PLD
RTL
L1D3B19 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0001
JSL L0C060F
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L1D3B40 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0003
JSL L0C060F
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L1D3B67 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0002
JSL L0C060F
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L1D3B8E ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
JSL L0C0881
PLA
STA $01
PLX
STX $03
PEI $03
PEI $01
JSL L0E0CFE
PLY
PLY
PLY
PLY
PLD
RTL
L1D3BB0 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0001
JSL L0C09DB
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L1D3BD7 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0003
JSL L0C09DB
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L1D3BFE ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0002
JSL L0C09DB
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L1D3C25 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
JSL L0C0CE9
PLA
STA $01
PLX
STX $03
PEI $03
PEI $01
JSL L0E0CFE
PLY
PLY
PLY
PLY
PLD
RTL
L1D3C47 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
PHY
PEA ^L0403EC
PEA L0403EC
JSL L0946A2
PLA
LSR
BCC L1D3C67
LDA #$0001
STA $0A
BRA L1D3C6E
L1D3C67 PEA $002D
JSL L0B0B7A
L1D3C6E PLY
PLY
PLD
RTL
L1D3C72 ENT
PHD
TSC
CLC
ADC #$FED8
TCS
ADC #$0031
TCD
PHY
PHY
JSL L150574
LDX #$FFEF
PLA
STA $00,X
PLA
STA $02,X
JSL L0E0C52
L1D3C90 LDX #$FFEF
LDA $00,X
ORA $02,X
BNE L1D3C9C
BRL L1D3D27
L1D3C9C PHY
LDX #$FFEF
LDA $02,X
PHA
LDA $00,X
PHA
JSL L1606E8
PLA
LSR
BCS L1D3CB0
BRA L1D3D0C
L1D3CB0 PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0000
TDC
CLC
ADC #$FFCF
PHA
LDX #$FFEF
LDA $02,X
PHA
LDA $00,X
PHA
JSL L160678
PEA $0020
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L0E0EA8
JSL L100000
PHY
PHY
LDX #$FFEF
LDA $02,X
PHA
LDA $00,X
PHA
JSL L151699
PLA
PLX
STX $F3
ORA $F3
BEQ L1D3D0C
PEA ^L032E6A
PEA L032E6A
JSL L0E0F0F
JSL L100000
L1D3D0C PHY
PHY
LDX #$FFEF
LDA $02,X
PHA
LDA $00,X
PHA
JSL L151699
LDX #$FFEF
PLA
STA $00,X
PLA
STA $02,X
BRL L1D3C90
L1D3D27 TSC
CLC
ADC #$0128
TCS
PLD
RTL