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/tfbd/KERNEL.S

11956 lines
221 KiB
ArmAsm
Raw Blame History

*---------------------------------------------------------*
* Disassembled with The Flaming Bird Disassembler *
* (c) Phoenix corp. 1992,93 - All rights reserved *
*---------------------------------------------------------*
mx %00
rel
lst off
*-----------------------
use 4/Int.Macs
use 4/Mem.Macs
use 4/SANE.Macs
use 4/Util.Macs
use KERNEL.E
use KERNEL.X
*-----------------------
L040000 HEX 10111213141516170001020304050607
HEX 18191A1B1C0D1D1E0001020304050607
HEX 1F202122231516170001020304050607
HEX 08090A0B0C0D0E0F0001020304050607
HEX 2425262728292A2B0001020320050607
HEX 08090A0B2C2D2E2F3031323334353637
HEX 1F203838231516170001020304050607
HEX 08090A0B0C0D0E0F0001020304050607
HEX 393A3B3C3D3E3F400001020304050607
HEX 00010203040506070001020304050607
HEX 41204222231543440001020304050607
HEX 08090A0B0C0D0E0F0001020304050607
HEX 45464748494A4B4C0001020304050607
HEX 4D4E4F505152535455565758595A5B5C
HEX 4120383822155D110001020304050607
HEX 08090A0B220D0E0F0001020304050607
L040100 HEX 40800000706868685252525252525252
HEX 40C040B0B06864644444444444444444
HEX 40408040404040404040404040404040
HEX 40404040404040404141414141414141
HEX 00000000000000006060606060606060
HEX 00000000000000000000000000000000
HEX 80808082808080808080808080808080
HEX 8080808080808080C0C0C0C0C0C0C0C0
HEX 70707070707070704A4A4A4A4A4A4A4A
HEX 42424242424242424E4E4E4E4E4E4E4E
HEX 40508050505040805050505050505050
HEX 50505050484850504949494949494949
HEX 00000000000000008888888888888888
HEX 00000000000000000000000000000000
HEX 8090C092809082929090909090909090
HEX 9090909090889090D0D0D0D0D0D0D0D0
L040200 ASC "ORAANDEORADCSTALDACMPSBCASLROLLSRRORSTXL"
ASC "DXDECINCBRKJSRRTIRTSBRALDYCPYCPXCOPJSLWD"
ASC "MPERBRLREPSEPTSBBITMVPSTZSTYPHPPLPPHAPLA"
ASC "DEYTAYINYINXTXATAXDEXNOPPHDPLDPHKRTLPHBP"
ASC "LBWAIXBAJMPBPLBMIBVCBVSBCCBCSBNEBEQTRBMV"
ASC "NPEIPEACLCSECCLISEITYACLVCLDSEDINCDECPHY"
ASC "PLYTXSTSXPHXPLXTCSTSCTCDTDCTXYTYXSTPXCEJ"
ASC "ML"
L04031A ADRL L040326
ADRL L040358
ADRL L04036A
L040326 ENT
ASC "D" ; 0
ASC 'B'
ASC "D" ; 1
ASC 'W'
ASC "DD" ; 2
ASC 'B'
ASC "D" ; 3
ASC 'A'
ASC "ADR" ; 4
ASC 'L'
ASC "AD" ; 5
ASC 'R'
ASC "FL" ; 6
ASC 'O'
ASC "HE" ; 7
ASC 'X'
ASC "D" ; 8
ASC 'S'
ASC "AS" ; 9
ASC 'C'
ASC "DC" ; 10
ASC 'I'
ASC "RE" ; 11
ASC 'V'
ASC "IN" ; 12
ASC 'V'
ASC "FL" ; 13
ASC 'S'
ASC "STR" ; 14
ASC 'L'
ASC "ST" ; 15
ASC 'R'
ASC "CH" ; 16
ASC 'K'
ASC "REC" ; 17 - AV 202303 - RECT
ASC 'T'
ASC 00
L040358 ENT
ASC "LA" ; 0
ASC 'B'
ASC "EN" ; 1
ASC 'T'
ASC "EX" ; 2
ASC 'T'
ASC "EX" ; 3
ASC 'D'
ASC "EQ" ; 4
ASC 'U'
ASC "D" ; 5
ASC 'P'00
L04036A ENT
ASC "OR" ; 0
ASC 'G'
ASC "M" ; 1
ASC 'X'
ASC "OR" ; 2
ASC 'G'
ASC ' ' ; 3
ASC "DB" ; 4
ASC 'R'
ASC "B=" ; 5
ASC 'K'00
L04037A ENT
PHP
SEP #$30
LDX #$03
L04037F ASL
PHP
LSR
PLP
ROL
DEX
BNE L04037F
TAX
LDAL L040100,X
PHA
LSR
LSR
LSR
LSR
LSR
LSR
TAY
PLA
PHA
BIT #$C0
BEQ L0403B3
BIT #$20
BEQ L0403B3
BIT #$10
BNE L0403B3
BIT #$04
BNE L0403B3
BIT #$08
BNE L0403AE
LDA $30
BRA L0403B0
L0403AE LDA $31
L0403B0 BNE L0403B3
INY
L0403B3 PLA
PLP
RTL
L0403B6 ENT
PHB
PHK
PLB
PHP
REP #$30
LDA $06,S
STA $00
LDA $08,S
STA $02
LDA $0A,S
TAX
LDA $04,S
STA $0A,S
LDA $02,S
STA $08,S
LDA $01,S
STA $07,S
TSC
CLC
ADC #$0006
TCS
TXA
SEP #$30
LDX #$03
L0403DE ASL
PHP
LSR
PLP
ROL
DEX
BNE L0403DE
TAX
LDA L040000,X
REP #$30
PHX
AND #$00FF
STA $04
ASL
ADC $04
TAX
LDA [$00]
AND #$00FF
INC
TAY
SEP #$20
LDA #$03
STA $04
L040403 LDA L040200,X
JSR L04043D
INX
STA [$00],Y
INY
DEC $04
BNE L040403
PLX
LDA L040100,X
AND #$C0
BEQ L040436
CMP #$C0
BNE L04042F
CPX #$00E6
BEQ L04042F
CPX #$0011
BEQ L04042F
LDA #$CC
JSR L04043D
STA [$00],Y
INY
L04042F TYA
DEC
STA [$00]
PLP
PLB
RTL
L040436 TYA
DEC
STA [$00]
PLP
PLB
RTL
L04043D PHA
LDA $5F
AND #$20
BEQ L040454
LDA $01,S
AND #$7F
CMP #$41
BCC L040454
CMP #$5B
BCS L040454
PLA
ORA #$20
RTS
L040454 PLA
RTS
L040456 ENT
PHB
PHK
PLB
PHP
REP #$30
LDA $06,S
STA $00
LDA $08,S
STA $02
LDA $0A,S
STA $04
LDA $0C,S
STA $06
LDA $0E,S
TAX
LDA $04,S
STA $0E,S
LDA $02,S
STA $0C,S
LDA $01,S
STA $0B,S
TSC
CLC
ADC #$000A
TCS
TXA
SEP #$30
LDX #$03
L040486 ASL
PHP
LSR
PLP
ROL
DEX
BNE L040486
TAX
LDA L040100,X
TAX
AND #$C0
BEQ L040501
LDA [$00]
INC
TAY
TXA
BIT #$01
BEQ L0404B4
PHA
LDA #$DB
STA [$00],Y
INY
JSR L040504
LDA #$DD
STA [$00],Y
INY
L0404AE PLA
JSR L040535
BRA L0404FD
L0404B4 BIT #$02
BEQ L0404E0
PHA
PHY
JSR L040504
TYX
PLY
LDA [$00],Y
CMP #$FC
BNE L0404CC
LDA #$A8
STA [$00],Y
TXY
BRA L0404D4
L0404CC LDA #$A8
STA [$00],Y
INY
JSR L040504
L0404D4 PLA
PHA
JSR L04051A
LDA #$A9
STA [$00],Y
INY
BRA L0404AE
L0404E0 BIT #$20
BEQ L0404F2
BIT #$10
BNE L0404ED
LDA #$A3
STA [$00],Y
INY
L0404ED JSR L040504
BRA L0404FD
L0404F2 PHA
JSR L040504
PLA
JSR L04051A
JSR L040535
L0404FD TYA
DEC
STA [$00]
L040501 PLP
PLB
RTL
L040504 LDA [$04]
BEQ L040519
STA $08
LDX #$01
L04050C PHY
TXY
LDA [$04],Y
INX
PLY
STA [$00],Y
INY
DEC $08
BNE L04050C
L040519 RTS
L04051A BIT #$14
BEQ L040534
PHA
LDA #$AC
STA [$00],Y
INY
PLA
PHA
BIT #$10
BNE L04052E
LDA #$D3
BRA L040530
L04052E LDA #$D8
L040530 STA [$00],Y
INY
PLA
L040534 RTS
L040535 BIT #$08
BEQ L040534
PHA
LDA #$AC
STA [$00],Y
INY
LDA #$D9
STA [$00],Y
INY
PLA
RTS
PHP
SEP #$30
LDA [$00]
TAY
L04054C INY
TYA
STA [$00]
LDA #$A0
STA [$00],Y
TYA
CMP $44,X
BCC L04054C
PLP
RTS
L04055B PHP
SEP #$30
LDX #$FF
CMP #$E2
BEQ L040577
CMP #$C2
BNE L040575
XBA
BIT #$20
BEQ L04056F
STZ $30
L04056F BIT #$10
BEQ L040575
STZ $31
L040575 PLP
RTL
L040577 XBA
BIT #$20
BEQ L04057E
STX $30
L04057E BIT #$10
BEQ L040575
STX $31
BRA L040575
L040586 ENT
PHP
REP #$30
STAL L0405F0
PHA
PEI $42
PHA
JSL L04349E
BCS L0405B1
SEC
SBCL L0405F0
STAL L0405F2
TYA
CLC
ADCL L0405F2
TAY
TXA
ORA #$0020
TAX
TYA
TXY
PLX
BRA L0405ED
L0405B1 PLY
LDA [$3A],Y
PHA
AND #$00FF
CMP #$00A2
BNE L0405DB
INY
INY
INY
LDA [$3A],Y
CMP #$0022
BNE L0405D9
INY
INY
LDA [$3A],Y
CMP #$E100
BNE L0405D9
PLA
LDY #$0000
LDA #$0007
BRA L0405EA
L0405D9 PLA
PHA
L0405DB JSL L04037A
INY
PLA
PHY
JSL L04055B
PLA
LDY #$0000
L0405EA PLP
CLC
RTL
L0405ED PLP
SEC
RTL
L0405F0 DB $00
DB $00
L0405F2 DB $00
DB $00
L0405F4 ENT
PHB
PHK
PLB
PHP
REP #$30
STA $4A
STY $52
JSL L0300EE
LDX #$0000
JSL L0300E2
L040609 JSL L0300F7
PEI $42
PEI $4A
JSL L042A5C
PHA
PHY
JSL L03065A
LDA #$00AF
JSL L03022D
JSL L030670
JSL L0302E1
STR ": "
BIT $48
BMI L040634
BRL L0406C1
L040634 LDY $4A
LDX #$0010
STX $50
L04063B LDA [$3A],Y
PHY
PHX
PHA
TYA
BIT $5E
BVS L040652
BPL L040669
JSL L0410BB
BIT #$1800
BEQ L040669
BRA L04065B
L040652 JSL L0410BB
BIT #$8000
BEQ L040669
L04065B JSL L030579
JSL L03065A
JSL L030585
BRA L04066D
L040669 JSL L03065A
L04066D LDA #$00A0
JSL L03022D
PLX
PLY
INY
BEQ L040684
BIT $5C
BMI L040681
CPY $3E
BCS L040684
L040681 DEX
BNE L04063B
L040684 JSL L0300EE
LDX #$003C
JSL L0300E2
LDY $4A
LDX #$0010
L040694 LDA [$3A],Y
PHY
PHX
PHA
AND #$007F
CMP #$0020
BCS L0406A6
LDA #$00AE
STA $01,S
L0406A6 PLA
ORA #$0080
JSL L03022D
PLX
PLY
INY
BEQ L0406BE
BIT $5C
BMI L0406BB
CPY $3E
BCS L0406BE
L0406BB DEX
BNE L040694
L0406BE BRL L0409DD
L0406C1 LDA $5A
CMP #$0004
BCC L0406CB
BRL L040776
L0406CB ASL
TAX
JSR (L0406EF,X)
PHP
PEI $4A
PEI $5A
JSL L0415A4
STX $5A
PLP
BCS L0406C1
DEC $52
BNE L0406E5
BRL L040A1D
L0406E5 LDA #$008D
JSL L03022D
BRL L040609
L0406EF DA L0406F7
DA L04071C
DA L04072F
DA L040747
L0406F7 PEI $42
PEI $4A
JSL L042D12
BVS L040715
LDX #$0060
STX $4C
STA $4E
SEP #$10
STY $50
REP #$10
L04070E JSR L0407E5
CLC
RTS
L040713 SEC
RTS
L040715 LDX #$0062
STX $4C
BRA L04070E
L04071C PEI $42
PEI $4A
JSL L042DD9
BCS L040713
STA $4E
LDX #$0061
STX $4C
BRA L04070E
L04072F PEI $42
PEI $4A
JSL L042F5B
BVS L040740
STA $4E
LDX #$0064
BRA L040743
L040740 LDX #$0065
L040743 STX $4C
BRA L04070E
L040747 PEI $42
PEI $4A
STZ L040A25
PEA ^L040A25
PEA L040A25
JSL L0428B4
CPX #$0001
BNE L040713
JSL L0300EE
LDX #$0016
JSL L0300E2
JSL L030314
ADR L040A25
LDA #$0041
STA $4C
BRA L04070E
L040776 LDA $4A
JSL L041719
LDA $4A
JSL L040586
STY $4C
STA $50
CMP #$0000
BEQ L0407A5
CMP #$0006
BCC L040793
LDA #$0005
L040793 TAX
LDY $4A
L040796 LDA [$3A],Y
INY
PHY
PHX
PHA
JSL L03065A
PLX
PLY
DEX
BNE L040796
L0407A5 JSL L0300EE
LDX #$0016
JSL L0300E2
STZ L040A25
LDA $4A
JSL L0410BB
BIT #$6000
BEQ L0407E2
BIT #$2000
BNE L0407E2
BIT #$0080
BEQ L0407E2
PEI $42
PEI $4A
STZ L040A25
PEA ^L040A25
PEA L040A25
JSL L0428B4
BVS L0407E2
JSL L030314
ADR L040A25
L0407E2 PER L040976-1
L0407E5 SEP #$30
LDA #$A0
JSL L03022D
JSL L0300EE
CPX $44
BCS L0407FB
LDX $44
JSL L0300E2
L0407FB REP #$30
LDA $4C
AND #$00FF
BEQ L040807
BRL L0408D3
L040807 LDY $4A
LDA [$3A],Y
AND #$00FF
CMP #$00A2
BNE L04084A
INY
INY
INY
LDA [$3A],Y
CMP #$0022
BNE L040843
INY
INY
LDA [$3A],Y
CMP #$E100
BNE L040843
LDY $4A
INY
LDA [$3A],Y
PHA
STZ L040A25
PEA ^L040A25
PEA L040A25
JSL L044C72
BCS L040843
JSL L030314
ADR L040A25
RTS
L040843 LDY $4A
LDA [$3A],Y
AND #$00FF
L04084A STZ L040A25
PHA
PEA ^L040A25
PEA L040A25
JSL L0403B6
JSL L030314
ADR L040A25
LDA $50
DEC
BNE L040865
RTS
L040865 LDA #$00A0
JSL L03022D
STZ L040A25
STZ L040A55
SEP #$10
JSL L0300EE
CPX $45
BCS L040882
LDX $45
JSL L0300E2
L040882 REP #$10
LDY $4A
LDA [$3A],Y
AND #$00EF
CMP #$0044
BNE L0408A0
PEI $42
INY
PHY
PEA ^L040A55
PEA L040A55
JSL L045887
BRA L0408CB
L0408A0 TYA
INC
LDY $50
DEY
PEI $42
PHA
PHY
PEA ^L040A25
PEA L040A25
JSL L04397A
LDY $4A
LDA [$3A],Y
AND #$00FF
PHA
PEA ^L040A25
PEA L040A25
PEA ^L040A55
PEA L040A55
JSL L040456
L0408CB JSL L030314
ADR L040A55
RTS
L0408D3 LDA $4C
AND #$00FF
PHA
SEC
SBC #$0020
LSR
LSR
LSR
AND #$000C
TAY
LDA L04031A+1,Y
STA $01
LDA L04031A,Y
STA $00
PLA
AND #$001F
TAX
LDY #$0000
SEP #$20
L0408F8 DEX
BMI L040905
L0408FB LDA [$00],Y
BPL L040902
INY
BRA L0408FB
L040902 INY
BRA L0408F8
L040905 LDX #$0001
L040908 LDA [$00],Y
BPL L040916
JSR L04043D
STA L040A25,X
INY
INX
BRA L040908
L040916 ORA #$80
JSR L04043D
STA L040A25,X
TXA
STA L040A25
REP #$30
JSL L030314
ADR L040A25
LDA #$00A0
JSL L03022D
SEP #$10
JSL L0300EE
CPX $45
BCS L040942
LDX $45
JSL L0300E2
L040942 REP #$10
LDA $4C
AND #$00FF
PHA
SEC
SBC #$0020
LSR
LSR
LSR
AND #$000C
TAY
LDA L040A85+1,Y
STA $01
LDA L040A85,Y
STA $00
PLA
AND #$001F
ASL
TAY
PEI $4A
STZ L040A25
PER L040972-1
LDA [$00],Y
DEC
PHA
RTS
L040972 PLA
STA $4A
RTS
L040976 LDA $4A
JSL L0410BB
BIT #$0400
BEQ L0409DD
SEP #$30
LDA #$A0
JSL L03022D
JSL L0300EE
STX L040A23
CPX $46
BCS L04099D
LDX $46
STX L040A23
JSL L0300E2
L04099D REP #$30
LDA #$004F
SEC
SBC L040A23
DEC
DEC
BMI L0409DD
STA L040A23
JSL L0302E1
STR "; "
PEI $42
PEI $4A
STZ L040A25
PEA ^L040A25
PEA L040A25
JSL L04392C
BCS L0409DD
SEP #$20
LDA L040A23
CMP L040A25
BCS L0409D4
STA L040A25
L0409D4 REP #$20
JSL L030314
ADR L040A25
L0409DD STZ $5A
LDA $50
CLC
ADC $4A
BCS L040A05
STA $4A
BIT $5C
BMI L0409F0
CMP $3E
BCS L040A05
L0409F0 PHA
JSL L04155D
STX $5A
LDY #$0000
DEC $52
BEQ L040A1D
JSL L0302C3
BRL L040609
L040A05 STZ $4A
L040A07 DEC $52
BEQ L040A13
INC $4A
JSL L0302C3
BRA L040A07
L040A13 JSL L0300F7
LDY #$00EF
LDX #$6502
L040A1D LDA $4A
PLP
PLB
CLC
RTL
L040A23 DB $00
DB $00
L040A25 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040A55 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040A85 ADR L040A91
DB $00
ADR L040AB3
DB $00
ADR L040ABD
DB $00
L040A91 DA L040B1C
DA L040B34
DA L040B50
DA L040B1C
DA L040B1C
DA L040B1C
DA L040B57
DA L040BA4
DA L040BCB
DA L040C14
DA L040BEE
DA L040C20
DA L040AC9
DA L040AC9
DA L040C46
DA L040C2C
DA L040C60
L040AB3 DA L040ACA
DA L040ACA
DA L040ACA
DA L040ACA
DA L040ACA
L040ABD DA L040AEC
DA L040ACC
DA L040ACB
DW $0000
DA L040B0B
DA L040ACB
L040AC9 RTS
L040ACA RTS
L040ACB RTS
L040ACC LDA #$00A5
JSL L03022D
PEI $4E
JSL L03065A
SEP #$20
LDA $4E
PHA
AND #$0F
STA $31
PLA
LSR
LSR
LSR
LSR
STA $30
REP #$20
RTS
L040AEC LDA $50
AND #$00FF
PHA
PEI $4E
PEA $0003
PEA ^L040A25
PEA L040A25
JSL L044315
JSL L030314
ADR L040A25
STZ $50
RTS
L040B0B LDA #$00A4
JSL L03022D
LDA $4E
PHA
JSL L03065A
STZ $50
RTS
L040B1C PEI $42
PEI $4A
PEI $50
PEA ^L040A25
PEA L040A25
JSL L04397A
JSL L030314
ADR L040A25
RTS
L040B34 LDY $4A
LDA [$3A],Y
L040B38 PEA $0000
PHA
PEI $50
PEA ^L040A25
PEA L040A25
JSL L044315
JSL L030314
ADR L040A25
RTS
L040B50 LDY $4A
LDA [$3A],Y
XBA
BRA L040B38
L040B57 CLC
LDA $4A
ADC $3A
PHA
PHA
LDA #$0000
ADC $3C
STA $03,S
PEA ^L040B85
PEA L040B85
JSL L040D34
LDA #$00A2
JSL L03022D
JSL L030314
ADR L040B85
LDA #$00A2
JSL L03022D
RTS
L040B85 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040BA4 LDX $50
CPX #$0011
BCC L040BB1
PER L040BC3-1
LDX #$000F
L040BB1 LDY $4A
L040BB3 LDA [$3A],Y
PHY
PHX
PHA
JSL L03065A
PLX
PLY
INY
DEX
BNE L040BB3
RTS
L040BC3 LDA #$0049
JSL L03022D
RTS
L040BCB LDA #$00A4
JSL L03022D
PEI $50
JSL L030670
LDY $4A
LDA [$3A],Y
AND #$00FF
BEQ L040BED
PHA
JSL L0302E1
STR ",$"
JSL L03065A
L040BED RTS
L040BEE PHP
REP #$30
LDY $4A
LDA $50
CMP #$0001
BEQ L040BFF
JSR L040C7F
PLP
RTS
L040BFF LDA [$3A],Y
PHA
EOR #$0080
STA [$3A],Y
PHY
LDA #$0001
JSR L040C7F
PLY
PLA
STA [$3A],Y
PLP
RTS
L040C14 PHP
REP #$30
LDY $4A
LDA $50
JSR L040C7F
PLP
RTS
L040C20 PHP
REP #$30
LDY $4A
LDA $50
JSR L040C61
PLP
RTS
L040C2C PHP
REP #$30
LDY $4A
LDA [$3A],Y
AND #$00FF
INC
CMP $50
PHP
LDA $50
PLP
BNE L040C41
INY
DEC
L040C41 JSR L040C7F
PLP
RTS
L040C46 PHP
REP #$30
LDY $4A
LDA [$3A],Y
INC
INC
CMP $50
PHP
LDA $50
PLP
BNE L040C5B
INY
INY
DEC
DEC
L040C5B JSR L040C7F
PLP
RTS
L040C60 RTS
L040C61 PHP
REP #$30
TAX
PHA
TYA
CLC
ADC $01,S
DEC
STA $01,S
PLY
SEP #$20
LDA #$1F
STA L040D2F
STZ L040D31
LDA #$FF
STA L040D32
BRA L040CA0
L040C7F PHP
REP #$30
TAX
SEP #$20
LDA #$1F
STA L040D2F
STZ L040D31
STZ L040D32
CPX #$0000
BNE L040CA0
JSL L0302E1
STR "''"
LDA #$02
PLP
RTS
L040CA0 LDA [$3A],Y
AND #$7F
CMP #$20
BCC L040CBF
LDA [$3A],Y
BPL L040CBB
LDA #$A2
L040CAE STA L040D30
PHX
PHY
JSL L03022D
PLY
PLX
BRA L040CEB
L040CBB LDA #$A7
BRA L040CAE
L040CBF LDA [$3A],Y
PHX
PHY
PHA
PHA
JSL L03065A
PLY
PLX
INC L040D31
INY
BIT L040D32
BPL L040CD6
DEY
DEY
L040CD6 DEX
BEQ L040D15
DEC L040D2F
DEC L040D2F
BEQ L040CE3
BPL L040CA0
L040CE3 LDA #$49
JSL L03022D
BRA L040D15
L040CEB DEC L040D2F
BEQ L040CE3
LDA [$3A],Y
ORA #$80
CMP #$A0
BCC L040D1D
PHX
PHY
JSL L03022D
PLY
PLX
INC L040D31
INY
BIT L040D32
BPL L040D0B
DEY
DEY
L040D0B DEX
BNE L040CEB
LDA L040D30
JSL L03022D
L040D15 LDA #$00
XBA
LDA L040D31
PLP
RTS
L040D1D LDA L040D30
PHX
PHY
JSL L03022D
PLY
PLX
DEC L040D2F
BEQ L040CE3
BRA L040CBF
L040D2F DB $00
L040D30 DB $00
L040D31 DB $00
L040D32 DB $00
DB $00
L040D34 ENT
PHB
PHK
PLB
PHP
REP #$30
TSC
PHD
CLC
ADC #$0006
TCD
STZ L040E46
LDA #$0014
STA L040E48
PEA ^L040E46
PEA L040E46
PEI $06
PEI $04
PEA ^L040E4A
PEA L040E4A
PEA $000B
_SANEFP816
CLC
LDA L040E4C
ADC #$0013
CMP #$0014
BCS L040D73
INC L040E46
L040D73 SEP #$30
LDX L040E4E
L040D78 LDA L040E4E,X
CMP #$30
BNE L040D82
DEX
BNE L040D78
L040D82 REP #$31
STX L040E48
LDA L040E46
BNE L040DB1
LDA L040E4F
AND #$007F
CMP #$0030
BEQ L040DAC
LDA L040E4C
ADC #$0013
EOR #$FFFF
INC
BMI L040DC2
CLC
ADC L040E48
CMP #$0014
BCS L040DC2
L040DAC INC L040E46
BRA L040DC2
L040DB1 LDA L040E4C
ADC #$0014
SEC
SBC L040E48
EOR #$FFFF
INC
STA L040E48
L040DC2 PEA ^L040E46
PEA L040E46
PEI $06
PEI $04
PEA ^L040E4A
PEA L040E4A
PEA $000B
_SANEFP816
PEA ^L040E46
PEA L040E46
PEA ^L040E4A
PEA L040E4A
PEA ^L040E63
PEA L040E63
PEA $0001
_SANEDecStr816
LDX #$0001
L040DFB LDA L040E63,X
ORA #$8080
STA L040E63,X
INX
INX
CPX #$001E
BCC L040DFB
SEP #$30
LDA L040E64
CMP #$A0
BNE L040E24
LDX #$01
L040E16 LDA L040E64,X
STA L040E63,X
INX
CPX #$1E
BCC L040E16
DEC L040E63
L040E24 LDY L040E63
L040E27 LDA L040E63,Y
STA [$00],Y
DEY
BPL L040E27
REP #$30
PLD
LDA $04,S
STA $0C,S
LDA $02,S
STA $0A,S
LDA $01,S
STA $09,S
PLA
PLA
PLA
PLA
PLP
PLB
CLC
RTL
L040E46 DB $00
DB $00
L040E48 DB $14
DB $00
L040E4A DB $00
DB $00
L040E4C DB $00
DB $00
L040E4E DB $00
L040E4F DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040E63 DB $00
L040E64 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040E82 DB $00
DB $00
L040E84 DB $00
DB $00
L040E86 DB $00
L040E87 DB $00
L040E88 DB $00
L040E89 DB $00
DB $00
L040E8B DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040E95 DB $00
DB $00
L040E97 REP #$30
CPX #$0000
BEQ L040ED3
PLA
STA L040ED4
PLA
STA L040E82
PLA
STA L040E84
SEP #$20
PLA
STA L040E86
CPX #$0000
BEQ L040EC1
TXY
LDX #$0000
L040EB9 PLA
STA L040E87,X
INX
DEY
BNE L040EB9
L040EC1 LDA L040E86
PHA
REP #$20
LDA L040E84
PHA
LDA L040E82
PHA
LDA L040ED4
PHA
L040ED3 RTS
L040ED4 DW $0000
L040ED6 PHP
REP #$30
LDA $05,S
STA L040EEE+1
LDA $06,S
STA L040EEE+2
LDA $03,S
STA $07,S
LDA $01,S
STA $05,S
PLA
PLA
PLP
L040EEE JMPL $000000
L040EF2 PHP
REP #$20
STA L040F12
SEP #$20
PLA
AND #$CF
STA L040F11
LDA $01,S
AND #$30
ORA L040F11
STA $01,S
REP #$20
LDA L040F12
PLP
PLB
RTL
L040F11 DB $00
L040F12 DB $00
DB $00
L040F14 BIT L040E95
BPL L040F1B
CLC
RTS
L040F1B PHP
REP #$30
LDA $70
ORA $72
BEQ L040F4A
LDY #$0002
LDA [$70]
STA $74
LDA [$70],Y
STA $76
ORA $74
BEQ L040F4A
SEC
LDA $3E
ADC $74
STA $78
LDA #$0000
ADC $76
STA $7A
BIT $5C
BPL L040F47
INC $7A
L040F47 PLP
CLC
RTS
L040F4A PLP
SEC
RTS
L040F4D PHB
PHK
PLB
PHP
REP #$30
JSR L040F1B
BCS L040F6F
LDA L040E95
BNE L040F68
PEI $72
PEI $70
_HLock
L040F68 DEC L040E95
PLP
PLB
CLC
RTL
L040F6F PLP
PLB
SEC
RTL
L040F73 PHB
PHK
PLB
PHP
REP #$30
JSR L040F1B
BCS L040F97
LDA L040E95
BEQ L040F93
INC L040E95
BNE L040F93
PEI $72
PEI $70
_HUnlock
L040F93 PLP
PLB
CLC
RTL
L040F97 PLP
PLB
SEC
RTL
L040F9B ENT
PHB
PHK
PLB
PHP
REP #$30
JSL L040FF1
LDY #$0000
LDX $3E
BNE L040FAD
INY
L040FAD INX
BNE L040FB1
INY
L040FB1 TXA
ASL
TAX
TYA
ROL
TAY
PHA
PHA
PHY
PHX
LDA $FE
ORA #$0300
PHA
PEA $0008
PHA
PHA
_NewHandle
PLX
PLY
BCS L040FED
STX $70
STY $72
JSR L040F14
BCS L040FED
PEA $0000
PEI $3E
PEA $FFFF
JSL L041015
STZ L040E95
PLP
PLB
CLC
RTL
L040FED PLP
PLB
SEC
RTL
L040FF1 ENT
PHP
REP #$30
JSR L040F14
BCS L041012
LDA $FE
ORA #$0300
PHA
_DisposeAll
STZ $70
STZ $72
STZ $74
STZ $76
STZ $78
STZ $7A
L041012 PLP
CLC
RTL
L041015 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0006
JSR L040E97
JSR L040F14
BCS L041055
LDA #$FFFF
EOR L040E87
STA L040E87
LDY L040E8B
L041032 SEP #$20
BIT $5D
BMI L04103C
CPY $3E
BCS L041054
L04103C LDA [$74],Y
AND L040E87
STA [$74],Y
LDA [$78],Y
AND L040E88
STA [$78],Y
INY
BEQ L041054
REP #$20
DEC L040E89
BNE L041032
L041054 CLC
L041055 JMP L040EF2
L041058 PHB
PHK
PLB
PHP
REP #$30
LDX #$0006
JSR L040E97
JSR L040F14
BCS L04108F
LDY L040E8B
L04106C SEP #$20
BIT $5D
BMI L041076
CPY $3E
BCS L04108E
L041076 LDA [$74],Y
ORA L040E87
STA [$74],Y
LDA [$78],Y
ORA L040E88
STA [$78],Y
INY
BEQ L04108E
REP #$20
DEC L040E89
BNE L04106C
L04108E CLC
L04108F JMP L040EF2
PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L040E97
JSR L040F14
BCS L0410B8
LDY L040E87
BIT $5C
BMI L0410AE
CPY $3E
BCS L0410B8
L0410AE SEP #$20
LDA [$78],Y
XBA
LDA [$74],Y
REP #$20
CLC
L0410B8 JMP L040EF2
L0410BB ENT
PHP
REP #$30
PHA
JSR L040F14
PLY
BCC L0410C8
PLP
SEC
RTL
L0410C8 BIT $5C
BMI L0410D0
CPY $3E
BCS L0410DA
L0410D0 SEP #$20
LDA [$78],Y
XBA
LDA [$74],Y
PLP
CLC
RTL
L0410DA PLP
SEC
RTL
L0410DD ENT
PHB
PHK
PLB
PHP
REP #$30
JSR L040F14
BCS L0410FC
LDY #$0000
L0410EB JSR L041118
BCS L0410F8
BIT $5C
BMI L0410EB
CPY $3E
BCC L0410EB
L0410F8 PLP
CLC
PLB
RTL
L0410FC PLP
SEC
PLB
RTL
PHB
PHK
PLB
PHP
REP #$30
PHY
JSR L040F14
PLY
BCS L041114
JSR L041118
PLP
CLC
PLB
RTL
L041114 PLP
SEC
PLB
RTL
L041118 PHP
REP #$30
STY $7C
LDA [$3A],Y
AND #$00FF
CMP #$00A2
BNE L041146
INY
INY
INY
LDA [$3A],Y
CMP #$0022
BNE L04113F
INY
INY
LDA [$3A],Y
CMP #$E100
BNE L04113F
LDY #$0007
BRA L04114B
L04113F LDY $7C
LDA [$3A],Y
AND #$00FF
L041146 JSL L04037A
INY
L04114B TYX
TYA
LDY $7C
CLC
ADC $7C
STA $7C
SEP #$20
LDA $30
LSR
LDA #$00
ROR
LSR
STA L0411CF
LDA $31
LSR
LDA #$00
ROR
LSR
LSR
ORA L0411CF
STA L0411CF
LDA [$74],Y
AND #$1E
ORA #$80
ORA L0411CF
STA [$74],Y
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L0411C3
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L0411C3
ASL
PHA
LDA [$3A],Y
CMP #$C2
BEQ L041197
PLA
TSB L0411CF
BRA L04119B
L041197 PLA
TRB L0411CF
L04119B LDA L0411CF
ASL
ASL
PHA
LDA #$00
ROL
STA $30
PLA
ASL
LDA #$00
ROL
STA $31
LDA [$74],Y
AND #$9E
ORA #$01
ORA L0411CF
STA [$74],Y
BRA L0411C3
L0411BA LDA [$74],Y
AND #$1E
ORA L0411CF
STA [$74],Y
L0411C3 INY
BEQ L0411CC
DEX
BNE L0411BA
PLP
CLC
RTS
L0411CC PLP
SEC
RTS
L0411CF DB $00
L0411D0 PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L040E97
JSR L040F14
BCS L041216
SEP #$20
LDY L040E87
LDA [$3A],Y
AND #$DF
CMP #$C2
BEQ L041215
LDA [$74],Y
BPL L041215
AND #$FE
STA [$74],Y
DEY
CPY #$FFFF
BNE L041201
STZ L041219
BRA L041208
L041201 LDA [$74],Y
AND #$60
STA L041219
L041208 INY
LDA [$74],Y
AND #$9F
ORA L041219
STA [$74],Y
JMP L0412D0
L041215 CLC
L041216 JMP L040EF2
L041219 DB $00
L04121A PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L040E97
JSR L040F14
BCS L041268
LDA L040E87
AND #$0011
ASL
ASL
PHA
ASL
ASL
ASL
ORA $01,S
PLX
AND #$0060
SEP #$20
STA L04126B
LDY L040E89
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L041257
INY
LDA [$3A],Y
DEY
AND #$30
CMP #$30
BEQ L041267
L041257 LDA [$74],Y
BPL L041267
AND #$9E
ORA #$01
ORA L04126B
STA [$74],Y
JMP L0412D0
L041267 CLC
L041268 JMP L040EF2
L04126B DB $00
L04126C PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L040E97
JSR L040F14
BCS L0412B5
LDA L040E87
AND #$0011
ASL
ASL
PHA
ASL
ASL
ASL
ORA $01,S
PLX
AND #$0060
SEP #$20
STA L0412B8
LDY L040E89
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L0412A9
INY
LDA [$3A],Y
DEY
AND #$30
CMP #$30
BEQ L0412B4
L0412A9 LDA [$74],Y
AND #$9E
ORA #$01
ORA L0412B8
STA [$74],Y
L0412B4 CLC
L0412B5 JMP L040EF2
L0412B8 DB $00
L0412B9 PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L040E97
JSR L040F14
BCC L0412CD
BRL L040EF2
L0412CD LDY L040E87
L0412D0 SEP #$20
STY $7C
STY $7E
LDA [$74],Y
AND #$60
STA L0413FA
JSR L0413E7
L0412E0 REP #$20
TYA
BIT $5C
BMI L0412EE
CMP $3E
BCC L0412EE
BRL L0413E3
L0412EE CMP $7E
BCS L0412F5
BRL L0413E3
L0412F5 SEP #$20
LDA [$78],Y
AND #$63
STA L0413FB
REP #$20
TYA
JSL L040586
TAX
SEP #$20
CPY #$0000
BEQ L041312
LDA #$80
TSB L0413FB
L041312 LDY $7C
LDA [$78],Y
EOR L0413FB
AND #$7F
EOR L0413FB
STA [$78],Y
REP #$20
TXA
STY $7E
CLC
ADC $7C
STA $7C
BCC L041331
CMP #$0000
BNE L04133B
L041331 BIT $5C
BMI L041340
CMP $3E
BEQ L041340
BCC L041340
L04133B LDA $3E
SBC $7E
TAX
L041340 SEP #$20
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L04136D
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L04136D
ASL
PHA
LDA [$74],Y
ORA #$01
STA [$74],Y
LDA [$3A],Y
CMP #$C2
BEQ L041366
PLA
TSB L0413FA
BRA L04136A
L041366 PLA
TRB L0413FA
L04136A JSR L0413E7
L04136D LDA [$74],Y
AND #$1F
ORA #$80
ORA L0413FA
STA [$74],Y
BRA L04138C
L04137A LDA [$74],Y
AND #$1F
ORA L0413FA
STA [$74],Y
LDA [$78],Y
AND #$9C
ORA L0413FB
STA [$78],Y
L04138C INY
DEX
BNE L04137A
CPY #$0000
BEQ L0413E3
BIT $5D
BMI L04139D
CPY $3E
BCS L0413E3
L04139D LDA [$74],Y
BMI L0413A4
BRL L0412E0
L0413A4 REP #$20
PHY
TYA
JSL L040586
CLC
ADC $01,S
TAY
SEP #$20
LDA [$74],Y
PLY
AND #$80
BNE L0413BC
BRL L0412E0
L0413BC LDA [$74],Y
AND #$60
CMP L0413FA
BEQ L0413E3
LDA [$74],Y
BIT #$01
BNE L0413CE
BRL L0412E0
L0413CE LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L0413E3
INY
LDA [$3A],Y
DEY
AND #$30
CMP #$30
BEQ L0413E3
BRL L0412E0
L0413E3 CLC
JMP L040EF2
L0413E7 LDA L0413FA
ASL
ASL
PHA
LDA #$00
ROL
STA $30
PLA
ASL
LDA #$00
ROL
STA $31
RTS
L0413FA DB $00
L0413FB DB $00
L0413FC ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L040E97
JSR L040F14
BCS L04145F
SEP #$20
LDX #$0000
LDY L040E89
L041415 LDA [$74],Y
BMI L04144F
DEY
CPY #$FFFF
BEQ L04145A
BRA L041415
L041421 LDA [$74],Y
BMI L04142D
DEY
CPY #$FFFF
BEQ L04145A
BRA L041421
L04142D BIT #$01
BEQ L041442
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L041441
INY
LDA [$3A],Y
DEY
AND #$30
BNE L041442
L041441 INX
L041442 LDA [$74],Y
BIT #$18
BEQ L041449
INX
L041449 BIT #$04
BEQ L04144E
INX
L04144E INX
L04144F DEY
CPY #$FFFF
BEQ L04145A
DEC L040E87
BPL L041421
L04145A INY
REP #$20
TYA
CLC
L04145F JMP L040EF2
L041462 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0006
JSR L040E97
JSR L040F14
BCC L041476
BRL L040EF2
L041476 LDA L040E87
STA L041511
LDA L040E89
STA L04150F
LDA L040E8B
STA L04150D
L041488 LDA L04150F
ASL
TAX
LDA L04149D,X
DEC
PHA
LDX L04150F
LDY L04150D
SEP #$20
LDA [$74],Y
RTS
L04149D DA L0414D1
DA L0414CA
DA L0414B5
DA L0414AE
DA L0414A7
L0414A7 DEX
LDA [$78],Y
BIT #$20
BNE L0414F8
L0414AE DEX
LDA [$74],Y
BIT #$04
BNE L0414F8
L0414B5 DEX
BIT #$01
BEQ L0414CA
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L0414F8
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L0414F8
L0414CA DEX
LDA [$74],Y
BIT #$18
BNE L0414F8
L0414D1 SEP #$20
LDX #$0004
LDY L04150D
L0414D9 DEY
CPY #$FFFF
BEQ L0414E5
LDA [$74],Y
BPL L0414D9
BRA L0414F8
L0414E5 PEA $0000
PEA ^L04155D
PEA L04155D
LDX #$0002
JSL L040ED6
LDY L04150D
L0414F8 REP #$20
STY L04150D
STX L04150F
DEC L041511
BEQ L041508
BRL L041488
L041508 TYA
CLC
JMP L040EF2
L04150D DB $00
DB $00
L04150F DB $00
DB $00
L041511 DB $00
DB $00
PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L040E97
JSR L040F14
BCS L04155A
SEP #$20
LDY L040E87
LDA [$74],Y
LDX #$0001
BIT #$01
BEQ L041543
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L041542
INY
LDA [$3A],Y
DEY
AND #$30
BNE L041543
L041542 INX
L041543 LDA [$74],Y
BIT #$18
BEQ L04154A
INX
L04154A BIT #$04
BEQ L04154F
INX
L04154F LDA [$78],Y
BIT #$20
BEQ L041556
INX
L041556 REP #$20
TXA
CLC
L04155A JMP L040EF2
L04155D ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L040E97
JSR L040F14
BCS L0415A1
SEP #$20
LDX #$0000
LDY L040E87
LDA [$74],Y
BIT #$18
BNE L0415A0
INX
BIT #$01
BEQ L041591
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L0415A0
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L0415A0
L041591 INX
LDA [$74],Y
BIT #$04
BNE L0415A0
INX
LDA [$78],Y
BIT #$20
BNE L0415A0
INX
L0415A0 CLC
L0415A1 JMP L040EF2
L0415A4 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L040E97
JSR L040F14
BCS L041609
LDA L040E87
ASL
TAX
LDA L0415CA,X
DEC
PHA
LDX L040E87
SEP #$20
LDY L040E89
LDA [$74],Y
RTS
L0415CA DA L0415DF
DA L0415F4
DA L0415FB
DA L041602
DA L04160C
L0415D4 LDX #$0000
SEP #$20
LDA [$74],Y
BIT #$18
BNE L041603
L0415DF INX
BIT #$01
BEQ L0415F4
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L041603
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L041603
L0415F4 INX
LDA [$74],Y
BIT #$04
BNE L041603
L0415FB INX
LDA [$78],Y
BIT #$20
BNE L041603
L041602 INX
L041603 REP #$20
LDA L040E89
CLC
L041609 JMP L040EF2
L04160C JSR L041622
REP #$20
LDA L040E89
JSL L040586
CLC
ADC L040E89
STA L040E89
TAY
L041620 BRA L0415D4
L041622 PHP
SEP #$20
LDA [$74],Y
AND #$60
ASL
ASL
PHA
LDA #$00
ROL
STA $30
PLA
ASL
LDA #$00
ROL
STA $31
PLP
RTS
L04163A ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L040E97
JSR L040F14
BCC L04164E
BRL L040EF2
L04164E LDA L040E89
STA L0416D3
LDA L040E87
STA L0416D5
ASL
TAX
LDA L04166C,X
DEC
PHA
LDX L0416D5
LDY L0416D3
SEP #$20
LDA [$74],Y
RTS
L04166C DA L0416A0
DA L041699
DA L041684
DA L04167D
DA L041676
L041676 DEX
LDA [$78],Y
BIT #$20
BNE L0416CC
L04167D DEX
LDA [$74],Y
BIT #$04
BNE L0416CC
L041684 DEX
BIT #$01
BEQ L041699
LDA [$3A],Y
AND #$DF
CMP #$C2
BNE L0416CC
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L0416CC
L041699 DEX
LDA [$74],Y
BIT #$18
BNE L0416CC
L0416A0 SEP #$20
LDX #$0004
LDY L0416D3
L0416A8 DEY
CPY #$FFFF
BNE L0416B3
LDY $3E
BNE L0416B9
DEY
L0416B3 LDA [$74],Y
BPL L0416A8
BRA L0416CC
L0416B9 PEA $0000
PEA ^L04155D
PEA L04155D
LDX #$0002
JSL L040ED6
LDY L0416D3
L0416CC REP #$20
TYA
CLC
JMP L040EF2
L0416D3 DB $00
DB $00
L0416D5 DB $00
DB $00
L0416D7 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L040E97
JSR L040F14
BCS L0416F0
LDY L040E87
JSR L041707
CLC
TYA
L0416F0 JMP L040EF2
L0416F3 ENT
PHP
REP #$30
PHA
JSR L040F14
PLY
BCS L041704
JSR L041707
TYA
PLP
CLC
RTL
L041704 PLP
SEC
RTL
L041707 PHP
SEP #$20
REP #$10
L04170C LDA [$74],Y
BMI L041717
DEY
CPY #$FFFF
BNE L04170C
INY
L041717 PLP
RTS
L041719 ENT
PHP
REP #$30
PHA
JSR L040F14
PLY
BCS L041729
JSR L041622
PLP
CLC
RTL
L041729 PLP
SEC
RTL
L04172C ENT
PHB
PHK
PLB
PHP
REP #$30
STA L041762
STY $7C
JSR L040F14
BCS L04175A
LDY $7C
L04173E SEP #$20
LDA [$78],Y
XBA
LDA [$74],Y
REP #$20
AND L041762
CMP L041762
BEQ L04175E
INY
BEQ L04175A
BIT $5C
BMI L04173E
CPY $3E
BCC L04173E
L04175A PLP
SEC
PLB
RTL
L04175E PLP
CLC
PLB
RTL
L041762 DB $00
DB $00
L041764 ENT
PHB
PHK
PLB
PHP
REP #$30
STA L041797
STY $7C
JSR L040F14
BCS L04178F
LDY $7C
L041776 SEP #$20
LDA [$78],Y
XBA
LDA [$74],Y
REP #$20
AND L041797
BNE L041793
INY
BEQ L04178F
BIT $5C
BMI L041776
CPY $3E
BCC L041776
L04178F PLP
SEC
PLB
RTL
L041793 PLP
CLC
PLB
RTL
L041797 DB $00
DB $00
L041799 PHB
PHK
PLB
PHP
REP #$30
LDA $AA
ORA $AC
BNE L0417A8
L0417A5 PLP
PLB
RTL
L0417A8 LDY #$0002
LDA [$AA]
TAX
LDA [$AA],Y
TAY
BNE L0417B6
TXA
BEQ L0417A5
L0417B6 STX $AE
STY $B0
JSR L040F14
BCS L0417A5
L0417BF LDA [$AE]
INC $AE
BNE L0417C7
INC $B0
L0417C7 AND #$00FF
BEQ L0417A5
CMP #$00E0
BCS L0417DC
CLC
ADC $AE
STA $AE
BCC L0417BF
INC $B0
BRA L0417BF
L0417DC ASL
TAX
JMP (L0417E1-$1C0,X)
L0417E1 DA L041821
DA L041821
DA L041832
DA L041842
DA L041821
DA L041821
DA L041821
DA L0418F9
DA L041821
DA L041821
DA L041821
DA L041916
DA L041916
DA L041916
DA L041901
DA L041821
DA L0418F9
DA L041821
DA L041821
DA L041916
DA L041821
DA L04183A
DA L04184A
DA L041853
DA L041821
DA L041821
DA L041821
DA L041821
DA L041821
DA L041821
DA L041821
DA L041821
L041821 PLP
RTS
PLP
CLC
RTS
L041826 CLC
ADC $AE
STA $AE
BCC L04182F
INC $B0
L04182F BRL L0417BF
L041832 JSR L0418DB
LDA #$000A
BRA L041826
L04183A JSR L0418DB
LDA #$0006
BRA L041826
L041842 JSR L0418DB
LDA #$000E
BRA L041826
L04184A JSR L0418DB
LDA #$0007
BRL L041826
L041853 LDA [$AE]
DEC
STA L0418F5
LDA #$FF00
STA L0418F7
LDY #$0002
LDA [$AE],Y
BEQ L041869
BRL L0417A5
L041869 LDY #$0004
LDA [$AE],Y
AND #$00FF
STA L0418F3
LDA #$0005
CLC
ADC $AE
STA $AE
BCC L041880
INC $B0
L041880 DEC L0418F5
BPL L041888
BRL L0417BF
L041888 LDA [$AE]
INC $AE
BNE L041890
INC $B0
L041890 AND #$00FF
CMP #$0080
BCC L0418A5
AND #$007F
XBA
CLC
ADC L0418F7
STA L0418F7
BRA L041880
L0418A5 SEP #$20
INC L0418F8
REP #$20
TAX
L0418AD DEC L0418F5
LDA [$AE]
INC $AE
BNE L0418B8
INC $B0
L0418B8 AND #$00FF
CLC
ADC L0418F7
PHX
LDX #$0002
LDY L0418F3
CPY #$0001
BNE L0418CC
INX
L0418CC CPY #$0002
BNE L0418D2
INX
L0418D2 JSR L0418E6
PLX
DEX
BPL L0418AD
BRA L041880
L0418DB LDA [$AE]
AND #$00FF
TAX
LDY #$0002
LDA [$AE],Y
L0418E6 TAY
L0418E7 LDA [$78],Y
ORA #$0008
STA [$78],Y
INY
DEX
BNE L0418E7
RTS
L0418F3 DB $00
DB $00
L0418F5 DB $00
DB $00
L0418F7 DB $00
L0418F8 DB $00
L0418F9 JSR L041971
LDA #$0004
BRA L041928
L041901 LDA [$AE]
AND #$00FF
TAX
LDY #$0005
LDA [$AE],Y
TAY
JSR L0418E7
CLC
LDA #$0007
BRA L041928
L041916 LDY #$0002
LDA [$AE],Y
AND #$00FF
TAX
LDA [$AE]
TAY
JSR L0418E7
LDA #$0003
L041928 CLC
ADC $AE
STA $AE
BCC L041931
INC $B0
L041931 LDA [$AE]
INC $AE
BNE L041939
INC $B0
L041939 AND #$00FF
BEQ L04194F
CMP #$0080
BCC L041931
AND #$007F
BEQ L041931
CMP #$0008
BCC L041952
PLP
RTS
L04194F BRL L0417BF
L041952 ASL
TAX
JMP (L041957,X)
L041957 DA $0000
DA L041967
DA L04196C
DA L04196C
DA L04196C
DA L04196C
DA L04196C
DA L041967
L041967 LDA #$0004
BRA L041928
L04196C JSR L041971
BRA L041931
L041971 LDA [$AE]
AND #$00FF
INC
ADC $AE
STA $AE
BCC L04197F
INC $B0
L04197F RTS
PHP
REP #$30
PHA
JSR L040F14
PLY
BCS L041990
JSR L041707
BRL L0410C8
L041990 PLP
SEC
RTL
L041993 ENT
PHP
REP #$30
PHA
JSR L040F14
PLY
BCS L0419BA
LDX #$0000
SEP #$20
L0419A2 INX
INY
BEQ L0419B4
BIT $5D
BMI L0419AE
CPY $3E
BCS L0419B4
L0419AE LDA [$74],Y
BMI L0419B4
BRA L0419A2
L0419B4 REP #$20
TXA
PLP
CLC
RTL
L0419BA PLP
SEC
RTL
L0419BD PHB
PHK
PLB
PHP
REP #$30
JSR L040F14
BCC L0419CC
PLP
PLB
SEC
RTL
L0419CC SEP #$20
STZ $30
STZ $31
STZ L041AB4
LDY #$0000
L0419D8 SEP #$20
STY $7C
LDA [$78],Y
BMI L041A49
LDA [$74],Y
BIT #$01
BNE L041A59
L0419E6 LDY $7C
STZ L041AB3
LDA [$3A],Y
CMP #$A2
BNE L041A12
REP #$20
INY
INY
INY
LDA [$3A],Y
CMP #$0022
BNE L041A0F
INY
INY
LDA [$3A],Y
CMP #$E100
BNE L041A0D
SEP #$20
LDY #$0007
BRA L041A44
L041A0D DEY
DEY
L041A0F DEY
DEY
DEY
L041A12 SEP #$20
LDA [$3A],Y
PHA
AND #$DF
CMP #$C2
BNE L041A3E
INY
LDA [$3A],Y
DEY
AND #$30
BEQ L041A3E
ASL
XBA
PLA
CMP #$C2
BEQ L041A32
XBA
TSB L041AB4
BRA L041A36
L041A32 XBA
TRB L041AB4
L041A36 JSR L041A63
LDY #$0002
BRA L041A44
L041A3E PLA
JSL L04037A
INY
L041A44 STY L041AB5
BRA L041A76
L041A49 PEI $42
PHY
LDA #$80
STA L041AB3
JSL L04349E
BCC L041A44
BCS L0419E6
L041A59 AND #$60
STA L041AB4
JSR L041A63
BRA L0419E6
L041A63 LDA L041AB4
ASL
ASL
STZ $30
BCC L041A6E
ROL $30
L041A6E ASL
STZ $31
BCC L041A75
ROL $31
L041A75 RTS
L041A76 LDY $7C
LDA [$74],Y
AND #$1F
ORA #$80
ORA L041AB4
STA [$74],Y
L041A83 INY
BEQ L041AAF
REP #$20
DEC L041AB5
SEP #$20
BEQ L041AA1
LDA [$78],Y
ORA L041AB3
STA [$78],Y
LDA [$74],Y
AND #$1E
ORA L041AB4
STA [$74],Y
BRA L041A83
L041AA1 BIT $5D
BPL L041AA8
BRL L0419D8
L041AA8 CPY $3E
BCS L041AAF
BRL L0419D8
L041AAF PLP
PLB
CLC
RTL
L041AB3 DB $00
L041AB4 DB $00
L041AB5 DB $00
DB $00
L041AB7 DB $00
DB $00
L041AB9 DB $00
DB $00
L041ABB DB $00
L041ABC DB $00
DB $00
L041ABE DB $00
DB $00
L041AC0 DB $00
DB $00
L041AC2 DB $00
DB $00
L041AC4 DB $00
DB $00
L041AC6 DB $00
DB $00
DB $00
DB $00
L041ACA ENT
DB $00
DB $00
L041ACC DB $00
DB $01
L041ACE ENT
DB $00
DB $00
L041AD0 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L041BD0 DW $0002 ; Parms for ExpandPath
L041BD2 ADRL $00000000 ; path name
ADRL L041ACC ; new pathname
L041BDA DW $0004 ; Parms for Create
ADRL L041ACE ; file name
DW $00E3 ; access
DW $005E ; file type
ADRL $00008002 ; aux type
L041BE8 DW $0002 ; Parms for Open
L041BEA DW $0000 ; ref num
ADRL L041ACE ; path name
L041BF0 DW $0004 ; Parms for Write
L041BF2 DW $0000 ; ref num
L041BF4 ADRL $00000000 ; buffer ptr
L041BF8 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L041C00 DW $0004 ; Parms for Write
L041C02 DW $0000 ; ref num
ADRL L041C10 ; buffer ptr
ADRL $00000002 ; request count
ADRL $00000000 ; transfer count
L041C10 DB $00
DB $00
L041C12 DW $0001 ; Parms for Close
L041C14 DW $0000 ; ref num
L041C16 DW $0009 ; Parms for GetFileInfo
ADRL L041ACE ; file name
DW $0000 ; access
L041C1E DW $0000 ; file type
L041C20 ADRL $00000000 ; aux type
DW $0000 ; storage
DS 8 ; creation date
DS 8 ; modification date
ADRL $00000000 ; option list
L041C3A ADRL $00000000 ; end of file
L041C3E DW $0002 ; Parms for GetMark
L041C40 DW $0000 ; ref num
L041C42 ADRL $00000000 ; position
L041C46 DW $0003 ; Parms for SetEOF
L041C48 DW $0000 ; ref num
DW $0000 ; base
L041C4C ADRL $00000000 ; displacement
L041C50 PHP
REP #$30
PHA
PHA
PHY
PHX
PEI $80
PHA
PHA
PHA
JSR L041C73
_NewHandle
JSR L041CC1
PLX
PLY
BCS L041C70
PLP
CLC
RTS
L041C70 PLP
SEC
RTS
L041C73 PHP
REP #$30
LDY #$0004
LDA $8A
BNE L041C81
LDA $8C
BEQ L041C8B
L041C81 LDA [$8A],Y
STA L041D00
ORA #$8000
STA [$8A],Y
L041C8B LDA $9E
BNE L041C93
LDA $A0
BEQ L041C9D
L041C93 LDA [$9E],Y
STA L041D02
ORA #$8000
STA [$8A],Y
L041C9D LDA $B2
BNE L041CA5
LDA $B4
BEQ L041CAF
L041CA5 LDA [$B2],Y
STA L041D04
ORA #$8000
STA [$B2],Y
L041CAF PLP
CLC
RTS
L041CB2 PHP
REP #$30
PEI $80
_HLockAll
PLP
CLC
RTS
L041CC1 PHP
REP #$30
LDY #$0004
LDA $8A
BNE L041CCF
LDA $8C
BEQ L041CD4
L041CCF LDA L041D00
STA [$8A],Y
L041CD4 LDA $9E
BNE L041CDC
LDA $A0
BEQ L041CE1
L041CDC LDA L041D02
STA [$9E],Y
L041CE1 LDA $B2
BNE L041CE9
LDA $B4
BEQ L041CEE
L041CE9 LDA L041D04
STA [$B2],Y
L041CEE PLP
CLC
RTS
L041CF1 PHP
REP #$30
PEI $80
_HUnlockAll
PLP
CLC
RTS
L041D00 DB $00
DB $00
L041D02 DB $00
DB $00
L041D04 DB $00
DB $00
L041D06 PHP
REP #$30
LDA $BA
AND #$00E0
LSR
LSR
LSR
TAX
LDA $8A,X
STA $8A
LDA $8C,X
STA $8C
LDY #$0002
LDA [$8A]
TAX
LDA [$8A],Y
TAY
BNE L041D28
TXA
BEQ L041D3C
L041D28 STX $9A
STY $9C
STY $A4
TXA
CLC
ADC #$0010
STA $A2
BCC L041D39
INC $A4
L041D39 PLP
CLC
RTS
L041D3C PLP
SEC
RTS
L041D3F PHP
REP #$30
LDY #$0008
LDA [$9A],Y
TAX
INY
INY
LDA [$9A],Y
TAY
BNE L041D52
TXA
BEQ L041D71
L041D52 STY $A0
STX $9E
LDY #$0002
LDA [$9E],Y
TAX
LDA [$9E]
STA $9A
STX $9C
STX $A4
CLC
ADC #$0010
STA $A2
BCC L041D6E
INC $A4
L041D6E PLP
CLC
RTS
L041D71 PLP
SEC
RTS
L041D74 ENT
PHB
PHK
PLB
PHP
REP #$30
JSL L041DDC
LDA $FE
AND #$F0FF
ORA #$0200
STA $80
STZ $BA
LDA #$0020
L041D8D STA L041DDA
LDY #$0000
LDX #$0800
LDA #$0008
JSR L041C50
BCS L041DD6
STX $8A
STY $8C
JSR L041D06
LDY #$07FE
LDA #$0000
L041DAB STA [$9A],Y
DEY
DEY
BPL L041DAB
LDA L041DDA
PHA
LSR
LSR
LSR
TAX
LDA $8A
STA $8A,X
LDA $8C
STA $8C,X
TXA
LSR
TAX
STZ $82,X
PLA
CLC
ADC #$0020
CMP #$0080
BCC L041D8D
STZ $82
PLP
PLB
CLC
RTL
L041DD6 PLP
PLB
SEC
RTL
L041DDA DW $0000
L041DDC ENT
PHP
REP #$30
LDA $80
BEQ L041E04
PHA
_DisposeAll
LDA #$0006
L041DEE TAX
STZ $82,X
ASL
TAX
LSR
STZ $8A,X
STZ $8C,X
DEC
DEC
BPL L041DEE
STZ $9E
STZ $A0
STZ $AA
STZ $AC
L041E04 LDA #$0000
STAL L041ACA
PLP
RTL
L041E0D PHP
REP #$30
LDY #$0000
LDX #$0800
LDA #$0008
JSR L041C50
BCS L041E5D
PHY
PHX
JSR L041D06
L041E23 JSR L041D3F
BCC L041E23
PLA
LDY #$0008
STA [$9A],Y
STA $9E
INY
INY
PLA
STA [$9A],Y
STA $A0
LDY #$0002
LDA [$9E],Y
STA $9C
STA $A4
LDA [$9E]
STA $9A
CLC
ADC #$0010
STA $A2
BCC L041E4E
INC $A4
L041E4E LDY #$07FE
LDA #$0000
L041E54 STA [$9A],Y
DEY
DEY
BPL L041E54
PLP
CLC
RTS
L041E5D PLP
SEC
RTS
L041E60 PHP
REP #$30
JSR L041D06
BCS L041E85
L041E68 LDX #$007F
LDY #$0000
L041E6E LDA [$A2],Y
BEQ L041E88
TYA
CLC
ADC #$0010
TAY
DEX
BNE L041E6E
JSR L041D3F
BCC L041E68
JSR L041E0D
BCC L041E68
L041E85 PLP
SEC
RTS
L041E88 TYA
CLC
ADC $A2
STA $A2
LDA #$0000
ADC $A4
STA $A4
LDY #$000E
LDA #$0000
L041E9B STA [$A2],Y
DEY
DEY
BPL L041E9B
PLP
CLC
RTS
L041EA4 PHP
REP #$30
PHY
PHA
LDY #$000C
LDA [$A2],Y
TAX
INY
INY
LDA [$A2],Y
TAY
BNE L041EB9
TXA
BEQ L041ED4
L041EB9 STX $B2
STY $B4
LDY #$0002
LDA [$B2]
TAX
LDA [$B2],Y
TAY
BNE L041ECB
TXA
BEQ L041ED4
L041ECB STX $B6
STY $B8
PLA
PLY
PLP
CLC
RTS
L041ED4 PLA
PLY
PLP
SEC
RTS
L041ED9 REP #$30
CPX #$0000
BEQ L041F15
PLA
STA L041F16
PLA
STA L041AB7
PLA
STA L041AB9
SEP #$20
PLA
STA L041ABB
CPX #$0000
BEQ L041F03
TXY
LDX #$0000
L041EFB PLA
STA L041ABC,X
INX
DEY
BNE L041EFB
L041F03 LDA L041ABB
PHA
REP #$20
LDA L041AB9
PHA
LDA L041AB7
PHA
LDA L041F16
PHA
L041F15 RTS
L041F16 DW $0000
L041F18 PHP
REP #$30
LDA $05,S
STA L041F30+1
LDA $06,S
STA L041F30+2
LDA $03,S
STA $07,S
LDA $01,S
STA $05,S
PLA
PLA
PLP
L041F30 JMPL $000000
L041F34 PHP
REP #$20
STA L041F54
SEP #$20
PLA
AND #$CF
STA L041F53
LDA $01,S
AND #$30
ORA L041F53
STA $01,S
REP #$20
LDA L041F54
PLP
PLB
RTL
L041F53 DB $00
L041F54 DB $00
DB $00
L041F56 PHP
REP #$30
LDA L041BEA
STA L041BF2
STA L041C02
STA L041C40
STA L041C48
STA L041C14
PLP
RTS
L041F6D PHP
REP #$30
JSL GSOS
DW $2006 ; GetFileInfo
ADRL L041C16
BCS L041F92
LDA L041C1E
CMP #$005E
BNE L041F8F
LDA L041C20
CMP #$8002
BNE L041F8F
PLP
CLC
RTS
L041F8F LDA #$0000
L041F92 PLP
SEC
RTS
L041F95 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA L041BD2
LDA L041ABE
STA L041BD2+2
ORA L041ABC
BEQ L041FC1
JSL GSOS
DW $200E ; ExpandPath
ADRL L041BD0
BCC L041FC1
BRL L042125
L041FC1 JSL L041D74
BCC L041FCA
BRL L04211C
L041FCA JSR L041F6D
BCC L041FD2
BRL L042125
L041FD2 JSL GSOS
DW $2010 ; Open
ADRL L041BE8
BCC L041FE1
BRL L042125
L041FE1 JSR L041F56
LDY L041C3A+2
LDX L041C3A
TXA
ORA L041C3A+2
BNE L041FF3
BRL L042121
L041FF3 STY L041BF8+2
STX L041BF8
LDA #$0008
JSR L041C50
BCC L042004
BRL L04211C
L042004 STY L04215A
STX L042158
PHB
PHY
PLB
LDA |$0000,X
STA $00
STAL L041BF4
LDA |$0002,X
STA $02
STAL L041BF4+2
PLB
PLB
JSL GSOS
DW $2012 ; Read
ADRL L041BF0
BCC L042030
BRL L04211F
L042030 LDA #$0020
STA $BA
LDA [$00]
STA $82
BNE L04203E
BRL L042121
L04203E LDY #$0002
L042041 PHY
JSR L041D06
PLY
LDA $BA
LSR
LSR
LSR
LSR
TAX
LDA L04215E,X
INC
INC
STA L04215C
LDA [$00],Y
PHP
INY
INY
PLP
STA $82,X
STA L041C10
L042060 BNE L042065
BRL L042104
L042065 CMP #$007F
BCC L04206D
LDA #$007F
L04206D STA L042154
L042070 LDA #$FFFF
STA [$A2]
CLC
TYA
ADC $00
STA $00
BCC L04207F
INC $02
L04207F LDY #$0000
LDX #$0002
L042085 LDA [$00],Y
INY
INY
PHY
TXY
STA [$A2],Y
PLY
INX
INX
CPX L04215C
BCC L042085
PHY
LDY #$0003
LDA [$A2],Y
PLY
AND #$00FF
BEQ L0420E0
INC
STA L042156
PHY
LDY #$0000
TAX
LDA #$0008
JSR L041C50
PHB
PHY
PLB
LDA |$0000,X
STA $B6
LDA |$0002,X
STA $B8
PLB
PLB
TYA
LDY #$000E
STA [$A2],Y
DEY
DEY
TXA
STA [$A2],Y
PLY
SEP #$20
LDX #$0000
L0420D0 LDA [$00],Y
INY
PHY
TXY
STA [$B6],Y
PLY
INX
DEC L042156
BNE L0420D0
REP #$20
L0420E0 LDA $A2
CLC
ADC #$0010
STA $A2
BCC L0420EC
INC $A4
L0420EC DEC L041C10
BEQ L042104
DEC L042154
BEQ L0420F9
BRL L042070
L0420F9 PHY
JSR L041E0D
PLY
LDA L041C10
BRL L042060
L042104 LDA $BA
CLC
ADC #$0020
STA $BA
CMP #$0080
BCS L042114
BRL L042041
L042114 LDA #$FFFF
STA L041ACA
BRA L042121
L04211C LDA #$0000
L04211F SEC
HEX 90
L042121 CLC
JSR L042128
L042125 JMP L041F34
L042128 PHP
PHA
JSL GSOS
DW $2014 ; Close
ADRL L041C12
LDA L04215A
ORA L042158
L04213A BEQ L042151
LDA L04215A
PHA
LDA L042158
PHA
_DisposeHandle
STZ L04215A
STZ L042158
L042151 PLA
PLP
RTS
L042154 DB $00
DB $00
L042156 DB $00
DB $00
L042158 DB $00
DB $00
L04215A DB $00
DB $00
L04215C DB $00
DB $00
L04215E DB $00
DB $00
DB $08
DB $00
DB $08
DB $00
DB $0E
DB $00
L042166 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA L041BD2
STA $00
LDA L041ABE
STA L041BD2+2
STA $02
ORA $00
BEQ L0421B8
JSL GSOS
DW $200E ; ExpandPath
ADRL L041BD0
BCC L042195
BRL L0422FF
L042195 LDA [$00]
TAY
INY
LDX L041ACE
INX
SEP #$20
L04219F LDA [$00],Y
AND #$7F
JSR L04231D
CMP L041ACE,X
BNE L0421B6
LDA [$00],Y
AND #$7F
STA L041ACE,X
DEX
DEY
BNE L04219F
L0421B6 REP #$20
L0421B8 JSL GSOS
DW $2001 ; Create
ADRL L041BDA
BCC L0421D4
CMP #$0047
BEQ L0421CC
BRL L0422FF
L0421CC JSR L041F6D
BCC L0421D4
BRL L0422FC
L0421D4 JSL GSOS
DW $2010 ; Open
ADRL L041BE8
BCC L0421E3
BRL L0422FF
L0421E3 JSR L041F56
JSR L041CB2
LDA $82
STA L041C10
JSL GSOS
DW $2013 ; Write
ADRL L041C00
BCC L0421FD
BRL L042305
L0421FD LDA #$0020
STA $BA
L042202 JSR L041D06
LDA $BA
LSR
LSR
LSR
LSR
TAX
LDA $82,X
STA L041C10
JSL GSOS
DW $2013 ; Write
ADRL L041C00
BCC L042220
BRL L042305
L042220 LDA L041C10
BNE L042228
BRL L0422AF
L042228 LDA #$007F
STA L04231B
L04222E LDA [$A2]
BEQ L04228E
DEC L041C10
BMI L0422AF
LDA $A2
CLC
ADC #$0002
STA L041BF4
LDA $A4
ADC #$0000
STA L041BF4+2
LDA $BA
LSR
LSR
LSR
LSR
TAX
STZ L041BF8+2
LDA L042313,X
STA L041BF8
JSL GSOS
DW $2013 ; Write
ADRL L041BF0
BCC L042267
BRL L042305
L042267 LDY #$0003
LDA [$A2],Y
AND #$00FF
BEQ L04228E
INC
STA L041BF8
JSR L041EA4
LDA $B6
STA L041BF4
LDA $B8
STA L041BF4+2
JSL GSOS
DW $2013 ; Write
ADRL L041BF0
BCS L042305
L04228E CLC
LDA L041C10
BEQ L0422AF
LDA $A2
ADC #$0010
STA $A2
LDA #$0000
ADC $A4
STA $A4
DEC L04231B
BNE L04222E
JSR L041D3F
BCS L042302
BRL L042228
L0422AF LDA $BA
CLC
ADC #$0020
STA $BA
CMP #$0080
BCS L0422BF
BRL L042202
L0422BF JSL GSOS
DW $2017 ; GetMark
ADRL L041C3E
LDA L041C42
STA L041C4C
LDA L041C42+2
STA L041C4C+2
JSL GSOS
DW $2018 ; SetEOF
ADRL L041C46
BCS L042305
JSL GSOS
DW $2014 ; Close
ADRL L041C12
LDA #$FFFF
STA L041ACA
CLC
L0422F2 PHP
PHA
JSR L041CF1
PLA
PLP
JMP L041F34
L0422FC LDA #$0000
L0422FF SEC
BRA L0422F2
L042302 LDA #$0000
L042305 PHA
JSL GSOS
DW $2014 ; Close
ADRL L041C12
PLA
BRA L0422FF
L042313 DB $00
DB $00
DB $08
DB $00
DB $08
DB $00
DB $0E
DB $00
L04231B DB $00
DB $00
MX %11
L04231D CMP #$61
BCC L042327
CMP #$7B
BCS L042327
AND #$5F
L042327 RTS
MX %00
L042328 ENT
PHB
PHK
PLB
PHP
REP #$30
PEA $0000
PEI $3E
PEA $FFFF
JSL L041015
JSL L041799
LDA #$E020
L042341 STA $BA
JSR L041D06
LDA $9A
STA $A2
LDA $9C
STA $A4
L04234E JSR L0424F2
BCC L042369
LDA $BA
CLC
ADC #$0020
CMP #$E080
BCC L042341
JSL L0419BD
JSL L0424A8
PLP
PLB
RTL
L042369 LDY #$0004
LDA [$A2],Y
STA $BC
INY
INY
LDA [$A2],Y
STA $BE
EOR $42
BNE L04234E
INY
INY
LDA [$A2],Y
STA $C2
PEI $9C
PEI $9A
PEI $A4
PEI $A2
PEI $BA
LDY #$0002
LDA [$A2],Y
PHA
AND #$00E0
SEC
SBC #$0020
LSR
LSR
LSR
LSR
TAX
LDA L0423C4,X
TAX
PLA
AND #$001F
ASL
PHX
ADC $01,S
PLX
TAX
LDA |$0000,X
DEC
PER L0423B3-1
PHA
RTS
L0423B3 PLA
STA $BA
PLA
STA $A2
PLA
STA $A4
PLA
STA $9A
PLA
STA $9C
BRA L04234E
L0423C4 DA L0423CA
DA L0423EC
DA L0423F8
L0423CA DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
DA L042427
L0423EC DA L042407
DA L042417
DA L042406
DA L042406
DA L042406
DA L042406
L0423F8 DA L042433
DA L042450
DA L042467
DA L042467
DA L042473
DA L04245D
DA L04249B
L042406 RTS
L042407 PEI $BC
LDA $C2
BNE L04240E
INC
L04240E PHA
PEA $4000
JSL L041058
RTS
L042417 PEI $BC
LDA $C2
BNE L04241E
INC
L04241E PHA
PEA $6000
JSL L041058
RTS
L042427 PEI $BC
PEI $C2
PEA $8000
JSL L041058
RTS
L042433 PEI $BC
PEA $0001
PEA $0010
JSL L041058
LDA $BC
CLC
ADC $C2
PHA
PEA $0001
PEA $0008
JSL L041058
RTS
L042450 LDY #$000C
LDA [$A2],Y
PEI $BC
PHA
JSL L04126C
RTS
L04245D PEI $BC
LDA $C2
BNE L042464
INC
L042464 PHA
BRA L04246B
L042467 PEI $BC
PEI $C2
L04246B PEA $1000
JSL L041058
RTS
L042473 PEI $BC
PEA $0001
PEA $0004
JSL L041058
LDA $BC
CLC
ADC $C2
PHA
PEA $0001
PEA $0004
JSL L041058
PEI $BC
PEI $C2
PEA $0002
JSL L041058
RTS
L04249B PEI $BC
PEA $0001
PEA $0400
JSL L041058
RTS
L0424A8 ENT
JSR L044DE1
JSR L045685
RTL
L0424AF PHP
REP #$30
JSR L041D06
L0424B5 LDX #$0080
LDY #$0000
L0424BB TYA
CLC
ADC #$0010
TAY
DEX
BNE L0424CC
JSR L041D3F
BCC L0424B5
PLP
SEC
RTS
L0424CC LDA [$9A],Y
BPL L0424BB
INY
INY
SEP #$20
LDA [$9A],Y
AND $BB
CMP $BA
REP #$20
PHP
DEY
DEY
PLP
BNE L0424BB
TYA
CLC
ADC $9A
STA $A2
LDA #$0000
ADC $9C
STA $A4
PLP
CLC
RTS
L0424F2 PHP
REP #$30
SEC
LDA $A4
SBC $9C
LDA $A2
SBC $9A
TAY
LSR
LSR
LSR
LSR
SEC
SBC #$0080
EOR #$FFFF
INC
TAX
BRA L0424BB
L04250E PHP
REP #$30
JSR L041D06
L042514 LDX #$0080
LDY #$0000
L04251A TYA
CLC
ADC #$0010
TAY
DEX
BNE L042533
JSR L041D3F
BCC L042514
LDA #$0000
PLP
SEP #$40
SEC
RTS
L042530 PLY
BRA L04251A
L042533 CLC
ADC $9A
STA $A2
LDA #$0000
ADC $9C
STA $A4
PHY
LDY #$0000
LDA [$A2],Y
BPL L042530
INY
INY
SEP #$20
LDA [$A2],Y
AND $BB
CMP $BA
REP #$20
BNE L042530
LDY #$0006
LDA [$A2],Y
CMP $BE
BNE L042530
DEY
DEY
LDA [$A2],Y
CMP $BC
CLV
BEQ L04257B
BCS L042530
LDY #$0008
CLC
ADC [$A2],Y
BCS L042579
BEQ L042579
CMP $BC
BEQ L042530
BCC L042530
L042579 SEP #$40
L04257B LDY #$0002
LDA [$A2],Y
AND #$001F
TAX
INY
INY
LDA [$A2],Y
PLY
BVS L04258F
PLP
CLV
CLC
RTS
L04258F PLP
SEP #$40
CLC
RTS
L042594 PHP
REP #$30
JSR L041D06
BCC L04259F
PLP
SEC
RTS
L04259F CLC
LDA $BC
ADC $C2
DEC
STA $C0
L0425A7 LDX #$0080
LDA $9A
STA $A2
LDA $9C
STA $A4
L0425B2 LDA $A2
CLC
ADC #$0010
STA $A2
BCC L0425BE
INC $A4
L0425BE DEX
BNE L0425C9
JSR L041D3F
BCC L0425A7
PLP
SEC
RTS
L0425C9 LDA [$A2]
BEQ L0425B2
LDY #$0002
SEP #$20
LDA [$A2],Y
AND $BB
CMP $BA
REP #$20
BNE L0425B2
LDY #$0006
LDA [$A2],Y
CMP $BE
BNE L0425B2
DEY
DEY
LDA [$A2],Y
STA L04264F
LDY #$0008
CLC
ADC [$A2],Y
DEC
STA L042651
CMP $BC
BCC L0425B2
CMP $C0
BCC L042619
LDA L04264F
CMP $BC
BEQ L04260D
BCC L042628
CMP $C0
BEQ L04260D
BCS L0425B2
L04260D LDA L042651
SEC
SBC $C0
TAY
LDX #$0000
BRA L042642
L042619 LDA L04264F
CMP $BC
BCC L042638
LDX #$0000
LDY #$0000
BRA L042642
L042628 LDA $BC
SEC
SBC L04264F
TAX
LDA L042651
SEC
SBC $C0
TAY
BRA L042642
L042638 LDY #$0000
LDA $BC
SEC
SBC L04264F
TAX
L042642 PHY
LDY #$0002
LDA [$A2],Y
AND #$001F
PLY
PLP
CLC
RTS
L04264F BRK $00
L042651 BRK $00
L042653 PHP
REP #$30
SEC
LDA $A4
SBC $9C
LDA $A2
SBC $9A
LSR
LSR
LSR
LSR
SEC
SBC #$0080
EOR #$FFFF
INC
TAX
BRL L0425B2
L04266F PHP
REP #$30
LDA $82
INC
BEQ L042688
STA $82
LDA $BA
AND #$00E0
LSR
LSR
LSR
LSR
TAX
INC $82,X
PLP
CLC
RTS
L042688 PLP
SEC
RTS
L04268B PHP
REP #$30
LDA $82
BEQ L0426A4
DEC
STA $82
LDA $BA
AND #$00E0
LSR
LSR
LSR
LSR
TAX
DEC $82,X
PLP
CLC
RTS
L0426A4 PLP
SEC
RTS
L0426A7 PHP
REP #$30
LDY #$0000
LDA #$FFFF
STA [$A2],Y
LDY #$0004
LDA $BC
STA [$A2],Y
INY
INY
LDA $BE
STA [$A2],Y
INY
INY
LDA $C2
STA [$A2],Y
PLP
RTS
L0426C7 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $A6
LDA L041ABE
STA $A8
LDA #$E040
STA $BA
JSR L041D06
LDA $9A
STA $A2
LDA $9C
STA $A4
L0426ED REP #$20
JSR L0424F2
BCS L042740
LDY #$000C
LDA [$A2],Y
STA $B2
INY
INY
LDA [$A2],Y
STA $B4
LDY #$0002
LDA [$B2]
STA $B6
LDA [$B2],Y
STA $B8
LDA #$0000
TAY
LDA [$A6]
AND #$00FF
INC
TAX
SEP #$20
L042719 LDA [$A6],Y
CMP [$B6],Y
BNE L0426ED
INY
DEX
BNE L042719
LDY #$0002
LDA [$A2],Y
AND #$1F
TAX
REP #$20
INY
INY
LDA [$A2],Y
PHA
INY
INY
LDA [$A2],Y
TAY
PLA
CLC
L042739 STZ $B2
STZ $B4
JMP L041F34
L042740 LDA #$0000
TAX
TAY
SEC
BRA L042739
L042748 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$000C
JSR L041ED9
LDA L041AC0
CMP #$0004
BEQ L0427AF
LDA L041AC6
STA $BE
EOR $42
BNE L0427AF
LDA L041AC4
STA $BC
JSL L0410BB
BIT #$6000
BEQ L042776
BRL L04286C
L042776 LDX L041AC0
CPX #$0004
BCS L0427AF
LDX L041AC2
BNE L0427AF
BIT #$8000
BNE L042797
LDY L041AC4
LDA [$3A],Y
JSL L04037A
INY
STY L041AC2
BRA L0427AF
L042797 LDA #$E020
STA $BA
JSR L04250E
LDA $BC
JSR L042FF8
SEC
SBC $BC
PHY
CLC
ADC $01,S
STA L041AC2
PLA
L0427AF LDA L041ABC
STA $A6
LDA L041ABE
STA $A8
LDA [$A6]
AND #$00FF
BNE L0427C3
BRL L04286C
L0427C3 PHA
INC
TAX
LDY #$0000
LDA #$0008
JSR L041C50
BCC L0427D4
BRL L042870
L0427D4 STX $B2
STY $B4
LDY #$0002
LDA [$B2]
STA $B6
LDA [$B2],Y
STA $B8
PLY
PHY
SEP #$20
L0427E7 LDA [$A6],Y
ORA #$80
STA [$B6],Y
DEY
BNE L0427E7
LDA [$A6]
STA [$B6]
REP #$20
LDA #$0040
STA $BA
JSR L041E60
PLA
BCS L042873
XBA
ORA L041AC0
ORA #$0040
LDY #$0002
STA [$A2],Y
DEY
DEY
JSR L04266F
BCS L042873
LDA #$FFFF
STA [$A2],Y
LDY #$0004
LDA L041AC4
STA [$A2],Y
INY
INY
LDA L041AC6
STA [$A2],Y
INY
INY
LDA L041AC2
BNE L042830
INC
L042830 STA [$A2],Y
LDY #$000C
LDA $B2
STA [$A2],Y
INY
INY
LDA $B4
STA [$A2],Y
LDA L041AC0
CMP #$0004
BEQ L04286C
LDA L041AC6
EOR $42
BNE L04286C
LDA L041AC4
PHA
LDA L041AC2
BNE L042858
INC
L042858 PHA
LDX #$4000
LDA L041AC0
CMP #$0001
BNE L042867
LDX #$6000
L042867 PHX
JSL L041058
L04286C CLC
L04286D JMP L041F34
L042870 PLA
BRA L04286D
L042873 PEI $B4
PEI $B2
_DisposeHandle
STZ $B2
STZ $B4
SEC
BRA L042870
L042885 PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA #$FF44
STA $BA
LDA L041AC2
STA $BE
LDA L041AC0
STA $BC
LDA L041ABE
STA $A8
LDA L041ABC
STA $A6
JSR L044D31
LDA $BE
BCS L0428DE
JMP L041F34
L0428B4 ENT
BRL L0428C3
DW $7771
STR 'TGetLabel'
L0428C3 PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA #$FC40
STA $BA
LDA L041AC0
STA $BC
LDA L041AC2
STA $BE
L0428DE EOR $42
BNE L0428F7
LDA $BA
AND #$001F
CMP #$0004
BEQ L0428F7
LDA $BC
JSL L0410BB
BIT #$4000
BEQ L04294E
L0428F7 JSR L04250E
BCS L04294E
PHX
PHA
JSR L041EA4
BCS L04294C
LDY #$000E
LDA [$A2],Y
ORA #$8000
STA [$A2],Y
PEI $B8
PEI $B6
LDA L041ABE
STA $A8
PHA
LDA L041ABC
STA $A6
PHA
JSL L0307DD
PLA
PHA
SEC
SBC $BC
BEQ L04293F
EOR #$FFFF
INC
PHA
SEP #$30
LDA [$A6]
INC
STA [$A6]
TAY
LDA #$AB
STA [$A6],Y
REP #$30
PLA
JSR L042953
L04293F PLA
CLV
CMP $BC
BEQ L042947
SEP #$40
L042947 PLX
CLC
L042949 JMP L041F34
L04294C PLA
PLX
L04294E SEC
SEP #$40
BRA L042949
L042953 PHP
REP #$30
PHA
LSR L0429B4
LDA [$A6]
AND #$00FF
TAY
SEP #$20
LDA $01,S
ORA $02,S
CMP #$0A
BCC L04296F
INY
LDA #$A4
STA [$A6],Y
L04296F INY
REP #$20
PLA
PHA
JSR L04298D
PLA
PHA
JSR L042991
PLA
PHA
JSR L042995
PLA
JSR L042999
SEP #$20
DEY
TYA
STA [$A6]
PLP
RTS
MX %00
L04298D LSR
LSR
LSR
LSR
L042991 LSR
LSR
LSR
LSR
L042995 LSR
LSR
LSR
LSR
L042999 PHY
JSL L030823
PLY
BIT L0429B4
BMI L0429AC
CMP #$00B0
BEQ L0429B3
ROR L0429B4
L0429AC SEP #$20
STA [$A6],Y
REP #$20
INY
L0429B3 RTS
L0429B4 DB $00
DB $00
L0429B6 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA #$FF44
STA $BA
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
BRA L0429EE
L0429D3 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA #$FC40
STA $BA
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
L0429EE JSR L04250E
BCS L042A23
BVS L042A26
LDA $BA
AND #$001F
CMP #$0004
BEQ L042A1B
LDA $BE
EOR $42
BNE L042A1B
LDY #$0004
LDA [$A2],Y
PHA
LDY #$0008
LDA [$A2],Y
BNE L042A13
INC
L042A13 PHA
PEA $6000
JSL L041015
L042A1B LDA #$0000
STA [$A2]
JSR L04268B
L042A23 JMP L041F34
L042A26 SEC
LDY #$0004
LDA $BC
SBC [$A2],Y
PHA
LDY #$0008
LDA [$A2],Y
TAX
LDA $01,S
STA [$A2],Y
TXA
SEC
SBC $01,S
TAX
PLA
LDA $BA
AND #$001F
CMP #$0004
BEQ L042A59
LDA $BE
EOR $42
BNE L042A59
PEI $BC
PHX
PEA $6000
JSL L041015
L042A59 CLC
BRA L042A23
L042A5C ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
BIT $F6
BMI L042A9C
LDA #$FF60
STA $BA
JSR L04250E
BCS L042AA5
LDY #$0004
LDA $BC
SEC
SBC [$A2],Y
LDY #$000C
CLC
ADC [$A2],Y
PHA
INY
INY
LDA #$0000
ADC [$A2],Y
TAY
PLA
L042A98 CLC
JMP L041F34
L042A9C CLC
ADC #$00FD
TAY
LDA $BC
BRA L042A98
L042AA5 LDA $BC
LDY $BE
BNE L042A98
CLC
ADC $32
PHA
TYA
CLC
SEP #$20
ADC $34
REP #$20
TAY
PLA
BRA L042A98
L042ABB ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
BIT $F6
BPL L042ACE
BRL L042B48
L042ACE LDA #$FF60
STA $BA
JSR L0424AF
BRA L042ADB
L042AD8 JSR L0424F2
L042ADB BCC L042AE0
BRL L042B69
L042AE0 LDY #$000E
LDA [$A2],Y
CMP L041ABE
BEQ L042AEC
BCS L042AD8
L042AEC DEY
DEY
LDA [$A2],Y
BCC L042AF9
CMP L041ABC
BEQ L042AF9
BCS L042AD8
L042AF9 LDY #$0008
CLC
ADC [$A2],Y
PHA
LDY #$000E
LDA #$0000
ADC [$A2],Y
TAX
PLA
SEC
SBC #$0001
BCS L042B11
DEX
L042B11 CPX L041ABE
BEQ L042B18
BCS L042B1F
L042B18 BCC L042AD8
CMP L041ABC
BCC L042AD8
L042B1F DEY
DEY
LDA L041ABC
SEC
SBC [$A2],Y
TAX
INY
INY
LDA L041ABE
SBC [$A2],Y
BNE L042AD8
PHX
TAX
PLA
LDY #$0004
CLC
ADC [$A2],Y
BCS L042B97
PHA
TXA
INY
INY
ADC [$A2],Y
TAY
PLA
L042B44 CLC
L042B45 JMP L041F34
L042B48 LDA L041ABE
BNE L042B5A
LDY #$0002
LDA L041ABC
CMP #$C100
BCC L042B97
BRA L042B44
L042B5A CMP #$00FE
BCC L042B97
AND #$0001
INC
TAY
LDA L041ABC
BRA L042B44
L042B69 LDA $42
BNE L042BA0
SEC
LDA L041ABC
SBC $32
PHA
LDA L041ABE
SEP #$20
SBC $34
REP #$20
TAY
PLA
TYX
BNE L042B97
BIT $5C
BMI L042B8A
CMP $3E
BCS L042B97
L042B8A STY $BE
STA $BC
JSR L04250E
LDY $BE
LDA $BC
BCS L042B44
L042B97 LDA L041ABC
LDY L041ABE
SEC
BRA L042B45
L042BA0 LDY L041ABE
BEQ L042BAD
CPY $40
BEQ L042BAF
BCC L042BAF
BRA L042B97
L042BAD LDY $42
L042BAF LDA L041ABC
CPY $42
BNE L042B44
BIT $5C
BMI L042B44
CMP $3E
BCS L042B97
BRA L042B44
L042BC0 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$000A
JSR L041ED9
LDA L041AC4
STA $BE
LDA L041AC2
STA $BC
LDA L041AC0
STA $C2
BNE L042BE4
LDA $3E
SEC
SBC $BC
STA $C2
L042BE4 LDA #$FF60
STA $BA
JSR L041D06
LDA $9A
STA $A2
LDA $9C
STA $A4
L042BF4 JSR L0424F2
BCS L042C53
LDY #$0004
LDA [$A2],Y
SEC
SBC $BC
BEQ L042C40
BPL L042C3C
EOR #$FFFF
INC
LDY #$0008
CMP [$A2],Y
BCS L042BF4
PHA
LDA [$A2],Y
CLC
LDY #$0004
ADC [$A2],Y
PHA
PEA $0001
PEA $0008
JSL L041015
PLA
PHA
CLC
LDY #$0004
ADC [$A2],Y
PHA
PEA $0001
PEA $0008
JSL L041058
PLA
STA [$A2],Y
BRA L042BF4
L042C3C STA $C2
BRA L042BF4
L042C40 LDY #$000C
LDA L041ABC
STA [$A2],Y
INY
INY
LDA L041ABE
STA [$A2],Y
CLC
L042C50 JMP L041F34
L042C53 JSR L041E60
BCS L042C50
JSR L04266F
BCS L042C50
JSR L0426A7
LDY #$0002
LDA #$0060
STA [$A2],Y
PEI $BC
PEA $0001
PEA $0010
JSL L041058
LDA $BC
ADC $C2
PHA
PEA $0001
PEA $0008
JSL L041058
BRA L042C40
L042C85 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
LDA #$FF60
STA $BA
JSR L04250E
BCS L042CDB
BVS L042CDE
LDA #$0000
STA [$A2]
JSR L04268B
BCS L042CDB
LDA $42
CMP $BE
BNE L042CDA
PEI $BC
PEA $0001
PEA $0010
JSL L041015
LDY #$0008
LDA [$A2],Y
CLC
ADC $BC
CMP $3E
BEQ L042CDA
PHA
PEA $0001
PEA $0008
JSL L041015
L042CDA CLC
L042CDB JMP L041F34
L042CDE LDY #$0008
LDA [$A2],Y
CLC
ADC $BC
CMP $3E
BEQ L042CF5
PHA
PEA $0001
PEA $0008
JSL L041015
L042CF5 LDY #$0004
LDA $BC
SEC
SBC [$A2],Y
LDY #$0008
STA [$A2],Y
CLC
ADC $BC
PHA
PEA $0001
PEA $0008
JSL L041058
BRA L042CDA
L042D12 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
LDA #$FF60
STA $BA
JSR L04250E
BCS L042D40
TAX
LDY #$000C
LDA [$A2],Y
PHA
INY
INY
LDA [$A2],Y
TAY
PLA
CLC
L042D40 JMP L041F34
L042D43 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0006
JSR L041ED9
LDA L041ABE
STA $BC
LDA L041AC0
STA $BE
LDA #$FF61
STA $BA
JSR L04250E
BVS L042D8A
L042D63 LDY #$000C
LDA L041ABC
STA [$A2],Y
LDY #$0002
LDA #$0061
STA [$A2],Y
PEI $BC
LDA L041ABC
PHA
PEA ^L04121A
PEA L04121A
LDX #$0004
JSL L041F18
CLC
L042D87 JMP L041F34
L042D8A JSR L041E60
BCS L042D87
JSR L04266F
BCS L042D87
LDA #$0001
STA $C2
JSR L0426A7
BRA L042D63
L042D9E ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
LDA #$FF61
STA $BA
JSR L04250E
BCS L042DD5
LDA #$0000
STA [$A2]
JSR L04268B
PEI $BC
PEA ^L0411D0
PEA L0411D0
LDX #$0002
JSL L041F18
L042DD5 CLC
JMP L041F34
L042DD9 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
LDA #$FF61
STA $BA
JSR L04250E
BCS L042DFE
LDY #$000C
LDA [$A2],Y
L042DFE JMP L041F34
L042E01 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0006
JSR L041ED9
LDA #$FF64
STA $BA
JSR L041D06
BCS L042E89
LDA L041ABE
STA $BC
LDA L041AC0
STA $BE
LDA $3E
SEC
SBC $BC
STA $C2
JSR L0424AF
BRA L042E30
L042E2D JSR L0424F2
L042E30 BCS L042E8C
LDY #$0006
LDA [$A2],Y
EOR $BE
BNE L042E2D
DEY
DEY
LDA [$A2],Y
CMP $BC
BEQ L042E80
BCS L042E75
LDY #$0008
CLC
ADC [$A2],Y
BEQ L042E55
BCS L042E55
CMP $BC
BEQ L042E2D
BCC L042E2D
L042E55 TAX
LDY #$0004
LDA $BC
SBC [$A2],Y
LDY #$0008
STA [$A2],Y
LDA $BE
EOR $42
BNE L042E2D
PHX
PEA $0001
PEA $0004
JSL L041015
BRA L042E2D
L042E75 SEC
SBC $BC
CMP $C2
BCS L042E2D
STA $C2
BRA L042E2D
L042E80 LDA L041ABC
LDY #$000A
STA [$A2],Y
CLC
L042E89 JMP L041F34
L042E8C JSR L041E60
BCS L042E89
JSR L04266F
BCS L042E89
LDA $BE
EOR $42
BNE L042EC7
PEI $BC
PEA $0001
PEA $0004
JSL L041058
LDA $BC
CLC
ADC $C2
BEQ L042EBC
BCS L042EBC
PHA
PEA $0001
PEA $0004
JSL L041058
L042EBC PEI $BC
PEI $C2
PEA $0002
JSL L041058
L042EC7 JSR L0426A7
LDA #$0064
LDY #$0002
STA [$A2],Y
BRA L042E80
L042ED4 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA #$FF64
STA $BA
JSR L041D06
BCS L042F33
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
JSR L04250E
BCS L042F32
BVC L042F36
LDA $BE
EOR $42
BNE L042F25
LDY #$0004
LDA [$A2],Y
CLC
LDY #$0008
ADC [$A2],Y
SEC
SBC $BC
PEI $BC
PHA
PEA $0006
JSL L041015
PEI $BC
PEA $0001
PEA $0004
JSL L041058
L042F25 SEC
LDY #$0004
LDA $BC
SBC [$A2],Y
LDY #$0008
STA [$A2],Y
L042F32 CLC
L042F33 JMP L041F34
L042F36 LDA #$0000
STA [$A2]
JSR L04268B
BCS L042F33
LDA $BE
EOR $42
BNE L042F32
LDY #$0004
LDA [$A2],Y
PHA
LDY #$0008
LDA [$A2],Y
PHA
PEA $0006
JSL L041015
BRA L042F33
L042F5B PHB
PHK
PLB
PHP
REP #$30
LDA $06,S
STA $BC
LDA $08,S
STA $BE
TAX
LDA $04,S
STA $08,S
LDA $02,S
STA $06,S
LDA $01,S
STA $05,S
TSC
CLC
ADC #$0004
TCS
CPX $42
BNE L042F8B
LDA $BC
JSL L0410BB
BIT #$0002
BEQ L042FB7
L042F8B LDA #$FF64
STA $BA
JSR L04250E
BCS L042FB7
LDY #$000A
LDA [$A2],Y
L042F9A PHP
AND #$00FF
SEP #$20
PHA
LDA $02,S
AND #$CF
STA L042FB6
LDA $03,S
AND #$30
ORA L042FB6
STA $03,S
PLA
PLP
PLP
PLB
RTL
L042FB6 DB $00
L042FB7 PEI $BE
PEI $BC
JSL L042A5C
TYA
SEP #$40
BRA L042F9A
MX %00
L042FC4 STA L042FF4
STZ L042FF6
LDX #$0008
L042FCD LDA #$0000
ASL L042FF4
ROL
ASL L042FF4
ROL
ADC L042FF6
STA L042FF6
DEX
BNE L042FCD
LDA L042FF6
BEQ L042FEF
CMP #$0003
BEQ L042FEF
BCS L042FC4
SEC
RTS
L042FEF LDA #$0000
CLC
RTS
L042FF4 DB $00
DB $00
L042FF6 DB $00
DB $00
L042FF8 STA L043063
SEC
LDY #$0004
SBC [$A2],Y
STA L043065
LDY #$0008
LDA [$A2],Y
STA L043067
CPX #$0006
BCS L043023
LDA L04305D,X
AND #$00FF
STA L043067
TXA
ASL
TAX
LDA L043065
JMP (L043037,X)
L043023 LDY #$0004
LDA [$A2],Y
LDY L043067
CLC
RTS
L04302D CLC
LDY #$0004
ADC [$A2],Y
LDY L043067
RTS
L043037 DA L04302D
DA L043043
DA L043043
DA L043043
DA L04304B
DA L043053
L043043 BIT #$0001
BEQ L04302D
DEC
BRA L04302D
L04304B BIT #$0003
BEQ L04302D
DEC
BRA L04304B
L043053 PHA
JSR L042FC4
PLA
BCC L04302D
DEC
BRA L043053
L04305D DB $01
DB $02
DB $02
DB $02
DB $04
DB $03
L043063 DB $00
DB $00
L043065 DB $00
DB $00
L043067 DB $00
DB $00
L043069 ENT
BRL L043078
DW $7771
STR 'TSetConst'
L043078 PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA L041ABE
BNE L04308A
INC
L04308A STA $C2
STA L0433DB
LDA L041AC0
STA $BC
STA L0433D9
STA L0433D7
CLC
ADC $C2
DEC
STA $C0
LDA L041AC2
STA $BE
LDX #$E020
STX $BA
EOR $42
BNE L0430C3
LDA $BC
L0430B0 PHA
JSL L0410BB
BIT #$8000
BNE L0430C2
PLA
INC
CMP $C0
BCC L0430B0
BRA L0430DC
L0430C2 PLA
L0430C3 JSR L042594
BRA L0430CB
L0430C8 JSR L042653
L0430CB BCS L0430DC
PEI $A4
PEI $A2
JSR L043147
PLA
STA $A2
PLA
STA $A4
BRA L0430C8
L0430DC JSR L041E60
BCS L043144
JSR L0426A7
LDY #$0002
LDA L041ABC
AND #$001F
ORA #$0020
STA [$A2],Y
JSR L04266F
BCS L043144
LDA $BE
EOR $42
BNE L04312C
PEI $BC
PEI $C2
PEA $8000
JSL L041058
PEI $BC
PEI $C2
PEA $0080
JSL L041015
BCS L043144
LDA L0433D7
JSL L0416F3
PHA
PEA ^L0412B9
PEA L0412B9
LDX #$0002
JSL L041F18
BCS L043144
L04312C LDA L0433D9
STA $BC
LDA #$FC40
STA $BA
JSR L04250E
BVS L043143
LDY #$0008
LDA L0433DB
STA [$A2],Y
L043143 CLC
L043144 JMP L041F34
L043147 STX L0433DD
STY L0433DF
STA L0433E1
LDY #$000E
L043153 LDA [$A2],Y
STA L0433E7,Y
STA L0433F7,Y
STA L043407,Y
DEY
DEY
BPL L043153
STZ L0433F7
STZ L043407
LDA #$0000
STA [$A2]
JSR L04268B
LDX L0433EF
BEQ L043193
LDA $BE
EOR $42
BNE L043193
LDA L0433EB
PHA
PHX
LDX #$8000
LDA L0433E1
CMP #$0006
BCC L04318E
LDX #$8080
L04318E PHX
JSL L041015
L043193 LDA L0433DD
ORA L0433DF
BNE L04319C
RTS
L04319C LDA L0433E1
ASL
TAX
CMP #$000C
BCS L0431B1
LDA L0433EF
CMP L043460,X
BEQ L0431B1
BRL L043299
L0431B1 LDA L0433DD
BEQ L0431F3
DEC
CMP L043417,X
BCS L0431F3
LDA L0433DD
STA L0433FF
STA L0433DB
LDA L0433FB
STA L0433D7
STA L0433D9
DEC L0433F7
LDA L043417,X
BPL L0431DC
LDA #$0001
STA L0433DD
L0431DC CLC
LDA L04346C,X
BEQ L0431F3
ADC L0433DD
DEC
TAX
LDA |$0000,X
AND #$001F
ORA #$0020
STA L0433F9
L0431F3 LDA L0433E1
ASL
TAX
LDA L0433DF
BEQ L04323C
DEC
CMP L043439,X
BCS L04323C
CLC
LDA L04340B
ADC L04340F
SEC
SBC L0433DF
STA L04340B
LDA L0433DF
STA L04340F
DEC L043407
LDA L043439,X
BPL L043225
LDA #$0001
STA L0433DF
L043225 CLC
LDA L04346C,X
BEQ L04323C
ADC L0433DF
DEC
TAX
LDA |$0000,X
AND #$001F
ORA #$0020
STA L043409
L04323C LDA L0433F7
BPL L04326A
JSR L041E60
LDY #$000E
L043247 LDA L0433F7,Y
STA [$A2],Y
DEY
DEY
BPL L043247
JSR L04266F
LDA $BE
EOR $42
BNE L04326A
LDX L0433FF
BEQ L04326A
LDA L0433FB
PHA
PHX
PEA $8000
JSL L041058
L04326A LDA L043407
BPL L043298
JSR L041E60
LDY #$000E
L043275 LDA L043407,Y
STA [$A2],Y
DEY
DEY
BPL L043275
JSR L04266F
LDA $BE
EOR $42
BNE L043298
LDX L04340F
BEQ L043298
LDA L04340B
PHA
PHX
PEA $8000
JSL L041058
L043298 RTS
L043299 STZ L0433E3
STZ L0433E5
JMP (L0432A2,X)
L0432A2 DA L0432AE
DA L043326
DA L043326
DA L043326
DA L043357
DA L043387
L0432AE LDA L0433DD
BEQ L0432C2
STA L0433FF
STA L0433DB
LDA L0433FB
STA L0433D9
DEC L0433F7
L0432C2 CLC
LDA L04340B
ADC L04340F
SEC
SBC L0433DF
STA L04340B
LDA L0433DF
BEQ L0432DB
STA L04340F
DEC L043407
L0432DB JSR L04323C
STZ L0433F7
STZ L043407
LDX L0433E3
BEQ L043305
STX L0433FF
CLC
LDA L0433FB
ADC L0433DD
STA L0433FB
STA L0433D7
LDA L04345B,X
AND #$00FF
STA L0433F9
DEC L0433F7
L043305 LDX L0433E5
BEQ L043323
STX L04340F
SEC
LDA L04340B
SBC L0433E5
STA L04340B
LDA L04345B,X
AND #$00FF
STA L043409
DEC L043407
L043323 BRL L04323C
L043326 LDA L0433DD
JSR L0433B7
PHA
SEC
SBC L0433DD
EOR #$FFFF
INC
STA L0433E3
PLA
STA L0433DD
LDA L0433DF
BEQ L043354
JSR L0433B7
PHA
SEC
SBC L0433DF
EOR #$FFFF
INC
STA L0433E5
PLA
STA L0433DF
L043354 BRL L0432AE
L043357 LDA L0433DD
JSR L0433BE
PHA
SEC
SBC L0433DD
EOR #$FFFF
INC
STA L0433E3
PLA
STA L0433DD
LDA L0433DF
BEQ L043354
JSR L0433BE
PHA
SEC
SBC L0433DF
EOR #$FFFF
INC
STA L0433E5
PLA
STA L0433DF
BRA L043354
L043387 LDA L0433DD
JSR L0433C7
PHA
SEC
SBC L0433DD
EOR #$FFFF
INC
STA L0433E3
PLA
STA L0433DD
LDA L0433DF
BEQ L043354
JSR L0433C7
PHA
SEC
SBC L0433DF
EOR #$FFFF
INC
STA L0433E5
PLA
STA L0433DF
BRA L043354
L0433B7 BIT #$0001
BEQ L0433BD
DEC
L0433BD RTS
L0433BE BIT #$0003
BEQ L0433C6
DEC
BRA L0433BE
L0433C6 RTS
L0433C7 PHA
JSR L042FC4
BCC L0433D5
SBC $01,S
EOR #$FFFF
INC
STA $01,S
L0433D5 PLA
RTS
L0433D7 DB $00
DB $00
L0433D9 DB $00
DB $00
L0433DB DB $00
DB $00
L0433DD DB $00
DB $00
L0433DF DB $00
DB $00
L0433E1 DB $00
DB $00
L0433E3 DB $00
DB $00
L0433E5 DB $00
DB $00
L0433E7 DB $00
DB $00
DB $00
DB $00
L0433EB DB $00
DB $00
DB $00
DB $00
L0433EF DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0433F7 DB $00
DB $00
L0433F9 DB $00
DB $00
L0433FB DB $00
DB $00
DB $00
DB $00
L0433FF DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L043407 DB $00
DB $00
L043409 DB $00
DB $00
L04340B DB $00
DB $00
DB $00
DB $00
L04340F DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L043417 DB $00
DB $00
DB $01
DB $00
DB $01
DB $00
DB $01
DB $00
DB $03
DB $00
DB $02
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L043439 DB $00
DB $00
DB $01
DB $00
DB $01
DB $00
DB $01
DB $00
DB $03
DB $00
DB $02
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $00
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04345B DB $00
DB $20
DB $23
DB $25
DB $24
L043460 DB $01
DB $00
DB $02
DB $00
DB $02
DB $00
DB $02
DB $00
DB $04
DB $00
DB $03
DB $00
L04346C DB $00
DB $00
DA L04348E
DA L04348F
DA L043490
DA L043491
DA L043494
DA L043496
DA L043497
DA L043498
DA L043499
DA L04349A
DA L04349B
DA L04349C
DA L04349D
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04348E DB $00
L04348F DB $00
L043490 DB $00
L043491 DB $00
DB $03
DB $05
L043494 DB $00
DB $03
L043496 DB $07
L043497 DB $07
L043498 DB $08
L043499 DB $09
L04349A DB $0A
L04349B DB $0B
L04349C DB $0C
L04349D DB $0D
L04349E ENT
BRL L0434AD
DW $7771
STR 'TGetConst'
L0434AD PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
EOR $42
BNE L0434D2
LDA $BC
JSL L0410BB
BIT #$8000
BEQ L0434ED
L0434D2 LDA #$E020
STA $BA
JSR L04250E
BCS L0434EA
CPX #$0006
BCC L0434F0
PHA
LDY #$0008
LDA [$A2],Y
TAY
PLA
CLC
L0434EA JMP L041F34
L0434ED SEC
BRA L0434EA
L0434F0 STA L04354F
STX L043553
TXA
ASL
TAX
LDA L043557,X
STA L043555
BVC L043510
LDY #$0004
LDA [$A2],Y
SEC
SBC $BC
EOR #$FFFF
INC
JMP (L04351C,X)
L043510 LDX L043553
LDA $BC
LDY L043555
CLC
CLV
BRA L0434EA
L04351C DA L043510
DA L043528
DA L043528
DA L043528
DA L043541
DA L043548
L043528 AND #$0001
BEQ L043510
L04352D STA L043551
LDY L043555
LDX L043553
LDA $BC
SEC
SBC L043551
SEP #$40
CLC
BRA L0434EA
L043541 AND #$0003
BEQ L043510
BRA L04352D
L043548 JSR L042FC4
BCC L043510
BRA L04352D
L04354F DB $00
DB $00
L043551 DB $00
DB $00
L043553 DB $00
DB $00
L043555 DB $00
DB $00
L043557 DB $01
DB $00
DB $02
DB $00
DB $02
DB $00
DB $02
DB $00
DB $04
DB $00
DB $03
DB $00
L043563 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $BC
LDA L041ABE
STA $BE
LDA #$E020
STA $BA
JSR L04250E
BCS L0435B8
LDA #$0000
STA [$A2]
JSR L04268B
LDA $BE
EOR $42
BNE L0435B8
LDY #$0004
LDA [$A2],Y
PHA
PHA
LDY #$0008
LDA [$A2],Y
PHA
PEA $8000
JSL L041015
PLA
JSL L0416F3
PHA
PEA ^L0412B9
PEA L0412B9
LDX #$0002
JSL L041F18
L0435B8 CLC
JMP L041F34
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $B6
LDA L041ABE
STA $B8
LDY #$0002
LDA [$B6],Y
AND #$00E0
STA $BA
JSR L041E60
BCS L0435F8
LDA #$FFFF
STA [$A2]
LDX #$0007
LDY #$0000
L0435EC LDA [$B6],Y
INY
INY
STA [$A2],Y
DEX
BNE L0435EC
JSR L04266F
L0435F8 JMP L041F34
L0435FB ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA L041ABC
STA $BA
LDA L041ABE
STA $C2
LDA L041AC0
STA $BC
LDA L041AC2
STA $BE
JSR L041D06
LDA $9A
STA $A2
LDA $9C
STA $A4
L043626 JSR L042653
BCS L043632
JSR L043636
BCS L043633
BRA L043626
L043632 CLC
L043633 JMP L041F34
L043636 PHP
REP #$30
LDY #$0003
LDA [$A2],Y
AND #$00FF
BEQ L043657
JSR L041EA4
BCS L043657
PEI $B4
PEI $B2
_DisposeHandle
STZ $B4
STZ $B2
L043657 LDA #$0000
STA [$A2]
JSR L04268B
BCS L043664
PLP
CLC
RTS
L043664 PLP
SEC
RTS
L043667 LDA [$A2]
BEQ L0436A6
LDY #$0008
LDA [$A2],Y
BNE L043673
INC
L043673 STA $C2
DEY
DEY
LDA [$A2],Y
STA $BE
DEY
DEY
LDA [$A2],Y
STA $BC
DEY
DEY
LDA [$A2],Y
TAX
AND #$001F
ASL
PHA
TXA
AND #$00E0
LSR
LSR
LSR
LSR
TAX
LDA L0436AC,X
BEQ L0436A7
CLC
ADC $01,S
PLX
TAX
LDA |$0000,X
BEQ L0436A8
JSR ($0000,X)
L0436A6 RTS
L0436A7 PLA
L0436A8 JSR L043636
RTS
L0436AC DA $0000
DA L0436B4
DA L0436D6
DA L0436E2
L0436B4 DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
DA L0436F0
L0436D6 DA L043702
DA L043702
DA $0000
DA $0000
DA $0000
DA $0000
L0436E2 DA L043714
DA L043738
DA L04375F
DA L04375F
DA L043726
DA L04375F
DA L04374A
MX %00
L0436F0 PEI $BE
PEI $BC
PEA ^L043563
PEA L043563
LDX #$0004
JSL L041F18
RTS
L043702 PEI $BE
PEI $BC
PEA ^L0429D3
PEA L0429D3
LDX #$0004
JSL L041F18
RTS
L043714 PEI $BE
PEI $BC
PEA ^L042C85
PEA L042C85
LDX #$0004
JSL L041F18
RTS
L043726 PEI $BE
PEI $BC
PEA ^L042ED4
PEA L042ED4
LDX #$0004
JSL L041F18
RTS
L043738 PEI $BE
PEI $BC
PEA ^L042D9E
PEA L042D9E
LDX #$0004
JSL L041F18
RTS
L04374A LDA $BE
EOR $42
BNE L04375B
PEI $BC
PEI $C2
PEA $0400
JSL L041015
L04375B JSR L043636
RTS
L04375F LDA $BE
EOR $42
BNE L04375B
PEI $BC
PEI $C2
PEA $1000
JSL L041015
BRA L04375B
L043772 ENT
CLC
HEX B0
L043774 ENT
SEC
PHB
PHK
PLB
PHP
REP #$30
LDA #$FF62
BCS L043781
INC
L043781 STA $BA
LDX #$000C
JSR L041ED9
LDA L041AC2
STA $C2
LDA L041AC4
STA $BC
LDA L041AC6
STA $BE
JSR L04250E
BCC L0437A7
JSR L041E60
BCS L0437CE
JSR L04266F
BCS L0437CE
L0437A7 JSR L0426A7
LDY #$0002
L0437AD LDA $BA
AND #$00FF
STA [$A2],Y
LDY #$000A
LDA L041AC0
STA [$A2],Y
INY
INY
LDA L041ABC
STA [$A2],Y
INY
INY
LDA L041ABE
STA [$A2],Y
JSR L0437D1
CLC
L0437CE JMP L041F34
L0437D1 LDA $BE
EOR $42
BNE L0437E2
PEI $BC
PEI $C2
PEA $1000
JSL L041058
L0437E2 CLC
RTS
L0437E4 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0004
JSR L041ED9
LDA L041ABC
STA $AA
LDA L041ABE
STA $AC
ORA $AA
BEQ L04380F
LDY #$0002
LDA [$AA]
TAX
LDA [$AA],Y
BNE L04380F
TXA
BNE L04380F
STZ $AA
STZ $AC
L04380F CLC
JMP L041F34
L043813 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA #$0065
STA $BA
JSR L041E60
BCS L043867
JSR L04266F
BCS L043867
LDA #$FFFF
STA [$A2]
LDY #$0002
LDA #$0065
STA [$A2],Y
INY
INY
LDA L041AC0
STA $BC
STA [$A2],Y
INY
INY
LDA L041AC2
STA $BE
STA [$A2],Y
INY
INY
LDA #$0002
STA $C2
STA [$A2],Y
INY
INY
LDA L041ABC
STA [$A2],Y
INY
INY
LDA L041ABE
STA [$A2],Y
JSR L0437D1
L043867 JMP L041F34
L04386A ENT
BRL L04387B
DW $7771
STR 'TAddComment'
L04387B PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA L041ABC
STA $A6
LDA L041ABE
STA $A8
LDA L041AC0
STA $BC
LDA L041AC2
STA $BE
LDA #$0001
STA $C2
LDA #$FF66
STA $BA
LDA $BE
EOR $42
BNE L0438B6
LDA $BC
JSL L0410BB
BIT #$0400
BEQ L0438BE
L0438B6 JSR L04250E
BCS L0438BE
JSR L043636
L0438BE JSR L041E60
BCS L04391B
JSR L04266F
BCS L04391B
LDA [$A6]
AND #$00FF
TAX
INX
LDY #$0000
LDA #$0008
JSR L041C50
BCS L04391B
TYA
LDY #$000E
STA [$A2],Y
DEY
DEY
TXA
STA [$A2],Y
JSR L041EA4
BCS L04391E
JSR L0426A7
LDA [$A6]
AND #$00FF
PHA
XBA
ORA #$0066
LDY #$0002
STA [$A2],Y
PLY
SEP #$20
L0438FF LDA [$A6],Y
STA [$B6],Y
DEY
BPL L0438FF
REP #$20
LDA $BE
EOR $42
BNE L04391A
PEI $BC
PEA $0001
PEA $0400
JSL L041058
L04391A CLC
L04391B JMP L041F34
L04391E PEI $B4
PEI $B2
_DisposeHandle
SEC
BRA L04391B
L04392C ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA L041AC0
STA $BC
LDA #$0001
STA $C2
LDA #$FF66
STA $BA
LDA L041AC2
STA $BE
EOR $42
BNE L04395C
LDA $BC
JSL L0410BB
SEC
BIT #$0400
BEQ L043977
L04395C JSR L04250E
BCS L043977
JSR L041EA4
BCS L043977
PEI $B8
PEI $B6
LDA L041ABE
PHA
LDA L041ABC
PHA
JSL L0307DD
CLC
L043977 JMP L041F34
L04397A ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$000A
JSR L041ED9
LDA L041ABC
STA $A6
LDA L041ABE
STA $A8
LDA L041AC0
STA $C2
LDA L041AC2
STA $BC
LDY L041AC4
STY $BE
STZ $C4
JSL L0410BB
STA L0439DD
BIT #$1000
BEQ L0439C5
JSR L044019
BCS L0439B5
BRL L043A2F
L0439B5 JSR L044017
BCS L0439BD
BRL L043A51
L0439BD JSR L04404D
BCC L0439DF
LDA L0439DD
L0439C5 BIT #$0800
BEQ L0439D7
JSR L043B44
BCS L0439D7
L0439CF BVS L0439D4
BRL L043A4A
L0439D4 BRL L043A2F
L0439D7 JSR L044071
BRL L043A4A
L0439DD DW $0000
L0439DF LDX #$0002
STX $C2
STA L043AFB
STY L043AFD
BIT #$8000
BNE L043A06
TYA
CLC
ADC $BC
LDY $BE
JSR L043AFF
LDA #$00AD
JSR L043AEC
LDA #$00AA
JSR L043AEC
BRA L043A4D
L043A06 LDA #$00AA
JSR L043AEC
LDA #$00AB
BIT L043AFD
BPL L043A21
LDA L043AFD
EOR #$FFFF
INC
STA L043AFD
LDA #$00AD
L043A21 JSR L043AEC
LDA L043AFD
LDY #$0000
JSR L04433D
BRA L043A4D
L043A2F PHY
PHA
LDX #$0002
CPY $42
BEQ L043A39
INX
L043A39 CPX $C2
BCC L043A3F
STX $C2
L043A3F JSR L043A77
PLA
PLY
JSR L043AFF
L043A47 JSR L043ACC
L043A4A JSR L043A9A
L043A4D CLC
JMP L041F34
L043A51 PHY
PHA
PHY
PHA
JSR L043A77
PEI $A8
PEI $A6
PEA ^L042885
PEA L042885
LDX #$0008
JSL L041F18
PLA
PLY
BCC L043A47
LDX #$0003
STX $C2
JSR L04433D
BRA L043A47
L043A77 SEP #$30
LDA $C4
BEQ L043A97
LDY #$DE
CMP #$F0
BEQ L043A89
LDY #$BE
CMP #$F8
BNE L043A97
L043A89 SEP #$30
PHY
LDA [$A6]
INC
STA [$A6]
TAY
PLA
STA [$A6],Y
STZ $C4
L043A97 REP #$30
RTS
L043A9A SEP #$30
LDY #$AA
LDA $C4
BEQ L043A97
BPL L043AA9
LDY #$AF
AND #$FF
INC
L043AA9 PHA
JSR L043A89
SEP #$10
PLY
PHY
CPY #$04
BCC L043ABC
LDY #$A4
JSR L043A89
SEP #$10
L043ABC PLY
LDA #$0000
SEC
ROL
L043AC2 ASL
DEY
BNE L043AC2
JSR L042953
L043AC9 REP #$30
RTS
L043ACC SEP #$30
LDY #$AB
LDA $C5
BEQ L043AC9
BPL L043ADD
LDY #$AD
EOR #$FF
INC
STA $C5
L043ADD TYA
JSR L043AEC
REP #$20
LDA $C5
AND #$00FF
JSR L042953
RTS
L043AEC PHP
SEP #$30
PHA
LDA [$A6]
INC
STA [$A6]
TAY
PLA
STA [$A6],Y
PLP
RTS
L043AFB DB $00
DB $00
L043AFD DB $00
DB $00
L043AFF PHP
REP #$30
PHY
PHA
PHY
PHA
CPY $42
BNE L043B19
JSL L0410BB
BIT #$6000
BNE L043B19
PLA
PLY
PLA
PLY
BRA L043B30
L043B19 PEI $A8
PEI $A6
PEA ^L0428B4
PEA L0428B4
LDX #$0008
JSL L041F18
PLA
PLY
BCS L043B30
PLP
RTS
L043B30 PHY
PHA
PEA ^L042A5C
PEA L042A5C
LDX #$0004
JSL L041F18
JSR L04433D
PLP
RTS
L043B44 PHP
REP #$30
LDA $AB
BNE L043B50
L043B4B PLP
SEP #$40
SEC
RTS
L043B50 LDY #$0002
LDA [$AA]
TAX
LDA [$AA],Y
TAY
BNE L043B5E
TXA
BEQ L043B4B
L043B5E STX $AE
STY $B0
STZ $C0
L043B64 LDA [$AE]
INC $AE
BNE L043B6C
INC $B0
L043B6C AND #$00FF
BEQ L043B4B
CMP #$00E0
BCS L043B8A
PHA
CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
PLA
ADC $C0
STA $C0
BRA L043B64
L043B8A ASL
TAX
JMP (L043B8F-$1C0,X)
L043B8F DA L043BCF
DA L043BCF
DA L043BE8
DA L043C38
DA L043BCF
DA L043BCF
DA L043BCF
DA L043DA2
DA L043BCF
DA L043BCF
DA L043BCF
DA L043DBB
DA L043DBB
DA L043DBB
DA L043DAA
DA L043BCF
DA L043DA2
DA L043BCF
DA L043BCF
DA L043DBB
DA L043BCF
DA L043C10
DA L043C66
DA L043C97
DA L043BCF
DA L043BCF
DA L043BCF
DA L043BCF
DA L043BCF
DA L043BCF
DA L043BCF
DA L043BCF
L043BCF PLP
SEP #$40
SEC
RTS
L043BD4 PLP
SEP #$40
CLC
RTS
L043BD9 CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
BRL L043B64
L043BE8 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L043BF6
LDA #$000A
BRA L043BD9
L043BF6 SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$0006
LDA [$AE],Y
LDY $BE
BRA L043BD4
L043C10 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L043C1E
LDA #$0006
BRA L043BD9
L043C1E SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$0004
LDA [$AE],Y
LDY $BE
BRA L043BD4
L043C38 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L043C46
LDA #$000E
BRA L043BD9
L043C46 SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$000A
LDA [$AE],Y
PHA
DEY
DEY
LDA [$AE],Y
TAY
PLA
BRL L043BD4
L043C66 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L043C75
LDA #$0007
BRL L043BD9
L043C75 SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$0005
LDA [$AE],Y
PHA
DEY
LDA [$AE],Y
AND #$00FF
TAY
PLA
BRL L043BD4
L043C97 LDA [$AE]
DEC
STA L043D8D
LDA #$FF00
STA L043D8F
LDY #$0002
LDA [$AE],Y
BEQ L043CAD
BRL L043B4B
L043CAD LDY #$0004
LDA [$AE],Y
AND #$00FF
STA L043D91
LDA #$0005
CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
L043CC7 DEC L043D8D
BPL L043CCF
BRL L043B64
L043CCF LDA [$AE]
INC $AE
BNE L043CD7
INC $B0
L043CD7 AND #$00FF
CMP #$0080
BCC L043CEC
AND #$007F
XBA
CLC
ADC L043D8F
STA L043D8F
BRA L043CC7
L043CEC SEP #$20
INC L043D90
REP #$20
TAX
L043CF4 DEC L043D8D
LDA [$AE]
INC $AE
BNE L043CFF
INC $B0
L043CFF AND #$00FF
CLC
ADC L043D8F
CMP $BC
BEQ L043D0F
DEX
BPL L043CF4
BRA L043CC7
L043D0F LDX #$0002
STX $C2
TAY
LDA L043D91
CMP #$001A
BCS L043D75
CMP #$000E
BCS L043D5F
CMP #$0002
BCS L043D48
CMP #$0001
BEQ L043D39
SEP #$20
STZ $C4
REP #$20
LDA [$3A],Y
LDY $BE
BRL L043BD4
L043D39 SEP #$20
STZ $C4
REP #$20
INC $C2
LDA [$3A],Y
LDY $BE
BRL L043BD4
L043D48 SEP #$20
STZ $C4
REP #$20
INC $C2
LDA [$3A],Y
PHA
INY
INY
LDA [$3A],Y
AND #$00FF
TAY
PLA
BRL L043BD4
L043D5F SBC #$000D
PHA
CMP $42
BEQ L043D69
INC $C2
L043D69 SEP #$20
STZ $C4
REP #$20
LDA [$3A],Y
PLY
BRL L043BD4
L043D75 SBC #$0019
PHA
CMP $42
BEQ L043D7F
INC $C2
L043D7F SEP #$20
LDA #$F0
STA $C4
REP #$20
LDA [$3A],Y
PLY
BRL L043BD4
L043D8D DB $00
DB $00
L043D8F DB $00
L043D90 DB $00
L043D91 DB $00
DB $00
L043D93 LDA [$AE]
AND #$00FF
INC
ADC $AE
STA $AE
BCC L043DA1
INC $B0
L043DA1 RTS
L043DA2 JSR L043D93
LDA #$0004
BRA L043DD6
L043DAA LDY #$0005
LDA [$AE],Y
CMP $BC
BNE L043DCB
JSR L045923
BVS L043DC8
L043DB8 BRL L043BD4
L043DBB LDA [$AE]
CMP $BC
BNE L043DD3
JSR L04591F
BVS L043DD0
BRA L043DB8
L043DC8 BRL L043E22
L043DCB LDA #$0007
BRA L043DD6
L043DD0 BRL L043E3E
L043DD3 LDA #$0003
L043DD6 CLC
ADC $AE
STA $AE
BCC L043DDF
INC $B0
L043DDF LDA [$AE]
INC $AE
BNE L043DE7
INC $B0
L043DE7 AND #$00FF
BEQ L043DFE
CMP #$0080
BCC L043DDF
AND #$007F
BEQ L043DDF
CMP #$0008
BCC L043E01
PLP
SEC
RTS
L043DFE BRL L043B64
L043E01 ASL
TAX
JMP (L043E06,X)
L043E06 DA $0000
DA L043E16
DA L043E1B
DA L043E1B
DA L043E1B
DA L043E1B
DA L043E1B
DA L043E16
L043E16 LDA #$0004
BRA L043DD6
L043E1B JSR L043D93
BRA L043DDF
L043E20 DW $0000
L043E22 BRL L043E31
DW $7771
STR ':RExpr_EA'
L043E31 LDA [$AE]
AND #$00FF
STA L043E20
LDA #$0007
BRA L043E5A
L043E3E BRL L043E4C
DW $7771
STR ':Expr_EA'
L043E4C LDY #$0002
LDA [$AE],Y
AND #$00FF
STA L043E20
LDA #$0003
L043E5A CLC
ADC $AE
STA $AE
BCC L043E63
INC $B0
L043E63 LDA [$AE]
AND #$00FF
BEQ L043E77
CMP #$0080
BCS L043E7B
INC $AE
BNE L043E75
INC $B0
L043E75 BRA L043E63
L043E77 PLP
CLV
CLC
RTS
L043E7B JSR L043F36
BCC L043E83
PLP
SEC
RTS
L043E83 LDA [$AE]
INC $AE
BNE L043E8B
INC $B0
L043E8B AND #$007F
ASL
TAX
JMP (L043E93,X)
L043E93 DA L043EA3
DA L043EB1
DA L043F21
DA L043F21
DA L043F21
DA L043F21
DA L043F21
DA L043F0B
L043EA3 LDA #$0003
STA $C2
LDY $42
LDA $BC
JSR L043AFF
BRA L043E63
L043EB1 LDA L043FD3
CMP #$0007
BEQ L043F01
LDA [$AE]
STA L043F07
LDY #$0002
LDA [$AE],Y
STA L043F09
BPL L043EE3
EOR #$FFFF
STA L043F09
LDA #$FFFF
EOR L043F07
INC
STA L043F07
BNE L043EDD
INC L043F09
L043EDD LDA #$00AD
JSR L043FEE
L043EE3 LDA #$0004
STA $C2
SEP #$30
LDX #$03
L043EEC LDA L043F07,X
BNE L043EF6
DEC $C2
DEX
BNE L043EEC
L043EF6 REP #$30
LDY L043F09
LDA L043F07
JSR L04433D
L043F01 LDA #$0004
BRL L043E5A
L043F07 BRK $00
L043F09 BRK $00
L043F0B LDA #$0002
STA $C2
LDY #$0002
LDA [$AE],Y
TAY
LDA [$AE]
JSR L043AFF
LDA #$0004
BRL L043E5A
L043F21 PEI $B0
PEI $AE
PEI $A8
PEI $A6
JSL L0307DD
LDA [$AE]
AND #$00FF
INC
BRL L043E5A
L043F36 AND #$007F
CMP #$0008
BCC L043F3F
RTS
L043F3F ASL
TAX
JMP (L043F44,X)
L043F44 DA L043F54
DA L043F59
DA L043F5E
DA L043F5E
DA L043F5E
DA L043F5E
DA L043F5E
DA L043F59
L043F54 LDY #$0001
BRA L043F69
L043F59 LDY #$0005
BRA L043F69
L043F5E LDY #$0001
LDA [$AE],Y
AND #$00FF
INC
INC
TAY
L043F69 LDA [$AE],Y
AND #$00FF
BEQ L043F89
CMP #$0080
BCC L043F77
CLC
RTS
L043F77 STA L043FD3
CMP #$0007
BEQ L043F8B
TAX
LDA L043FD8,X
AND #$00FF
JSR L043FEE
L043F89 CLC
RTS
L043F8B LDY #$0001
LDA [$AE],Y
CMP #$FFF0
BEQ L043FCB
CMP #$FFF8
BEQ L043FC7
STZ L043FD7
STA L043FD5
LDA [$AE],Y
BPL L043FA8
EOR #$FFFF
INC
L043FA8 SEC
L043FA9 DEC
BMI L043FB1
ROL L043FD7
BRA L043FA9
L043FB1 LDA #$00AA
BIT L043FD5
BPL L043FBC
LDA #$00AF
L043FBC JSR L043FEE
LDA L043FD7
JSR L042953
CLC
RTS
L043FC7 LDA #$00BE
HEX CF
L043FCB LDA #$00DE
JSR L043FFD
CLC
RTS
L043FD3 DB $00
DB $00
L043FD5 DB $00
DB $00
L043FD7 DB $00
L043FD8 DB $00
ASC "+-*/?-|&.!????<>=&.!?"
L043FEE PHP
SEP #$30
PHA
LDA [$A6]
INC
STA [$A6]
TAY
PLA
STA [$A6],Y
PLP
RTS
L043FFD PHP
SEP #$30
PHA
LDA [$A6]
INC
STA [$A6]
TAY
DEY
L044008 LDA [$A6],Y
INY
STA [$A6],Y
DEY
DEY
BNE L044008
INY
PLA
STA [$A6],Y
PLP
RTS
L044017 CLC
HEX B0
L044019 SEC
PHP
REP #$30
LDA #$FF62
BCS L044023
INC
L044023 STA $BA
JSR L04250E
BCS L04404A
BVS L04404A
LDY #$0008
LDA [$A2],Y
AND #$00FF
STA $C2
INY
INY
LDA [$A2],Y
STA $C4
INY
INY
LDA [$A2],Y
PHA
INY
INY
LDA [$A2],Y
TAY
PLA
PLP
CLC
RTS
L04404A PLP
SEC
RTS
L04404D PHP
REP #$30
L044050 LDA #$FF65
STA $BA
JSR L04250E
BCS L04406E
SEP #$20
STZ $C4
REP #$20
LDY #$000C
LDA [$A2],Y
PHA
DEY
DEY
LDA [$A2],Y
PLY
PLP
CLC
RTS
L04406E PLP
SEC
RTS
L044071 PHP
REP #$30
LDA $BC
JSL L041993
STA $C2
LDA $BC
JSL L0410BB
ASL
BCS L0440A1
LDY $BC
DEY
LDA [$3A],Y
AND #$001F
STA L0440AF
ASL
TAX
LDA [$3A],Y
LSR
LSR
LSR
LSR
LSR
AND #$0007
JSR (L0440B1,X)
PLP
RTS
L0440A1 JSR L0442E7
STA L0442E3
STY L0442E5
JSR L0442C8
PLP
RTS
L0440AF DB $00
DB $00
L0440B1 DA L044156
DA L04413D
DA L04416E
DA L04413D
DA L044112
DA L04413D
DA L04413D
DA L04413D
DA L044111
DA L04413D
DA L044111
DA L044111
DA L04418A
DA L0441C5
DA L0441C5
DA L044208
DA L04421A
DA L04413D
DA L04413D
DA L04413D
DA L044112
DA L04413D
DA L04413D
DA L04413D
DA L044111
DA L0441C5
DA L044111
DA L044111
DA L0441B1
DA L0441C5
DA L0441C5
DA L044208
L0440F1 DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
DB $01
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $01
DB $01
DB $01
L044111 RTS
L044112 CMP #$0002
BNE L04413D
LDA #$0003
STA $C2
STZ L0442E3
INY
LDA [$3A],Y
PHA
XBA
AND #$00FF
STA L0442E5
JSR L0442C8
LDA #$00AC
JSR L0442D2
PLA
AND #$00FF
STA L0442E5
BRL L0442C8
L04413D INY
LDA [$3A],Y
STA L0442E3
STZ L0442E5
LDA $C2
CMP #$0002
BNE L044150
BRL L0442C8
L044150 STZ L0442E4
BRL L0442C8
L044156 CMP #$0005
BCS L04413D
CMP #$0001
BEQ L044194
CMP #$0000
BEQ L04413D
CMP #$0004
BNE L04416D
BRL L04421A
L04416D RTS
L04416E CMP #$0000
BEQ L04413D
CMP #$0001
BNE L04417B
BRL L044208
L04417B CMP #$0002
BEQ L04413D
CMP #$0005
BCS L044188
BRL L04424E
L044188 BCS L04413D
L04418A CMP #$0002
BEQ L044194
CMP #$0003
BNE L0441C5
L044194 INY
LDA [$3A],Y
STA L0442E3
PEI $42
DEY
PHY
PEA ^L042A5C
PEA L042A5C
LDX #$0004
JSL L041F18
STY L0442E5
BRL L044257
L0441B1 CMP #$0002
BEQ L044208
CMP #$0003
BEQ L044194
CMP #$0006
BEQ L044194
CMP #$0007
BEQ L044194
L0441C5 INY
LDA [$3A],Y
STA L0442E3
AND #$FF00
BNE L0441D6
LDA #$00FC
JSR L0442D2
L0441D6 PEI $42
DEY
PHY
PEA ^L042F5B
PEA L042F5B
LDX #$0004
JSL L041F18
STA L0442E5
TAY
LDA L0442E3
CMP #$C100
BCS L044257
CMP #$C000
BCC L044257
TYA
AND #$00FE
BEQ L044203
EOR #$00E0
BNE L044257
L044203 STZ L0442E5
BRA L044257
L044208 INY
LDA [$3A],Y
STA L0442E3
INY
INY
LDA [$3A],Y
AND #$00FF
STA L0442E5
BRA L044257
L04421A LDA #$0002
STA $C2
INY
LDA #$0000
SEP #$20
LDA [$3A],Y
REP #$20
BPL L04422E
ORA #$FF00
L04422E SEC
ADC $BC
L044231 LDY $42
PHY
PHA
PHY
PHA
PEA ^L042A5C
PEA L042A5C
LDX #$0004
JSL L041F18
STA L0442E3
STY L0442E5
PLA
PLY
BRA L0442A1
L04424E INY
LDA [$3A],Y
INC
SEC
ADC $BC
BRA L044231
L044257 LDAL L0283C6
BMI L044263
LDAL L0283CA
BMI L044285
L044263 LDA L0442E5
PHA
LDA L0442E3
PHA
PEA ^L042ABB
PEA L042ABB
LDX #$0004
JSL L041F18
BCC L0442A1
LDX L0440AF
LDA L0440F1,X
AND #$00FF
BNE L0442C8
L044285 LDA L0442E5
PHA
LDA L0442E3
PHA
PEI $A8
PEI $A6
PEA ^L042885
PEA L042885
LDX #$0008
JSL L041F18
BCS L0442C8
RTS
L0442A1 CPY $42
BNE L0442B3
PHY
PHA
JSL L0410BB
PLX
PLY
BIT #$6000
BEQ L0442C8
TXA
L0442B3 PHY
PHA
PEI $A8
PEI $A6
PEA ^L0428B4
PEA L0428B4
LDX #$0008
JSL L041F18
BCC L0442D1
L0442C8 LDY L0442E5
LDA L0442E3
JSR L04433D
L0442D1 RTS
L0442D2 PHY
PHP
SEP #$30
PHA
LDA [$A6]
INC
STA [$A6]
TAY
PLA
STA [$A6],Y
PLP
PLY
RTS
L0442E3 DB $00
L0442E4 DB $00
L0442E5 DB $00
DB $00
L0442E7 PHP
REP #$30
LDY $BC
LDA [$3A],Y
PHA
INY
INY
LDA [$3A],Y
TAY
LDA $C2
DEC
ASL
TAX
PLA
CPX #$0006
BCS L044312
JMP (L044302,X)
L044302 DA L044308
DA L04430B
DA L04430E
L044308 AND #$00FF
L04430B LDY #$0000
L04430E SEP #$10
REP #$10
L044312 PLP
CLC
RTS
L044315 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$000A
JSR L041ED9
LDA L041ABC
STA $A6
LDA L041ABE
STA $A8
LDA L041AC0
STA $C2
LDA L041AC2
LDY L041AC4
JSR L04433D
CLC
JMP L041F34
L04433D PHP
REP #$30
LDX $C2
BEQ L04439C
PHX
PHY
PHA
SEP #$30
LDA [$A6]
INC
TAY
LDA #$A4
STA [$A6],Y
TYA
STA [$A6]
REP #$30
PLA
PLY
PLX
CPX #$0005
BCC L044361
LDX #$0004
L044361 PHA
TXA
DEC
ASL
TAX
PLA
JMP (L04436A,X)
L04436A DA L044395
DA L04438B
DA L04437F
DA L044372
L044372 PHA
PHY
TYA
XBA
JSL L030837
JSR L04439F
PLY
PLA
L04437F PHA
PHY
TYA
JSL L030837
JSR L04439F
PLY
PLA
L04438B PHA
XBA
JSL L030837
JSR L04439F
PLA
L044395 JSL L030837
JSR L04439F
L04439C PLP
CLC
RTS
L04439F PHA
LDA [$A6]
AND #$00FF
INC
TAY
PLA
STA [$A6],Y
TYA
INC
SEP #$20
STA [$A6]
REP #$20
RTS
L0443B3 ENT
PHB
PHK
PLB
PHP
REP #$30
LDA $42
STA $BE
STZ $BC
LDA #L0443E2
STA $A6
LDA #^L0443E2
STA $A8
STZ L044980
JSR L04442B
JSR L044483
LDA #$1000
STA L044980
JSR L044638
JSR L0444DA
PLP
CLC
PLB
RTL
L0443E2 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04442B PHP
REP #$30
LDA #$FF62
STA $BA
JSR L0424AF
BRA L04444C
L044438 PLA
STA $A2
PLA
STA $A4
PLA
STA $9A
PLA
STA $9C
LDA #$FF62
STA $BA
JSR L0424F2
L04444C BCC L044450
PLP
RTS
L044450 PEI $9C
PEI $9A
PEI $A4
PEI $A2
LDY #$0004
LDA [$A2],Y
STA $BC
INY
INY
LDY #$0006
LDA [$A2],Y
EOR $42
BNE L044438
LDY #$000E
LDA [$A2],Y
PHA
DEY
DEY
LDA [$A2],Y
PLY
CPY $42
BNE L04447E
JSR L044982
BRA L044438
L04447E JSR L044987
BRA L044438
L044483 PHP
REP #$30
LDA #$FF65
STA $BA
JSR L0424AF
BRA L0444A2
L044490 PLA
STA $A2
PLA
STA $A4
PLA
STA $9A
PLA
STA $9C
PLA
STA $BA
JSR L0424F2
L0444A2 BCS L0444D8
PEI $BA
PEI $9C
PEI $9A
PEI $A4
PEI $A2
LDY #$0006
LDA [$A2],Y
CMP $42
BNE L044490
DEY
DEY
LDA [$A2],Y
STA $BC
CLC
LDY #$000C
ADC [$A2],Y
PHA
L0444C4 JSL L0410BB
BIT #$6000
BNE L0444D5
PLA
LDY $42
JSR L044982
BRA L044490
L0444D5 PLA
BRA L044490
L0444D8 PLP
RTS
L0444DA PHP
REP #$30
JSL L040F4D
LDA #$0000
L0444E4 STA L044577
PHA
JSL L041719
PLA
JSL L040586
STA L044579
CPY #$0000
BNE L044520
LDA L044577
INC
JSL L0410BB
AND #$1800
BNE L044520
LDY L044577
LDA [$3A],Y
AND #$001F
ASL
TAX
LDA [$3A],Y
LSR
LSR
LSR
LSR
LSR
AND #$0007
INY
STY $BC
JSR (L044537,X)
L044520 LDA L044577
CLC
ADC L044579
BCS L044531
BIT $5C
BMI L0444E4
CMP $3E
BCC L0444E4
L044531 JSL L040F73
PLP
RTS
L044537 DA L044580
DA L04457F
DA L04458B
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04459B
DA L0445CB
DA L0445CB
DA L0445DD
DA L0445EE
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L04457F
DA L0445CB
DA L04457F
DA L04457F
DA L0445B7
DA L0445CB
DA L0445CB
DA L0445DD
L044577 DB $00
DB $00
L044579 DB $00
DB $00
L04457B DB $00
DB $00
L04457D DB $00
DB $00
L04457F RTS
L044580 CMP #$0001
BEQ L0445A5
CMP #$0004
BEQ L0445EE
RTS
L04458B CMP #$0001
BEQ L0445DD
CMP #$0003
BEQ L044606
CMP #$0004
BEQ L044606
RTS
L04459B CMP #$0002
BEQ L0445A5
CMP #$0003
BNE L0445CB
L0445A5 LDA [$3A],Y
STA L04457B
PEI $42
DEY
PHY
JSL L042A5C
STY L04457D
BRA L044611
L0445B7 CMP #$0002
BEQ L0445DD
CMP #$0003
BEQ L0445A5
CMP #$0006
BEQ L0445A5
CMP #$0007
BEQ L0445A5
L0445CB LDA [$3A],Y
STA L04457B
PEI $42
DEY
PHY
JSL L042F5B
STA L04457D
BRA L044611
L0445DD LDA [$3A],Y
STA L04457B
INY
INY
LDA [$3A],Y
AND #$00FF
STA L04457D
BRA L044611
L0445EE LDA #$0000
SEP #$20
LDA [$3A],Y
REP #$20
BPL L0445FC
ORA #$FF00
L0445FC INC
INC
CLC
ADC L044577
L044602 LDY $42
BRA L04462D
L044606 LDA [$3A],Y
INC
INC
INC
CLC
ADC L044577
BRA L044602
L044611 LDAL L0283C6
BMI L04461E
LDAL L0283CA
BPL L04461E
RTS
L04461E LDA L04457D
PHA
LDA L04457B
PHA
JSL L042ABB
BCC L04462D
RTS
L04462D PHY
PHA
JSL L0416D7
PLY
JSR L044982
RTS
L044638 PHP
REP #$30
LDA $AA
ORA $AC
BNE L044643
L044641 PLP
RTS
L044643 LDY #$0002
LDA [$AA]
TAX
LDA [$AA],Y
TAY
BNE L044651
TXA
BEQ L044641
L044651 STX $AE
STY $B0
STZ $C0
LDA #$0003
STA $C2
L04465C LDA [$AE]
INC $AE
BNE L044664
INC $B0
L044664 AND #$00FF
BEQ L044641
CMP #$00E0
BCS L044682
PHA
CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
PLA
ADC $C0
STA $C0
BRA L04465C
L044682 ASL
TAX
JMP (L044687-$1C0,X)
L044687 DA L0446C7
DA L0446C7
DA L0446DB
DA L044707
DA L0446C7
DA L0446C7
DA L0446C7
DA L04481E
DA L0446C7
DA L0446C7
DA L0446C7
DA L04482E
DA L04482E
DA L04482E
DA L044826
DA L0446C7
DA L04481E
DA L0446C7
DA L0446C7
DA L04482E
DA L0446C7
DA L0446F1
DA L044722
DA L044740
DA L0446C7
DA L0446C7
DA L0446C7
DA L0446C7
DA L0446C7
DA L0446C7
DA L0446C7
DA L0446C7
L0446C7 PLP
RTS
PLP
CLC
RTS
L0446CC CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
BRL L04465C
L0446DB LDY #$0002
LDA [$AE],Y
STA $BC
LDY #$0006
LDA [$AE],Y
LDY $42
JSR L044982
LDA #$000A
BRA L0446CC
L0446F1 LDY #$0002
LDA [$AE],Y
STA $BC
LDY #$0004
LDA [$AE],Y
LDY $42
JSR L044982
LDA #$0006
BRA L0446CC
L044707 LDY #$0002
LDA [$AE],Y
STA $BC
LDY #$000A
LDA [$AE],Y
PHA
DEY
DEY
LDA [$AE],Y
TAY
PLA
JSR L044987
LDA #$000E
BRA L0446CC
L044722 LDY #$0002
LDA [$AE],Y
STA $BC
LDY #$0005
LDA [$AE],Y
PHA
DEY
LDA [$AE],Y
AND #$00FF
TAY
PLA
JSR L044987
LDA #$0007
BRL L0446CC
L044740 LDA [$AE]
DEC
STA L044809
LDA #$FF00
STA L04480B
LDY #$0002
LDA [$AE],Y
BEQ L044756
BRL L044641
L044756 LDY #$0004
LDA [$AE],Y
AND #$00FF
STA L04480D
LDA #$0005
CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
L044770 DEC L044809
BPL L044778
BRL L04465C
L044778 LDA [$AE]
INC $AE
BNE L044780
INC $B0
L044780 AND #$00FF
CMP #$0080
BCC L044795
AND #$007F
XBA
CLC
ADC L04480B
STA L04480B
BRA L044770
L044795 SEP #$20
INC L04480C
REP #$20
TAX
L04479D DEC L044809
LDA [$AE]
INC $AE
BNE L0447A8
INC $B0
L0447A8 AND #$00FF
CLC
ADC L04480B
STA $BC
PHX
JSR L0447BB
PLX
DEX
BPL L04479D
BRA L044770
L0447BB TAY
LDA L04480D
CMP #$001A
BCS L0447FE
CMP #$000E
BCS L0447F3
CMP #$0002
BCS L0447E3
CMP #$0001
BEQ L0447DB
LDA [$3A],Y
LDY $42
JSR L044982
RTS
L0447DB LDA [$3A],Y
LDY $BE
JSR L044982
RTS
L0447E3 LDA [$3A],Y
PHA
INY
INY
LDA [$3A],Y
AND #$00FF
TAY
PLA
JSR L044987
RTS
L0447F3 SBC #$000D
PHA
LDA [$3A],Y
PLY
JSR L044987
RTS
L0447FE SBC #$0019
PHA
LDA [$3A],Y
PLY
JSR L044987
RTS
L044809 DB $00
DB $00
L04480B DB $00
L04480C DB $00
L04480D DB $00
DB $00
L04480F LDA [$AE]
AND #$00FF
INC
ADC $AE
STA $AE
BCC L04481D
INC $B0
L04481D RTS
L04481E JSR L04480F
LDA #$0004
BRA L044836
L044826 LDY #$0005
LDX #$0007
BRA L044893
L04482E LDY #$0000
LDX #$0003
BRA L044893
L044836 CLC
ADC $AE
STA $AE
BCC L04483F
INC $B0
L04483F LDA [$AE]
INC $AE
BNE L044847
INC $B0
L044847 AND #$00FF
BEQ L04485D
CMP #$0080
BCC L04483F
AND #$007F
BEQ L04483F
CMP #$0008
BCC L044860
PLP
RTS
L04485D BRL L04465C
L044860 ASL
TAX
JMP (L044865,X)
L044865 DA $0000
DA L044875
DA L04487A
DA L04487A
DA L04487A
DA L04487A
DA L04487A
DA L044875
L044875 LDA #$0004
BRA L044836
L04487A JSR L04480F
BRA L04483F
L04487F BIT L04496E
BPL L04485D
LDA L044978
BNE L04485D
LDA L044976
LDY $42
JSR L044982
BRA L04485D
L044893 LDA [$AE],Y
STA L044970
STZ L044972
STZ L04496E
STZ L044974
STZ L04497A
TXA
L0448A5 CLC
ADC $AE
STA $AE
BCC L0448AE
INC $B0
L0448AE LDA [$AE]
INC $AE
BNE L0448B6
INC $B0
L0448B6 AND #$00FF
BEQ L04487F
CMP #$0080
BCC L044929
AND #$007F
CMP #$0008
BCC L0448CA
PLP
RTS
L0448CA ASL
TAX
JMP (L0448CF,X)
L0448CF DA L0448DF
DA L0448F6
DA L04487A
DA L04487A
DA L04487A
DA L04487A
DA L04487A
DA L0448F0
L0448DF LDX L044970
LDY L044972
STZ L04496C
LDA #$FFFF
STA L04496E
BRA L044905
L0448F0 LDA #$FFFF
STA L04496E
L0448F6 LDA [$AE]
TAX
LDY #$0002
LDA [$AE],Y
TAY
LDA #$0004
STA L04496C
L044905 BIT L044974
BPL L04491B
STX L04497C
STY L04497E
LDA #$FFFF
STA L04497A
L044916 LDA L04496C
BRA L0448A5
L04491B STX L044976
STY L044978
LDA #$FFFF
STA L044974
BRA L044916
L044929 BIT L04497A
BMI L044931
L04492E BRL L04483F
L044931 CMP #$0007
BEQ L044966
CMP #$0001
BEQ L044953
CMP #$0002
BNE L04492E
SEC
LDA #$0000
SBC L04497C
STA L04497C
LDA #$0000
SBC L04497E
STA L04497E
L044953 CLC
LDA L04497C
ADC L044976
STA L044976
LDA L04497E
ADC L044978
STA L044978
L044966 STZ L04497A
BRL L0448AE
L04496C DB $00
DB $00
L04496E DB $00
DB $00
L044970 DB $00
DB $00
L044972 DB $00
DB $00
L044974 DB $00
DB $00
L044976 DB $00
DB $00
L044978 DB $00
DB $00
L04497A DB $00
DB $00
L04497C DB $00
DB $00
L04497E DB $00
DB $00
L044980 DB $00
DB $00
L044982 LDX #$0000
BRA L04498A
L044987 LDX #$0001
L04498A STX L044A2B
PHY
PHA
PHY
PHA
LDA $BC
JSL L0410BB
BIT L044980
BEQ L04499F
BRL L044A26
L04499F PLA
PLY
PHY
PHA
CPY $42
BEQ L0449CC
PHY
PHA
LDA #$0000
STA [$A6]
PEI $A8
PEI $A6
JSL L0428B4
BCS L0449DD
CPX L044A2B
BEQ L044A26
LDY #$0002
LDA [$A2],Y
AND #$FFE0
ORA L044A2B
STA [$A2],Y
BRA L044A26
L0449CC JSL L0416F3
STA $01,S
STA $05,S
JSL L0410BB
BIT #$6000
BNE L044A26
L0449DD LDA #$0000
STA [$A6]
JSL L042A5C
LDX #$0002
BIT $CE
BMI L0449F0
INX
BRA L0449F8
L0449F0 PHA
TXA
CLC
ADC L044A2B
TAX
PLA
L0449F8 STX $C2
JSR L04433D
SEP #$30
LDA #$CC
LDY #$01
STA [$A6],Y
REP #$30
LDA $03,S
CMP $42
BEQ L044A12
LDA #$0001
BRA L044A18
L044A12 PLA
PHA
JSL L041993
L044A18 PHA
LDA L044A2B
PHA
PEI $A8
PEI $A6
JSL L042748
RTS
L044A26 PLA
PLY
PLA
PLY
RTS
L044A2B DB $00
DB $00
L044A2D ENT
PHP
REP #$30
LDA #$FE40
STA $BA
JSR L0424AF
BRA L044A3D
L044A3A JSR L0424F2
L044A3D BCS L044A6E
LDY #$0006
LDA [$A2],Y
EOR $42
BNE L044A3A
DEY
DEY
LDA [$A2],Y
PHY
JSL L0416F3
PLY
EOR [$A2],Y
BEQ L044A3A
LDA [$A2],Y
PHA
LDY #$0008
LDA [$A2],Y
BNE L044A61
INC
L044A61 PHA
PEA $6000
JSL L041015
JSR L043636
BCC L044A3A
L044A6E PLP
CLC
RTL
L044A71 ENT
PHB
PHK
PLB
PHP
REP #$30
PEA $0000
PEI $3E
PEA $6000
JSL L041015
LDA #$FE40
STA $BA
JSR L0424AF
BRA L044A9F
L044A8D PLA
STA $A2
PLA
STA $A4
PLA
STA $9A
PLA
STA $9C
PLA
STA $BA
L044A9C JSR L0424F2
L044A9F BCS L044B17
LDY #$0006
LDA [$A2],Y
STA $BE
EOR $42
BNE L044A9C
PEI $BA
PEI $9C
PEI $9A
PEI $A4
PEI $A2
DEY
DEY
LDA [$A2],Y
STA $BC
JSL L0410BB
BIT #$8000
BEQ L044AE0
LDA #$E020
STA $BA
JSR L04250E
BCS L044AD4
LDA $BC
JSR L042FF8
L044AD4 PHY
LDA $03,S
STA $A2
LDA $05,S
STA $A4
PLA
BCC L044AF7
L044AE0 LDA $BC
JSL L041719
LDY #$0004
LDA [$A2],Y
TAY
LDA [$3A],Y
AND #$00FF
JSL L04037A
INY
TYA
L044AF7 LDY #$0008
STA [$A2],Y
PEI $BC
PHA
LDX #$4000
LDY #$0002
LDA [$A2],Y
AND #$001F
BEQ L044B0F
LDX #$6000
L044B0F PHX
JSL L041058
BRL L044A8D
L044B17 PLP
PLB
CLC
RTL
L044B1B ENT
PHB
PHK
PLB
PHP
REP #$30
PHY
PHX
LDA $C7
BEQ L044B41
LDA $01,S
ORA $03,S
BNE L044B32
PLX
PLY
BRL L044BCA
L044B32 LDA $C8
PHA
LDA $C6
PHA
_DisposeHandle
STZ $C7
L044B41 LDA $01,S
ORA $03,S
BNE L044B4B
PLX
PLY
BRA L044B59
L044B4B PLX
PLY
STX L044BFC
STY L044BFC+2
STX L044C26
STY L044C26+2
L044B59 JSL GSOS
DW $2006 ; GetFileInfo
ADRL L044BFA
BCS L044BCA
LDY L044C1E+2
STY L044C32+2
LDX L044C1E
STX L044C32
PHA
PHA
PHY
PHX
PEI $FC
PEA $8008
PHA
PHA
_NewHandle
PLX
PLY
BCS L044BCA
STY $C8
STX $C6
PHB
PHY
PLB
LDA |$0000,X
STAL L044C2E
LDA |$0002,X
STAL L044C2E+2
PLB
PLB
JSL GSOS
DW $2010 ; Open
ADRL L044C22
BCS L044BDC
LDA L044C24
STA L044C2C
STA L044C3C
JSL GSOS
DW $2012 ; Read
ADRL L044C2A
BCS L044BD9
LDA #$0008
LDY #$0004
STA [$C6],Y
JSR L044BCE
L044BCA PLP
PLB
CLC
RTL
L044BCE JSL GSOS
DW $2014 ; Close
ADRL L044C3A
RTS
L044BD9 JSR L044BCE
L044BDC PEI $C8
PEI $C6
_DisposeHandle
STZ $C8
STZ $C6
BRA L044BCA
L044BED STRL '9:TFBD.Data'
L044BFA DW $0009 ; Parms for GetFileInfo
L044BFC ADRL L044BED ; file name
DW $0000 ; access
DW $0000 ; file type
ADRL $00000000 ; aux type
DW $0000 ; storage
DS 8 ; creation date
DS 8 ; modification date
ADRL $00000000 ; option list
L044C1E ADRL $00000000 ; end of file
L044C22 DW $0002 ; Parms for Open
L044C24 DW $0000 ; ref num
L044C26 ADRL L044BED ; path name
L044C2A DW $0004 ; Parms for Read
L044C2C DW $0000 ; ref num
L044C2E ADRL $00000000 ; buffer ptr
L044C32 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L044C3A DW $0001 ; Parms for Close
L044C3C DW $0000 ; ref num
L044C3E ENT
PHP
REP #$30
JSR L044C50
BCS L044C4D
LDY $CC
LDA $CA
PLP
CLC
RTL
L044C4D PLP
SEC
RTL
L044C50 PHP
REP #$30
LDA $C8
ORA $C6
BEQ L044C6F
LDY #$0002
LDA [$C6],Y
STA $CC
LDA [$C6]
STA $CA
ORA $CC
BEQ L044C6B
PLP
CLC
RTS
L044C6B STZ $C6
STZ $C8
L044C6F PLP
SEC
RTS
L044C72 ENT
PHP
REP #$30
JSR L044C50
BCC L044C7D
BRL L044CB4
L044C7D PEI $CC
PEI $CA
TSC
INC
PHD
TCD
LDY #$0004
LDA [$00],Y
CLC
ADC $00
STA $00
BCC L044C93
INC $02
L044C93 LDY #$0000
L044C96 LDA [$00],Y
BEQ L044CB1
CMP $0C
BNE L044CA1
BRL L044CF0
L044CA1 INY
INY
LDA [$00],Y
AND #$00FF
INC
PHY
CLC
ADC $01,S
PLY
TAY
BRA L044C96
L044CB1 PLD
PLA
PLA
L044CB4 PEA ^L044D2A
PEA L044D2A
LDA $0B,S
STA $A8
PHA
LDA $0B,S
STA $A6
PHA
JSL L0307DD
LDA [$A6]
AND #$00FF
TAY
LDA $09,S
PHA
PHY
XBA
JSL L030837
PLY
INY
STA [$A6],Y
INY
PLA
PHY
JSL L030837
PLY
INY
STA [$A6],Y
INY
SEP #$30
TYA
STA [$A6]
REP #$30
BRA L044D19
L044CF0 INY
INY
TYA
CLC
ADC $00
STA $00
BCC L044CFC
INC $02
L044CFC PLD
LDA $0B,S
STA $A8
PHA
LDA $0B,S
STA $A6
PHA
SEP #$30
LDA [$A6]
INC
STA [$A6]
TAY
LDA #$DF
STA [$A6],Y
REP #$30
JSL L0307DD
L044D19 LDA $03,S
STA $09,S
LDA $01,S
STA $07,S
TSC
CLC
ADC #$0006
TCS
PLP
CLC
RTL
L044D2A STR "Tool $"
L044D31 PHP
REP #$30
JSR L044C50
BCS L044D55
LDY $BE
LDA #$0003
CPY #$00E1
BEQ L044D58
INC
CPY #$00E0
BEQ L044D58
INC
CPY #$0001
BEQ L044D58
INC
CPY #$0000
BEQ L044D58
L044D55 PLP
SEC
RTS
L044D58 ASL
TAY
LDA [$CA],Y
ADC $CA
STA $CA
BCC L044D64
INC $CC
L044D64 LDY #$0000
L044D67 LDA [$CA],Y
BEQ L044D55
CMP $BC
BEQ L044D94
BCS L044D82
INY
INY
LDA [$CA],Y
AND #$7FFF
DEY
DEY
CLC
ADC [$CA],Y
DEC
CMP $BC
BCS L044D94
L044D82 INY
INY
INY
INY
LDA [$CA],Y
AND #$00FF
INC
PHY
CLC
ADC $01,S
PLY
TAY
BRA L044D67
L044D94 TYA
CLC
ADC $CA
STA $CA
BCC L044D9E
INC $CC
L044D9E PEI $CC
CLC
LDA $CA
ADC #$0004
PHA
BCC L044DAE
LDA $03,S
INC
STA $03,S
L044DAE PEI $A8
PEI $A6
JSL L0307DD
LDY #$0002
LDA [$CA],Y
ORA #$8000
STA [$CA],Y
LDA [$CA]
SEC
SBC $BC
BEQ L044DDE
EOR #$FFFF
INC
PHA
SEP #$30
LDA [$A6]
INC
STA [$A6]
TAY
LDA #$AB
STA [$A6],Y
REP #$30
PLA
JSR L042953
L044DDE PLP
CLC
RTS
L044DE1 PHP
REP #$30
JSR L044C50
BCC L044DEB
PLP
RTS
L044DEB LDA #$0003
L044DEE STA L044E34
ASL
ADC #$0006
TAY
PHD
PEI $CC
LDA [$CA],Y
ADC $CA
PHA
BCC L044E05
LDA $03,S
INC
STA $03,S
L044E05 TSC
INC
TCD
LDY #$0000
L044E0B LDA [$00],Y
BEQ L044E29
INY
INY
LDA [$00],Y
AND #$7FFF
STA [$00],Y
INY
INY
LDA [$00],Y
AND #$00FF
INC
PHA
TYA
CLC
ADC $01,S
PLY
TAY
BRA L044E0B
L044E29 PLA
PLA
PLD
LDA L044E34
DEC
BPL L044DEE
PLP
RTS
L044E34 DB $00
DB $00
L044E36 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0006
JSR L041ED9
LDA L041ABC
STA $C2
LDA L041ABE
STA $BC
CLC
ADC $C2
DEC
STA $C0
LDA L041AC0
STA $BE
LDA #$E060
STA $BA
JSR L0424AF
BRA L044E64
L044E61 JSR L0424F2
L044E64 BCS L044E96
LDY #$0006
LDA [$A2],Y
EOR $BE
BNE L044E61
DEY
DEY
LDA [$A2],Y
CMP $C0
BEQ L044E79
BCS L044E61
L044E79 CMP $BC
BCC L044E61
PEI $BE
PEI $BC
PEI $C2
PEI $C0
JSR L043667
PLA
STA $C0
PLA
STA $C2
PLA
STA $BC
PLA
STA $BE
BRA L044E61
L044E96 LDA $BE
CMP $42
BNE L044EA7
PEI $BC
PEI $C2
PEA $141F
JSL L041015
L044EA7 CLC
BRL L041F34
L044EAB ENT
PHB
PHK
PLB
PHP
REP #$30
STZ L044F83
LDA #$E020
L044EB7 STA $BA
STZ L044F85
JSR L0424AF
BRA L044EC4
L044EC1 JSR L0424F2
L044EC4 BCS L044F38
LDA [$A2]
CMP #$FFFF
BNE L044F33
LDY #$0002
LDA [$A2],Y
EOR $BA
AND #$00E0
BNE L044F33
LDA $BA
AND #$00FF
LSR
LSR
LSR
LSR
TAX
LDA [$A2],Y
AND #$001F
CMP L044F87,X
BCS L044F33
INY
LDA [$A2],Y
AND #$00FF
BEQ L044F29
LDY #$000C
LDA [$A2],Y
TAX
INY
INY
LDA [$A2],Y
TAY
BNE L044F05
TXA
BEQ L044F33
L044F05 PHB
PHY
PLB
LDA |$0002,X
TAY
LDA |$0000,X
PLB
PLB
TAX
BNE L044F17
TYA
BEQ L044F33
L044F17 PHB
PHY
PLB
LDA |$0000,X
PLB
PLB
LDY #$0003
EOR [$A2],Y
AND #$00FF
BNE L044F33
L044F29 JSR L044F64
BCS L044F33
INC L044F85
BRA L044EC1
L044F33 JSR L043636
BRA L044EC1
L044F38 LDA $BA
PHA
AND #$00FF
LSR
LSR
LSR
LSR
TAX
LDA L044F85
STA $82,X
CLC
ADC L044F83
STA L044F83
PLA
ADC #$0020
CMP #$E080
BCS L044F5B
BRL L044EB7
L044F5B LDA L044F83
STA $82
PLP
PLB
CLC
RTL
L044F64 LDY #$0002
LDA [$A2],Y
PHA
AND #$00E0
LSR
LSR
LSR
LSR
TAX
LDA L044F8F,X
TAX
PLA
AND #$001F
ASL
PHX
ADC $01,S
PLX
TAX
JMP ($0000,X)
L044F83 DB $00
DB $00
L044F85 DB $00
DB $00
L044F87 DB $00
DB $00
DB $11
DB $00
DB $06
DB $00
DB $07
DB $00
L044F8F DA $0000
DA L044F97
DA L044FB9
DA L044FC5
L044F97 DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
DA L044FF2
L044FB9 DA L044FF9
DA L044FF9
DA L044FF9
DA L04500A
DA L04501F
DA L04500A
L044FC5 DA L04505C
DA L045048
DA L045062
DA L044FFE
DA L04506B
DA L045021
DA L04505C
L044FD3 LDY #$000E
LDA [$A2],Y
DEY
DEY
ORA [$A2],Y
CMP #$0001
RTS
L044FE0 JSR L044FD3
BCS L045046
JSR L044FE9
RTS
L044FE9 LDY #$000A
LDA [$A2],Y
CMP #$0001
RTS
L044FF2 JSR L044FE0
BCS L045046
BRA L045028
L044FF9 JSR L044FE9
L044FFC BCS L045046
L044FFE LDY #$0008
LDA [$A2],Y
BNE L045028
INC
STA [$A2],Y
BRA L045028
L04500A LDY #$0004
LDA [$A2],Y
BNE L045046
DEY
DEY
LDA [$A2],Y
AND #$FF00
BNE L045046
JSR L044FE9
BCS L045046
L04501F CLC
RTS
L045021 LDY #$000E
LDA [$A2],Y
BNE L045046
L045028 LDY #$0004
L04502B LDA [$A2],Y
TAX
INY
INY
LDA [$A2],Y
TAY
CPY $40
BEQ L045039
BCS L045046
L045039 TYA
EOR $42
BNE L04501F
BIT $5C
BMI L04501F
CPX $3E
BCC L04501F
L045046 SEC
RTS
L045048 LDY #$000C
LDA [$A2],Y
AND #$FFEE
INY
INY
ORA [$A2],Y
BNE L045046
JSR L044FE9
BCC L045028
RTS
L04505C JSR L044FE9
BCC L045028
RTS
L045062 LDY #$000C
JSR L04502B
BCC L044FFE
RTS
L04506B JSR L044FD3
BCS L045046
LDY #$000A
LDA [$A2],Y
AND #$FF00
CMP #$0001
BCC L045028
RTS
L04507E ENT
PHP
REP #$20
CMP #$0001
ROR $CE
PLP
CLC
RTL
L045089 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA L041ABE
STA L045170
LDA L041ABC
STA L04516E
LDX L041AC2
STX $BE
LDA L041AC0
STA $BC
STZ $C4
CPX $42
BEQ L0450B5
SEC
BRL L041F34
L0450B5 JSL L0410BB
STA L04516C
BIT #$1800
BNE L0450CE
TAX
AND #$8080
CMP #$0080
BNE L0450CE
L0450CA SEC
BRL L041F34
L0450CE TXA
BIT #$1000
BEQ L0450E3
JSR L044019
BCC L0450F7
JSR L044017
BCC L04512B
JSR L04404D
BCC L045130
L0450E3 LDA L04516C
BIT #$0800
BEQ L0450F0
JSR L04517C
BCC L0450F7
L0450F0 JSR L0454D9
BCS L0450CA
BRA L0450FA
L0450F7 LDX #$0000
L0450FA STX L045172
STA L045178
STY L04517A
LDA $C4
SEP #$30
STA L045176
REP #$30
XBA
AND #$00FF
BIT #$0080
BEQ L045118
ORA #$FF00
L045118 CLC
ADC L045178
STA L045178
LDA $C2
STA L045174
JSR L04513B
CLC
BRL L041F34
L04512B LDX #$0003
BRA L0450FA
L045130 CLC
TYA
ADC $BC
LDY $42
LDX #$0002
BRA L0450FA
L04513B PHD
LDA L045170
PHA
LDA L04516E
PHA
TSC
TCD
LDA L045172
STA [$01]
LDY #$0002
LDA L045174
STA [$01],Y
INY
INY
LDA L045176
STA [$01],Y
INY
INY
LDA L045178
STA [$01],Y
INY
INY
LDA L04517A
STA [$01],Y
PLA
PLA
PLD
RTS
L04516C DB $00
DB $00
L04516E DB $00
DB $00
L045170 DB $00
DB $00
L045172 DB $00
DB $00
L045174 DB $00
DB $00
L045176 DB $00
DB $00
L045178 DB $00
DB $00
L04517A DB $00
DB $00
L04517C PHP
REP #$30
LDA $AB
BNE L045186
L045183 PLP
SEC
RTS
L045186 LDY #$0002
LDA [$AA]
TAX
LDA [$AA],Y
TAY
BNE L045194
TXA
BEQ L045183
L045194 STX $AE
STY $B0
L045198 LDA [$AE]
INC $AE
BNE L0451A0
INC $B0
L0451A0 AND #$00FF
BEQ L045183
CMP #$00E0
BCS L0451B8
CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
BRA L045198
L0451B8 ASL
TAX
JMP (L0451BD-$1C0,X)
L0451BD DA L0451FD
DA L0451FD
DA L045212
DA L045262
DA L0451FD
DA L0451FD
DA L0451FD
DA L0453FD
DA L0451FD
DA L0451FD
DA L0451FD
DA L0453CF
DA L0453CF
DA L0453CF
DA L0453B5
DA L0451FD
DA L0453FD
DA L0451FD
DA L0451FD
DA L0453CF
DA L0451FD
DA L04523A
DA L045290
DA L0452C1
DA L0451FD
DA L0451FD
DA L0451FD
DA L0451FD
DA L0451FD
DA L0451FD
DA L0451FD
DA L0451FD
L0451FD PLP
SEC
RTS
L045200 PLP
CLC
RTS
L045203 CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
BRL L045198
L045212 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L045220
LDA #$000A
BRA L045203
L045220 SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$0006
LDA [$AE],Y
LDY $BE
BRA L045200
L04523A LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L045248
LDA #$0006
BRA L045203
L045248 SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$0004
LDA [$AE],Y
LDY $BE
BRA L045200
L045262 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L045270
LDA #$000E
BRA L045203
L045270 SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$000A
LDA [$AE],Y
PHA
DEY
DEY
LDA [$AE],Y
TAY
PLA
BRL L045200
L045290 LDY #$0002
LDA [$AE],Y
CMP $BC
BEQ L04529F
LDA #$0007
BRL L045203
L04529F SEP #$20
DEY
LDA [$AE],Y
STA $C4
REP #$20
DEY
LDA [$AE],Y
AND #$00FF
STA $C2
LDY #$0005
LDA [$AE],Y
PHA
DEY
LDA [$AE],Y
AND #$00FF
TAY
PLA
BRL L045200
L0452C1 LDA [$AE]
DEC
STA L0453AF
LDA #$FF00
STA L0453B1
LDY #$0002
LDA [$AE],Y
BEQ L0452D7
BRL L045183
L0452D7 LDY #$0004
LDA [$AE],Y
AND #$00FF
STA L0453B3
LDA #$0005
CLC
ADC $AE
STA $AE
LDA #$0000
ADC $B0
STA $B0
L0452F1 DEC L0453AF
BPL L0452F9
BRL L045198
L0452F9 LDA [$AE]
INC $AE
BNE L045301
INC $B0
L045301 AND #$00FF
CMP #$0080
BCC L045316
AND #$007F
XBA
CLC
ADC L0453B1
STA L0453B1
BRA L0452F1
L045316 SEP #$20
INC L0453B2
REP #$20
TAX
L04531E DEC L0453AF
LDA [$AE]
INC $AE
BNE L045329
INC $B0
L045329 AND #$00FF
CLC
ADC L0453B1
CMP $BC
BEQ L045339
DEX
BPL L04531E
BRA L0452F1
L045339 LDX #$0002
STX $C2
TAY
LDA L0453B3
CMP #$001A
BCS L04539B
CMP #$000E
BCS L045389
CMP #$0002
BCS L045372
CMP #$0001
BEQ L045363
SEP #$20
STZ $C4
REP #$20
LDA [$3A],Y
LDY $BE
BRL L045200
L045363 SEP #$20
STZ $C4
REP #$20
INC $C2
LDA [$3A],Y
LDY $BE
BRL L045200
L045372 SEP #$20
STZ $C4
REP #$20
INC $C2
LDA [$3A],Y
PHA
INY
INY
LDA [$3A],Y
AND #$00FF
TAY
PLA
BRL L045200
L045389 SBC #$000D
PHA
SEP #$20
STZ $C4
REP #$20
INC $C2
LDA [$3A],Y
PLY
BRL L045200
L04539B SBC #$0019
PHA
SEP #$20
LDA #$F0
STA $C4
REP #$20
INC $C2
LDA [$3A],Y
PLY
BRL L045200
L0453AF DB $00
DB $00
L0453B1 DB $00
L0453B2 DB $00
L0453B3 DB $00
DB $00
L0453B5 LDA [$AE]
AND #$00FF
STA $C2
LDY #$0005
LDA [$AE],Y
PHA
LDA #$0007
JSR L0453F3
PLA
CMP $BC
BEQ L04543D
BRA L04541B
L0453CF LDA [$AE]
PHA
LDY #$0002
LDA [$AE],Y
AND #$00FF
STA $C2
TYA
INC
JSR L0453F3
PLA
CMP $BC
BEQ L04543D
BRA L04541B
L0453E8 LDA #$0004
BRA L0453F3
L0453ED LDA [$AE]
AND #$00FF
INC
L0453F3 CLC
ADC $AE
STA $AE
BCC L0453FC
INC $B0
L0453FC RTS
L0453FD JSR L0453ED
JSR L0453E8
BRA L04541B
L045405 DA L0453E8
DA L0453ED
DA L0453ED
DA L0453ED
DA L0453ED
DA L0453ED
DA L0453E8
L045413 LDA L0454D5
LDY $42
PLP
CLC
RTS
L04541B LDA [$AE]
INC $AE
BNE L045423
INC $B0
L045423 AND #$00FF
BNE L04542B
BRL L045198
L04542B CMP #$0080
BCC L04541B
AND #$007F
BEQ L04541B
DEC
ASL
TAX
JSR (L045405,X)
BRA L04541B
L04543D LDA [$AE]
AND #$00FF
CMP #$0080
BCC L04541B
INC $AE
BNE L04544D
INC $B0
L04544D AND #$007F
BEQ L045461
DEC
BEQ L04545A
CMP #$0006
BNE L045485
L04545A LDA [$AE]
STA L0454D5
BRA L045493
L045461 LDA $BC
STA L0454D5
L045466 LDA [$AE]
INC $AE
BNE L04546E
INC $B0
L04546E AND #$00FF
BEQ L045413
CMP #$0080
BCC L045498
AND #$007F
BEQ L04548E
DEC
BEQ L04548A
CMP #$0006
BEQ L04548A
L045485 JSR L0453ED
L045488 BRA L04541B
L04548A LDA [$AE]
BRA L045490
L04548E LDA $BC
L045490 STA L0454D7
L045493 JSR L0453E8
BRA L045466
L045498 CMP #$0008
BCS L045488
DEC
ASL
TAX
JMP (L0454C7,X)
L0454A3 SEP #$20
LDA L0454D7
STA $C5
REP #$20
BRA L045466
L0454AE SEP #$20
LDA L0454D7
EOR #$FF
INC
STA $C5
REP #$20
BRA L045466
L0454BC SEP #$20
LDA L0454D7
STA $C4
REP #$20
BRA L045466
L0454C7 DA L0454A3
DA L0454AE
DA L04541B
DA L04541B
DA L04541B
DA L04541B
DA L0454BC
L0454D5 DB $00
DB $00
L0454D7 DB $00
DB $00
L0454D9 LDA $BC
JSL L041993
STA $C2
LDA $BC
JSL L0410BB
ASL
BCS L045508
LDA $BC
JSL L0416F3
TAY
LDA [$3A],Y
AND #$001F
STA L045527
ASL
TAX
LDA [$3A],Y
LSR
LSR
LSR
LSR
LSR
AND #$0007
JMP (L045529,X)
L045508 JSR L0442E7
STY L045683
STA L045681
LDX $C2
CPX #$0002
BCC L045522
JSR L0455F8
CPX #$0000
BNE L045522
CLC
RTS
L045522 LDX #$0005
CLC
RTS
L045527 DB $00
DB $00
L045529 DA L04559F
DA L04559D
DA L0455B8
DA L04559D
DA L04556B
DA L04559D
DA L04559D
DA L04559D
DA L045569
DA L04559D
DA L045569
DA L045569
DA L0455D4
DA L045633
DA L045633
DA L04564F
DA L045668
DA L04559D
DA L04559D
DA L04559D
DA L04556B
DA L04559D
DA L04559D
DA L04559D
DA L045569
DA L045633
DA L045569
DA L045569
DA L04561F
DA L045633
DA L045633
DA L04564F
L045569 SEC
RTS
L04556B CMP #$0002
BNE L04558F
SEP #$20
LDA #$F0
STA $C4
STZ $C5
REP #$20
LDA #$0001
STA $C2
LDY $BC
LDA [$3A],Y
AND #$00FF
TAY
LDA #$0000
LDX #$0003
CLC
RTS
L04558F INY
LDA [$3A],Y
AND #$00FF
LDY #$0000
LDX #$0004
CLC
RTS
L04559D SEC
RTS
L04559F CMP #$0005
BCS L04559D
CMP #$0001
BEQ L0455DE
CMP #$0000
BEQ L04558F
CMP #$0004
BNE L0455B6
BRL L045668
L0455B6 SEC
RTS
L0455B8 CMP #$0000
BEQ L04558F
CMP #$0001
BNE L0455C5
BRL L04564F
L0455C5 CMP #$0002
BEQ L04558F
CMP #$0005
BCS L0455D2
BRL L045662
L0455D2 BCS L04559D
L0455D4 CMP #$0002
BEQ L0455DE
CMP #$0003
BNE L045633
L0455DE INY
LDA [$3A],Y
STA L045681
PEI $42
DEY
PHY
PEA ^L042A5C
PEA L042A5C
LDX #$0004
JSL L041F18
STY L045683
L0455F8 LDY L045683
LDA L045681
PHY
PHA
PEA ^L042ABB
PEA L042ABB
LDX #$0004
JSL L041F18
BCS L045614
LDX #$0001
CLC
RTS
L045614 LDY L045683
LDA L045681
LDX #$0003
CLC
RTS
L04561F CMP #$0002
BEQ L04564F
CMP #$0003
BEQ L0455DE
CMP #$0006
BEQ L0455DE
CMP #$0007
BEQ L0455DE
L045633 INY
LDA [$3A],Y
STA L045681
PEI $42
DEY
PHY
PEA ^L042F5B
PEA L042F5B
LDX #$0004
JSL L041F18
STA L045683
BRA L0455F8
L04564F INY
LDA [$3A],Y
STA L045681
INY
INY
LDA [$3A],Y
AND #$00FF
STA L045683
BRL L0455F8
L045662 INY
LDA [$3A],Y
INC
BRA L045677
L045668 INY
LDA #$0000
SEP #$20
LDA [$3A],Y
REP #$20
BPL L045677
ORA #$FF00
L045677 SEC
ADC $BC
LDY $42
LDX #$0001
CLC
RTS
L045681 DB $00
DB $00
L045683 DB $00
DB $00
L045685 PHP
REP #$30
LDA #$E040
STA $BA
JSR L0424AF
BRA L045695
L045692 JSR L0424F2
L045695 BCS L0456A3
LDY #$000E
LDA [$A2],Y
AND #$7FFF
STA [$A2],Y
BRA L045692
L0456A3 PLP
CLC
RTS
L0456A6 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0002
JSR L041ED9
LDA L041ABC
STA $BE
STZ L045863
LDA #$E040
STA $BA
JSR L0424AF
BRA L0456C7
L0456C4 JSR L0424F2
L0456C7 BCS L04572F
LDY #$000E
LDA [$A2],Y
BPL L0456C4
LDY #$0002
LDA [$A2],Y
AND #$001F
BEQ L045723
CMP #$0003
BCS L0456EA
LDY #$0006
LDA [$A2],Y
CMP $BE
BEQ L045723
BRA L045707
L0456EA LDX L045863
INX
INX
INX
LDY #$0006
LDA [$A2],Y
BEQ L0456F9
INX
INX
L0456F9 DEY
DEY
LDA [$A2],Y
AND #$FF00
BEQ L045704
INX
INX
L045704 STX L045863
L045707 LDY #$0003
LDA [$A2],Y
AND #$00FF
BEQ L045723
ADC #$0007
ADC L045863
CMP #$FF00
BCS L04572F
STA L045863
BCC L0456C4
BRA L04572F
L045723 LDY #$000E
LDA [$A2],Y
AND #$7FFF
STA [$A2],Y
BRA L0456C4
L04572F STZ L045867
STZ L045869
STZ L045865
LDY #$0000
LDX L045863
BNE L045743
BRL L0457C8
L045743 LDA #$8008
JSR L041C50
BCC L04574E
BRL L0457CC
L04574E STX L045867
STY L045869
PHB
PHY
PLB
LDA |$0000,X
STA $A6
LDA |$0002,X
STA $A8
PLB
PLB
JSR L0424AF
BRA L04576B
L045768 JSR L0424F2
L04576B BCS L0457AE
LDY #$000E
LDA [$A2],Y
BPL L045768
JSR L041EA4
BCS L045768
LDY #$0002
LDA [$A2],Y
AND #$001F
DEC
ASL
ASL
TAX
LDY L045865
CMP #$000C
BCC L04579A
PHX
JSR L0457E4
PLX
JSR L0457CF
JSR L0457FF
BRA L0457A0
L04579A JSR L0457CF
JSR L0457E4
L0457A0 SEP #$20
LDA #$8D
STA [$A6],Y
INY
REP #$20
STY L045865
BRA L045768
L0457AE LDX L045867
LDY L045869
PHY
PHX
PEA $0000
LDA L045865
PHA
PHY
PHX
_SetHandleSize
PLX
PLY
L0457C8 CLC
LDA L045865
L0457CC JMP L041F34
L0457CF LDA #$00A0
STA [$A6],Y
INY
LDA L04586B,X
STA [$A6],Y
INY
INY
LDA L04586B+2,X
STA [$A6],Y
INY
INY
RTS
L0457E4 SEP #$20
LDA [$B6]
STA L045861
LDX #$0001
L0457EE PHY
TXY
LDA [$B6],Y
PLY
STA [$A6],Y
INX
INY
DEC L045861
BNE L0457EE
REP #$20
RTS
L0457FF PHY
LDY #$0006
LDA [$A2],Y
PHA
PHA
PHA
_HexIt
PLA
PLA
ORA #$8080
STA L04585B
LDY #$0004
LDA [$A2],Y
PHA
PHA
PHA
_HexIt
PLA
ORA #$8080
STA L04585D
PLA
ORA #$8080
STA L04585F
PLY
LDA #$00A4
STA [$A6],Y
INY
LDA L04585B
CMP #$B0B0
BEQ L045847
STA [$A6],Y
INY
INY
L045847 LDA L04585D
CMP #$B0B0
BEQ L045853
STA [$A6],Y
INY
INY
L045853 LDA L04585F
STA [$A6],Y
INY
INY
RTS
L04585B DB $00
DB $00
L04585D DB $00
DB $00
L04585F DB $00
DB $00
L045861 DB $00
DB $00
L045863 DB $00
DB $00
L045865 DB $00
DB $00
L045867 DB $00
DB $00
L045869 DB $00
DB $00
L04586B ASC "EXT "
ASC "EXT "
ASC "EXD "
ASC "EQU "
ASC "EQU "
ASC "EQU "
ASC "EQU "
L045887 ENT
PHB
PHK
PLB
PHP
REP #$30
LDX #$0008
JSR L041ED9
LDA L041ABC
STA $A6
LDA L041ABE
STA $A8
LDA L041AC0
STA L045913
LDY L041AC2
STY L045911
PHY
INC
PHA
PEA ^L045915
PEA L045915
PEA ^L045089
PEA L045089
LDX #$0008
JSL L041F18
JSR L0458F4
LDY L045911
PHY
LDA L045913
PHA
PEA ^L045915
PEA L045915
PEA ^L045089
PEA L045089
LDX #$0008
JSL L041F18
JSR L0458E4
CLC
JMP L041F34
L0458E4 LDA [$A6]
AND #$00FF
TAY
SEP #$20
LDA #$AC
INY
STA [$A6],Y
TYA
STA [$A6]
L0458F4 REP #$20
LDA #$0003
STA $C2
LDY L04591D
LDA L04591B
LDX L045915
CPX #$0003
BCS L04590D
JSR L043AFF
RTS
L04590D JSR L04433D
RTS
L045911 DB $00
DB $00
L045913 DB $00
DB $00
L045915 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04591B DB $00
DB $00
L04591D DB $00
DB $00
L04591F LDX #$0000
HEX CF
L045923 LDX #$0006
LDA $AE
STA L045A67
LDA $B0
STA L045A69
LDA L04594D,X
TAY
LDA [$AE],Y
STA L045A73
STZ L045A75
LDA L04594F,X
TAY
LDA [$AE],Y
AND #$00FF
STA L045A71
LDA L045951,X
BRA L045989
L04594D DB $00
DB $00
L04594F DB $01
DB $00
L045951 DB $03
DB $00
DB $05
DB $00
DB $00
DB $00
DB $07
DB $00
L045959 LDA L045A67
STA $AE
LDA L045A69
STA $B0
SEP #$40
CLC
RTS
L045967 BIT L045A6D
BPL L045959
LDA L045A7D
BNE L045959
SEP #$20
LDA L045A6F
STA $C4
STZ $C5
REP #$20
LDA L045A71
STA $C2
LDA L045A7B
LDY $42
CLV
CLC
RTS
L045989 STZ L045A6D
STZ L045A6F
STZ L045A79
STZ L045A7F
L045995 CLC
ADC $AE
STA $AE
BCC L04599E
INC $B0
L04599E LDA [$AE]
INC $AE
BNE L0459A6
INC $B0
L0459A6 AND #$00FF
BEQ L045967
CMP #$0080
BCC L045A1C
AND #$007F
CMP #$0008
BCC L0459BD
JSR L045959
SEC
RTS
L0459BD ASL
TAX
JMP (L0459C2,X)
L0459C2 DA L0459D2
DA L0459E9
DA L045959
DA L045959
DA L045959
DA L045959
DA L045959
DA L0459E3
L0459D2 LDX L045A73
LDY L045A75
STZ L045A6B
LDA #$FFFF
STA L045A6D
BRA L0459F8
L0459E3 LDA #$FFFF
STA L045A6D
L0459E9 LDA [$AE]
TAX
LDY #$0002
LDA [$AE],Y
TAY
LDA #$0004
STA L045A6B
L0459F8 BIT L045A79
BPL L045A0E
STX L045A81
STY L045A83
LDA #$FFFF
STA L045A7F
L045A09 LDA L045A6B
BRA L045995
L045A0E STX L045A7B
STY L045A7D
LDA #$FFFF
STA L045A79
BRA L045A09
L045A1C BIT L045A7F
BMI L045A24
L045A21 BRL L045959
L045A24 CMP #$0007
BEQ L045A5F
CMP #$0001
BEQ L045A46
CMP #$0002
BNE L045A21
SEC
LDA #$0000
SBC L045A81
STA L045A81
LDA #$0000
SBC L045A83
STA L045A83
L045A46 CLC
LDA L045A81
ADC L045A7B
STA L045A7B
LDA L045A83
ADC L045A7D
STA L045A7D
L045A59 STZ L045A7F
BRL L04599E
L045A5F LDA L045A81
STA L045A6F
BRA L045A59
L045A67 DB $00
DB $00
L045A69 DB $00
DB $00
L045A6B DB $00
DB $00
L045A6D DB $00
DB $00
L045A6F DB $00
DB $00
L045A71 DB $00
DB $00
L045A73 DB $00
DB $00
L045A75 DB $00
DB $00
DB $00
DB $00
L045A79 DB $00
DB $00
L045A7B DB $00
DB $00
L045A7D DB $00
DB $00
L045A7F DB $00
DB $00
L045A81 DB $00
DB $00
L045A83 DB $00
DB $00
Reference in New Issue View Git Blame Copy Permalink