Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-04 04:31:04 +00:00
Code Issues Projects Releases Wiki Activity
11281a73f6
antoine-source/rsounder/RSOUNDER.S
Antoine Vignau fb2ef37310 rSounder 3.1 
with some updates
2024-02-27 17:30:21 +01:00

24832 lines
527 KiB
ArmAsm
Raw Blame History

*
* rSounder
* (c) 1995, Paul Benson
* (s) 2024, Brutal Deluxe Software
*
*
* v3.1: align a sound on a page
* removed (c) suffix on sound data
mx %00
rel
*-----------------------------------
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Event.Macs
use 4/Font.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/List.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/MIDISyn.Macs
use 4/Misc.Macs
use 4/Print.Macs
use 4/Qd.Macs
use 4/QdAux.Macs
use 4/Resource.Macs
use 4/Sane.Macs
use 4/Scrap.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/TextEdit.Macs
use 4/Util.Macs
use 4/Window.Macs
use RSOUNDER.X.S
*-----------------------------------
GSOS EQU $E100A8
*-----------------------------------
JSL L02CBA4
PEA >L030000
PLB
PLB
JSL L02AE9C
JSL L0246A5
JSL L02AE93
L020015 TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDA #$8000
STAL L03001B
LDA #$0000
STAL L030019
STAL L03000D
STAL L030015
PHA
PHA
_SetMenuBar
STAL L02B111
_InitCursor
STAL L02B111
PEA $00FF
_DisableMItem
STAL L02B111
PEA $0104
_DisableMItem
STAL L02B111
PEA $0112
_DisableMItem
STAL L02B111
PEA $0115
_DisableMItem
STAL L02B111
PEA $0113
_DisableMItem
STAL L02B111
PEA $0114
_DisableMItem
STAL L02B111
PEA $010E
_DisableMItem
STAL L02B111
PEA $0109
_DisableMItem
STAL L02B111
PEA $010A
_DisableMItem
STAL L02B111
PEA $0108
_DisableMItem
STAL L02B111
PEA $010B
_DisableMItem
STAL L02B111
PEA $0119
_DisableMItem
STAL L02B111
PEA $010C
_DisableMItem
STAL L02B111
PEA $010D
_DisableMItem
STAL L02B111
PHA
PHA
PEA $0001
PEA $0001
PEA $0000
_LoadResource
STAL L02B111
PLA
STAL L030031
PLA
STAL L030033
LDAL L030033
PHA
LDAL L030031
PHA
_HLock
STAL L02B111
LDAL L030033
TAX
LDAL L030031
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L03000F
TXA
STAL L030011
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDA [$01]
LDX #$0000
TAY
BPL L020178
DEX
L020178 STAL L030039
TXA
STAL L03003B
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDY #$0002
LDA [$01],Y
STAL L03000D
PHA
PHA
PEA $8024
PEA $0000
PEA $0001
_LoadResource
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L020201
LDAL L03002B
LDX #$0000
CMP #$0201
BNE L0201CF
INX
L0201CF TXA
CMP #$0000
BEQ L0201DA
LDA #$0001
BRA L0201F0
L0201DA LDAL L03002B
LDX #$0000
CMP #$1E06
BNE L0201E7
INX
L0201E7 TXA
CMP #$0000
BEQ L0201F0
LDA #$0001
L0201F0 TAX
BEQ L0201F6
LDA #$0001
L0201F6 EOR #$0001
BEQ L0201FF
JSL L0250E2
L0201FF BRA L020251
L020201 PEA $0006
PEA $0001
PEA ^L020259
PEA L020259
LDAL L03002F
PHA
LDAL L03002D
PHA
PEA $0000
PEA $0000
_SendRequest
STAL L02B111
PEA $8024
PEA $0000
PEA $0001
_DetachResource
STAL L02B111
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
L020251 PLD
TSC
CLC
ADC #$0004
TCS
RTL
L020259 STR 'Apple~SoundCP~'
DB $00
L020269 TSC
SEC
SBC #$012C
TCS
PHD
TCD
LDAL L030019
AND #$0010
BNE L0202D2
LDAL L030019
ORA #$0010
STAL L030019
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FF8
PEA $800E
_NewWindow2
STAL L02B111
PLA
STAL L03001D
PLA
STAL L03001F
JSL L02AE36
STAL L03002B
TAX
BEQ L0202D2
PEA $0028
JSL L024DB6
L0202D2 LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0006
BCC L0202E2
INX
L0202E2 STA $17
STX $19
LDA [$17]
XBA
AND #$FF00
STA [$17]
LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0006
BCC L0202FE
INX
L0202FE STA $05
STX $07
INC $05
BNE L020308
INC $07
L020308 LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $0010
PEI $07
PEI $05
_SetLETextByID
STAL L02B111
LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0006
BCC L020337
INX
L020337 STA $17
STX $19
LDA [$17]
XBA
AND #$00FF
STA [$17]
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDA [$01]
PHA
PEA ^L020904
PEA L020904
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02AA15
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $0011
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02A628
PHX
PHA
_SetLETextByID
STAL L02B111
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
PEA ^L020907
PEA L020907
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02AA15
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $0012
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02A628
PHX
PHA
_SetLETextByID
STAL L02B111
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDY #$0004
LDA [$01],Y
BEQ L02044E
LDA #$0000
PHA
PHA
PHA
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $000E
_GetCtlHandleFromID
STAL L02B111
_SetCtlValue
STAL L02B111
LDA #$0001
PHA
PHA
PHA
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $000F
_GetCtlHandleFromID
STAL L02B111
_SetCtlValue
STAL L02B111
BRA L0204A6
L02044E LDA #$0001
PHA
PHA
PHA
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $000E
_GetCtlHandleFromID
STAL L02B111
_SetCtlValue
STAL L02B111
LDA #$0000
PHA
PHA
PHA
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $000F
_GetCtlHandleFromID
STAL L02B111
_SetCtlValue
STAL L02B111
L0204A6 LDAL L03001F
PHA
LDAL L03001D
PHA
_ShowWindow
STAL L02B111
LDAL L03001F
PHA
LDAL L03001D
PHA
_SelectWindow
STAL L02B111
L0204D0 LDA #$0000
STA $0D
STA $0F
L0204D7 PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
PEA $0018
_DoModalWindow
STAL L02B111
PLA
STA $0D
PLA
STA $0F
PEI $0F
PEI $0D
LDA #$0013
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L020517
DEY
L020517 TXA
CMP $03,S
BEQ L02051F
LDY #$0000
L02051F PLA
PLA
TYA
BNE L020543
PEI $0F
PEI $0D
LDA #$0014
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L020536
DEY
L020536 TXA
CMP $03,S
BEQ L02053E
LDY #$0000
L02053E PLA
PLA
TYA
BEQ L0204D7
L020543 PEI $0F
PEI $0D
LDA #$0013
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L020555
DEY
L020555 TXA
CMP $03,S
BEQ L02055D
LDY #$0000
L02055D PLA
PLA
TYA
BNE L020565
BRL L0208C8
L020565 STZ $07
TDC
CLC
ADC #$0022
STA $05
INC $05
BNE L020574
INC $07
L020574 LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $0010
PEI $07
PEI $05
_GetLETextByID
STAL L02B111
LDA [$05]
AND #$00FF
LDX #$0000
CLC
ADC $05
STA $09
TXA
ADC $07
STA $0B
L0205A5 LDA [$09]
AND #$00FF
CMP #$002F
BEQ L0205B9
LDA [$09]
AND #$00FF
CMP #$003A
BNE L0205C3
L0205B9 LDA $09
BNE L0205BF
DEC $0B
L0205BF DEC $09
BRA L0205A5
L0205C3 INC $09
BNE L0205C9
INC $0B
L0205C9 SEP #$20
LDA #$00
STA [$09]
REP #$20
LDX $07
LDA $05
INC
BNE L0205D9
INX
L0205D9 STA $09
STX $0B
L0205DD LDA [$09]
AND #$00FF
TAX
BEQ L0205FF
LDA [$09]
AND #$00FF
CMP #$002F
BNE L0205F7
SEP #$20
LDA #$3A
STA [$09]
REP #$20
L0205F7 INC $09
BNE L0205FD
INC $0B
L0205FD BRA L0205DD
L0205FF LDX $0B
LDA $09
SEC
SBC $05
TAY
TXA
SBC $07
TAX
TYA
DEC
STA $22
LDX #$0125
TDC
CLC
ADC #$0022
STA $00,X
STZ $02,X
LDA #$0003
LDX #$0123
STA $00,X
PEA $2006
PEA $0000
TDC
CLC
ADC #$0123
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
LDAL L03002B
BEQ L02064F
JSL L0250E2
LDA #$0000
STA $0D
STA $0F
BRL L0208C8
L02064F LDX #$012B
LDA $00,X
CMP #$000F
BEQ L020684
PEA $0000
PEA $0000
PEA ^L02090A
PEA L02090A
PEA $0000
PEA $0004
JSL L024AEF
LDX #$0000
TAY
BPL L020676
DEX
L020676 STX $0F
STA $0D
LDA #$0000
STA $0D
STA $0F
BRL L0208C8
L020684 PEA $0000
TDC
CLC
ADC #$0024
PHA
LDAL L030011
PHA
LDAL L03000F
CLC
ADC #$0008
BCC L02069F
PLX
INX
PHX
L02069F PHA
JSL L02AB57
LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0006
BCC L0206B4
INX
L0206B4 STA $01
STX $03
LDA $22
STA [$01]
STZ $07
TDC
CLC
ADC #$001B
STA $05
INC $05
BNE L0206CB
INC $07
L0206CB LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $0012
PEA $0000
TDC
CLC
ADC #$001B
PHA
_GetLETextByID
STAL L02B111
PEI $07
PEI $05
JSL L02A60A
AND #$000F
STAL L03000D
PHA
LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0002
BCC L02070F
INX
L02070F STA $01
STX $03
PLA
STA [$01]
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
PEA $0011
PEA $0000
TDC
CLC
ADC #$001B
PHA
_GetLETextByID
STAL L02B111
PEI $07
PEI $05
JSL L02A60A
STAL L030039
TXA
STAL L03003B
LDA L030039
ORA L03003B
BNE L02076A
CLC
LDAL L030039
ADC #$0001
STAL L030039
BCC L02076A
LDAL L03003B
INC
STAL L03003B
L02076A PEA $0000
PEA $FFFA
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L020785
TYA
CMP $01,S
L020785 BEQ L020789
BCS L02078A
L020789 DEX
L02078A PLA
PLA
TXA
BEQ L02079D
LDA #$0000
STAL L03003B
LDA #$FFFA
STAL L030039
L02079D LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDAL L030039
STA [$01]
PHA
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0000
_FindRadioButton
STAL L02B111
PLA
CMP #$0000
BEQ L0207D4
LDA #$0001
BRA L020804
L0207D4 PHA
LDAL L03001F
PHA
LDAL L03001D
PHA
PEA $0001
_FindRadioButton
STAL L02B111
PLA
STA $01
LDA #$0001
TAX
CMP $01
BEQ L0207FA
BCS L0207FB
L0207FA DEX
L0207FB TXA
CMP #$0000
BEQ L020804
LDA #$0001
L020804 PHA
LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0004
BCC L020815
INX
L020815 STA $01
STX $03
PLA
STA [$01]
PEA $0001
PEA $0001
PEA $0001
PEA $0000
_MarkResourceChange
STAL L02B111
LDAL L030019
AND #$0004
BNE L02083F
BRL L0208C8
L02083F LDAL L03003B
PHA
LDAL L030039
PHA
PEA ^L02091E
PEA L02091E
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02AA15
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0009
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02A628
PHX
PHA
_SetLETextByID
STAL L02B111
LDAL L03000D
PHA
PEA ^L020922
PEA L020922
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02AA15
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0006
PEA $0000
TDC
CLC
ADC #$001B
PHA
JSL L02A628
PHX
PHA
_SetLETextByID
STAL L02B111
L0208C8 LDA $0D
ORA $0F
BNE L0208D1
BRL L0204D0
L0208D1 LDAL L03001F
PHA
LDAL L03001D
PHA
_HideWindow
STAL L02B111
_InitCursor
STAL L02B111
LDAL L030019
ORA #$0010
STAL L030019
PLD
TSC
CLC
ADC #$012C
TCS
RTL
L020904 ASC '%d'00
L020907 ASC '%d'00
L02090A ASC 'Must Specify A Path'00
L02091E ASC '%ld'00
L020922 ASC '%d'00
L020925 TSC
SEC
SBC #$0008
TCS
PHD
TCD
LDA #L040034
STA $05
LDA #^L040034
STA $07
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0009
PEA ^L040034
PEA L040034
_GetLETextByID
STAL L02B111
INC $05
BNE L02095E
INC $07
L02095E PEI $07
PEI $05
JSL L02A60A
STAL L030039
TXA
STAL L03003B
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0006
PEA ^L040034
PEA L040034
_GetLETextByID
STAL L02B111
PEI $07
PEI $05
JSL L02A60A
AND #$000F
STAL L03000D
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0002
PEA ^L040034
PEA L040034
_GetLETextByID
STAL L02B111
LDAL L040034
AND #$00FF
STAL L030037
LDA $05
BNE L0209D1
DEC $07
L0209D1 DEC $05
L0209D3 LDA [$05]
AND #$00FF
TAX
BEQ L0209F1
LDY #$0001
LDA [$05],Y
AND #$00FF
SEP #$20
STA [$05]
REP #$20
INC $05
BNE L0209EF
INC $07
L0209EF BRA L0209D3
L0209F1 PLD
TSC
CLC
ADC #$0008
TCS
RTL
L0209F9 TSC
SEC
SBC #$014D
TCS
PHD
TCD
LDA #$0001
STA $07
STZ $09
LDA #$0003
STAL L0400FA
STAL L040100
PEA ^L040034
PEA L040034
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02AB57
LDX #$0151
LDA $00,X
CMP #$0003
BEQ L020A43
PEA ^L020FC6
PEA L020FC6
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02AB0B
L020A43 PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02AB8B
STA $23
STZ $05
L020A54 LDA $23
CMP $05
BEQ L020A5C
BCS L020A5E
L020A5C BRA L020ABC
L020A5E PEA $0000
TDC
CLC
ADC #$0025
PHA
LDX #$0000
LDA $05
BPL L020A6F
DEX
L020A6F PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
CMP #$0020
BNE L020AB8
PEA $0000
TDC
CLC
ADC #$0025
PHA
LDX #$0000
LDA $05
BPL L020A9D
DEX
L020A9D PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$2E
STA [$01]
REP #$20
L020AB8 INC $05
BRA L020A54
L020ABC LDX #$0151
LDA $00,X
LDX #$0000
CMP #$0003
BNE L020ACA
INX
L020ACA TXA
STA $15
PEA ^L020FC9
LDA #L020FC9
STA $17
PLA
STA $19
TDC
CLC
ADC #$0023
LDX #$0000
STX $1D
STA $1B
PEA ^L020FD7
LDA #L020FD7
STA $1F
PLA
STA $21
L020AEF LDA $07
BNE L020AF6
BRL L020E34
L020AF6 LDX #$0151
LDA $00,X
BNE L020B3B
PEA $004B
PEA $0028
PEA $0000
PEA $0000
PEA $0000
PEI $21
PEI $1F
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L040106
PEA L040106
PEA ^L02479D
PEA L02479D
PEA ^L0400F2
PEA L0400F2
_SFPGetFile2
STAL L02B111
BRA L020B60
L020B3B PEA $004B
PEA $0028
PEA $0000
PEI $19
PEI $17
PEA $0000
PEI $1D
PEI $1B
PEA ^L0400F2
PEA L0400F2
_SFPutFile2
STAL L02B111
L020B60 LDAL L0400F2
BNE L020B69
BRL L020E2E
L020B69 LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
LDA $15
BNE L020BA0
BRL L020D5B
L020BA0 LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDA #$0001
LDX #$0124
STA $00,X
LDAL L03000B
TAX
LDAL L030009
CLC
ADC #$0002
BCC L020BE2
INX
L020BE2 TXY
LDX #$0126
STA $00,X
TYA
STA $02,X
LDA #$00C3
LDX #$012A
STA $00,X
LDA #$0006
LDX #$012C
STA $00,X
LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
PEA $3FF9
PEA $9F5B
PEA $A979
PEA $3B31
PEA $F000
JSL L02BF65
JSL L02BBB7
TXY
LDX #$012E
STA $00,X
STY $02,X
PEA $2002
PEA $0000
TDC
CLC
ADC #$0124
PHA
JSL L02A4D6
LDA #$0004
LDX #$0124
STA $00,X
PEA $2001
PEA $0000
TDC
CLC
ADC #$0124
PHA
JSL L02A4D6
LDA #$0004
LDX #$0132
STA $00,X
LDAL L03000B
TAX
LDAL L030009
CLC
ADC #$0002
BCC L020C67
INX
L020C67 TXY
LDX #$0136
STA $00,X
TYA
STA $02,X
LDA #$0002
LDX #$013A
STA $00,X
LDX #$013C
STZ $00,X
PEA $2010
PEA $0000
TDC
CLC
ADC #$0132
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L020C9F
JSL L0250E2
BRL L020FB0
L020C9F LDA #$0004
LDX #$013E
STA $00,X
LDX #$0134
LDA $00,X
LDX #$0140
STA $00,X
LDAL L030029
TAX
LDAL L030027
TXY
LDX #$0142
STA $00,X
STY $02,X
LDAL L030023
TAX
LDAL L030021
TXY
LDX #$0146
STA $00,X
STY $02,X
PEA $2013
PEA $0000
TDC
CLC
ADC #$013E
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L020D0D
JSL L0250E2
LDA #$0001
LDX #$013E
STA $00,X
PEA $2014
PEA $0000
TDC
CLC
ADC #$013E
PHA
JSL L02A4D6
BRL L020FB0
L020D0D LDX #$0142 ; write suffix
LDA #L040000
STA $00,X
LDA #^L040000
STA $02,X
LDX #$0146
* LDA #$0033
* STA $00,X
lda L030021
and #$ff
sta $00,x
lda #256
sec
sbc $00,x
sta $00,x
LDA #$0000
STA $02,X
PEA $2013
PHA
TDC
CLC
ADC #$013E
PHA
JSL L02A4D6
LDA #$0001
LDX #$013E
STA $00,X
PEA $2014
PEA $0000
TDC
CLC
ADC #$013E
PHA
JSL L02A4D6
LDAL L030019
AND #$00FE
STAL L030019
BRL L020FB0
L020D5B PEA $0000
PEA $0003
PEA $00D8
PEA $00C3
LDAL L03000B
PHA
LDAL L030009
CLC
ADC #$0002
BCC L020D79
PLX
INX
PHX
L020D79 PHA
_CreateResourceFile
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BNE L020D93
BRL L020E2A
L020D93 LDAL L03002B
CMP #$0070
BEQ L020DD6
LDAL L03002B
CMP #$1E01
BEQ L020DD6
JSL L0250E2
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
BRL L020FB0
L020DD6 LDX #$0151
LDA $00,X
BEQ L020E26
PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0005
_AlertWindow
STAL L02B111
PLA
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
BRL L020FB0
L020E26 STZ $07
BRA L020E2C
L020E2A STZ $07
L020E2C BRA L020E31
L020E2E BRL L020FB0
L020E31 BRL L020AEF
L020E34 PHA
PEA $8003
PEA $0000
PEA $0000
LDAL L03000B
PHA
LDAL L030009
CLC
ADC #$0002
BCC L020E50
PLX
INX
PHX
L020E50 PHA
_OpenResourceFile
STAL L02B111
PLA
STA $13
PHA
PHA
PEA $FFFF
PEA $8024
_UniqueResourceID
STAL L02B111
PLA
STA $0F
PLA
STA $11
LDAL L03002F
PHA
LDAL L03002D
PHA
PEA $0000
PEA $8024
PEI $11
PEI $0F
_AddResource
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L020EE4
JSL L0250E2
PEA $8024
PEI $11
PEI $0F
_DetachResource
STAL L02B111
PEI $13
_CloseResourceFile
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L020EE1
LDA $13
ORA #$8000
PHA
_CloseResourceFile
STAL L02B111
L020EE1 BRL L020F86
L020EE4 PEA $8024
PEI $11
PEI $0F
PEA ^L040034
PEA L040034
JSL L02A628
PHX
PHA
_RMSetResourceName
STAL L02B111
PEI $13
_UpdateResourceFile
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L020F21
PEA $0003
JSL L024DB6
L020F21 PEA $8024
PEI $11
PEI $0F
_DetachResource
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L020F45
PEA $0004
JSL L024DB6
L020F45 PEI $13
_CloseResourceFile
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L020F64
PEA $0005
JSL L024DB6
L020F64 LDAL L03000B
PHA
LDAL L030009
CLC
ADC #$0002
BCC L020F76
PLX
INX
PHX
L020F76 PHA
JSL L0251FD
LDAL L030019
AND #$00FE
STAL L030019
L020F86 LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
L020FB0 LDX #$014E
LDA $00,X
LDY $01,X
LDX #$0150
STA $00,X
STY $01,X
PLD
TSC
CLC
ADC #$014F
TCS
RTL
L020FC6 ASC '.r'00
L020FC9 STR 'Save Where? '
DB $00
L020FD7 STR 'Append to what file?'
DB $00
L020FED TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDAL L030019
AND #$0001
BEQ L021001
BRL L0210DD
L021001 LDAL L030019
AND #$0002
BNE L02100D
BRL L0210DD
L02100D LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
LDAL L030019
AND #$00FC
STAL L030019
PEA $0115
_DisableMItem
STAL L02B111
PEA $0113
_DisableMItem
STAL L02B111
PEA $0114
_DisableMItem
STAL L02B111
PEA $0112
_DisableMItem
STAL L02B111
PEA $0104
_DisableMItem
STAL L02B111
PEA $010E
_DisableMItem
STAL L02B111
PEA $010A
_DisableMItem
STAL L02B111
PEA $010B
_DisableMItem
STAL L02B111
PEA $0119
_DisableMItem
STAL L02B111
PEA $010C
_DisableMItem
STAL L02B111
PEA $010D
_DisableMItem
STAL L02B111
PEA $0109
_DisableMItem
STAL L02B111
LDA #$0001
STA $01
BRL L0211FC
L0210DD LDAL L030019
AND #$0002
BNE L0210E9
BRL L0211F7
L0210E9 PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0003
_AlertWindow
STAL L02B111
PLA
STA $03
LDA $03
BNE L021110
STZ $01
BRL L0211FC
L021110 LDA $03
CMP #$0001
BEQ L02111A
BRL L0211E9
L02111A LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
LDAL L030019
AND #$00FC
STAL L030019
PEA $0115
_DisableMItem
STAL L02B111
PEA $0113
_DisableMItem
STAL L02B111
PEA $0114
_DisableMItem
STAL L02B111
PEA $0112
_DisableMItem
STAL L02B111
PEA $0104
_DisableMItem
STAL L02B111
PEA $010E
_DisableMItem
STAL L02B111
PEA $010A
_DisableMItem
STAL L02B111
PEA $010B
_DisableMItem
STAL L02B111
PEA $0119
_DisableMItem
STAL L02B111
PEA $010C
_DisableMItem
STAL L02B111
PEA $010D
_DisableMItem
STAL L02B111
PEA $0109
_DisableMItem
STAL L02B111
LDA #$0002
STA $01
BRA L0211FC
L0211E9 PEA $0001
JSL L0209F9
LDA #$0001
STA $01
BRA L0211FC
L0211F7 LDA #$0001
STA $01
L0211FC LDY $01
PLD
TSC
CLC
ADC #$0004
TCS
TYA
RTL
L021207 TSC
SEC
SBC #$0076
TCS
PHD
TCD
JSL L020FED
TAX
BEQ L021219
LDA #$0001
L021219 EOR #$0001
BEQ L021221
BRL L021688
L021221 STZ $09
PEA ^L021690
LDA #L021690
STA $0D
PLA
STA $0F
L02122E LDA #$0003
STAL L0400FA
STAL L040100
PEA $004B
PEA $0028
PEA $0000
PEI $0F
PEI $0D
PEA ^L024836
PEA L024836
PEA $0000
PEA $0000
PEA ^L0400F2
PEA L0400F2
_SFGetFile2
STAL L02B111
LDAL L0400F2
BNE L02126C
BRL L021681
L02126C LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
LDA #$0007
STAL L0400B8
LDAL L03000B
TAX
LDAL L030009
CLC
ADC #$0002
BCC L0212B3
INX
L0212B3 STA $13
STX $15
LDX $15
LDA $13
STAL L0400BC
TXA
STAL L0400BE
LDA [$13]
STA $11
LDX #$0000
CMP #$0045
BCC L0212D3
BEQ L0212D3
INX
L0212D3 TXA
BNE L0212DA
LDA $11
BRA L0212DD
L0212DA LDA #$0045
L0212DD STA $0B
LDX #$0000
TAY
BPL L0212E6
DEX
L0212E6 PHX
PHA
LDAL L03000B
PHA
LDAL L030009
CLC
ADC #$0004
BCC L0212FA
PLX
INX
PHX
L0212FA PHA
PEA $0000
TDC
CLC
ADC #$0031
PHA
JSL L02AC0F
PEA $0000
TDC
CLC
ADC #$0031
PHA
LDX #$0000
LDA $0B
BPL L021319
DEX
L021319 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDA #$0001
STAL L0400C0
DEC
STAL L0400C2
PEA $2010
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L02135F
PEA $0019
JSL L024DB6
L02135F LDAL L0400C6
CMP #$0006
BNE L021395
LDAL L0400CA
TAX
LDAL L0400C8
JSL L02BB54
PEA $4004
PEA $CD9F
PEA $F972
PEA $4745
PEA $3800
JSL L02BF65
JSL L02BBB7
STAL L030039
TXA
STAL L03003B
L021395 LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$0190
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L0213AF
TYA
CMP $01,S
L0213AF BEQ L0213B3
BCS L0213B4
L0213B3 DEX
L0213B4 PLA
PLA
TXA
BEQ L0213D8
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDA [$01]
LDX #$0000
TAY
BPL L0213CF
DEX
L0213CF STAL L030039
TXA
STAL L03003B
L0213D8 LDA #$0002
STA $17
LDAL L0400BA
STA $19
STA $21
PEA $2019
PEA $0000
TDC
CLC
ADC #$0017
PHA
JSL L02A4D6
PEI $1D
PEI $1B
LDA $01,S
STAL L0400E2
LDA $03,S
STAL L0400E4
LDA $01,S
STA $27
LDA $03,S
STA $29
PLA
STAL L030021
PLA
STAL L030023
LDAL L030019
AND #$0008
TAX
BEQ L021424
LDA #$0001
L021424 EOR #$0001
BEQ L021437
PEA $0109
_EnableMItem
STAL L02B111
L021437 PEA $010A
_EnableMItem
STAL L02B111
PEA $010B
_EnableMItem
STAL L02B111
PEA $0119
_EnableMItem
STAL L02B111
PEA $010C
_EnableMItem
STAL L02B111
PEA $010D
_EnableMItem
STAL L02B111
PHA
PHA
LDAL L0400E4
PHA
LDAL L0400E2
CLC
ADC #$000A
BCC L021491
PLX
INX
PHX
L021491 PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L0214EB
LDAL L03002B
CMP #$0201
BNE L0214D0
LDA #$0086
STAL L03002B
L0214D0 JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
BRL L021688
L0214EB LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
PEA $0000
DEY
PLA
SEP #$20
STA [$05],Y
REP #$20
AND #$00FF
SEP #$20
STA [$05]
REP #$20
PEI $07
LDA $05
CLC
ADC #$000A
BCC L021525
PLX
INX
PHX
L021525 PHA
LDA $01,S
STA $23
LDA $03,S
STA $25
PLA
STAL L030027
PLA
STAL L030029
LDAL L0400E4
PHA
LDAL L0400E2
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L021568
LDA #$0001
L021568 EOR #$0001
BEQ L021574
LDA #$0001
STAL L030025
L021574 LDA #$0004
STA $1F
PEA $2012
PEA $0000
TDC
CLC
ADC #$001F
PHA
JSL L02A4D6
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L0215A2
LDA $03,S
DEC
STA $03,S
L0215A2 LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
JSL L02AE36
STAL L03002B
TAX
BEQ L0215D7
PEA $001A
JSL L024DB6
L0215D7 LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L030019
AND #$0004
TAX
BEQ L021622
LDA #$0001
L021622 EOR #$0001
BEQ L021674
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFA
PEA $800E
_NewWindow2
STAL L02B111
PLA
STAL L030001
PLA
STAL L030003
JSL L02AE36
STAL L03002B
TAX
BEQ L021674
PEA $001B
JSL L024DB6
L021674 PEA $0000
TDC
CLC
ADC #$0031
PHA
JSL L025455
L021681 LDA $09
BEQ L021688
BRL L02122E
L021688 PLD
TSC
CLC
ADC #$0076
TCS
RTL
L021690 STR 'Whadya Want? '
DB $00
L02169F TSC
SEC
SBC #$00CA
TCS
PHD
TCD
JSL L020FED
TAX
BEQ L0216B1
LDA #$0001
L0216B1 EOR #$0001
BEQ L0216B9
BRL L022009
L0216B9 LDA #$0061
SEP #$20
STA $61
REP #$20
AND #$00FF
SEP #$20
STA $2A
REP #$20
PEA ^L022011
LDA #L022011
STA $2B
PLA
STA $2D
L0216D6 LDA #$0003
STAL L0400FA
STAL L040100
SEP #$20
LDA $2A
STA $59
REP #$20
STZ $12
PEA $004B
PEA $0028
PEA $0000
PEI $2D
PEI $2B
PEA ^L024836
PEA L024836
PEA $0000
PEA $0000
PEA ^L0400F2
PEA L0400F2
_SFGetFile2
STAL L02B111
LDAL L0400F2
BNE L02171E
BRL L021FCD
L02171E LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
LDA #$0007
STAL L0400B8
LDAL L03000B
TAX
LDAL L030009
CLC
ADC #$0002
BCC L021765
INX
L021765 STA $31
STX $33
LDX $33
LDA $31
STAL L0400BC
TXA
STAL L0400BE
LDA [$31]
STA $2F
LDX #$0000
CMP #$0045
BCC L021785
BEQ L021785
INX
L021785 TXA
BNE L02178C
LDA $2F
BRA L02178F
L02178C LDA #$0045
L02178F STA $14
PEA $0000
PHA
LDAL L03000B
PHA
LDAL L030009
CLC
ADC #$0004
BCC L0217A7
PLX
INX
PHX
L0217A7 PHA
PEA $0000
TDC
CLC
ADC #$0085
PHA
JSL L02AC0F
PEA $0000
TDC
CLC
ADC #$0085
PHA
LDX #$0000
LDA $14
BPL L0217C6
DEX
L0217C6 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDA #$0001
STAL L0400C0
DEC
STAL L0400C2
PEA $2010
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L02180C
PEA $012D
JSL L024DB6
L02180C LDAL L0400BA
STA $49
LDA #$0004
STA $47
STZ $4D
TDC
CLC
ADC #$0059
STA $4B
LDA #$0008
STA $4F
LDA #$0000
STA $51
PEA $2012
PHA
TDC
CLC
ADC #$0047
PHA
JSL L02A4D6
STZ $4D
TDC
CLC
ADC #$0061
STA $4B
LDA #$0024
STA $4F
LDA #$0000
STA $51
PEA $2012
PHA
TDC
CLC
ADC #$0047
PHA
JSL L02A4D6
PEA $0000
PEA $0004
PEA ^L022020
PEA L022020
PEA $0000
TDC
CLC
ADC #$0059
PHA
JSL L02ABAF
TAX
BNE L0218D0
PEA $0000
PEA $0004
PEA ^L022025
PEA L022025
PEA $0000
TDC
CLC
ADC #$0061
PHA
JSL L02ABAF
TAX
BNE L0218D0
PEA $0000
PEA $0004
PEA ^L02202A
PEA L02202A
PEA $0000
TDC
CLC
ADC #$0065
PHA
JSL L02ABAF
TAX
BNE L0218D0
PEA $0000
PEA $0004
PEA ^L02202F
PEA L02202F
PEA $0000
TDC
CLC
ADC #$007D
PHA
JSL L02ABAF
TAX
BNE L0218D0
LDA $6D
CMP #$0001
BEQ L0218F1
L0218D0 PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0008
_AlertWindow
STAL L02B111
PLA
STA $12
BRL L022002
L0218F1 LDX $73
LDA $71
STAL L030039
TXA
STAL L03003B
LDA $79
CMP #$0001
BEQ L021908
BRL L021A86
L021908 PEI $83
PEI $81
LDA $01,S
STA $4F
LDA $03,S
STA $51
PLA
STAL L030021
PLA
STAL L030023
PHA
PHA
LDAL L030023
PHA
LDAL L030021
CLC
ADC #$000A
BCC L021932
PLX
INX
PHX
L021932 PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L02198C
LDAL L03002B
CMP #$0201
BNE L021971
LDA #$0086
STAL L03002B
L021971 JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
BRL L022009
L02198C _WaitCursor
STAL L02B111
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
PEA $0000
DEY
PLA
SEP #$20
STA [$05],Y
REP #$20
AND #$00FF
SEP #$20
STA [$05]
REP #$20
PEI $07
LDA $05
CLC
ADC #$000A
BCC L0219D1
PLX
INX
PHX
L0219D1 PHA
LDA $01,S
STA $4B
LDA $03,S
STA $4D
PLA
STAL L030027
PLA
STAL L030029
LDAL L030023
PHA
LDAL L030021
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L021A14
LDA #$0001
L021A14 EOR #$0001
BEQ L021A20
LDA #$0001
STAL L030025
L021A20 LDA #$0004
STA $47
PEA $2012
PEA $0000
TDC
CLC
ADC #$0047
PHA
JSL L02A4D6
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L021A4E
LDA $03,S
DEC
STA $03,S
L021A4E LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
JSL L02AE36
STAL L03002B
TAX
BEQ L021A83
PEA $012C
JSL L024DB6
L021A83 BRL L021ED8
L021A86 LDA $6F
CMP #$0002
BNE L021AAD
PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0007
_AlertWindow
STAL L02B111
PLA
STA $12
BRA L021AB2
L021AAD LDA #$0004
STA $12
L021AB2 LDA $79
CMP #$0002
BNE L021AD3
PEI $83
PEI $81
PEA $0000
PEA $0001
JSL L02B0CB
PLA
STAL L030021
PLA
STAL L030023
BRA L021AEB
L021AD3 PEI $83
PEI $81
PEA $0000
PEA $0002
JSL L02B0CB
PLA
STAL L030021
PLA
STAL L030023
L021AEB PHA
PHA
PEA $0000
PEA $1000
LDA $01,S
STA $1E
LDA $03,S
STA $20
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STA $26
PLA
STA $28
PHA
PHA
LDAL L030023
PHA
LDAL L030021
CLC
ADC #$000A
BCC L021B2E
PLX
INX
PHX
L021B2E PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L021B9F
LDAL L03002B
CMP #$0201
BNE L021B6D
LDA #$0086
STAL L03002B
L021B6D JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
STZ $12
BRL L022009
L021B9F _WaitCursor
STAL L02B111
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
PEA $0000
DEY
PLA
SEP #$20
STA [$05],Y
REP #$20
AND #$00FF
SEP #$20
STA [$05]
REP #$20
LDY #$000A
LDX $07
TYA
CLC
ADC $05
BCC L021BE3
INX
L021BE3 STAL L030027
PHA
TXA
STAL L030029
PLA
STX $0B
STA $09
LDAL L030023
PHA
LDAL L030021
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L021C22
LDA #$0001
L021C22 EOR #$0001
BEQ L021C2E
LDA #$0001
STAL L030025
L021C2E PEA $0000
PEA $0000
LDA $01,S
STA $1A
LDA $03,S
STA $1C
LDA $01,S
STA $22
LDA $03,S
STA $24
PLA
PLX
STA $18
LDA #$0001
STA $16
LDA #$0004
STA $47
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STX $37
STA $35
L021C5E PEI $83
PEI $81
SEC
PLA
SBC $22
PHA
LDA $03,S
SBC $24
STA $03,S
LDA #$1000
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L021C7D
TYA
CMP $01,S
L021C7D BCS L021C80
DEX
L021C80 PLA
PLA
TXA
BEQ L021C94
SEC
LDA $81
SBC $22
STA $1E
LDA $83
SBC $24
STA $20
INC $18
L021C94 PEI $37
PEI $35
LDA $01,S
STA $0D
LDA $03,S
STA $0F
PLA
STA $4B
PLA
STA $4D
LDA $1E
LDX $20
STA $4F
STX $51
PEA $2012
PEA $0000
TDC
CLC
ADC #$0047
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
LDAL L03002B
CMP #$004C
BNE L021CD4
STZ $16
BRL L021E9A
L021CD4 LDAL L03002B
BEQ L021D19
JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
PEI $28
PEI $26
_DisposeHandle
STAL L02B111
BRL L022009
L021D19 CLC
LDA $1E
ADC $22
STA $22
LDA $20
ADC $24
STA $24
LDA $12
LDX #$0000
CMP #$0004
BNE L021D31
INX
L021D31 TXA
STA $39
LDY #$0002
LDA [$26],Y
TAX
LDA [$26]
STX $3D
STA $3B
LDA $12
LDX #$0000
CMP #$0002
BNE L021D4B
INX
L021D4B TXA
STA $3F
LDA $12
LDX #$0000
CMP #$0001
BNE L021D59
INX
L021D59 TXA
STA $41
LDA $12
LDX #$0000
CMP #$0001
BNE L021D67
INX
L021D67 TXA
STA $43
LDA $12
TAX
BEQ L021D72
LDA #$0001
L021D72 EOR #$0001
STA $45
L021D77 INC $1A
BNE L021D7D
INC $1C
L021D7D LDA $39
BEQ L021D92
LDY #$0001
LDA [$0D],Y
AND #$00FF
SEP #$20
STA $11
REP #$20
BRL L021E2C
L021D92 LDA $79
CMP #$0002
BNE L021DDA
LDA $45
BEQ L021DAA
LDA [$0D]
AND #$00FF
SEP #$20
STA $11
REP #$20
BRA L021DD8
L021DAA LDA $43
BEQ L021DBE
LDY #$0001
LDA [$0D],Y
AND #$00FF
SEP #$20
STA $11
REP #$20
BRA L021DD8
L021DBE LDA [$0D]
AND #$00FF
LSR
PHA
LDY #$0001
LDA [$0D],Y
AND #$00FF
LSR
CLC
ADC $01,S
PLX
SEP #$20
STA $11
REP #$20
L021DD8 BRA L021E2C
L021DDA LDY #$0001
LDA [$0D],Y
AND #$00FF
SEP #$20
STA $11
REP #$20
CLC
LDA $0D
ADC #$0002
STA $0D
BCC L021DF4
INC $0F
L021DF4 INC $1A
BNE L021DFA
INC $1C
L021DFA LDA $41
BEQ L021E0E
LDY #$0001
LDA [$0D],Y
AND #$00FF
SEP #$20
STA $11
REP #$20
BRA L021E2C
L021E0E LDA $3F
BEQ L021E2C
LDA $11
AND #$00FF
LSR
PHA
LDY #$0001
LDA [$0D],Y
AND #$00FF
LSR
CLC
ADC $01,S
PLX
SEP #$20
STA $11
REP #$20
L021E2C CLC
LDA $0D
ADC #$0002
STA $0D
BCC L021E38
INC $0F
L021E38 LDA $11
AND #$00FF
TAX
BEQ L021E43
LDA #$0001
L021E43 EOR #$0001
BEQ L021E4E
SEP #$20
INC $11
REP #$20
L021E4E SEP #$20
LDA $11
STA [$09]
REP #$20
INC $09
BNE L021E5C
INC $0B
L021E5C PEA $0000
PEA $1000
PEI $0F
PEI $0D
SEC
PLA
SBC $3B
PHA
LDA $03,S
SBC $3D
STA $03,S
JSL L02C444
BEQ L021E7A
BRL L021D77
L021E7A LDA $18
TAX
BEQ L021E82
LDA #$0001
L021E82 EOR #$0001
CMP #$0000
BEQ L021E94
LDA $16
CMP #$0000
BEQ L021E94
LDA #$0001
L021E94 TAX
BEQ L021E9A
BRL L021C5E
L021E9A STZ $12
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L021EB5
LDA $03,S
DEC
STA $03,S
L021EB5 LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
L021ED8 LDAL L030019
AND #$0008
TAX
BEQ L021EE5
LDA #$0001
L021EE5 EOR #$0001
BEQ L021EF8
PEA $0109
_EnableMItem
STAL L02B111
L021EF8 PEA $010A
_EnableMItem
STAL L02B111
PEA $010B
_EnableMItem
STAL L02B111
PEA $0119
_EnableMItem
STAL L02B111
PEA $010C
_EnableMItem
STAL L02B111
PEA $010D
_EnableMItem
STAL L02B111
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L030019
AND #$0004
TAX
BEQ L021F5F
LDA #$0001
L021F5F EOR #$0001
BEQ L021FB1
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFA
PEA $800E
_NewWindow2
STAL L02B111
PLA
STAL L030001
PLA
STAL L030003
JSL L02AE36
STAL L03002B
TAX
BEQ L021FB1
PEA $001B
JSL L024DB6
L021FB1 PEA $0000
TDC
CLC
ADC #$0085
PHA
JSL L025455
PEI $28
PEI $26
_DisposeHandle
STAL L02B111
L021FCD LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
_InitCursor
STAL L02B111
L022002 LDA $12
BEQ L022009
BRL L0216D6
L022009 PLD
TSC
CLC
ADC #$00CA
TCS
RTL
L022011 STR 'Whadya Want? '
DB $00
L022020 ASC 'RIFF'00
L022025 ASC 'WAVE'00
L02202A ASC 'fmt '00
L02202F ASC 'data'00
L022034 TSC
SEC
SBC #$0004
TCS
PHD
TCD
PEI $0A
PEI $08
PEA $0000
PEA $0018
JSL L02B0CB
PEI $0A
PEI $08
PEA $0000
PEA $0018
JSL L02C9F7
PLA
ORA $03,S
STA $03,S
PLA
ORA $03,S
STA $03,S
PEI $0A
LDA $08
AND #$FF00
PHA
LDA $03,S
AND #$0000
STA $03,S
PEA $0000
PEA $0008
JSL L02C9F7
PLA
ORA $03,S
STA $03,S
PLA
ORA $03,S
STA $03,S
PEI $0A
LDA $08
AND #$0000
PHA
LDA $03,S
AND #$00FF
STA $03,S
PEA $0000
PEA $0008
JSL L02B0CB
PLA
ORA $03,S
STA $03,S
PLA
ORA $03,S
STA $03,S
PLA
STA $01
PLA
STA $03
LDA $06
STA $0A
LDA $05
STA $09
LDX $03
LDY $01
PLD
TSC
CLC
ADC #$0008
TCS
TYA
RTL
L0220C3 TSC
SEC
SBC #$05DF
TCS
PHD
TCD
LDA #$0009
LDX #$04FE
STA $00,X
LDX #$0500
LDA #$0003
STA $00,X
LDA #$0000
STA $02,X
LDA #$006D
LDX #$0504
STA $00,X
LDA #$0028
LDX #$0506
STA $00,X
LDA #$007B
LDX #$0508
STA $00,X
LDA #$006E
LDX #$050A
STA $00,X
LDX #$050C
LDA #$0000
STA $00,X
LDA #$8000
STA $02,X
LDA #$0001
LDX #$0510
STA $00,X
LDA #$3000
LDX #$0512
STA $00,X
LDX #$0514
LDA #$0000
STA $00,X
STA $02,X
PEA ^L022DA3
PEA L022DA3
LDX #$0518
PLA
STA $00,X
PLA
STA $02,X
LDX #$051C
LDA #$0000
STA $00,X
STA $02,X
SEP #$20
LDA #$0D
LDX #$0520
STA $00,X
LDA #$8D
INX
STA $00,X
REP #$20
LDX #$0522
STZ $00,X
LDX #$0524
STZ $00,X
LDA #$0009
LDX #$0526
STA $00,X
LDX #$0528
LDA #$0001
STA $00,X
DEC
STA $02,X
LDA #$006C
LDX #$052C
STA $00,X
LDA #$015E
LDX #$052E
STA $00,X
LDA #$007C
LDX #$0530
STA $00,X
LDA #$01A4
LDX #$0532
STA $00,X
LDX #$0534
LDA #$0000
STA $00,X
LDA #$8000
STA $02,X
LDX #$0538
STZ $00,X
LDA #$3000
LDX #$053A
STA $00,X
LDX #$053C
LDA #$0001
STA $00,X
DEC
STA $02,X
PEA ^L022DA9
PEA L022DA9
LDX #$0540
PLA
STA $00,X
PLA
STA $02,X
LDX #$0544
LDA #$0000
STA $00,X
STA $02,X
SEP #$20
LDA #$9B
LDX #$0548
STA $00,X
LDA #$1B
INX
STA $00,X
REP #$20
LDX #$054A
STZ $00,X
LDX #$054C
STZ $00,X
LDA #$000E
LDX #$054E
STA $00,X
LDX #$0550
LDA #$0002
STA $00,X
LDA #$0000
STA $02,X
LDA #$0014
LDX #$0554
STA $00,X
LDX #$0556
STA $00,X
LDA #$0064
LDX #$0558
STA $00,X
LDA #$019A
LDX #$055A
STA $00,X
LDX #$055C
LDA #$0000
STA $00,X
LDA #$8900
STA $02,X
LDX #$0560
STZ $00,X
LDA #$7400
LDX #$0562
STA $00,X
LDX #$0564
LDA #$0042
STA $00,X
LDA #$0000
STA $02,X
LDX #$0568
STZ $00,X
LDA #$0008
LDX #$056A
STA $00,X
LDA #$0003
LDX #$056C
STA $00,X
LDA #$0001
LDX #$056E
STA $00,X
LDX #$0570
DEC
STA $00,X
STA $02,X
LDA #$000A
LDX #$0574
STA $00,X
LDA #$0006
LDX #$0576
STA $00,X
LDX #$0578
LDA #$0000
STA $00,X
STA $02,X
LDX #$057C
STA $00,X
STA $02,X
LDX #$0580
TDC
CLC
ADC #$04FE
STA $00,X
STZ $02,X
LDX #$0584
TDC
CLC
ADC #$0526
STA $00,X
STZ $02,X
LDX #$0588
TDC
CLC
ADC #$054E
STA $00,X
STZ $02,X
LDX #$058C
LDA #$0000
STA $00,X
STA $02,X
LDA #$0050
LDX #$0590
STA $00,X
LDA #$0060
LDX #$0592
STA $00,X
LDX #$0594
LDA #$0000
STA $00,X
STA $02,X
LDX #$0598
LDA #$002A
STA $00,X
LDA #$0000
STA $02,X
LDA #$000A
LDX #$059C
STA $00,X
LDA #$0014
LDX #$059E
STA $00,X
LDA #$0244
LDX #$05A0
STA $00,X
LDA #$00B4
LDX #$05A2
STA $00,X
LDX #$05A4
LDA #$0000
STA $00,X
STA $02,X
LDX #$05A8
STZ $00,X
LDX #$05AA
STZ $00,X
LDX #$05AC
STZ $00,X
LDX #$05AE
STZ $00,X
LDX #$05B0
STZ $00,X
LDX #$05B2
STZ $00,X
LDX #$05B4
STZ $00,X
LDX #$05B6
STZ $00,X
LDX #$05B8
STZ $00,X
LDX #$05BA
STZ $00,X
LDX #$05BC
STA $00,X
STA $02,X
LDX #$05C0
STZ $00,X
LDX #$05C2
STA $00,X
STA $02,X
LDX #$05C6
STA $00,X
STA $02,X
LDX #$05CA
STA $00,X
STA $02,X
LDA #$001E
LDX #$05CE
STA $00,X
LDA #$002D
LDX #$05D0
STA $00,X
LDA #$00AA
LDX #$05D2
STA $00,X
LDA #$020D
LDX #$05D4
STA $00,X
LDX #$05D6
LDA #$FFFF
STA $00,X
STA $02,X
TDC
CLC
ADC #$0580
LDX #$0000
TXY
LDX #$05DA
STA $00,X
STY $02,X
LDA #$0003
LDX #$05DE
STA $00,X
JSL L020FED
TAX
BNE L0223A2
BRL L022D9B
L0223A2 LDA #$0003
STAL L0400FA
STAL L040100
STZ $0F
PEA $004B
PEA $0028
PEA $0000
PEA ^L022DB1
PEA L022DB1
PEA ^L024836
PEA L024836
PEA $0000
PEA $0000
PEA ^L0400F2
PEA L0400F2
_SFGetFile2
STAL L02B111
LDAL L0400F2
BNE L0223E4
BRL L022D66
L0223E4 LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
LDA #$0007
STAL L0400B8
LDAL L03000B
TAX
LDAL L030009
CLC
ADC #$0002
BCC L02242B
INX
L02242B STA $3C
STX $3E
LDX $3E
LDA $3C
STAL L0400BC
TXA
STAL L0400BE
LDA [$3C]
STA $3A
LDX #$0000
CMP #$0045
BCC L02244B
BEQ L02244B
INX
L02244B TXA
BNE L022452
LDA $3A
BRA L022455
L022452 LDA #$0045
L022455 STA $0D
LDA #$0001
STAL L0400C0
DEC
STAL L0400C2
PEA $2010
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L022482
PEA $01F5
JSL L024DB6
L022482 LDAL L0400BA
LDX #$03F6
STA $00,X
LDX #$03E4
STA $00,X
LDA #$0004
LDX #$03E2
STA $00,X
LDX #$03E6
TDC
CLC
ADC #$03FE
STA $00,X
STZ $02,X
LDX #$03EA
LDA #$0014
STA $00,X
LDA #$0000
STA $02,X
PEA $2012
PHA
TDC
CLC
ADC #$03E2
PHA
JSL L02A4D6
LDX #$03E6
TDC
CLC
ADC #$0040
STA $00,X
STZ $02,X
LDX #$03EA
LDA #$03A2
STA $00,X
LDA #$0000
STA $02,X
PEA $2012
PHA
TDC
CLC
ADC #$03E2
PHA
JSL L02A4D6
LDA #$0003
LDX #$03F4
STA $00,X
LDX #$03FA
LDA #$0438
STA $00,X
LDA #$0000
STA $02,X
LDX #$03F8
STZ $00,X
PEA $2016
PHA
TDC
CLC
ADC #$03F4
PHA
JSL L02A4D6
LDX #$03E6
TDC
CLC
ADC #$0019
STA $00,X
STZ $02,X
LDX #$03EA
LDA #$0004
STA $00,X
LDA #$0000
STA $02,X
PEA $2012
PHA
TDC
CLC
ADC #$03E2
PHA
JSL L02A4D6
PEI $1B
PEI $19
LDA #$2E4D
LDX #$2E4B
LDY #$0001
CMP $01,S
BEQ L022547
DEY
L022547 TXA
CMP $03,S
BEQ L02254F
LDY #$0000
L02254F PLA
PLA
TYA
BNE L022573
PEI $1B
PEI $19
LDA #$4C46
LDX #$3454
LDY #$0001
CMP $01,S
BEQ L022566
DEY
L022566 TXA
CMP $03,S
BEQ L02256E
LDY #$0000
L02256E PLA
PLA
TYA
BEQ L02258D
L022573 PEA $0000
PEA $0000
PEA ^L022DC0
PEA L022DC0
PEA $0000
PEA $000A
JSL L024AEF
STA $0F
BRA L0225A5
L02258D PEA $0000
PEA $0000
PEA ^L022DC3
PEA L022DC3
PEA $0000
PEA $000A
JSL L024AEF
STA $0F
L0225A5 LDA $0F
BEQ L0225B0
LDA #$001F
STA $13
BRA L0225B5
L0225B0 LDA #$000F
STA $13
L0225B5 STZ $15
PEA $0000
TDC
CLC
ADC #$0040
PHA
LDA $01,S
STA $05
LDA $03,S
STA $07
PLA
PLA
L0225CA LDA $13
SEC
SBC $15
BEQ L0225D8
BVS L0225D6
EOR #$8000
L0225D6 BMI L0225DB
L0225D8 BRL L0226D9
L0225DB PEA $0000
PEA $0000
LDA $01,S
STA $19
LDA $03,S
STA $1B
PLA
PLX
STA $17
L0225ED PEI $1B
PEI $19
LDA #$0016
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L022601
TYA
CMP $01,S
L022601 BEQ L022605
BCS L022606
L022605 DEX
L022606 PLA
PLA
TXA
BEQ L02267A
LDA $17
BNE L02267A
PEA ^L02A50A
PEA L02A50A
LDX $1B
LDA $19
CLC
ADC $05
TAY
TXA
ADC $07
TAX
STY $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
TAY
BPL L022631
DEX
L022631 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$0080
BNE L022671
LDX $1B
LDA $19
CLC
ADC $05
TAY
TXA
ADC $07
TAX
STY $01
STX $03
LDA [$01]
AND #$00FF
TAX
BNE L02266D
LDA $19
ORA $1B
BNE L02266B
INC $17
L02266B BRA L02267A
L02266D INC $17
BRA L02267A
L022671 INC $19
BNE L022677
INC $1B
L022677 BRL L0225ED
L02267A LDA $17
BEQ L0226A5
LDY #$0016
LDA [$05],Y
BEQ L022697
PEI $15
PEA ^L022DC6
PEA L022DC6
PEI $07
PEI $05
JSL L02AA15
BRA L0226A5
L022697 PEA ^L022DD4
PEA L022DD4
PEI $07
PEI $05
JSL L02AA15
L0226A5 LDY #$0016
LDA [$05],Y
STA $3A
XBA
AND #$00FF
PHA
LDA $3A
XBA
AND #$FF00
ORA $01,S
PLX
TAX
PHA
LDY #$0016
PLA
STA [$05],Y
INC $15
PEI $07
PEI $05
CLC
LDA $05
ADC #$001E
STA $05
BCC L0226D4
INC $07
L0226D4 PLA
PLA
BRL L0225CA
L0226D9 LDX #$0000
LDA $13
BPL L0226E1
DEX
L0226E1 PHX
PHA
PEA $0000
PEA $0006
JSL L02C5AD
JSL L02C21D
STX $1F
STA $1D
LDA #$0098
STAL L030042
STZ $15
PEI $1F
PEI $1D
LDA $01,S
STA $21
LDA $03,S
STA $23
PLA
PLA
L02270C LDA $13
SEC
SBC $15
BEQ L02271A
BVS L022718
EOR #$8000
L022718 BMI L02271C
L02271A BRA L02276B
L02271C LDX #$0000
LDA $15
BPL L022724
DEX
L022724 PHX
PHA
PEA $0000
PEA $001E
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0040
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA [$21]
LDY #$0002
PLA
STA [$21],Y
LDY #$0004
LDA #$0000
STA [$21],Y
INC $15
PEI $23
PEI $21
CLC
LDA $21
ADC #$0006
STA $21
BCC L022767
INC $23
L022767 PLA
PLA
BRA L02270C
L02276B LDY #$0004
LDA #$0080
STA [$1D],Y
LDA $13
LDX #$0568
STA $00,X
LDX #$0578
LDA $1D
STA $00,X
LDA $1F
STA $02,X
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0043
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$0590
LDX #$0000
PHX
PHA
PEA $800E
_NewWindow2
STAL L02B111
PLA
STA $09
PLA
STA $0B
JSL L02AE36
STAL L03002B
TAX
BEQ L0227D2
PEA $000D
JSL L024DB6
L0227D2 PEI $0B
PEI $09
_SetPort
STAL L02B111
PEA $0013
PEA $0010
_MoveTo
STAL L02B111
PEA ^L022DE5
PEA L022DE5
_DrawCString
STAL L02B111
PEA $0000
TDC
CLC
ADC #$03FE
PHA
_DrawCString
STAL L02B111
PEA ^L022E00
PEA L022E00
_DrawCString
STAL L02B111
PHA
PHA
PEI $0B
PEI $09
PEA $0000
PEA $0002
_GetCtlHandleFromID
STAL L02B111
PLA
STA $2A
PLA
STA $2C
JSL L02AE36
STAL L03002B
TAX
BEQ L022857
PEA $000E
JSL L024DB6
L022857 STZ $0F
L022859 PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA ^L0248A8
PEA L0248A8
PEA $0000
PEA $0000
PEA $0010
_DoModalWindow
STAL L02B111
PLA
STA $19
PLA
STA $1B
LDAL L04008A
CMP #$0001
BNE L0228B2
PEI $1B
PEI $19
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L0228A0
DEY
L0228A0 TXA
CMP $03,S
BEQ L0228A8
LDY #$0000
L0228A8 PLA
PLA
TYA
BEQ L0228B2
LDA #$FFFF
STA $0F
L0228B2 PEI $1B
PEI $19
LDA #$0003
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L0228C4
DEY
L0228C4 TXA
CMP $03,S
BEQ L0228CC
LDY #$0000
L0228CC PLA
PLA
TYA
BEQ L0228F9
PHA
PEA $0000
PEI $2C
PEI $2A
_NextMember2
STAL L02B111
PLA
STA $0F
JSL L02AE36
STAL L03002B
TAX
BEQ L0228F9
PEA $0203
JSL L024DB6
L0228F9 LDA $0F
BNE L022900
BRL L022859
L022900 PEI $1F
PEI $1D
JSL L02C1EF
PEI $0B
PEI $09
_CloseWindow
STAL L02B111
LDA $0F
CMP #$FFFF
BNE L02295F
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
BRL L022D9B
L02295F DEC $0F
LDX #$0000
LDA $0F
BPL L022969
DEX
L022969 PHX
PHA
PEA $0000
PEA $001E
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0040
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PEA $0000
TDC
CLC
ADC #$03FE
PHA
JSL L02AB57
_WaitCursor
STAL L02B111
LDA #$0000
STAL L03003B
LDA #$2AF8
STAL L030039
LDX #$03FA
LDA #$0000
STA $00,X
STA $02,X
INC
LDX #$03F8
STA $00,X
PEA $2016
PEA $0000
TDC
CLC
ADC #$03F4
PHA
JSL L02A4D6
LDA #$0003
LDX #$03F8
STA $00,X
LDA $13
DEC
STA $15
L0229DC LDA $15
SEC
SBC $0F
BVS L0229E6
EOR #$8000
L0229E6 BPL L022A39
LDX #$0000
LDA $15
BPL L0229F0
DEX
L0229F0 PHX
PHA
PEA $0000
PEA $001E
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0040
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0016
LDA [$01],Y
ASL
LDX #$0000
TXY
LDX #$03FA
STA $00,X
STY $02,X
PEA $2016
PHY
TDC
CLC
ADC #$03F4
PHA
JSL L02A4D6
DEC $15
BRA L0229DC
L022A39 LDX #$0000
LDA $0F
BPL L022A41
DEX
L022A41 PHX
PHA
PEA $0000
PEA $001E
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0040
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0016
LDA [$01],Y
ASL
PEA $0000
PHA
LDA $01,S
LDX #$03EA
STA $00,X
LDA $03,S
LDX #$03EC
STA $00,X
PLA
STAL L030021
PLA
STAL L030023
PHA
PHA
LDAL L030023
PHA
LDAL L030021
CLC
ADC #$000A
BCC L022A9D
PLX
INX
PHX
L022A9D PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L022B21
LDAL L03002B
CMP #$0201
BNE L022ADC
LDA #$0086
STAL L03002B
L022ADC JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
BRL L022D9B
L022B21 LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $28
STA $26
PEA $0000
DEY
PLA
SEP #$20
STA [$26],Y
REP #$20
AND #$00FF
SEP #$20
STA [$26]
REP #$20
PEI $28
LDA $26
CLC
ADC #$000A
BCC L022B5B
PLX
INX
PHX
L022B5B PHA
LDA $01,S
LDX #$03E6
STA $00,X
LDA $03,S
LDX #$03E8
STA $00,X
PLA
STAL L030027
PLA
STAL L030029
LDAL L030023
PHA
LDAL L030021
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
BNE L022BA7
LDA #$0001
STAL L030025
L022BA7 LDA #$0004
LDX #$03E2
STA $00,X
PEA $2012
PEA $0000
TDC
CLC
ADC #$03E2
PHA
JSL L02A4D6
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L022BD8
LDA $03,S
DEC
STA $03,S
L022BD8 LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $28
STA $26
CLC
LDA $26
ADC #$000A
STA $26
BCC L022C20
INC $28
L022C20 PEA $0000
PEA $0000
LDA $01,S
STA $19
LDA $03,S
STA $1B
PLA
PLX
AND #$00FF
SEP #$20
STA $25
REP #$20
INC $19
BNE L022C3F
INC $1B
L022C3F INC $19
BNE L022C45
INC $1B
L022C45 LDA [$26]
AND #$00FF
CLC
ADC #$0080
SEP #$20
STA $25
REP #$20
LDA $25
AND #$00FF
BNE L022C61
SEP #$20
INC $25
REP #$20
L022C61 SEP #$20
LDA $25
STA [$26]
REP #$20
INC $26
BNE L022C6F
INC $28
L022C6F PEI $1B
PEI $19
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L022C88
TYA
CMP $01,S
L022C88 BEQ L022C8C
BCS L022C8D
L022C8C DEX
L022C8D PLA
PLA
TXA
BNE L022C3F
LDAL L030019
AND #$0008
BNE L022CA9
PEA $0109
_EnableMItem
STAL L02B111
L022CA9 PEA $010A
_EnableMItem
STAL L02B111
PEA $010B
_EnableMItem
STAL L02B111
PEA $0119
_EnableMItem
STAL L02B111
PEA $010C
_EnableMItem
STAL L02B111
PEA $010D
_EnableMItem
STAL L02B111
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L030019
AND #$0004
BNE L022D59
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFA
PEA $800E
_NewWindow2
STAL L02B111
PLA
STAL L030001
PLA
STAL L030003
JSL L02AE36
STAL L03002B
TAX
BEQ L022D59
PEA $001B
JSL L024DB6
L022D59 PEA $0000
TDC
CLC
ADC #$03FE
PHA
JSL L025455
L022D66 _InitCursor
STAL L02B111
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
L022D9B PLD
TSC
CLC
ADC #$05DF
TCS
RTL
L022DA3 STR 'Okay'
DB $00
L022DA9 STR 'Cancel'
DB $00
L022DB1 STR 'Whadya Want? '
DB $00
L022DC0 ASC '31'00
L022DC3 ASC '15'00
L022DC6 ASC 'Instrument %d'00
L022DD4 ASC 'Empty Instrument'00
L022DE5 ASC 'Choose an instrument from '00
L022E00 ASC ':'00
L022E02 TSC
SEC
SBC #$00C8
TCS
PHD
TCD
JSL L020FED
TAX
BEQ L022E14
LDA #$0001
L022E14 EOR #$0001
BEQ L022E1C
BRL L023965
L022E1C PEA ^L02396D
LDA #L02396D
STA $33
PLA
STA $35
L022E27 LDA #$0003
STAL L0400FA
STAL L040100
LDA #$0000
STA $6B
STA $6D
STZ $13
PEA $004B
PEA $0028
PHA
PEI $35
PEI $33
PEA ^L024836
PEA L024836
PHA
PHA
PEA ^L0400F2
PEA L0400F2
_SFGetFile2
STAL L02B111
LDAL L0400F2
BNE L022E68
BRL L023929
L022E68 LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
LDA #$0007
STAL L0400B8
LDAL L03000B
TAX
LDAL L030009
CLC
ADC #$0002
BCC L022EAF
INX
L022EAF STA $39
STX $3B
LDX $3B
LDA $39
STAL L0400BC
TXA
STAL L0400BE
LDA [$39]
STA $37
LDX #$0000
CMP #$0045
BCC L022ECF
BEQ L022ECF
INX
L022ECF TXA
BNE L022ED6
LDA $37
BRA L022ED9
L022ED6 LDA #$0045
L022ED9 STA $15
PEA $0000
PHA
LDAL L03000B
PHA
LDAL L030009
CLC
ADC #$0004
BCC L022EF1
PLX
INX
PHX
L022EF1 PHA
PEA $0000
TDC
CLC
ADC #$0083
PHA
JSL L02AC0F
PEA $0000
TDC
CLC
ADC #$0083
PHA
LDX #$0000
LDA $15
BPL L022F10
DEX
L022F10 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDA #$0001
STAL L0400C0
DEC
STAL L0400C2
PEA $2010
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L022F56
PEA $012D
JSL L024DB6
L022F56 LDAL L0400BA
STA $63
STA $51
LDA #$0004
STA $4F
STZ $55
TDC
CLC
ADC #$006B
STA $53
LDA #$0018
STA $57
LDA #$0000
STA $59
PEA $2012
PHA
TDC
CLC
ADC #$004F
PHA
JSL L02A4D6
PEI $6D
PEI $6B
LDA #$732E
LDX #$646E
LDY #$0001
CMP $01,S
BEQ L022F96
DEY
L022F96 TXA
CMP $03,S
BEQ L022F9E
LDY #$0000
L022F9E PLA
PLA
TYA
BNE L022FC4
PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0008
_AlertWindow
STAL L02B111
PLA
STA $13
BRL L02395E
L022FC4 PEI $81
PEI $7F
JSL L022034
STX $81
STA $7F
PEI $79
PEI $77
JSL L022034
STX $79
STA $77
PEI $75
PEI $73
JSL L022034
STX $75
STA $73
PEI $71
PEI $6F
JSL L022034
PHX
PHA
LDA $01,S
STA $6F
LDA $03,S
STA $71
PLA
STA $67
PLA
STA $69
PEI $7D
PEI $7B
JSL L022034
STAL L030039
TXA
STAL L03003B
LDA #$0003
STA $61
STZ $65
PEA $2016
PEA $0000
TDC
CLC
ADC #$0061
PHA
JSL L02A4D6
PEA $0000
PEA $0002
LDX $81
LDA $7F
TAY
TXA
LDX #$0001
CMP $03,S
BNE L02303E
TYA
CMP $01,S
L02303E BEQ L023042
BCS L023043
L023042 DEX
L023043 PLA
PLA
TXA
BNE L023086
PEA $0000
PEA $0003
LDX $79
LDA $77
TAY
TXA
LDX #$0001
CMP $03,S
BNE L02305E
TYA
CMP $01,S
L02305E BEQ L023062
BCS L023063
L023062 DEX
L023063 PLA
PLA
TXA
BNE L023086
PEI $79
PEI $77
LDA #$0001
LDX #$0000
TAY
TXA
TYX
CMP $03,S
BNE L02307C
TYA
CMP $01,S
L02307C BEQ L023080
BCS L023081
L023080 DEX
L023081 PLA
PLA
TXA
BEQ L0230A5
L023086 PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0009
_AlertWindow
STAL L02B111
PLA
BRL L023965
L0230A5 PEI $81
PEI $7F
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L0230B5
DEY
L0230B5 TXA
CMP $03,S
BEQ L0230BD
LDY #$0000
L0230BD PLA
PLA
TYA
BNE L0230C5
BRL L023216
L0230C5 PEI $79
PEI $77
LDA #$0003
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L0230D9
TYA
CMP $01,S
L0230D9 BEQ L0230DD
BCS L0230DE
L0230DD DEX
L0230DE PLA
PLA
TXA
BNE L0230E6
BRL L023216
L0230E6 PEI $75
PEI $73
LDA $01,S
STA $57
LDA $03,S
STA $59
PLA
STAL L030021
PLA
STAL L030023
PHA
PHA
LDAL L030023
PHA
LDAL L030021
CLC
ADC #$000A
BCC L023110
PLX
INX
PHX
L023110 PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L02316A
LDAL L03002B
CMP #$0201
BNE L02314F
LDA #$0086
STAL L03002B
L02314F JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
BRL L023965
L02316A _WaitCursor
STAL L02B111
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
PEA $0000
DEY
PLA
SEP #$20
STA [$05],Y
REP #$20
AND #$00FF
SEP #$20
STA [$05]
REP #$20
PEI $07
LDA $05
CLC
ADC #$000A
BCC L0231AF
PLX
INX
PHX
L0231AF PHA
LDA $01,S
STA $53
LDA $03,S
STA $55
PLA
STAL L030027
PLA
STAL L030029
LDAL L030023
PHA
LDAL L030021
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L0231F2
LDA #$0001
L0231F2 EOR #$0001
BEQ L0231FE
LDA #$0001
STAL L030025
L0231FE LDA #$0004
STA $4F
PEA $2012
PEA $0000
TDC
CLC
ADC #$004F
PHA
JSL L02A4D6
BRL L0236C2
L023216 PEI $81
PEI $7F
LDA #$0002
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L023228
DEY
L023228 TXA
CMP $03,S
BEQ L023230
LDY #$0000
L023230 PLA
PLA
TYA
BEQ L023255
PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0007
_AlertWindow
STAL L02B111
PLA
STA $13
BRA L02325A
L023255 LDA #$0004
STA $13
L02325A _WaitCursor
STAL L02B111
PEI $81
PEI $7F
LDA #$0002
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L023277
DEY
L023277 TXA
CMP $03,S
BEQ L02327F
LDY #$0000
L02327F PLA
PLA
TYA
BEQ L02329E
PEI $75
PEI $73
PEA $0000
PEA $0001
JSL L02B0CB
PLA
STAL L030021
PLA
STAL L030023
BRA L0232B6
L02329E PEI $75
PEI $73
PEA $0000
PEA $0002
JSL L02B0CB
PLA
STAL L030021
PLA
STAL L030023
L0232B6 PHA
PHA
PEA $0000
PEA $1000
LDA $01,S
STA $1F
LDA $03,S
STA $21
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STA $27
PLA
STA $29
PHA
PHA
LDAL L030023
PHA
LDAL L030021
CLC
ADC #$000A
BCC L0232F9
PLX
INX
PHX
L0232F9 PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L02336A
LDAL L03002B
CMP #$0201
BNE L023338
LDA #$0086
STAL L03002B
L023338 JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
STZ $13
BRL L023965
L02336A LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
PEA $0000
DEY
PLA
SEP #$20
STA [$05],Y
REP #$20
AND #$00FF
SEP #$20
STA [$05]
REP #$20
LDY #$000A
LDX $07
TYA
CLC
ADC $05
BCC L0233A3
INX
L0233A3 STAL L030027
PHA
TXA
STAL L030029
PLA
STX $0B
STA $09
LDAL L030023
PHA
LDAL L030021
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L0233E2
LDA #$0001
L0233E2 EOR #$0001
BEQ L0233EE
LDA #$0001
STAL L030025
L0233EE PEA $0000
PEA $0000
LDA $01,S
STA $1B
LDA $03,S
STA $1D
LDA $01,S
STA $23
LDA $03,S
STA $25
PLA
PLX
STA $19
LDA #$0001
STA $17
LDA #$0004
STA $4F
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STX $3F
STA $3D
L02341E PEI $75
PEI $73
SEC
PLA
SBC $23
PHA
LDA $03,S
SBC $25
STA $03,S
LDA #$1000
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L02343D
TYA
CMP $01,S
L02343D BCS L023440
DEX
L023440 PLA
PLA
TXA
BEQ L023454
SEC
LDA $73
SBC $23
STA $1F
LDA $75
SBC $25
STA $21
INC $19
L023454 PEI $3F
PEI $3D
LDA $01,S
STA $0D
LDA $03,S
STA $0F
PLA
STA $53
PLA
STA $55
LDA $1F
LDX $21
STA $57
STX $59
PEA $2012
PEA $0000
TDC
CLC
ADC #$004F
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
LDAL L03002B
CMP #$004C
BNE L023494
STZ $17
BRL L023684
L023494 LDAL L03002B
BEQ L0234D9
JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
PEI $29
PEI $27
_DisposeHandle
STAL L02B111
BRL L023965
L0234D9 CLC
LDA $1F
ADC $23
STA $23
LDA $21
ADC $25
STA $25
LDA $13
LDX #$0000
CMP #$0004
BNE L0234F1
INX
L0234F1 TXA
STA $41
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STX $45
STA $43
LDA $13
LDX #$0000
CMP #$0002
BNE L02350B
INX
L02350B TXA
STA $47
LDA $13
LDX #$0000
CMP #$0001
BNE L023519
INX
L023519 TXA
STA $49
LDA $13
TAX
BEQ L023524
LDA #$0001
L023524 EOR #$0001
STA $4B
LDA $13
LDX #$0000
CMP #$0001
BNE L023534
INX
L023534 TXA
STA $4D
L023537 INC $1B
BNE L02353D
INC $1D
L02353D LDA $41
BEQ L02354F
LDA [$0D]
AND #$00FF
SEP #$20
STA $11
REP #$20
BRL L023616
L02354F PEI $81
PEI $7F
LDA #$0002
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L023561
DEY
L023561 TXA
CMP $03,S
BEQ L023569
LDY #$0000
L023569 PLA
PLA
TYA
BEQ L0235CD
PEI $79
PEI $77
LDA #$0003
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L023582
TYA
CMP $01,S
L023582 BEQ L023586
BCS L023587
L023586 DEX
L023587 PLA
PLA
TXA
BEQ L0235CD
LDA $4B
BEQ L0235A0
LDY #$0001
LDA [$0D],Y
AND #$00FF
SEP #$20
STA $11
REP #$20
BRA L0235CB
L0235A0 LDA $4D
BEQ L0235B1
LDA [$0D]
AND #$00FF
SEP #$20
STA $11
REP #$20
BRA L0235CB
L0235B1 LDA [$0D]
AND #$00FF
LSR
PHA
LDY #$0001
LDA [$0D],Y
AND #$00FF
LSR
CLC
ADC $01,S
PLX
SEP #$20
STA $11
REP #$20
L0235CB BRA L023616
L0235CD LDA [$0D]
AND #$00FF
SEP #$20
STA $11
REP #$20
CLC
LDA $0D
ADC #$0002
STA $0D
BCC L0235E4
INC $0F
L0235E4 INC $1B
BNE L0235EA
INC $1D
L0235EA LDA $49
BEQ L0235FB
LDA [$0D]
AND #$00FF
SEP #$20
STA $11
REP #$20
BRA L023616
L0235FB LDA $47
BEQ L023616
LDA $11
AND #$00FF
LSR
PHA
LDA [$0D]
AND #$00FF
LSR
CLC
ADC $01,S
PLX
SEP #$20
STA $11
REP #$20
L023616 CLC
LDA $0D
ADC #$0002
STA $0D
BCC L023622
INC $0F
L023622 LDA $11
AND #$00FF
TAX
BEQ L02362D
LDA #$0001
L02362D EOR #$0001
BEQ L023638
SEP #$20
INC $11
REP #$20
L023638 SEP #$20
LDA $11
STA [$09]
REP #$20
INC $09
BNE L023646
INC $0B
L023646 PEA $0000
PEA $1000
PEI $0F
PEI $0D
SEC
PLA
SBC $43
PHA
LDA $03,S
SBC $45
STA $03,S
JSL L02C444
BEQ L023664
BRL L023537
L023664 LDA $19
TAX
BEQ L02366C
LDA #$0001
L02366C EOR #$0001
CMP #$0000
BEQ L02367E
LDA $17
CMP #$0000
BEQ L02367E
LDA #$0001
L02367E TAX
BEQ L023684
BRL L02341E
L023684 STZ $13
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L02369F
LDA $03,S
DEC
STA $03,S
L02369F LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
L0236C2 LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L0236DB
LDA $03,S
DEC
STA $03,S
L0236DB LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
CLC
LDA $05
ADC #$000A
STA $05
BCC L023723
INC $07
L023723 PEA $0000
PEA $0000
LDA $01,S
STA $1B
LDA $03,S
STA $1D
PLA
PLX
AND #$00FF
SEP #$20
STA $12
REP #$20
INC $1B
BNE L023742
INC $1D
L023742 INC $1B
BNE L023748
INC $1D
L023748 PEI $79
PEI $77
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L023758
DEY
L023758 TXA
CMP $03,S
BEQ L023760
LDY #$0000
L023760 PLA
PLA
TYA
BEQ L0237DB
LDA [$05]
AND #$00FF
EOR #$FFFF
STA $2B
AND #$0080
STA $2D
LDA $2B
LDX #$0004
JSL L02CA73
AND #$0007
STA $2F
PEA ^L04007A
PEA L04007A
LDA $2F
ASL
LDX #$0000
TAY
BPL L023792
DEX
L023792 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
PHA
LDA $2B
AND #$000F
PHA
LDA $2F
CLC
ADC #$0003
TAX
PLA
JSL L02C9E7
CLC
ADC $01,S
PLX
STA $31
LDA $2D
BEQ L0237CC
LDA $31
EOR #$FFFF
INC
STA $31
L0237CC LDA $31
LDX #$0008
JSL L02CA73
SEP #$20
STA [$05]
REP #$20
L0237DB LDA [$05]
AND #$00FF
CLC
ADC #$0080
SEP #$20
STA $12
REP #$20
LDA $12
AND #$00FF
TAX
BEQ L0237F5
LDA #$0001
L0237F5 EOR #$0001
BEQ L023800
SEP #$20
INC $12
REP #$20
L023800 SEP #$20
LDA $12
STA [$05]
REP #$20
INC $05
BNE L02380E
INC $07
L02380E PEI $1D
PEI $1B
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L023827
TYA
CMP $01,S
L023827 BEQ L02382B
BCS L02382C
L02382B DEX
L02382C PLA
PLA
TXA
BEQ L023834
BRL L023742
L023834 LDAL L030019
AND #$0008
TAX
BEQ L023841
LDA #$0001
L023841 EOR #$0001
BEQ L023854
PEA $0109
_EnableMItem
STAL L02B111
L023854 PEA $010A
_EnableMItem
STAL L02B111
PEA $010B
_EnableMItem
STAL L02B111
PEA $0119
_EnableMItem
STAL L02B111
PEA $010C
_EnableMItem
STAL L02B111
PEA $010D
_EnableMItem
STAL L02B111
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L030019
AND #$0004
TAX
BEQ L0238BB
LDA #$0001
L0238BB EOR #$0001
BEQ L02390D
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFA
PEA $800E
_NewWindow2
STAL L02B111
PLA
STAL L030001
PLA
STAL L030003
JSL L02AE36
STAL L03002B
TAX
BEQ L02390D
PEA $001B
JSL L024DB6
L02390D PEA $0000
TDC
CLC
ADC #$0083
PHA
JSL L025455
PEI $29
PEI $27
_DisposeHandle
STAL L02B111
L023929 _InitCursor
STAL L02B111
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
L02395E LDA $13
BEQ L023965
BRL L022E27
L023965 PLD
TSC
CLC
ADC #$00C8
TCS
RTL
L02396D STR 'Whadya Want? '
DB $00
L02397C TSC
SEC
SBC #$0256
TCS
PHD
TCD
JSL L020FED
TAX
BEQ L02398E
LDA #$0001
L02398E EOR #$0001
BEQ L023996
BRL L024183
L023996 PHA
_GetPenMode
STAL L02B111
PLA
STA $0D
PEA $004B
PEA $0028
PEA $0000
PEA ^L02418B
PEA L02418B
PEA ^L024836
PEA L024836
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$002B
PHA
_SFMultiGet2
STAL L02B111
LDA $2B
TAX
BEQ L0239DC
LDA #$0001
L0239DC EOR #$0001
BEQ L0239E4
BRL L024183
L0239E4 _WaitCursor
STAL L02B111
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0050
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FF7
PEA $800E
_NewWindow2
STAL L02B111
PLA
STA $1F
PLA
STA $21
PEI $21
PEI $1F
_SetPort
STAL L02B111
JSL L024766
PEA $0002
_SetPenMode
STAL L02B111
LDY #$0002
LDA [$2D],Y
TAX
LDA [$2D]
CLC
ADC #$0002
BCC L023A56
INX
L023A56 STA $17
STX $19
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDY #$0002
LDA [$01],Y
STAL L03000D
STZ $05
L023A72 LDA $2B
CMP $05
BEQ L023A7A
BCS L023A7D
L023A7A BRL L02413F
L023A7D LDA $17
LDX $19
STA $07
STX $09
CLC
ADC #$0008
BCC L023A8C
INX
L023A8C STA $13
STX $15
CLC
LDA $17
ADC #$0006
STA $17
BCC L023A9C
INC $19
L023A9C PEA $0023
PEA $001E
_MoveTo
STAL L02B111
PEI $19
PEI $17
_DrawString
STAL L02B111
LDA [$17]
AND #$00FF
LDX #$0156
STA $00,X
PEA $0000
PEA $00FF
PEI $19
PEI $17
JSL L02A73C
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0158
PHA
JSL L02AC0F
LDA [$07]
CMP #$000F
BNE L023AED
BRL L02413A
L023AED LDA [$07]
CMP #$0006
BNE L023B65
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
JSL L02BB54
PEA $4004
PEA $CD9F
PEA $F972
PEA $4745
PEA $3800
JSL L02BF65
JSL L02BBB7
STAL L030039
TXA
STAL L03003B
LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$0190
LDX #$0000
TAY
TXA
INX
CMP $03,S
BNE L023B3A
TYA
CMP $01,S
L023B3A BEQ L023B3E
BCS L023B3F
L023B3E DEX
L023B3F PLA
PLA
TXA
BEQ L023B63
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDA [$01]
LDX #$0000
TAY
BPL L023B5A
DEX
L023B5A STAL L030039
TXA
STAL L03003B
L023B63 BRA L023B84
L023B65 LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDA [$01]
LDX #$0000
TAY
BPL L023B7B
DEX
L023B7B STAL L030039
TXA
STAL L03003B
L023B84 LDA #$0004
STAL L0400B8
LDA #$0000
STAL L0400BE
TDC
CLC
ADC #$0156
STAL L0400BC
LDA #$0001
STAL L0400C0
DEC
STAL L0400C2
PEA $2010
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L023BC6
JSL L0250E2
BRL L02413F
L023BC6 LDX #$0156
LDA $00,X
CMP #$00FD
BEQ L023BD2
BCS L023BD4
L023BD2 BRA L023BE6
L023BD4 SEP #$20
LDA #$2E
LDX #$0255
STA $00,X
LDA #$72
INX
STA $00,X
REP #$20
BRA L023C50
L023BE6 PEA $0000
TDC
CLC
ADC #$0158
PHA
LDX #$0156
LDA $00,X
LDX #$0000
TAY
BPL L023BFB
DEX
L023BFB PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$2E
STA [$01]
REP #$20
PEA $0000
TDC
CLC
ADC #$0158
PHA
LDX #$0156
LDA $00,X
INC
LDX #$0000
TAY
BPL L023C2C
DEX
L023C2C PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$72
STA [$01]
REP #$20
LDX #$0156
LDA $00,X
INC
INC
STA $00,X
L023C50 LDAL L0400BA
STA $33
STA $3B
LDA #$0002
STA $31
PEA $2019
PEA $0000
TDC
CLC
ADC #$0031
PHA
JSL L02A4D6
PEI $37
PEI $35
LDA $01,S
STAL L0400E2
LDA $03,S
STAL L0400E4
LDA $01,S
STA $41
LDA $03,S
STA $43
PLA
STAL L030021
PLA
STAL L030023
PHA
PHA
LDAL L0400E4
PHA
LDAL L0400E2
CLC
ADC #$000A
BCC L023CA3
PLX
INX
PHX
L023CA3 PHA
LDAL L030035
PHA
PEA $C000
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
JSL L02AE36
STAL L03002B
TAX
BEQ L023CFD
LDAL L03002B
CMP #$0201
BNE L023CE2
LDA #$0086
STAL L03002B
L023CE2 JSL L0250E2
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
BRL L02413A
L023CFD LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $1D
STA $1B
PEI $1D
LDA $1B
CLC
ADC #$000A
BCC L023D23
PLX
INX
PHX
L023D23 PHA
LDA $01,S
STA $3D
LDA $03,S
STA $3F
PLA
STAL L030027
PLA
STAL L030029
LDA $1B
LDX $1D
STA $07
STX $09
LDAL L0400E4
PHA
LDAL L0400E2
PHA
PEA $0000
PEA $0008
JSL L02B0CB
PLA
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L023D6E
LDA #$0001
L023D6E EOR #$0001
BEQ L023D76
INC L030025
L023D76 JSL L026CEE
LDA #$0000
STA [$07]
LDY #$0002
LDAL L030025
STA [$07],Y
LDY #$0004
LDAL L030017
STA [$07],Y
LDY #$0006
LDAL L03000D
STA [$07],Y
LDY #$0008
LDAL L030039
STA [$07],Y
LDA #$0004
STA $39
PEA $2012
PEA $0000
TDC
CLC
ADC #$0039
PHA
JSL L02A4D6
LDA #$0001
STAL L0400B8
PEA $2014
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L023DE5
LDA $03,S
DEC
STA $03,S
L023DE5 LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDY #$0004
LDA [$01],Y
BEQ L023E8C
LDA #$0002
STA $4B
LDA #$0008
STA $4D
STZ $51
TDC
CLC
ADC #$0053
STA $4F
LDA #$00FF
STA [$4F]
PEA $200A
PEA $0000
TDC
CLC
ADC #$004B
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L023E56
PEA $00EB
JSL L024DB6
L023E56 LDAL L030011
TAX
LDAL L03000F
CLC
ADC #$0006
BCC L023E66
INX
L023E66 STA $4F
STX $51
PEA $2009
PEA $0000
TDC
CLC
ADC #$004B
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L023E8C
PEA $00EC
JSL L024DB6
L023E8C PEA $0000
PEA $0003
PEA $00D8
PEA $00C3
PEA $0000
TDC
CLC
ADC #$0156
PHA
_CreateResourceFile
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L023F0C
LDAL L03002B
LDX #$0000
CMP #$0070
BNE L023EC4
INX
L023EC4 TXA
CMP #$0000
BEQ L023ECF
LDA #$0001
BRA L023EE5
L023ECF LDAL L03002B
LDX #$0000
CMP #$1E01
BNE L023EDC
INX
L023EDC TXA
CMP #$0000
BEQ L023EE5
LDA #$0001
L023EE5 TAX
BEQ L023EEB
LDA #$0001
L023EEB EOR #$0001
BEQ L023F0C
JSL L0250E2
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
BRL L02413F
L023F0C PHA
PEA $8003
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$0156
PHA
_OpenResourceFile
STAL L02B111
PLA
STA $0B
JSL L02AE36
STAL L03002B
TAX
BEQ L023F54
JSL L0250E2
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
BRL L02413F
L023F54 PHA
PHA
PEA $FFFF
PEA $8024
_UniqueResourceID
STAL L02B111
PLA
STA $0F
PLA
STA $11
LDAL L03002F
PHA
LDAL L03002D
PHA
PEA $0000
PEA $8024
PEI $11
PEI $0F
_AddResource
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L023FC4
LDA $0B
ORA #$8000
PHA
_CloseResourceFile
STAL L02B111
JSL L0250E2
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
BRL L02413F
L023FC4 LDX $19
LDA $17
CLC
ADC #$0002
BCC L023FCF
INX
L023FCF STA $27
STX $29
LDA [$17]
AND #$00FF
DEC
DEC
SEP #$20
STA [$27]
REP #$20
PEA $8024
PEI $11
PEI $0F
PEI $29
PEI $27
_RMSetResourceName
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L02402E
LDA $0B
ORA #$8000
PHA
_CloseResourceFile
STAL L02B111
JSL L0250E2
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
BRL L02413F
L02402E SEP #$20
LDY #$0002
LDA #$3A
STA [$17],Y
REP #$20
PEA $000F
_SetForeColor
STAL L02B111
PEA $0023
PEA $001E
_MoveTo
STAL L02B111
PEI $19
PEI $17
_DrawString
STAL L02B111
PEA $0000
_SetForeColor
STAL L02B111
PEI $0B
_UpdateResourceFile
STAL L02B111
PEI $0B
_CloseResourceFile
STAL L02B111
JSL L02AE36
STAL L03002B
TAX
BEQ L0240C6
LDA $0B
ORA #$8000
PHA
_CloseResourceFile
STAL L02B111
JSL L0250E2
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
BRA L02413F
L0240C6 PEA $0000
TDC
CLC
ADC #$0156
PHA
JSL L0251FD
LDAL L030011
TAX
LDAL L03000F
STA $01
STX $03
LDY #$0004
LDA [$01],Y
BEQ L024112
STZ $51
TDC
CLC
ADC #$0055
STA $4F
PEA $2009
PEA $0000
TDC
CLC
ADC #$004B
PHA
JSL L02A4D6
JSL L02AE36
STAL L03002B
TAX
BEQ L024112
PEA $00F6
JSL L024DB6
L024112 LDA [$17]
AND #$00FF
INC
LDX #$0000
CLC
ADC $17
STA $17
TXA
ADC $19
STA $19
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
L02413A INC $05
BRL L023A72
L02413F PEI $2F
PEI $2D
_DisposeHandle
STAL L02B111
PEI $0D
_SetPenMode
STAL L02B111
_InitCursor
STAL L02B111
PEI $21
PEI $1F
_CloseWindow
STAL L02B111
PEA $0108
_DisableMItem
STAL L02B111
L024183 PLD
TSC
CLC
ADC #$0256
TCS
RTL
L02418B STR 'Whadya Want? '
DB $00
L02419A PHA
TSC
PHD
TCD
PEI $08
LDA $06
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
PLX
STA $01
L0241B1 BRL L024295
L0241B4 BRL L0242ED
JSL L027A23
L0241BB BRL L0242ED
JSL L027AD9
L0241C2 BRL L0242ED
JSL L027B8F
L0241C9 BRL L0242ED
JSL L027C28
L0241D0 BRL L0242ED
L0241D3 BRL L0242ED
JSL L0268A6
L0241DA BRL L0242ED
JSL L02537D
L0241E1 BRL L0242ED
JSL L021207
L0241E8 BRL L0242ED
JSL L0257DE
L0241EF BRL L0242ED
PEA $0001
JSL L0209F9
L0241F9 BRL L0242ED
PEA $0000
JSL L0209F9
L024203 BRL L0242ED
PEA $0003
JSL L0209F9
L02420D BRL L0242ED
PHA
PEA $0005
PEA $0000
PEA $0000
PEA $0000
PEA $0001
_AlertWindow
STAL L02B111
PLA
STAL L030013
L024230 BRL L0242ED
JSL L026715
L024237 BRL L0242ED
JSL L024F8A
L02423E BRL L0242ED
JSL L024EF2
L024245 BRL L0242ED
JSL L020269
L02424C BRL L0242ED
JSL L02397C
L024253 BRL L0242ED
JSL L027850
L02425A BRL L0242ED
JSL L0272F3
L024261 BRL L0242ED
JSL L026D7A
L024268 BRL L0242ED
JSL L02169F
L02426F BRA L0242ED
JSL L0220C3
L024275 BRA L0242ED
JSL L022E02
L02427B BRA L0242ED
JSL L027CB6
L024281 BRA L0242ED
JSL L02884B
L024287 BRA L0242ED
JSL L029245
L02428D BRA L0242ED
JSL L02A31B
BRA L0242ED
L024295 LDA $01
SEC
SBC #$00FA
CMP #$0020
BCC L0242A3
LDA #$0020
L0242A3 ASL
TAX
LDAL L0242AB,X
PHA
RTS
L0242AB DA L0241B1+2
DA L0241B4+2
DA L0241BB+2
DA L0241C2+2
DA L0241C9+2
DA L0241D0+2
DA L0241D3+2
DA L0241DA+2
DA L0242ED-1
DA L0241E1+2
DA L0241EF+2
DA L0242ED-1
DA L0242ED-1
DA L02420D+2
DA L024237+2
DA L024230+2
DA L02423E+2
DA L024261+2
DA L024253+2
DA L02425A+2
DA L0241F9+2
DA L02424C+2
DA L024245+2
DA L0241E8+2
DA L024203+2
DA L02427B+1
DA L024287+1
DA L024281+1
DA L024268+2
DA L02426F+1
DA L024275+1
DA L02428D+1
DA L0242ED-1
L0242ED PEA $0000
PEI $08
PEI $06
PEA $0000
PEA $0010
JSL L02C248
PLA
STA $01,S
_HiliteMenu
STAL L02B111
LDA $04
STA $08
LDA $03
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
RTL
L02431C TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHA
PHA
_FrontWindow
STAL L02B111
PLA
STA $01
PLA
STA $03
PHA
PEI $03
PEI $01
_GetWKind
STAL L02B111
PLA
CMPL L03001B
BNE L024351
BRL L02440F
L024351 LDAL L03001B
EOR #$8000
STAL L03001B
LDAL L03001B
AND #$8000
BEQ L0243BB
PEA $00FA
_EnableMItem
STAL L02B111
PEA $00FB
_EnableMItem
STAL L02B111
PEA $00FC
_EnableMItem
STAL L02B111
PEA $00FD
_EnableMItem
STAL L02B111
PEA $00FE
_EnableMItem
STAL L02B111
PEA $00FF
_EnableMItem
STAL L02B111
BRA L02440F
L0243BB PEA $00FA
_DisableMItem
STAL L02B111
PEA $00FB
_DisableMItem
STAL L02B111
PEA $00FC
_DisableMItem
STAL L02B111
PEA $00FD
_DisableMItem
STAL L02B111
PEA $00FE
_DisableMItem
STAL L02B111
PEA $00FF
_DisableMItem
STAL L02B111
L02440F PLD
TSC
CLC
ADC #$0004
TCS
RTL
L024417 TSC
SEC
SBC #$0008
TCS
PHD
TCD
LDAL L0400B2
PHA
LDAL L0400B0
PHA
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L024435
DEY
L024435 TXA
CMP $03,S
BEQ L02443D
LDY #$0000
L02443D PLA
PLA
TYA
BNE L02446A
LDAL L0400B2
PHA
LDAL L0400B0
PHA
LDA #$0004
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L02445A
DEY
L02445A TXA
CMP $03,S
BEQ L024462
LDY #$0000
L024462 PLA
PLA
TYA
BNE L02446A
BRL L0245D6
L02446A JSL L020925
LDA L030039
ORA L03003B
BNE L02448D
CLC
LDAL L030039
ADC #$0001
STAL L030039
BCC L02448D
LDAL L03003B
INC
STAL L03003B
L02448D PEA $0000
PEA $FFFA
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L0244A8
TYA
CMP $01,S
L0244A8 BEQ L0244AC
BCS L0244AD
L0244AC DEX
L0244AD PLA
PLA
TXA
BEQ L0244C0
LDA #$0000
STAL L03003B
LDA #$FFFA
STAL L030039
L0244C0 JSL L026CEE
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $07
STA $05
LDA #$0000
STA [$05]
LDAL L030025
STA [$05],Y
LDY #$0004
LDAL L030017
STA [$05],Y
LDY #$0006
LDAL L03000D
STA [$05],Y
LDY #$0008
LDAL L030039
STA [$05],Y
LDAL L0400B2
PHA
LDAL L0400B0
PHA
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L024519
DEY
L024519 TXA
CMP $03,S
BEQ L024521
LDY #$0000
L024521 PLA
PLA
TYA
BNE L024529
BRL L0245D2
L024529 LDAL L030019
AND #$00F7
STAL L030019
LDAL L030003
PHA
LDAL L030001
PHA
_HideWindow
STAL L02B111
LDAL L030019
AND #$0002
BEQ L0245D0
PEA $0115
_EnableMItem
STAL L02B111
PEA $0113
_EnableMItem
STAL L02B111
PEA $0114
_EnableMItem
STAL L02B111
PEA $0112
_EnableMItem
STAL L02B111
PEA $0104
_EnableMItem
STAL L02B111
PEA $010E
_EnableMItem
STAL L02B111
PEA $0109
_EnableMItem
STAL L02B111
PEA $0108
_EnableMItem
STAL L02B111
PEA $010F
_EnableMItem
STAL L02B111
L0245D0 BRA L0245D6
L0245D2 JSL L026715
L0245D6 PLD
TSC
CLC
ADC #$0008
TCS
RTL
L0245DE TSC
SEC
SBC #$0008
TCS
PHD
TCD
LDA #$001F
STAL L0400A0
LDA #$FFFF
STAL L04009E
L0245F4 JSL L02431C
PHA
PHA
PEA $C000
PEA $0000
_HandleDiskInsert
STAL L02B111
PLA
STA $03
PLA
STA $05
PHA
PEA $FFFF
PEA ^L04008A
PEA L04008A
_TaskMaster
STAL L02B111
PLA
STA $01
STA $07
L02462B BRA L02465A
LDAL L04009C
PHA
LDAL L04009A
PHA
JSL L02419A
L02463B BRA L024694
JSL L024417
L024641 BRA L024694
LDAL L04009C
PHA
LDAL L04009A
PHA
_CloseWindow
STAL L02B111
BRA L024694
L02465A LDA $07
SEC
SBC #$0011
CMP #$0011
BCC L024668
LDA #$0011
L024668 ASL
TAX
LDAL L024670,X
PHA
RTS
L024670 DA L02462B+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L024641+1
DA L024692+1
DA L024692+1
DA L02462B+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L024692+1
DA L02463B+1
L024692 DA L024692+1
L024694 LDAL L030015
BNE L02469D
BRL L0245F4
L02469D PLD
TSC
CLC
ADC #$0008
TCS
RTL
L0246A5 JSL L024E9F
JSL L020015
_ShowCursor
STAL L02B111
JSL L0245DE
JSL L024ACF
RTL
L0246C1 TSC
SEC
SBC #$000A
TCS
PHD
TCD
PHA
PHA
LDA #$0002
PHA
PEI $10
PEI $0E
PEI $14
PEI $12
_NewMenuBar2
STAL L02B111
PLA
STA $07
PLA
STA $09
LDA $12
ORA $14
BEQ L0246F1
BRL L02473E
L0246F1 PEI $09
PEI $07
_SetSysBar
STAL L02B111
PEA $0000
PEA $0000
_SetMenuBar
STAL L02B111
PEA $0000
PEA $0000
_RefreshDesktop
STAL L02B111
LDA #$0001
PHA
_FixAppleMenu
STAL L02B111
PHA
_FixMenuBar
STAL L02B111
PLA
L02473E _DrawMenuBar
STAL L02B111
LDA $07
LDX $09
STA $01
STX $03
LDA $0C
STA $14
LDA $0B
STA $13
LDX $03
LDY $01
PLD
TSC
CLC
ADC #$0012
TCS
TYA
RTL
L024766 TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHB
PHB
PLA
STA $03
PEA >L03003D
PLB
PLB
PHA
PHA
_GetPort
STAL L02B111
_DrawControls
STAL L02B111
LDA $03
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$0004
TCS
RTL
L02479D TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHB
PHB
PLA
STA $03
PEA >L03003D
PLB
PLB
LDA $06
STA $0E
LDA $05
STA $0D
LDA $03
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$000C
TCS
RTL
L0247C4 TSC
SEC
SBC #$000A
TCS
PHD
TCD
PHB
PHB
PLA
STA $09
PEA >L03003D
PLB
PLB
LDY #$0010
LDA [$0E],Y
LDX #$0000
CMP #$000F
BNE L0247E4
INX
L0247E4 TXA
LDX #$0000
TAY
BPL L0247EC
DEX
L0247EC STX $03
ORA $03
BEQ L0247F8
LDA #$0001
BRL L02480C
L0247F8 LDY #$0038
LDA [$0E],Y
TAX
LDY #$0036
LDA [$0E],Y
STX $03
ORA $03
BEQ L02480C
LDA #$0001
L02480C TAX
BNE L024812
BRL L02481A
L024812 LDA #$0002
STA $01
BRL L02481C
L02481A STZ $01
L02481C LDA $0C
STA $10
LDA $0B
STA $0F
LDY $01
LDA $09
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$000E
TCS
TYA
STA $04,S
RTL
L024836 TSC
SEC
SBC #$000A
TCS
PHD
TCD
PHB
PHB
PLA
STA $09
PEA >L03003D
PLB
PLB
LDY #$0010
LDA [$0E],Y
LDX #$0000
CMP #$000F
BNE L024856
INX
L024856 TXA
LDX #$0000
TAY
BPL L02485E
DEX
L02485E STX $03
ORA $03
BEQ L02486A
LDA #$0001
BRL L02487E
L02486A LDY #$0014
LDA [$0E],Y
TAX
LDY #$0012
LDA [$0E],Y
STX $03
ORA $03
BEQ L02487E
LDA #$0001
L02487E TAX
BNE L024884
BRL L02488C
L024884 LDA #$0002
STA $01
BRL L02488E
L02488C STZ $01
L02488E LDA $0C
STA $10
LDA $0B
STA $0F
LDY $01
LDA $09
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$000E
TCS
TYA
STA $04,S
RTL
L0248A8 TSC
SEC
SBC #$0008
TCS
PHD
TCD
PHB
PHB
PLA
STA $07
PEA >L03003D
PLB
PLB
LDA L03004C
ORA L03004E
BEQ L0248C5
BRL L0248DC
L0248C5 PHA
PHA
_GetDblTime
STAL L02B111
PLA
STAL L03004C
PLA
STAL L03004E
L0248DC LDA [$0C]
CMP #$0003
BEQ L0248E6
BRL L024958
L0248E6 LDY #$0004
LDA [$0C],Y
PHA
LDY #$0002
LDA [$0C],Y
PHA
PLA
AND #$00FF
PHA
LDA $03,S
AND #$0000
STA $03,S
LDA #$002E
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L02490C
DEY
L02490C TXA
CMP $03,S
BEQ L024914
LDY #$0000
L024914 PLA
PLA
TYA
BNE L02491C
BRL L024958
L02491C LDY #$000E
LDA [$0C],Y
AND #$0100
BNE L024929
BRL L024958
L024929 LDY #$0004
LDA [$0C],Y
PHA
LDY #$0002
LDA [$0C],Y
PHA
PLA
AND #$FF00
PHA
LDA $03,S
AND #$FFFF
STA $03,S
PLA
ORA #$001B
PHA
LDA $03,S
ORA #$0000
STA $03,S
LDY #$0002
PLA
STA [$0C],Y
INY
INY
PLA
STA [$0C],Y
L024958 LDA [$0C]
CMP #$0001
BEQ L024962
BRL L024A45
L024962 LDY #$000A
LDA [$0C],Y
STA $01
LDAL L030042
SEC
SBC $01
BEQ L024979
BVS L024977
EOR #$8000
L024977 BMI L02497C
L024979 BRL L024A45
L02497C LDY #$000A
LDA [$0C],Y
BMI L02498A
CMP #$0032
BEQ L02498A
BCS L02498D
L02498A BRL L024A45
L02498D LDY #$000A
TYA
CLC
ADC #$0002
TAY
LDA [$0C],Y
BMI L0249A2
CMP #$01C7
BCC L0249A2
BRL L024A45
L0249A2 LDY #$000A
TYA
CLC
ADC #$0002
TAY
LDA [$0C],Y
BMI L0249B6
CMP #$0041
BEQ L0249B6
BCS L0249B9
L0249B6 BRL L024A45
L0249B9 LDY #$0008
LDA [$0C],Y
PHA
LDY #$0006
LDA [$0C],Y
PHA
LDAL L03004E
PHA
LDAL L03004C
PHA
LDAL L030046
PHA
LDAL L030044
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLY
PLA
LDX #$0001
CMP $03,S
BNE L0249F0
TYA
CMP $01,S
L0249F0 BEQ L0249F4
BCS L0249F5
L0249F4 DEX
L0249F5 PLA
PLA
TXA
BNE L0249FD
BRL L024A31
L0249FD LDA #$0003
STA [$0C]
LDY #$0004
LDA [$0C],Y
PHA
LDY #$0002
LDA [$0C],Y
PHA
PLA
AND #$FF00
PHA
LDA $03,S
AND #$FFFF
STA $03,S
PLA
ORA #$000D
PHA
LDA $03,S
ORA #$0000
STA $03,S
LDY #$0002
PLA
STA [$0C],Y
INY
INY
PLA
STA [$0C],Y
L024A31 LDY #$0008
LDA [$0C],Y
TAX
LDY #$0006
LDA [$0C],Y
STAL L030044
TXA
STAL L030046
L024A45 LDA $0A
STA $0E
LDA $09
STA $0D
LDA $07
PHA
PLB
PLB
PLD
TSC
CLC
ADC #$000C
TCS
RTL
L024A5A TSC
SEC
SBC #$0006
TCS
PHD
TCD
LDX $03
PHX
TSX
STX $03
JSL L02AE55
TAY
LDA $03
TCS
PLA
STA $03
TYA
STAL L030035
PHA
PHA
LDAL L030035
PHA
LDA #$000A
PHA
PEA $0000
PEA $0001
_StartUpTools
STAL L02B111
PLA
STAL L030048
PLA
STAL L03004A
LDX $03
PHX
TSX
STX $03
JSL L02AE36
TAY
LDA $03
TCS
PLA
STA $03
TYA
TAX
BNE L024AB6
BRL L024ABE
L024AB6 LDA #$FFFF
STA $05
BRL L024AC0
L024ABE STZ $05
L024AC0 LDA $05
STA $01
LDY $01
PLD
TSC
CLC
ADC #$0006
TCS
TYA
RTL
L024ACF PHA
TSC
PHD
TCD
LDA #$0001
PHA
LDAL L03004A
PHA
LDAL L030048
PHA
_ShutDownTools
STAL L02B111
PLD
PLY
RTL
L024AEF TSC
SEC
SBC #$0040
TCS
PHD
TCD
LDA #$0000
STA $0B
LDA #$0001
LDX #$0000
TAY
BPL L024B06
DEX
L024B06 PHX
PHA
PEA $0000
PEA $0004
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0044
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
LDA #$0001
LDX #$0000
TAY
BPL L024B30
DEX
L024B30 PHX
PHA
PEA $0000
PEA $0004
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0039
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $03
PLA
STA $05
LDA $01,S
STA [$03]
LDY #$0002
LDA $03,S
STA [$03],Y
LDA #$0000
LDX #$0000
TAY
BPL L024B6B
DEX
L024B6B PHX
PHA
PEA $0000
PEA $0004
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0039
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $03
PLA
STA $05
LDA $01,S
STA [$03]
LDY #$0002
LDA $03,S
STA [$03],Y
PLA
PLA
L024B9E LDA #$FFFF
LDX #$0000
TAY
BPL L024BA8
DEX
L024BA8 PHX
PHA
PEA $0000
PEA $0004
JSL L02C5AD
LDA #$0000
LDX #$0000
TAY
BPL L024BBE
DEX
L024BBE PHX
PHA
PEA $0000
PEA $0004
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0039
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $0D
PLA
STA $0F
PEA $0000
PEA $0004
PEA $0000
PEA $0001
JSL L02C5AD
LDY #$0002
LDA [$0D],Y
PHA
LDA [$0D]
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
LDA $01,S
STA [$0D]
LDY #$0002
LDA $03,S
STA [$0D],Y
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $03
STX $05
LDY #$0002
LDA [$03],Y
PHA
LDA [$03]
PHA
LDA $01,S
STA $07
LDA $03,S
STA $09
PLA
STA $03
PLA
ORA $03
BNE L024C40
BRL L024C64
L024C40 LDA #$000A
LDX #$0001
SEC
SBC $0B
BEQ L024C52
BVS L024C50
EOR #$8000
L024C50 BMI L024C53
L024C52 DEX
L024C53 TXA
LDX #$0000
TAY
BPL L024C5B
DEX
L024C5B STX $03
ORA $03
BEQ L024C64
LDA #$0001
L024C64 TAY
BNE L024C6A
BRL L024CAF
L024C6A PEI $09
PEI $07
LDA $0B
INC $0B
LDX #$0000
TAY
BPL L024C79
DEX
L024C79 PHX
PHA
PEA $0000
PEA $0004
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0011
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $03
PLA
STA $05
LDA $01,S
STA [$03]
LDY #$0002
LDA $03,S
STA [$03],Y
PLA
PLA
BRL L024B9E
L024CAF PEA $0000
TDC
CLC
ADC #$0039
PHA
JSL L02AE5A
PHA
LDA #$0004
PHA
PEA $0000
TDC
CLC
ADC #$0011
PHA
PEI $46
PEI $44
_AlertWindow
STAL L02B111
PLA
STA $01
BRL L024CDF
L024CDF LDA $42
STA $46
LDA $41
STA $45
LDY $01
PLD
TSC
CLC
ADC #$0044
TCS
TYA
RTL
L024CF2 TSC
SEC
SBC #$000E
TCS
PHD
TCD
PHA
PHA
_FindTargetCtl
STAL L02B111
PLA
STA $0B
PLA
STA $0D
LDX $09
PHX
TSX
STX $09
JSL L02AE36
TAY
LDA $09
TCS
PLA
STA $09
TYA
TAX
BNE L024D25
BRL L024D32
L024D25 LDA #$0000
STA $01
LDA #$0000
STA $03
BRL L024DA9
L024D32 PHA
PEI $0D
PEI $0B
_GetCtlMoreFlags
STAL L02B111
PLA
AND #$1000
BNE L024D4B
BRL L024D9F
L024D4B LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STA $05
STX $07
LDY #$0016
LDA [$05],Y
PHA
LDY #$0014
LDA [$05],Y
PHA
LDA #$0000
LDX #$8300
LDY #$0001
CMP $01,S
BEQ L024D71
DEY
L024D71 TXA
CMP $03,S
BEQ L024D79
LDY #$0000
L024D79 PLA
PLA
TYA
BNE L024D81
BRL L024D9F
L024D81 LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STA $05
STX $07
LDY #$001E
LDA [$05],Y
TAX
LDY #$001C
LDA [$05],Y
STX $03
STA $01
BRL L024DA9
L024D9F LDA #$0000
STA $01
LDA #$0000
STA $03
L024DA9 LDX $03
LDY $01
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L024DB6 PHA
TSC
PHD
TCD
_GrafOff
STAL L02B111
LDX $01
PHX
TSX
STX $01
PEA ^L024E5C
PEA L024E5C
JSL L02A80B
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDX $01
PHX
TSX
STX $01
LDAL L03002B
PHA
LDA $06
PHA
PEA ^L024E8F
PEA L024E8F
JSL L02A77E
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDX $01
PHX
TSX
STX $01
JSL L02A66F
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L024ACF
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDX $01
PHX
TSX
STX $01
LDA #$0001
PHA
JSL L02A667
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDA $04
STA $06
LDA $03
STA $05
PLD
TSC
CLC
ADC #$0004
TCS
RTL
L024E5C ASC 'A fatal error has occurred. Press any k'
ASC 'ey to exit.'00
L024E8F ASC 'Location %d: %X'00
L024E9F PHA
TSC
PHD
TCD
LDX $01
PHX
TSX
STX $01
JSL L024A5A
TAY
LDA $01
TCS
PLA
STA $01
TYA
TAX
BNE L024EBB
BRL L024ED1
L024EBB LDX $01
PHX
TSX
STX $01
LDA #$0001
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L024ED1 LDX $01
PHX
TSX
STX $01
PEA $0000
PEA $0000
PEA $0000
PEA $0001
JSL L0246C1
TAY
LDA $01
TCS
PLA
STA $01
TYA
PLD
PLY
RTL
L024EF2 TSC
SEC
SBC #$0012
TCS
PHD
TCD
LDAL L030023
TAX
LDAL L030021
SEC
SBC #$0001
BCS L024F0A
DEX
L024F0A STX $0D
STA $0B
LDAL L030019
AND #$0002
BNE L024F1A
BRL L024F82
L024F1A LDA #$0000
STA $07
LDA #$0000
STA $09
LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $0F
LDA $03,S
STA $11
PLA
PLA
L024F38 PEI $09
PEI $07
LDX $0D
LDA $0B
TAY
TXA
LDX #$0001
CMP $03,S
BNE L024F4C
TYA
CMP $01,S
L024F4C BEQ L024F50
BCS L024F51
L024F50 DEX
L024F51 PLA
PLA
TXA
BNE L024F59
BRL L024F82
L024F59 LDA [$0F]
AND #$00FF
TAX
BEQ L024F64
BRL L024F6D
L024F64 SEP #$20
LDA [$0F]
INC
STA [$0F]
REP #$20
L024F6D INC $07
BNE L024F73
INC $09
L024F73 PEI $11
PEI $0F
INC $0F
BNE L024F7D
INC $11
L024F7D PLA
PLA
BRL L024F38
L024F82 PLD
TSC
CLC
ADC #$0012
TCS
RTL
L024F8A PHA
TSC
PHD
TCD
LDAL L030019
AND #$0004
BEQ L024F9A
BRL L025009
L024F9A PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FFA
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STAL L030001
PLA
STAL L030003
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L024FF3
BRL L025009
L024FF3 LDX $01
PHX
TSX
STX $01
LDA #$001F
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L025009 LDAL L030019
AND #$0008
BEQ L025015
BRL L0250DF
L025015 LDAL L030003
PHA
LDAL L030001
PHA
_ShowWindow
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L025046
BRL L02505C
L025046 LDX $01
PHX
TSX
STX $01
LDA #$0020
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L02505C LDA #$0109
PHA
_DisableMItem
STAL L02B111
LDA #$0115
PHA
_DisableMItem
STAL L02B111
LDA #$0113
PHA
_DisableMItem
STAL L02B111
LDA #$0114
PHA
_DisableMItem
STAL L02B111
LDA #$0112
PHA
_DisableMItem
STAL L02B111
LDA #$0104
PHA
_DisableMItem
STAL L02B111
LDA #$010E
PHA
_DisableMItem
STAL L02B111
LDA #$010F
PHA
_DisableMItem
STAL L02B111
LDAL L030019
ORA #$000C
STAL L030019
L0250DF PLD
PLY
RTL
L0250E2 TSC
SEC
SBC #$0014
TCS
PHD
TCD
LDAL L03002B
BMI L0250F8
CMP #$0072
BCC L0250F8
BRL L025119
L0250F8 PHA
LDA #$0000
PHA
PEA $0000
PEA $0000
LDAL L03002B
PHA
_ErrorWindow
STAL L02B111
PLA
STA $07
BRL L0251EE
L025119 LDAL L03002B
CMP #$0086
BEQ L025125
BRL L0251A8
L025125 PHA
PHA
LDAL L03002F
PHA
LDAL L03002D
PHA
_GetHandleSize
STAL L02B111
PEA $0000
PEA $000A
JSL L02B0CB
PLA
STA $09
PLA
STA $0B
LDA $09
ORA $0B
BEQ L025155
BRL L02515F
L025155 LDA #$0001
STA $09
LDA #$0000
STA $0B
L02515F LDX $05
PHX
TSX
STX $05
PEI $0B
PEI $09
PEA ^L0251F6
PEA L0251F6
PEA $0000
TDC
CLC
ADC #$000D
PHA
JSL L02AA15
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHA
LDA #$0000
PHA
PEA $0000
TDC
CLC
ADC #$000D
PHA
LDAL L03002B
PHA
_ErrorWindow
STAL L02B111
PLA
STA $07
BRL L0251EE
L0251A8 LDX $05
PHX
TSX
STX $05
LDAL L03002B
PHA
PEA ^L0251FA
PEA L0251FA
PEA $0000
TDC
CLC
ADC #$000D
PHA
JSL L02AA15
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHA
LDA #$0000
PHA
PEA $0000
TDC
CLC
ADC #$000D
PHA
LDA #$0072
PHA
_ErrorWindow
STAL L02B111
PLA
STA $07
L0251EE PLD
TSC
CLC
ADC #$0014
TCS
RTL
L0251F6 ASC '%ld'00
L0251FA ASC '%X'00
L0251FD TSC
SEC
SBC #$0022
TCS
PHD
TCD
LDA #$0004
STAL L0400B8
LDX $28
LDA $26
STAL L0400BC
TXA
STAL L0400BE
LDA #$0002
STAL L0400C0
LDA #$0001
STAL L0400C2
LDX $05
PHX
TSX
STX $05
LDA #$2010
PHA
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L02525F
BRL L025274
L02525F LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L02536D
L025274 LDA #$0003
STA $19
LDAL L0400BA
PHA
PLA
STA $1B
STA $09
STZ $1D
LDA #$000C
STA $1F
LDA #$0000
STA $21
LDX $05
PHX
TSX
STX $05
LDA #$2016
PHA
PEA $0000
TDC
CLC
ADC #$0019
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0252CA
BRL L0252E0
L0252CA LDX $05
PHX
TSX
STX $05
LDA #$0006
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0252E0 LDA #$0004 ; write suffix
STA $07
LDA #L040000
STA $0B
LDA #^L040000
STA $0D
* LDA #$0033
* STA $0F
lda L030021
and #$ff
sta $0f
lda #256
sec
sbc $0f
sta $0f
LDA #$0000
STA $11
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0007
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025334
BRL L02534A
L025334 LDX $05
PHX
TSX
STX $05
LDA #$0007
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02534A LDA #$0001
STAL L0400B8
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA ^L0400B8
PEA L0400B8
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02536D LDA $24
STA $28
LDA $23
STA $27
PLD
TSC
CLC
ADC #$0026
TCS
RTL
L02537D TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDAL L030019
AND #$0001
BNE L025391
BRL L0253E3
L025391 PHA
LDA #$0005
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0002
_AlertWindow
STAL L02B111
PLA
STA $03
LDA $03
TAX
BEQ L0253B8
LDA #$0001
L0253B8 EOR #$0001
BNE L0253C0
BRL L0253C3
L0253C0 BRL L02544D
L0253C3 LDA $03
CMP #$0002
BEQ L0253CD
BRL L0253E3
L0253CD LDX $01
PHX
TSX
STX $01
LDA #$0001
PHA
JSL L0209F9
TAY
LDA $01
TCS
PLA
STA $01
TYA
L0253E3 LDA #$FFFF
STAL L030015
LDAL L030019
AND #$0002
BNE L0253F6
BRL L02540B
L0253F6 LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
L02540B LDAL L030019
AND #$0004
BNE L025417
BRL L02542C
L025417 LDAL L030003
PHA
LDAL L030001
PHA
_CloseWindow
STAL L02B111
L02542C LDAL L030019
AND #$0010
BNE L025438
BRL L02544D
L025438 LDAL L03001F
PHA
LDAL L03001D
PHA
_CloseWindow
STAL L02B111
L02544D PLD
TSC
CLC
ADC #$0004
TCS
RTL
L025455 PHA
TSC
PHD
TCD
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0002
LDX $01
PHX
TSX
STX $01
PEI $08
PEI $06
JSL L02A628
TAY
LDA $01
TCS
PLA
STA $01
TYA
PHX
PHA
_SetLETextByID
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L0254A8
BRL L0254BE
L0254A8 LDX $01
PHX
TSX
STX $01
LDA #$00E7
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L0254BE LDX $01
PHX
TSX
STX $01
LDAL L03003B
PHA
LDAL L030039
PHA
PEA ^L0256B4
PEA L0256B4
PEI $08
PEI $06
JSL L02AA15
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0009
LDX $01
PHX
TSX
STX $01
PEI $08
PEI $06
JSL L02A628
TAY
LDA $01
TCS
PLA
STA $01
TYA
PHX
PHA
_SetLETextByID
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L025533
BRL L025549
L025533 LDX $01
PHX
TSX
STX $01
LDA #$00E8
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L025549 LDX $01
PHX
TSX
STX $01
LDAL L03000D
PHA
PEA ^L0256B8
PEA L0256B8
PEI $08
PEI $06
JSL L02AA15
TAY
LDA $01
TCS
PLA
STA $01
TYA
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0006
LDX $01
PHX
TSX
STX $01
PEI $08
PEI $06
JSL L02A628
TAY
LDA $01
TCS
PLA
STA $01
TYA
PHX
PHA
_SetLETextByID
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L0255B9
BRL L0255CF
L0255B9 LDX $01
PHX
TSX
STX $01
LDA #$00E9
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L0255CF LDAL L030003
PHA
LDAL L030001
PHA
_ShowWindow
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L025600
BRL L025616
L025600 LDX $01
PHX
TSX
STX $01
LDA #$0018
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L025616 LDA #$0109
PHA
_DisableMItem
STAL L02B111
LDA #$0112
PHA
_DisableMItem
STAL L02B111
LDA #$0115
PHA
_DisableMItem
STAL L02B111
LDA #$0113
PHA
_DisableMItem
STAL L02B111
LDA #$0114
PHA
_DisableMItem
STAL L02B111
LDA #$0104
PHA
_DisableMItem
STAL L02B111
LDA #$010E
PHA
_DisableMItem
STAL L02B111
LDA #$010F
PHA
_DisableMItem
STAL L02B111
LDAL L030019
ORA #$000F
STAL L030019
LDAL L030019
AND #$FFBF
STAL L030019
LDA $04
STA $08
LDA $03
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
RTL
L0256B4 AND $6C
STZ $00
L0256B8 AND $64
L0256BA BRK $3B
SEC
SBC #$0010
TCS
PHD
TCD
LDA $14
LDX $16
STA $09
STX $0B
LDA $18
LDX $1A
STA $0D
STX $0F
L0256D3 LDX $07
PHX
TSX
STX $07
LDA [$09]
AND #$00FF
PHA
JSL L02AE3B
TAY
LDA $07
TCS
PLA
STA $07
TYA
PHA
LDX $07
PHX
TSX
STX $07
LDA [$0D]
AND #$00FF
PHA
JSL L02AE3B
TAY
LDA $07
TCS
PLA
STA $07
TYA
SEC
SBC $01,S
PLX
TAX
BEQ L02570E
BRL L025733
L02570E LDA [$09]
AND #$00FF
TAX
BNE L025719
BRL L025733
L025719 LDA [$0D]
AND #$00FF
TAX
BNE L025724
BRL L025733
L025724 INC $09
BNE L02572A
INC $0B
L02572A INC $0D
BNE L025730
INC $0F
L025730 BRL L0256D3
L025733 LDX $07
PHX
TSX
STX $07
LDA [$09]
AND #$00FF
PHA
JSL L02AE3B
TAY
LDA $07
TCS
PLA
STA $07
TYA
PHA
LDX $07
PHX
TSX
STX $07
LDA [$0D]
AND #$00FF
PHA
JSL L02AE3B
TAY
LDA $07
TCS
PLA
STA $07
TYA
PLY
STY $03
SEC
SBC $03
BEQ L025773
BVS L025771
EOR #$8000
L025771 BMI L025776
L025773 BRL L02577E
L025776 LDA #$FFFF
STA $01
BRL L0257CB
L02577E LDX $07
PHX
TSX
STX $07
LDA [$0D]
AND #$00FF
PHA
JSL L02AE3B
TAY
LDA $07
TCS
PLA
STA $07
TYA
PHA
LDX $07
PHX
TSX
STX $07
LDA [$09]
AND #$00FF
PHA
JSL L02AE3B
TAY
LDA $07
TCS
PLA
STA $07
TYA
PLY
STY $03
SEC
SBC $03
BEQ L0257BE
BVS L0257BC
EOR #$8000
L0257BC BMI L0257C1
L0257BE BRL L0257C9
L0257C1 LDA #$0001
STA $01
BRL L0257CB
L0257C9 STZ $01
L0257CB LDA $12
STA $1A
LDA $11
STA $19
LDY $01
PLD
TSC
CLC
ADC #$0018
TCS
TYA
RTL
L0257DE TSC
SEC
SBC #$021D
TCS
PHD
TCD
LDA #$0009
LDX #$013C
STA $00,X
LDX #$013E
LDA #$0003
STA $00,X
LDA #$0000
STA $02,X
LDA #$006D
LDX #$0142
STA $00,X
LDA #$0028
LDX #$0144
STA $00,X
LDA #$007B
LDX #$0146
STA $00,X
LDA #$006E
LDX #$0148
STA $00,X
LDX #$014A
LDA #$0000
STA $00,X
LDA #$8000
STA $02,X
LDA #$0001
LDX #$014E
STA $00,X
LDA #$3000
LDX #$0150
STA $00,X
LDX #$0152
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
PEA ^L0266D0
PEA L0266D0
LDX #$0156
PLA
STA $00,X
PLA
STA $02,X
LDX #$015A
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
SEP #$20
LDA #$0D
LDX #$015E
STA $00,X
REP #$20
SEP #$20
LDA #$8D
LDX #$015F
STA $00,X
REP #$20
LDX #$0160
STZ $00,X
LDX #$0162
STZ $00,X
LDA #$0009
LDX #$0164
STA $00,X
LDX #$0166
LDA #$0001
STA $00,X
LDA #$0000
STA $02,X
LDA #$006C
LDX #$016A
STA $00,X
LDA #$015E
LDX #$016C
STA $00,X
LDA #$007C
LDX #$016E
STA $00,X
LDA #$01A4
LDX #$0170
STA $00,X
LDX #$0172
LDA #$0000
STA $00,X
LDA #$8000
STA $02,X
LDX #$0176
STZ $00,X
LDA #$3000
LDX #$0178
STA $00,X
LDX #$017A
LDA #$0001
STA $00,X
LDA #$0000
STA $02,X
PEA ^L0266D6
PEA L0266D6
LDX #$017E
PLA
STA $00,X
PLA
STA $02,X
LDX #$0182
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
SEP #$20
LDA #$9B
LDX #$0186
STA $00,X
REP #$20
SEP #$20
LDA #$1B
LDX #$0187
STA $00,X
REP #$20
LDX #$0188
STZ $00,X
LDX #$018A
STZ $00,X
LDA #$000E
LDX #$018C
STA $00,X
LDX #$018E
LDA #$0002
STA $00,X
LDA #$0000
STA $02,X
LDA #$0014
LDX #$0192
STA $00,X
LDA #$0014
LDX #$0194
STA $00,X
LDA #$0064
LDX #$0196
STA $00,X
LDA #$019A
LDX #$0198
STA $00,X
LDX #$019A
LDA #$0000
STA $00,X
LDA #$8900
STA $02,X
LDX #$019E
STZ $00,X
LDA #$7400
LDX #$01A0
STA $00,X
LDX #$01A2
LDA #$0042
STA $00,X
LDA #$0000
STA $02,X
LDX #$01A6
STZ $00,X
LDA #$0008
LDX #$01A8
STA $00,X
LDA #$0003
LDX #$01AA
STA $00,X
LDA #$0001
LDX #$01AC
STA $00,X
LDX #$01AE
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDA #$000A
LDX #$01B2
STA $00,X
LDA #$0006
LDX #$01B4
STA $00,X
LDX #$01B6
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$01BA
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$01BE
TDC
CLC
ADC #$013C
STA $00,X
STZ $02,X
LDX #$01C2
TDC
CLC
ADC #$0164
STA $00,X
STZ $02,X
LDX #$01C6
TDC
CLC
ADC #$018C
STA $00,X
STZ $02,X
LDX #$01CA
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDA #$0050
LDX #$01CE
STA $00,X
LDA #$0060
LDX #$01D0
STA $00,X
LDX #$01D2
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$01D6
LDA #$002A
STA $00,X
LDA #$0000
STA $02,X
LDA #$000A
LDX #$01DA
STA $00,X
LDA #$0014
LDX #$01DC
STA $00,X
LDA #$0244
LDX #$01DE
STA $00,X
LDA #$00B4
LDX #$01E0
STA $00,X
LDX #$01E2
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$01E6
STZ $00,X
LDX #$01E8
STZ $00,X
LDX #$01EA
STZ $00,X
LDX #$01EC
STZ $00,X
LDX #$01EE
STZ $00,X
LDX #$01F0
STZ $00,X
LDX #$01F2
STZ $00,X
LDX #$01F4
STZ $00,X
LDX #$01F6
STZ $00,X
LDX #$01F8
STZ $00,X
LDX #$01FA
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$01FE
STZ $00,X
LDX #$0200
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$0204
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDX #$0208
LDA #$0000
STA $00,X
LDA #$0000
STA $02,X
LDA #$001E
LDX #$020C
STA $00,X
LDA #$002D
LDX #$020E
STA $00,X
LDA #$00AA
LDX #$0210
STA $00,X
LDA #$020D
LDX #$0212
STA $00,X
LDX #$0214
LDA #$FFFF
STA $00,X
LDA #$FFFF
STA $02,X
TDC
CLC
ADC #$01BE
LDX #$0000
TXY
LDX #$0218
STA $00,X
STY $02,X
LDA #$0003
LDX #$021C
STA $00,X
LDX $05
PHX
TSX
STX $05
JSL L020FED
TAY
LDA $05
TCS
PLA
STA $05
TYA
TAX
BEQ L025B19
BRL L025B1C
L025B19 BRL L0266C8
L025B1C LDA #$0003
STAL L0400FA
LDA #$0003
STAL L040100
STZ $0B
LDA #$004B
PHA
LDA #$0028
PHA
LDA #$0000
PHA
PEA ^L0266DE
PEA L0266DE
PEA ^L0247C4
PEA L0247C4
PEA $0000
PEA $0000
PEA ^L0400F2
PEA L0400F2
_SFGetFile2
STAL L02B111
LDAL L0400F2
BNE L025B64
BRL L0266C8
L025B64 LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
PHA
LDA #$8001
PHA
PEA $0000
PEA $0000
LDAL L03000B
PHA
LDAL L030009
PHA
PLA
CLC
ADC #$0002
BCC L025BB3
PLX
INX
PHX
L025BB3 PHA
_OpenResourceFile
STAL L02B111
PLA
STA $0D
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025BDE
BRL L025C81
L025BDE LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025C21
BRL L025C37
L025C21 LDX $05
PHX
TSX
STX $05
LDA #$0334
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L025C37 LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025C68
BRL L025C7E
L025C68 LDX $05
PHX
TSX
STX $05
LDA #$0335
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L025C7E BRL L0266C8
L025C81 PHA
LDA #$0001
PHA
_SetResourceFileDepth
STAL L02B111
PLA
STA $0F
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025CB0
BRL L025CC6
L025CB0 LDX $05
PHX
TSX
STX $05
LDA #$0009
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L025CC6 PHA
PHA
LDA #$8024
PHA
_CountResources
STAL L02B111
PLA
STA $23
PLA
STA $25
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025CF9
BRL L025D0F
L025CF9 LDX $05
PHX
TSX
STX $05
LDA #$000A
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L025D0F LDA $23
ORA $25
BEQ L025D18
BRL L025D65
L025D18 PHA
LDA $0F
PHA
_SetResourceFileDepth
STAL L02B111
PLA
STA $0F
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDA $0D
PHA
_CloseResourceFile
STAL L02B111
BRL L0266C8
L025D65 LDX $05
PHX
TSX
STX $05
PEI $25
PEI $23
PEA $0000
PEA $0006
JSL L02C5AD
JSL L02C21D
TAY
LDA $05
TCS
PLA
STA $05
TYA
STX $19
STA $17
LDX $05
PHX
TSX
STX $05
PEI $25
PEI $23
PEA $0000
PEA $0104
JSL L02C5AD
JSL L02C21D
TAY
LDA $05
TCS
PLA
STA $05
TYA
STX $2D
STA $2B
PEA $0000
PEA $000A
PEI $25
PEI $23
JSL L02C444
BEQ L025DC0
BRL L025DC9
L025DC0 PEA $0000
PEA $000A
BRL L025DCD
L025DC9 PEI $25
PEI $23
L025DCD PEA $0000
PEA $000A
JSL L02C5AD
PLA
CLC
ADC #$0034
BCC L025DE1
PLX
INX
PHX
L025DE1 PHA
PLA
PLX
STAL L030042
STZ $11
PEA $0000
PEA $0001
LDA $01,S
STA $13
LDA $03,S
STA $15
PLA
PLA
PEI $19
PEI $17
LDA $01,S
STA $1B
LDA $03,S
STA $1D
PLA
PLA
PEI $2D
PEI $2B
LDA $01,S
STA $2F
LDA $03,S
STA $31
PLA
PLA
L025E16 PEI $25
PEI $23
LDA $11
LDX #$0000
TAY
BPL L025E23
DEX
L025E23 PHX
PHA
JSL L02C444
BNE L025E2E
BRL L025F8E
L025E2E PHA
PHA
LDA #$8024
PHA
PEI $15
PEI $13
_GetIndResource
STAL L02B111
LDY #$0100
PLA
STA [$2F],Y
INY
INY
PLA
STA [$2F],Y
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L025E6A
BRL L025E80
L025E6A LDX $05
PHX
TSX
STX $05
LDA #$000B
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L025E80 LDA #$8024
PHA
LDY #$0102
LDA [$2F],Y
PHA
LDY #$0100
LDA [$2F],Y
PHA
PEI $31
PEI $2F
_RMGetResourceName
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
CMP #$1E10
BNE L025EBD
BRL L025EC9
L025EBD LDAL L03002B
CMP #$1E11
BEQ L025EC9
BRL L025EF4
L025EC9 LDX $05
PHX
TSX
STX $05
LDY #$0102
LDA [$2F],Y
PHA
LDY #$0100
LDA [$2F],Y
PHA
PEA ^L0266ED
PEA L0266ED
PEI $31
PEI $2F
JSL L02AA15
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L025F44
L025EF4 LDAL L03002B
BNE L025EFD
BRL L025F16
L025EFD LDX $05
PHX
TSX
STX $05
LDA #$000C
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L025F44
L025F16 LDX $05
PHX
TSX
STX $05
LDX $05
PHX
TSX
STX $05
PEI $31
PEI $2F
JSL L02A73C
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHX
PHA
PEI $31
PEI $2F
JSL L02AB57
TAY
LDA $05
TCS
PLA
STA $05
TYA
L025F44 PEI $31
PEI $2F
PLA
STA [$1B]
LDY #$0002
PLA
STA [$1B],Y
LDY #$0004
LDA #$0000
STA [$1B],Y
INC $11
PEI $15
PEI $13
INC $13
BNE L025F65
INC $15
L025F65 PLA
PLA
PEI $1D
PEI $1B
CLC
LDA $1B
ADC #$0006
STA $1B
BCC L025F77
INC $1D
L025F77 PLA
PLA
PEI $31
PEI $2F
CLC
LDA $2F
ADC #$0104
STA $2F
BCC L025F89
INC $31
L025F89 PLA
PLA
BRL L025E16
L025F8E LDX $05
PHX
TSX
STX $05
PEA ^L0256BA+1
PEA L0256BA+1
PEA $0000
PEA $0104
PEI $25
PEI $23
PEI $2D
PEI $2B
JSL L02A843
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDY #$0004
LDA #$0080
STA [$17],Y
LDA $23
LDX #$01A6
STA $00,X
LDX #$01B6
LDA $17
STA $00,X
LDA $19
STA $02,X
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0043
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0000
PHA
TDC
CLC
ADC #$01CE
LDX #$0000
PHX
PHA
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STA $07
PLA
STA $09
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026027
BRL L02603D
L026027 LDX $05
PHX
TSX
STX $05
LDA #$000D
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02603D PEI $09
PEI $07
_SetPort
STAL L02B111
LDA #$0013
PHA
LDA #$0010
PHA
_MoveTo
STAL L02B111
PEA ^L0266F1
PEA L0266F1
_DrawCString
STAL L02B111
PHA
PHA
PEI $09
PEI $07
PEA $0000
PEA $0002
_GetCtlHandleFromID
STAL L02B111
PLA
STA $1F
PLA
STA $21
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0260A9
BRL L0260BF
L0260A9 LDX $05
PHX
TSX
STX $05
LDA #$000E
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0260BF STZ $0B
L0260C1 PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA ^L0248A8
PEA L0248A8
PEA $0000
PEA $0000
LDA #$0010
PHA
_DoModalWindow
STAL L02B111
PLA
STA $13
PLA
STA $15
LDAL L04008A
CMP #$0001
BEQ L0260FC
BRL L026123
L0260FC PEI $15
PEI $13
LDA #$0001
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L02610E
DEY
L02610E TXA
CMP $03,S
BEQ L026116
LDY #$0000
L026116 PLA
PLA
TYA
BNE L02611E
BRL L026123
L02611E LDA #$FFFF
STA $0B
L026123 PEI $15
PEI $13
LDA #$0003
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L026135
DEY
L026135 TXA
CMP $03,S
BEQ L02613D
LDY #$0000
L02613D PLA
PLA
TYA
BNE L026145
BRL L026316
L026145 PHA
LDA #$0000
PHA
PEI $21
PEI $1F
_NextMember2
STAL L02B111
PLA
STA $0B
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026178
BRL L02618E
L026178 LDX $05
PHX
TSX
STX $05
LDA #$000F
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02618E PHA
PHA
LDA #$8024
PHA
LDA $0B
DEC
LDX #$0000
TAY
BPL L02619E
DEX
L02619E PHX
PHA
PEA $0000
PEA $0104
JSL L02C5AD
CLC
PLA
ADC $2B
PHA
LDA $03,S
ADC $2D
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0102
LDA [$01],Y
PHA
LDY #$0100
LDA [$01],Y
PHA
_LoadResource
STAL L02B111
PLA
STAL L03002D
PLA
STAL L03002F
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0261F8
BRL L02625B
L0261F8 LDAL L03002B
CMP #$0201
BEQ L026204
BRL L02620B
L026204 LDA #$0086
STAL L03002B
L02620B LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
PEI $09
PEI $07
_CloseWindow
STAL L02B111
LDX $05
PHX
TSX
STX $05
PEI $19
PEI $17
JSL L02C1EF
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEI $2D
PEI $2B
JSL L02C1EF
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L0266C8
L02625B LDAL L03002F
PHA
LDAL L03002D
PHA
_HLock
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L02628C
BRL L0262A2
L02628C LDX $05
PHX
TSX
STX $05
LDA #$0010
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0262A2 LDA #$8024
PHA
LDA $0B
DEC
LDX #$0000
TAY
BPL L0262B0
DEX
L0262B0 PHX
PHA
PEA $0000
PEA $0104
JSL L02C5AD
CLC
PLA
ADC $2B
PHA
LDA $03,S
ADC $2D
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0102
LDA [$01],Y
PHA
LDY #$0100
LDA [$01],Y
PHA
_DetachResource
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026300
BRL L026316
L026300 LDX $05
PHX
TSX
STX $05
LDA #$0011
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026316 LDA $0B
BNE L02631D
BRL L0260C1
L02631D PEI $09
PEI $07
_CloseWindow
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026348
BRL L02635E
L026348 LDX $05
PHX
TSX
STX $05
LDA #$0012
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02635E LDX $05
PHX
TSX
STX $05
LDA $0B
DEC
LDX #$0000
TAY
BPL L02636E
DEX
L02636E PHX
PHA
PEA $0000
PEA $0104
JSL L02C5AD
CLC
PLA
ADC $2B
PHA
LDA $03,S
ADC $2D
STA $03,S
PEA $0000
TDC
CLC
ADC #$003C
PHA
JSL L02AB57
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEI $19
PEI $17
JSL L02C1EF
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEI $2D
PEI $2B
JSL L02C1EF
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHA
LDA $0F
PHA
_SetResourceFileDepth
STAL L02B111
PLA
STA $0F
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0263F4
BRL L02640A
L0263F4 LDX $05
PHX
TSX
STX $05
LDA #$0013
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02640A LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L02643B
BRL L026451
L02643B LDX $05
PHX
TSX
STX $05
LDA #$0014
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026451 LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026482
BRL L026498
L026482 LDX $05
PHX
TSX
STX $05
LDA #$0015
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026498 LDA $0D
PHA
_CloseResourceFile
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0264C2
BRL L0264D8
L0264C2 LDX $05
PHX
TSX
STX $05
LDA #$0016
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0264D8 LDA $0B
CMP #$FFFF
BEQ L0264E2
BRL L0264E5
L0264E2 BRL L0266C8
L0264E5 LDAL L030019
AND #$0008
BEQ L0264F1
BRL L026500
L0264F1 LDA #$010A
PHA
_EnableMItem
STAL L02B111
L026500 LDA #$010B
PHA
_EnableMItem
STAL L02B111
LDA #$0119
PHA
_EnableMItem
STAL L02B111
LDA #$010C
PHA
_EnableMItem
STAL L02B111
LDA #$010D
PHA
_EnableMItem
STAL L02B111
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$000A
BCC L026558
INX
L026558 STAL L030027
TXA
STAL L030029
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $29
STA $27
PHA
PHA
LDAL L03002F
PHA
LDAL L03002D
PHA
_GetHandleSize
STAL L02B111
SEC
LDA $01,S
SBC #$000A
STA $01,S
BCS L0265A0
LDA $03,S
DEC
STA $03,S
L0265A0 PLA
STAL L030021
PLA
STAL L030023
LDY #$0002
LDA [$27],Y
STAL L030025
LDY #$0008
LDA [$27],Y
LDX #$0000
STAL L030039
TXA
STAL L03003B
LDY #$0006
LDA [$27],Y
STAL L03000D
LDAL L030023
PHA
LDAL L030021
PHA
SEC
LDA $01,S
SBC #$0001
STA $01,S
BCS L0265E6
LDA $03,S
DEC
STA $03,S
L0265E6 LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDA #$0006
PHA
LDA #$0001
PHA
PEA ^L026705
PEA L026705
LDAL L03002F
PHA
LDAL L03002D
PHA
PEA $0000
PEA $0000
_SendRequest
STAL L02B111
LDAL L030019
AND #$0004
BEQ L02663E
BRL L0266AD
L02663E PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FFA
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STAL L030001
PLA
STAL L030003
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026697
BRL L0266AD
L026697 LDX $05
PHX
TSX
STX $05
LDA #$0017
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0266AD LDX $05
PHX
TSX
STX $05
PEA $0000
TDC
CLC
ADC #$003C
PHA
JSL L025455
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0266C8 PLD
TSC
CLC
ADC #$021D
TCS
RTL
L0266D0 STR 'Okay'
DB $00
L0266D6 STR 'Cancel'
DB $00
L0266DE STR 'Whadya Want? '
DB $00
L0266ED ASC '%lX'00
L0266F1 ASC 'Choose your rSound:'00
L026705 STR 'Apple~SoundCP~'
DB $00
L026715 TSC
SEC
SBC #$001E
TCS
PHD
TCD
LDAL L030019
AND #$0002
BNE L026729
BRL L02688E
L026729 LDA #$0006
PHA
LDA #$0001
PHA
PEA ^L026896
PEA L026896
LDAL L03002F
PHA
LDAL L03002D
PHA
PEA $0000
PEA $0000
_SendRequest
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
CMP #$0120
BEQ L02676C
BRL L02688E
L02676C LDA #$0008
PHA
LDA #$0100
PHA
_LoadOneTool
STAL L02B111
PHA
PHA
PEA $0000
PEA $0100
LDAL L030035
PHA
LDA #$C005
PHA
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
PLA
STA $09
PLA
STA $0B
LDA [$09]
PHA
_SoundStartUp
STAL L02B111
LDAL L03000D
XBA
AND #$FF00
ASL
ASL
ASL
ASL
CLC
ADC #$0101
STA $07
LDAL L030029
TAX
LDAL L030027
STX $0F
STA $0D
LDAL L030025
STA $11
LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
PEA $3FF9
PEA $9F5B
PEA $A979
PEA $3B31
PEA $F000
JSL L02BF65
JSL L02BBEC
STA $13
LDA #$2000
STA $15
LDA #$0003
STA $17
LDA #$0000
STA $19
LDA #$0000
STA $1B
LDA #$00FF
STA $1D
LDA $07
PHA
PEA $0000
TDC
CLC
ADC #$000D
PHA
_FFStartSound
STAL L02B111
L026830 PHA
LDA #$0001
PHA
_FFGeneratorStatus
STAL L02B111
PLA
AND #$8000
BEQ L026849
BRL L02684C
L026849 BRL L026830
L02684C PHA
LDA #$0001
PHA
_FFSoundDoneStatus
STAL L02B111
PLA
BEQ L026862
BRL L026865
L026862 BRL L02684C
L026865 LDA #$0002
PHA
_FFStopSound
STAL L02B111
_SoundShutDown
STAL L02B111
PEI $0B
PEI $09
_DisposeHandle
STAL L02B111
L02688E PLD
TSC
CLC
ADC #$001E
TCS
RTL
L026896 STR 'Apple~SoundCP~'
DB $00
L0268A6 TSC
SEC
SBC #$008C
TCS
PHD
TCD
SEP #$20
STZ $65
REP #$20
SEP #$20
STZ $66
REP #$20
SEP #$20
STZ $67
REP #$20
SEP #$20
STZ $68
REP #$20
SEP #$20
STZ $69
REP #$20
SEP #$20
STZ $6A
REP #$20
SEP #$20
STZ $6B
REP #$20
SEP #$20
STZ $6C
REP #$20
SEP #$20
STZ $6D
REP #$20
SEP #$20
STZ $6E
REP #$20
SEP #$20
STZ $6F
REP #$20
SEP #$20
LDA #$0C
STA $70
REP #$20
SEP #$20
LDA #$07
STA $71
REP #$20
SEP #$20
STZ $72
REP #$20
SEP #$20
STZ $73
REP #$20
SEP #$20
STZ $74
REP #$20
SEP #$20
LDA #$02
STA $75
REP #$20
SEP #$20
LDA #$0F
STA $76
REP #$20
SEP #$20
LDA #$04
STA $77
REP #$20
SEP #$20
LDA #$0A
STA $78
REP #$20
SEP #$20
LDA #$AE
STA $79
REP #$20
SEP #$20
LDA #$04
STA $7A
REP #$20
SEP #$20
LDA #$A0
STA $7B
REP #$20
SEP #$20
LDA #$0F
STA $7C
REP #$20
SEP #$20
LDA #$C0
STA $7D
REP #$20
SEP #$20
LDA #$0F
STA $7E
REP #$20
SEP #$20
LDA #$FA
STA $7F
REP #$20
SEP #$20
LDA #$0F
STA $80
REP #$20
SEP #$20
LDA #$FF
STA $81
REP #$20
SEP #$20
LDA #$0F
STA $82
REP #$20
SEP #$20
LDA #$FF
STA $83
REP #$20
SEP #$20
LDA #$0F
STA $84
REP #$20
LDAL L030040
PHA
LDAL L03003E
PHA
PLA
EOR #$0001
PHA
LDA $03,S
EOR #$0000
STA $03,S
PLA
STAL L03003E
PLA
STAL L030040
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FF9
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STA $07
PLA
STA $09
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026A07
BRL L026A1D
L026A07 LDX $05
PHX
TSX
STX $05
LDA #$001D
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026A1D PEI $09
PEI $07
_ShowWindow
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026A48
BRL L026A5E
L026A48 LDX $05
PHX
TSX
STX $05
LDA #$001E
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026A5E STZ $15
L026A60 LDA $15
BMI L026A6C
CMP #$0004
BCC L026A6C
BRL L026ABF
L026A6C PHA
LDA $15
INC
PHA
_GetMenuFlag
STAL L02B111
PLA
PHA
PEA $0000
TDC
CLC
ADC #$0085
PHA
LDA $15
ASL
LDX #$0000
TAY
BPL L026A91
DEX
L026A91 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDA #$0080
PHA
LDA $15
INC
PHA
_SetMenuFlag
STAL L02B111
INC $15
BRL L026A60
L026ABF _DrawMenuBar
STAL L02B111
LDA #$000A
STA $2B
LDA #$0000
STA $2D
PHA
LDA #$0064
PHA
_GetSCB
STAL L02B111
PLA
STA $11
LDA #$003A
STA $15
L026AEC LDA $15
BMI L026AF8
CMP #$009B
BCC L026AF8
BRL L026B0F
L026AF8 LDA $15
PHA
LDA #$000F
PHA
_SetSCB
STAL L02B111
INC $15
BRL L026AEC
L026B0F LDA #$000F
PHA
PEA $0000
TDC
CLC
ADC #$0045
PHA
_GetColorTable
STAL L02B111
LDA #$000F
PHA
PEA $0000
TDC
CLC
ADC #$0065
PHA
_SetColorTable
STAL L02B111
PHA
PHA
LDA #$8024
PHA
LDAL L030040
PHA
LDAL L03003E
PHA
_LoadResource
STAL L02B111
PLA
STA $0B
PLA
STA $0D
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026B7C
BRL L026BAB
L026B7C LDAL L03002B
CMP #$0201
BNE L026B88
BRL L026BA6
L026B88 LDAL L03002B
CMP #$1E06
BNE L026B94
BRL L026BA6
L026B94 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026BA6 STZ $0F
BRL L026BD3
L026BAB LDA #$0006
PHA
LDA #$0001
PHA
PEA ^L026CDE
PEA L026CDE
PEI $0D
PEI $0B
PEA $0000
PEA $0000
_SendRequest
STAL L02B111
LDA #$0001
STA $0F
L026BD3 PHA
LDA #$004A
PHA
PEA $0000
TDC
CLC
ADC #$0017
PHA
_TaskMaster
STAL L02B111
PLA
STA $13
LDA $13
CMP #$0001
BNE L026BF9
BRL L026C03
L026BF9 LDA $13
CMP #$0003
BEQ L026C03
BRL L026BD3
L026C03 LDA #$003A
STA $15
L026C08 LDA $15
BMI L026C14
CMP #$009B
BCC L026C14
BRL L026C2A
L026C14 LDA $15
PHA
LDA $11
PHA
_SetSCB
STAL L02B111
INC $15
BRL L026C08
L026C2A LDA #$000F
PHA
PEA $0000
TDC
CLC
ADC #$0045
PHA
_SetColorTable
STAL L02B111
PEI $09
PEI $07
_CloseWindow
STAL L02B111
STZ $15
L026C53 LDA $15
BMI L026C5F
CMP #$0004
BCC L026C5F
BRL L026C9C
L026C5F PEA $0000
TDC
CLC
ADC #$0085
PHA
LDA $15
ASL
LDX #$0000
TAY
BPL L026C72
DEX
L026C72 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
PHA
LDA $15
INC
PHA
_SetMenuFlag
STAL L02B111
INC $15
BRL L026C53
L026C9C LDA $0F
BNE L026CA3
BRL L026CCB
L026CA3 LDA #$8024
PHA
LDAL L030040
PHA
LDAL L03003E
PHA
_DetachResource
STAL L02B111
PEI $0D
PEI $0B
_DisposeHandle
STAL L02B111
L026CCB _DrawMenuBar
STAL L02B111
PLD
TSC
CLC
ADC #$008C
TCS
RTL
L026CDE STR 'Apple~SoundCP~'
DB $00
L026CEE TSC
SEC
SBC #$0006
TCS
PHD
TCD
LDX $05
PHX
TSX
STX $05
LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
PEA $400D
PEA $CDA0
PEA $0000
PEA $0000
PEA $0000
JSL L02BC4A
JSL L02BABB
TAY
LDA $05
TCS
PLA
STA $05
TYA
JSL L02BC73
PEA $3FFE
PEA $B172
PEA $17F9
PEA $B5A7
PEA $D800
JSL L02BC4A
PEA $400A
PEA $C000
PEA $0000
PEA $0000
PEA $0000
JSL L02BF65
JSL L02BB85
STAL L030017
LDAL L030017
BMI L026D63
BRL L026D72
L026D63 LDAL L030017
EOR #$FFFF
INC
ORA #$8000
STAL L030017
L026D72 PLD
TSC
CLC
ADC #$0006
TCS
RTL
L026D7A TSC
SEC
SBC #$0027
TCS
PHD
TCD
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FF4
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STA $17
PLA
STA $19
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L026DD7
BRL L026DED
L026DD7 LDX $05
PHX
TSX
STX $05
LDA #$0258
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L026DED PEI $19
PEI $17
_ShowWindow
STAL L02B111
PEI $19
PEI $17
_SelectWindow
STAL L02B111
L026E0B PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
LDA #$0018
PHA
_DoModalWindow
STAL L02B111
PLA
PLX
STA $1B
LDA $1B
CMP #$0025
BNE L026E42
BRL L026E4C
L026E42 LDA $1B
CMP #$0026
BEQ L026E4C
BRL L026E0B
L026E4C LDAL L030023
TAX
LDAL L030021
SEC
SBC #$0001
BCS L026E5C
DEX
L026E5C STX $11
STA $0F
_WaitCursor
STAL L02B111
LDA $1B
CMP #$0026
BEQ L026E75
BRL L026FAB
L026E75 PEI $19
PEI $17
PEA $0000
PEA $0029
PEA $0000
TDC
CLC
ADC #$0023
PHA
_GetLETextByID
STAL L02B111
LDX $05
PHX
TSX
STX $05
PEA $0000
TDC
CLC
ADC #$0024
PHA
JSL L02A60A
TAY
LDA $05
TCS
PLA
STA $05
TYA
STA $1B
LDA $1B
LDX #$0000
JSL L02BB54
PEA $4005
PEA $C800
PEA $0000
PEA $0000
PEA $0000
JSL L02BC4A
PEA $0000
TDC
CLC
ADC #$001F
PHA
JSL L02BFC2
LDAL L030029
TAX
LDAL L030027
STX $0D
STA $0B
PEA $0000
PEA $0000
LDA $01,S
STA $13
LDA $03,S
STA $15
PLA
PLA
L026EF6 PEI $15
PEI $13
LDX $11
LDA $0F
TAY
TXA
LDX #$0001
CMP $03,S
BNE L026F0A
TYA
CMP $01,S
L026F0A BEQ L026F0E
BCS L026F0F
L026F0E DEX
L026F0F PLA
PLA
TXA
BNE L026F17
BRL L026FA8
L026F17 LDA [$0B]
AND #$00FF
SEC
SBC #$0080
STA $1D
LDA $1D
JSL L02BB2E
PEA $0000
TDC
CLC
ADC #$001F
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0204
_SANEFP816
JSL L02BB85
STA $1D
LDA $1D
BPL L026F53
CMP #$FF81
BCC L026F56
L026F53 BRL L026F5B
L026F56 LDA #$FF81
STA $1D
L026F5B LDA $1D
BMI L026F66
CMP #$007F
BEQ L026F66
BCS L026F69
L026F66 BRL L026F6E
L026F69 LDA #$007F
STA $1D
L026F6E LDA $1D
AND #$00FF
CLC
ADC #$0080
PHA
PLA
SEP #$20
STA [$0B]
REP #$20
LDA [$0B]
AND #$00FF
TAX
BEQ L026F8A
BRL L026F93
L026F8A SEP #$20
LDA [$0B]
INC
STA [$0B]
REP #$20
L026F93 INC $13
BNE L026F99
INC $15
L026F99 INC $0B
BNE L026F9F
INC $0D
L026F9F PEI $0D
PEI $0B
PLA
PLA
BRL L026EF6
L026FA8 BRL L0270FA
L026FAB LDA #$0080
SEP #$20
STA $0A
REP #$20
SEP #$20
STA $09
REP #$20
LDAL L030029
TAX
LDAL L030027
STX $0D
STA $0B
PEA $0000
PEA $0000
LDA $01,S
STA $13
LDA $03,S
STA $15
PLA
PLA
L026FD7 PEI $15
PEI $13
LDX $11
LDA $0F
TAY
TXA
LDX #$0001
CMP $03,S
BNE L026FEB
TYA
CMP $01,S
L026FEB BEQ L026FEF
BCS L026FF0
L026FEF DEX
L026FF0 PLA
PLA
TXA
BNE L026FF8
BRL L027051
L026FF8 LDA $09
AND #$00FF
PHA
LDA [$0B]
AND #$00FF
PLY
STY $01
CMP $01
BEQ L02700C
BCS L02700F
L02700C BRL L02701A
L02700F LDA [$0B]
AND #$00FF
SEP #$20
STA $09
REP #$20
L02701A LDA [$0B]
AND #$00FF
PHA
LDA $0A
AND #$00FF
PLY
STY $01
CMP $01
BEQ L02702E
BCS L027031
L02702E BRL L02703C
L027031 LDA [$0B]
AND #$00FF
SEP #$20
STA $0A
REP #$20
L02703C INC $13
BNE L027042
INC $15
L027042 INC $0B
BNE L027048
INC $0D
L027048 PEI $0D
PEI $0B
PLA
PLA
BRL L026FD7
L027051 PEA $0000
PEA $FFFF
LDA $0A
AND #$00FF
PHA
LDA $09
AND #$00FF
SEC
SBC $01,S
PLX
PEA $0000
PHA
JSL L02C850
PLA
PLX
STA $07
LDAL L030029
TAX
LDAL L030027
STX $0D
STA $0B
PEA $0000
PEA $0000
LDA $01,S
STA $13
LDA $03,S
STA $15
PLA
PLA
L02708F PEI $15
PEI $13
LDX $11
LDA $0F
TAY
TXA
LDX #$0001
CMP $03,S
BNE L0270A3
TYA
CMP $01,S
L0270A3 BEQ L0270A7
BCS L0270A8
L0270A7 DEX
L0270A8 PLA
PLA
TXA
BNE L0270B0
BRL L0270FA
L0270B0 LDA $0A
AND #$00FF
PHA
LDA [$0B]
AND #$00FF
SEC
SBC $01,S
PLX
LDX $07
JSL L02CABC
XBA
AND #$00FF
PHA
PLA
SEP #$20
STA [$0B]
REP #$20
LDA [$0B]
AND #$00FF
TAX
BEQ L0270DC
BRL L0270E5
L0270DC SEP #$20
LDA [$0B]
INC
STA [$0B]
REP #$20
L0270E5 INC $13
BNE L0270EB
INC $15
L0270EB INC $0B
BNE L0270F1
INC $0D
L0270F1 PEI $0D
PEI $0B
PLA
PLA
BRL L02708F
L0270FA PEI $19
PEI $17
_CloseWindow
STAL L02B111
LDAL L030019
AND #$0008
BNE L027115
BRL L02713C
L027115 LDAL L030003
PHA
LDAL L030001
PHA
_BringToFront
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L024766
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02713C _InitCursor
STAL L02B111
PLD
TSC
CLC
ADC #$0027
TCS
RTL
L02714F TSC
SEC
SBC #$0015
TCS
PHD
TCD
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FF6
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STA $09
PLA
STA $0B
LDX $07
PHX
TSX
STX $07
JSL L02AE36
TAY
LDA $07
TCS
PLA
STA $07
TYA
STAL L03002B
TAX
BNE L0271AC
BRL L0271C2
L0271AC LDX $07
PHX
TSX
STX $07
LDA #$0190
PHA
JSL L024DB6
TAY
LDA $07
TCS
PLA
STA $07
TYA
L0271C2 PEI $0B
PEI $09
_ShowWindow
STAL L02B111
PEI $0B
PEI $09
_SelectWindow
STAL L02B111
L0271E0 PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
LDA #$0018
PHA
_DoModalWindow
STAL L02B111
PLA
PLX
STA $0D
LDA $0D
CMP #$0018
BNE L027217
BRL L027221
L027217 LDA $0D
CMP #$0019
BEQ L027221
BRL L0271E0
L027221 LDA $0D
CMP #$0018
BEQ L02722B
BRL L0272A0
L02722B PEI $0B
PEI $09
PEA $0000
PEA $0017
PEA $0000
TDC
CLC
ADC #$000F
PHA
_GetLETextByID
STAL L02B111
LDX $07
PHX
TSX
STX $07
PEA $0000
TDC
CLC
ADC #$0010
PHA
JSL L02A60A
TAY
LDA $07
TCS
PLA
STA $07
TYA
STA $0D
LDA $0D
BEQ L02726D
BRL L02726F
L02726D INC $0D
L02726F LDAL L03003B
PHA
LDAL L030039
PHA
LDA $0D
LDX #$0000
TAY
TXA
LDX #$0001
CMP $03,S
BNE L02728A
TYA
CMP $01,S
L02728A BEQ L02728E
BCS L02728F
L02728E DEX
L02728F PLA
PLA
TXA
BNE L027297
BRL L02729D
L027297 LDAL L030039
STA $0D
L02729D BRL L0272A2
L0272A0 STZ $0D
L0272A2 PEI $0B
PEI $09
_CloseWindow
STAL L02B111
LDAL L030019
AND #$0008
BNE L0272BD
BRL L0272E4
L0272BD LDAL L030003
PHA
LDAL L030001
PHA
_BringToFront
STAL L02B111
LDX $07
PHX
TSX
STX $07
JSL L024766
TAY
LDA $07
TCS
PLA
STA $07
TYA
L0272E4 LDA $0D
STA $01
LDY $01
PLD
TSC
CLC
ADC #$0015
TCS
TYA
RTL
L0272F3 TSC
SEC
SBC #$0044
TCS
PHD
TCD
LDX $05
PHX
TSX
STX $05
JSL L02714F
TAY
LDA $05
TCS
PLA
STA $05
TYA
STA $0F
TAX
BEQ L027315
BRL L027318
L027315 BRL L027848
L027318 LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BC4A
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF8E
PEA $3FFF
PEA $8000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$002D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0100
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF8E
LDX $05
PHX
TSX
STX $05
PEA $4000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$0025
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0104
_SANEFP816
JSL L02BBB7
PHX
PHA
JSL L02C21D
TAY
LDA $05
TCS
PLA
STA $05
TYA
STX $1B
STA $19
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0273DA
BRL L0273FF
L0273DA LDAL L03002B
CMP #$0201
BEQ L0273E6
BRL L0273ED
L0273E6 LDA #$0086
STAL L03002B
L0273ED LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0273FF LDX $05
PHX
TSX
STX $05
PEA $4002
PEA $8000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$002D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0104
_SANEFP816
JSL L02BBB7
PHX
PHA
JSL L02C21D
TAY
LDA $05
TCS
PLA
STA $05
TYA
STX $0D
STA $0B
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L027462
BRL L027487
L027462 LDAL L03002B
CMP #$0201
BEQ L02746E
BRL L027475
L02746E LDA #$0086
STAL L03002B
L027475 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
L027487 _WaitCursor
STAL L02B111
LDA $19
LDX $1B
STA $15
STX $17
LDA #$0000
STA $0F
L02749F PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BF05
BNE L0274BE
BRL L0274D7
L0274BE SEP #$20
LDA #$80
STA [$15]
REP #$20
INC $0F
INC $15
BNE L0274CE
INC $17
L0274CE PEI $17
PEI $15
PLA
PLA
BRL L02749F
L0274D7 PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$003D
PHA
JSL L02BF8E
LDA $0B
LDX $0D
STA $07
STX $09
LDA #$0000
STA $0F
L027500 PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BF05
BNE L02751F
BRL L02759C
L02751F PEA $3FFF
PEA $8000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BFF6
JSL L02BC4A
PEI $09
PEI $07
JSL L02BF8E
PEI $09
PEI $07
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$003D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0100
_SANEFP816
PEA $0000
TDC
CLC
ADC #$003D
PHA
JSL L02BF8E
INC $0F
CLC
LDA $07
ADC #$0008
STA $07
BCC L027593
INC $09
L027593 PEI $09
PEI $07
PLA
PLA
BRL L027500
L02759C LDA $0B
LDX $0D
STA $07
STX $09
LDA #$0000
STA $0F
L0275A9 PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BF05
BNE L0275C8
BRL L027630
L0275C8 PEA $3FFF
PEA $8000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BFF6
JSL L02BC4A
PEA $0000
TDC
CLC
ADC #$003D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0106
_SANEFP816
PEI $09
PEI $07
JSL L02BF8E
INC $0F
CLC
LDA $07
ADC #$0008
STA $07
BCC L027627
INC $09
L027627 PEI $09
PEI $07
PLA
PLA
BRL L0275A9
L027630 LDAL L030023
TAX
LDAL L030021
SEC
SBC #$0001
BCS L027640
DEX
L027640 STX $1F
STA $1D
LDA #$0000
STA $21
LDA #$0000
STA $23
LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $11
LDA $03,S
STA $13
PLA
PLA
L027662 PEI $23
PEI $21
LDX $1F
LDA $1D
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027676
TYA
CMP $01,S
L027676 BEQ L02767A
BCS L02767B
L02767A DEX
L02767B PLA
PLA
TXA
BNE L027683
BRL L0277F3
L027683 LDX $1B
LDA $19
INC
BNE L02768B
INX
L02768B STA $15
STX $17
LDA #$0001
STA $0F
L027694 PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BF05
BNE L0276B3
BRL L0276DC
L0276B3 LDA [$15]
AND #$00FF
PHA
LDX $17
LDA $15
SEC
SBC #$0001
BCS L0276C4
DEX
L0276C4 STA $01
STX $03
PLA
SEP #$20
STA [$01]
REP #$20
INC $15
BNE L0276D5
INC $17
L0276D5 INC $0F
LDA $0F
BRL L027694
L0276DC LDA [$11]
AND #$00FF
PHA
LDX $17
LDA $15
SEC
SBC #$0001
BCS L0276ED
DEX
L0276ED STA $01
STX $03
PLA
SEP #$20
STA [$01]
REP #$20
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF8E
STZ $0F
PEI $1B
PEI $19
LDA $01,S
STA $15
LDA $03,S
STA $17
PLA
PLA
PEI $0D
PEI $0B
LDA $01,S
STA $07
LDA $03,S
STA $09
PLA
PLA
L027732 PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BF05
BNE L027751
BRL L0277B1
L027751 LDA [$15]
AND #$00FF
LDX #$0000
JSL L02BB54
PEI $09
PEI $07
JSL L02BF38
JSL L02BF65
PEA $0000
TDC
CLC
ADC #$0035
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0100
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF8E
CLC
LDA $07
ADC #$0008
STA $07
BCC L02779E
INC $09
L02779E INC $15
BNE L0277A4
INC $17
L0277A4 PEI $17
PEI $15
PLA
PLA
INC $0F
LDA $0F
BRL L027732
L0277B1 PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF38
JSL L02BB85
PHA
PLA
SEP #$20
STA [$11]
REP #$20
LDA [$11]
AND #$00FF
TAX
BEQ L0277D5
BRL L0277DE
L0277D5 SEP #$20
LDA [$11]
INC
STA [$11]
REP #$20
L0277DE INC $21
BNE L0277E4
INC $23
L0277E4 INC $11
BNE L0277EA
INC $13
L0277EA PEI $13
PEI $11
PLA
PLA
BRL L027662
L0277F3 LDX $05
PHX
TSX
STX $05
PEI $1B
PEI $19
JSL L02C1EF
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEI $0D
PEI $0B
JSL L02C1EF
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$010B
PHA
_EnableMItem
STAL L02B111
LDA #$0119
PHA
_EnableMItem
STAL L02B111
_InitCursor
STAL L02B111
L027848 PLD
TSC
CLC
ADC #$0044
TCS
RTL
L027850 TSC
SEC
SBC #$002C
TCS
PHD
TCD
LDX $05
PHX
TSX
STX $05
JSL L02714F
TAY
LDA $05
TCS
PLA
STA $05
TYA
STA $0F
TAX
BEQ L027872
BRL L027875
L027872 BRL L027A1B
L027875 LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
LDA $0F
LDX #$0000
JSL L02BB54
JSL L02BC4A
PEA $0000
TDC
CLC
ADC #$0015
PHA
JSL L02BF8E
LDAL L030023
TAX
LDAL L030021
SEC
SBC #$0001
BCS L0278AC
DEX
L0278AC STX $0D
STA $0B
LDAL L030029
TAX
LDAL L030027
STX $13
STA $11
LDA [$11]
AND #$00FF
JSL L02BB2E
PEA $0000
TDC
CLC
ADC #$001D
PHA
JSL L02BF8E
_WaitCursor
STAL L02B111
LDA #$0000
STA $07
LDA #$0000
STA $09
L0278E8 PEI $09
PEI $07
LDX $0D
LDA $0B
TAY
TXA
LDX #$0001
CMP $03,S
BNE L0278FC
TYA
CMP $01,S
L0278FC BEQ L027900
BCS L027901
L027900 DEX
L027901 PLA
PLA
TXA
BNE L027909
BRL L0279F2
L027909 LDA [$11]
AND #$00FF
JSL L02BB2E
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF8E
PEA $0000
TDC
CLC
ADC #$0025
PHA
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$001D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0102
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0015
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0106
_SANEFP816
PEA $0000
TDC
CLC
ADC #$001D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0100
_SANEFP816
PEA $0000
TDC
CLC
ADC #$001D
PHA
JSL L02BF8E
PEA $0000
TDC
CLC
ADC #$001D
PHA
JSL L02BF38
LDA [$11]
AND #$00FF
LDX #$0000
JSL L02BB54
JSL L02BFF6
PEA $4006
PEA $8000
PEA $0000
PEA $0000
PEA $0000
JSL L02BB05
JSL L02BB85
PHA
PLA
SEP #$20
STA [$11]
REP #$20
LDA [$11]
AND #$00FF
TAX
BEQ L0279D4
BRL L0279DD
L0279D4 SEP #$20
LDA [$11]
INC
STA [$11]
REP #$20
L0279DD INC $07
BNE L0279E3
INC $09
L0279E3 INC $11
BNE L0279E9
INC $13
L0279E9 PEI $13
PEI $11
PLA
PLA
BRL L0278E8
L0279F2 LDA #$010B
PHA
_EnableMItem
STAL L02B111
LDA #$0119
PHA
_EnableMItem
STAL L02B111
_InitCursor
STAL L02B111
L027A1B PLD
TSC
CLC
ADC #$002C
TCS
RTL
L027A23 TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDX $01
PHX
TSX
STX $01
JSL L024CF2
TAY
LDA $01
TCS
PLA
STA $01
TYA
STX $05
STA $03
LDA $03
ORA $05
BEQ L027A4A
BRL L027A4D
L027A4A BRL L027AD1
L027A4D PHA
PHA
_GetPort
STAL L02B111
PLA
STA $07
PLA
STA $09
PHA
PHA
_FrontWindow
STAL L02B111
_StartDrawing
STAL L02B111
PEI $05
PEI $03
_LECut
STAL L02B111
LDA #$0000
PHA
LDA #$0000
PHA
_SetOrigin
STAL L02B111
PEI $09
PEI $07
_SetPort
STAL L02B111
_ZeroScrap
STAL L02B111
PHA
_LEGetScrapLen
STAL L02B111
PLA
BNE L027AC6
BRL L027AD1
L027AC6 _LEToScrap
STAL L02B111
L027AD1 PLD
TSC
CLC
ADC #$000A
TCS
RTL
L027AD9 TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDX $01
PHX
TSX
STX $01
JSL L024CF2
TAY
LDA $01
TCS
PLA
STA $01
TYA
STX $05
STA $03
LDA $03
ORA $05
BEQ L027B00
BRL L027B03
L027B00 BRL L027B87
L027B03 PHA
PHA
_GetPort
STAL L02B111
PLA
STA $07
PLA
STA $09
PHA
PHA
_FrontWindow
STAL L02B111
_StartDrawing
STAL L02B111
PEI $05
PEI $03
_LECopy
STAL L02B111
LDA #$0000
PHA
LDA #$0000
PHA
_SetOrigin
STAL L02B111
PEI $09
PEI $07
_SetPort
STAL L02B111
_ZeroScrap
STAL L02B111
PHA
_LEGetScrapLen
STAL L02B111
PLA
BNE L027B7C
BRL L027B87
L027B7C _LEToScrap
STAL L02B111
L027B87 PLD
TSC
CLC
ADC #$000A
TCS
RTL
L027B8F TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDX $01
PHX
TSX
STX $01
JSL L024CF2
TAY
LDA $01
TCS
PLA
STA $01
TYA
STX $05
STA $03
LDA $03
ORA $05
BEQ L027BB6
BRL L027BB9
L027BB6 BRL L027C20
L027BB9 _LEFromScrap
STAL L02B111
PHA
PHA
_GetPort
STAL L02B111
PLA
STA $07
PLA
STA $09
PHA
PHA
_FrontWindow
STAL L02B111
_StartDrawing
STAL L02B111
PEI $05
PEI $03
_LEPaste
STAL L02B111
LDA #$0000
PHA
LDA #$0000
PHA
_SetOrigin
STAL L02B111
PEI $09
PEI $07
_SetPort
STAL L02B111
L027C20 PLD
TSC
CLC
ADC #$000A
TCS
RTL
L027C28 TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDX $01
PHX
TSX
STX $01
JSL L024CF2
TAY
LDA $01
TCS
PLA
STA $01
TYA
STX $05
STA $03
LDA $03
ORA $05
BEQ L027C4F
BRL L027C52
L027C4F BRL L027CAE
L027C52 PHA
PHA
_GetPort
STAL L02B111
PLA
STA $07
PLA
STA $09
PHA
PHA
_FrontWindow
STAL L02B111
_StartDrawing
STAL L02B111
PEI $05
PEI $03
_LEDelete
STAL L02B111
LDA #$0000
PHA
LDA #$0000
PHA
_SetOrigin
STAL L02B111
PEI $09
PEI $07
_SetPort
STAL L02B111
L027CAE PLD
TSC
CLC
ADC #$000A
TCS
RTL
L027CB6 TSC
SEC
SBC #$0171
TCS
PHD
TCD
SEP #$20
LDA #$52
STA $13
REP #$20
SEP #$20
LDA #$49
STA $14
REP #$20
SEP #$20
LDA #$46
STA $15
REP #$20
SEP #$20
LDA #$46
STA $16
REP #$20
LDA #$0000
STA $17
LDA #$0000
STA $19
SEP #$20
LDA #$57
STA $1B
REP #$20
SEP #$20
LDA #$41
STA $1C
REP #$20
SEP #$20
LDA #$56
STA $1D
REP #$20
SEP #$20
LDA #$45
STA $1E
REP #$20
SEP #$20
LDA #$66
STA $1F
REP #$20
SEP #$20
LDA #$6D
STA $20
REP #$20
SEP #$20
LDA #$74
STA $21
REP #$20
SEP #$20
LDA #$20
STA $22
REP #$20
LDA #$0010
STA $23
LDA #$0000
STA $25
LDA #$0001
STA $27
LDA #$0001
STA $29
LDA #$0000
STA $2B
LDA #$0000
STA $2D
LDA #$0000
STA $2F
LDA #$0000
STA $31
LDA #$0001
STA $33
LDA #$0008
STA $35
SEP #$20
LDA #$64
STA $37
REP #$20
SEP #$20
LDA #$61
STA $38
REP #$20
SEP #$20
LDA #$74
STA $39
REP #$20
SEP #$20
LDA #$61
STA $3A
REP #$20
LDA #$0000
STA $3B
LDA #$0000
STA $3D
SEP #$20
LDA #$50
STA $3F
REP #$20
SEP #$20
LDA #$48
STA $40
REP #$20
SEP #$20
LDA #$42
STA $41
REP #$20
SEP #$20
LDA #$34
STA $42
REP #$20
LDA #$0033
STA $43
LDA #$0000
STA $45
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FF5
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STA $07
PLA
STA $09
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L027E03
BRL L027E19
L027E03 LDX $05
PHX
TSX
STX $05
LDA #$032A
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L027E19 LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$4650
LDX #$0000
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027E35
TYA
CMP $01,S
L027E35 BEQ L027E39
BCS L027E3A
L027E39 DEX
L027E3A PLA
PLA
TXA
BNE L027E42
BRL L027EE4
L027E42 LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $0021
_SetCtlValueByID
STAL L02B111
PEA $0000
PEA $2A49
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027E76
TYA
CMP $01,S
L027E76 BEQ L027E7A
BCS L027E7B
L027E7A DEX
L027E7B PLA
PLA
TXA
BNE L027E83
BRL L027EC8
L027E83 LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$2BD9
LDX #$0000
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027E9F
TYA
CMP $01,S
L027E9F BEQ L027EA3
BCS L027EA4
L027EA3 DEX
L027EA4 PLA
PLA
TXA
BNE L027EAC
BRL L027EC8
L027EAC LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $0020
_SetCtlValueByID
STAL L02B111
BRL L027EE1
L027EC8 LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $001F
_SetCtlValueByID
STAL L02B111
L027EE1 BRL L02804E
L027EE4 LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$80E8
LDX #$0000
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027F00
TYA
CMP $01,S
L027F00 BEQ L027F04
BCS L027F05
L027F04 DEX
L027F05 PLA
PLA
TXA
BNE L027F0D
BRL L027FAF
L027F0D LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $0022
_SetCtlValueByID
STAL L02B111
PEA $0000
PEA $5492
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027F41
TYA
CMP $01,S
L027F41 BEQ L027F45
BCS L027F46
L027F45 DEX
L027F46 PLA
PLA
TXA
BNE L027F4E
BRL L027F93
L027F4E LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$57B2
LDX #$0000
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027F6A
TYA
CMP $01,S
L027F6A BEQ L027F6E
BCS L027F6F
L027F6E DEX
L027F6F PLA
PLA
TXA
BNE L027F77
BRL L027F93
L027F77 LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $0020
_SetCtlValueByID
STAL L02B111
BRL L027FAC
L027F93 LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $001F
_SetCtlValueByID
STAL L02B111
L027FAC BRL L02804E
L027FAF LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $0023
_SetCtlValueByID
STAL L02B111
PEA $0000
PEA $A924
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L027FE3
TYA
CMP $01,S
L027FE3 BEQ L027FE7
BCS L027FE8
L027FE7 DEX
L027FE8 PLA
PLA
TXA
BNE L027FF0
BRL L028035
L027FF0 LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$AF64
LDX #$0000
TAY
TXA
LDX #$0001
CMP $03,S
BNE L02800C
TYA
CMP $01,S
L02800C BEQ L028010
BCS L028011
L028010 DEX
L028011 PLA
PLA
TXA
BNE L028019
BRL L028035
L028019 LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $0020
_SetCtlValueByID
STAL L02B111
BRL L02804E
L028035 LDA #$0001
PHA
PEI $09
PEI $07
PEA $0000
PEA $001F
_SetCtlValueByID
STAL L02B111
L02804E PEI $09
PEI $07
_ShowWindow
STAL L02B111
PEI $09
PEI $07
_SelectWindow
STAL L02B111
L02806C PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
LDA #$0018
PHA
_DoModalWindow
STAL L02B111
PLA
PLX
STA $0B
LDA $0B
PEA $0000
PHA
LDA #$0024
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L0280AD
DEY
L0280AD TXA
CMP $03,S
BEQ L0280B5
LDY #$0000
L0280B5 PLA
PLA
TYA
BNE L0280BD
BRL L02806C
L0280BD PHA
PEI $09
PEI $07
LDA #$0002
PHA
_FindRadioButton
STAL L02B111
PLA
STA $0D
PHA
PEI $09
PEI $07
LDA #$0003
PHA
_FindRadioButton
STAL L02B111
PLA
LDX #$0000
STX $11
STA $0F
PEI $09
PEI $07
_CloseWindow
STAL L02B111
LDA $0F
ORA $11
BEQ L028108
BRL L028115
L028108 LDA #$2B11
STA $0F
LDA #$0000
STA $11
BRL L02814E
L028115 PEI $11
PEI $0F
LDA #$0001
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L028127
DEY
L028127 TXA
CMP $03,S
BEQ L02812F
LDY #$0000
L02812F PLA
PLA
TYA
BNE L028137
BRL L028144
L028137 LDA #$5622
STA $0F
LDA #$0000
STA $11
BRL L02814E
L028144 LDA #$AC44
STA $0F
LDA #$0000
STA $11
L02814E LDA $0D
BEQ L028155
BRL L028181
L028155 _WaitCursor
STAL L02B111
LDX $05
PHX
TSX
STX $05
PEI $11
PEI $0F
JSL L029889
TAY
LDA $05
TCS
PLA
STA $05
TYA
_InitCursor
STAL L02B111
L028181 LDA #$0001
STA $0D
L028186 LDA $0D
PEA $0000
PHA
LDAL L030023
PHA
LDAL L030021
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
TAX
BNE L0281C7
BRL L0281CA
L0281C7 BRL L0281CF
L0281CA INC $0D
BRL L028186
L0281CF DEC $0D
LDA $0D
PEA $0000
PHA
LDAL L030023
PHA
LDAL L030021
PHA
PLA
CLC
ADC #$005F
BCC L0281EB
PLX
INX
PHX
L0281EB PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PLA
STA $17
PLA
STA $19
LDA $0D
PEA $0000
PHA
LDAL L030023
PHA
LDAL L030021
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PLA
STA $3B
PLA
STA $3D
PEI $11
PEI $0F
LDA $01,S
STA $2F
LDA $03,S
STA $31
PLA
STA $2B
PLA
STA $2D
LDA #$0003
STAL L0400FA
LDA #$0003
STAL L040100
LDX $05
PHX
TSX
STX $05
PEA ^L040034
PEA L040034
PEA $0000
TDC
CLC
ADC #$0049
PHA
JSL L02AB57
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEA ^L028838
PEA L028838
PEA $0000
TDC
CLC
ADC #$0049
PHA
JSL L02AB0B
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEA $0000
TDC
CLC
ADC #$0049
PHA
JSL L02AB8B
TAY
LDA $05
TCS
PLA
STA $05
TYA
STA $47
STZ $0B
L02829F LDA $47
CMP $0B
BEQ L0282A7
BCS L0282AA
L0282A7 BRL L02830E
L0282AA PEA $0000
TDC
CLC
ADC #$0049
PHA
LDA $0B
LDX #$0000
TAY
BPL L0282BC
DEX
L0282BC PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
CMP #$0020
BEQ L0282DC
BRL L028309
L0282DC PEA $0000
TDC
CLC
ADC #$0049
PHA
LDA $0B
LDX #$0000
TAY
BPL L0282EE
DEX
L0282EE PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
SEP #$20
LDA #$2E
STA [$01]
REP #$20
L028309 INC $0B
BRL L02829F
L02830E LDA #$004B
PHA
LDA #$0028
PHA
LDA #$0000
PHA
PEA ^L02883D
PEA L02883D
LDA #$0000
PHA
TDC
CLC
ADC #$0047
LDX #$0000
PHX
PHA
PEA ^L0400F2
PEA L0400F2
_SFPutFile2
STAL L02B111
LDAL L0400F2
BNE L028348
BRL L028830
L028348 LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
TXA
STAL L030007
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
TXA
STAL L03000B
LDA #$0001
LDX #$0148
STA $00,X
LDAL L03000B
PHA
LDAL L030009
PHA
PLA
CLC
ADC #$0002
BCC L028394
PLX
INX
PHX
L028394 PHA
LDA $01,S
LDX #$014A
STA $00,X
LDA $03,S
LDX #$014C
STA $00,X
LDX #$015A
PLA
STA $00,X
PLA
STA $02,X
LDA #$00C3
LDX #$014E
STA $00,X
LDA #$0006
LDX #$0150
STA $00,X
LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
PEA $3FF9
PEA $9F5B
PEA $A979
PEA $3B31
PEA $F000
JSL L02BF65
JSL L02BBB7
TXY
LDX #$0152
STA $00,X
STY $02,X
LDX $05
PHX
TSX
STX $05
LDA #$2002
PHA
PEA $0000
TDC
CLC
ADC #$0148
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0004
LDX #$0148
STA $00,X
LDX $05
PHX
TSX
STX $05
LDA #$2001
PHA
PEA $0000
TDC
CLC
ADC #$0148
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0004
LDX #$0156
STA $00,X
LDA #$0002
LDX #$015E
STA $00,X
LDX #$0160
STZ $00,X
LDX $05
PHX
TSX
STX $05
LDA #$2010
PHA
PEA $0000
TDC
CLC
ADC #$0156
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L02847E
BRL L0284BD
L02847E LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L028830
L0284BD LDA #$0004
LDX #$0162
STA $00,X
LDX #$0158
LDA $00,X
LDX #$0164
STA $00,X
LDX #$0166
TDC
CLC
ADC #$0013
STA $00,X
STZ $02,X
LDX #$016A
LDA #$002C
STA $00,X
LDA #$0000
STA $02,X
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L028523
BRL L028643 ; BUG was L028644
L028523 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0001
LDX #$0162
STA $00,X
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L028830
LDAL L030029
TAX
LDAL L030027
TXY
LDX #$0166
STA $00,X
STY $02,X
LDA $0D
PEA $0000
PHA
LDAL L030023
PHA
LDAL L030021
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
LDX #$016A
PLA
STA $00,X
PLA
STA $02,X
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0285F9
BRL L02865F
L0285F9 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0001
LDX #$0162
STA $00,X
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
L028643 LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L028830
L02865F LDX #$0166
TDC
CLC
ADC #$003F
STA $00,X
STZ $02,X
LDX #$016A
LDA #$0008
STA $00,X
LDA #$0000
STA $02,X
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L0286B3
BRL L028719
L0286B3 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0001
LDX #$0162
STA $00,X
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L028830
L028719 LDX #$0166 ; write suffix
LDA #L040000
STA $00,X
LDA #^L040000
STA $02,X
LDX #$016A
* LDA #$0033
* STA $00,X
lda L030021
and #$ff
sta $00,x
lda #256
sec
sbc $00,x
sta $00,x
LDA #$0000
STA $02,X
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAX
BNE L02876E
BRL L0287D4
L02876E LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0001
LDX #$0162
STA $00,X
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L028830
L0287D4 LDA #$0001
LDX #$0162
STA $00,X
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0162
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDAL L030019
AND #$00FE
STAL L030019
LDAL L0400FE
PHA
LDAL L0400FC
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
PHA
LDAL L040102
PHA
_DisposeHandle
STAL L02B111
L028830 PLD
TSC
CLC
ADC #$0171
TCS
RTL
L028838 ASC '.WAV'00
L02883D STR 'Save Where? '
DB $00
L02884B TSC
SEC
SBC #$0192
TCS
PHD
TCD
SEP #$20
LDA #$2E
STA $1D
REP #$20
TDC
CLC
ADC #$001D
LDX #$0000
INC
BNE L028867
INX
L028867 STA $01
STX $03
SEP #$20
LDA #$73
STA [$01]
REP #$20
TDC
CLC
ADC #$001D
LDX #$0000
CLC
ADC #$0002
BCC L028882
INX
L028882 STA $01
STX $03
SEP #$20
LDA #$6E
STA [$01]
REP #$20
TDC
CLC
ADC #$001D
LDX #$0000
CLC
ADC #$0003
BCC L02889D
INX
L02889D STA $01
STX $03
SEP #$20
LDA #$64
STA [$01]
REP #$20
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0004
BCC L0288BC
PLX
INX
PHX
L0288BC PHA
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
LDA #$4B00
STA [$01],Y
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0008
BCC L0288E3
PLX
INX
PHX
L0288E3 PHA
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
LDA #$0000
STA [$01],Y
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$000C
BCC L02890A
PLX
INX
PHX
L02890A PHA
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
LDA #$0100
STA [$01],Y
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0010
BCC L028931
PLX
INX
PHX
L028931 PHA
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
LDA #$0000
STA [$01],Y
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0014
BCC L028958
PLX
INX
PHX
L028958 PHA
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
LDA #$0100
STA [$01],Y
LDX $05
PHX
TSX
STX $05
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0018
BCC L028985
PLX
INX
PHX
L028985 PHA
LDA #$0033
PHA
JSL L02B180
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
LDAL L030023
TAX
LDAL L030021
PHX
PHA
JSL L022034
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0008
BCC L0289C8
PLX
INX
PHX
L0289C8 PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
LDX $05
PHX
TSX
STX $05
LDAL L03003B
PHA
LDAL L030039
PHA
JSL L022034
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0010
BCC L028A0D
PLX
INX
PHX
L028A0D PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
LDX $05
PHX
TSX
STX $05
LDA #$0001
LDX #$0000
TAY
BPL L028A31
DEX
L028A31 PHX
PHA
PEA $0000
PEA $0001
JSL L02C5AD
PEA ^L040000 ; write suffix
PEA L040000
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PEA $0000
TDC
CLC
ADC #$001D
PHA
PLA
CLC
ADC #$0018
BCC L028A61
PLX
INX
PHX
L028A61 PHA
JSL L02AB57
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0003
PHA
LDX #^L0400F2
LDA #L0400F2
CLC
ADC #$0008
BCC L028A7F
INX
L028A7F STA $01
STX $03
PLA
STA [$01]
LDA #$0003
PHA
LDX #^L0400F2
LDA #L0400F2
CLC
ADC #$000E
BCC L028A97
INX
L028A97 STA $01
STX $03
PLA
STA [$01]
LDX $05
PHX
TSX
STX $05
PEA ^L040034
PEA L040034
PEA $0000
TDC
CLC
ADC #$0068
PHA
PLA
CLC
ADC #$0002
BCC L028ABD
PLX
INX
PHX
L028ABD PHA
JSL L02AB57
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEA ^L029233
PEA L029233
PEA $0000
TDC
CLC
ADC #$0068
PHA
PLA
CLC
ADC #$0002
BCC L028AE9
PLX
INX
PHX
L028AE9 PHA
JSL L02AB0B
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
PEA $0000
TDC
CLC
ADC #$0068
PHA
PLA
CLC
ADC #$0002
BCC L028B0F
PLX
INX
PHX
L028B0F PHA
JSL L02AB8B
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHA
PLA
STA $68
LDA #$0000
STA $17
L028B25 LDA $68
LDX #$0001
CMP $17
BEQ L028B30
BCS L028B31
L028B30 DEX
L028B31 TXA
BNE L028B37
BRL L028BCB
L028B37 LDA $17
PEA $0000
PHA
PEA $0000
PEA $0001
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0068
PHA
PLA
CLC
ADC #$0002
BCC L028B5A
PLX
INX
PHX
L028B5A PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$0020
BNE L028B7A
INX
L028B7A TXA
BNE L028B80
BRL L028BC6
L028B80 LDA #$002E
AND #$00FF
PHA
LDA $17
PEA $0000
PHA
PEA $0000
PEA $0001
JSL L02C5AD
PEA $0000
TDC
CLC
ADC #$0068
PHA
PLA
CLC
ADC #$0002
BCC L028BAA
PLX
INX
PHX
L028BAA PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
SEP #$20
STA [$01]
REP #$20
AND #$00FF
L028BC6 INC $17
BRL L028B25
L028BCB LDA #$004B
PHA
LDA #$0028
PHA
LDA #$0000
PHA
PEA ^L029237
PEA L029237
LDA #$0000
PHA
TDC
CLC
ADC #$0068
LDX #$0000
PHX
PHA
PEA ^L0400F2
PEA L0400F2
_SFPutFile2
STAL L02B111
LDAL L0400F2
BNE L028C05
BRL L02922B
L028C05 _WaitCursor
STAL L02B111
LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDA #$0000
LDX #$0000
TAY
BPL L028C2E
DEX
L028C2E PHX
PHA
LDA $01,S
STA $19
LDA $03,S
STA $1B
PLA
PLA
L028C3A PEI $1B
PEI $19
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L028C53
TYA
CMP $01,S
L028C53 BEQ L028C57
BCS L028C58
L028C57 DEX
L028C58 PLA
PLA
TXA
BNE L028C60
BRL L028D62
L028C60 LDA #$0080
PHA
LDA [$0B]
AND #$00FF
SEC
SBC $01,S
PLX
AND #$00FF
PHA
PLA
SEP #$20
STA [$0B]
REP #$20
AND #$00FF
LDA [$0B]
AND #$00FF
XBA
AND #$FF00
STA $0F
LDA [$0B]
AND #$00FF
AND #$0080
STA $11
LDA $11
BNE L028C97
BRL L028C9F
L028C97 LDA $0F
EOR #$FFFF
INC
STA $0F
L028C9F LDA $0F
CLC
ADC #$0084
STA $0F
LDA $0F
LDX #$0007
JSL L02CA73
AND #$00FF
STA $17
LDA #$0080
STA $15
LDA #$0007
STA $13
L028CBF LDA $13
LDX #$0001
SEC
SBC #$0000
BEQ L028CD1
BVS L028CCF
EOR #$8000
L028CCF BMI L028CD2
L028CD1 DEX
L028CD2 TXA
BNE L028CD8
BRL L028CF6
L028CD8 LDA $17
AND $15
BNE L028CE1
BRL L028CE4
L028CE1 BRL L028CF6
L028CE4 LDA $15
LDX #$0001
JSL L02CA73
STA $15
LDA $13
DEC $13
BRL L028CBF
L028CF6 LDA $13
STA $17
LDA $0F
PHA
LDA $17
CLC
ADC #$0003
TAX
PLA
JSL L02CB94
AND #$000F
STA $13
LDA $17
ASL
ASL
ASL
ASL
ORA $11
ORA $13
EOR #$FFFF
AND #$00FF
PHA
PLA
SEP #$20
STA [$0B]
REP #$20
AND #$00FF
LDA [$0B]
AND #$00FF
TAX
BEQ L028D34
LDA #$0001
L028D34 EOR #$0001
BNE L028D3C
BRL L028D4D
L028D3C LDA #$0002
AND #$00FF
PHA
PLA
SEP #$20
STA [$0B]
REP #$20
AND #$00FF
L028D4D INC $0B
BNE L028D53
INC $0D
L028D53 PEI $1B
PEI $19
INC $19
BNE L028D5D
INC $1B
L028D5D PLA
PLA
BRL L028C3A
L028D62 _InitCursor
STAL L02B111
LDAL L0400FE
TAX
LDAL L0400FC
STAL L030005
PHA
TXA
STAL L030007
PLA
LDAL L030007
TAX
LDAL L030005
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STAL L030009
PHA
TXA
STAL L03000B
PLA
LDA #$0001
PHA
PLA
LDX #$0169
STA $00,X
LDAL L03000B
PHA
LDAL L030009
PHA
PLA
CLC
ADC #$0002
BCC L028DBF
PLX
INX
PHX
L028DBF PHA
PEA $0000
TDC
CLC
ADC #$0169
PHA
PLA
CLC
ADC #$0002
BCC L028DD3
PLX
INX
PHX
L028DD3 PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PEA $0000
TDC
CLC
ADC #$0177
PHA
PLA
CLC
ADC #$0004
BCC L028DF8
PLX
INX
PHX
L028DF8 PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
LDA #$00C3
PHA
TDC
CLC
ADC #$0169
LDX #$0000
CLC
ADC #$0006
BCC L028E1F
INX
L028E1F STA $01
STX $03
PLA
STA [$01]
LDA #$0006
PHA
TDC
CLC
ADC #$0169
LDX #$0000
CLC
ADC #$0008
BCC L028E39
INX
L028E39 STA $01
STX $03
PLA
STA [$01]
LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
PEA $3FF9
PEA $9F5B
PEA $A979
PEA $3B31
PEA $F000
JSL L02BF65
JSL L02BBB7
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0169
PHA
PLA
CLC
ADC #$000A
BCC L028E79
PLX
INX
PHX
L028E79 PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
LDX $05
PHX
TSX
STX $05
LDA #$2002
PHA
PEA $0000
TDC
CLC
ADC #$0169
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0004
PHA
PLA
LDX #$0169
STA $00,X
LDX $05
PHX
TSX
STX $05
LDA #$2001
PHA
PEA $0000
TDC
CLC
ADC #$0169
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0004
PHA
PLA
LDX #$0177
STA $00,X
LDA #$0002
PHA
TDC
CLC
ADC #$0177
LDX #$0000
CLC
ADC #$0008
BCC L028EF2
INX
L028EF2 STA $01
STX $03
PLA
STA [$01]
LDA #$0000
PHA
TDC
CLC
ADC #$0177
LDX #$0000
CLC
ADC #$000A
BCC L028F0C
INX
L028F0C STA $01
STX $03
PLA
STA [$01]
LDX $05
PHX
TSX
STX $05
LDA #$2010
PHA
PEA $0000
TDC
CLC
ADC #$0177
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L028F4E
BRL L028F8F
L028F4E LDAL L0400FE
TAX
LDAL L0400FC
PHX
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
TAX
LDAL L040102
PHX
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L02922B
L028F8F LDA #$0004
PHA
PLA
LDX #$0183
STA $00,X
LDX #$0179
LDA $00,X
PHA
TDC
CLC
ADC #$0183
LDX #$0000
CLC
ADC #$0002
BCC L028FAE
INX
L028FAE STA $01
STX $03
PLA
STA [$01]
PEA $0000
TDC
CLC
ADC #$001D
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
PLA
CLC
ADC #$0004
BCC L028FD1
PLX
INX
PHX
L028FD1 PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
PEA $0000
TDC
CLC
ADC #$0183
PHA
PLA
CLC
ADC #$0008
BCC L028FF8
PLX
INX
PHX
L028FF8 PHA
PLA
STA $01
PLA
STA $03
LDA #$004B
STA [$01]
LDY #$0002
LDA #$0000
STA [$01],Y
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L029047
BRL L0290B1
L029047 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0001
PHA
PLA
LDX #$0183
STA $00,X
LDAL L0400FE
TAX
LDAL L0400FC
PHX
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
TAX
LDAL L040102
PHX
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L02922B
L0290B1 LDAL L030029
PHA
LDAL L030027
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
PLA
CLC
ADC #$0004
BCC L0290CE
PLX
INX
PHX
L0290CE PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
LDAL L030023
TAX
LDAL L030021
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
PLA
CLC
ADC #$0008
BCC L029100
PLX
INX
PHX
L029100 PHA
PLA
STA $01
PLA
STA $03
LDA $01,S
STA [$01]
LDY #$0002
LDA $03,S
STA [$01],Y
PLA
PLA
LDX $05
PHX
TSX
STX $05
LDA #$2013
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L02914F
BRL L0291B9
L02914F LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0001
PHA
PLA
LDX #$0183
STA $00,X
LDAL L0400FE
TAX
LDAL L0400FC
PHX
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
TAX
LDAL L040102
PHX
PHA
_DisposeHandle
STAL L02B111
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L02922B
L0291B9 LDA #$0001
PHA
PLA
LDX #$0183
STA $00,X
LDX $05
PHX
TSX
STX $05
LDA #$2014
PHA
PEA $0000
TDC
CLC
ADC #$0183
PHA
JSL L02A4D6
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDAL L030019
AND #$00FE
STAL L030019
LDX $05
PHX
TSX
STX $05
JSL L020FED
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDAL L0400FE
TAX
LDAL L0400FC
PHX
PHA
_DisposeHandle
STAL L02B111
LDAL L040104
TAX
LDAL L040102
PHX
PHA
_DisposeHandle
STAL L02B111
L02922B PLD
TSC
CLC
ADC #$0192
TCS
RTL
L029233 ASC '.AU'00
L029237 STR 'Save Where? '
DB $00
L029245 TSC
SEC
SBC #$0059
TCS
PHD
TCD
PHA
PHA
LDA #$8006
PHA
PEA $0000
PEA $012D
_LoadResource
STAL L02B111
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA $01,S
STA $07
LDA $03,S
STA $09
PLA
PLA
LDX $05
PHX
TSX
STX $05
LDA #$000E
LDX #$0000
TAY
BPL L02928D
DEX
L02928D PHX
PHA
PEA ^L02987A
PEA L02987A
LDA #$0001
LDX #$0000
TAY
BPL L02929F
DEX
L02929F PHX
PHA
PEA $0000
PEA $0001
JSL L02C5AD
CLC
PLA
ADC $07
PHA
LDA $03,S
ADC $09
STA $03,S
JSL L02ABAF
TAY
LDA $05
TCS
PLA
STA $05
TYA
TAY
BNE L0292C8
BRL L0292E5
L0292C8 LDA #$1E06
STAL L03002B
LDX $05
PHX
TSX
STX $05
LDA #$0005
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L0292E5 LDAL L03003B
PHA
LDAL L030039
PHA
LDA #$0032
LDX #$0000
TAY
BPL L0292F9
DEX
L0292F9 JSL L02B113
LDA $01,S
STA $1C
LDA $03,S
STA $1E
PLA
PLA
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FF2
LDA #$800E
PHA
_NewWindow2
STAL L02B111
LDA $01,S
STA $14
LDA $03,S
STA $16
PLA
PLA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L029360
BRL L029376
L029360 LDX $05
PHX
TSX
STX $05
LDA #$01BC
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L029376 PEI $16
PEI $14
_ShowWindow
STAL L02B111
PEI $16
PEI $14
_SelectWindow
STAL L02B111
L029394 PHA
PHA
PEA $0000
TDC
CLC
ADC #$002C
PHA
PEA $0000
PEA $0000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
LDA #$0018
PHA
_DoModalWindow
STAL L02B111
LDA $01,S
STA $18
LDA $03,S
STA $1A
PLA
PLA
LDA #$002F
LDX #$0000
TAY
BPL L0293D4
DEX
L0293D4 CMP $18
BNE L0293DA
CPX $1A
L0293DA BEQ L0293E1
LDA #$0001
BRA L0293E4
L0293E1 LDA #$0000
L0293E4 BEQ L0293E9
BRL L029394
L0293E9 LDAL L030019
AND #$0040
BNE L0293F5
BRL L029407
L0293F5 PEI $16
PEI $14
_CloseWindow
STAL L02B111
BRL L029872
L029407 LDA $3A
AND #$0100
BNE L029411
BRL L0295CE
L029411 _WaitCursor
STAL L02B111
PHA
PHA
PEI $16
PEI $14
PEA $0000
PEA $0030
_GetCtlHandleFromID
STAL L02B111
_ShowControl
STAL L02B111
LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $07
LDA $03,S
STA $09
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDA #$0000
LDX #$0000
TAY
BPL L029464
DEX
L029464 PHX
PHA
LDA $01,S
STA $18
LDA $03,S
STA $1A
LDA $01,S
STA $20
LDA $03,S
STA $22
PLA
PLX
AND #$00FF
SEP #$20
STA $13
REP #$20
L029481 PEI $1A
PEI $18
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L02949A
TYA
CMP $01,S
L02949A BEQ L02949E
BCS L02949F
L02949E DEX
L02949F PLA
PLA
TXA
BNE L0294A7
BRL L0295C0
L0294A7 LDA $13
AND #$00FF
BNE L0294B1
BRL L029502
L0294B1 LDA [$0F]
AND #$00FF
PHA
PLA
SEP #$20
STA [$07]
REP #$20
AND #$00FF
INC $0F
BNE L0294C7
INC $11
L0294C7 LDX $1E
LDA $1C
CMP $20
BNE L0294D1
CPX $22
L0294D1 BNE L0294D8
LDA #$0001
BRA L0294DB
L0294D8 LDA #$0000
L0294DB BNE L0294E0
BRL L0294FF
L0294E0 LDA #$0000
LDX #$0000
TAY
BPL L0294EA
DEX
L0294EA PHX
PHA
LDA $01,S
STA $20
LDA $03,S
STA $22
PLA
PLX
AND #$00FF
SEP #$20
STA $13
REP #$20
L0294FF BRL L02959F
L029502 LDA [$0B]
AND #$00FF
PHA
PLA
SEP #$20
STA [$07]
REP #$20
AND #$00FF
LDA #$0002
LDX #$0000
TAY
BPL L02951C
DEX
L02951C PHX
PHA
PEA $0000
PEA $0001
JSL L02C5AD
CLC
PLA
ADC $0B
PHA
LDA $03,S
ADC $0D
STA $03,S
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDX $1E
LDA $1C
CMP $20
BNE L029547
CPX $22
L029547 BNE L02954E
LDA #$0001
BRA L029551
L02954E LDA #$0000
L029551 BNE L029556
BRL L02959F
L029556 LDA #$0001
AND #$00FF
SEP #$20
STA $13
REP #$20
LDA #$0000
LDX #$0000
TAY
BPL L02956C
DEX
L02956C PHX
PHA
LDA $01,S
STA $20
LDA $03,S
STA $22
PLA
PLA
PEI $1E
PEI $1C
LDA #$0001
LDX #$0000
JSL L02CB25
PEI $09
PEI $07
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
LDA $01,S
STA $0F
LDA $03,S
STA $11
PLA
PLA
L02959F INC $07
BNE L0295A5
INC $09
L0295A5 PEI $1A
PEI $18
INC $18
BNE L0295AF
INC $1A
L0295AF PLA
PLA
PEI $22
PEI $20
INC $20
BNE L0295BB
INC $22
L0295BB PLA
PLA
BRL L029481
L0295C0 LDAL L030019
ORA #$0040
STAL L030019
BRL L029858
L0295CE LDA $3A
AND #$0800
BNE L0295D8
BRL L029858
L0295D8 _WaitCursor
STAL L02B111
PHA
PHA
PEI $16
PEI $14
PEA $0000
PEA $0030
_GetCtlHandleFromID
STAL L02B111
_ShowControl
STAL L02B111
PHA
PHA
PEI $1E
PEI $1C
LDA #$0002
LDX #$0000
TAY
BPL L029615
DEX
L029615 JSL L02B113
CLC
PLA
ADC #$0001
PHA
LDA $03,S
ADC #$0000
STA $03,S
LDAL L030035
PHA
LDA #$C000
PHA
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
LDA $01,S
STA $28
LDA $03,S
STA $2A
PLA
PLA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L029666
BRL L029695
L029666 LDAL L03002B
LDX #$0000
CMP #$0201
BNE L029673
INX
L029673 TXA
BNE L029679
BRL L029680
L029679 LDA #$0086
STAL L03002B
L029680 LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L029872
L029695 LDY #$0002
LDA [$28],Y
PHA
LDA [$28]
PHA
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $07
LDA $03,S
STA $09
LDA $01,S
STA $0F
LDA $03,S
STA $11
PLA
PLA
PEI $1E
PEI $1C
LDA #$0001
LDX #$0000
TAY
BPL L0296D2
DEX
L0296D2 PHX
PHA
JSL L02B0CB
LDA $01,S
STA $24
LDA $03,S
STA $26
PLA
PLA
LDX $05
PHX
TSX
STX $05
PEI $26
PEI $24
PEI $09
PEI $07
PEI $0D
PEI $0B
JSL L02A6DB
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0000
LDX #$0000
TAY
BPL L02970A
DEX
L02970A PHX
PHA
LDA $01,S
STA $20
LDA $03,S
STA $22
LDA $01,S
STA $18
LDA $03,S
STA $1A
PLA
PLX
AND #$00FF
SEP #$20
STA $13
REP #$20
L029727 PEI $1A
PEI $18
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L029740
TYA
CMP $01,S
L029740 BEQ L029744
BCS L029745
L029744 DEX
L029745 PLA
PLA
TXA
BNE L02974D
BRL L02983E
L02974D LDX $26
LDA $24
CMP $20
BNE L029757
CPX $22
L029757 BNE L02975E
LDA #$0001
BRA L029761
L02975E LDA #$0000
L029761 BNE L029766
BRL L0297D0
L029766 PEI $1E
PEI $1C
LDA #$0001
LDX #$0000
JSL L02CB25
CLC
PLA
ADC $0F
PHA
LDA $03,S
ADC $11
STA $03,S
LDA $01,S
STA $0F
LDA $03,S
STA $11
PLA
PLA
LDY #$0002
LDA [$28],Y
PHA
LDA [$28]
PHA
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDX $05
PHX
TSX
STX $05
PEI $26
PEI $24
PEI $11
PEI $0F
PEI $0D
PEI $0B
JSL L02A6DB
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDA #$0000
LDX #$0000
TAY
BPL L0297C4
DEX
L0297C4 PHX
PHA
LDA $01,S
STA $20
LDA $03,S
STA $22
PLA
PLA
L0297D0 LDA [$0B]
AND #$00FF
PHA
PLA
SEP #$20
STA [$07]
REP #$20
AND #$00FF
INC $07
BNE L0297E6
INC $09
L0297E6 INC $18
BNE L0297EC
INC $1A
L0297EC LDAL L030023
TAX
LDAL L030021
CMP $18
BNE L0297FB
CPX $1A
L0297FB BNE L029802
LDA #$0001
BRA L029805
L029802 LDA #$0000
L029805 BNE L02980A
BRL L02980D
L02980A BRL L02983E
L02980D LDA [$0B]
AND #$00FF
PHA
PLA
SEP #$20
STA [$07]
REP #$20
AND #$00FF
INC $07
BNE L029823
INC $09
L029823 INC $0B
BNE L029829
INC $0D
L029829 INC $18
BNE L02982F
INC $1A
L02982F PEI $22
PEI $20
INC $20
BNE L029839
INC $22
L029839 PLA
PLA
BRL L029727
L02983E PEI $2A
PEI $28
_DisposeHandle
STAL L02B111
LDAL L030019
ORA #$0040
STAL L030019
L029858 PEI $16
PEI $14
_CloseWindow
STAL L02B111
_InitCursor
STAL L02B111
L029872 PLD
TSC
CLC
ADC #$0059
TCS
RTL
L02987A ASC 'Buy IBM Aptiva'00
L029889 TSC
SEC
SBC #$004C
TCS
PHD
TCD
LDX $52
LDA $50
JSL L02BB54
LDAL L03003B
TAX
LDAL L030039
JSL L02BB54
JSL L02BC4A
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
PEA $3FFF
PEA $8000
PEA $0000
PEA $0000
PEA $0000
JSL L02BF05
BNE L0298E2
BRL L029E35
L0298E2 PHA
PHA
LDAL L030023
TAX
LDAL L030021
JSL L02BB54
PEA $0000
TDC
CLC
ADC #$002D
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0104
_SANEFP816
LDA #$0014
LDX #$0000
JSL L02BB54
JSL L02BB05
JSL L02BBB7
PHX
PHA
LDAL L030035
PHA
LDA #$C000
PHA
PEA $0000
PEA $0000
_NewHandle
STAL L02B111
LDA $01,S
STA $07
LDA $03,S
STA $09
PLA
PLA
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L029961
BRL L029990
L029961 LDAL L03002B
LDX #$0000
CMP #$0201
BNE L02996E
INX
L02996E TXA
BNE L029974
BRL L02997B
L029974 LDA #$0086
STAL L03002B
L02997B LDX $05
PHX
TSX
STX $05
JSL L0250E2
TAY
LDA $05
TCS
PLA
STA $05
TYA
BRL L02A307
L029990 LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
PEA $0000
PEA $000A
PEA $0000
PEA $0001
JSL L02C5AD
LDY #$0002
LDA [$07],Y
PHA
LDA [$07]
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
LDA $01,S
STA $0F
LDA $03,S
STA $11
PLA
PLA
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
LDA #$0000
LDX #$0000
TAY
BPL L0299FC
DEX
L0299FC PHX
PHA
LDA $01,S
STA $13
LDA $03,S
STA $15
LDA $01,S
STA $17
LDA $03,S
STA $19
LDA $01,S
STA $1F
LDA $03,S
STA $21
PLA
PLA
L029A18 PEI $15
PEI $13
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L029A31
TYA
CMP $01,S
L029A31 BEQ L029A35
BCS L029A36
L029A35 DEX
L029A36 PLA
PLA
TXA
BNE L029A3E
BRL L029B82
L029A3E PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF38
LDX $21
LDA $1F
JSL L02BB54
JSL L02BFF6
JSL L02BBEC
STA $23
LDA [$0B]
AND #$00FF
PHA
PLA
SEP #$20
STA [$0F]
REP #$20
AND #$00FF
INC $17
BNE L029A73
INC $19
L029A73 INC $0F
BNE L029A79
INC $11
L029A79 LDA [$0B]
AND #$00FF
PHA
LDA #$0001
LDX #$0000
TAY
BPL L029A89
DEX
L029A89 PHX
PHA
PEA $0000
PEA $0001
JSL L02C5AD
CLC
PLA
ADC $0B
PHA
LDA $03,S
ADC $0D
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
SEC
SBC $01,S
PLX
STA $27
LDA #$0001
STA $25
L029AB6 LDA $23
LDX #$0001
CMP $25
BEQ L029AC1
BCS L029AC2
L029AC1 DEX
L029AC2 TXA
BNE L029AC8
BRL L029B14
L029AC8 LDA [$0B]
AND #$00FF
PHA
LDA $27
LDX $23
JSL L02CA8E
LDX $25
JSL L02CABC
CLC
ADC $01,S
PLX
AND #$00FF
PHA
PLA
SEP #$20
STA [$0F]
REP #$20
AND #$00FF
INC $25
PEI $11
PEI $0F
INC $0F
BNE L029AFA
INC $11
L029AFA PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PEI $19
PEI $17
INC $17
BNE L029B0F
INC $19
L029B0F PLA
PLA
BRL L029AB6
L029B14 PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF38
JSL L02BBB7
PHX
PHA
LDA $01,S
STA $1F
LDA $03,S
STA $21
PLA
PLA
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$0035
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0100
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
INC $13
BNE L029B73
INC $15
L029B73 PEI $0D
PEI $0B
INC $0B
BNE L029B7D
INC $0D
L029B7D PLA
PLA
BRL L029A18
L029B82 LDX $19
LDA $17
STAL L030021
PHA
TXA
STAL L030023
PLA
LDX $52
LDA $50
STAL L030039
PHA
TXA
STAL L03003B
PLA
LDA L030039
ORA L03003B
BNE L029BAD
LDA #$0001
BRA L029BB0
L029BAD LDA #$0000
L029BB0 BNE L029BB5
BRL L029BCC
L029BB5 CLC
LDAL L030039
ADC #$0001
STAL L030039
BCC L029BCC
LDAL L03003B
INC
STAL L03003B
L029BCC PEA $0000
PEA $FFFA
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L029BE7
TYA
CMP $01,S
L029BE7 BEQ L029BEB
BCS L029BEC
L029BEB DEX
L029BEC PLA
PLA
TXA
BNE L029BF4
BRL L029C08
L029BF4 PEA $0000
PEA $FFFA
LDA $01,S
STAL L030039
LDA $03,S
STAL L03003B
PLA
PLA
L029C08 PEI $09
PEI $07
_HLock
STAL L02B111
LDY #$0002
LDA [$07],Y
PHA
LDA [$07]
PHA
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDA #$000A
LDX #$0000
TAY
BPL L029C34
DEX
L029C34 PHX
PHA
PEA $0000
PEA $0001
JSL L02C5AD
CLC
PLA
ADC $0B
PHA
LDA $03,S
ADC $0D
STA $03,S
LDA $01,S
STAL L030027
LDA $03,S
STAL L030029
PLA
PLA
LDAL L030023
PHA
LDAL L030021
PHA
LDA #$0008
LDX #$0000
TAY
BPL L029C6D
DEX
L029C6D PHX
PHA
JSL L02C248
LDA #$FFFF
PEA $0000
PHA
PLA
AND $03,S
STA $03,S
PLA
AND $03,S
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L029C94
LDA #$0001
L029C94 EOR #$0001
BNE L029C9C
BRL L029CA3
L029C9C LDA #$0001
STAL L030025
L029CA3 LDA #$0000
AND #$00FF
PHA
LDA #$0001
LDX #$0000
TAY
BPL L029CB4
DEX
L029CB4 PHX
PHA
LDAL L030023
PHA
LDAL L030021
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PEA $0000
PEA $0001
JSL L02C5AD
LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
SEP #$20
STA [$01]
REP #$20
AND #$00FF
LDX $05
PHX
TSX
STX $05
JSL L026CEE
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDY #$0002
LDA [$07],Y
PHA
LDA [$07]
PHA
LDA $01,S
STA $29
LDA $03,S
STA $2B
PLA
PLA
LDA #$0000
PHA
LDA #$0000
LDX #$0000
TAY
BPL L029D2D
DEX
L029D2D PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L030025
PHA
LDA #$0001
LDX #$0000
TAY
BPL L029D5C
DEX
L029D5C PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L030017
PHA
LDA #$0002
LDX #$0000
TAY
BPL L029D8B
DEX
L029D8B PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L03000D
PHA
LDA #$0003
LDX #$0000
TAY
BPL L029DBA
DEX
L029DBA PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L03003B
TAX
LDAL L030039
PHA
LDA #$0004
LDX #$0000
TAY
BPL L029DEE
DEX
L029DEE PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L03002F
PHA
LDAL L03002D
PHA
_DisposeHandle
STAL L02B111
LDX $09
LDA $07
STAL L03002D
PHA
TXA
STAL L03002F
PLA
BRL L02A266
L029E35 LDAL L030029
PHA
LDAL L030027
PHA
LDA $01,S
STA $0F
LDA $03,S
STA $11
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
JSL L02BBB7
PHX
PHA
LDA $01,S
STA $1B
LDA $03,S
STA $1D
PLA
PLA
LDA #$0000
LDX #$0000
TAY
BPL L029E98
DEX
L029E98 PHX
PHA
LDA $01,S
STA $17
LDA $03,S
STA $19
LDA $01,S
STA $13
LDA $03,S
STA $15
LDA $01,S
STA $1F
LDA $03,S
STA $21
PLA
PLX
JSL L02BB54
PEA $0000
TDC
CLC
ADC #$003D
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
L029ECB PEI $15
PEI $13
LDAL L030023
TAX
LDAL L030021
TAY
TXA
LDX #$0001
CMP $03,S
BNE L029EE4
TYA
CMP $01,S
L029EE4 BEQ L029EE8
BCS L029EE9
L029EE8 DEX
L029EE9 PLA
PLA
TXA
BNE L029EF1
BRL L029FD6
L029EF1 PEI $1D
PEI $1B
SEC
PLA
SBC $1F
PHA
LDA $03,S
SBC $21
STA $03,S
LDA #$0000
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L029F0E
DEY
L029F0E TXA
CMP $03,S
BEQ L029F16
LDY #$0000
L029F16 PLA
PLA
TYA
BEQ L029F1E
BRL L029F68
L029F1E LDA [$0B]
AND #$00FF
PHA
PLA
SEP #$20
STA [$0F]
REP #$20
AND #$00FF
INC $17
BNE L029F34
INC $19
L029F34 INC $0F
BNE L029F3A
INC $11
L029F3A PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$003D
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
PEI $1D
PEI $1B
LDA $01,S
STA $1F
LDA $03,S
STA $21
PLA
PLA
L029F68 PEA $0000
TDC
CLC
ADC #$002D
PHA
JSL L02BF38
PEA $0000
TDC
CLC
ADC #$0035
PHA
PEA $0000
TSC
CLC
ADC #$0007
PHA
PEA $0100
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BC1E
TSC
CLC
ADC #$000A
TCS
PEA $0000
TDC
CLC
ADC #$0035
PHA
JSL L02BF38
JSL L02BBB7
PHX
PHA
LDA $01,S
STA $1B
LDA $03,S
STA $1D
PLA
PLA
INC $13
BNE L029FC7
INC $15
L029FC7 PEI $0D
PEI $0B
INC $0B
BNE L029FD1
INC $0D
L029FD1 PLA
PLA
BRL L029ECB
L029FD6 LDX $19
LDA $17
STAL L030021
PHA
TXA
STAL L030023
PLA
LDX $52
LDA $50
STAL L030039
PHA
TXA
STAL L03003B
PLA
LDA L030039
ORA L03003B
BNE L02A001
LDA #$0001
BRA L02A004
L02A001 LDA #$0000
L02A004 BNE L02A009
BRL L02A020
L02A009 CLC
LDAL L030039
ADC #$0001
STAL L030039
BCC L02A020
LDAL L03003B
INC
STAL L03003B
L02A020 PEA $0000
PEA $FFFA
LDAL L03003B
TAX
LDAL L030039
TAY
TXA
LDX #$0001
CMP $03,S
BNE L02A03B
TYA
CMP $01,S
L02A03B BEQ L02A03F
BCS L02A040
L02A03F DEX
L02A040 PLA
PLA
TXA
BNE L02A048
BRL L02A05C
L02A048 PEA $0000
PEA $FFFA
LDA $01,S
STAL L030039
LDA $03,S
STAL L03003B
PLA
PLA
L02A05C LDAL L030023
PHA
LDAL L030021
PHA
LDA #$0008
LDX #$0000
TAY
BPL L02A070
DEX
L02A070 PHX
PHA
JSL L02C248
LDA #$FFFF
PEA $0000
PHA
PLA
AND $03,S
STA $03,S
PLA
AND $03,S
STA $03,S
PLA
PLX
STAL L030025
LDAL L030025
TAX
BEQ L02A097
LDA #$0001
L02A097 EOR #$0001
BNE L02A09F
BRL L02A0A6
L02A09F LDA #$0001
STAL L030025
L02A0A6 LDA #$0000
AND #$00FF
PHA
LDA #$0001
LDX #$0000
TAY
BPL L02A0B7
DEX
L02A0B7 PHX
PHA
LDAL L030023
PHA
LDAL L030021
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PEA $0000
PEA $0001
JSL L02C5AD
LDAL L030029
PHA
LDAL L030027
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
SEP #$20
STA [$01]
REP #$20
AND #$00FF
LDX $05
PHX
TSX
STX $05
JSL L026CEE
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA $01,S
STA $29
LDA $03,S
STA $2B
PLA
PLA
LDAL L030025
PHA
LDA #$0001
LDX #$0000
TAY
BPL L02A13E
DEX
L02A13E PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L030017
PHA
LDA #$0002
LDX #$0000
TAY
BPL L02A16D
DEX
L02A16D PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L03003B
TAX
LDAL L030039
PHA
LDA #$0004
LDX #$0000
TAY
BPL L02A1A1
DEX
L02A1A1 PHX
PHA
PEA $0000
PEA $0002
JSL L02C5AD
CLC
PLA
ADC $29
PHA
LDA $03,S
ADC $2B
STA $03,S
PLA
PLX
STA $01
STX $03
PLA
STA [$01]
LDAL L03002F
PHA
LDAL L03002D
PHA
_HUnlock
STAL L02B111
LDAL L030023
PHA
LDAL L030021
PHA
CLC
PLA
ADC #$000A
PHA
LDA $03,S
ADC #$0000
STA $03,S
LDAL L03002F
PHA
LDAL L03002D
PHA
_SetHandleSize
STAL L02B111
LDAL L03002F
PHA
LDAL L03002D
PHA
_HLock
STAL L02B111
LDAL L03002F
TAX
LDAL L03002D
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA $01,S
STA $0B
LDA $03,S
STA $0D
PLA
PLA
LDA #$000A
LDX #$0000
TAY
BPL L02A241
DEX
L02A241 PHX
PHA
PEA $0000
PEA $0001
JSL L02C5AD
CLC
PLA
ADC $0B
PHA
LDA $03,S
ADC $0D
STA $03,S
LDA $01,S
STAL L030027
LDA $03,S
STAL L030029
PLA
PLA
L02A266 LDAL L030019
AND #$0004
BNE L02A272
BRL L02A307
L02A272 LDX $05
PHX
TSX
STX $05
LDAL L03003B
PHA
LDAL L030039
PHA
PEA ^L02A317
PEA L02A317
PEA $0000
TDC
CLC
ADC #$0045
PHA
JSL L02AA15
TAY
LDA $05
TCS
PLA
STA $05
TYA
LDAL L030003
PHA
LDAL L030001
PHA
PEA $0000
PEA $0009
LDX $05
PHX
TSX
STX $05
PEA $0000
TDC
CLC
ADC #$0045
PHA
JSL L02A628
TAY
LDA $05
TCS
PLA
STA $05
TYA
PHX
PHA
_SetLETextByID
STAL L02B111
LDX $05
PHX
TSX
STX $05
JSL L02AE36
TAY
LDA $05
TCS
PLA
STA $05
TYA
STAL L03002B
TAY
BNE L02A2F1
BRL L02A307
L02A2F1 LDX $05
PHX
TSX
STX $05
LDA #$014C
PHA
JSL L024DB6
TAY
LDA $05
TCS
PLA
STA $05
TYA
L02A307 LDA $4E
STA $52
LDA $4D
STA $51
PLD
TSC
CLC
ADC #$0050
TCS
RTL
L02A317 AND $6C
STZ $00
L02A31B TSC
SEC
SBC #$0016
TCS
PHD
TCD
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L024766
PEA L024766
PEA $0000
PEA $0000
LDA #$0002
PHA
PEA $0000
PEA $0FF3
LDA #$800E
PHA
_NewWindow2
STAL L02B111
PLA
STA $03
PLA
STA $05
LDX $01
PHX
TSX
STX $01
JSL L02AE36
TAY
LDA $01
TCS
PLA
STA $01
TYA
STAL L03002B
TAX
BNE L02A378
BRL L02A38E
L02A378 LDX $01
PHX
TSX
STX $01
LDA #$0320
PHA
JSL L024DB6
TAY
LDA $01
TCS
PLA
STA $01
TYA
L02A38E PEI $05
PEI $03
_ShowWindow
STAL L02B111
PEI $05
PEI $03
_SelectWindow
STAL L02B111
L02A3AC PHA
PHA
PEA ^L04008A
PEA L04008A
PEA $0000
PEA $0000
PEA $8000
PEA $0000
PEA $0000
PEA $0000
LDA #$0018
PHA
_DoModalWindow
STAL L02B111
PLA
PLX
STA $07
LDA $07
LDX #$0000
CMP #$002D
BEQ L02A3E4
INX
L02A3E4 TXA
CMP #$0000
BNE L02A3ED
BRL L02A401
L02A3ED LDA $07
LDX #$0000
CMP #$002C
BEQ L02A3F8
INX
L02A3F8 TXA
CMP #$0000
BEQ L02A401
LDA #$0001
L02A401 TAX
BEQ L02A407
BRL L02A3AC
L02A407 LDA $07
CMP #$002D
BEQ L02A411
BRL L02A423
L02A411 PEI $05
PEI $03
_CloseWindow
STAL L02B111
BRL L02A4CE
L02A423 _WaitCursor
STAL L02B111
PEI $05
PEI $03
PEA $0000
PEA $002B
PEA $0000
TDC
CLC
ADC #$000F
PHA
_GetLETextByID
STAL L02B111
LDX $01
PHX
TSX
STX $01
PEA $0000
TDC
CLC
ADC #$0010
PHA
JSL L02A60A
TAY
LDA $01
TCS
PLA
STA $01
TYA
STX $0D
STA $0B
PEI $05
PEI $03
_CloseWindow
STAL L02B111
LDAL L030019
AND #$0008
BNE L02A486
BRL L02A4AD
L02A486 LDAL L030003
PHA
LDAL L030001
PHA
_BringToFront
STAL L02B111
LDX $01
PHX
TSX
STX $01
JSL L024766
TAY
LDA $01
TCS
PLA
STA $01
TYA
L02A4AD LDX $01
PHX
TSX
STX $01
PEI $0D
PEI $0B
JSL L029889
TAY
LDA $01
TCS
PLA
STA $01
TYA
_InitCursor
STAL L02B111
L02A4CE PLD
TSC
CLC
ADC #$0016
TCS
RTL
L02A4D6 TSC
PHD
TCD
LDA $08
STAL L02A4EF
LDA $04
STAL L02A4F1
LDA $06
STAL L02A4F1+2
JSL GSOS
L02A4EF DW $0000
L02A4F1 ADRL $00000000
STAL L02B111
LDA $02
STA $08
LDA $01
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
RTL
DB $00
L02A50A DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $28
DB $28
DB $28
DB $28
DB $28
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $08
DB $B0
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $C1
DB $C1
DB $C1
DB $C1
DB $C1
DB $C1
DB $C1
DB $C1
DB $C1
DB $C1
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $C2
DB $C2
DB $C2
DB $C2
DB $C2
DB $C2
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $82
DB $90
DB $90
DB $90
DB $90
DB $90
DB $90
DB $C4
DB $C4
DB $C4
DB $C4
DB $C4
DB $C4
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $84
DB $90
DB $90
DB $90
DB $90
DB $08
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02A60A PEA $000A
PEA $0000
PEA $0000
LDA $0C,S
PHA
LDA $0C,S
PHA
JSL L02AC65
TAY
LDA $02,S
STA $06,S
PLA
STA $03,S
PLA
TYA
RTL
L02A628 TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHB
PHK
PLB
SEP #$30
LDY #$00
L02A637 LDA [$08],Y
STA L02B3D1,Y
BEQ L02A642
INY
BNE L02A637
DEY
L02A642 STY L02B3D0
REP #$30
LDA #L02B3D0
STA $01
LDA #^L02B3D0
STA $03
PLB
LDX $03
LDY $01
LDA $06
STA $0A
LDA $05
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
TYA
RTL
L02A667 JSR L02B032
LDA $04,S
JMP L02C95C
L02A66F LDAL L02AA93
CMP #L02AA97
BNE L02A6CC
LDAL L02AA93+2
CMP #^L02AA97
BNE L02A6CC
LDAL L02AAB3
CMP #$FFFF
BNE L02A6CC
LDAL L02AAAF
AND #$0080
BNE L02A6AA
LDAL L02AAAF
AND #$00FF
TAX
LDAL L02AAAF
XBA
ORA #$FF00
STAL L02AAAF
TXA
BRA L02A6C3
L02A6AA JSL L02C0BB
TAX
BNE L02A6C3
LDA #$0080
ORAL L02AAB1
STAL L02AAB1
JSL L02C0BB
LDA #$FFFF
L02A6C3 CMP #$000D
BNE L02A6CB
LDA #$000A
L02A6CB RTL
L02A6CC LDAL L02AA93+2
PHA
LDAL L02AA93
PHA
JSL L02B4D2
RTL
L02A6DB TSC
PHD
TCD
LDA $06
PHA
LDA $04
PHA
LDA $0C
LSR
BCC L02A6FF
SEP #$20
LDA [$08]
STA [$04]
REP #$20
DEC $0C
INC $04
BNE L02A6F9
INC $06
L02A6F9 INC $08
BNE L02A6FF
INC $0A
L02A6FF LDX $0E
BEQ L02A715
LDY #$0000
L02A706 LDA [$08],Y
STA [$04],Y
DEY
DEY
BNE L02A706
INC $0A
INC $06
DEX
BNE L02A706
L02A715 LDY $0C
BEQ L02A729
DEY
DEY
BEQ L02A725
L02A71D LDA [$08],Y
STA [$04],Y
DEY
DEY
BNE L02A71D
L02A725 LDA [$08]
STA [$04]
L02A729 PLY
PLX
LDA $01
STA $0D
LDA $02
STA $0E
PLD
TSC
CLC
ADC #$000C
TCS
TYA
RTL
L02A73C TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHB
PHK
PLB
SEP #$30
LDA [$08]
TAY
LDA #$00
STA L02B3D0,Y
TYX
BEQ L02A75C
L02A754 LDA [$08],Y
STA L02B3CF,Y
DEY
BNE L02A754
L02A75C REP #$30
LDA #L02B3D0
STA $01
LDA #^L02B3D0
STA $03
PLB
LDX $03
LDY $01
LDA $06
STA $0A
LDA $05
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
TYA
RTL
L02A77E LDA #L02A7C0
STAL L02B33A+1
LDA #>L02A7C0
STAL L02B33A+2
TSC
CLC
ADC #$0008
STAL L02A7BE
PEA $0000
PHA
JSL L02B1A5
SEC
PLA
SBCL L02A7BE
CLC
ADC #$0004
STAL L02A7BE
PLA
PHB
PLX
PLY
TSC
CLC
ADCL L02A7BE
TCS
PHY
PHX
PLB
LDAL L02B356
RTL
L02A7BE DW $0000
L02A7C0 LDAL L02AACF
CMP #L02AAD3
BNE L02A7F2
LDAL L02AACF+1
CMP #>L02AAD3
BNE L02A7F2
LDAL L02AAEF
CMP #$FFFE
BNE L02A7F2
PHP
PLX
PLY
PLA
PHY
PHX
PLP
PHA
CMP #$000A
BNE L02A7EB
LDA #$000D
L02A7EB PHA
JSL L02C07B
PLA
RTL
L02A7F2 LDAL L02AACF+2
PHA
LDAL L02AACF
PHA
LDA $08,S
PHA
JSL $000000
PHB
PLX
PLY
PLA
PHY
PHX
PLB
RTL
L02A80B TSC
SEC
SBC #$0002
TCS
PHD
TCD
STZ $01
L02A815 LDA [$06]
AND #$00FF
BEQ L02A829
PHA
JSL L02A7C0
INC $06
BNE L02A827
INC $08
L02A827 BRA L02A815
L02A829 PEA $000A
JSL L02A7C0
LDY $01
LDA $04
STA $08
LDA $03
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
TYA
RTL
L02A843 TSC
PHD
TCD
PHB
PHK
PLB
LDA $08
BNE L02A84F
DEC $0A
L02A84F DEC $08
LDA $0A
PHA
LDA $08
PHA
LDA $0E
PHA
LDA $0C
PHA
JSL L02C5AD
PLA
STA $08
PLA
STA $0A
CLC
LDA $08
ADC $04
STA $08
LDA $0A
ADC $06
STA $0A
LDA $0E
STA L02AA13
LDA $0C
STA L02AA11
LDA $10
STA L02A906+1
STA L02A934+1
LDA $11
STA L02A906+2
STA L02A934+2
LDA $0A
PHA
LDA $08
PHA
LDA $06
PHA
LDA $04
PHA
JSL L02A8AF
PLB
LDA $02
STA $12
LDA $01
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02A8AF TSC
SEC
SBC #$0008
TCS
PHD
TCD
PHB
PHK
PLB
L02A8BA LDA $12
CMP $0E
BNE L02A8C4
LDA $10
CMP $0C
L02A8C4 BEQ L02A8C8
BCS L02A8D9
L02A8C8 PLB
LDA $0A
STA $12
LDA $09
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02A8D9 LDA $12
STA $07
LDA $10
STA $05
LDA $0E
STA $03
LDA $0C
STA $01
BRA L02A8FA
L02A8EB CLC
LDA $01
ADC L02AA11
STA $01
LDA $03
ADC L02AA13
STA $03
L02A8FA LDA $12
PHA
LDA $10
PHA
LDA $03
PHA
LDA $01
PHA
L02A906 JSL L02A906
TAX
BMI L02A8EB
L02A90D LDA $05
CMP $0C
BNE L02A919
LDA $07
CMP $0E
BEQ L02A93B
L02A919 SEC
LDA $05
SBC L02AA11
STA $05
LDA $07
SBC L02AA13
STA $07
LDA $12
PHA
LDA $10
PHA
LDA $07
PHA
LDA $05
PHA
L02A934 JSL L02A934
DEC
BPL L02A90D
L02A93B LDA $03
PHA
LDA $01
PHA
LDA $07
PHA
LDA $05
PHA
JSR L02A9A5
LDA $03
CMP $07
BNE L02A954
LDA $01
CMP $05
L02A954 BCC L02A8EB
LDA $07
PHA
LDA $05
PHA
LDA $03
PHA
LDA $01
PHA
JSR L02A9A5
LDA $03
PHA
LDA $01
PHA
LDA $12
PHA
LDA $10
PHA
JSR L02A9A5
SEC
LDA $01
SBC L02AA11
STA $05
LDA $03
SBC L02AA13
STA $07
LDA $07
PHA
LDA $05
PHA
LDA $0E
PHA
LDA $0C
PHA
JSL L02A8AF
CLC
LDA $01
ADC L02AA11
STA $0C
LDA $03
ADC L02AA13
STA $0E
BRL L02A8BA
L02A9A5 TSC
PHD
TCD
LDX L02AA13
BEQ L02A9C5
LDY #$0000
L02A9B0 LDA [$03],Y
TAX
LDA [$07],Y
STA [$03],Y
TXA
STA [$07],Y
DEY
DEY
BNE L02A9B0
INC $05
INC $09
DEX
BNE L02A9B0
L02A9C5 LDA L02AA11
LSR
BCC L02A9E9
SEP #$20
LDA [$03]
TAX
LDA [$07]
STA [$03]
TXA
STA [$07]
REP #$20
INC $03
BNE L02A9DF
INC $05
L02A9DF INC $07
BNE L02A9E5
INC $09
L02A9E5 LDA L02AA11
LSR
L02A9E9 ASL
BEQ L02AA07
TAY
BRA L02A9F9
L02A9EF LDA [$03],Y
TAX
LDA [$07],Y
STA [$03],Y
TXA
STA [$07],Y
L02A9F9 DEY
DEY
BNE L02A9EF
LDA [$03]
TAX
LDA [$07]
STA [$03]
TXA
STA [$07]
L02AA07 PLD
PLX
TSC
CLC
ADC #$0008
TCS
PHX
RTS
L02AA11 DW $0000
L02AA13 DW $0000
L02AA15 PHB
PHK
PLB
PLX
PLY
PLA
STA L02AA8F
PLA
STA L02AA91
PHY
PHX
PLB
LDA #L02AA65
STAL L02B33A+1
LDA #>L02AA65
STAL L02B33A+2
TSC
CLC
ADC #$0008
STAL L02AA8D
PEA $0000
PHA
JSL L02B1A5
SEC
PLA
SBCL L02AA8D
CLC
ADC #$0004
STAL L02AA8D
PLA
PHB
PLX
PLY
TSC
CLC
ADCL L02AA8D
TCS
PHY
PHX
PLB
LDAL L02B356
RTL
L02AA65 PHB
PLX
PLA
PLY
PHA
PHX
PLB
LDX L02AA91
PHX
LDX L02AA8F
PHX
PHD
TSC
TCD
TYA
AND #$00FF
STA [$03]
PLD
PLA
PLA
PHB
PHK
PLB
INC L02AA8F
BNE L02AA8B
INC L02AA91
L02AA8B PLB
RTL
L02AA8D DB $00
DB $00
L02AA8F DB $00
DB $00
L02AA91 DB $00
DB $00
L02AA93 ADRL L02AA97
L02AA97 ADRL L02AAD3
L02AA9B DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02AAAF DB $FF
DB $FF
L02AAB1 DB $0A
DB $02
L02AAB3 DB $FF
DB $FF
L02AAB5 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $0A
DB $02
DB $FF
DB $FF
L02AACF ADRL L02AAD3
L02AAD3 ADRL L02B6C4
L02AAD7 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $12
DB $02
L02AAEF DB $FE
DB $FF
L02AAF1 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $12
DB $02
DB $FE
DB $FF
L02AB0B LDA $06,S
PHA
LDA $06,S
PHA
TSC
PHD
TCD
LDY #$0000
SEP #$20
L02AB19 LDA [$08],Y
BEQ L02AB24
INY
BNE L02AB19
INC $0A
BRA L02AB19
L02AB24 REP #$20
TYA
CLC
ADC $08
STA $08
SEP #$20
LDY #$0000
L02AB31 LDA [$0C],Y
STA [$08],Y
BEQ L02AB40
INY
BNE L02AB31
INC $0A
INC $0E
BRA L02AB31
L02AB40 REP #$20
LDA $05
STA $0D
LDA $06
STA $0E
LDX $03
LDY $01
PLD
TSC
CLC
ADC #$000C
TCS
TYA
RTL
L02AB57 LDA $06,S
PHA
LDA $06,S
PHA
TSC
PHD
TCD
SEP #$20
LDY #$0000
L02AB65 LDA [$0C],Y
STA [$08],Y
BEQ L02AB74
INY
BNE L02AB65
INC $0A
INC $0E
BRA L02AB65
L02AB74 REP #$20
LDA $05
STA $0D
LDA $06
STA $0E
LDX $03
LDY $01
PLD
TSC
CLC
ADC #$000C
TCS
TYA
RTL
L02AB8B TSC
PHD
TCD
LDY #$0000
LDX #$0000
SEP #$20
L02AB96 LDA [$04],Y
BEQ L02ABA2
INY
BNE L02AB96
INX
INC $06
BRA L02AB96
L02ABA2 REP #$20
PLD
LDA $02,S
STA $06,S
PLA
STA $03,S
PLA
TYA
RTL
L02ABAF TSC
SEC
SBC #$0002
TCS
PHD
TCD
LDY #$0000
LDX $10
BMI L02ABEE
BNE L02ABC4
LDX $0E
BEQ L02ABEE
L02ABC4 LDX $0E
SEP #$20
L02ABC8 LDA [$06],Y
BEQ L02ABE2
CMP [$0A],Y
BNE L02ABF3
DEX
BNE L02ABD9
LDA $10
BEQ L02ABEE
DEC $10
L02ABD9 INY
BNE L02ABC8
INC $08
INC $0C
BRA L02ABC8
L02ABE2 LDX #$0000
LDA [$0A],Y
BEQ L02ABF8
L02ABE9 LDX #$FFFF
BRA L02ABF8
L02ABEE LDX #$0000
BRA L02ABF8
L02ABF3 BCC L02ABE9
LDX #$0001
L02ABF8 STX $01
REP #$20
LDY $01
LDA $04
STA $10
LDA $03
STA $0F
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L02AC0F TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDA $0A
STA $03
LDA $08
STA $01
SEP #$20
LDY #$0000
LDX $12
BMI L02AC4E
BNE L02AC2E
LDX $10
BEQ L02AC4E
L02AC2E LDX $10
L02AC30 LDA [$0C],Y
STA [$08],Y
BEQ L02AC4B
DEX
BNE L02AC3F
LDA $12
BEQ L02AC4E
DEC $12
L02AC3F INY
BNE L02AC30
INC $0A
INC $0E
BRA L02AC30
L02AC48 INY
STA [$08],Y
L02AC4B DEX
BNE L02AC48
L02AC4E REP #$20
LDX $03
LDY $01
LDA $06
STA $12
LDA $05
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L02AC65 PEA $0000
PEA $0000
PEA $0000
TSC
PHD
TCD
LDA $0E
ORA $10
BEQ L02AC82
LDA $0A
STA [$0E]
LDY #$0002
LDA $0C
STA [$0E],Y
L02AC82 LDA [$0A]
AND #$00FF
TAX
LDAL L02A50A,X
AND #$0020
BEQ L02AC99
INC $0A
BNE L02AC97
INC $0C
L02AC97 BRA L02AC82
L02AC99 LDA [$0A]
AND #$00FF
CMP #$002D
BNE L02ACA7
INC $01
BRA L02ACAC
L02ACA7 CMP #$002B
BNE L02ACB2
L02ACAC INC $0A
BNE L02ACB2
INC $0C
L02ACB2 LDA $0C
PHA
LDA $0A
PHA
LDA $12
PHA
LDA $10
PHA
LDA $0E
PHA
LDA $0C
PHA
LDA $0A
PHA
JSL L02AD14
STX $05
STA $03
TXY
BPL L02ACEA
LDA #$0002
STAL L02B10B
LDA $0E
ORA $10
BNE L02ACEA
LDA $01,S
STA [$0E]
LDY #$0002
LDA $03,S
STA [$0E],Y
L02ACEA PLA
PLA
LDA $01
BEQ L02ACFF
SEC
LDA #$0000
SBC $03
STA $03
LDA #$0000
SBC $05
STA $05
L02ACFF LDX $05
LDY $03
LDA $07
STA $11
LDA $08
STA $12
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L02AD14 PEA $0000
PEA $0000
PEA $0000
TSC
PHD
TCD
LDA $0E
ORA $10
BEQ L02AD31
LDA $0A
STA [$0E]
LDY #$0002
LDA $0C
STA [$0E],Y
L02AD31 LDA [$0A]
AND #$00FF
TAX
LDAL L02A50A,X
AND #$0020
BEQ L02AD48
INC $0A
BNE L02AD46
INC $0C
L02AD46 BRA L02AD31
L02AD48 LDA [$0A]
AND #$00FF
CMP #$002B
BNE L02AD58
INC $0A
BNE L02AD58
INC $0C
L02AD58 LDA $12
BNE L02AD7F
LDA #$000A
STA $12
LDA [$0A]
AND #$00FF
CMP #$0030
BNE L02AD7F
LDA #$0008
STA $12
LDY #$0001
LDA [$0A],Y
AND #$005F
CMP #$0058
BNE L02AD7F
ASL $12
L02AD7F LDA [$0A]
AND #$5F7F
CMP #$5830
BNE L02AD9C
CLC
LDA $0A
ADC #$0002
STA $0A
BCC L02AD95
INC $0C
L02AD95 LDA $12
CMP #$0010
BNE L02AE07
L02AD9C LDA [$0A]
AND #$00FF
CMP #$0030
BCC L02AE03
CMP #$003A
BCC L02ADBD
AND #$005F
CMP #$0041
BCC L02AE03
CMP #$005B
BCS L02AE03
SBC #$0036
BRA L02ADC0
L02ADBD AND #$000F
L02ADC0 CMP $12
BCS L02AE03
LDX #$0001
STX $01
PHA
PHA
PHA
PHA
PHA
LDA $05
PHA
LDA $03
PHA
PEA $0000
LDA $12
PHA
_LongMul
PLA
STA $03
PLA
STA $05
PLA
ORA $01,S
PLX
PLY
TAX
BNE L02AE07
CLC
TYA
ADC $03
STA $03
BCC L02ADFB
INC $05
BEQ L02AE07
L02ADFB INC $0A
BNE L02AE01
INC $0C
L02AE01 BRA L02AD9C
L02AE03 LDA $01
BNE L02AE10
L02AE07 LDA #$0002
STAL L02B10B
BRA L02AE21
L02AE10 LDA $0E
ORA $10
BEQ L02AE21
LDA $0A
STA [$0E]
LDY #$0002
LDA $0C
STA [$0E],Y
L02AE21 LDX $05
LDY $03
LDA $07
STA $11
LDA $08
STA $12
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L02AE36 LDAL L02B111
RTL
L02AE3B LDA $04,S
TAX
LDA $02,S
STA $04,S
PLA
STA $01,S
LDAL L02A50A,X
AND #$0004
BEQ L02AE53
TXA
AND #$005F
RTL
L02AE53 TXA
RTL
L02AE55 LDAL L02B10D
RTL
L02AE5A PHB
PHD
TSC
TCD
SEC
LDY #$0004
LDA [$07]
SBC [$07],Y
STAL L02AE91
CLC
ADC $01
STA $01
LDA [$07],Y
TAX
DEX
LDA [$07]
TAY
DEY
SEC
TSC
SBC [$07]
EOR #$FFFF
MVP $000000,$000000
CLC
TSC
ADCL L02AE91
TCS
PLD
PLX
PLY
PLA
PLA
PHY
PHX
PLB
RTL
L02AE91 BRK $00
L02AE93 PHA
JSR L02B032
PLA
JMPL L02C95C
L02AE9C PHB
PHK
PLB
PLX
PLY
PEA $0000
PEA $0000
PEA $0000
PHY
PHX
LDA L02C28D
PHA
LDA L02C28B
PHA
TSC
PHD
TCD
STZ L02B089
STZ L02B08B
JSL L02B08D
LDA $01
ORA $03
BNE L02AECA
BRL L02B027
L02AECA CLC
LDA $01
ADC #$0008
STA $01
BCC L02AED6
INC $03
L02AED6 LDX #$0000
TXY
SEP #$20
L02AEDC LDA [$01],Y
BEQ L02AF03
CMP #$20
BEQ L02AEEC
CMP #$22
BEQ L02AEEC
CMP #$09
BNE L02AEEF
L02AEEC INY
BRA L02AEDC
L02AEEF INX
L02AEF0 LDA [$01],Y
BEQ L02AF03
CMP #$20
BEQ L02AEDC
CMP #$22
BEQ L02AEDC
CMP #$09
BEQ L02AEDC
INY
BRA L02AEF0
L02AF03 REP #$20
TXA
INC
ASL
ASL
STA L02B030
PHY
SEC
ADC $01,S
PLY
PHA
PHA
PEA $0000
PHA
LDAL L02B10D
PHA
PEA $C008
PEA $0000
PEA $0000
_NewHandle
BCC L02AF58
L02AF2E BRA L02AF3E
L02AF30 STR 'Out of memory'
L02AF3E PEA ^L02AF30
PEA L02AF30-1
PEA $0000
PEA $0001
PEA $0001
JSL L02C8DC
LDA #$FFFF
JMPL L02C95C
L02AF58 PLA
STA $0B
PLA
STA $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STA L02B02C
STX L02B02E
CLC
ADC L02B030
BCC L02AF73
INX
L02AF73 STA $0B
STX $0D
SEP #$20
LDY #$0000
L02AF7C LDA [$01],Y
STA [$0B],Y
BEQ L02AF85
INY
BRA L02AF7C
L02AF85 REP #$20
LDA $0D
STA $03
LDA $0B
STA $01
LDA L02B02E
STA $0D
LDA L02B02C
STA $0B
L02AF99 LDA [$01]
AND #$00FF
BEQ L02B013
CMP #$0020
BEQ L02AFAA
CMP #$0009
BNE L02AFB2
L02AFAA INC $01
BNE L02AFB0
INC $03
L02AFB0 BRA L02AF99
L02AFB2 TAX
CMP #$0022
BNE L02AFBE
INC $01
BNE L02AFBE
INC $03
L02AFBE LDY #$0002
LDA $01
STA [$0B]
LDA $03
STA [$0B],Y
CLC
LDA $0B
ADC #$0004
STA $0B
BCC L02AFD5
INC $0D
L02AFD5 INC $09
CPX #$0022
BNE L02AFF0
L02AFDC LDA [$01]
AND #$00FF
BEQ L02B013
CMP #$0022
BEQ L02B009
INC $01
BNE L02AFEE
INC $03
L02AFEE BRA L02AFDC
L02AFF0 LDA [$01]
AND #$00FF
BEQ L02B013
CMP #$0020
BEQ L02B009
CMP #$0009
BEQ L02B009
INC $01
BNE L02B007
INC $03
L02B007 BRA L02AFF0
L02B009 SEP #$20
LDA #$00
STA [$01]
REP #$20
BRA L02AFAA
L02B013 LDA #$0000
STA [$0B]
LDY #$0002
STA [$0B],Y
LDA L02B02E
STA $0D
LDA L02B02C
STA $0B
L02B027 PLD
PLA
PLA
PLB
RTL
L02B02C DW $0000
L02B02E DW $0000
L02B030 DW $0000
L02B032 PHB
PHK
PLB
LDA L02B08B
PHA
LDA L02B089
PHA
PHD
TSC
TCD
L02B040 LDA $03
ORA $05
BEQ L02B06A
PEA >L02B05B
PEA L02B05B*$100
PHB
PLA
LDY #$0005
LDA [$03],Y
PHA
DEY
DEY
LDA [$03],Y
PHA
PHB
PLA
L02B05B RTL
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
STA $03
STX $05
BRA L02B040
L02B06A LDAL L02B6C6
ORAL L02B6C4
BEQ L02B084
LDAL L02B6C6
PHA
LDAL L02B6C4
PHA
JSL $000000
BRA L02B06A
L02B084 PLD
PLA
PLA
PLB
RTS
L02B089 DW $0000
L02B08B DW $0000
L02B08D LDX #$0018
L02B090 LDA L02B6E2,X
STA L02B6C8,X
LDA L02AAB5,X
STA L02AA9B,X
LDA L02AAF1,X
STA L02AAD7,X
DEX
DEX
BPL L02B090
LDA #L02B6C4
STA L02B6C0
LDA #^L02B6C4
STA L02B6C0+2
LDA #L02AA97
STA L02AA93
LDA #^L02AA97
STA L02AA93+2
LDA #L02AAD3
STA L02AACF
LDA #^L02AAD3
STA L02AACF+2
RTL
L02B0CB TSC
PHD
TCD
LDA $06
BPL L02B0ED
CMP #$FFFF
BNE L02B0E7
LDX $04
CPX #$FFDE
BCC L02B0E7
L02B0DE ASL $08
ROL $0A
INX
BNE L02B0DE
BRA L02B0FF
L02B0E7 STZ $08
STZ $0A
BRA L02B0FF
L02B0ED BNE L02B0E7
LDX $04
BEQ L02B0FF
CPX #$0021
BCS L02B0E7
L02B0F8 LSR $0A
ROR $08
DEX
BNE L02B0F8
L02B0FF LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02B10B DW $0000
L02B10D DW $0000
DW $0006
L02B111 DW $0000
L02B113 TAY
PEA $0000
PEA $0000
LDA $0A,S
PHA
LDA $0A,S
PHA
TSC
PHD
TCD
STY $0C
STX $0E
TYA
ORA $0E
BEQ L02B178
LDA $0E
ORA $03
BEQ L02B154
LDY #$0020
L02B135 ASL $01
ROL $03
ROL $05
ROL $07
SEC
LDA $05
SBC $0C
TAX
LDA $07
SBC $0E
BCC L02B14F
STX $05
STA $07
INC $01
L02B14F DEY
BNE L02B135
BRA L02B170
L02B154 LDA #$0000
LDY #$0010
L02B15A ASL $01
ROL
SEC
SBC $0C
BCS L02B169
ADC $0C
DEY
BNE L02B15A
BRA L02B16E
L02B169 INC $01
DEY
BNE L02B15A
L02B16E STA $05
L02B170 LDA $03
STA $0E
LDA $01
STA $0C
L02B178 PLD
TSC
CLC
ADC #$0008
TCS
RTL
L02B180 TSC
PHD
TCD
LDA #$0000
STA [$06]
LDX $06
TXY
INY
LDA $04
DEC
DEC
PHB
MVN $000000,$000000
PLB
LDA $02
STA $08
LDA $01
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
RTL
L02B1A5 PHB
PHK
PLB
PHD
TSC
TCD
L02B1AB STZ L02B356
L02B1AE LDA [$0E]
AND #$00FF
BEQ L02B1C7
CMP #$0025
BEQ L02B1D2
PHA
JSL L02B337
INC $0E
BNE L02B1C5
INC $10
L02B1C5 BRA L02B1AE
L02B1C7 LDA $0C
STA $10
LDA $0B
STA $0F
PLD
PLB
RTL
L02B1D2 INC $0E
BNE L02B1D8
INC $10
L02B1D8 STZ L02B34E
STZ L02B340
STZ L02B34A
STZ L02B34C
STZ L02B344
LDA #$0020
STA L02B348
STZ L02B346
STZ L02B350
STZ L02B33E
L02B1F6 JSR L02B25D
BCS L02B1F6
JSR L02B2A5
STA L02B340
LDA [$0E]
AND #$00FF
CMP #$002E
BNE L02B21F
INC $0E
BNE L02B211
INC $10
L02B211 INC L02B34C
JSR L02B2A5
STA L02B34A
LDA [$0E]
AND #$00FF
L02B21F CMP #$006C
BNE L02B229
INC L02B344
BRA L02B233
L02B229 CMP #$004C
BEQ L02B233
CMP #$0068
BNE L02B23E
L02B233 INC $0E
BNE L02B239
INC $10
L02B239 LDA [$0E]
AND #$00FF
L02B23E INC $0E
BNE L02B244
INC $10
L02B244 LDX #$0040
L02B247 CMP L02B2F3,X
BEQ L02B255
DEX
DEX
DEX
DEX
BPL L02B247
BRL L02B1AE
L02B255 PEA L02B1AB+2
INX
INX
JMP (L02B2F3,X)
L02B25D LDA [$0E]
AND #$00FF
CMP #$002D
BNE L02B26F
LDA #$0001
STA L02B346
BRA L02B29B
L02B26F CMP #$0030
BNE L02B279
STA L02B348
BRA L02B29B
L02B279 CMP #$002B
BEQ L02B28B
CMP #$0020
BNE L02B290
LDX L02B350
CPX #$002B
BEQ L02B29B
L02B28B STA L02B350
BRA L02B29B
L02B290 CMP #$0023
BNE L02B2A3
LDA #$0001
STA L02B33E
L02B29B INC $0E
BNE L02B2A1
INC $10
L02B2A1 SEC
RTS
L02B2A3 CLC
RTS
L02B2A5 STZ L02B2F1
LDA [$0E]
AND #$00FF
CMP #$002A
BNE L02B2C5
INC $0E
BNE L02B2B8
INC $10
L02B2B8 LDA [$07]
STA L02B2F1
INC $07
INC $07
L02B2C1 LDA L02B2F1
RTS
L02B2C5 LDA [$0E]
AND #$00FF
CMP #$0030
BCC L02B2C1
CMP #$003A
BCS L02B2C1
AND #$000F
PHA
ASL L02B2F1
LDA L02B2F1
ASL
ASL
ADC L02B2F1
ADC $01,S
PLX
STA L02B2F1
INC $0E
BNE L02B2EF
INC $10
L02B2EF BRA L02B2C5
L02B2F1 DA $0000
L02B2F3 DA $0025
DA L02B6FC
DA $006E
DA L02B99E
DA $0073
DA L02B79C
DA $0062
DA L02B7BD
DA $0070
DA L02B714
DA $0063
DA L02B81E
DA $0058
DA L02B71A
DA $0078
DA L02B70C
DA $006F
DA L02B9CD
DA $0075
DA L02B85F
DA $0064
DA L02B832
DA $0069
DA L02B832
DA $0066
DA L02BCBB
DA $0065
DA L02BCA8
DA $0045
DA L02BCAD
DA $0067
DA L02BE7E
DA $0047
DA L02BE83
L02B337 INC L02B356
L02B33A JMPL $000000
L02B33E DB $00
DB $00
L02B340 DB $00
DB $00
L02B342 DB $00
L02B343 DB $00
L02B344 DB $00
DB $00
L02B346 DB $00
DB $00
L02B348 DB $00
DB $00
L02B34A DB $00
DB $00
L02B34C DB $00
DB $00
L02B34E DB $00
DB $00
L02B350 DB $00
DB $00
L02B352 DB $00
L02B353 DB $00
L02B354 DB $00
L02B355 DB $00
L02B356 DB $00
DB $00
L02B358 DB $00
L02B359 DB $00
L02B35A DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02B3A9 DB $00
DB $00
L02B3AB DB $00
DB $00
L02B3AD DB $00
DB $00
L02B3AF DB $00
DB $00
L02B3B1 DB $00
DB $00
L02B3B3 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02B3CF DB $00
L02B3D0 DB $00
L02B3D1 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02B4D2 TSC
SEC
SBC #$0006
TCS
PHD
TCD
PHB
PHK
PLB
LDA $0C
PHA
LDA $0A
PHA
JSL L02BA5F
BCS L02B4F3
LDY #$001A
LDA [$0A],Y
AND #$0180
BEQ L02B4FB
L02B4F3 LDA #$FFFF
STA $01
BRL L02B684
L02B4FB LDY #$0018
LDA [$0A],Y
AND #$0080
BNE L02B517
LDA [$0A],Y
AND #$00FF
STA $01
LDA [$0A],Y
XBA
ORA #$FF00
STA [$0A],Y
BRL L02B684
L02B517 LDY #$001C
LDA [$0A],Y
BPL L02B552
CMP #$FFFF
BNE L02B541
JSL L02C0BB
TAX
BNE L02B53C
LDA #$0080
ORAL L02AAB1
STAL L02AAB1
JSL L02C0BB
LDA #$FFFF
L02B53C STA $01
BRL L02B684
L02B541 LDA $0C
PHA
LDA $0A
PHA
JSR L02BAA1
LDA #$FFFF
STA $01
BRL L02B684
L02B552 LDY #$001A
LDA [$0A],Y
BIT #$0008
BNE L02B563
BIT #$0010
BNE L02B541
BRA L02B571
L02B563 LDY #$0014
LDA [$0A],Y
INY
INY
ORA [$0A],Y
BEQ L02B571
BRL L02B632
L02B571 LDY #$001A
LDA [$0A],Y
BIT #$0002
BEQ L02B594
STZ L02B6B2+2
TDC
CLC
ADC #$0001
STA L02B6B2
LDA #$0001
STA L02B6B6
LDA #$0000
STA L02B6B6+2
BRA L02B5B2
L02B594 LDY #$0008
LDA [$0A],Y
STA L02B6B2
INY
INY
LDA [$0A],Y
STA L02B6B2+2
LDY #$0010
LDA [$0A],Y
STA L02B6B6
INY
INY
LDA [$0A],Y
STA L02B6B6+2
L02B5B2 LDY #$001C
LDA [$0A],Y
STA L02B6B0
JSL GSOS
DW $2012 ; Read
ADRL L02B6AE
BCC L02B5E2
LDY #$001A
CMP #$004C
BNE L02B5D3
LDA #$0080
BRA L02B5D6
L02B5D3 LDA #$0100
L02B5D6 ORA [$0A],Y
STA [$0A],Y
LDA #$FFFF
STA $01
BRL L02B684
L02B5E2 LDY #$001A
LDA [$0A],Y
AND #$0002
BEQ L02B5EF
BRL L02B684
L02B5EF CLC
LDY #$000C
LDA L02B6B2
ADC L02B6BA
STA [$0A],Y
INY
INY
LDA L02B6B2+2
ADC L02B6BA+2
STA [$0A],Y
LDY #$0008
LDA [$0A],Y
TAX
INY
INY
LDA [$0A],Y
LDY #$0006
STA [$0A],Y
DEY
DEY
TXA
STA [$0A],Y
LDY #$0014
LDA L02B6BA
STA [$0A],Y
INY
INY
LDA L02B6BA+2
STA [$0A],Y
LDY #$001A
LDA [$0A],Y
ORA #$0008
STA [$0A],Y
L02B632 LDY #$0004
LDA [$0A],Y
STA $03
CLC
ADC #$0001
STA [$0A],Y
INY
INY
LDA [$0A],Y
STA $05
ADC #$0000
STA [$0A],Y
LDA [$03]
AND #$00FF
STA $01
LDY #$0014
SEC
LDA [$0A],Y
SBC #$0001
STA [$0A],Y
BCS L02B665
INY
INY
LDA [$0A],Y
DEC
STA [$0A],Y
L02B665 LDY #$001A
LDA [$0A],Y
AND #$0020
BEQ L02B684
LDY #$0014
LDA [$0A],Y
INY
INY
ORA [$0A],Y
BNE L02B684
LDY #$001A
LDA [$0A],Y
EOR #$0008
STA [$0A],Y
L02B684 LDA $01
CMP #$000D
BNE L02B69A
LDY #$001A
LDA [$0A],Y
AND #$0200
BEQ L02B69A
LDA #$000A
STA $01
L02B69A PLB
LDY $01
LDA $08
STA $0C
LDA $07
STA $0B
PLD
TSC
CLC
ADC #$000A
TCS
TYA
RTL
L02B6AE DW $0004 ; Parms for Read
L02B6B0 DW $0000 ; ref num
L02B6B2 ADRL $00000000 ; buffer ptr
L02B6B6 ADRL $00000000 ; request count
L02B6BA ADRL $00000000 ; transfer count
DW $0001
L02B6C0 ADRL L02B6C4
L02B6C4 DB $00
DB $00
L02B6C6 DB $00
DB $00
L02B6C8 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $12
DB $02
DB $FD
DB $FF
L02B6E2 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $12
DB $02
DB $FD
DB $FF
L02B6FC DEC L02B340
JSR L02BA46
PEA $0025
JSL L02B337
BRL L02BA40
L02B70C LDA #$0020
STA L02B79A
BRA L02B71D
L02B714 LDA #$0001
STA L02B344
L02B71A STZ L02B79A
L02B71D STZ L02B350
LDA #$2020
STA L02B358
LDA #$0051
LDX #L02B358
LDY #L02B359
MVN L02B358,L02B359
STZ L02B354
LDA L02B344
BEQ L02B742
LDY #$0002
LDA [$07],Y
STA L02B354
L02B742 LDA [$07]
STA L02B352
STZ L02B342
SEP #$30
LDY #$52
L02B74E LDA #$00
LDX #$04
L02B752 LSR L02B355
ROR L02B354
ROR L02B353
ROR L02B352
ROR
DEX
BNE L02B752
LSR
LSR
LSR
LSR
ORA #$30
CMP #$3A
BCC L02B771
ADC #$06
ORA L02B79A
L02B771 STA L02B358,Y
DEY
LDA L02B355
ORA L02B354
ORA L02B353
ORA L02B352
BNE L02B74E
LDA L02B33E
BEQ L02B795
LDA #$58
ORA L02B79A
STA L02B343
LDA #$30
STA L02B342
L02B795 REP #$30
BRL L02B891
L02B79A DW $0000
L02B79C LDA $09
PHA
LDA $07
PHA
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $07
STX $09
SEP #$20
LDY #$FFFF
L02B7B3 INY
LDA [$07],Y
BNE L02B7B3
REP #$20
TYA
BRA L02B7DA
L02B7BD LDA $09
PHA
LDA $07
PHA
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $07
STX $09
LDA [$07]
AND #$00FF
INC $07
BNE L02B7DA
INC $09
L02B7DA LDX L02B34C
BEQ L02B7E7
CMP L02B34A
BCC L02B7E7
LDA L02B34A
L02B7E7 STA L02B352
SEC
LDA L02B340
SBC L02B352
STA L02B340
JSR L02BA46
LDX L02B352
BEQ L02B811
LDY #$0000
L02B7FF PHY
LDA [$07],Y
AND #$00FF
PHA
JSL L02B337
PLY
INY
DEC L02B352
BNE L02B7FF
L02B811 CLC
PLA
ADC #$0004
STA $07
PLA
STA $09
BRL L02BA40
L02B81E DEC L02B340
JSR L02BA46
LDA [$07]
PHA
JSL L02B337
INC $07
INC $07
BRL L02BA40
L02B832 LDA L02B344
BEQ L02B84F
LDY #$0002
LDA [$07],Y
BPL L02B85F
SEC
LDA #$0000
SBC [$07]
STA [$07]
LDA #$0000
SBC [$07],Y
STA [$07],Y
BRA L02B859
L02B84F LDA [$07]
BPL L02B85F
EOR #$FFFF
INC
STA [$07]
L02B859 LDA #$002D
STA L02B350
L02B85F STZ L02B342
LDA L02B344
BEQ L02B86D
LDY #$0002
LDA [$07],Y
PHA
L02B86D LDA [$07]
PHA
PEA ^L02B358
PEA L02B358
PEA $0053
PEA $0000
LDA L02B344
BEQ L02B88A
_Long2Dec
BRA L02B891
L02B88A _Int2Dec
L02B891 LDA L02B34C
BNE L02B89C
LDA #$0001
STA L02B34A
L02B89C LDX L02B34A
BNE L02B8B1
LDA L02B3A9
CMP #$3020
BNE L02B8D8
LDA #$2020
STA L02B3A9
BRA L02B8D8
L02B8B1 LDY #$0000
SEP #$20
LDA #$20
L02B8B8 CMP L02B358,Y
BNE L02B8C5
INY
CPY #$0053
BNE L02B8B8
BRA L02B8D6
L02B8C5 CMP L02B358,Y
BEQ L02B8D3
DEX
BEQ L02B8D3
INY
CPY #$0053
BNE L02B8C5
L02B8D3 STX L02B34A
L02B8D6 REP #$20
L02B8D8 SEC
LDA L02B340
SBC L02B34A
STA L02B340
LDA L02B350
BEQ L02B8EA
DEC L02B340
L02B8EA LDA L02B342
BEQ L02B8F5
DEC L02B340
DEC L02B340
L02B8F5 LDX #$0000
LDY #$0052
SEP #$20
LDA #$20
L02B8FF CMP L02B358,Y
BEQ L02B908
INX
DEY
BPL L02B8FF
L02B908 REP #$20
SEC
TXA
SBC L02B340
EOR #$FFFF
INC
STA L02B340
LDA L02B348
CMP #$0030
BEQ L02B921
JSR L02BA46
L02B921 LDA L02B350
BEQ L02B92B
PHA
JSL L02B337
L02B92B LDA L02B342
BEQ L02B93D
PHA
JSL L02B337
LDA L02B343
PHA
JSL L02B337
L02B93D LDA L02B348
CMP #$0030
BNE L02B959
LDA L02B340
BMI L02B959
BEQ L02B959
L02B94C LDA L02B348
PHA
JSL L02B337
DEC L02B340
BNE L02B94C
L02B959 LDA L02B34A
BEQ L02B96A
L02B95E PEA $0030
JSL L02B337
DEC L02B34A
BNE L02B95E
L02B96A LDY #$FFFF
L02B96D INY
LDA L02B358,Y
AND #$00FF
CMP #$0020
BEQ L02B96D
L02B979 CPY #$0053
BEQ L02B98E
PHY
LDA L02B358,Y
AND #$00FF
PHA
JSL L02B337
PLY
INY
BRA L02B979
L02B98E LDA L02B344
BEQ L02B997
INC $07
INC $07
L02B997 INC $07
INC $07
BRL L02BA40
L02B99E LDA $09
PHA
LDA $07
PHA
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $07
STX $09
LDA L02B356
STA [$07]
LDA L02B344
BEQ L02B9C2
LDY #$0002
LDA #$0000
STA [$07],Y
L02B9C2 CLC
PLA
ADC #$0004
STA $07
PLA
STA $09
RTS
L02B9CD STZ L02B350
LDA #$2020
STA L02B358
LDA #$0051
LDX #L02B358
LDY #L02B359
MVN L02B358,L02B359
STZ L02B354
LDA L02B344
BEQ L02B9F2
LDY #$0002
LDA [$07],Y
STA L02B354
L02B9F2 LDA [$07]
STA L02B352
SEP #$30
LDY #$52
L02B9FB LDA L02B355
ORA L02B354
ORA L02B353
ORA L02B352
BEQ L02BA2A
LDA #$00
LDX #$03
L02BA0D LSR L02B355
ROR L02B354
ROR L02B353
ROR L02B352
ROR
DEX
BNE L02BA0D
LSR
LSR
LSR
LSR
LSR
ORA #$30
STA L02B358,Y
DEY
BRA L02B9FB
L02BA2A CPY #$52
BEQ L02BA33
LDA L02B33E
BEQ L02BA38
L02BA33 LDA #$30
STA L02B358,Y
L02BA38 REP #$30
STZ L02B342
BRL L02B891
L02BA40 LDA L02B346
BNE L02BA4B
L02BA45 RTS
L02BA46 LDA L02B346
BNE L02BA45
L02BA4B LDA L02B340
BMI L02BA45
BEQ L02BA45
L02BA52 PEA $0020
JSL L02B337
DEC L02B340
BNE L02BA52
RTS
L02BA5F PHB
PHK
PLB
PEA ^L02AA97
PEA L02AA97
TSC
PHD
TCD
L02BA6B LDA $01
ORA $03
BEQ L02BA8B
LDA $01
CMP $09
BNE L02BA7D
LDA $03
CMP $0B
BEQ L02BA95
L02BA7D LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
BRA L02BA6B
L02BA8B LDA #$0005
STAL L02B10B
SEC
BRA L02BA96
L02BA95 CLC
L02BA96 PLD
PLA
PLA
PLX
PLY
PLA
PLA
PHY
PHX
PLB
RTL
L02BAA1 TSC
PHD
TCD
LDY #$001A
LDA [$03],Y
ORA #$0100
STA [$03],Y
LDA #$0005
STAL L02B10B
PLD
PLA
PLY
PLY
PHA
RTS
L02BABB PHB
PLX
PLY
PHK
PLB
PLA
STA L02C05B
PLA
STA L02C05D
PLA
STA L02C05F
PLA
STA L02C061
PLA
STA L02C063
PHY
PHX
PEA ^L02C05B
PEA L02C05B
PEA $0000
_SANEElems816
PEA $0003
_SANEFP816
TXA
AND #$0100
BEQ L02BAFD
LDA #$0001
STAL L02B10B
L02BAFD LDX #^L02C05B
LDA #L02C05B
PLB
RTL
L02BB05 TSC
PEA $0000
CLC
ADC #$0004
PHA
PEA $0000
ADC #$000A
PHA
PEA $0000
_SANEFP816
LDA $00,S
STA $0A,S
LDA $02,S
STA $0C,S
TSC
CLC
ADC #$000A
TCS
RTL
L02BB2E PHB
PLX
PLY
PHA
PHA
PHA
PHA
PHA
PHY
PHX
PLB
PHA
TSC
INC
PEA $0000
PHA
PEA $0000
CLC
ADC #$0005
PHA
PEA $040E
_SANEFP816
PLA
RTL
L02BB54 PHB
PHK
PLB
STA L02BB81
STX L02BB83
PLX
PLY
PHA
PHA
PHA
PHA
PHA
PHY
PHX
PLB
PEA ^L02BB81
PEA L02BB81
PEA $0000
CLC
TSC
ADC #$000A
PHA
PEA $030E
_SANEFP816
RTL
L02BB81 DW $0000
L02BB83 DW $0000
L02BB85 TSC
CLC
ADC #$0004
PEA $0000
PHA
PEA $0000
PHA
PEA $0000
PHA
PEA $0016
_SANEFP816
PEA $0410
_SANEFP816
PHB
PLA
STA $09,S
PLA
STA $09,S
PLA
PLX
PLX
PLB
TAX
RTL
L02BBB7 TSC
CLC
ADC #$0004
PEA $0000
PHA
PEA $0000
PHA
PEA $0000
PHA
PEA $0016
_SANEFP816
PEA $0310
_SANEFP816
PHB
PLA
STA $09,S
PLA
STA $09,S
PLA
PLX
PLY
PLB
TAY
BNE L02BBEB
TXY
L02BBEB RTL
L02BBEC TSC
CLC
ADC #$0004
PEA $0000
PHA
PEA $0000
PHA
PEA $0000
PHA
PEA $0016
_SANEFP816
PEA $0310
_SANEFP816
PHB
PLA
STA $09,S
PLA
STA $09,S
PLA
PLX
PLX
PLB
TAX
RTL
L02BC1E TSC
PHD
TCD
PEA $0000
CLC
TDC
ADC #$0008
PHA
LDA $06
PHA
LDA $04
PHA
PEA $0110
_SANEFP816
LDA $02
STA $06
LDA $01
STA $05
PLD
TSC
CLC
ADC #$0004
TCS
RTL
L02BC4A TSC
PEA $0000
CLC
ADC #$0004
PHA
PEA $0000
ADC #$000A
PHA
PEA $0006
_SANEFP816
LDA $00,S
STA $0A,S
LDA $02,S
STA $0C,S
TSC
CLC
ADC #$000A
TCS
RTL
L02BC73 PHB
PHK
PLB
STZ L02BC9B+2
STA L02BC9B+1
TXA
XBA
ORA L02BC9B+2
STA L02BC9B+2
PLX
PLY
TSC
SEC
SBC #$000A
TCS
PHY
PHX
PLB
CLC
TSC
ADC #$0004
STAL L02BC9F+1
LDX #$0008
L02BC9B LDAL $000000,X
L02BC9F STAL $000000,X
DEX
DEX
BPL L02BC9B
RTL
L02BCA8 STZ L02BE7C
BRA L02BCB3
L02BCAD LDA #$0001
STA L02BE7C
L02BCB3 STZ L02B3AB
INC L02B34A
BRA L02BCC4
L02BCBB LDA #$0001
STA L02B3AB
STZ L02BE7C
L02BCC4 LDY #$0008
LDA [$07],Y
BPL L02BCD6
EOR #$8000
STA [$07],Y
LDA #$002D
STA L02B350
L02BCD6 LDA L02B34C
BNE L02BCE4
LDA #$0007
SEC
SBC L02B3AB
BRA L02BCE7
L02BCE4 LDA L02B34A
L02BCE7 STA L02B3AD
PEA ^L02B3AB
PEA L02B3AB
LDA $09
PHA
LDA $07
PHA
PEA ^L02B3AF
PEA L02B3AF
PEA $000B
_SANEFP816
PEA ^L02B3AB
PEA L02B3AB
PEA ^L02B3AF
PEA L02B3AF
PEA ^L02B358
PEA L02B358
PEA $0001
_SANEDecStr816
LDA L02B3AB
BNE L02BD41
SEP #$30
LDX L02B358
LDA L02B356,X
CMP #$65
BNE L02BD41
INC L02B358
LDA L02B358,X
STA L02B359,X
LDA #$30
STA L02B358,X
L02BD41 REP #$30
LDA L02B34E
BEQ L02BD4D
L02BD48 JSR L02BE30
BCS L02BD48
L02BD4D LDA L02BE7C
BEQ L02BD68
SEP #$30
LDX L02B358
L02BD57 LDA L02B358,X
CMP #$65
BEQ L02BD61
DEX
BNE L02BD57
L02BD61 LDA #$45
STA L02B358,X
REP #$30
L02BD68 LDA L02B359
AND #$00FF
CMP #$0020
BNE L02BD82
DEC L02B358
LDA #$0050
LDX #L02B35A
LDY #L02B359
MVN L02B35A,L02B359
L02BD82 LDA L02B3AD
BNE L02BDBD
LDA L02B33E
BEQ L02BDBD
SEP #$30
INC L02B358
LDX #$01
L02BD93 LDA L02B358,X
CMP #$30
BCC L02BDA4
CMP #$3A
BCS L02BDA4
INX
CPX L02B358
BNE L02BD93
L02BDA4 LDY L02B358,X
LDA #$2E
STA L02B358,X
L02BDAC CPX L02B358
BEQ L02BDBB
INX
TYA
LDY L02B358,X
STA L02B358,X
BRA L02BDAC
L02BDBB REP #$30
L02BDBD LDA L02B350
BEQ L02BDC5
DEC L02B340
L02BDC5 LDA L02B358
AND #$00FF
SEC
SBC L02B340
EOR #$FFFF
INC
STA L02B340
LDA L02B348
CMP #$0030
BEQ L02BDE1
JSR L02BA46
L02BDE1 LDA L02B350
BEQ L02BDEB
PHA
JSL L02B337
L02BDEB LDA L02B348
CMP #$0030
BNE L02BE06
LDA L02B340
BEQ L02BE06
BMI L02BE06
L02BDFA PEA $0030
JSL L02B337
DEC L02B340
BNE L02BDFA
L02BE06 LDA L02B358
AND #$00FF
TAY
BEQ L02BE25
LDX #$0001
L02BE12 LDA L02B358,X
PHX
PHY
AND #$00FF
PHA
JSL L02B337
PLY
PLX
INX
DEY
BNE L02BE12
L02BE25 CLC
LDA $07
ADC #$000A
STA $07
BRL L02BA40
L02BE30 SEP #$30
LDX #$00
L02BE34 LDA L02B359,X
CMP #$2E
BEQ L02BE43
INX
CPX L02B358
BNE L02BE34
BRA L02BE66
L02BE43 CPX L02B358
BEQ L02BE52
LDA L02B359,X
CMP #$65
BEQ L02BE52
INX
BRA L02BE43
L02BE52 LDA L02B358,X
CMP #$30
BNE L02BE5F
JSR L02BE6A
SEC
BRA L02BE67
L02BE5F CMP #$2E
BNE L02BE66
JSR L02BE6A
L02BE66 CLC
L02BE67 REP #$30
RTS
L02BE6A CPX L02B358
BEQ L02BE78
LDA L02B359,X
STA L02B358,X
INX
BRA L02BE6A
L02BE78 DEC L02B358
RTS
L02BE7C DW $0000
L02BE7E STZ L02BF01
BRA L02BE89
L02BE83 LDA #$0001
STA L02BF01
L02BE89 LDA L02B34C
BNE L02BE97
LDA #$0006
STA L02B34A
INC L02B34C
L02BE97 LDA L02B34A
STA L02B3AD
PEA ^L02B3AB
PEA L02B3AB
LDA $09
PHA
LDA $07
PHA
PEA ^L02B3AF
PEA L02B3AF
PEA $000B
_SANEFP816
LDA L02B33E
EOR #$0001
STA L02B34E
LDA #$0001
STA L02B33E
LDA L02B3B3
AND #$00FF
CLC
ADC L02B3B1
DEC
STA L02BF03
BPL L02BEDD
CMP #$FFFD
BCS L02BEF7
L02BEDD CMP L02B34A
BCC L02BEF7
BEQ L02BEF7
DEC L02B34A
BPL L02BEEC
STZ L02B34A
L02BEEC LDA L02BF01
BNE L02BEF4
BRL L02BCA8
L02BEF4 BRL L02BCAD
L02BEF7 SEC
LDA L02B34A
SBC L02BF03
BRL L02BCBB
L02BF01 DW $0000
L02BF03 DW $0000
L02BF05 TSC
PEA $0000
CLC
ADC #$000E
PHA
PEA $0000
SEC
SBC #$000A
PHA
PEA $000A
_SANEFP816
LDA $00,S
STA $14,S
LDA $02,S
STA $16,S
TSC
CLC
ADC #$0014
TCS
TXA
AND #$0040
BEQ L02BF37
LDA #$0001
L02BF37 RTL
L02BF38 TSC
SEC
SBC #$000E
TCS
LDA $12,S
STA $05,S
LDA $14,S
STA $07,S
LDA $10,S
STA $0A,S
LDA $0E,S
STA $08,S
CLC
TSC
ADC #$000C
STA $01,S
LDA #$0000
STA $03,S
PEA $010E
_SANEFP816
RTL
L02BF65 TSC
PEA $0000
CLC
ADC #$0004
PHA
PEA $0000
ADC #$000A
PHA
PEA $0004
_SANEFP816
LDA $00,S
STA $0A,S
LDA $02,S
STA $0C,S
TSC
CLC
ADC #$000A
TCS
RTL
L02BF8E TDC
TAX
TSC
SEC
SBC #$FFFF
TCD
DEC
TCS
PHX
PEA $0000
CLC
TDC
ADC #$0007
PHA
LDA $05
PHA
LDA $03
PHA
PEA $0110
_SANEFP816
LDA $01
STA $0F
LDA $00
STA $0E
CLC
TDC
ADC #$000D
PLD
TCS
RTL
L02BFC2 TDC
TAX
TSC
SEC
SBC #$FFFF
TCD
DEC
TCS
PHX
PEA $0000
CLC
TDC
ADC #$0007
PHA
LDA $05
PHA
LDA $03
PHA
PEA $0210
_SANEFP816
LDA $01
STA $0F
LDA $00
STA $0E
CLC
TDC
ADC #$000D
PLD
TCS
RTL
L02BFF6 TSC
PEA $0000
CLC
ADC #$0004
PHA
PEA $0000
ADC #$000A
PHA
PEA $0002
_SANEFP816
LDA $00,S
STA $0A,S
LDA $02,S
STA $0C,S
TSC
CLC
ADC #$000A
TCS
RTL
DB $35
DB $C2
DB $68
DB $21
DB $A2
DB $DA
DB $0F
DB $C9
DB $00
DB $40
DB $35
DB $C2
DB $68
DB $21
DB $A2
DB $DA
DB $0F
DB $C9
DB $FF
DB $3F
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $FD
DB $3F
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $FE
DB $3F
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $FF
DB $3F
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $00
DB $40
L02C05B DB $00
DB $00
L02C05D DB $00
DB $00
L02C05F DB $00
DB $00
L02C061 DB $00
DB $00
L02C063 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02C07B JMP L02C07E
L02C07E TSC
PHD
TCD
LDA $04
STAL L02C0B9
LDAL L02C576
STAL L02C0AB
JSL GSOS
DW $2013 ; Write
ADRL L02C0A9
LDA $02
STA $04
LDA $01
STA $03
PLD
TSC
CLC
ADC #$0002
TCS
RTL
L02C0A9 DW $0004 ; Parms for Write
L02C0AB DW $0000 ; ref num
ADRL L02C0B9 ; buffer ptr
ADRL $00000001 ; request count
ADRL $00000000 ; transfer count
L02C0B9 BRK $00
L02C0BB PHB
PHK
PLB
L02C0BE LDA L02C572
BEQ L02C0C8
STZ L02C572
PLB
RTL
L02C0C8 LDX L02C56E
CPX L02C570
BCS L02C0DD
LDA L02C46E,X
AND #$00FF
BEQ L02C0DB
INC L02C56E
L02C0DB PLB
RTL
L02C0DD JSL L02C0E3
BRA L02C0BE
L02C0E3 JMP L02C0E6
L02C0E6 PHB
PHK
PLB
LDA L02C580
BEQ L02C0F3
JSR L02C111
PLB
RTL
L02C0F3 LDA L02C574
STA L02C1CD
STZ L02C56E
LDA #$0001
STA L02C570
STZ L02C46E
JSL GSOS
DW $2012 ; Read
ADRL L02C1CB
PLB
RTL
L02C111 LDA L02C580
STA L02C178
STA L02C194
STA L02C1AA
STA L02C1DD
JSL GSOS
DW $202E ; DControl
ADRL L02C176
JSL GSOS
DW $202E ; DControl
ADRL L02C1DB
JSL GSOS
DW $202F ; DRead
ADRL L02C192
JSL GSOS
DW $202D ; DStatus
ADRL L02C1A8
LDX L02C1A4
INX
STX L02C570
SEP #$20
LDA L02C1BA+8
CMP #$2E
BNE L02C15C
LDA #$00
BRA L02C16D
L02C15C CMP #$0D
BNE L02C16D
REP #$20
PEA $000D
JSL L02C07B
SEP #$20
LDA #$0D
L02C16D STA L02C46D,X
REP #$20
STZ L02C56E
RTS
L02C176 DW $0005 ; Parms for DControl
L02C178 DW $0000 ; device num
DW $8001 ; control code
ADRL L02C188 ; control list
ADRL $0000000A ; request count
ADRL $00000000 ; transfer count
L02C188 HEX 7F82030000022E800D00
L02C192 DW $0006 ; Parms for DRead
L02C194 DW $0000 ; device num
ADRL L02C46E ; buffer ptr
ADRL $000000FF ; request count
ADRL $00000000 ; starting block
DW $0000 ; block size
L02C1A4 ADRL $00000000 ; transfer count
L02C1A8 DW $0005 ; Parms for DStatus
L02C1AA DW $0000 ; device num
DW $8001 ; status code
ADRL L02C1BA ; status list
ADRL $00000011 ; request count
ADRL $00000000 ; transfer count
L02C1BA HEX 00000000000000000000000000000000
HEX 00
L02C1CB DW $0004 ; Parms for Read
L02C1CD DW $0000 ; ref num
ADRL L02C46E ; buffer ptr
ADRL $00000001 ; request count
ADRL $00000000 ; transfer count
L02C1DB DW $0005 ; Parms for DControl
L02C1DD DW $0000 ; device num
DW $8003 ; control code
ADRL L02C1ED ; control list
ADRL $00000002 ; request count
ADRL $00000000 ; transfer count
L02C1ED HEX 0000
L02C1EF TSC
PHD
TCD
LDY $04
LDX $06
SEC
TYA
SBC #$0002
STA $04
BCS L02C201
DEC $06
L02C201 LDA [$04]
BNE L02C20C
TYA
JSL L02C3D0
BRA L02C211
L02C20C TYA
JSL L02C2E3
L02C211 LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02C21D LDA $06,S
TAX
LDA $04,S
CPX #$0000
BNE L02C237
CMP #$0FFC
BCS L02C237
CMP #$0000
BEQ L02C23B
JSL L02C65E
BRA L02C23B
L02C237 JSL L02C775
L02C23B TAY
LDA $00,S
STA $04,S
LDA $02,S
STA $06,S
PLA
PLA
TYA
RTL
L02C248 TSC
PHD
TCD
LDA $06
BPL L02C26A
CMP #$FFFF
BNE L02C264
LDX $04
CPX #$FFDE
BCC L02C264
L02C25B ASL $08
ROL $0A
INX
BNE L02C25B
BRA L02C27F
L02C264 STZ $08
STZ $0A
BRA L02C27F
L02C26A BNE L02C264
LDX $04
BEQ L02C27F
CPX #$0021
BCS L02C264
L02C275 LDA $0A
ASL
ROR $0A
ROR $08
DEX
BNE L02C275
L02C27F LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02C28B DB $00
DB $00
L02C28D DB $00
DB $00
L02C28F DB $00
DB $00
L02C291 DB $00
DB $00
ADRL L02C297
L02C297 DB $00
DB $00
ADRL L02C29D
L02C29D DB $00
DB $00
L02C29F DB $00
DB $00
ADRL L02C2A5
L02C2A5 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02C2B1 DB $00
DB $00
L02C2B3 DB $00
DB $00
L02C2B5 DB $00
DB $00
L02C2B7 DB $00
DB $00
L02C2B9 DB $00
DB $00
DB $00
DB $00
L02C2BD DB $00
DB $00
L02C2BF DB $00
DB $00
L02C2C1 DB $00
L02C2C2 DB $00
L02C2C3 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02C2E3 PHA
PHA
PHA
SEC
SBC #$0004
BCS L02C2ED
DEX
L02C2ED PHX
PHA
TSC
PHD
TCD
LDA [$01]
BPL L02C2F9
BRL L02C3C8
L02C2F9 LDA [$01]
ORA #$8000
STA [$01]
LDY #$0002
LDA [$01],Y
STA $09
TAY
LDA $01
LDX $03
JSL L02C582
L02C310 LDA $09
CMP #$1000
BCC L02C31A
BRL L02C3B6
L02C31A LDA [$01]
AND $09
BEQ L02C371
SEC
LDA $01
SBC $09
STA $05
LDA $03
SBC #$0000
STA $07
LDY #$0002
LDA [$05],Y
CMP $09
BEQ L02C33A
BRL L02C3C8
L02C33A LDA [$05]
BMI L02C341
BRL L02C3C8
L02C341 LDY $09
LDX $03
LDA $01
JSL L02C97C
LDY $09
LDX $07
LDA $05
JSL L02C97C
LDA $05
STA $01
LDA $07
STA $03
ASL $09
LDA $09
LDY #$0002
STA [$01],Y
TAY
LDA $01
LDX $03
JSL L02C582
BRA L02C310
L02C371 CLC
LDA $01
ADC $09
STA $05
LDA $03
ADC #$0000
STA $07
LDY #$0002
LDA [$05],Y
CMP $09
BNE L02C3C8
LDA [$05]
BPL L02C3C8
LDY $09
LDX $03
LDA $01
JSL L02C97C
LDY $09
LDX $07
LDA $05
JSL L02C97C
ASL $09
LDY #$0002
LDA $09
STA [$01],Y
LDY $09
LDA $01
LDX $03
JSL L02C582
BRL L02C310
L02C3B6 LDY $09
LDA $01
LDX $03
JSL L02C97C
LDA $01
LDX $03
JSL L02C3D0
L02C3C8 PLD
TSC
CLC
ADC #$000A
TCS
RTL
L02C3D0 PHA
PHA
SEC
SBC #$000E
BCS L02C3D9
DEX
L02C3D9 PHX
PHA
TSC
PHD
TCD
LDY #$0002
LDA [$01],Y
ORA [$01]
BNE L02C3FA
LDY #$0004
LDA [$01],Y
STAL L02CBBC
INY
INY
LDA [$01],Y
STAL L02CBBE
BRA L02C40F
L02C3FA LDA [$01]
STA $05
LDA [$01],Y
STA $07
LDY #$0004
LDA [$01],Y
STA [$05],Y
INY
INY
LDA [$01],Y
STA [$05],Y
L02C40F LDY #$0004
LDA [$01],Y
TAX
INY
INY
ORA [$01],Y
BEQ L02C42C
LDA [$01],Y
STA $07
STX $05
LDY #$0002
LDA [$01]
STA [$05]
LDA [$01],Y
STA [$05],Y
L02C42C LDY #$000A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
_DisposeHandle
PLD
PLA
PLA
PLA
PLA
RTL
L02C444 LDX #$0000
LDA $0A,S
EOR $06,S
BPL L02C453
LDA $06,S
CMP $0A,S
BRA L02C45D
L02C453 LDA $0A,S
CMP $06,S
BNE L02C45D
LDA $08,S
CMP $04,S
L02C45D BCC L02C462
BEQ L02C462
INX
L02C462 PHB
PLA
STA $07,S
PLA
STA $07,S
PLA
PLA
PLB
TXA
L02C46D RTL
L02C46E DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02C566 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02C56E DB $00
DB $00
L02C570 DB $00
DB $00
L02C572 DB $00
DB $00
L02C574 DB $00
DB $00
L02C576 DB $00
DB $00
L02C578 DB $00
DB $00
L02C57A DB $00
DB $00
L02C57C DB $00
DB $00
L02C57E DB $00
DB $00
L02C580 DB $00
DB $00
L02C582 PHX
PHA
TSC
PHD
TCD
TYA
JSL L02D03D
LDY #$0004
LDAL L02CBC0,X
STA [$01],Y
INY
INY
LDAL L02CBC2,X
STA [$01],Y
LDA $01
STAL L02CBC0,X
LDA $03
STAL L02CBC2,X
PLD
PLA
PLA
RTL
L02C5AD TSC
SEC
SBC #$000C
TCS
PHD
TCD
JSL L02CA3A
LDA $07
BEQ L02C5E4
LDY #$0020
JSR L02C5C6
BRL L02C615
L02C5C6 LDA $05
LSR
BCC L02C5D8
CLC
LDA $09
ADC $10
STA $09
LDA $0B
ADC $12
STA $0B
L02C5D8 ROR $0B
ROR $09
ROR $07
ROR $05
DEY
BNE L02C5C6
RTS
L02C5E4 ORA $12
BEQ L02C5FF
LDY #$0010
JSR L02C5C6
LDA $07
STA $05
LDA $09
STA $07
LDA $0B
STA $09
STZ $0B
BRL L02C615
L02C5FF LDY #$0010
LDX $05
STX $07
L02C606 LSR $07
BCC L02C60D
CLC
ADC $10
L02C60D ROR
ROR $05
DEY
BNE L02C606
STA $07
L02C615 LDA $07
AND #$8000
ORA $09
ORA $0B
BEQ L02C632
LDA $0E
STA $12
LDA $0C
STA $10
PLD
TSC
CLC
ADC #$0010
TCS
SEP #$40
RTL
L02C632 LDA $01
BEQ L02C645
SEC
LDA #$0000
SBC $05
STA $05
LDA #$0000
SBC $07
STA $07
L02C645 CLV
LDA $07
STA $16
LDA $05
STA $14
LDA $0E
STA $12
LDA $0C
STA $10
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02C65E PHA
CLC
ADC #$0004
PHA
TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDA #$0008
L02C66F CMP $0B
BCS L02C676
ASL
BRA L02C66F
L02C676 STA $0D
JSL L02D03D
STX $09
STX $0B
L02C680 LDX $0B
LDAL L02CBC0,X
ORAL L02CBC2,X
BNE L02C6DB
CPX #$0024
BCC L02C6CF
LDA #$1000
LDX #$0000
JSL L02C775
STA $01
STAL L02CBE4
STX $03
TXA
STAL L02CBE6
ORA $01
BNE L02C6AF
BRL L02C75A
L02C6AF LDA #$8000
STA [$01]
LDY #$0002
LDA #$1000
STA [$01],Y
INY
INY
LDA #$0000
STA [$01],Y
INY
INY
STA [$01],Y
LDA $0B
CMP $09
BEQ L02C73B
BRA L02C730
L02C6CF CLC
LDA $0B
ADC #$0004
STA $0B
ASL $0D
BRA L02C730
L02C6DB LDX $0B
CPX $09
BCC L02C728
BEQ L02C728
LDAL L02CBC2,X
STA $03
LDAL L02CBC0,X
STA $01
LDY $0D
LDX $03
JSL L02C97C
LSR $0D
CLC
LDA $01
ADC $0D
STA $05
LDA $03
ADC #$0000
STA $07
LDY #$0002
LDA $0D
STA [$05],Y
STA [$01],Y
ORA [$01]
STA [$05]
LDY $0D
LDA $01
LDX $03
JSL L02C582
LDY $0D
LDA $05
LDX $07
JSL L02C582
L02C728 SEC
LDA $0B
SBC #$0004
STA $0B
L02C730 LDA $0B
BMI L02C73B
CMP $09
BCC L02C73B
BRL L02C680
L02C73B LDX $09
LDAL L02CBC0,X
STA $01
LDAL L02CBC2,X
STA $03
LDY $0D
LDX $03
LDA $01
JSL L02C97C
LDA [$01]
AND #$7FFF
STA [$01]
L02C75A LDA $01
LDX $03
ORA $03
BEQ L02C76B
LDA $01
CLC
ADC #$0004
BCC L02C76B
INX
L02C76B TAY
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L02C775 CLC
ADC #$000E
BCC L02C77C
INX
L02C77C STAL L02C84C
TXA
STAL L02C84E
LDA #$0008
STAL L02C84A
L02C78C PHA
PHA
LDAL L02C84E
PHA
LDAL L02C84C
PHA
LDAL L02B10D
PHA
LDAL L02C84E
BNE L02C7A8
LDA #$4010
BRA L02C7AB
L02C7A8 LDA #$4000
L02C7AB ORAL L02C84A
PHA
PEA $0000
PEA $0000
_NewHandle
BCC L02C7D8
PLA
PLA
LDAL L02C84A
AND #$0008
BEQ L02C7D3
LDA #$0000
STAL L02C84A
BRA L02C78C
L02C7D3 LDA #$0000
TAX
RTL
L02C7D8 PHA
PHA
TSC
PHD
TCD
LDY #$0002
LDA [$05]
STA $01
LDA [$05],Y
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
LDAL L02CBBC
INY
INY
STA [$01],Y
LDAL L02CBBE
INY
INY
STA [$01],Y
INY
INY
LDA $05
STA [$01],Y
INY
INY
LDA $07
STA [$01],Y
INY
INY
LDA #$0000
STA [$01],Y
LDAL L02CBBC
STA $05
LDAL L02CBBE
STA $07
ORA $05
BEQ L02C82D
LDY #$0002
LDA $01
STA [$05]
LDA $03
STA [$05],Y
L02C82D LDA $01
STAL L02CBBC
LDA $03
STAL L02CBBE
CLC
LDA $01
ADC #$000E
LDX $03
BCC L02C844
INX
L02C844 PLD
PLY
PLY
PLY
PLY
RTL
L02C84A BRK $00
L02C84C BRK $00
L02C84E BRK $00
L02C850 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA $10
ORA $12
BNE L02C868
PEA $0009
JSL L02CD3D
BRL L02C8C3
L02C868 JSL L02CA3A
LDA $16
ORA $12
BEQ L02C894
LDY #$0020
L02C875 ASL $05
ROL $07
ROL $09
ROL $0B
SEC
LDA $09
SBC $10
TAX
LDA $0B
SBC $12
BCC L02C88F
STX $09
STA $0B
INC $05
L02C88F DEY
BNE L02C875
BEQ L02C8B0
L02C894 LDA #$0000
LDY #$0010
L02C89A ASL $05
ROL
SEC
SBC $10
BCS L02C8A9
ADC $10
DEY
BNE L02C89A
BEQ L02C8AE
L02C8A9 INC $05
DEY
BNE L02C89A
L02C8AE STA $09
L02C8B0 LDA $01
BEQ L02C8C3
SEC
LDA #$0000
SBC $05
STA $05
LDA #$0000
SBC $07
STA $07
L02C8C3 LDA $05
STA $14
LDA $07
STA $16
LDA $0C
STA $10
LDA $0E
STA $12
CLV
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02C8DC TSC
PHD
TCD
INC $0A
BNE L02C8E5
INC $0C
L02C8E5 LDA [$0A]
AND #$00FF
SEC
SBC $08
BPL L02C8F9
EOR #$FFFF
INC
LDY $04
JSL L02D1B2
L02C8F9 LDA [$0A]
AND #$00FF
BEQ L02C94C
STA $08
INC $0A
BNE L02C908
INC $0C
L02C908 LDA $04
BEQ L02C92D
L02C90C LDA [$0A]
AND #$00FF
PHA
JSL L02CBE8
INC $0A
BNE L02C91C
INC $0C
L02C91C DEC $08
BNE L02C90C
LDA $06
BEQ L02C94C
PEA $000D
JSL L02CBE8
BRA L02C94C
L02C92D LDA [$0A]
AND #$00FF
PHA
JSL L02C07B
INC $0A
BNE L02C93D
INC $0C
L02C93D DEC $08
BNE L02C92D
LDA $06
BEQ L02C94C
PEA $000D
JSL L02C07B
L02C94C LDA $02
STA $0C
LDA $00
STA $0A
PLD
CLC
TSC
ADC #$000A
TCS
RTL
L02C95C PHA
JSL L02CC28
JSL L02D00F
JSL L02CE93
PLA
JSL GSOS
DW $2029 ; Quit
ADRL L02C974
L02C974 DW $0002 ; Parms for Quit
ADRL $00000000 ; path name
DW $0000 ; flags
L02C97C PHX
PHA
LDA #$0000
PHA
PHA
PHA
PHA
TSC
PHD
TCD
TYA
JSL L02D03D
LDAL L02CBC0,X
STA $05
LDAL L02CBC2,X
STA $07
L02C999 LDA $05
CMP $09
BNE L02C9A5
LDA $07
CMP $0B
BEQ L02C9BC
L02C9A5 LDA $05
STA $01
LDA $07
STA $03
LDY #$0004
LDA [$01],Y
STA $05
INY
INY
LDA [$01],Y
STA $07
BRA L02C999
L02C9BC LDY #$0004
LDA $01
ORA $02
BNE L02C9D5
LDA [$05],Y
STAL L02CBC0,X
INY
INY
LDA [$05],Y
STAL L02CBC2,X
BRA L02C9DF
L02C9D5 LDA [$05],Y
STA [$01],Y
INY
INY
LDA [$05],Y
STA [$01],Y
L02C9DF PLD
TSC
CLC
ADC #$000C
TCS
RTL
L02C9E7 TXY
BEQ L02C9F6
BMI L02C9F2
L02C9EC ASL
DEX
BNE L02C9EC
BRA L02C9F6
L02C9F2 LSR
INX
BNE L02C9F2
L02C9F6 RTL
L02C9F7 TSC
PHD
TCD
LDA $06
BPL L02CA1C
CMP #$FFFF
BNE L02CA16
LDX $04
CPX #$FFDE
BCC L02CA16
L02CA0A LDA $0A
ASL
ROR $0A
ROR $08
INX
BNE L02CA0A
BRA L02CA2E
L02CA16 STZ $08
STZ $0A
BRA L02CA2E
L02CA1C BNE L02CA16
LDX $04
BEQ L02CA2E
CPX #$0021
BCS L02CA16
L02CA27 ASL $08
ROL $0A
DEX
BNE L02CA27
L02CA2E LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02CA3A STZ $01
LDA $16
BPL L02CA53
SEC
LDA #$0000
SBC $14
STA $05
LDA #$0000
SBC $16
STA $07
INC $01
BRA L02CA59
L02CA53 STA $07
LDA $14
STA $05
L02CA59 STZ $09
STZ $0B
LDA $12
BPL L02CA72
SEC
LDA #$0000
SBC $10
STA $10
LDA #$0000
SBC $12
STA $12
DEC $01
L02CA72 RTL
L02CA73 TXY
BEQ L02CA8D
BPL L02CA7E
L02CA78 ASL
INX
BNE L02CA78
BRA L02CA8D
L02CA7E BIT #$8000
BNE L02CA88
L02CA83 LSR
DEX
BNE L02CA83
RTL
L02CA88 SEC
ROR
DEX
BNE L02CA88
L02CA8D RTL
L02CA8E TXY
BEQ L02CAB8
PHA
PHX
TSC
PHD
TCD
LDA #$0000
LDY #$0010
L02CA9C ASL $03
ROL
SEC
SBC $01
BCS L02CAAB
ADC $01
DEY
BNE L02CA9C
BRA L02CAB0
L02CAAB INC $03
DEY
BNE L02CA9C
L02CAB0 TAX
LDA $03
CLV
PLD
PLY
PLY
RTL
L02CAB8 PLA
SEP #$40
RTL
L02CABC PHX
PHA
PHD
TSC
TCD
CPX $03
BCS L02CACB
LDA $03
STX $03
STA $05
L02CACB LDA #$0000
LSR $03
BCC L02CAD5
CLC
ADC $05
L02CAD5 ASL $05
LSR $03
BCC L02CADE
CLC
ADC $05
L02CADE ASL $05
LSR $03
BCC L02CAE7
CLC
ADC $05
L02CAE7 ASL $05
LSR $03
BEQ L02CB1C
BCC L02CAF2
CLC
ADC $05
L02CAF2 ASL $05
LSR $03
BCC L02CAFB
CLC
ADC $05
L02CAFB ASL $05
LSR $03
BCC L02CB04
CLC
ADC $05
L02CB04 ASL $05
LSR $03
BCC L02CB0D
CLC
ADC $05
L02CB0D ASL $05
LSR $03
BCC L02CB16
CLC
ADC $05
L02CB16 ASL $05
PLD
PLX
PLX
RTL
L02CB1C BCC L02CB21
CLC
ADC $05
L02CB21 PLD
PLX
PLX
RTL
L02CB25 PEA $0000
PEA $0000
PHX
PHA
TSC
PHD
TCD
TXA
BEQ L02CB5A
LDY #$0020
JSR L02CB3C
BRL L02CB84
L02CB3C LDA $01
LSR
BCC L02CB4E
CLC
LDA $05
ADC $0C
STA $05
LDA $07
ADC $0E
STA $07
L02CB4E ROR $07
ROR $05
ROR $03
ROR $01
DEY
BNE L02CB3C
RTS
L02CB5A LDA $0E
BEQ L02CB6E
LDY #$0010
JSR L02CB3C
LDA $05
STA $0E
LDA $03
STA $0C
BRA L02CB8C
L02CB6E LDY #$0010
LDX $01
STX $03
L02CB75 LSR $03
BCC L02CB7C
CLC
ADC $0C
L02CB7C ROR
ROR $01
DEY
BNE L02CB75
STA $03
L02CB84 LDA $03
STA $0E
LDA $01
STA $0C
L02CB8C PLD
TSC
CLC
ADC #$0008
TCS
RTL
L02CB94 TXY
BEQ L02CBA3
BPL L02CB9F
L02CB99 ASL
INX
BNE L02CB99
BRA L02CBA3
L02CB9F LSR
DEX
BNE L02CB9F
L02CBA3 RTL
L02CBA4 PHA
PHX
PHY
JSL L02D024
JSL L02CE78
JSL L02CFE1
JSL L02CD14
JSL L02CC70
RTL
L02CBBC DB $00
DB $00
L02CBBE DB $00
DB $00
L02CBC0 DB $00
DB $00
L02CBC2 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02CBE4 DB $00
DB $00
L02CBE6 DB $00
DB $00
L02CBE8 JMP L02CBEB
L02CBEB TSC
PHD
TCD
LDA $04
STAL L02CC26
LDAL L02C578
STAL L02CC18
JSL GSOS
DW $2013 ; Write
ADRL L02CC16
LDA $02
STA $04
LDA $01
STA $03
PLD
TSC
CLC
ADC #$0002
TCS
RTL
L02CC16 DW $0004 ; Parms for Write
L02CC18 DW $0000 ; ref num
ADRL L02CC26 ; buffer ptr
ADRL $00000001 ; request count
ADRL $00000000 ; transfer count
L02CC26 DB $00
DB $00
L02CC28 PHB
PHK
PLB
LDA L02C57A
BEQ L02CC40
LDA L02C574
STA L02CC6E
JSL GSOS
DW $2014 ; Close
ADRL L02CC6C
L02CC40 LDA L02C57C
BEQ L02CC55
LDA L02C576
STA L02CC6E
JSL GSOS
DW $2014 ; Close
ADRL L02CC6C
L02CC55 LDA L02C57E
BEQ L02CC6A
LDA L02C578
STA L02CC6E
JSL GSOS
DW $2014 ; Close
ADRL L02CC6C
L02CC6A PLB
RTL
L02CC6C DW $0001 ; Parms for Close
L02CC6E DW $0000 ; ref num
L02CC70 PHB
PHK
PLB
STZ L02C46E
STZ L02C56E
STZ L02C570
STZ L02C572
PEA $000A
JSL L02D04E
STA L02C574
STZ L02C580
LDA L02C574
STA L02CCED
JSL GSOS
DW $2039 ; GetRefInfo
ADRL L02CCEB
BCS L02CCD5
LDA L02CCF7
CMP #$0009
BNE L02CCB4
LDA L02CD01
AND #$00FF
CMP #$003A
BNE L02CCD5
DEC L02CCF7
L02CCB4 LDY #$0008
L02CCB7 LDA L02CCF7,Y
CMP L02CD0A,Y
BNE L02CCD5
DEY
DEY
BPL L02CCB7
JSL GSOS
DW $2020 ; GetDevNumber
ADRL L02CD02
BCS L02CCD5
LDA L02CD08
STA L02C580
L02CCD5 PEA $000B
JSL L02D04E
STA L02C576
PEA $000C
JSL L02D04E
STA L02C578
PLB
RTL
L02CCEB DW $0003 ; Parms for GetRefInfo
L02CCED DW $0000 ; ref num
DW $0000 ; access
ADRL L02CCF5 ; path name
L02CCF5 DB $0D
DB $00
L02CCF7 DB $00
DB $00
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
DB $20
L02CD01 DB $20
L02CD02 DW $0002 ; Parms for GetDevNumber
ADRL L02CD0A ; device name
L02CD08 DW $0000 ; device num
L02CD0A STRL '.CONSOLE'
L02CD14 PHB
PHK
PLB
LDA #$0020
STA L02C29D
STZ L02C291
STZ L02C28F
STZ L02C2C1
STZ L02C2C3
STZ L02C2BD
STZ L02C2BF
STZ L02C2B7
STZ L02C2B9
STZ L02C2B3
STZ L02C2B5
PLB
RTL
L02CD3D LDA $04,S
PHA
JSL L02CEA4
JMPL L02CD48
L02CD48 PHK
PLB
LDA L02C2C1
BNE L02CD52
BRL L02CE72
L02CD52 BRA L02CD6C
L02CD54 STR 'Error occurred at line '
L02CD6C PEA ^L02CD54
PEA L02CD54-1
PEA $0000
PEA $0000
PEA $0001
JSL L02C8DC
LDA L02C2C1
PHA
PEA $0001
PEA $0000
PEA $0001
JSL L02D1D4
L02CD90 BRA L02CDA1
L02CD92 STR ' in procedure '
L02CDA1 PEA ^L02CD92
PEA L02CD92-1
PEA $0000
PEA $0000
PEA $0001
JSL L02C8DC
PEA ^L02C2C2
PEA L02C2C2
PEA $0000
PEA $0001
PEA $0001
JSL L02C8DC
JSL L02D204
LDA L02C2BD
ORA L02C2BF
BNE L02CDD6
BRL L02CE72
L02CDD6 PEA $000D
JSL L02CBE8
PEA $000A
JSL L02CBE8
L02CDE4 BRA L02CDF3
L02CDE6 STR ' Line Name'
L02CDF3 PEA ^L02CDE6
PEA L02CDE6-1
PEA $0000
PEA $0001
PEA $0001
JSL L02C8DC
L02CE06 BRA L02CE15
L02CE08 STR ' ---- ----'
L02CE15 PEA ^L02CE08
PEA L02CE08-1
PEA $0000
PEA $0001
PEA $0001
JSL L02C8DC
L02CE28 LDA L02C2BD
ORA L02C2BF
BEQ L02CE72
LDA L02C2C1
PHA
PEA $0006
PEA $0000
PEA $0001
JSL L02D1D4
L02CE41 BRA L02CE46
L02CE43 STR ' '
L02CE46 PEA ^L02CE43
PEA L02CE43-1
PEA $0000
PEA $0000
PEA $0001
JSL L02C8DC
PEA ^L02C2C2
PEA L02C2C2
PEA $0000
PEA $0001
PEA $0001
JSL L02C8DC
JSL L02D204
BRA L02CE28
L02CE72 LDA #$FFFF
BRL L02C95C
L02CE78 PHA
PHA
PEA $0000
TSC
PHA
_FindHandle
PHD
TSC
TCD
LDA [$03]
PLD
STAL L02C29F
PLA
PLA
RTL
L02CE93 JSL L02D19D
LDAL L02B10D
PHA
_DisposeAll
RTL
L02CEA4 PHD
PEA ^L02CED6
PEA L02CED6
TSC
TCD
LDX $0A
L02CEAF DEX
BEQ L02CEBE
SEC
LDA [$01]
AND #$00FF
ADC $01
STA $01
BRA L02CEAF
L02CEBE DEC $01
PEA $0000
PEA $0001
PEA $0001
JSL L02C8DC
PLD
LDA $02,S
STA $04,S
PLA
STA $01,S
RTL
L02CED6 STR 'Subrange exceeded'
STR 'File is not open'
STR 'Read while at end of file'
STR 'I/O error'
STR 'Out of memory'
STR 'EOLN while at end of file'
STR 'Set overflow'
STR 'Jump to undefined case statement label'
STR 'Integer math error'
STR 'Real math error'
STR 'Underflow'
STR 'Overflow'
STR 'Divide by zero'
STR 'Inexact'
STR 'Stack overflow'
STR 'Stack error'
L02CFE1 LDA #$0000
STAL L02C2B1
PHA
_SANEStatus
PLA
BNE L02D00E
LDAL L02C29F
PHA
CLC
ADC #$0100
STAL L02C29F
_SANEStartUp
LDA #$0001
STAL L02C2B1
L02D00E RTL
L02D00F LDAL L02C2B1
BEQ L02D023
_SANEShutDown
LDA #$0000
STAL L02C2B1
L02D023 RTL
L02D024 PHK
PLX
PLY
PLA
STAL L02C28B
PLA
STAL L02C28D
PLA
ORA #$0100
STAL L02B10D
PHY
PHX
PLB
RTL
L02D03D LDX #$0000
DEC
LSR
LSR
LSR
BEQ L02D04D
L02D046 INX
INX
INX
INX
LSR
BNE L02D046
L02D04D RTL
L02D04E TSC
SEC
SBC #$000A
TCS
PHD
TCD
STZ $01
LDA $0E
ASL
TAX
STZ L02C566,X
LDA $0E
STA L02D137
JSL GSOS
DW $2037 ; GetStdRefNum
ADRL L02D135
BCS L02D07A
LDA L02D139
BEQ L02D07A
STA $01
BRL L02D11A
L02D07A PHA
PHA
PEA $0000
PEA $2000
PHA
PEA $0000
PHA
PHA
PEA ^L02D04E
PEA L02D04E
_FindHandle
_SetHandleID
PEA $C010
PEA $0000
PEA $0000
_NewHandle
PLY
PLX
BCS L02D11A
STX $05
STY $03
LDY #$0002
LDA [$03],Y
STA $09
STA L02D131+2
STA L02D13D+2
STA L02D147+2
LDA [$03]
STA $07
STA L02D131
INC
INC
STA L02D13D
STA L02D147
LDA #$2000
STA [$07]
LDA $0E
STA L02D12F
JSL GSOS
DW $200A ; GetPrefix
ADRL L02D12D
BCS L02D10D
JSL GSOS
DW $2038 ; GetRefNum
ADRL L02D13B
BCS L02D0FC
LDA L02D141
STA $01
BNE L02D10D
L02D0FC JSL GSOS
DW $2010 ; Open
ADRL L02D143
BCS L02D10D
LDA L02D145
STA $01
L02D10D LDA $05
PHA
LDA $03
PHA
_DisposeHandle
L02D11A LDY $01
LDA $0C
STA $0E
LDA $0B
STA $0D
PLD
TSC
CLC
ADC #$000C
TCS
TYA
RTL
L02D12D DW $0002 ; Parms for GetPrefix
L02D12F DW $0000 ; prefix num
L02D131 ADRL $00000000 ; prefix ptr
L02D135 DW $0002 ; Parms for GetStdRefNum
L02D137 DW $0000 ; prefix num
L02D139 DW $0000 ; ref num
L02D13B DW $0002 ; Parms for GetRefNum
L02D13D ADRL $00000000 ; path name
L02D141 DW $0000 ; ref num
L02D143 DW $0002 ; Parms for Open
L02D145 DW $0000 ; ref num
L02D147 ADRL $00000000 ; path name
L02D14B DW $0028
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02D175 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02D19D PHB
PHK
PLB
STZ L02CBBC
STZ L02CBBE
LDX #$0026
L02D1A9 STZ L02CBC0,X
DEX
DEX
BPL L02D1A9
PLB
RTL
L02D1B2 PHA
PHD
TSC
TCD
TYA
BEQ L02D1C6
L02D1B9 PEA $0020
JSL L02CBE8
DEC $03
BNE L02D1B9
BRA L02D1D1
L02D1C6 PEA $0020
JSL L02C07B
DEC $03
BNE L02D1C6
L02D1D1 PLD
PLA
RTL
L02D1D4 TSC
PHD
TCD
PEA ^L02D14B
PEA L02D14B
LDA $0A
JSL L02D22D
PEA ^L02D14B
PEA L02D14B
LDA $08
PHA
LDA $06
PHA
LDA $04
PHA
JSL L02C8DC
LDA $02
STA $0A
LDA $00
STA $08
PLD
PLA
PLA
PLA
PLA
RTL
L02D204 PHB
PHK
PLB
LDA L02C2BF
PHA
LDA L02C2BD
PHA
TSC
PHD
TCD
LDY #$0024
L02D215 LDA [$01],Y
STA L02C2BD,Y
DEY
DEY
BPL L02D215
LDA $03
PHA
LDA $01
PHA
JSL L02C1EF
PLD
PLA
PLA
PLB
RTL
L02D22D PHA
PEA ^L02D175
PEA L02D175
PEA $0028
PEA $0001
_Int2Dec
JMP L02D244
L02D244 PHD
TSC
TCD
SEP #$20
LDX #$0000
LDA #$20
L02D24E CMPL L02D175,X
BNE L02D257
INX
BRA L02D24E
L02D257 REP #$20
TXA
SEC
SBC #$0028
EOR #$FFFF
INC
SEP #$20
CMP [$06]
BEQ L02D26A
BCS L02D281
L02D26A LDY #$0001
STA [$06],Y
L02D26F LDAL L02D175,X
INY
STA [$06],Y
INX
CPX #$0028
BCC L02D26F
REP #$20
CLV
BRA L02D285
L02D281 REP #$20
SEP #$40
L02D285 LDA $02,S
STA $06,S
LDA $04,S
STA $08,S
PLD
PLA
PLA
RTL
Reference in New Issue View Git Blame Copy Permalink