antoine-source/genesys/GEMAIN.S
Antoine Vignau 3f71382330 v1.3.6 - New feaetures
Edition of resources in system ID range added. Source file generation bug fix.
2022-01-29 15:14:41 +01:00

27178 lines
514 KiB
ArmAsm

*
* Genesys v1.2.4 -> V1.3.6
* Main program
*
* (c) 1990-1991, SSSi
* (u) 2020-2022, Brutal Deluxe Software
*
* v1.3.6 - AV 202201
* - main program
* - allow all ID range
*
* v1.3.5 - AV 202102
* - Editor / Control
* - Bug in ref icon pointer fixed
*
* v1.3.4 - AV 202010
* - Main program
* - new resource types added
* - Editor / Control
* - disassembly & re-assembly
* - existing controls support 6.0 and 6.0.1 bits
* - rectangle and thermometer controls support added
* - Editor / Versions
* - Update Info (yeah)
*
mx %00
rel
lst off
*----------------------------
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Dialog.Macs
use 4/Event.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/List.Macs
use 4/Load.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/Misc.Macs
use 4/QD.Macs
use 4/QDAux.Macs
use 4/Resource.Macs
use 4/SANE.Macs
use 4/Scrap.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/TextEdit.Macs
use 4/Util.Macs
use 4/Window.Macs
use GEMAIN.X.S
*----------------------------
BUTN0 EQU $C061
GSOS EQU $E100A8
*----------------------------
* Commands to editors
* 0002: say goodbye
* 0005: say hello
*----------------------------
PHB
PHD
PHK
PLB
_TLStartUp
PEA $0000
_TLVersion
PLA
AND #$7F00
CMP #$0300
BCS L020025
JSL L029C90
BRL L0202E2
L020025 PEA $0000
_MMStartUp
PLA
STA L024112
PEA $0000
PEA $0000
LDA L024112
PHA
PEA $0002
PEA $0000
PEA $0001
_StartUpTools
BCC L020088
CMP #$0104
BEQ L020063
PLA
STA L020353
PLA
STA L020353+2
JSL L029C90
BRL L0202A4
L020063 PLA
STA L020353
PLA
STA L020353+2
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $000B
_AlertWindow
PLA
BRL L0202A4
L020088 JSL GSOS
DW $202A ; GetVersion
ADRL L020361
LDA L020363
CMP #$0303
BCC L020063
PLA
STA L020353
PLA
STA L020353+2
PEA $0000
PEA $0000
_GetWMgrPort
_SetPort
PEA ^L020376
PEA L020376
JSL L020E54
LDA L024112
ORA #$0100
STA L024388
LDA L024112
ORA #$0200
STA L02410E
JSL L02212F
STZ L0240DC
PEA $0000
_GetCurResourceFile
LDX #$0102
JSL L027D42
PLA
STA L0240D4
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0001
PEA $0000
PEA $0000
_NewMenuBar2
LDX #$0104
JSL L027D42
_SetSysBar
LDX #$0105
JSL L027D42
PEA $0000
PEA $0000
_SetMenuBar
LDX #$0106
JSL L027D42
PEA $0001
_FixAppleMenu
LDX #$0107
JSL L027D42
PEA $0000
_FixMenuBar
LDX #$0108
JSL L027D42
PLA
_DrawMenuBar
LDX #$0109
JSL L027D42
JSL L027B45
PEA ^L021B9C
PEA L021B9C
PEA $0000
JSL L027BA4
JSR L020E2A
JSR L021340
JSR L020E3B
_InitCursor
LDA L021DE4+2
PHA
LDA L021DE4
PHA
_CloseWindow
LDX #$0110
JSL L027D42
PEA $0000
PEA $0003
PEA $0000
PEA $0000
PEA ^L0245BE
PEA L0245BE
_OpenResourceFile
BCC L0201E0
CMP #$0050
BNE L0201D9
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $000D
_AlertWindow
PLA
PLA
BRL L0202A4
L0201D9 LDX #$0120
JSL L027D42
L0201E0 PLA
STA L024110
JSL L0202F5
PEA $0000
_GetScrapCount
LDX #$0130
JSL L027D42
PLA
STA L0240E8
STZ L0240EA
STZ L0240EC
PEA $0000
_GetKeyTranslation
LDX #$0140
JSL L027D42
PLA
STA L020357
PEA $0000
_SetKeyTranslation
LDX #$0141
JSL L027D42
LDA L0240DC
BNE L020280
JSR L020381
_WaitCursor
PEA $0000
PEA $0000
_GetPort
PEA ^L021D9E
PEA L021D9E
JSL L026E07
STA L021D21
STX L021D23
_UnloadScrap
LDX #$0152
JSL L027D42
LDA L021D23
PHA
LDA L021D21
PHA
_CloseDialog
LDX #$0154
JSL L027D42
_SetPort
L020280 LDA L020357
PHA
_SetKeyTranslation
LDX #$0160
JSL L027D42
LDA L024110
PHA
_CloseResourceFile
LDX #$0170
JSL L027D42
L0202A4 PEA $0001
LDA L020353+2
PHA
LDA L020353
PHA
_ShutDownTools
PEA $0000
LDX #$0080
L0202BC LDA L0246BF,X
BEQ L0202D2
PHA
PEA $0000
STX L020351
_UserShutDown
LDX L020351
L0202D2 DEX
DEX
BPL L0202BC
PLA
LDA L024112
PHA
_MMShutDown
L0202E2 _TLShutDown
PLD
PLB
JSL GSOS
DW $2029 ; Quit
ADRL L020359
L0202F5 PHD
PHB
PHK
PLB
LDA L0240D4
PHA
_SetCurResourceFile
LDX #$01E0
JSL L027D42
PEA $0000
PEA $FFFF
_SetResourceFileDepth
LDX #$01E1
JSL L027D42
PLY
PLB
PLD
RTL
L020323 PHD
PHB
PHK
PLB
LDA L024110
PHA
_SetCurResourceFile
LDX #$01E2
JSL L027D42
PEA $0000
PEA $FFFF
_SetResourceFileDepth
LDX #$01E3
JSL L027D42
PLY
PLB
PLD
RTL
L020351 DW $0000
L020353 ADRL $00000000
L020357 DW $0000
L020359 DW $0000 ; Parms for Quit
DW $0000
DW $0000
DW $0000
L020361 DW $0001 ; Parms for GetVersion
L020363 DW $0000 ; version number
DW $0001
DW $0000
L020369 STR 'Shell v1.3.6'
L020376 STR 'v1.3.6'
DB $00
DB $00
DB $00
DB $00
L020381 STZ L024394
STZ L02186F
L020387 JSL L027B65
JSL L027699
JSL L02115F
PEA $001F
PEA $7FFF
LDA L024100
BEQ L020410
AND #$0003
BNE L020410
LDA L024100
AND #$8000
BEQ L020410
PEA $0000
PEA $0002
PEA ^L0204E9
PEA L0204E9
_EventAvail
PLA
BEQ L020406
PEA $0000
PEA ^L0204F9
PEA L0204F9
LDA L0204F5
PHA
LDA L0204F3
PHA
_FindWindow
LDX #$0202
JSL L027D42
PLA
CMP #$001B
BNE L020406
PEA $0000
PEA $0000
_FrontWindow
LDX #$0203
JSL L027D42
PLA
PLX
CPX L0204F9+2
BNE L020406
CMP L0204F9
BEQ L020410
L020406 LDA #$B70F
STA $01,S
LDA #$001F
STA $03,S
L020410 LDA L024394
AND #$0100
BEQ L02041F
LDA $03,S
AND #$FFFC
STA $03,S
L02041F PLA
PLX
STA L024360
STX L024360+2
PHA
PEA $FFFF
PEA ^L02434C
PEA L02434C
_TaskMaster
PLA
STA L024396
ASL
TAX
JSR (L0204A5,X)
LDA L0240DC
BNE L020449
BRL L020387
L020449 RTS
L02044A PEA $0000
PEA $0000
_FrontWindow
LDX #$02E0
JSL L027D42
PLA
PLX
CMP L021EEC
BNE L02046F
CPX L021EEC+2
BNE L02046F
JSL L02B766
RTS
L02046F JMP L0208FA
L020472 LDA L024100
BMI L02047A
JMP L0208FA
L02047A PEA $0002
LDA L024358
PHA
LDA L024356
PHA
PEA $0008
PEA $0000
PEA $0000
LDA L02435C+2
PHA
LDA L02435C
PHA
_DragWindow
LDX #$02E2
JSL L027D42
RTS
L0204A5 DA L0207B5
DA L0208FA
DA L0208FA
DA L02044A
DA L020449
DA L0208FA
DA L0208FA
DA L020449
DA L0204FD
DA L020449
DA L020449
DA L020449
DA L020449
DA L020449
DA L020449
DA L020449
DA L0208FA
DA L02090E
DA L0208FA
DA L0208FA
DA L020472
DA L0208FA
DA L02083D
DA L0208FA
DA L0208FA
DA L02090E
DA L020449
DA L0208FA
DA L020449
DA L020449
DA L020449
DA L0208FA
DA L0208FA
DA L0209EE
L0204E9 DW $0000 ; event code
ADRL $00000000 ; event message
ADRL $00000000 ; tick count
L0204F3 DW $0000 ; mouse location
L0204F5 DW $0000
DW $0000 ; modifiers
L0204F9 ADRL $00000000
L0204FD LDA L02435C+2
PHA
LDA L02435C
PHA
JSL L02897A
CMP #$FFFF
BEQ L02054C
CMP #$5752
BNE L020516
BRL L020610
L020516 CMP #$5751
BNE L020561
LDX #$000E
LDA L02435A
AND #$0001
BEQ L02054E
PEA $0000
_GetKeyTranslation
LDX #$0302
JSL L027D42
PLA
STA L0207B3
PEA $00FF
_SetKeyTranslation
LDX #$0303
JSL L027D42
L02054C BRA L0205AA
L02054E LDA L0207B3
PHA
_SetKeyTranslation
LDX #$0304
JSL L027D42
RTS
L020561 TAX
AND #$FF00
CMP #$5700
BEQ L0205AA
TXA
PHA
STA L0207B1
JSR L020DB0
CPX #$FFFF
BEQ L0205CC
PLA
AND #$0008
BEQ L020580
LDX #$0080
L020580 LDA L02435A
AND #$0001
BEQ L02058B
BRL L020634
L02058B LDA #$0002
STA L02438A
JSR L020CBB
LDA L02435C
CMP L0240F8
BNE L0205AA
LDX L02435C+2
CPX L0240FA
BNE L0205AA
STZ L0240F8
STZ L0240FA
L0205AA LDX #$0000
L0205AD LDA L02186F,X
BEQ L0205C7
PHX
PHA
_DeleteMItem
LDX #$0310
JSL L027D42
PLX
INX
INX
BRA L0205AD
L0205C7 LDA L02186F
BNE L0205CD
L0205CC RTS
L0205CD STZ L02186F
PEA $0000
PEA $0000
PEA $0006
_CalcMenuSize
LDX #$0312
JSL L027D42
PEA $0080
PEA $0006
_SetMenuFlag
LDX #$0313
JSL L027D42
PEA $0000
PEA $0006
_HiliteMenu
LDX #$0314
JSL L027D42
RTS
L020610 STZ L024100
PEA ^L021BB0
PEA L021BB0
PEA $0001
JSL L027BA4
JSL L027BE8
PEA ^L021BD2
PEA L021BD2
PEA $0001
JSL L027BA4
BRL L0205AA
L020634 PHX
PHX
JSR L0205AA
PLX
TXA
ASL
TAX
LDA L024E30,X
ORA L024E2E,X
BNE L020648
BRL L0206F3
L020648 PHD
PHA
PHA
CLC
LDA L024E2E,X
ADC #$000A
PHA
PHA
LDA L024E30,X
ADC #$0000
STA $03,S
TSC
TCD
LDX #$0000
L020661 LDY #$0002
LDA [$01]
STA $05
LDA [$01],Y
STA $07
ORA $05
BEQ L0206AA
LDA [$05],Y
STA L02186F,X
INX
INX
STZ L02186F,X
PHX
PEA $0000
LDA $07
PHA
LDA $05
PHA
PEA $FFFF
PEA $0006
_InsertMItem2
LDX #$0320
JSL L027D42
CLC
LDA $01
ADC #$0004
STA $01
LDA $03
ADC #$0000
STA $03
PLX
BRA L020661
L0206AA PLA
PLA
PLA
PLA
PLD
LDA L02186F
BEQ L0206F3
PEA $0000
PEA $0000
L0206BA PEA $0006
_CalcMenuSize
LDX #$0330
JSL L027D42
PEA $FF7F
PEA $0006
_SetMenuFlag
LDX #$0331
JSL L027D42
PEA $0000
PEA $0006
_HiliteMenu
LDX #$0332
JSL L027D42
L0206F3 PEA $0000
LDA L024384+2
PHA
LDA L024384
PHA
LDA L024382
PHA
JSL L025A27
PHX
PHA
JSL L02C395
STA L02437E
STX L02437E+2
LDY #$0002
LDA L024100
TAX
AND #$0002
BEQ L02073A
LDY #$0006
TXA
EOR #$0002
STA L024100
LDA L0240F6
STA L02439C
LDA L024114
STA L02439E
LDA L024114+2
STA L02439E+2
L02073A LDA L0207B1
AND #$FFF7
CMP #$0001
BEQ L020772
PHY
PEA ^L021BB0
PEA L021BB0
PEA $FFFF
JSL L027BA4
JSL L027BE8
PEA ^L021BD2
PEA L021BD2
PEA $FFFF
JSL L027BA4
PLY
LDA L024100
L020768 BPL L0207A9
EOR #$8000
STA L024100
BRA L0207A9
L020772 PHY
PEA ^L021BB0
PEA L021BB0
PEA $0000
JSL L027BA4
PEA ^L021BD2
PEA L021BD2
PEA $0000
JSL L027BA4
PLY
LDA L024100
ORA #$8000
STA L024100
LDA L024382
STA L0240F6
LDA L024384
STA L024114
LDA L024384+2
STA L024114+2
L0207A9 PLX
STY L02438A
JSR L020CBB
RTS
L0207B1 DW $0000
L0207B3 DW $0000
L0207B5 LDA L024100
AND #$0001
BNE L0207FE
LDA L024394
AND #$0200
BNE L020834
LDA #$0005
STA L02438A
JSR L020C59
PEA $0111
LDA L024100
BMI L0207DB
LDA L024394
BMI L0207EA
L0207DB _DisableMItem
LDX #$0401
JSL L027D42
RTS
L0207EA AND #$0080
BNE L0207DB
_EnableMItem
LDX #$0402
JSL L027D42
RTS
L0207FE LDA #$0000
STA L02438A
LDA L0240D8
STA L024382
LDA L0240EE
STA L024384
LDA L0240F0
STA L024384+2
LDA L024394
ORA #$0400
STA L024394
LDA L024100
EOR #$0001
STA L024100
L020828 JSR L020DB0
CPX #$FFFF
BEQ L020833
JSR L020CBB
L020833 RTS
L020834 LDA L024394
EOR #$0200
STA L024394
L02083D PEA $0000
PEA $0000
_FrontWindow
LDX #$0410
JSL L027D42
JSL L02897A
CMP #$FFFF
BNE L02085E
LDA #$0000
RTS
L02085E CMP #$5752
BNE L02086B
JSL L026B63
LDA #$0000
RTS
L02086B CMP #$5754
BNE L020875
JSL L042C42
RTS
L020875 CMP #$5751
BNE L02087F
JSL L02B718
RTS
L02087F CMP #$5753
BNE L020889
JSL L0211D2
RTS
L020889 PHA
AND #$FF00
CMP #$5700
BNE L0208B6
PLA
PEA $0000
PEA $0000
_FrontWindow
LDX #$0420
JSL L027D42
_CloseWindow
L0208AE LDX #$0422
JSL L027D42
RTS
L0208B6 PLA
CMP #$0001
BNE L0208CA
LDA L024100
BPL L0208C4
EOR #$8000
L0208C4 ORA #$0002
STA L024100
L0208CA PEA $0000
PEA $0000
_FrontWindow
LDX #$0430
JSL L027D42
PLA
STA L02435C
PLA
STA L02435C+2
LDX #$0016
STX L024396
LDX #$0002
STX L02438A
JSR L020C59
JSL L027C06
RTS
L0208FA LDX #$0002
STX L02438A
JSR L020C59
RTS
L020904 PHD
PHB
PHK
PLB
JSR L02083D
PLB
PLD
RTL
L02090E _InitCursor
PEA $0000
LDA L02435C+2
PHA
LDA L02435C
CMP #$0800
BCC L020948
LDA #$0002
STA L02438A
JSR L020DB0
CPX #$FFFF
BEQ L020935
JSR L020CBB
L020935 JSL L030000
_HiliteMenu
LDX #$0510
JSL L027D42
RTS
L020948 SEC
SBC #$00FA
ASL
ASL
TAX
PHK
PEA L020935-1
SEP #$20
LDA L020966+2,X
PHA
REP #$20
LDA L020966,X
PHA
RTL
DW $0000
LDA #$0000
RTL
L020966 ADRL L02107F-1
ADRL L02107F-1
ADRL L02107F-1
ADRL L02107F-1
ADRL L02107F-1
ADRL L020904-1
ADRL L021046-1
ADRL L026C9F-1
ADRL L02B44F-1
ADRL L026232-1
ADRL L0262B5-1
ADRL L02638C-1
ADRL L02639B-1
ADRL L02725A-1
ADRL L02108F-1
ADRL L0275D8-1
ADRL L027570-1
ADRL L02725A-1
ADRL L0277E3-1
ADRL L0277ED-1
ADRL L02624E-1
ADRL $00000000
ADRL $00000000
ADRL L0264DB-1
ADRL $00000000
ADRL L027358-1
ADRL L0279D0-1
ADRL L027988-1
ADRL $00000000
ADRL L026AEC-1
ADRL L027A3C-1
ADRL L027A3C-1
ADRL L027A3C-1
ADRL L027A04-1
L0209EE PEA $0000
PEA $0000
_FrontWindow
LDX #$0602
JSL L027D42
PLA
PLX
CMP L021EEC
BNE L020A13
CPX L021EEC+2
BNE L020A13
JSL L02B7F2
RTS
L020A13 CMP L0240F2
BNE L020A1D
CPX L0240F4
BEQ L020A20
L020A1D BRL L020A83
L020A20 LDA L02436E
CMP #$0005
BEQ L020A4A
CMP #$0006
BEQ L020A4A
CMP #$0007
BEQ L020A4A
CMP #$0008
BEQ L020A4A
CMP #$0081
BEQ L020A4A
LDA L024372
CMP #$0001
BNE L020A4B
JSR L020A92
JSR L020B77
L020A4A RTS
L020A4B CMP #$0002
BNE L020A5A
JSR L020A92
STA L021C2C
JSR L020AAD
RTS
L020A5A CMP #$0003
BNE L020A67
PEA $0000
JSL L023C33
RTS
L020A67 CMP #$0004
BNE L020A91
PEA $0001
JSL L023C33
LDA L024368
CMP #$0002
BEQ L020A7C
RTS
L020A7C LDA L021C2C
JSR L020AAD
RTS
L020A83 LDA #$0002
STA L02438A
LDA L024382
BEQ L020A91
JSR L020C59
L020A91 RTS
L020A92 PEA $0000
LDA L02436A+2
PHA
LDA L02436A
PHA
_GetCtlValue
LDX #$0630
JSL L027D42
PLA
RTS
L020AAD CMP #$0191
BNE L020AB6
JSR L020BD7
RTS
L020AB6 CMP #$0193
BNE L020AD4
LDA L0240DE
ORA L0240DE+2
BEQ L020AD3
LDA L0240DE+2
PHA
LDA L0240DE
PHA
LDA L0240C6
PHA
JSL L028A3F
L020AD3 RTS
L020AD4 CMP #$0194
BNE L020B01
LDA L0240DE
ORA L0240DE+2
BEQ L020AD3
LDA L0240DE+2
PHA
LDA L0240DE
PHA
LDA L0240C6
PHA
JSL L029833
BNE L020AF4
RTS
L020AF4 LDA L024394
ORA #$8000
STA L024394
LDA #$0000
RTS
L020B01 CMP #$0195
BNE L020B0A
JSR L020C24
L020B09 RTS
L020B0A CMP #$0192
BNE L020B09
PEA $0000
PEA $0000
_GetPort
PEA $00A0
PEA $001E
PEA $0000
PEA ^L021D0F
PEA L021D0F
PEA $0000
LDA L0240DE+2
PHA
LDA L0240DE
PHA
LDA L0240C6
PHA
JSL L02A888
PHX
PHA
PEA ^L021A64
PEA L021A64
_SFPutFile2
LDX #$0631
JSL L027D42
_SetPort
LDA L021A64
BEQ L020B76
LDA L0240DE+2
PHA
LDA L0240DE
PHA
LDA L0240C6
PHA
PEA ^L021A9C
PEA L021A9C
JSL L02A59A
L020B76 RTS
L020B77 PHA
PEA $0000
PEA $0000
_RealFreeMem
LDX #$0640
JSL L027D42
PLA
PLX
CPX #$0000
BNE L020BB3
CMP #$8000
BCS L020BB3
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $000C
_AlertWindow
PLA
RTS
L020BB3 PLA
LDX #$0000
L020BB7 CMP L0258FE,X
BEQ L020BC0
INX
INX
BRA L020BB7
L020BC0 LDA L025732,X
STA L024382
STZ L02438A
STZ L024384
STZ L024384+2
JSR L020CBB
JSL L030000
RTS
L020BD7 STZ L02438A
LDA L0240DE
ORA L0240DE+2
BNE L020BE3
RTS
L020BE3 LDA L0240DE
STA L024384
LDA L0240DE+2
STA L024384+2
LDA L0240C6
STA L024382
JSR L020DB0
PHX
CPX #$FFFF
BEQ L020C22
JSL L027A49
BEQ L020C22
LDA L024384+2
PHA
LDA L024384
PHA
L020C0C LDA L024382
PHA
JSL L02990B
CMP #$0000
BNE L020C22
L020C19 PLX
JSR L020CBB
JSL L030000
PHX
L020C22 PLX
RTS
L020C24 STZ L02438A
LDA L0240DE
ORA L0240DE+2
BNE L020C30
RTS
L020C30 LDA L0240DE
STA L024384
LDA L0240DE+2
STA L024384+2
LDA #$FFFF
STA L024382
JSR L020DB0
PHX
CPX #$FFFF
BEQ L020C22
LDA L0240C6
STA L024382
JSL L027A49
BEQ L020C22
BRA L020C19
*--- Command dispatcher
L020C59 PEA $0000
PEA $0000
_FrontWindow
LDX #$0702
JSL L027D42
JSL L02897A
CMP #$FFFF
BEQ L020C8A
AND #$0008
BEQ L020C80
LDX #$0080
BRA L020CBB
L020C80 LDA L024102
ASL
TAX
LDA L024382
BNE L020C91
L020C8A STZ L020DE9
LDA #$0000
RTS
L020C91 CMP L020DE9
BNE L020CB2
PHB
PEA ^L02434C
PEA L02434C
PHK
PEA L020D23
SEP #$20
LDA L020DEB+2
PHA
PHA
REP #$20
LDA L020DEB
PLB
PHA
BRL L020CEF
L020CB2 JSR L020DB0
CPX #$FFFF
BNE L020CBB
RTS
L020CBB LDA L024382
CPX #$0080
BEQ L020CC6
LDA L025732,X
L020CC6 STA L020DE9
TXA
ASL
TAX
PHB
PEA ^L02434C
PEA L02434C
PHK
PEA L020D23
SEP #$20
LDA L02484B,X
PHA
STA L020DEB+2
PHA
REP #$20
SEC
LDA L024849,X
SBC #$0001
STA L020DEB
PLB
PHA
L020CEF LDAL L0240D4
STAL L0243AE
LDAL L0240D6
STAL L02439A
PHA
_SetCurResourceFile
LDX #$0750
JSL L027D42
PEA $0000
PEA $FFFF
_SetResourceFileDepth
LDX #$0751
JSL L027D42
PLA
L020D23 RTL
PLX
PLY
CPX #L02434C
BNE L020D30
CPY #^L02434C
BEQ L020D32
L020D30 PHY
PHX
L020D32 PLB
PHA
JSL L0202F5
L020D38 LDA L024394
AND #$0400
BEQ L020D83
LDA L02439C
STA L0240D8
LDA L02439E
STA L0240EE
LDA L02439E+2
STA L0240F0
LDA L024394
EOR #$0400
STA L024394
LDA L024100
ORA #$0001
STA L024100
LDA #$0000
PHA
PHA
PHA
_FrontWindow
LDX #$0770
JSL L027D42
PLA
STA L0240F8
PLA
STA L0240FA
PLA
BRA L020D9B
L020D83 LDA L024394
AND #$4000
BNE L020D98
LDA L024394
AND #$1000
BEQ L020D9B
JSR L020E10
BRA L020D9B
L020D98 JSR L020DEE
L020D9B LDY L02438A
CPY #$0009
BEQ L020DAD
JSL L030000
PLA
JSL L030000
RTS
L020DAD TAX
PLA
RTS
L020DB0 PHA
LDA L024102
ASL
TAX
L020DB6 LDA L025732,X
CMP L024382
BEQ L020DE7
DEX
DEX
BPL L020DB6
LDX #$0080
LDA L024108
BMI L020DE7
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0001
_AlertWindow
PLA
LDX #$FFFF
L020DE7 PLA
RTS
L020DE9 DW $0000
L020DEB ADR $000000
L020DEE LDA L024394
AND #$2000
BNE L020DF6
L020DF6 LDA L024394
EOR #$4000
STA L024394
LDA L02439E+2
PHA
LDA L02439E
PHA
LDA L02439C
PHA
JSL L0239E8
RTS
L020E10 LDA L024394
EOR #$1000
STA L024394
LDA L02439E+2
PHA
LDA L02439E
PHA
LDA L02439C
PHA
JSL L023AB0
RTS
L020E2A PHA
PHX
LDX #$0006
L020E2F LDA $00,X
STA L020E4C,X
DEX
DEX
BPL L020E2F
PLX
PLA
RTS
L020E3B PHA
PHX
LDX #$0006
L020E40 LDA L020E4C,X
STA $00,X
DEX
DEX
BPL L020E40
PLX
PLA
RTS
L020E4C HEX 0000000000000000
L020E54 PHD
PHB
PHK
PLB
PEA $0000
PEA $0000
_GetPort
LDA $0B,S
ORA $0D,S
BNE L020EE9
LDA #$2020
STA L02105D
STA L02105D+2
sta L02105D+4
PEA $0000
PEA $0000
PEA $0000
PEA $0000
* AV 202010 - Fixed the About bug
* It happened when users had more than 8MB
* PEA $0000
* PEA $0000
pha
pha
_RealFreeMem
LDX #$2002
JSL L027D42
PEA $0000
PEA $0400
_LongDivide
LDX #$2003
JSL L027D42
PEA ^L02105D
PEA L02105D
PEA $0006 ; was 4
PEA $0000
_Long2Dec
LDX #$2004
JSL L027D42
PLA
PLA
PEA $0000
PEA $0000
_FrontWindow
LDX #$2006
JSL L027D42
JSL L02897A
LDA L024382
BNE L020EF1
PEA ^L020369
PEA L020369
BRA L020F02
L020EE9 LDA $0D,S
PHA
LDA $0D,S
PHA
BRA L020F02
L020EF1 LDA #$0001
STA L02438A
JSR L020C59
LDA L02437A+2
PHA
LDA L02437A
PHA
L020F02 PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L026AB5
PEA L026AB5
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFD
PEA $800E
_NewWindow2
LDX #$2010
JSL L027D42
PLA
STA L021DE4
PLA
STA L021DE4+2
LDA L021DE4+2
PHA
LDA L021DE4
PHA
_SetPort
PEA $0000
PEA $0000
LDA L021DE4+2
PHA
LDA L021DE4
PHA
PEA $0000
PEA $0001
_GetCtlHandleFromID
LDX #$2011
JSL L027D42
LDA L021DE4+2
PHA
LDA L021DE4
PHA
_ShowWindow
LDX #$2012
JSL L027D42
_DrawOneCtl
LDX #$2013
JSL L027D42
PEA $0000
LDA $05,S
PHA
LDA $05,S
PHA
_StringWidth
PLA
STA L02105B
LDA #$0154
SEC
SBC L02105B
PHA
PEA $000E ; 14
_MoveTo
_DrawString
pha
PushLong #copyBRUTAL
_StringWidth
pla
sta L02105B
lda #$154
sec
sbc L02105B
pha
pea $001a ; 26
_MoveTo
PushLong #copyBRUTAL
_DrawString
LDA $0B,S
ORA $0D,S
BNE L021034
PEA $0000
PEA ^L02105D
PEA L02105D
_CStringWidth
PLA
STA L02105B
LDA #$0154
SEC
SBC L02105B
PHA
PEA $0026 ; 38
_MoveTo
PEA ^L02105D
PEA L02105D
_DrawCString
L020FFD PHA
PEA $FFFF
PEA ^L02106F
PEA L02106F
_GetNextEvent
PLA
BEQ L020FFD
LDA L02106F
CMP #$0001
BEQ L02101E
CMP #$0003
BNE L020FFD
L02101E LDA L021DE4+2
PHA
LDA L021DE4
PHA
_CloseWindow
LDX #$2020
JSL L027D42
L021034 _SetPort
PLB
PLD
LDA $02,S
STA $06,S
PLA
STA $03,S
PLA
RTL
L021046 PHD
PHB
PHK
PLB
PEA $0000
PEA $0000
JSL L020E54
PLB
PLD
LDA #$0000
CLC
RTL
copyBRUTAL str 'Brutal Deluxe Software'
L02105B DW $0000
L02105D ASC ' 0k free memory'00
L02106F DW $0000 ; event code
ADRL $00000000 ; event message
ADRL $00000000 ; tick count
DW $0000 ; mouse location
DW $0000
DW $0000 ; modifiers
L02107F PHD
PHB
PHK
PLB
LDX #$0002
STX L02438A
JSR L020C59
PLB
PLD
RTL
L02108F PHD
PHB
PHK
PLB
PEA $0000
PEA $0000
_GetFirstWindow
LDX #$2702
JSL L027D42
L0210A7 PLA
STA L02133C
PLA
STA L02133E
ORA L02133C
BEQ L0210FB
LDA L02133E
PHA
LDA L02133C
PHA
JSL L02897A
CMP #$5753
BEQ L0210E3
PEA $0000
PEA $0000
LDA L02133E
PHA
LDA L02133C
PHA
_GetNextWindow
LDX #$2704
JSL L027D42
BRA L0210A7
L0210E3 LDA L0240EC
PHA
LDA L0240EA
PHA
_SelectWindow
LDX #$2706
JSL L027D42
BRA L02115C
L0210FB PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L02132C
PEA L02132C
PEA ^L0211EF
PEA L0211EF
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFF
PEA $800E
_NewWindow2
LDX #$2708
JSL L027D42
PLA
STA L0240EA
PLA
STA L0240EC
LDA L0240EC
PHA
LDA L0240EA
PHA
_SetPort
PEA $FFFE
LDA L0240EC
L021150 PHA
LDA L0240EA
PHA
_SetOriginMask
L02115C PLB
PLD
RTL
L02115F PHD
PHB
PHK
PLB
PEA $0000
_GetScrapCount
LDX #$2710
JSL L027D42
PLA
CMP L0240E8
BEQ L0211CF
STA L0240E8
LDA L0240EA
ORA L0240EC
BEQ L0211CF
PEA $0000
PEA $0000
_GetPort
LDA L0240EC
PHA
LDA L0240EA
PHA
_SetPort
PEA ^L02131C
PEA L02131C
_GetPortRect
PEA ^L02131C
PEA L02131C
_EraseRect
PEA ^L02131C
PEA L02131C
_InvalRect
_SetPort
L0211CF PLB
PLD
RTL
L0211D2 LDA L0240EC
PHA
LDA L0240EA
PHA
_CloseWindow
LDX #$2720
JSL L027D42
STZ L0240EA
STZ L0240EC
RTL
L0211EF PHD
PHB
PHK
PLB
PEA $0000
_GetCurResourceFile
LDX #$2802
JSL L027D42
LDA L0240D4
PHA
_SetCurResourceFile
LDX #$2803
JSL L027D42
PEA $0000
PEA $0000
PEA $0000
_GetScrapHandle
BCS L02129B
PEA ^L02131C
PEA L02131C
_GetPortRect
PEA $0000
PEA $0000
LDA L0240EC
PHA
LDA L0240EA
PHA
_GetContentOrigin
PLA
STA L02133C
SEC
LDA L02131C
SBC L02133C
STA L02131C
PLA
STA L02133C
SEC
LDA L02131E
SBC L02133C
STA L02131E
PHD
TSC
TCD
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
STA $03
STX $05
PLD
PEA $0000
PEA $0000
PEA $0000
_GetScrapSize
PLA
STA $01,S
PEA ^L02131C
PEA L02131C
PEA $0000
_LETextBox
BRA L0212F8
L02129B PEA $0001
_GetScrapHandle
BCS L0212DD
LDA $03,S
PHA
LDA $03,S
PHA
PHD
TSC
TCD
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
STA $03
STX $05
LDY #$0008
L0212BF LDA [$03],Y
DEY
DEY
STA L02131C,Y
CPY #$0000
BNE L0212BF
PLD
PLA
PLA
PEA ^L02131C
PEA L02131C
_DrawPicture
BRA L0212F8
L0212DD PLA
PLA
LDA #$000A
PHA
PHA
_MoveTo
PEA ^L021309
PEA L021309
_DrawString
L0212F8 _SetCurResourceFile
LDX #$2882
JSL L027D42
PLB
PLD
RTL
L021309 STR 'Clipboard empty...'
L02131C DW $0000
L02131E DW $0000
DW $0000
DW $0000
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02132C ADRL L021330
L021330 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
ASC 'SW'
DB $00
DB $00
DB $00
DB $00
L02133C DW $0000
L02133E DW $0000
L021340 TSC
STA L02166F
STZ L024102
PEA ^L024F32
PEA L024F32
PLA
STA L021619
PLA
STA L021619+2
JSL GSOS
DW $2010 ; Open
ADRL L02162F
BCC L021374
CMP #$0046
BNE L021369
LDA #$0044
L021369 JSL L030000
LDA #$FFFF
STA L0240DC
RTS
L021374 LDA L021631
STA L021639
STA L02166D
L02137D LDA #$0020
STA L021649
JSL GSOS
DW $201C ; GetDirEntry
ADRL L021637
BCC L0213B3
CMP #$0061
BEQ L02139F
L021394 LDX #$2FFF
JSL L027D42
LDA L02166F
TCS
L02139F JSL GSOS
DW $2014 ; Close
ADRL L02166B
LDX #$2F02
JSL L027D42
BRL L021557
L0213B3 LDA L021647
CMP #$00BC
BNE L02137D
LDA L02164B
INC
INC
STA L021649
LDA #$3A36
STA L02164B
PEA $0000
PEA $0003
PEA $0000
PEA $0000
PEA ^L021649
PEA L021649
_OpenResourceFile
PLY
BCC L0213E8
LDY #$0000
L0213E8 STY L02439A
LDA L021649
XBA
STA L021649
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $1000
PEA ^L02164A
PEA L02164A
PEA $FFFF
_InitialLoad
TAY
PLA
STA L02161D
PLA
STA L021621
PLA
STA L021621+2
PLA
PLA
BCC L021439
PHY
PEA $0000
LDA L02161D
PHA
_UserShutDown
PLA
PLA
BRL L021394
L021439 LDA #$0003
STA L02438A
STZ L02437E
L021442 STZ L02437E+2
PHB
PEA ^L02434C
PEA L02434C
PHK
PEA L021462
SEP #$20
LDA L021621+2
PHA
PHA
REP #$20
SEC
LDA L021621
SBC #$0001
PLB
PHA
L021462 RTL
PLX
PLY
CPX #L02434C
BNE L02146F
CPY #^L02434C
BEQ L021471
L02146F PHY
PHX
L021471 PLB
LDA L02437E
ORA L02437E+2
BEQ L02147D
LDA #$FFFF
L02147D STA L02162D
PHA
LDA L02437A
ORA L02437A+2
BNE L0214B9
LDA #$8000
STA L024108
LDX #$0080
LDA L02161D
STA L0246BF,X
LDX #$0100
LDA L021621
STA L024849,X
LDA L021621+2
STA L02484B,X
PLA
BEQ L0214B6
LDA L02437E
STA L024E2E,X
LDA L02437E+2
STA L024E30,X
L0214B6 BRL L02137D
L0214B9 PLA
JSR L021588
L0214BD LDA L024102
BEQ L0214D3
ASL
TAX
L0214C4 DEX
DEX
BMI L0214D3
LDA L025732,X
CMP L024382
BNE L0214C4
BRL L02154C
L0214D3 LDA L024102
ASL
TAX
LDA L02161D
STA L0246BF,X
STZ L02161D
CLC
LDA L024102
ADC #$1000
STA L0258FE,X
INC L024102
LDA L024382
STA L025732,X
TXA
ASL
TAX
LDA L021621
STA L024849,X
LDA L021621+2
STA L02484B,X
PHX
LDA L02437A+2
PHA
LDA L02437A
PHA
LDA L021619+2
PHA
LDA L021619
PHA
PEA $0000
PEA $0020
_BlockMove
CLC
LDA L021619
ADC #$0020
STA L021619
LDA L021619
ADC #$0000
STA L021619
PLX
LDA L02162D
STA L024E2E,X
STA L024E30,X
BEQ L02154C
LDA L02437E
STA L024E2E,X
LDA L02437E+2
STA L024E30,X
L02154C JSR L0215C9
BEQ L021554
BRL L0214BD
L021554 BRL L02137D
L021557 PEA ^L030067
PEA L030067
PEA $0000
PEA $0004
LDA #$0000
PHA
LDA L024102
PHA
PEA ^L0257FE
PEA L0257FE
JSL L02C4BA
LDA L024102
ASL
ASL
TAX
LDA #$0000
STA L0257FE,X
STA L025800,X
STZ L024382
RTS
L021588 STA L021617
LDA L024382
BEQ L02159B
LDA #$0000
STA $00
STA $02
STA L021613
RTS
L02159B LDA L02437A
STA $00
LDA L02437A+2
STA $02
LDA [$00]
STA L021613
STZ L021615
CLC
LDA $00
ADC #$0002
STA $00
LDA $02
ADC #$0000
STA $02
LDA L02437E
STA $04
LDA L02437E+2
STA $06
LDY #$0000
L0215C9 LDA L021613
BEQ L021612
DEC L021613
LDA [$00]
STA L024382
CLC
LDA $00
ADC #$0002
STA L02437A
LDA $02
ADC #$0000
STA L02437A+2
CLC
LDA $00
ADC #$0022
STA $00
LDA $02
ADC #$0000
STA $02
LDA L021617
BEQ L02160F
LDY L021615
LDA [$04],Y
STA L02437E
INY
INY
LDA [$04],Y
STA L02437E+2
INY
INY
STY L021615
L02160F LDA #$FFFF
L021612 RTS
L021613 DW $0000
L021615 DW $0000
L021617 DW $0000
L021619 ADRL $00000000
L02161D ADRL $00000000
L021621 ADRL $00000000
ADRL $00000000
DB $00
DB $00
DB $00
DB $00
L02162D DB $00
DB $00
L02162F DW $0002 ; Parms for Open
L021631 DW $0000 ; ref num
ADRL L02424B ; path name
L021637 DW $0007 ; Parms for GetDirEntry
L021639 DW $0000 ; ref num
DW $0000 ; flags
DW $0001 ; base
DW $0001 ; displacement
ADRL L021649 ; file name
DW $0000 ; entry num
L021647 DW $0000 ; file type
L021649 DB $20
L02164A DB $00
L02164B DS $20
L02166B DW $0001 ; Parms for Close
L02166D DW $0000 ; ref num
L02166F DW $0000
DW $01FC
DS $01FC
L02186F DS $40
L0218AF DB $00
L0218B0 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0218C1 DB $00
DB $00
L0218C3 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0218D4 STR 'Hide "'
L0218DB DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0218EC STR 'Show "'
L0218F3 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L021904 DS $20
L021924 DS $20
L021944 DS $20
L021964 DS $100
L021A64 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
ADRL L021A78
DB $00
DB $00
ADRL L021A9A
L021A78 DW $0020
L021A7A DS $20
L021A9A DW $0100
L021A9C DS $100
L021B9C DW $00FA
DW $00FB
DW $00FC
DW $00FD
DW $00FE
DW $0000
L021BA8 DW $0103
DW $0104
DW $010E
DW $0000
L021BB0 DW $0105
DW $0106
DW $0107
DW $010B
DW $0114
DW $0115
DW $011B
DW $010A
DW $0118
DW $0119
DW $011A
DW $0000
DW $00FF
DW $0109
DW $010C
DW $010D
DW $0000
L021BD2 DW $0100
DW $0102
DW $0113
DW $0101
DW $0117
DW $0108
DW $0000
L021BE0 DW $000A ; pCount
ADRL $00000001 ; ID
DW $0002 ; rect
DW $0005
DW $0000
DW $0000
ADRL $87000000 ; procRef
DW $0040 ; flag
DW $1000 ; moreFlags
ADRL $00000000 ; refCon
DW $0000 ; titleWidth
ADRL L0257F4 ; menuRef
ADRL $00001000 ; colorTableRef
DW $0000
L021C06 DW $000A ; pCount
ADRL $00000002 ; ID
DW $0002 ; rect
DW $00F0
DW $0000
DW $0000
ADRL $87000000 ; procRef
DW $0040 ; flag
DW $1002 ; moreFlags
ADRL $00000000 ; refCon
DW $0000 ; titleWidth
ADRL $00000190 ; menuRef
ADRL $00000191 ; colorTableRef
DB $00
DB $00
L021C2C DB $91
DB $01
L021C2E DW $0050
DW $C0A0 ; frame bits
ADRL $00000000 ; title ptr
ADRL L021C88 ; refcon
DW $0000 ; zoom rect
DW $0000
DW $0000
DW $0000
ADRL L021C7E ; color table ptr
DW $0000 ; origin
DW $0000
DW $0000 ; data size
DW $0000
DW $0000 ; max size
DW $0000
DW $0000 ; scroll size
DW $0000
DW $0000 ; page size
DW $0000
ADRL $00000000 ; info bar refcon
DW $0000 ; info bar hite
ADRL $00000000 ; window defproc
ADRL $00000000 ; info bar defproc
ADRL $00000000 ; content defproc
DW $0028 ; content rect
DW $0050
DW $007B
DW $0230
ADRL $FFFFFFFF ; starting plane
ADRL $00000000 ; storage ptr
DB $00
DB $00
L021C7E DB $00
DB $00
DB $00
DB $0F
DB $0F
DB $02
DB $00
DB $00
DB $F0
DB $00
L021C88 ADRL L021C8C
L021C8C DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
ASC 'RW'
DB $00
DB $00
DB $00
DB $00
L021C98 ADRL L024118
ADRL L0257BA
ADRL L021BE0
ADRL L021C06
ADRL $00000000
L021CAC STR 'New file name:'
L021CBB STR 'Select file to edit...'
L021CD2 STR 'Source file name:'
L021CE4 STR 'Equate file name:'
L021CF6 STR 'Select file to import...'
L021D0F STR 'Export file name:'
L021D21 DB $00
DB $00
L021D23 DB $00
DB $00
L021D25 DB $1E
DB $00
DB $B4
DB $00
DB $3C
DB $00
DB $CC
DB $01
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
ADRL L021D3B
DB $00
DB $00
DB $00
DB $00
L021D3B DB $03
DB $00
DB $0A
DB $00
DB $0A
DB $00
DB $14
DB $00
DB $0E
DB $01
DB $0F
DB $80
ADRL L021D53
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L021D53 STR 'Saving ^3...'
L021D60 DB $1E
DB $00
DB $B4
DB $00
DB $3C
DB $00
DB $CC
DB $01
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
ADRL L021D76
DB $00
DB $00
DB $00
DB $00
L021D76 DB $03
DB $00
DB $0A
DB $00
DB $0A
DB $00
DB $14
DB $00
DB $0E
DB $01
DB $0F
DB $80
ADRL L021D8E
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L021D8E STR 'Restoring ^3...'
L021D9E DB $1E
DB $00
DB $B4
DB $00
DB $3C
DB $00
DB $CC
DB $01
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
ADRL L021DB4
DB $00
DB $00
DB $00
DB $00
L021DB4 DB $03
DB $00
DB $0A
DB $00
DB $0A
DB $00
DB $14
DB $00
DB $0E
DB $01
DB $0F
DB $80
ADRL L021DCC
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L021DCC STR 'Saving the clipboard...'
L021DE4 ADRL $00000000
DS $104 ; AV 202010 - Lost space?
L021EEC ADRL $00000000
L021EF0 STR 'Ok'
L021EF3 DW $0050
DW $2000 ; frame bits
ADRL $00000000 ; title ptr
ADRL $00000000 ; refcon
DW $0000 ; zoom rect
DW $0000
DW $0000
DW $0000
ADRL $00000000 ; color table ptr
DW $0000 ; origin
DW $0000
DW $0000 ; data size
DW $0000
DW $0000 ; max size
DW $0000
DW $0000 ; scroll size
DW $0000
DW $0000 ; page size
DW $0000
ADRL $00000000 ; info bar refcon
DW $0000 ; info bar hite
ADRL $00000000 ; window defproc
ADRL $00000000 ; info bar defproc
ADRL L026AB5 ; content defproc
DW $0036 ; content rect
DW $00D2
DW $00A0
DW $01AE
ADRL $FFFFFFFF ; starting plane
ADRL L021F43 ; storage ptr
DB $03
DB $00
L021F43 ADRL L021F53
ADRL L021F7B
ADRL L021FA9
DB $00
DB $00
DB $00
DB $00
L021F53 DW $0009 ; pCount
ADRL $00000001 ; ID
DW $0057 ; rect
DW $0041
DW $0064
DW $009B
ADRL $80000000 ; procRef
DW $0001 ; flag
DW $3000 ; moreFlags
ADRL $00000000 ; refCon
ADRL L021EF0 ; titleRef
ADRL $00000000 ; colorTableRef
ASC 0D ; keyequivalent
ASC 0D ; 2nd key equivalent
DW $0000 ; keyModifiers
DW $0000 ; keyCareBits
L021F7B DW $000E ; pCount
ADRL $00000002 ; ID
DW $0012 ; rect
DW $000A
DW $0050
DW $00BA
ADRL $89000000 ; procRef
DW $0000 ; flag
DW $1400 ; moreFlags
ADRL $00000000 ; refCon
DW $000E ; listSize
DW $0006 ; listView
DW $0002 ; listType
DW $0001 ; listStart
ADRL $00000000 ; listDraw
DW $000A ; listMemHeight
DW $0007 ; listMemSize
ADRL L021FE4 ; listRef
L021FA9 DW $0009 ; pCount
ADRL $00000003 ; ID
DW $0004 ; rect
DW $000A
DW $000E
DW $00C1
ADRL $81000000 ; procRef
DW $0000 ; flag
DW $1000 ; moreFlags
ADRL $00000000 ; refCon
ADRL L021FCB ; textRef
DW $0019 ; textSize
DB $00
DB $00
L021FCB ASC 'Select language format...'
L021FE4 ADR L022046
DB $00
DB $00
DB $FE
DB $00
ADR L02205B
DB $00
DB $00
DB $03
DB $00
ADR L02206D
DB $00
DB $00
DB $0A
DB $00
ADR L022073
DB $00
DB $00
DB $15
DB $00
ADR L02207B
DB $00
DB $00
DB $9E
DB $00
ADR L022091
DB $00
DB $00
DB $83
DB $00
ADR L02209A
DB $00
DB $00
DB $FF
DB $00
ADR L0220A4
DB $00
DB $20
DB $90
DB $00
ADR L0220B0
DB $00
DB $20
DB $91
DB $00
ADR L0220BC
DB $00
DB $20
DB $80
DB $00
ADR L0220CF
DB $00
DB $20
DB $81
DB $00
ADR L0220DA
DB $00
DB $20
DB $82
DB $00
ADR L0220EA
DB $00
DB $00
DB $08
DB $00
ADR L0220F1
DB $00
DB $00
DB $05
DB $00
L022046 STR 'Resource info report'
L02205B STR 'APW/ORCA ASM65816'
L02206D STR 'APW C'
L022073 STR 'APW Rez'
L02207B STR 'Complete (TML) Pascal'
L022091 STR 'Lisa 816'
L02209A STR 'Merlin 16'
L0220A4 STR 'Micol BASIC'
L0220B0 STR 'Micol MACRO'
L0220BC STR 'MPW IIgs Assembler'
L0220CF STR 'MPW IIgs C'
L0220DA STR 'MPW IIgs Pascal'
L0220EA STR 'ORCA C'
L0220F1 STR 'ORCA Pascal'
L0220FD ENT
DB $00
DB $00
DB $14
DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $60
DB $02
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
DB $20
DB $00
DB $0C
DB $00
DB $00
DB $00
DB $30
DB $75
DB $00
DB $08
DB $00
DB $00
DB $FF
DB $FF
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
L02212F TSC
SEC
SBC #$0012
TCS
PHD
TCD
LDA #$0002
STA L0257B2
STA L0257EC
LDA #$0003
STA L0257EE
PEA ^L024D2D
PEA L024D2D
PEA ^L0257F0
PEA L0257F0
PLA
STA $01
PLA
STA $03
L022158 PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA $2009
PEA ^L0257EC
PEA L0257EC
JSL L02C243
PEA $B002
JSL L02CA27
PHA
JSL L027CEB
LDA #$0005
STA L0257EE
PEA ^L0243B0
PEA L0243B0
PEA ^L0257B4
PEA L0257B4
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA $2006
PEA ^L0257B2
PEA L0257B2
JSL L02C243
JSL L02CA27
TAX
BNE L0221CC
PEA ^L0243B0
PEA L0243B0
L0221B5 PEA ^L0257F0
PEA L0257F0
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRA L0221E7
L0221CC PEA ^L02414A
PEA L02414A
PEA ^L0257F0
PEA L0257F0
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
L0221E7 PEA $2009
PEA ^L0257EC
PEA L0257EC
JSL L02C243
PEA $B004
JSL L02CA27
PHA
JSL L027CEB
LDA #$0006
STA L0257EE
PEA ^L02424B
PEA L02424B
PEA ^L0257F0
PEA L0257F0
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA $2009
PEA ^L0257EC
PEA L0257EC
JSL L02C243
PEA $B006
JSL L02CA27
PHA
JSL L027CEB
LDA #$0000
STA L024100
STA L0240D8
STZ L0240F0
STZ L0240EE
STZ L0240F4
STZ L0240F2
STZ L0240EC
STZ L0240EA
LDA #$0001
STA L0240DA
PEA ^L02494D
PEA L02494D
PEA ^L0245B2
PEA L0245B2
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA ^L02496D
PEA L02496D
PEA ^L0245B6
PEA L0245B6
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PEA ^L02498D
PEA L02498D
PEA ^L0245BA
PEA L0245BA
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDA #$0000
STA $05
L0222AB LDA $05
BMI L0222B7
CMP #$0040
BCC L0222B7
BRL L0223A5
L0222B7 LDA $05
LDX #$000E
JSL L02DDD6
CLC
ADC #L0249AD
PEA ^L0249AD
PHA
LDA $05
ASL
ASL
CLC
ADC #L0257FE
PEA ^L0257FE
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
LDA $05
LDX #$000E
JSL L02DDD6
CLC
ADC #L0249AD
PEA ^L0249AD
PHA
LDA $05
LDX #$000E
JSL L02DDD6
CLC
ADC #L0249AD
PEA ^L0249AD
CLC
ADC #$0004
PHA
LDA $05
LDX #$000E
JSL L02DDD6
CLC
ADC #L0249AD
PEA ^L0249AD
CLC
ADC #$0006
PHA
LDA $05
LDX #$000E
JSL L02DDD6
CLC
ADC #L0249AD
PEA ^L0249AD
CLC
ADC #$0008
PHA
LDA $05
ASL
TAX
LDA #$0000
STA L0246BF,X
PLX
STX $01
PLX
STX $03
STA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
LDA $05
LDX #$000E
JSL L02DDD6
PHA
LDA $05
CLC
ADC #$1000
PLX
STA L0249AF,X
LDA $05
ASL
ASL
ASL
ASL
ASL
CLC
ADC #L024F32
PEA ^L024F32
PHA
LDA $05
LDX #$000E
JSL L02DDD6
CLC
ADC #L0249AD
PEA ^L0249AD
CLC
ADC #$000A
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
INC $05
BRL L0222AB
L0223A5 LDA #$0000
STA L024108
STA L0240D2
STZ L0240D0
STZ L0240CE
PEA ^L0276F1
PEA L0276F1
PEA ^L0243A2
PEA L0243A2
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA ^L02A8F1
PEA L02A8F1
PEA ^L0243A6
PEA L0243A6
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PEA ^L030108
PEA L030108
PLA
STA $07
PLA
STA $09
PEA $0000
PEA $005C
PEI $09
PEI $07
PEA $0000
PEA $0008
JSL L02DCF2
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PEA ^L0243AA
PEA L0243AA
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PLD
TSC
CLC
ADC #$0012
TCS
RTL
L02242F TSC
SEC
SBC #$0006
TCS
PHD
TCD
JSL L022467
PEA $0000
JSL L02333E
PEA $FFFF
LDA L0240C6
PHA
JSL L0229B5
PEA $0000
PEA $0000
JSL L023681
LDA #$0000
STA $05
LDY $05
PLD
TSC
CLC
ADC #$0006
TCS
TYA
RTL
L022467 TSC
SEC
SBC #$0018
TCS
PHD
TCD
_WaitCursor
LDA L0240D6
PHA
_SetCurResourceFile
PEA $B302
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $09
PEA $B303
JSL L02CA27
PHA
JSL L027CEB
LDA L0240D2
BNE L0224B8
BRL L0225CD
L0224B8 LDA #$0000
STA $0B
STA $0F
L0224BF LDX L0240D0
LDA L0240CE
PHX
PHA
LDA $0B
LDX #$0000
TAY
BPL L0224D0
DEX
L0224D0 PHX
PHA
JSL L02D6DE
BNE L0224DB
BRL L022578
L0224DB LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L02250D
DEX
L02250D CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0004
LDA [$01],Y
AND #$00FF
CMP #$0080
BNE L022573
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L02255C
DEX
L02255C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0005
LDA [$01],Y
STA $0F
L022573 INC $0B
BRL L0224BF
L022578 LDX L0240CA
LDA L0240C8
PHX
PHA
JSL L02C20F
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
JSL L02C20F
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
L0225CD PHA
_CountTypes
PLA
STA L0240D2
BNE L0225E1
BRL L0228D4
L0225E1 LDA L0240D2
PEA $0000
PHA
PEA $0000
PEA $0005
JSL L02DCF2
PLA
STA $11
PLA
STA $13
PHA
PHA
LDX $13
LDA $11
PHX
PHA
LDA L02410E
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $15
PLA
STA $17
PEA $B307
JSL L02CA27
PHA
JSL L027CEB
LDX $17
LDA $15
PHX
PHA
_HLock
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STX L0240CA
STA L0240C8
LDA L0240D2
PEA $0000
PHA
PEA $0000
PEA $0007
JSL L02DBC3
PLA
STA $11
PLA
STA $13
PHA
PHA
LDX $13
LDA $11
PHX
PHA
LDA L02410E
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $15
PLA
STA $17
PEA $B309
JSL L02CA27
PHA
JSL L027CEB
LDX $17
LDA $15
PHX
PHA
_HLock
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
L0226A8 LDX L024106
LDA L024104
STA $01
STX $03
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDA L024104
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
CLC
L0226D3 ADC #$001E
STA $01
STX $03
LDA L0240D2
STA [$01]
LDX L0240CA
LDA L0240C8
STX $07
STA $05
LDA #$0000
STA $0B
L0226EE LDA L0240D2
CMP $0B
BEQ L0226F7
BCS L0226FA
L0226F7 BRL L0228D1
L0226FA PHA
LDA $0B
INC
PHA
_GetIndType
PLA
STA $0D
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L02273E
DEX
L02273E CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
STA $01
PLA
STA $03
LDA $05
STA [$01]
LDY #$0002
LDA $07
STA [$01],Y
LDX L024106
LDA L024104
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L022788
DEX
L022788 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0004
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L0227D6
DEX
L0227D6 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0005
PLX
STA $01
STX $03
LDA $0D
STA [$01]
LDA $0F
CMP #$0000
BEQ L022854
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L022827
DEX
L022827 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0005
LDA [$01],Y
PHA
LDA $0F
SEC
SBC $01,S
PLX
TAX
BEQ L022849
LDA #$0001
L022849 EOR #$0001
CMP #$0000
BEQ L022854
LDA #$0001
L022854 TAX
BEQ L0228A5
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0B
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L022889
DEX
L022889 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0004
PLX
STA $01
STX $03
SEP #$20
LDA #$80
STA [$01]
REP #$20
L0228A5 PEA $0000
PEI $0D
JSL L02597E
PHX
PHA
JSL L02C395
PHX
PHA
LDX $07
LDA $05
PHX
PHA
JSL L02BF46
CLC
LDA $05
ADC #$0020
STA $05
BCC L0228CC
INC $07
L0228CC INC $0B
BRL L0226EE
L0228D1 BRL L02299F
L0228D4 LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L022902
DEY
L022902 TXA
CMP $03,S
BEQ L02290A
LDY #$0000
L02290A PLA
PLA
TYA
BNE L022942
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
JSL L02C20F
LDX L0240CA
LDA L0240C8
PHX
PHA
JSL L02C20F
L022942 LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
LDA L024104
STA $01
STX $03
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$001E
PHA
LDA L024104
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0012
STA $01
STX $03
LDA #$0000
STA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
STA L0240D2
STZ L0240D0
STZ L0240CE
L02299F JSL L0202F5
_InitCursor
PLD
TSC
CLC
ADC #$0018
TCS
RTL
L0229B5 TSC
SEC
SBC #$0026
TCS
PHD
TCD
_WaitCursor
LDA L0240D6
PHA
_SetCurResourceFile
PEA $B402
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0D
PEA $B403
JSL L02CA27
PHA
JSL L027CEB
LDA L0240CE
ORA L0240D0
BNE L022A09
BRL L022B28
L022A09 LDA #$0000
STA $0F
STA $1B
STA $1D
L022A12 LDX L0240D0
LDA L0240CE
PHX
PHA
LDA $0F
LDX #$0000
TAY
BPL L022A23
DEX
L022A23 PHX
PHA
JSL L02D6DE
BNE L022A2E
BRL L022AD3
L022A2E LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022A60
DEX
L022A60 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0004
LDA [$01],Y
AND #$00FF
CMP #$0080
BNE L022ACE
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022AAF
DEX
L022AAF CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
STX $1D
STA $1B
L022ACE INC $0F
BRL L022A12
L022AD3 LDX L02410C
LDA L02410A
PHX
PHA
JSL L02C20F
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
JSL L02C20F
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
L022B28 LDA $2A
LDX #$0000
STX $01
ORA $01
BEQ L022B56
PHA
PHA
PEI $2A
_CountResources
LDA $01,S
STA L0240CE
LDA $03,S
STA L0240D0
PLA
STA $01
PLA
ORA $01
BEQ L022B56
LDA #$0001
L022B56 BNE L022B5B
BRL L023254
L022B5B LDX L0240D0
LDA L0240CE
PHX
PHA
PEA $0000
PEA $0006
JSL L02DCF2
PLA
STA $1F
PLA
STA $21
PHA
PHA
LDX $21
LDA $1F
PHX
PHA
LDA L02410E
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $23
PLA
STA $25
PEA $B407
JSL L02CA27
PHA
JSL L027CEB
LDX $25
LDA $23
PHX
PHA
_HLock
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STX L02410C
STA L02410A
LDX L0240D0
LDA L0240CE
PHX
PHA
PEA $0000
PEA $000B
JSL L02DBC3
PLA
STA $1F
PLA
STA $21
PHA
PHA
LDX $21
LDA $1F
PHX
PHA
LDA L02410E
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $23
PLA
STA $25
PEA $B409
JSL L02CA27
PHA
JSL L027CEB
LDX $25
LDA $23
PHX
PHA
_HLock
LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$001E
STA $01
STX $03
LDX L0240D0
LDA L0240CE
STA [$01]
LDX L02410C
LDA L02410A
STX $07
STA $05
LDA #$0000
STA $15
STA $0F
L022C6F LDX L0240D0
LDA L0240CE
SEC
SBC $0F
BEQ L022C81
BVS L022C7F
EOR #$8000
L022C7F BMI L022C84
L022C81 BRL L023247
L022C84 PHA
PHA
PEI $2A
LDA $0F
LDX #$0000
TAY
BPL L022C91
DEX
L022C91 PHX
CLC
ADC #$0001
PHA
_GetIndResource
PLA
STA $17
PLA
STA $19
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022CD9
DEX
L022CD9 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
STA $01
PLA
STA $03
LDA $05
STA [$01]
LDY #$0002
LDA $07
STA [$01],Y
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022D23
DEX
L022D23 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0004
PLX
STA $01
STX $03
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022D71
DEX
L022D71 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0005
STA $01
PLA
STA $03
LDA $17
STA [$01]
LDY #$0002
LDA $19
STA [$01],Y
LDX $1D
LDA $1B
STX $01
ORA $01
BEQ L022E01
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022DC9
DEX
L022DC9 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
LDY #$0000
CMP $1B
BNE L022DED
CPX $1D
L022DED BNE L022DF0
INY
L022DF0 TYA
LDX #$0000
TAY
BPL L022DF8
DEX
L022DF8 STX $01
ORA $01
BEQ L022E01
LDA #$0001
L022E01 BEQ L022E51
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022E35
DEX
L022E35 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0004
PLX
STA $01
STX $03
SEP #$20
LDA #$80
STA [$01]
REP #$20
L022E51 PEA $0000
LDX $19
LDA $17
PHX
PHA
PEI $2A
JSL L025A27
PHX
PHA
JSL L02C395
STX $0B
STA $09
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022E9C
DEX
L022E9C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0009
PLX
STA $01
STX $03
LDA L025C94
STA [$01]
LDA [$09]
AND #$00FF
BMI L022EC1
CMP #$0040
BCS L022EC3
L022EC1 BRA L022ECB
L022EC3 SEP #$20
LDA #$3F
STA [$09]
REP #$20
L022ECB LDX $0B
LDA $09
PHX
PHA
LDX $07
LDA $05
PHX
PHA
JSL L02BF46
CLC
LDA $05
ADC #$0040
STA $05
BCC L022EE7
INC $07
L022EE7 LDA $2C
LDX #$0000
CMP #$0000
BEQ L022EF2
INX
L022EF2 TXA
CMP #$0000
BEQ L022F0D
LDA L025C94
LDX #$0000
CMP #$0000
BEQ L022F04
INX
L022F04 TXA
CMP #$0000
BEQ L022F0D
LDA #$0001
L022F0D TAX
BNE L022F13
BRL L023242
L022F13 LDA #$0000
STA $11
L022F18 LDA $0F
LDX #$0000
CMP #$0000
BEQ L022F23
INX
L022F23 TXA
CMP #$0000
BEQ L022F44
LDA $0F
LDX #$0001
SEC
SBC $11
BEQ L022F3A
BVS L022F38
EOR #$8000
L022F38 BMI L022F3B
L022F3A DEX
L022F3B TXA
CMP #$0000
BEQ L022F44
LDA #$0001
L022F44 TAX
BNE L022F4A
BRL L023242
L022F4A LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $11
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022F7C
DEX
L022F7C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0009
LDA [$01],Y
BNE L022F96
BRL L02323D
L022F96 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $11
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L022FC8
DEX
L022FC8 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L023011
DEX
L023011 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L02BF98
TAX
BEQ L023035
BRL L02323D
L023035 PEA $0000
PEI $2A
JSL L02597E
PHX
PHA
PEA ^L02494D
PEA L02494D
JSL L02C78E
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L02307C
DEX
L02307C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L02C440
PHX
PHA
PEA ^L02494D
PEA L02494D
LDA #$0020
CLC
ADC $01,S
STA $01,S
JSL L02C78E
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L0230E0
DEX
L0230E0 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
PHX
PHA
PEA $0001
PEI $2A
JSL L02597E
PHX
PHA
PEA ^L023334
PEA L023334
PEA ^L02494D
PEA L02494D
LDA #$0040
CLC
ADC $01,S
STA $01,S
JSL L02C68C
PEA ^L02494D
PEA L02494D
LDA #$0040
CLC
ADC $01,S
STA $01,S
JSL L02C395
PHX
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L023166
DEX
L023166 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L02BF46
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L0231B6
DEX
L0231B6 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0009
PLX
STA $01
STX $03
LDA #$0000
STA [$01]
INC $15
JSL L0202F5
_InitCursor
PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0011
_AlertWindow
PLA
STA $13
_WaitCursor
LDA L0240D6
PHA
_SetCurResourceFile
PEA $B410
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0D
PEA $B411
JSL L02CA27
PHA
JSL L027CEB
L02323D INC $11
BRL L022F18
L023242 INC $0F
BRL L022C6F
L023247 LDA $15
BEQ L023251
PEI $2A
JSL L023D5F
L023251 BRL L023316
L023254 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L023282
DEY
L023282 TXA
CMP $03,S
BEQ L02328A
LDY #$0000
L02328A PLA
PLA
TYA
BNE L0232C2
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
JSL L02C20F
LDX L02410C
LDA L02410A
PHX
PHA
JSL L02C20F
L0232C2 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$001E
PHA
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0012
STA $01
STX $03
LDA #$0000
STA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
L023316 JSL L0202F5
_InitCursor
LDA $28
STA $2C
LDA $27
STA $2B
PLD
TSC
CLC
ADC #$002A
TCS
RTL
L023334 ASC '%s_%0.8lX'00
MX %00
L02333E TSC
SEC
SBC #$000E
TCS
PHD
TCD
PHA
PHA
_GetPort
PLA
STA $0B
PLA
STA $0D
LDX L0240F4
LDA L0240F2
PHX
PHA
_SetPort
LDA #$0000
STA L0240C6
LDA L0240D2
LDX #$0000
CMP #$0000
BNE L02337C
INX
L02337C TXA
BNE L023384
LDA #$0001
BRA L023387
L023384 LDA #$0000
L023387 STA $09
PEA $0000
PEA $0000
PEI $09
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
PEA $0000
LDA L0240D2
PHA
LDX L024106
LDA L024104
PHX
PHA
_NewList2
PEA $B102
JSL L02CA27
PHA
JSL L027CEB
LDA $09
BNE L0233E0
BRL L023661
L0233E0 PEA $0000
PEA $0000
LDX L024106
LDA L024104
PHX
PHA
_SortList2
PEA $B104
JSL L02CA27
PHA
JSL L027CEB
LDA #$0001
STA $07
LDA $12
BEQ L023464
L02340D LDA L0240D2
CMP $07
BCC L023464
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $07
DEC
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L023447
DEX
L023447 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0005
LDA [$01],Y
CMP $12
BEQ L023464
INC $07
BRA L02340D
L023464 LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
PHA
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001C
LDA [$01],Y
PLY
STY $01
CMP $01
BCC L0234AA
LDA #$0001
STA $09
BRL L023535
L0234AA LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001C
LDA [$01],Y
PHA
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
SEC
SBC $01,S
PLX
STA $01
LDA $07
CMP $01
BEQ L0234EF
BCS L0234F1
L0234EF BRA L023531
L0234F1 LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001C
LDA [$01],Y
PHA
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
SEC
SBC $01,S
PLX
INC
STA $09
BRA L023535
L023531 LDA $07
STA $09
L023535 LDA #$0001
STA $05
L02353A LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
CMP $05
BCC L0235C6
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $05
DEC
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L02358C
DEX
L02358C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0004
PLX
STA $01
STX $03
PEI $07
LDA $05
SEC
SBC $01,S
PLX
TAX
BEQ L0235AE
LDA #$0001
L0235AE EOR #$0001
BNE L0235B8
LDA #$0000
BRA L0235BB
L0235B8 LDA #$0080
L0235BB SEP #$20
STA [$01]
REP #$20
INC $05
BRL L02353A
L0235C6 PEA $0000
PEA $0000
PEI $09
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
PEA $0000
LDA L0240D2
PHA
LDX L024106
LDA L024104
PHX
PHA
_NewList2
PEA $B106
JSL L02CA27
PHA
JSL L027CEB
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $07
DEC
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L023649
DEX
L023649 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0005
LDA [$01],Y
STA L0240C6
L023661 LDX $0D
LDA $0B
PHX
PHA
_SetPort
LDA $10
STA $12
LDA $0F
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L023681 TSC
SEC
SBC #$000E
TCS
PHD
TCD
PHA
PHA
_GetPort
PLA
STA $0B
PLA
STA $0D
LDX L0240F4
LDA L0240F2
PHX
PHA
_SetPort
STZ L0240DE+2
STZ L0240DE
LDY #$0000
LDA L0240CE
ORA L0240D0
BNE L0236BF
INY
L0236BF TYA
BNE L0236C7
LDA #$0001
BRA L0236CA
L0236C7 LDA #$0000
L0236CA STA $09
PEA $0000
PEA $0000
PEI $09
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
PEA $0000
LDX L0240D0
LDA L0240CE
PHA
LDX L0240FE
LDA L0240FC
PHX
PHA
_NewList2
PEA $B202
JSL L02CA27
PHA
JSL L027CEB
LDA $09
BNE L023726
BRL L0239C8
L023726 PEA $0000
PEA $0000
LDX L0240FE
LDA L0240FC
PHX
PHA
_SortList2
PEA $B204
JSL L02CA27
PHA
JSL L027CEB
LDA #$0001
STA $07
LDA $12
ORA $14
BEQ L0237BF
L023755 LDX L0240D0
LDA L0240CE
SEC
SBC $07
BVS L023763
EOR #$8000
L023763 BPL L0237BF
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $07
DEC
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L023798
DEX
L023798 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
CMP $12
BNE L0237B9
CPX $14
L0237B9 BEQ L0237BF
INC $07
BRA L023755
L0237BF LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001C
LDA [$01],Y
PLY
STY $01
CMP $01
BCC L023805
LDA #$0001
STA $09
BRL L023890
L023805 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001C
LDA [$01],Y
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
SEC
SBC $01,S
PLX
STA $01
LDA $07
CMP $01
BEQ L02384A
BCS L02384C
L02384A BRA L02388C
L02384C LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001C
LDA [$01],Y
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
SEC
SBC $01,S
PLX
INC
STA $09
BRA L023890
L02388C LDA $07
STA $09
L023890 LDA #$0001
STA $05
L023895 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
CMP $05
BCC L023921
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $05
DEC
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L0238E7
DEX
L0238E7 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0004
PLX
STA $01
STX $03
PEI $07
LDA $05
SEC
SBC $01,S
PLX
TAX
BEQ L023909
LDA #$0001
L023909 EOR #$0001
BNE L023913
LDA #$0000
BRA L023916
L023913 LDA #$0080
L023916 SEP #$20
STA [$01]
REP #$20
INC $05
BRL L023895
L023921 PEA $0000
PEA $0000
PEI $09
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
TAX
LDY #$0030
LDA [$01],Y
PHX
PHA
PEA $0000
LDX L0240D0
LDA L0240CE
PHA
LDX L0240FE
LDA L0240FC
PHX
PHA
_NewList2
PEA $B206
JSL L02CA27
PHA
JSL L027CEB
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $07
DEC
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L0239A7
DEX
L0239A7 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
STX L0240DE+2
STA L0240DE
L0239C8 LDX $0D
LDA $0B
PHX
PHA
_SetPort
LDA $10
STA $14
LDA $0F
STA $13
PLD
TSC
CLC
ADC #$0012
TCS
RTL
L0239E8 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA #$0001
STA $09
LDA L0240D2
BNE L0239FD
BRL L023A94
L0239FD LDA L0240C6
STA $0B
LDA #$0000
STA $07
L023A07 LDA L0240D2
CMP $07
BEQ L023A10
BCS L023A12
L023A10 BRA L023A66
L023A12 LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $07
LDX #$0007
JSL L02DB64
LDX #$0000
TAY
BPL L023A44
DEX
L023A44 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0005
LDA [$01],Y
CMP $10
BNE L023A62
LDA #$0000
STA $09
L023A62 INC $07
BRA L023A07
L023A66 LDA $09
CMP #$0001
BNE L023A79
JSL L022467
PEI $0B
JSL L02333E
BRA L023A92
L023A79 LDA $10
CMP $0B
BNE L023A92
PEA $0000
PEI $10
JSL L0229B5
LDX $14
LDA $12
PHX
PHA
JSL L023681
L023A92 BRA L023A98
L023A94 JSL L02242F
L023A98 LDA #$0000
STA $05
LDA $0E
STA $14
LDA $0D
STA $13
LDY $05
PLD
TSC
CLC
ADC #$0012
TCS
TYA
RTL
L023AB0 TSC
SEC
SBC #$0014
TCS
PHD
TCD
_WaitCursor
LDA L0240C6
STA $0B
LDX L0240DE+2
LDA L0240DE
STX $13
STA $11
LDA L0240D6
PHA
_SetCurResourceFile
PEA $B702
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $07
PEA $B703
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
PEI $18
_CountResources
PLA
STA $0D
PLA
STA $0F
PEA $B704
JSL L02CA27
PHA
JSL L027CEB
JSL L0202F5
_InitCursor
LDA $18
CMP $0B
BNE L023B76
LDA $0D
ORA $0F
BEQ L023B70
PEA $0000
PEI $18
JSL L0229B5
LDX $1C
LDA $1A
LDY #$0000
CMP $11
BNE L023B58
CPX $13
L023B58 BNE L023B5B
INY
L023B5B TYA
BNE L023B64
PEI $13
PEI $11
BRA L023B6A
L023B64 PEA $0000
PEA $0000
L023B6A JSL L023681
BRA L023B74
L023B70 JSL L02242F
L023B74 BRA L023B9F
L023B76 LDA $0D
ORA $0F
BNE L023B9F
JSL L022467
PEI $18
LDA $0B
SEC
SBC $01,S
PLX
TAX
BEQ L023B8E
LDA #$0001
L023B8E EOR #$0001
BNE L023B97
LDA $0B
BRA L023B9A
L023B97 LDA #$0000
L023B9A PHA
JSL L02333E
L023B9F LDA #$0000
STA $05
LDA $16
STA $1C
LDA $15
STA $1B
LDY $05
PLD
TSC
CLC
ADC #$001A
TCS
TYA
RTL
L023BB7 TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDA L02410E
PHA
_DisposeAll
JSL L02CA27
TAX
BEQ L023BDE
_SysBeep
L023BDE LDA #$0000
STA L0240D2
STZ L0240D0
STZ L0240CE
LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
PHA
LDA [$01]
CLC
ADC #$0030
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
PLD
TSC
CLC
ADC #$0004
TCS
RTL
L023C33 TSC
SEC
SBC #$0006
TCS
PHD
TCD
LDA L0240D2
BEQ L023C43
LDA #$0001
L023C43 EOR #$0001
BEQ L023C57
LDA #$0000
STA L0240C6
STZ L0240DE+2
STZ L0240DE
BRL L023D4F
L023C57 LDA $0A
BEQ L023C5E
LDA #$0001
L023C5E EOR #$0001
BNE L023C66
BRL L023CE6
L023C66 LDX L024106
LDA L024104
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
PHA
PEA $0000
LDX L024106
LDA L024104
PHX
PHA
_NextMember2
PLA
DEC
LDX #$0007
JSL L02DDD6
CLC
ADC $01,S
STA $01,S
PLA
PLX
STA $01
STX $03
LDY #$0005
LDA [$01],Y
STA $05
PEA $B902
JSL L02CA27
PHA
JSL L027CEB
LDA L0240C6
CMP $05
BEQ L023CE6
LDA $05
STA L0240C6
PEA $0001
LDA L0240C6
PHA
JSL L0229B5
PEA $0000
PEA $0000
JSL L023681
L023CE6 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
PHA
PEA $0000
LDX L0240FE
LDA L0240FC
PHX
PHA
_NextMember2
PLA
DEC
LDX #$000B
JSL L02DDD6
CLC
ADC $01,S
STA $01,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
STX L0240DE+2
STA L0240DE
PEA $B904
JSL L02CA27
PHA
JSL L027CEB
L023D4F LDA $08
STA $0A
LDA $07
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
RTL
L023D5F TSC
SEC
SBC #$002C
TCS
PHD
TCD
LDA #$0000
STA $21
STA $23
PHA
_GetCurResourceFile
PLA
STA $0D
LDA L0240D6
PHA
_SetCurResourceFile
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0B
PHA
PHA
PEI $30
_CountResources
PLA
STA $1D
PLA
STA $1F
PEI $1F
PEI $1D
PEA $0000
PEA $0044
JSL L02DBC3
LDA #$0006
LDX #$0000
TAY
BPL L023DC7
DEX
L023DC7 PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $19
PLA
STA $1B
PHA
PHA
LDX $1B
LDA $19
PHX
PHA
LDA L02410E
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $25
PLA
STA $27
PEA $BA10
JSL L02CA27
PHA
JSL L027CEB
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STX $09
STA $07
PEI $09
PEI $07
LDA #$0006
LDX #$0000
TAY
BPL L023E25
DEX
L023E25 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
STA $07
PLA
STA $09
LDA #$0000
STA $0F
L023E3A PEI $1F
PEI $1D
LDA $0F
LDX #$0000
TAY
BPL L023E47
DEX
L023E47 PHX
PHA
JSL L02D6DE
BNE L023E52
BRL L023F4F
L023E52 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L023E84
DEX
L023E84 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0009
LDA [$01],Y
BNE L023E9E
BRL L023F4A
L023E9E LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L023ED0
DEX
L023ED0 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $0F
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L023F19
DEX
L023F19 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
PHX
PHA
LDX $09
LDA $07
PHX
PHA
JSL L0300C8
STX $09
STA $07
INC $21
BNE L023F4A
INC $23
L023F4A INC $0F
BRL L023E3A
L023F4F LDA $21
ORA $23
BNE L023F68
LDX $27
LDA $25
PHX
PHA
_DisposeHandle
BRL L024091
L023F68 LDA $30
LDX #$0000
CLC
ADC #$0000
STA $11
TXA
ADC #$0001
STA $13
LDX $23
LDA $21
PHX
PHA
LDY #$0002
LDA [$25],Y
PHA
LDA [$25]
CLC
ADC #$0002
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDA [$25],Y
TAX
LDA [$25]
STA $01
STX $03
LDA #$0001
STA [$01]
LDA [$25],Y
TAX
LDA [$25]
PHX
PHA
LDX $09
LDA $07
PHX
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PLA
STA $19
PLA
STA $1B
LDX $1B
LDA $19
PHX
PHA
LDX $27
LDA $25
PHX
PHA
_SetHandleSize
PEA $BA12
JSL L02CA27
PHA
JSL L027CEB
PEA $FFFF
PEA $8014
LDX $13
LDA $11
PHX
PHA
_ReleaseResource
PEA $8014
LDX $13
LDA $11
PHX
PHA
_RemoveResource
LDX $27
LDA $25
PHX
PHA
PEA $0000
PEA $8014
LDX $13
LDA $11
PHX
PHA
_AddResource
PEA $BA20
JSL L02CA27
PHA
JSL L027CEB
PEA $8014
LDX $13
LDA $11
PHX
PHA
_WriteResource
PEA $BA21
JSL L02CA27
PHA
JSL L027CEB
PEA $FFFF
PEA $8014
LDX $13
LDA $11
PHX
PHA
_ReleaseResource
PEA $BA22
JSL L02CA27
PHA
JSL L027CEB
LDA #L024394
STA $29
LDA #^L024394
STA $2B
PEI $2B
PEI $29
LDA [$29]
ORA #$8000
PLX
STX $01
PLX
STX $03
STA [$01]
L024091 PEI $0D
_SetCurResourceFile
PHA
PEI $0B
_SetResourceFileDepth
PLA
STA $0B
LDA #$0000
STA $05
LDA $2E
STA $30
LDA $2D
STA $2F
LDY $05
PLD
TSC
CLC
ADC #$002E
TCS
TYA
RTL
DB $00
L0240C6 DB $00
DB $00
L0240C8 DB $00
DB $00
L0240CA DB $00
DB $00
DB $00
DB $00
L0240CE DB $00
DB $00
L0240D0 DB $00
DB $00
L0240D2 DB $00
DB $00
L0240D4 DB $00
DB $00
L0240D6 DB $00
DB $00
L0240D8 DB $00
DB $00
L0240DA DB $00
DB $00
L0240DC DB $00
DB $00
L0240DE ADRL $00000000
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0240E8 DB $00
DB $00
L0240EA DB $00
DB $00
L0240EC DB $00
DB $00
L0240EE DB $00
DB $00
L0240F0 DB $00
DB $00
L0240F2 DB $00
DB $00
L0240F4 DB $00
DB $00
L0240F6 DB $00
DB $00
L0240F8 DB $00
DB $00
L0240FA DB $00
DB $00
L0240FC DB $00
DB $00
L0240FE DB $00
DB $00
L024100 DB $00
DB $00
L024102 DB $00
DB $00
L024104 DB $00
DB $00
L024106 DB $00
DB $00
L024108 DB $00
DB $00
L02410A DB $00
DB $00
L02410C DB $00
DB $00
L02410E DB $00
DB $00
L024110 DB $00
DB $00
L024112 ENT
DW $0000
L024114 ADRL $000000
L024118 DW $000F ; pCount
ADRL $00000003 ; ID
DW $0011 ; rect
DW $000A
DW $004F
DW $00D2
ADRL $89000000 ; procRef
DW $0000 ; flag
DW $1000 ; moreFlags
ADRL $00000000 ; refCon
DW $0000 ; listSize
DW $0000 ; listView
DW $0002 ; listType
DW $0000 ; listStart
ADRL $00000000 ; listDraw
DW $000A ; listMemHeight
DW $0007 ; listMemSize
ADRL $00000000 ; listRef
ADRL $00000000 ; colorTableRef
*L02414A STRL ':Genesys.2:Gen.Lang'
L02414A STRL '@:Gen.Lang'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02424B STRL '@:Gen.Edit'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
*--- The buffer that is passed to the editor
L02434C DW $0000 ; 00 event code
L02434E ADRL $00000000 ; 02 event message
ADRL $00000000 ; 06 tick count
L024356 DW $0000 ; 0A mouse location
L024358 DW $0000 ; 0C
L02435A DW $0000 ; 0E modifiers
L02435C ADRL $00000000 ; 10 task data
L024360 ADRL $00000000 ; 14 task mask
ADRL $00000000 ; 18
L024368 DW $0000 ; 1C
L02436A ADRL $00000000 ; 1E control to handle
L02436E DW $0000 ; 22
DW $0000 ;
L024372 DW $0000 ; 26 $0001 or $1002 or $1003
DW $0000 ;
DW $0000 ;
DW $0000 ;
L02437A ADRL $00000000 ; 2E source pointer of data to be copied ($20 bytes) (STR 'Version')
L02437E ADRL $00000000 ; 32 another pointer (STR 'VERSIONS_01234567')
L024382 DW $0000 ; 36
L024384 ADRL $00000000 ; 38 window pointer?
L024388 DW $0000 ; 3C memory ID
L02438A DW $0000 ; 3E command
L02438C DW $0000 ; 40 Y-coord
L02438E DW $0000 ; 42 X-coord
DW $0000 ;
DW $0000 ;
L024394 DW $0000 ; 48
L024396 DW $0000 ; 4A TaskMaster result
DW $0000 ;
L02439A DW $0000 ; 4E Resource file ID
L02439C DW $0000 ; 50 Resource type
L02439E ADRL $00000000 ; 52 Resource ID
*--- Perhaps the end of the buffer
L0243A2 ADRL $00000000 ; 56 Routine that shows coordinates
L0243A6 ADRL $00000000 ; 5A Routine that shows the grid?
L0243AA ADRL $00000000 ; 5E Routine that displays the error?
L0243AE DW $0000 ; 60 Resource file ID
L0243B0 STRL '@:Gen.Lang'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0244B1 STRL '3:ScratchFile'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0245B2 DB $00
DB $00
DB $00
DB $00
L0245B6 DB $00
DB $00
DB $00
DB $00
L0245BA DB $00
DB $00
DB $00
DB $00
L0245BE STRL '@:Gen.Data'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0246BF DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L024741 STR ' Add '
DB $00
L024748 STRL '3:DefaultFile'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L024849 DB $00
DB $00
L02484B DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02494D DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02496D DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02498D DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0249AD DB $00
DB $00
L0249AF DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L024D2D STRL '@:Gen.Work'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L024E2E DB $00
DB $00
L024E30 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L024F32 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L025732 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0257B2 DB $00
DB $00
L0257B4 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0257BA DW $000F ; pCount
ADRL $00000004 ; ID
DW $0011 ; rect
DW $00F5
DW $004F
DW $01BD
ADRL $89000000 ; procRef
DW $0000 ; flag
DW $1000 ; moreFlags
ADRL $00000000 ; refCon
DW $0000 ; listSize
DW $0000 ; listView
DW $0002 ; listType
DW $0000 ; listStart
ADRL $00000000 ; listDraw
DW $000A ; listMemHeight
DW $000B ; listMemSize
ADRL $00000000 ; listRef
ADRL $00000000 ; colorTableRef
L0257EC DB $00
DB $00
L0257EE DB $00
DB $00
L0257F0 DB $00
DB $00
DB $00
DB $00
L0257F4 DB $00
DB $00
DB $2C
DB $01
DB $00
DB $00
ADRL L024741
L0257FE DB $00
DB $00
L025800 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0258FE DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02597E TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDA L025C96 ; AV 202010 - number of recognized resources
STA $09
L02598B LDA $09
BMI L0259DE
LDX #$000A
JSL L02DDD6
TAX
LDA L025DCA,X
CMP $0E
BNE L0259DA
LDA $10
LDX #$0000
CMP #$0000
BEQ L0259A9
INX
L0259A9 TXA
BNE L0259C0
LDA $09
LDX #$000A
JSL L02DDD6
TAX
LDY L025DD0+2,X
LDA L025DD0,X
PHY
PHA
BRA L0259D2
L0259C0 LDA $09
LDX #$000A
JSL L02DDD6
TAX
LDY L025DCC+2,X
LDA L025DCC,X
PHY
PHA
L0259D2 PLA
STA $05
PLA
STA $07
BRA L025A12
L0259DA DEC $09
BRA L02598B
L0259DE LDA $10
BEQ L0259F6
PEI $0E
PEA ^L025DB8
PEA L025DB8
PEA ^L025D98
PEA L025D98
JSL L02C68C
BRA L025A08
L0259F6 PEI $0E
PEA ^L025F5A
PEA L025F5A
PEA ^L025D98
PEA L025D98
JSL L02C68C
L025A08 LDA #L025D98
STA $05
LDA #^L025D98
STA $07
L025A12 LDA $0C
STA $10
LDA $0B
STA $0F
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L025A27 ENT
TSC
SEC
SBC #$002C
TCS
PHD
TCD
PHA
_GetCurResourceFile
PLA
STA $0F
LDA L0240D6
PHA
_SetCurResourceFile
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0D
LDA #$FFFF
STA L025C94
SEP #$20
LDA #$00
STA L025C98
REP #$20
LDA $30
LDX #$0000
CLC
ADC #$0000
STA $15
TXA
ADC #$0001
STA $17
PHA
PHA
PEA $8014
LDX $17
LDA $15
PHX
PHA
_LoadResource
PLA
STA $25
PLA
STA $27
JSL L02CA27
STA $11
PEI $0F
_SetCurResourceFile
PHA
PEI $0D
_SetResourceFileDepth
PLA
STA $0D
LDA $11
LDX #$0000
CMP #$0000
BNE L025AC4
INX
L025AC4 TXA
CMP #$0000
BEQ L025AEA
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $01
STX $03
LDA [$01]
LDX #$0000
CMP #$0001
BNE L025AE1
INX
L025AE1 TXA
CMP #$0000
BEQ L025AEA
LDA #$0001
L025AEA TAX
BNE L025AF0
BRL L025C2F
L025AF0 LDY #$0002
LDA [$25],Y
PHA
LDA [$25]
CLC
ADC #$0006
STA $21
PLA
STA $23
LDA [$25],Y
TAX
LDA [$25]
STA $01
STX $03
LDY #$0004
LDA [$01],Y
TAX
LDY #$0002
LDA [$01],Y
STX $1B
STA $19
L025B19 PEI $1B
PEI $19
PEA $0000
PEA $0000
JSL L02D6DE
BNE L025B2C
BRL L025C19
L025B2C LDY #$0004
LDX #$0009
TYA
CLC
ADC $21
STA $00,X
LDA $23
ADC #$0000
STA $02,X
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
CMP $32
BNE L025B4D
CPX $34
L025B4D BEQ L025B52
BRL L025BD9
L025B52 LDA #$0000
STA $11
LDA [$09]
AND #$00FF
STA $13
L025B5E LDA $13
SEC
SBC $11
BEQ L025B6C
BVS L025B6A
EOR #$8000
L025B6A BMI L025B6E
L025B6C BRA L025BCC
L025B6E LDX $11
TXA
CLC
ADC #L025C98
PEA ^L025C98
PHA
INC $09
BNE L025B7F
INC $0B
L025B7F PEI $0B
LDA $09
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
TAX
LDA L02C277,X
AND #$00FF
AND #$0010
CMP #$0000
BEQ L025BB0
LDA $36
LDX #$0000
CMP #$0000
BEQ L025BA7
INX
L025BA7 TXA
CMP #$0000
BEQ L025BB0
LDA #$0001
L025BB0 TAX
BNE L025BBA
LDA [$09]
AND #$00FF
BRA L025BBC
L025BBA LDA $36
L025BBC PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
INC $11
BRA L025B5E
L025BCC LDX $11
SEP #$20
LDA #$00
STA L025C98,X
REP #$20
BRA L025C19
L025BD9 STZ $2B
TDC
CLC
ADC #$0021
STA $29
LDA [$09]
AND #$00FF
CLC
ADC #$0005
LDX #$0000
TAY
BPL L025BF2
DEX
L025BF2 PHX
PHA
LDY #$0002
LDA [$29],Y
PHA
LDA [$29]
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA [$29]
PLA
STA [$29],Y
LDA $19
BNE L025C14
DEC $1B
L025C14 DEC $19
BRL L025B19
L025C19 PEA $FFFF
PEA $8014
LDX $17
LDA $15
PHX
PHA
_ReleaseResource
L025C2F LDA L025C98
AND #$00FF
BNE L025C74
LDA #$0000
STA L025C94
LDX $34
LDA $32
PHX
PHA
LDA $36
LDX #$0000
CMP #$0000
BEQ L025C4E
INX
L025C4E TXA
BNE L025C56
LDA #$005F
BRA L025C58
L025C56 LDA $36
L025C58 PHA
PEA $0001
PEI $30
JSL L02597E
PHX
PHA
PEA ^L025DBF
PEA L025DBF
PEA ^L025C98
PEA L025C98
JSL L02C68C
L025C74 LDA #L025C98
STA $05
LDA #^L025C98
STA $07
LDA $2E
STA $36
LDA $2D
STA $35
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0034
TCS
TYA
RTL
DB $00
L025C94 DW $0000
*--- Number of recognized resource types
L025C96 DW 51 ; AV 202010 - was $27
L025C98 DS $100
L025D98 DS $20
L025DB8 ASC 'R%0.4X'00
L025DBF ASC '%s%c%0.8lX'00
L025DCA DW $8001
L025DCC ADRL L025F67
L025DD0 ADRL L025F6C
DW $8002
ADRL L025F71
ADRL L025F79
DW $8003
ADRL L025F81
ADRL L025F88
DW $8004
ADRL L025F95
ADRL L025F9C
DW $8005
ADRL L025FA4
ADRL L025FAC
DW $8006
ADRL L025FBC
ADRL L025FC1
DW $8007
ADRL L025FCF
ADRL L025FD6
DW $8008
ADRL L025FE2
ADRL L025FEA
DW $8009
ADRL L025FF3
ADRL L025FF8
DW $800A
ADRL L025FFD
ADRL L026006
DW $800B
ADRL L026010
ADRL L026019
DW $800C
ADRL L02602B
ADRL L026033
DW $800D
ADRL L026044
ADRL L02604D
DW $800E
ADRL L02605B
ADRL L026063
DW $800F
ADRL L02606A
ADRL L026072
DW $8010
ADRL L026082
ADRL L026089
DW $8011
ADRL L026096
ADRL L02609D
DW $8012
ADRL L0260A8
ADRL L0260B1
DW $8013
ADRL L0260BD
ADRL L0260C4
DW $8014
ADRL L0260CF
ADRL L0260D5
DW $8015
ADRL L0260E3
ADRL L0260E9
DW $8016
ADRL L0260F6
ADRL L0260FA
DW $8017
ADRL L0260FF
ADRL L026104
DW $8018
ADRL L026112
ADRL L02611B
DW $8019
ADRL L026120
ADRL L026128
DW $801A
ADRL L026132
ADRL L02613B
DW $801B
ADRL L026145
ADRL L02614E
DW $801C
ADRL L026158
ADRL L02615F
DW $801D
ADRL L026168
ADRL L02616D
DW $801E
ADRL L026176
ADRL L02617B
DW $801F
ADRL L026180
ADRL L026185
DW $8020
ADRL L02618A
ADRL L026191
DW $8021
ADRL L02619E
ADRL L0261A5
DW $8022
ADRL L0261B5
ADRL L0261BA
DW $8023
ADRL L0261C3
ADRL L0261CC
DW $8024
ADRL L0261DD
ADRL L0261E4
DW $8025
ADRL L0261F1
ADRL L0261F9
DW $8026
ADRL L026202
ADRL L026207
DW $8027
ADRL L026212
ADRL L026219
dw $8028
adrl strITEMSTRUCT1
adrl strITEMSTRUCT2
dw $8029
adrl strVERSION1
adrl strVERSION2
dw $802A
adrl strCOMMENT1
adrl strCOMMENT2
dw $802B
adrl strBUNDLE1
adrl strBUNDLE2
dw $802C
adrl strFINDERPATH1
adrl strFINDERPATH2
dw $802D
adrl strPALETTEWINDOW1
adrl strPALETTEWINDOW2
dw $802E
adrl strTAGGEDSTR1
adrl strTAGGEDSTR2
dw $802F
adrl strPATTERNLIST1
adrl strPATTERNLIST2
dw $8102
adrl strHYPERCARD1
adrl strHYPERCARD2
DW $C001
ADRL L026220
ADRL L026228
dw $c002
adrl strPRINTRECORD1
adrl strPRINTRECORD2
dw $c003
adrl strFONT1
adrl strFONT2
dw $DEAD
adrl strVERSIONS1
adrl strVERSIONS2
strITEMSTRUCT1 asc 'ITEMSTRUCT'00
strITEMSTRUCT2 asc 'Item Structure'00
strVERSION1 asc 'VERSION'00
strVERSION2 asc 'Version'00
strCOMMENT1 asc 'COMMENT'00
strCOMMENT2 asc 'Comment'00
strBUNDLE1 asc 'BUNDLE'00
strBUNDLE2 asc 'Bundle'00
strFINDERPATH1 asc 'FINDERPATH'00
strFINDERPATH2 asc 'Finder Path'00
strPALETTEWINDOW1 asc 'PALETTEWINDOW'00
strPALETTEWINDOW2 asc 'Palette Window'00
strTAGGEDSTR1 asc 'TAGGEDSTRINGS'00
strTAGGEDSTR2 asc 'Tagged Strings'00
strPATTERNLIST1 asc 'PATTERNLIST'00
strPATTERNLIST2 asc 'Pattern List'00
strHYPERCARD1 asc 'HYPERCARD'00
strHYPERCARD2 asc 'Hypercard'00
strPRINTRECORD1 asc 'PRINTRECORD'00
strPRINTRECORD2 asc 'Print Record'00
strFONT1 asc 'FONT'00
strFONT2 asc 'Font'00
strVERSIONS1 asc 'UPDATEINFO'00
strVERSIONS2 asc 'Update Info'00
L025F5A ASC 'rType $%0.4X'00
L025F67 ASC 'ICON'00
L025F6C ASC 'Icon'00
L025F71 ASC 'PICTURE'00
L025F79 ASC 'Picture'00
L025F81 ASC 'CTLLST'00
L025F88 ASC 'Control List'00
L025F95 ASC 'CTLTMP'00
L025F9C ASC 'Control'00
L025FA4 ASC 'C1INPUT'00
L025FAC ASC 'C1 Input String'00
L025FBC ASC 'PSTR'00
L025FC1 ASC 'Pascal String'00
L025FCF ASC 'STRLST'00
L025FD6 ASC 'String List'00
L025FE2 ASC 'MENUBAR'00
L025FEA ASC 'Menu Bar'00
L025FF3 ASC 'MENU'00
L025FF8 ASC 'Menu'00
L025FFD ASC 'MENUITEM'00
L026006 ASC 'Menu Item'00
L026010 ASC 'LETXTBOX'00
L026019 ASC 'LETextBox2 String'00
L02602B ASC 'CTLPROC'00
L026033 ASC 'Control Def Proc'00
L026044 ASC 'CTLCOLOR'00
L02604D ASC 'Control Color'00
L02605B ASC 'WPARAM1'00
L026063 ASC 'Window'00
L02606A ASC 'WPARAM2'00
L026072 ASC 'Window (custom)'00
L026082 ASC 'WCOLOR'00
L026089 ASC 'Window Color'00
L026096 ASC 'TXTBLK'00
L02609D ASC 'Text Block'00
L0260A8 ASC 'STYLEBLK'00
L0260B1 ASC 'Style Block'00
L0260BD ASC 'TSTART'00
L0260C4 ASC 'Tool Table'00
L0260CF ASC 'RNAME'00
L0260D5 ASC 'Resource Name'00
L0260E3 ASC 'ALERT'00
L0260E9 ASC 'Alert String'00
L0260F6 ASC 'TXT'00
L0260FA ASC 'Text'00
L0260FF ASC 'CODE'00
L026104 ASC 'Code Resource'00
L026112 ASC 'CDEVCODE'00
L02611B ASC 'CDev'00
L026120 ASC 'CDEVFLG'00
L026128 ASC 'CDev Flag'00
L026132 ASC 'TWORECTS'00
L02613B ASC 'Two Rects'00
L026145 ASC 'FILETYPE'00
L02614E ASC 'File Type'00
L026158 ASC 'LSTREF'00
L02615F ASC 'List Ref'00
L026168 ASC 'CSTR'00
L02616D ASC 'C String'00
L026176 ASC 'XCMD'00
L02617B ASC 'XCmd'00
L026180 ASC 'XFCN'00
L026185 ASC 'XFcn'00
L02618A ASC 'ERRSTR'00
L026191 ASC 'Error String'00
L02619E ASC 'KEYTBL'00
L0261A5 ASC 'Key Trans Table'00
L0261B5 ASC 'WSTR'00
L0261BA ASC 'W String'00
L0261C3 ASC 'C1OUTPUT'00
L0261CC ASC 'C1 Output String'00
L0261DD ASC 'SSOUND'00
L0261E4 ASC 'Sound Sample'00
L0261F1 ASC 'TERULER'00
L0261F9 ASC 'TE Ruler'00
L026202 ASC 'FSEQ'00
L026207 ASC 'F Sequence'00
L026212 ASC 'CURSOR'00
L026219 ASC 'Cursor'00
L026220 ASC 'RECTLST'00
L026228 ASC 'Rect List'00
L026232 PHB
PHD
PHK
PLB
PEA ^L02629F
PEA L02629F
PEA ^L0262AB
PEA L0262AB
JSL L0265A0
JSL L0266C1
BCS L026293
BRA L026284
L02624E PHB
PHD
PHK
PLB
PEA ^L02629F
PEA L02629F
PEA ^L0262AB
PEA L0262AB
JSL L0265A0
JSL L0266C1
BCS L026293
_WaitCursor
PEA ^L024748
PEA L024748
PEA ^L0244B1
PEA L0244B1
JSL L026748
CMP #$0000
BNE L026293
L026284 JSL L02691A
PHA
LDA L024394
ORA #$8080
STA L024394
PLA
L026293 PHA
_InitCursor
PLA
PLD
PLB
RTL
L02629F STRL '8:Untitled'
L0262AB STRL 'Untitled'
L0262B5 PHB
PHD
PHK
PLB
PEA $0000
PEA $0000
_GetPort
PEA $0078
PEA $001E
PEA $0000
PEA ^L021CBB
PEA L021CBB
PEA ^L026A82
PEA L026A82
PEA $0000
PEA $0000
PEA ^L021A64
PEA L021A64
_SFGetFile2
LDX #$4002
JSL L027D42
_SetPort
LDA L021A64
BEQ L026337
_WaitCursor
PEA ^L021A9C
PEA L021A9C
PEA ^L021A7A
PEA L021A7A
JSL L0265A0
JSL L0266C1
BCS L026337
PEA ^L021964
PEA L021964
PEA ^L0244B1
PEA L0244B1
JSL L026748
CMP #$0000
BNE L026343
L026333 JSL L02691A
L026337 PHA
_InitCursor
PLA
PLD
PLB
RTL
L026343 CMP #$004C
BNE L026337
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0006
_AlertWindow
PLA
BEQ L026369
LDA #$0000
BRA L026337
L026369 PEA $0000
PEA $0001
PEA $005E
PEA $00C3
PEA ^L021964
PEA L021964
_CreateResourceFile
BCS L026337
JSL L0266C1
BCS L026337
BRA L026333
L02638C PHB
PHD
PHK
PLB
LDA L024394
AND #$0080
BNE L02639F
BRL L026436
L02639B PHB
PHD
PHK
PLB
L02639F PEA $0000
PEA $0000
_GetPort
PEA $00A0
PEA $001E
PEA $0000
PEA ^L021CAC
PEA L021CAC
PEA $0000
PEA ^L021944
PEA L021944
PEA ^L021A64
PEA L021A64
_SFPutFile2
LDX #$4202
JSL L027D42
_SetPort
LDA L021A64
BNE L0263EA
LDY #$FFFF
BRL L0264D5
L0263EA PEA ^L021A9C
PEA L021A9C
PEA ^L021A7A
PEA L021A7A
JSL L0265A0
PEA ^L0218C1
PEA L0218C1
LDA L0240F4
PHA
LDA L0240F2
PHA
_SetWTitle
PEA $0000
PEA $0001
PEA $005E
PEA $00C3
PEA ^L021964
PEA L021964
_CreateResourceFile
BEQ L026436
CMP #$1E01
BEQ L026436
LDX #$4210
JSL L027D42
L026436 JSL L026DDA
_WaitCursor
PEA $0000
PEA $0000
_GetPort
PEA ^L021D25
PEA L021D25
JSL L026E07
STA L021D21
STX L021D23
LDA L0240D6
PHA
_CloseResourceFile
LDX #$4214
JSL L027D42
PEA ^L0244B1
PEA L0244B1
PEA ^L021964
PEA L021964
JSL L026748
JSL L030000
PEA $0000
PEA $0003
PEA $0000
PEA $0000
PEA ^L0244B1
PEA L0244B1
_OpenResourceFile
LDX #$4216
JSL L027D42
PLA
STA L0240D6
JSL L0202F5
LDA L021D23
PHA
LDA L021D21
PHA
_CloseDialog
_InitCursor
_SetPort
LDA L024394
AND #$7F7F
STA L024394
LDY #$0000
L0264D5 LDA #$0000
PLD
PLB
RTL
L0264DB PHB
PHD
PHK
PLB
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0004
_AlertWindow
PLA
BEQ L026501
LDA #$0000
PLD
PLB
RTL
L026501 JSL L026BF7
PEA $0000
PEA $0000
_GetPort
PEA ^L021D60
PEA L021D60
JSL L026E07
STA L021D21
STX L021D23
LDA L0240D6
PHA
_CloseResourceFile
LDX #$4302
JSL L027D42
PEA ^L021964
PEA L021964
PEA ^L0244B1
PEA L0244B1
JSL L026748
JSL L030000
PEA $0000
PEA $0003
PEA $0000
PEA $0000
PEA ^L0244B1
PEA L0244B1
_OpenResourceFile
LDX #$4304
JSL L027D42
PLA
STA L0240D6
JSL L0202F5
JSL L026A11
LDA L021D23
PHA
LDA L021D21
PHA
_CloseDialog
_InitCursor
_SetPort
LDA L024394
AND #$7FFF
STA L024394
LDA #$0000
PLD
PLB
RTL
L0265A0 PHB
PHD
PHK
PLB
TSC
PHA
PLD
LDA [$0B]
TAY
L0265AA LDA [$0B],Y
TYX
STAL L021964,X
DEY
BEQ L0265AA
DEY
BPL L0265AA
LDA [$07]
PHA
TAY
CLC
STA L021944
STA L021904
STA L021924
STA L0218AF
ADC #$2002
STA L0218C1
ADC #$2805
STA L0218D4
ADC #$0B00
STA L0218EC
INC $07
INC $07
L0265DE LDA [$07],Y
TYX
STAL L021944+2,X
STAL L021904+2,X
STAL L021924+2,X
STAL L0218B0,X
STAL L0218C3,X
STAL L0218DB,X
STAL L0218F3,X
DEY
BEQ L0265DE
DEY
BPL L0265DE
PLX
LDA #$0020
STAL L0218C3,X
LDA #$0022
STAL L0218DB,X
STAL L0218F3,X
LDA L021904
TAX
CLC
ADC #$0004
CMP #$0010
BCC L026626
LDA #$000F
L026626 STA L021904
STA L021924
CPX #$000C
BCC L026634
LDX #$000B
L026634 LDA #$532E ; .S
STAL L021904+2,X
LDA #$4352 ; RC
STAL L021904+4,X
LDA #$452E ; .E
STAL L021924+2,X
LDA #$5551 ; QU
STAL L021924+4,X
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L0218AF
PEA L0218AF
_ParamText
LDX #$4502
JSL L027D42
PEA ^L0218D4
PEA L0218D4
PEA $0114
_SetMItemName
LDX #$4510
JSL L027D42
PEA ^L0218EC
PEA L0218EC
PEA $0115
_SetMItemName
LDX #$4511
JSL L027D42
PEA $0000
PEA $0000
PEA $0005
_CalcMenuSize
PLD
PLB
LDA $02,S
STA $0A,S
PLA
STA $07,S
PLA
PLA
PLA
RTL
L0266C1 PHB
PHK
PLB
L0266C4 JSL L026710
PEA $0000
PEA $0001
PEA $005E
PEA $00C3
PEA ^L0244B1
PEA L0244B1
_CreateResourceFile
BCC L02670E
CMP #$002B
BNE L026704
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0003
_AlertWindow
PLA
BRA L0266C4
L026704 PHA
LDX #$4610
JSL L027D42
PLA
SEC
L02670E PLB
RTL
L026710 PHB
PHK
PLB
L026713 JSL GSOS
DW $2002 ; Destroy
ADRL L026742
BCC L026740
CMP #$002B
BNE L026740
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0003
_AlertWindow
PLA
BRA L026713
L026740 PLB
RTL
L026742 DW $0001 ; Parms for Destroy
ADRL L0244B1 ; file name
L026748 PHB
PHD
PHK
PLB
TSC
PHA
PLD
LDA $07
LDX $09
STA L0268E6
STX L0268E6+2
LDA $0B
LDX $0D
STA L0268B0
STX L0268B0+2
JSL GSOS
DW $2010 ; Open
ADRL L0268AC
BCC L026772
BRL L02689B
L026772 LDA L0268AE
STA L0268F0
STA L026910
PEA $0000
PEA $0000
L026781 LDA L0268DE+2
PHA
LDA L0268DE
PHA
LDA L024112
PHA
PEA $C008
PEA $0000
PEA $0000
_NewHandle
BCC L0267BF
CMP #$0201
BNE L0267B7
LSR L0268DE+2
ROR L0268DE
LDA L0268DE+2
BNE L026781
LDA L0268DE
CMP #$0400
BCS L026781
L0267B7 LDX #$4710
PLY
PLY
BRL L026863
L0267BF LDA L0268DE
LDX L0268DE+2
STA L0268F6
STX L0268F6+2
STA L026906
STX L026906+2
PHD
TSC
PHA
PLD
LDY #$0002
LDA [$03]
STA L0268F2
STA L026902
LDA [$03],Y
STA L0268F2+2
STA L026902+2
PLD
PLA
STA L026916
PLA
STA L026918
JSL GSOS
DW $2010 ; Open
ADRL L0268E2
BCC L026803
LDX #$4722
BRL L026850
L026803 LDA L0268E4
STA L026900
STA L026914
L02680C JSL GSOS
DW $2012 ; Read
ADRL L0268EE
BCC L02682E
CMP #$004C
BNE L02683F
LDA L0268FA
LDX L0268FA+2
STA L026906
ORA L0268FA+2
BEQ L026874
STX L026906+2
L02682E JSL GSOS
DW $2013 ; Write
ADRL L0268FE
BCC L02680C
LDX #$4731
BRA L026842
L02683F LDX #$4730
L026842 PHA
PHX
JSL GSOS
DW $2014 ; Close
ADRL L026912
PLX
PLA
L026850 PHA
PHX
LDA L026918
PHA
LDA L026916
PHA
_DisposeHandle
PLX
PLA
L026863 PHA
PHX
JSL GSOS
DW $2014 ; Close
ADRL L02690E
PLX
PLA
SEC
BRA L02689B
L026874 LDA L026918
PHA
LDA L026916
PHA
_DisposeHandle
JSL GSOS
DW $2014 ; Close
ADRL L02690E
JSL GSOS
DW $2014 ; Close
ADRL L026912
LDA #$0000
CLC
L02689B STA $08
STX $0A
LDA $05
STA $0D
PLD
PLB
PLA
STA $07,S
PLA
PLA
PLX
RTL
L0268AC DW $000E ; Parms for Open
L0268AE DW $0000 ; ref num
L0268B0 ADRL $00000000 ; path name
DW $0003 ; req access
DW $0001 ; res num
DW $0000 ; access
DW $0000 ; file type
ADRL $00000000 ; aux type
DW $0000 ; storage
DS 8 ; creation date
DS 8 ; modification date
ADRL $00000000 ; option list
ADRL $00000000 ; end of file
ADRL $00000000 ; blocks used
L0268DE ADRL $00000000 ; resource eof
L0268E2 DW $0004 ; Parms for Open
L0268E4 DW $0000 ; ref num
L0268E6 ADRL $00000000 ; path name
DW $0003 ; req access
DW $0001 ; res num
L0268EE DW $0004 ; Parms for Read
L0268F0 DW $0000 ; ref num
L0268F2 ADRL $00000000 ; buffer ptr
L0268F6 ADRL $00000000 ; request count
L0268FA ADRL $00000000 ; transfer count
L0268FE DW $0004 ; Parms for Write
L026900 DW $0000 ; ref num
L026902 ADRL $00000000 ; buffer ptr
L026906 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02690E DW $0001 ; Parms for Close
L026910 DW $0000 ; ref num
L026912 DW $0001 ; Parms for Close
L026914 DW $0000 ; ref num
L026916 DB $00
DB $00
L026918 DB $00
DB $00
L02691A PHB
PHD
PHK
PLB
PEA $0000
PEA $0003
PEA $0000
PEA $0000
PEA ^L0244B1
PEA L0244B1
_OpenResourceFile
BCC L02693D
PLY
PLD
PLB
RTL
L02693D PLA
STA L0240D6
JSL L0202F5
PEA $0000
PEA $0000
PEA ^L0218C1
PEA L0218C1
PEA ^L021C88
PEA L021C88
PEA ^L026AB5
PEA L026AB5
PEA $0000
PEA $0000
PEA $0000
PEA ^L021C2E
PEA L021C2E
PEA $800E
_NewWindow2
LDX #$4808
JSL L027D42
PLA
STA L0240F2
PLA
STA L0240F4
LDA L0240F4
PHA
LDA L0240F2
PHA
_SetPort
PEA $0000
PEA $0000
LDA L0240F4
PHA
LDA L0240F2
PHA
PEA $0003
PEA ^L021C98
PEA L021C98
_NewControl2
LDX #$480A
JSL L027D42
PLA
PLA
PEA $0000
PEA $0000
LDA L0240F4
PHA
LDA L0240F2
PHA
PEA $0000
PEA $0003
_GetCtlHandleFromID
LDX #$480B
JSL L027D42
PLA
STA L024104
PLA
STA L024106
PEA $0000
PEA $0000
LDA L0240F4
PHA
LDA L0240F2
PHA
PEA $0000
PEA $0004
_GetCtlHandleFromID
LDX #$480C
JSL L027D42
PLA
STA L0240FC
PLA
STA L0240FE
PLD
PLB
MX %00
L026A11 PHB
PHD
PHK
PLB
JSL L02242F
PEA $0000
PEA $0000
LDA L024106
PHA
LDA L024104
PHA
_SortList2
LDX #$4810
JSL L027D42
PEA $0000
PEA $0000
LDA L0240FE
PHA
LDA L0240FC
PHA
_SortList2
LDX #$4811
JSL L027D42
PEA ^L021BA8
PEA L021BA8
PEA $0000
JSL L027BA4
PEA ^L021BB0
PEA L021BB0
PEA $FFFF
JSL L027BA4
JSL L027BE8
LDA #$0191
STA L021C2C
_InitCursor
LDA #$0000
PLD
PLB
RTL
L026A82 PHD
TSC
PHA
PLD
LDX #$0001
LDY #$0004
LDA [$06],Y
BPL L026AA9
INX
BRA L026AA9
L026A93 PHD
TSC
PHA
PLD
LDX #$0001
LDY #$0004
LDA [$06],Y
BMI L026AA9
LDY #$0014
LDA [$06],Y
BNE L026AA9
INX
L026AA9 STX $0A
PLD
LDA $02,S
STA $06,S
PLA
STA $03,S
PLA
RTL
L026AB5 ENT
PHD
PHB
PHK
PLB
PEA $0000
_GetCurResourceFile
LDA L0240D4
PHA
_SetCurResourceFile
PEA $0000
PEA $0000
_GetPort
_DrawControls
_SetCurResourceFile
PLB
PLD
RTL
L026AEC PHD
PHB
PHK
PLB
PEA $0000
PEA $0000
_GetFirstWindow
LDX #$4902
JSL L027D42
L026B04 PLA
STA L026B5F
PLA
STA L026B61
ORA L026B5F
BEQ L026B58
LDA L026B61
PHA
LDA L026B5F
PHA
JSL L02897A
CMP #$5754
BNE L026B3A
LDA L026B61
PHA
LDA L026B5F
PHA
_SelectWindow
LDX #$4906
JSL L027D42
BRA L026B5C
L026B3A PEA $0000
PEA $0000
LDA L026B61
PHA
LDA L026B5F
PHA
_GetNextWindow
LDX #$4908
JSL L027D42
BRA L026B04
L026B58 JSL L0429E3
L026B5C PLB
PLD
RTL
L026B5F DW $0000
L026B61 DW $0000
L026B63 PHB
PHD
PHK
PLB
LDA L024394
AND #$8080
BEQ L026BA2
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0005
_AlertWindow
PLA
BNE L026B8E
BRL L026BF4
L026B8E CMP #$0002
BNE L026BA2
JSL L02638C
CPY #$0000
BEQ L026BA2
LDA #$0000
BRL L026BF4
L026BA2 _WaitCursor
JSL L026BF7
LDA L0240D6
PHA
_CloseResourceFile
LDX #$4A02
JSL L027D42
JSL L023BB7
LDA L0240F4
PHA
LDA L0240F2
PHA
_CloseWindow
LDX #$4A04
JSL L027D42
JSL L027B45
LDA L024394
AND #$0007
STA L024394
_InitCursor
JSL L026710
LDA #$FFFF
L026BF4 PLD
PLB
RTL
L026BF7 PHB
PHD
PHK
PLB
LDA #$0400
STA L026C99
PEA $0000
PEA $0000
_GetFirstWindow
LDX #$4B02
JSL L027D42
L026C15 LDA $01,S
STA L026C9B
LDA $03,S
STA L026C9B+2
ORA $01,S
BEQ L026C94
JSL L02897A
BMI L026C55
AND #$FF00
CMP #$5700
BEQ L026C55
LDA L024382
BEQ L026C55
LDA L026C9B+2
PHA
LDA L026C9B
PHA
_BringToFront
LDX #$4B04
JSL L027D42
LDX #$0004
STX L02438A
JSR L020C59
L026C55 DEC L026C99
BEQ L026C78
PEA $0000
PEA $0000
LDA L026C9B+2
PHA
LDA L026C9B
PHA
_GetNextWindow
LDX #$4B06
JSL L027D42
BRA L026C15
L026C78 PEA $0000
PEA $0000
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0007
_AlertWindow
L026C94 PLA
PLA
PLD
PLB
RTL
L026C99 DW $0000
L026C9B ADRL $00000000
L026C9F PHB
PHD
PHK
PLB
DEC L0240DC
PEA $0000
PEA $0000
_GetFirstWindow
LDX #$4C02
JSL L027D42
L026CBA PLA
STA L026DD6
PLA
STA L026DD6+2
ORA L026DD6
BEQ L026D14
LDA L026DD6+2
PHA
LDA L026DD6
PHA
JSL L02897A
CMP #$5752
BEQ L026CEF
PEA $0000
PEA $0000
LDA L026DD6+2
PHA
LDA L026DD6
PHA
_GetNextWindow
BRA L026CBA
L026CEF LDA L026DD6+2
PHA
LDA L026DD6
PHA
_SelectWindow
LDX #$4C04
JSL L027D42
JSL L026B63
STA L0240DC
CMP #$0000
BNE L026D14
L026D11 PLD
PLB
RTL
L026D14 PEA $0000
PEA $0000
_GetFirstWindow
LDX #$4C06
JSL L027D42
L026D28 PLA
STA L026DD6
PLA
STA L026DD6+2
ORA L026DD6
BEQ L026D11
LDA L026DD6+2
PHA
LDA L026DD6
PHA
JSL L02897A
CMP #$5751
BNE L026D62
LDA L026DD6+2
PHA
LDA L026DD6
PHA
_BringToFront
LDX #$4C08
JSL L027D42
JSL L02B718
BRA L026DB7
L026D62 CMP #$5754
BNE L026D83
LDA L026DD6+2
PHA
LDA L026DD6
PHA
_BringToFront
LDX #$4C0A
JSL L027D42
JSL L042C42
BRA L026DB7
L026D83 AND #$FF00
CMP #$5700
BNE L026DB7
LDA L026DD6+2
PHA
LDA L026DD6
PHA
_BringToFront
LDX #$4C0C
JSL L027D42
LDA L026DD6+2
PHA
LDA L026DD6
PHA
_CloseWindow
LDX #$4C0D
JSL L027D42
L026DB7 PEA $0000
PEA $0000
LDA L026DD6+2
PHA
LDA L026DD6
PHA
_GetNextWindow
LDX #$4C0E
JSL L027D42
BRL L026D28
L026DD6 ADRL $00000000
L026DDA PHD
PHB
PHK
PLB
PEA $0000
PEA $0000
_FrontWindow
LDX #$4D02
JSL L027D42
JSL L02897A
LDA L024382
BEQ L026E04
LDA #$0007
STA L02438A
JSR L020C59
L026E04 PLB
PLD
RTL
L026E07 PHB
PHD
PHK
PLB
LDA $09,S
PHA
LDA $09,S
PHA
LDA $09,S
STA $0D,S
LDA $07,S
STA $0B,S
LDA $05,S
STA $09,S
_WaitCursor
_GetNewModalDialog
LDA $03,S
TAX
LDA $01,S
PHX
PHA
PHX
PHA
_SetPort
_DrawDialog
PLA
PLX
PLD
PLB
RTL
L026E47 ENT
PHD
PHB
PHK
PLB
LDA $07,S
STA L026F1C
LDA $09,S
STA L026F1C+2
JSL GSOS
DW $200E ; ExpandPath
ADRL L026F1A
LDX #$4F02
JSL L027D42
LDY L026F56
STY L027058
DEY
L026E6D LDA L026F58,Y
STA L02705A,Y
PHA
AND #$00FF
CMP #$003A
BNE L026E84
STY L027058
LDA #$0000
STA $01,S
L026E84 PLA
STA L02715A,Y
DEY
BEQ L026E8D
BPL L026E6D
L026E8D LDA L026F58
STA L02705A
STA L02715A
PEA $0000
_GetCurResourceFile
LDX #$4F06
JSL L027D42
LDA L0240D4
PHA
_SetCurResourceFile
LDX #$4F07
JSL L027D42
L026EB9 _WaitCursor
JSL GSOS
DW $2006 ; GetFileInfo
ADRL L026F24
BCC L026EFE
_InitCursor
PEA $0000
PEA $0004
PEA ^L026F2C
PEA L026F2C
LDA $15,S
BEQ L026EEB
PEA $0000
PEA $000E
BRA L026EF1
L026EEB PEA $0000
PEA $000F
L026EF1 _AlertWindow
PLA
BEQ L026EB9
LDA #$FFFF
L026EFE STA $0A,S
_SetCurResourceFile
LDX #$4F08
JSL L027D42
PLB
PLD
LDA $02,S
STA $08,S
PLA
STA $05,S
PLA
PLA
RTL
L026F1A DW $0002 ; Parms for ExpandPath
L026F1C ADRL $00000000 ; path name
ADRL L026F54 ; new pathname
L026F24 DW $0002 ; Parms for GetFileInfo
ADRL L027058 ; file name
DW $0000 ; access
L026F2C ADRL L02715A
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L026F54 DW $0100
L026F56 DW $0000
L026F58 DS $100
L027058 DW $0000
L02705A DS $100
L02715A DS $100
L02725A PHB
PHD
PHK
PLB
JSL L026DDA
LDA L027528
BNE L02726B
JSL L027358
L02726B STZ L027566
PEA ^L021CD2
PEA L021CD2
PLA
STA L027568
PLA
STA L02756A
PEA ^L021904
PEA L021904
PLA
STA L02756C
PLA
STA L02756E
LDA L02435C
CMP #$0107
BEQ L0272B4
LDA #$8000
STA L027566
PEA ^L021CE4
PEA L021CE4
PLA
STA L027568
PLA
STA L02756A
PEA ^L021924
PEA L021924
PLA
STA L02756C
PLA
STA L02756E
L0272B4 PEA $0000
PEA $0000
_GetPort
PEA $00A0
PEA $001E
PEA $0000
LDA L02756A
PHA
LDA L027568
PHA
PEA $0000
LDA L02756E
PHA
LDA L02756C
PHA
PEA ^L021A64
PEA L021A64
_SFPutFile2
LDX #$5002
JSL L027D42
_SetPort
LDA L021A64
BEQ L027355
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $FFFF
LDA L027566
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
LDA L0240D6
STA L02755C
LDA L024112
STA L02755E
PEA ^L021A7A
PEA L021A7A
PLA
STA L027558
PLA
STA L02755A
PEA ^L027558
PEA L027558
JSL L040000
JSL L030000
JSL L0202F5
LDA #$0000
L027355 PLD
PLB
RTL
L027358 PHB
PHD
PHK
PLB
PEA $0000
PEA $0000
_GetPort
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L026AB5
PEA L026AB5
PEA $0000
PEA $0000
PEA $0000
PEA ^L021EF3
PEA L021EF3
PEA $800E
_NewWindow2
LDX #$5102
JSL L027D42
PLA
STA L027518
PLA
STA L027518+2
LDA L027518+2
PHA
LDA L027518
PHA
_SetPort
PEA $0000
PEA $0000
LDA L027518+2
PHA
LDA L027518
PHA
PEA $0000
PEA $0002
_GetCtlHandleFromID
LDX #$5106
JSL L027D42
PLA
PLX
STA L027524
STX L027524+2
LDA L027528
BNE L0273EA
LDA #$0001
L0273EA PHA
LDA L027524+2
PHA
LDA L027524
PHA
_SelectMember2
LDX #$5108
JSL L027D42
LDA L027518+2
PHA
LDA L027518
PHA
_ShowWindow
LDX #$510A
JSL L027D42
L027417 PEA $0000
PEA $FFFF
PEA ^L02752A
PEA L02752A
_TaskMaster
PLA
CMP #$0014
BNE L02747A
PEA ^L02751C
PEA L02751C
PEA $0000
PEA $0000
PEA $027F
PEA $00C7
_SetRect
LDX #$5110
JSL L027D42
PEA $0000
LDA L027536
PHA
LDA L027534
PHA
PEA $0008
PEA ^L02751C
PEA L02751C
LDA L02753A+2
PHA
LDA L02753A
PHA
_DragWindow
LDX #$5112
JSL L027D42
L02747A CMP #$0021
BNE L027417
LDA L027550
CMP #$0001
BEQ L0274B2
CMP #$0002
BNE L027417
LDA L027546
CMP #$0002
BEQ L027496
L027494 BRA L027417
L027496 LDA L02754C
CMP #$0005
BEQ L027494
CMP #$0006
BEQ L027494
CMP #$0007
BEQ L027494
CMP #$0008
BEQ L027494
CMP #$0081
BEQ L027494
L0274B2 PEA $0000
LDA L027524+2
PHA
LDA L027524
PHA
_ResetMember2
LDX #$5120
JSL L027D42
PLA
STA L027528
PEA $0000
PEA $0000
LDA L027528
PHA
PEA $0007
_Multiply
LDX #$5121
JSL L027D42
PLA
PLX
DEC
DEC
TAX
LDA L021FE4,X
STA L027560
STZ L027562
LDA L027518+2
PHA
LDA L027518
PHA
_CloseWindow
LDX #$5124
JSL L027D42
_SetPort
PLD
PLB
RTL
L027518 ADRL $00000000
L02751C DW $0000
DW $0000
DW $0000
DW $0000
L027524 ADRL $00000000
L027528 DW $0000
L02752A DW $0000 ; event code
ADRL $00000000 ; event message
ADRL $00000000 ; tick count
L027534 DW $0000 ; mouse location
L027536 DW $0000
DW $0000 ; modifiers
L02753A ADRL $00000000 ; task data
ADRL $001B2006 ; task mask
DB $00
DB $00
DB $00
DB $00
L027546 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02754C DB $00
DB $00
DB $00
DB $00
L027550 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027558 DB $00
DB $00
L02755A DB $00
DB $00
L02755C DB $00
DB $00
L02755E DB $00
DB $00
L027560 DB $00
DB $00
L027562 DB $00
DB $00
DB $00
DB $00
L027566 DB $00
DB $00
L027568 DB $00
DB $00
L02756A DB $00
DB $00
L02756C DB $00
DB $00
L02756E DB $00
DB $00
L027570 PHB
PHK
PLB
PEA $0000
PEA $0000
_GetPort
PEA $0078
PEA $001E
PEA $0000
PEA ^L021CF6
PEA L021CF6
PEA ^L026A93
PEA L026A93
PEA $0000
PEA $0000
PEA ^L021A64
PEA L021A64
_SFGetFile2
LDX #$5300
JSL L027D42
_SetPort
LDA L021A64
BEQ L0275D6
PEA ^L021A7A
PEA L021A7A
PEA ^L021A9C
PEA L021A9C
JSL L029D22
PHA
LDA L024394
ORA #$8000
STA L024394
PLA
L0275D6 PLB
RTL
L0275D8 LDA L024394
AND #$0001
BNE L027604
LDA L024394
ORA #$0001
STA L024394
PEA ^L027856
PEA L027856
PEA $0109
_SetMItemName
LDX #$8002
JSL L027D42
LDA #$0000
RTL
L027604 LDA L024394
EOR #$0001
STA L024394
PEA ^L027845
PEA L027845
PEA $0109
_SetMItemName
LDX #$8004
JSL L027D42
L027624 PEA $0000
PEA $0000
_GetPort
PEA $0000
PEA $0000
_GetMenuMgrPort
_SetPort
PEA $0000
_GetTextMode
PEA $000F
_SetBackColor
PEA $0000
_SetForeColor
PEA $0000
_SetTextMode
PEA $01E0
PEA $000A
_MoveTo
PEA ^L0278AD
PEA L0278AD
_DrawString
_SetTextMode
_SetPort
LDA #$0000
RTL
L027699 PHB
PHD
PHK
PLB
LDA L024394
AND #$0001
BEQ L0276EE
PEA $0000
PEA $0000
_GetPort
PEA $0000
PEA $0000
_GetWMgrPort
_SetPort
PEA ^L027841
PEA L027841
_GetMouse
_SetPort
SEC
LDA L027843
SBC L02438E
PHA
SEC
LDA L027841
SBC L02438C
PHA
JSL L0276F1
L0276EE PLD
PLB
L0276F0 ENT
RTL
L0276F1 PHD
PHB
PHK
PLB
LDA L024394
AND #$0001
BNE L027700
BRL L0277D8
L027700 PEA $0000
PEA $0000
_GetPort
LDA $0B,S
STA L027841
LDA $0D,S
STA L027843
PEA $0000
PEA $0000
_GetMenuMgrPort
LDX #$8102
JSL L027D42
_SetPort
PEA $0000
_GetTextMode
PEA $000F
_SetBackColor
PEA $0000
_SetForeColor
PEA $0000
_SetTextMode
LDA L027841
PHA
PEA ^L0278A6
PEA L0278A6
PEA $0004
PEA $0001
_Int2Dec
LDX #$8110
JSL L027D42
LDA L027843
PHA
PEA ^L027899
PEA L027899
PEA $0004
PEA $0001
_Int2Dec
LDX #$8111
JSL L027D42
PEA $01E0
PEA $000A
_MoveTo
PEA ^L027893
PEA L027893
_DrawString
PEA $0228
PEA $000A
_MoveTo
PEA ^L0278A0
PEA L0278A0
_DrawString
_SetTextMode
_SetPort
L0277D8 LDA $05,S
STA $09,S
PLB
PLD
PLA
STA $03,S
PLA
RTL
L0277E3 STZ L02438C
STZ L02438E
LDA #$0000
RTL
L0277ED LDA L024394
PHA
ORA #$0001
STA L024394
STZ L02438C
STZ L02438E
PEA ^L0278D0
PEA L0278D0
_SetCursor
L02780A JSL L027699
PEA $0000
PEA $0000
_Button
PLA
BEQ L02780A
LDA L027841
STA L02438C
LDA L027843
STA L02438E
_InitCursor
PLA
STA L024394
AND #$0001
BEQ L02783E
LDA #$0000
RTL
L02783E JMP L027624
L027841 DW $0000
L027843 DW $0000
L027845 STR 'Show Coordinates'
L027856 STR 'Hide Coordinates'
STR 'Show Rulers'
STR 'Hide Rulers'
STR 'Show Grid'
STR 'Hide Grid'
L027893 DB L0278A0-L027894
L027894 ASC 'H = '
L027899 ASC ' '
L0278A0 DB L0278AD-L0278A1
L0278A1 ASC 'V = '
L0278A6 ASC ' '
L0278AD STR ' '
L0278D0 DW $000B ; cursor height
DW $0004 ; cursor width
HEX 00000F0000000000 ; cursor image
HEX 0000FFF000000000
HEX 000F0F0F00000000
HEX 00F00F00F0000000
HEX 0F000F000F000000
HEX FFFFF0FFFFF00000
HEX 0F000F000F000000
HEX 00F00F00F0000000
HEX 000F0F0F00000000
HEX 0000FFF000000000
HEX 00000F0000000000
HEX 00000F0000000000 ; cursor mask
HEX 0000FFF000000000
HEX 000F0F0F00000000
HEX 00F00F00F0000000
HEX 0F000F000F000000
HEX FFFFFFFFFFF00000
HEX 0F000F000F000000
HEX 00F00F00F0000000
HEX 000F0F0F00000000
HEX 0000FFF000000000
HEX 00000F0000000000
DW $0005 ; hot spot
L027986 DW $000B
L027988 PEA $0001
LDA L0240F4
PHA
LDA L0240F2
PHA
_ShowHide
LDX #$8502
JSL L027D42
LDA L0240F4
PHA
LDA L0240F2
PHA
_SelectWindow
LDX #$8503
JSL L027D42
PEA $0114
_EnableMItem
LDX #$8504
JSL L027D42
LDA L024394
AND #$FFBF
BRA L0279FD
L0279D0 LDA L0240F4
PHA
LDA L0240F2
PHA
_HideWindow
LDX #$8506
JSL L027D42
PEA $0114
_DisableMItem
LDX #$8508
JSL L027D42
LDA L024394
ORA #$0040
L0279FD STA L024394
LDA #$0000
RTL
L027A04 PEA $FFFF
PEA $FFFE
PEA $0000
PEA $0000
_FrontWindow
LDX #$8602
JSL L027D42
LDA $01,S
ORA $03,S
BNE L027A2A
PLA
PLA
PLA
PLA
BRA L027A38
L027A2A _SendBehind
LDX #$8603
JSL L027D42
L027A38 LDA #$0000
RTL
L027A3C SEC
LDA L02435C
SBC #$0117
PHA
JSL L029A18
RTL
L027A49 PEA $0000
PEA $0000
PEA $0000
_FrontWindow
LDX #$8802
JSL L027D42
LDA $01,S
STA L027B41
LDA $03,S
STA L027B41+2
L027A6A _GetSysWFlag
PLA
BNE L027A84
LDA L027B41
CMP L0240F2
BNE L027ABD
LDA L027B41+2
CMP L0240F4
BNE L027ABD
L027A84 PEA $0000
PEA $0000
PEA $0000
LDA L027B41+2
PHA
LDA L027B41
PHA
_GetNextWindow
LDX #$8804
JSL L027D42
LDA $01,S
STA L027B41
LDA $03,S
STA L027B41+2
ORA $01,S
BNE L027A6A
PLA
PLA
PLA
LDA #$FFFF
RTL
L027AB8 JSR L020E3B
BRA L027A84
L027ABD PEA $0000
PEA $0000
LDA L027B41+2
PHA
LDA L027B41
PHA
_GetWRefCon
LDX #$8806
JSL L027D42
JSR L020E2A
PLA
STA $00
PLA
STA $02
LDY #$0002
LDA [$00],Y
TAX
LDA [$00]
STA $00
STX $02
LDY #$0000
LDA [$00],Y
CMP L024382
BNE L027AB8
LDY #$0002
LDA [$00],Y
CMP L024384
BNE L027AB8
INY
INY
LDA [$00],Y
CMP L024384+2
BNE L027AB8
JSR L020E3B
PEA $0001
LDA L027B41+2
PHA
LDA L027B41
PHA
_ShowHide
LDX #$8808
JSL L027D42
LDA L027B41+2
PHA
LDA L027B41
PHA
_SelectWindow
LDX #$880A
JSL L027D42
LDA #$0000
RTL
L027B41 ADRL $00000000
L027B45 PHB
PHD
PHK
PLB
PEA ^L021BA8
PEA L021BA8
PEA $FFFF
JSL L027BA4
PEA ^L021BB0
PEA L021BB0
PEA $0000
JSL L027BA4
PLD
PLB
L027B65 PHB
PHD
PHK
PLB
PEA $0000
PEA $0000
_FrontWindow
LDX #$8902
JSL L027D42
PLA
ORA $01,S
BEQ L027B85
LDA #$FFFF
L027B85 CMP L027BA2
BEQ L027B9B
STA L027BA2
PEA ^L021B9C
PEA L021B9C
LDA L027BA2
PHA
JSL L027BA4
L027B9B PLA
PLD
PLB
LDA #$0000
RTL
L027BA2 DW $FFFF
L027BA4 PHD
TSC
PHA
PLD
LDY #$0000
L027BAB LDA [$08],Y
BEQ L027BD9
INY
INY
PHY
PHA
LDA $06
BEQ L027BC8
_EnableMItem
LDX #$8980
JSL L027D42
PLY
BRA L027BAB
L027BC8 _DisableMItem
LDX #$8981
JSL L027D42
PLY
BRA L027BAB
L027BD9 PLD
LDA $02,S
STA $08,S
PLA
STA $05,S
PLA
PLA
LDA #$0000
CLC
RTL
L027BE8 PHB
PHK
PLB
LDA L024394
AND #$0040
BEQ L027C04
PEA $0114
_DisableMItem
LDX #$8983
JSL L027D42
L027C04 PLB
RTL
L027C06 PHB
PHD
PHK
PLB
LDA L024394
AND #$0040
BEQ L027C68
PEA $0000
PEA $0000
_GetFirstWindow
LDX #$8A02
JSL L027D42
L027C26 PLA
STA L027C6E
PLA
STA L027C6E+2
ORA L027C6E
BNE L027C39
JSL L027988
BRA L027C68
L027C39 LDA L027C6E+2
PHA
LDA L027C6E
PHA
JSL L02897A
LDA L024382
BNE L027C68
PEA $0000
PEA $0000
LDA L027C6E+2
PHA
LDA L027C6E
PHA
_GetNextWindow
LDX #$8A04
JSL L027D42
BRA L027C26
L027C68 LDA #$0000
PLD
PLB
RTL
L027C6E ADRL $00000000
L027C72 PHB
PHD
PHK
PLB
PEA $0000
PEA $0000
_GetFirstWindow
LDX #$8B02
JSL L027D42
BRA L027CA8
L027C8C PEA $0000
PEA $0000
LDA L027CE7+2
PHA
LDA L027CE7
PHA
_GetNextWindow
LDX #$8B04
JSL L027D42
L027CA8 PLA
STA L027CE7
PLA
STA L027CE7+2
ORA L027CE7
BEQ L027CD6
LDA L027CE7+2
PHA
LDA L027CE7
PHA
JSL L02897A
LDA L024382
CMP $07,S
BNE L027C8C
LDA L024384
CMP $09,S
BNE L027C8C
LDA L024384+2
CMP $0B,S
BNE L027C8C
L027CD6 LDY L027CE7
LDX L027CE7+2
PLD
PLA
STA $05,S
PLA
STA $05,S
PLA
PLB
TYA
RTL
L027CE7 ADRL $00000000
L027CEB ENT
PHB
PHD
PHK
PLB
TSC
TCD
LDA $07
BNE L027CF8
BRL L027D31
L027CF8 LDX $09
PHX
PHA
PEA ^L027DAA
PEA L027DAA
PEA $0004
_Int2Hex
PEA ^L027DBB
PEA L027DBB
PEA $0004
_Int2Hex
PHA
PEA ^L027D4F
PEA L027D4F
PEA $0000
PEA $0000
_StopAlert
PLA
L027D31 LDA $04
STA $08
LDA $05
STA $09
TSC
PLD
PLB
CLC
ADC #$0007
TCS
RTL
L027D42 CMP #$0000
BNE L027D48
RTL
L027D48 PHX
PHA
JSL L027CEB
RTL
L027D4F DW $001E ; Alert rect
DW $0078
DW $0050
DW $0208
DW $1A0A ; Alert ID
HEX 80 ; First stage byte
HEX 80 ; Second stage byte
HEX 80 ; Third stage byte
HEX 80 ; fourth stage byte
ADRL L027D69 ; Ptr to item template
ADRL L027D8A ; Ptr to item template
ADRL $00000000
L027D69 DW $0001 ; Item ID
DW $001F ; Item rect
DW $0096
DW $002C
DW $00FA
DW $000A ; Std button
ADRL L027D81 ; Item descriptor
DW $0000 ; Item value
DW $0000 ; Bit flag
ADRL $00000000 ; Ptr to color table
L027D81 STR 'Continue'
L027D8A DW $0544 ; Item ID
DW $0006 ; Item rect
DW $0048
DW $00C8
DW $0280
DW $800F ; Static text
ADRL L027DA2 ; Item descriptor
DW $0000 ; Item value
DW $0000 ; Bit flag
ADRL $00000000 ; Ptr to color table
L027DA2 DB L027DF7-L027DA3 ; $55
L027DA3 ASC 'Error $'
L027DAA HEX 00000000
ASC ' occured at $'
L027DBB HEX 00000000
ASC ' in the Shell'0D
ASC 'Please record and report this information.'0D
L027DF7 ENT
PHB
PHD
PHK
PLB
JSR L027E26
LDA $07,S
STA L024382
LDA $09,S
STA L024384
LDA $0B,S
STA L024384+2
LDA #$0009
STA L02438A
JSR L020C59
STA $07,S
JSR L027E34
PLD
PLA
STA $05,S
PLA
STA $05,S
PLA
PLB
RTL
L027E26 LDY #$0062
L027E29 LDA L02434C,Y
STA L027E42,Y
DEY
DEY
BPL L027E29
RTS
L027E34 LDY #$0062
L027E37 LDA L027E42,Y
STA L02434C,Y
DEY
DEY
BPL L027E37
RTS
L027E42 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027EA7 ENT
DB $00
DB $00
L027EA9 ENT
DB $00
DB $00
L027EAB ENT
DB $00
DB $00
L027EAD ENT
DB $00
DB $00
L027EAF ENT
DB $00
L027EB0 ENT
DB $00
L027EB1 ENT
DB $00
DB $00
L027EB3 ENT
DB $00
DB $00
L027EB5 ENT
DB $00
DB $00
L027EB7 ENT
DB $00
DB $00
L027EB9 ENT
DB $00
DB $00
L027EBB ENT
DB $00
DB $00
L027EBD ENT
DB $00
DB $00
L027EBF ENT
DB $00
DB $00
L027EC1 ENT
DB $00
DB $00
L027EC3 ENT
DB $00
DB $00
L027EC5 ENT
DB $00
DB $00
L027EC7 ENT
DB $00
DB $00
L027EC9 ENT
DB $00
DB $00
L027ECB ENT
DB $00
DB $00
L027ECD ENT
DB $00
DB $00
L027ECF ENT
DB $00
DB $00
L027ED1 ENT
DB $00
DB $00
L027ED3 ENT
DB $00
DB $00
L027ED5 ENT
DB $00
DB $00
L027ED7 ENT
DB $00
DB $00
L027ED9 ENT
DB $04
DB $00
L027EDB ENT
DB $00
DB $00
L027EDD ENT
DB $00
DB $00
L027EDF ENT
DB $00
DB $00
L027EE1 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027EEB ENT
DB $04
DB $00
L027EED ENT
DB $00
DB $00
L027EEF ENT
DB $00
DB $00
DB $C3
DB $00
L027EF3 ENT
DB $B0
DB $00
L027EF5 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027F03 ENT
DB $02
DB $00
L027F05 ENT
DB $00
DB $00
L027F07 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027F3D ENT
DB $02
DB $00
DB $35
DB $3A
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027F5F ENT
DB $04
DB $00
L027F61 ENT
DB $00
DB $00
L027F63 ENT
ADRL L028630
L027F67 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L027F71 ENT
DS $100
L028071 ENT
DB $0C
DB $00
L028073 ENT
DB $00
DB $00
L028075 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02809B ENT
DB $00
DB $00
L02809D ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0280AB ENT
DB $01
DB $00
L0280AD ENT
DB $00
DB $00
L0280AF ENT
DB $00
DB $00
L0280B1 ENT
DB $30
DB $00
L0280B3 ENT
DB $0D
DB $00
L0280B5 ENT
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
DB $01
DB $00
L0280BD ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0280C3 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0280DF ENT
DB $00
DB $00
L0280E1 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0280F1 ENT
DB $02
DB $00
L0280F3 ENT
DB $00
DB $00
L0280F5 ENT
DB $00
DB $00
L0280F7 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02812B ENT
DS $100
L02822B ENT
ASC 'SSSi'
DB $00
L028230 ENT
DB $00
DB $00
L028232 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L028258 ENT
DB $00
DB $00
DB $00
DB $00
L02825C ENT
DB $00
DB $00
DB $00
DB $00
L028260 ENT
DB $00
DB $00
DB $00
DB $00
L028264 ENT
DB $00
DB $00
L028266 ENT
DB $00
DB $00
L028268 ENT
DB $00
DB $00
L02826A ENT
DB $00
DB $00
L02826C ENT
DB $00
DB $00
L02826E ENT
DB $00
DB $00
L028270 ENT
DB $00
DB $00
DB $00
DB $00
L028274 ENT
DB $00
DB $00
DB $00
DB $00
L028278 ENT
DB $00
DB $00
DB $00
DB $00
L02827C ENT
DS $3B4
L028630 DS $100
L028730 ENT
DB $00
DB $00
L028732 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L028770 ENT
ADRL L0288CA
ADRL L0288CE
ADRL L0288D2
ADRL L0288D7
ADRL L0288DC
ADRL L0288E1
ADRL L0288E6
ADRL L0288EA
ADRL L0288EF
ADRL L0288F4
ADRL L0288F8
ADRL L0288FB
ADRL L0288FE
ADRL L028903
ADRL L028906
ADRL L028909
ADRL L02890D
ADRL L028910
ADRL L028915
ADRL L02891A
ADRL L02891F
ADRL L028922
ADRL L028927
ADRL L02892A
ADRL L02892E
ADRL L028933
ADRL L028936
ADRL L02893B
ADRL L028940
ADRL L028945
ADRL L02894A
ADRL L028950
ADRL L028954
ADRL L028956
ADRL L02895A
ADRL L02895E
ADRL L028962
ADRL L028965
ADRL L028968
ADRL L02896E
ADRL L028974
L028814 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L028824 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L028854 ENT
DB $00
DB $00
L028856 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L028878 ENT
DB $03
DB $00
DB $03
DB $00
DB $FF
DB $FF
DB $00
DB $00
DB $FF
DB $FF
DB $02
DB $00
DB $02
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $03
DB $00
DB $02
DB $00
DB $FF
DB $FF
DB $02
DB $00
DB $FF
DB $FF
DB $00
DB $00
DB $FF
DB $FF
DB $02
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $03
DB $00
DB $FF
DB $FF
DB $03
DB $00
DB $01
DB $00
DB $FF
DB $FF
DB $00
DB $00
DB $FF
DB $FF
DB $00
DB $00
DB $02
DB $00
DB $02
DB $00
DB $02
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $00
DB $00
DB $02
DB $00
DB $00
DB $00
L0288CA ASC 'AND'00
L0288CE ASC 'BIT'00
L0288D2 ASC 'BYTE'00
L0288D7 ASC 'CONT'00
L0288DC ASC 'CSTR'00
L0288E1 ASC 'CTRL'00
L0288E6 ASC 'DEC'00
L0288EA ASC 'DONE'00
L0288EF ASC 'ELSE'00
L0288F4 ASC 'END'00
L0288F8 ASC 'EQ'00
L0288FB ASC 'GE'00
L0288FE ASC 'GSOS'00
L028903 ASC 'GT'00
L028906 ASC 'IF'00
L028909 ASC 'INC'00
L02890D ASC 'LE'00
L028910 ASC 'LOAD'00
L028915 ASC 'LONG'00
L02891A ASC 'LOOP'00
L02891F ASC 'LT'00
L028922 ASC 'NAME'00
L028927 ASC 'NE'00
L02892A ASC 'NOR'00
L02892E ASC 'NSTR'00
L028933 ASC 'OR'00
L028936 ASC 'PSTR'00
L02893B ASC 'READ'00
L028940 ASC 'TYPE'00
L028945 ASC 'WORD'00
L02894A ASC 'WRITE'00
L028950 ASC 'XOR'00
L028954 ASC '#'00
L028956 ASC 'MUL'00
L02895A ASC 'DIV'00
L02895E ASC 'MOD'00
L028962 ASC 'SL'00
L028965 ASC 'SR'00
L028968 ASC 'PTEXT'00
L02896E ASC 'INDEX'00
L028974 ASC 'TITLE'00
L02897A TSC
SEC
SBC #$0012
TCS
PHD
TCD
LDA #$FFFF
STA $07
LDA #$0000
STA $09
STA $0B
STA $0D
LDA $16
ORA $18
BNE L028999
BRL L028A19
L028999 PHA
LDX $18
LDA $16
PHX
PHA
_GetSysWFlag
PLA
BNE L028A19
PHA
PHA
LDX $18
LDA $16
PHX
PHA
_GetWRefCon
PLA
STA $0F
PLA
STA $11
PEA $9302
JSL L02CA27
PHA
JSL L027CEB
LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $01
STX $03
LDA [$01]
BEQ L028A06
LDA [$0F],Y
TAX
LDA [$0F]
STA $01
STX $03
LDA [$01]
STA $09
LDA [$0F],Y
TAX
LDA [$0F]
STA $01
STX $03
LDY #$0004
LDA [$01],Y
TAX
LDY #$0002
LDA [$01],Y
STX $0D
STA $0B
L028A06 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $01
STX $03
LDY #$0006
LDA [$01],Y
STA $07
L028A19 LDA $09
STA L024382
LDX $0D
LDA $0B
STX L024384+2
STA L024384
LDA $07
STA $05
LDA $14
STA $18
LDA $13
STA $17
LDY $05
PLD
TSC
CLC
ADC #$0016
TCS
TYA
RTL
L028A3F TSC
SEC
SBC #$0078
TCS
PHD
TCD
LDA #$2006
STA $5F
LDA #$001B
STA $61
LDA #$0000
STA $19
STA $17
STA $1D
LDA L0240D6
PHA
_SetCurResourceFile
PEA $9002
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0B
PEA $9003
JSL L02CA27
PHA
JSL L027CEB
PHA
PEI $7C
LDX $80
LDA $7E
PHX
PHA
_GetResourceAttr
PLA
STA $09
PEA $9004
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
PEI $7C
_CountResources
PLA
STA $1F
PLA
STA $21
JSL L0202F5
PHA
PHA
_GetPort
PLA
STA $2B
PLA
STA $2D
PEI $7C
PEA ^L02AC66
PEA L02AC66
PEA $0004
_Int2Hex
LDX $80
LDA $7E
PHX
PHA
PEA ^L02ABF9
PEA L02ABF9
PEA $0008
_Long2Hex
PEA $0000
PEA $003F
PEA $0000
LDX $80
LDA $7E
PHX
PHA
PEI $7C
JSL L025A27
PHX
PHA
PEA ^L02AC6B
PEA L02AC6B
JSL L02C7E6
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L026AB5
PEA L026AB5
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFE
PEA $800E
_NewWindow2
PLA
STA $27
PLA
STA $29
PEA $9006
JSL L02CA27
PHA
JSL L027CEB
LDX $29
LDA $27
PHX
PHA
_SetPort
PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0004
_GetCtlHandleFromID
PLA
STA $47
PLA
STA $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
TAX
LDY #$001C
LDA [$01],Y
STX $41
STA $3F
PEA ^L02ABF9
PEA L02ABF9
PEA $0008
LDX $41
LDA $3F
PHX
PHA
_LESetText
PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0003
_GetCtlHandleFromID
PLA
STA $47
PLA
STA $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
TAX
LDY #$001C
LDA [$01],Y
STX $41
STA $3F
PEA ^L02AC6B
PEA L02AC6B
JSL L02C7C2
STA $11
PEA ^L02AC6B
PEA L02AC6B
PEI $11
LDX $41
LDA $3F
PHX
PHA
_LESetText
PEA $0000
PEI $11
LDX $41
LDA $3F
PHX
PHA
_LESetSelect
LDA $09
AND #$0300
STA $0F
LDA $0F
BNE L028C76
LDA #$0001
PHA
PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0005
_GetCtlHandleFromID
_SetCtlValue
BRL L028CFA
L028C76 LDA $0F
CMP #$0100
BNE L028CA5
LDA #$0001
PHA
PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0006
_GetCtlHandleFromID
_SetCtlValue
BRA L028CFA
L028CA5 LDA $0F
CMP #$0200
BNE L028CD4
LDA #$0001
PHA
PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0007
_GetCtlHandleFromID
_SetCtlValue
BRA L028CFA
L028CD4 LDA #$0001
PHA
PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0008
_GetCtlHandleFromID
_SetCtlValue
L028CFA LDA #$0009
STA $07
L028CFF LDA $07
BMI L028D08
CMP #$0011
BCS L028D46
L028D08 LDA $07
SEC
SBC #$0006
ASL
TAX
LDA L02AC2E,X
AND $09
BEQ L028D42
LDA #$0001
PHA
PHA
PHA
LDX $29
LDA $27
PHX
PHA
LDA $07
LDX #$0000
TAY
BPL L028D2C
DEX
L028D2C PHX
PHA
_GetCtlHandleFromID
_SetCtlValue
L028D42 INC $07
BRA L028CFF
L028D46 PHA
PEA $FFFF
PEA $0000
TDC
CLC
ADC #$004B
PHA
_TaskMaster
PLA
STA $0D
CMP #$0008
BNE L028D8B
PEA $0088
PEA $0012
_MoveTo
PEA ^L02AC66
PEA L02AC66
PEA $0004
_DrawText
BRL L0297D9
L028D8B LDA $0D
CMP #$0014
BNE L028DE3
PEA $0000
TDC
CLC
ADC #$0033
PHA
PEA $0000
PEA $0000
PEA $027F
PEA $00C7
_SetRect
PEA $0000
PEI $57
PEI $55
PEA $0008
PEA $0000
TDC
CLC
ADC #$0033
PHA
LDA $5B
LDX $5D
PHX
PHA
_DragWindow
PEA $9020
JSL L02CA27
PHA
JSL L027CEB
BRL L0297D9
L028DE3 LDA $0D
CMP #$0021
BEQ L028DED
BRL L0297D9
L028DED LDA $71
LDX $73
PHX
PHA
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L028DFF
DEY
L028DFF TXA
CMP $03,S
BEQ L028E07
LDY #$0000
L028E07 PLA
PLA
TYA
BNE L028E0F
BRL L029763
L028E0F LDA #$0001
STA $1D
LDA #$0000
STA $09
LDA #$0006
STA $07
L028E1E LDA $07
BMI L028E27
CMP #$0011
BCS L028E65
L028E27 PHA
PHA
PHA
LDX $29
LDA $27
PHX
PHA
LDA $07
LDX #$0000
TAY
BPL L028E39
DEX
L028E39 PHX
PHA
_GetCtlHandleFromID
_GetCtlValue
PLA
BEQ L028E61
LDA $07
SEC
SBC #$0006
ASL
TAX
LDA L02AC2E,X
ORA $09
STA $09
L028E61 INC $07
BRA L028E1E
L028E65 LDA $19
CMP #$0001
BEQ L028E6F
BRL L029382
L028E6F PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0004
_GetCtlHandleFromID
PLA
STA $47
PLA
STA $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
TAX
LDY #$001C
LDA [$01],Y
STX $41
STA $3F
PHA
PHA
LDX $41
LDA $3F
PHX
PHA
_LEGetTextHand
PLA
STA $3B
PLA
STA $3D
PHA
LDX $41
LDA $3F
PHX
PHA
_LEGetTextLen
PLA
STA $15
PHA
PHA
LDY #$0002
LDA [$3B],Y
TAX
LDA [$3B]
PHX
PHA
PEI $15
_Hex2Long
PLA
STA $23
PLA
STA $25
LDX $25
LDA $23
CMP $7E
BNE L028EFC
CPX $80
L028EFC BNE L028F01
BRL L029382
L028F01 LDY #$0000
LDA $23
ORA $25
BNE L028F0B
INY ; bad ID (00000000) - v1.3.6 - allow all ranges of resource IDs
L028F0B TYA
LDX #$0000
TAY
BPL L028F13
DEX
L028F13 STX $01
ORA $01
BEQ L028F1E
LDA #$0001 ; bad ID
* BRA L028F38
L028F1E
* PEI $25
* LDA $23
* AND #$0000
* PHA
* LDA $03,S
* AND #$F800
* STA $03,S
* PLA
* STA $01
* PLA
* ORA $01
* BEQ L028F38
* LDA #$0001 ; bad ID (07FF0000++)
L028F38 CMP #$0000
BEQ L028F42
LDA #$0001
BRA L028F58
L028F42 JSL L02CA27 ; get GS/OS error code
LDX #$0000
CMP #$0000
BEQ L028F4F
INX
L028F4F TXA
CMP #$0000
BEQ L028F58
LDA #$0001
L028F58 TAX ; bad resource ID range
BEQ L028F82 ; if entry value <> 0
PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0015
_AlertWindow
PLA
STA $1B
LDA #$0000
STA $19
STA $1D
BRL L0290A3
L028F82 LDX $80 ; resource ID range is OK
LDA $7E
PHX
PHA
PEI $7C
JSL L027C72
PHX
PHA
LDA $01,S
STA $2F
LDA $03,S
STA $31
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L028FA4
DEY
L028FA4 TXA
CMP $03,S
BEQ L028FAC
LDY #$0000
L028FAC PLA
PLA
TYA
BNE L028FD8
PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0014
_AlertWindow
PLA
STA $1B
LDA #$0000
STA $19
STA $1D
BRL L0290A3
L028FD8 LDA #$0000
STA $13
L028FDD LDX $21
LDA $1F
SEC
SBC $13
BEQ L028FED
BVS L028FEB
EOR #$8000
L028FEB BMI L028FF0
L028FED BRL L0290A3
L028FF0 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L029022
DEX
L029022 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
CMP $23
BNE L029043
CPX $25
L029043 BNE L02909E
PEA $0000
PEI $7C
JSL L02597E
PHX
PHA
PEA ^L02494D
PEA L02494D
JSL L02C78E
LDX $25
LDA $23
PHX
PHA
PEA ^L02982C
PEA L02982C
PEA ^L02494D
PEA L02494D
LDA #$0020
CLC
ADC $01,S
STA $01,S
JSL L02C68C
PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0013
_AlertWindow
PLA
STA $1B
LDA #$0000
STA $19
STA $1D
BRA L0290A3
L02909E INC $13
BRL L028FDD
L0290A3 LDA $19
CMP #$0001
BEQ L0290AD
BRL L0292AA
L0290AD PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0010
_AlertWindow
PLA
STA $1B
LDA $1B
BNE L0290D1
BRL L0292A3
L0290D1 LDA L0240D6
PHA
_SetCurResourceFile
PEA $9032
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0B
PEA $9033
JSL L02CA27
PHA
JSL L027CEB
PEA $0000
PEI $7C
LDX $80
LDA $7E
PHX
PHA
_SetResourceAttr
PEA $9034
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
PEI $7C
LDX $80
LDA $7E
PHX
PHA
_LoadResource
PLA
STA $43
PLA
STA $45
PEA $9035
JSL L02CA27
PHA
JSL L027CEB
PEI $7C
LDX $80
LDA $7E
PHX
PHA
_DetachResource
LDX $45
LDA $43
PHX
PHA
_HLock
LDX $45
LDA $43
PHX
PHA
PEA $0000
PEI $7C
LDX $25
LDA $23
PHX
PHA
_AddResource
PEA $9038
JSL L02CA27
PHA
JSL L027CEB
PEI $7C
LDX $25
LDA $23
PHX
PHA
_WriteResource
PEA $9039
JSL L02CA27
PHA
JSL L027CEB
PEI $7C
LDX $80
LDA $7E
PHX
PHA
_RemoveResource
PEA $903A
JSL L02CA27
PHA
JSL L027CEB
LDA #$0000
STA $13
L0291D9 LDX $21
LDA $1F
SEC
SBC $13
BEQ L0291E9
BVS L0291E7
EOR #$8000
L0291E7 BMI L0291EC
L0291E9 BRL L0292A1
L0291EC LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L02921E
DEX
L02921E CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
CMP $7E
BNE L02923F
CPX $80
L02923F BNE L02929C
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L029273
DEX
L029273 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0005
STA $01
PLA
STA $03
LDA $23
STA [$01]
LDY #$0002
LDA $25
STA [$01],Y
LDA $23
LDX $25
STA $7E
STX $80
BRA L0292A1
L02929C INC $13
BRL L0291D9
L0292A1 BRA L0292AA
L0292A3 LDA #$0000
STA $19
STA $1D
L0292AA LDA $19
BEQ L0292B1
BRL L029382
L0292B1 LDX $80
LDA $7E
PHX
PHA
PEA ^L02ABF9
PEA L02ABF9
PEA $0008
_Long2Hex
PEA ^L02ABF9
PEA L02ABF9
PEA $0008
LDX $41
LDA $3F
PHX
PHA
_LESetText
PEA $0000
TDC
CLC
ADC #$0033
PHA
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
CLC
ADC #$0008
STA $01
STX $03
LDA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0035
PHA
LDA [$47],Y
TAX
LDA [$47]
CLC
ADC #$0008
STA $01
STX $03
LDA [$01],Y
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0037
PHA
LDA [$47],Y
TAX
LDA [$47]
CLC
ADC #$0008
STA $01
STX $03
LDY #$0004
LDA [$01],Y
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0039
PHA
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
CLC
ADC #$0008
STA $01
STX $03
LDY #$0006
LDA [$01],Y
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0033
PHA
_InvalRect
L029382 LDA $17
LDX #$0000
CMP #$0001
BNE L02938D
INX
L02938D TXA
CMP #$0000
BEQ L0293A7
LDA $1D
LDX #$0000
CMP #$0001
BNE L02939E
INX
L02939E TXA
CMP #$0000
BEQ L0293A7
LDA #$0001
L0293A7 TAX
BNE L0293AD
BRL L0296AF
L0293AD PHA
PHA
LDX $29
LDA $27
PHX
PHA
PEA $0000
PEA $0003
_GetCtlHandleFromID
PLA
STA $47
PLA
STA $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
TAX
LDY #$001C
LDA [$01],Y
STX $41
STA $3F
PHA
PHA
LDX $41
LDA $3F
PHX
PHA
_LEGetTextHand
PLA
STA $3B
PLA
STA $3D
PHA
LDX $41
LDA $3F
PHX
PHA
_LEGetTextLen
PLA
STA $15
LDX #$0000
TAY
BPL L029419
DEX
L029419 PHX
PHA
LDY #$0002
LDA [$3B],Y
TAX
LDA [$3B]
PHX
PHA
PEA ^L02ACAB
PEA L02ACAB
JSL L02C7E6
LDX $15
SEP #$20
LDA #$00
STA L02ACAB,X
REP #$20
PEA ^L02ACAB
PEA L02ACAB
PEA ^L02AC6B
PEA L02AC6B
JSL L02C751
TAX
BNE L029450
BRL L0296AF
L029450 PEA ^L02ACAB
PEA L02ACAB
JSL L02C395
PHX
PHA
PEA ^L02ACAB
PEA L02ACAB
JSL L02BF46
LDA #$0000
STA $13
L02946B LDX $21
LDA $1F
SEC
SBC $13
BEQ L02947B
BVS L029479
EOR #$8000
L029479 BMI L02947E
L02947B BRL L02958D
L02947E LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L0294B0
DEX
L0294B0 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
CMP $7E
BNE L0294D1
CPX $80
L0294D1 BNE L0294D6
BRL L029588
L0294D6 PEA ^L02ACAB
PEA L02ACAB
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L02950E
DEX
L02950E CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L02BF98
TAX
BNE L029588
PEA $0000
PEI $7C
JSL L02597E
PHX
PHA
PEA ^L02494D
PEA L02494D
JSL L02C78E
PEA ^L02ACAB
PEA L02ACAB
JSL L02C440
PHX
PHA
PEA ^L02494D
PEA L02494D
LDA #$0020
CLC
ADC $01,S
STA $01,S
JSL L02C78E
PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0012
_AlertWindow
PLA
STA $1B
LDA #$0000
STA $17
STA $1D
BRA L02958D
L029588 INC $13
BRL L02946B
L02958D LDA $17
CMP #$0001
BEQ L029597
BRL L0296AF
L029597 LDA #$0000
STA $13
L02959C LDX $21
LDA $1F
SEC
SBC $13
BEQ L0295AC
BVS L0295AA
EOR #$8000
L0295AA BMI L0295AF
L0295AC BRL L0296AF
L0295AF LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L0295E1
DEX
L0295E1 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0007
LDA [$01],Y
TAX
LDY #$0005
LDA [$01],Y
CMP $7E
BNE L029602
CPX $80
L029602 BEQ L029607
BRL L0296AA
L029607 LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L029639
DEX
L029639 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
CLC
ADC #$0009
PLX
STA $01
STX $03
LDA #$0001
STA [$01]
PEA ^L02ACAB
PEA L02ACAB
LDX L0240FE
LDA L0240FC
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
LDY #$0032
LDA [$01],Y
PHA
LDY #$0030
LDA [$01],Y
PHA
LDA $13
LDX #$000B
JSL L02DB64
LDX #$0000
TAY
BPL L02968A
DEX
L02968A CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L02BF46
BRA L0296AF
L0296AA INC $13
BRL L02959C
L0296AF LDA $1D
BNE L0296B6
BRL L029761
L0296B6 LDA $17
LDX #$0000
CMP #$0001
BNE L0296C1
INX
L0296C1 TXA
CMP #$0000
BEQ L0296CC
LDA #$0001
BRA L0296E0
L0296CC LDA $19
LDX #$0000
CMP #$0001
BNE L0296D7
INX
L0296D7 TXA
CMP #$0000
BEQ L0296E0
LDA #$0001
L0296E0 TAX
BEQ L029706
PEI $7C
JSL L023D5F
JSL L022467
PEI $7C
JSL L02333E
PEA $0000
PEI $7C
JSL L0229B5
LDX $80
LDA $7E
PHX
PHA
JSL L023681
L029706 LDA L0240D6
PHA
_SetCurResourceFile
PEA $9042
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0B
PEA $9043
JSL L02CA27
PHA
JSL L027CEB
PEI $09
PEI $7C
LDX $80
LDA $7E
PHX
PHA
_SetResourceAttr
PEA $9044
JSL L02CA27
PHA
JSL L027CEB
JSL L0202F5
L029761 BRA L0297D9
L029763 LDA $71
LDX $73
PHX
PHA
LDA #$0002
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L029777
DEY
L029777 TXA
CMP $03,S
BEQ L02977F
LDY #$0000
L02977F PLA
PLA
TYA
BEQ L02978B
LDA #$0001
STA $1D
BRA L0297D9
L02978B LDA $71
LDX $73
PHX
PHA
LDA #$0003
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L02979F
DEY
L02979F TXA
CMP $03,S
BEQ L0297A7
LDY #$0000
L0297A7 PLA
PLA
TYA
BEQ L0297B3
LDA #$0001
STA $17
BRA L0297D9
L0297B3 LDA $71
LDX $73
PHX
PHA
LDA #$0004
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L0297C7
DEY
L0297C7 TXA
CMP $03,S
BEQ L0297CF
LDY #$0000
L0297CF PLA
PLA
TYA
BEQ L0297D9
LDA #$0001
STA $19
L0297D9 LDA $1D
BEQ L0297E0
LDA #$0001
L0297E0 EOR #$0001
BEQ L0297E8
BRL L028D46
L0297E8 LDX $29
LDA $27
PHX
PHA
_CloseWindow
PEA $9050
JSL L02CA27
PHA
JSL L027CEB
LDX $2D
LDA $2B
PHX
PHA
_SetPort
LDA #$0000
STA $05
LDA $7A
STA $80
LDA $79
STA $7F
LDY $05
PLD
TSC
CLC
ADC #$007E
TCS
TYA
RTL
L02982C ASC '%0.8lX'00
L029833 TSC
SEC
SBC #$000E
TCS
PHD
TCD
LDX $16
LDA $14
PHX
PHA
PEI $12
JSL L027C72
STX $0D
STA $0B
ORA $0D
BEQ L02986E
PHA
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0009
_AlertWindow
PLA
STA $07
BRA L02988B
L02986E PHA
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $000A
_AlertWindow
PLA
STA $07
L02988B LDA $07
BEQ L0298F4
LDA L0240D6
PHA
_SetCurResourceFile
PEA $9102
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $09
PEA $9103
JSL L02CA27
PHA
JSL L027CEB
PEI $12
LDX $16
LDA $14
PHX
PHA
_RemoveResource
PEA $9104
JSL L02CA27
PHA
JSL L027CEB
LDX $16
LDA $14
PHX
PHA
PEI $12
JSL L023AB0
JSL L0202F5
L0298F4 LDA $07
STA $05
LDA $10
STA $16
LDA $0F
STA $15
LDY $05
PLD
TSC
CLC
ADC #$0014
TCS
TYA
RTL
L02990B TSC
SEC
SBC #$000A
TCS
PHD
TCD
LDA L0240D6
PHA
_SetCurResourceFile
PEA $9202
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $09
PEA $9203
JSL L02CA27
PHA
JSL L027CEB
PHA
PEI $0E
LDX $12
LDA $10
PHX
PHA
_GetResourceAttr
PLA
STA $07
PEA $9204
JSL L02CA27
PHA
JSL L027CEB
LDA $07
AND #$0080
BNE L029976
BRL L0299FC
L029976 JSL L0202F5
PHA
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0008
_AlertWindow
PLA
BNE L02999E
LDA #$FFFF
STA $05
BRA L029A05
L02999E LDA $07
AND #$FF7F
STA $07
LDA L0240D6
PHA
_SetCurResourceFile
PEA $9212
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $09
PEA $9213
JSL L02CA27
PHA
JSL L027CEB
PEI $07
PEI $0E
LDX $12
LDA $10
PHX
PHA
_SetResourceAttr
PEA $9214
JSL L02CA27
PHA
JSL L027CEB
L0299FC JSL L0202F5
LDA #$0000
STA $05
L029A05 LDA $0C
STA $12
LDA $0B
STA $11
LDY $05
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L029A18 TSC
SEC
SBC #$0026
TCS
PHD
TCD
PHA
PHA
_FrontWindow
PLA
STA $1B
PLA
STA $1D
PEA $9402
JSL L02CA27
PHA
JSL L027CEB
LDA $1B
ORA $1D
BNE L029A47
BRL L029C78
L029A47 PHA
PHA
LDX $1D
LDA $1B
PHX
PHA
_GetWRefCon
PLA
STA $1F
PLA
STA $21
PEA $9403
JSL L02CA27
PHA
JSL L027CEB
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
STA $01
STX $03
LDA [$01]
CMP #$800E
BNE L029A99
LDA #L024394
STA $23
LDA #^L024394
STA $25
PEI $25
PEI $23
LDA [$23]
ORA #$8000
PLX
STX $01
PLX
STX $03
STA [$01]
L029A99 PHA
PHA
_GetPort
PLA
STA $17
PLA
STA $19
LDX $1D
LDA $1B
PHX
PHA
_SetPort
PEA $0000
TDC
CLC
ADC #$0007
PHA
_GetPortRect
PEA $0000
TDC
CLC
ADC #$0007
PHA
_LocalToGlobal
PEA $0000
TDC
CLC
ADC #$000B
PHA
_LocalToGlobal
LDA $2A
AND #$0001
BEQ L029B55
PEA $0000
TDC
CLC
ADC #$0009
PHA
PEI $09
LDA $0D
SEC
SBC $01,S
STA $01,S
LDA #$0280
SEC
SBC $01,S
PLX
LDX #$0002
JSL L02D661
PLX
STX $01
PLX
STX $03
STA [$01]
PHA
LDX $1D
LDA $1B
PHX
PHA
_GetWFrame
PLA
AND #$1000
BEQ L029B55
STZ $25
TDC
CLC
ADC #$0009
STA $23
PEI $25
PEI $23
LDA [$23]
SEC
SBC #$000C
PLX
STX $01
PLX
STX $03
STA [$01]
L029B55 LDA $2A
AND #$0002
BNE L029B5F
BRL L029C44
L029B5F PEA $0000
TDC
CLC
ADC #$0007
PHA
PEI $07
LDA $0B
SEC
SBC $01,S
STA $01,S
LDA #$00BB
SEC
SBC $01,S
PLX
LDX #$0002
JSL L02D661
CLC
ADC #$000D
PLX
STX $01
PLX
STX $03
STA [$01]
PHA
LDX $1D
LDA $1B
PHX
PHA
_GetWFrame
PLA
AND #$8000
BEQ L029BBD
STZ $25
TDC
CLC
ADC #$0007
STA $23
PEI $25
PEI $23
LDA [$23]
CLC
ADC #$0006
PLX
STX $01
PLX
STX $03
STA [$01]
L029BBD PHA
LDX $1D
LDA $1B
PHX
PHA
_GetWFrame
PLA
AND #$0800
BEQ L029BEF
STZ $25
TDC
CLC
ADC #$0007
STA $23
PEI $25
PEI $23
LDA [$23]
SEC
SBC #$0006
PLX
STX $01
PLX
STX $03
STA [$01]
L029BEF PHA
LDX $1D
LDA $1B
PHX
PHA
_GetWFrame
PLA
AND #$0010
BEQ L029C44
PEA $0000
TDC
CLC
ADC #$000F
PHA
LDX $1D
LDA $1B
PHX
PHA
_GetRectInfo
STZ $25
TDC
CLC
ADC #$0007
STA $23
PEI $25
PEI $23
LDA [$23]
PHA
LDA $13
LDX #$0002
JSL L02D661
CLC
ADC $01,S
PLX
PLX
STX $01
PLX
STX $03
STA [$01]
L029C44 LDA $09
AND #$FFFE
PHA
PEI $07
LDX $1D
LDA $1B
PHX
PHA
_MoveWindow
PEA $9410
JSL L02CA27
PHA
JSL L027CEB
LDX $19
LDA $17
PHX
PHA
_SetPort
L029C78 LDA #$0000
STA $05
LDA $28
STA $2A
LDA $27
STA $29
LDY $05
PLD
TSC
CLC
ADC #$0028
TCS
TYA
RTL
L029C90 TSC
SEC
SBC #$0004
TCS
PHD
TCD
_GrafOff
PEA ^L029CB8
PEA L029CB8
JSL L02C482
JSL L02C3D4
PLD
TSC
CLC
ADC #$0004
TCS
RTL
L029CB8 ASC 'A fatal error occurred during GENESYS startup!'0A
ASC 'Press RETURN to exit: '00
L029CFD ENT
TSC
SEC
SBC #$0008
TCS
PHD
TCD
LDA #$0000
STA $05
STA $07
LDA $0A
STA $10
LDA $09
STA $0F
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L029D22 TSC
SEC
SBC #$00FD
TCS
PHD
TCD
LDA #$0009
STA $7E
LDX #$0101
LDA $02,X
PHA
LDA $00,X
STA $80
PLA
STA $82
LDA #$0001
STA $84
LDA #$0000
STA $86
STA $88
STA $8A
STA $8C
SEP #$20
LDA #$00
STA $8E
REP #$20
SEP #$20
LDA #$00
STA $8F
REP #$20
SEP #$20
LDA #$00
STA $90
REP #$20
SEP #$20
LDA #$00
STA $91
REP #$20
SEP #$20
LDA #$00
STA $92
REP #$20
SEP #$20
LDA #$00
STA $93
REP #$20
SEP #$20
LDA #$00
STA $94
REP #$20
SEP #$20
LDA #$00
STA $95
REP #$20
SEP #$20
LDA #$00
STA $96
REP #$20
SEP #$20
LDA #$00
STA $97
REP #$20
SEP #$20
LDA #$00
STA $98
REP #$20
SEP #$20
LDA #$00
STA $99
REP #$20
SEP #$20
LDA #$00
STA $9A
REP #$20
SEP #$20
LDA #$00
STA $9B
REP #$20
SEP #$20
LDA #$00
STA $9C
REP #$20
SEP #$20
LDA #$00
STA $9D
REP #$20
LDA #$0000
STA $9E
STA $A0
STA $A2
STA $A4
STA $A6
STA $A8
STA $AA
STA $AC
STA $AE
STA $B0
LDA #$0002
STA $B2
LDA #$0000
STA $B4
LDX #$0101
LDA $02,X
PHA
LDA $00,X
STA $B6
PLA
STA $B8
LDA #$0000
STA $BA
STA $BC
STA $BE
STA $C0
STA $C2
STA $C4
STA $C6
SEP #$20
LDA #$00
STA $C8
REP #$20
SEP #$20
LDA #$00
STA $C9
REP #$20
SEP #$20
LDA #$00
STA $CA
REP #$20
SEP #$20
LDA #$00
STA $CB
REP #$20
SEP #$20
LDA #$00
STA $CC
REP #$20
SEP #$20
LDA #$00
STA $CD
REP #$20
SEP #$20
LDA #$00
STA $CE
REP #$20
SEP #$20
LDA #$00
STA $CF
REP #$20
SEP #$20
LDA #$00
STA $D0
REP #$20
SEP #$20
LDA #$00
STA $D1
REP #$20
SEP #$20
LDA #$00
STA $D2
REP #$20
SEP #$20
LDA #$00
STA $D3
REP #$20
SEP #$20
LDA #$00
STA $D4
REP #$20
SEP #$20
LDA #$00
STA $D5
REP #$20
SEP #$20
LDA #$00
STA $D6
REP #$20
SEP #$20
LDA #$00
STA $D7
REP #$20
LDA #$0000
STA $D8
STA $DA
STA $DC
STA $DE
STA $E0
STA $E2
STA $E4
STA $E6
STA $E8
STA $EA
LDA #$2006
STA $64
LDA #$001B
STA $66
LDA #$0000
STA $18
STA $1A
PHA
PHA
_GetPort
PLA
STA $40
PLA
STA $42
PEA $2006
PEA $0000
TDC
CLC
ADC #$007E
PHA
JSL L02C243
PEA $9E02
JSL L02CA27
PHA
JSL L027CEB
LDA $A2
LDX $A4
PHX
PHA
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L029EF3
DEY
L029EF3 TXA
CMP $03,S
BEQ L029EFB
LDY #$0000
L029EFB PLA
PLA
TYA
BNE L029F05
LDA #$0073
BRA L029F08
L029F05 LDA #$0020
L029F08 SEP #$20
STA $11
REP #$20
PEI $86
PEA ^L02A580
PEA L02A580
PEA $0000
TDC
CLC
ADC #$0007
PHA
JSL L02C68C
LDA $88
LDX $8A
PHX
PHA
PEA ^L02A587
PEA L02A587
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L02C68C
LDA $11
AND #$00FF
BIT #$0080
BEQ L029F49
ORA #$FF00
L029F49 CMP #$0000
PHA
LDA $A2
LDX $A4
PHX
PHA
PEA ^L02A58F
PEA L02A58F
PEA $0000
TDC
CLC
ADC #$0044
PHA
JSL L02C68C
LDA L0240DA
PHA
PEA $0000
TDC
CLC
ADC #$0012
PHA
PEA $0004
_Int2Hex
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L026AB5
PEA L026AB5
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFC
PEA $800E
_NewWindow2
PLA
STA $3C
PLA
STA $3E
PEA $9E04
JSL L02CA27
PHA
JSL L027CEB
LDX $3E
LDA $3C
PHX
PHA
_SetPort
PHA
PHA
LDX $3E
LDA $3C
PHX
PHA
PEA $0000
PEA $0003
_GetCtlHandleFromID
PLA
STA $38
PLA
STA $3A
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
TAX
LDY #$001C
LDA [$01],Y
PHX
STA $30
PLA
STA $32
PEA $0000
TDC
CLC
ADC #$0012
PHA
PEA $0004
LDX $32
LDA $30
PHX
PHA
_LESetText
PEA $0000
PEA $0004
LDX $32
LDA $30
PHX
PHA
_LESetSelect
L02A03F PHA
PEA $FFFF
PEA $0000
TDC
CLC
ADC #$0050
PHA
_TaskMaster
PLA
STA $1C
CMP #$0014
BNE L02A0A3
PEA $0000
TDC
CLC
ADC #$0024
PHA
PEA $0000
PEA $0000
PEA $027F
PEA $00C7
_SetRect
PEA $0000
PEI $5C
PEI $5A
PEA $0008
PEA $0000
TDC
CLC
ADC #$0024
PHA
LDA $60
LDX $62
PHX
PHA
_DragWindow
BRL L02A477
L02A0A3 LDA $1C
CMP #$0021
BEQ L02A0AD
BRL L02A477
L02A0AD LDA $76
LDX $78
PHX
PHA
LDA #$0001
LDX #$0000
TAY
CMP $01,S
BEQ L02A0BF
DEY
L02A0BF TXA
CMP $03,S
BEQ L02A0C7
LDY #$0000
L02A0C7 PLA
PLA
TYA
BNE L02A0CF
BRL L02A451
L02A0CF LDA #$0001
STA $18
PHA
PHA
LDX $3E
LDA $3C
PHX
PHA
PEA $0000
PEA $0003
_GetCtlHandleFromID
PLA
STA $38
PLA
STA $3A
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
STA $01
STX $03
LDY #$001E
LDA [$01],Y
TAX
LDY #$001C
LDA [$01],Y
STX $32
STA $30
PHA
PHA
LDX $32
LDA $30
PHX
PHA
_LEGetTextHand
PLA
STA $2C
PLA
STA $2E
PHA
LDY #$0002
LDA [$2C],Y
TAX
LDA [$2C]
PHX
PHA
PHA
LDX $32
LDA $30
PHX
PHA
_LEGetTextLen
PLA
PHA
_Hex2Int
PLA
STA $1E
LDX #$0000
CMP #$0000
BNE L02A159
INX
L02A159 TXA
CMP #$0000
BEQ L02A164
LDA #$0001
BRA L02A17A
L02A164 JSL L02CA27
LDX #$0000
CMP #$0000
BEQ L02A171
INX
L02A171 TXA
CMP #$0000
BEQ L02A17A
LDA #$0001
L02A17A TAX
BNE L02A180
BRL L02A295
L02A180 PHA
PEA $0004
PEA ^L0245B2
PEA L0245B2
PEA $0000
PEA $0016
_AlertWindow
PLA
STA $1A
LDA L0240DA
PHA
PEA $0000
TDC
CLC
ADC #$0012
PHA
PEA $0004
_Int2Hex
PEA $0000
TDC
CLC
ADC #$0012
PHA
PEA $0004
LDX $32
LDA $30
PHX
PHA
_LESetText
PEA $0000
PEA $0004
LDX $32
LDA $30
PHX
PHA
_LESetSelect
PEA $0000
TDC
CLC
ADC #$0024
PHA
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
CLC
ADC #$0008
STA $01
STX $03
LDA [$01]
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0026
PHA
LDA [$38],Y
TAX
LDA [$38]
CLC
ADC #$0008
STA $01
STX $03
LDA [$01],Y
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0028
PHA
LDA [$38],Y
TAX
LDA [$38]
CLC
ADC #$0008
STA $01
STX $03
LDY #$0004
LDA [$01],Y
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$002A
PHA
LDY #$0002
LDA [$38],Y
TAX
LDA [$38]
CLC
ADC #$0008
STA $01
STX $03
LDY #$0006
LDA [$01],Y
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $0000
TDC
CLC
ADC #$0024
PHA
_InvalRect
LDA #$0008
STA $1C
LDA #$0000
STA $18
BRL L02A44F
L02A295 _WaitCursor
LDA $1E
STA L0240DA
PHA
PHA
LDA $A2
LDX $A4
PHX
PHA
LDA L024112
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $34
PLA
STA $36
JSL L02CA27
STA $1A
LDA $1A
BEQ L02A2D6
BRL L02A44F
L02A2D6 LDX $36
LDA $34
PHX
PHA
_HLock
PEA $2010
PEA $0000
TDC
CLC
ADC #$00B2
PHA
JSL L02C243
PEA $9E30
JSL L02CA27
PHA
JSL L027CEB
LDA #$0004
STA $EC
PEA $0000
TDC
CLC
ADC #$00EE
PHA
LDA $B4
PLX
STX $01
PLX
STX $03
STA [$01]
LDY #$0002
LDA [$34],Y
PHA
LDA [$34]
STA $F0
PLA
STA $F2
LDA $A2
LDX $A4
PHX
STA $F4
PLA
STA $F6
PEA $2012
PEA $0000
TDC
CLC
ADC #$00EC
PHA
JSL L02C243
PEA $9E31
JSL L02CA27
PHA
JSL L027CEB
LDA #$0001
STA $EC
PEA $2014
PEA $0000
TDC
CLC
ADC #$00EC
PHA
JSL L02C243
PEA $9E32
JSL L02CA27
PHA
JSL L027CEB
LDA L0240D6
PHA
_SetCurResourceFile
PEA $9E40
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $16
PEA $9E41
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
PEA $FFFF
PEI $1E
_UniqueResourceID
PLA
STA $20
PLA
STA $22
PEA $9E42
JSL L02CA27
PHA
JSL L027CEB
LDX $36
LDA $34
PHX
PHA
PEA $0000
PEI $1E
LDX $22
LDA $20
PHX
PHA
_AddResource
PEA $9E43
JSL L02CA27
PHA
JSL L027CEB
PEI $1E
LDX $22
LDA $20
PHX
PHA
_WriteResource
PEA $9E44
JSL L02CA27
PHA
JSL L027CEB
PEA $FFFF
PEI $1E
LDX $22
LDA $20
PHX
PHA
_ReleaseResource
PEA $9E45
JSL L02CA27
PHA
JSL L027CEB
JSL L022467
PEI $1E
JSL L02333E
PEA $0000
PEI $1E
JSL L0229B5
LDX $22
LDA $20
PHX
PHA
JSL L023681
JSL L0202F5
L02A44F BRA L02A477
L02A451 LDA $76
LDX $78
PHX
PHA
LDA #$0002
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L02A465
DEY
L02A465 TXA
CMP $03,S
BEQ L02A46D
LDY #$0000
L02A46D PLA
PLA
TYA
BEQ L02A477
LDA #$0001
STA $18
L02A477 LDA $1C
CMP #$0008
BEQ L02A481
BRL L02A51E
L02A481 PEA $006A
PEA $000C
_MoveTo
LDX #$0105
LDA $02,X
PHA
LDA $00,X
CLC
ADC #$0002
PHA
LDA $02,X
PHA
LDA $00,X
PLX
STA $01
STX $03
LDA [$01]
PHA
_DrawText
PEA $006A
PEA $0015
_MoveTo
PEA $0000
TDC
CLC
ADC #$0007
PHA
_DrawCString
PEA $006A
PEA $001E
_MoveTo
PEA $0000
TDC
CLC
ADC #$000B
PHA
_DrawCString
PEA $006A
PEA $0027
_MoveTo
PEA $0000
TDC
CLC
ADC #$0044
PHA
_DrawCString
L02A51E LDA $18
BEQ L02A525
LDA #$0001
L02A525 EOR #$0001
BEQ L02A52D
BRL L02A03F
L02A52D LDX $3E
LDA $3C
PHX
PHA
_CloseWindow
PEA $9E50
JSL L02CA27
PHA
JSL L027CEB
LDX $42
LDA $40
PHX
PHA
_SetPort
_InitCursor
LDA $1A
STA $05
LDX #$00FE
LDA $00,X
LDY $01,X
LDX #$0106
STA $00,X
STY $01,X
LDY $05
PLD
TSC
CLC
ADC #$0105
TCS
TYA
RTL
L02A580 ASC '$%0.2X'00
L02A587 ASC '$%0.4lX'00
L02A58F ASC '%lu byte%c'00
MX %00
L02A59A TSC
SEC
SBC #$007A
TCS
PHD
TCD
LDA #$0001
STA $11
LDA $7E
STA $13
sta $19
sta $33
LDA $80
STA $15
sta $1b
sta $35
LDA #$0004
STA $17
* LDA $7E
* STA $19
* LDA $80
* STA $1B
LDA #$00C3
STA $1D
LDA #$0006
STA $1F
* LDA #$0000
STz $21
STz $23
STz $25
STz $27
STz $29
STz $2B
STz $2D
LDA #$0003
STA $2F
sta $37
* LDA #$0000
STz $31
* LDA $7E
* STA $33
* LDA $80
* STA $35
* LDA #$0003
* STA $37
* LDA #$0000
STz $39
STz $3B
STz $3D
STz $3F
STz $41
STz $43
stz $45
stz $47
stz $49
stz $4b
stz $4d
stz $4f
stz $51
stz $53
* SEP #$20
* LDA #$00
* STA $45
* REP #$20
* SEP #$20
* LDA #$00
* STA $46
* REP #$20
* SEP #$20
* LDA #$00
* STA $47
* REP #$20
* SEP #$20
* LDA #$00
* STA $48
* REP #$20
* SEP #$20
* LDA #$00
* STA $49
* REP #$20
* SEP #$20
* LDA #$00
* STA $4A
* REP #$20
* SEP #$20
* LDA #$00
* STA $4B
* REP #$20
* SEP #$20
* LDA #$00
* STA $4C
* REP #$20
* SEP #$20
* LDA #$00
* STA $4D
* REP #$20
* SEP #$20
* LDA #$00
* STA $4E
* REP #$20
* SEP #$20
* LDA #$00
* STA $4F
* REP #$20
* SEP #$20
* LDA #$00
* STA $50
* REP #$20
* SEP #$20
* LDA #$00
* STA $51
* REP #$20
* SEP #$20
* LDA #$00
* STA $52
* REP #$20
* SEP #$20
* LDA #$00
* STA $53
* REP #$20
* SEP #$20
* LDA #$00
* STA $54
* REP #$20
* LDA #$0000
STz $55
STz $57
STz $59
STz $5B
STz $5D
STz $5F
STz $61
STz $63
STz $65
STz $67
_WaitCursor
LDA L0240D6
PHA
_SetCurResourceFile
PEA $9F02
JSL L02CA27
PHA
JSL L027CEB
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $07
PEA $9F03
JSL L02CA27
PHA
JSL L027CEB
PHA
PEI $82
LDX $86
LDA $84
PHX
PHA
_GetResourceAttr
PLA
STA $0B
PEA $9F04
JSL L02CA27
PHA
JSL L027CEB
PEA $0000
PEI $82
LDX $86
LDA $84
PHX
PHA
_SetResourceAttr
PEA $9F05
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
PEI $82
LDX $86
LDA $84
PHX
PHA
_LoadResource
PLA
STA $0D
PLA
STA $0F
JSL L02CA27
STA $09
PEI $0B
PEI $82
LDX $86
LDA $84
PHX
PHA
_SetResourceAttr
PEA $9F07
JSL L02CA27
PHA
JSL L027CEB
PHA
PEI $07
_SetResourceFileDepth
PLA
STA $07
PEA $9F08
JSL L02CA27
PHA
JSL L027CEB
JSL L0202F5
LDA $09
BEQ L02A77F
BRL L02A857
L02A77F PEI $82
LDX $86
LDA $84
PHX
PHA
_DetachResource
LDX $0F
LDA $0D
PHX
PHA
_HLock
PEA $2002
PEA $0000
TDC
CLC
ADC #$0011
PHA
JSL L02C243
PEA $2001
PEA $0000
TDC
CLC
ADC #$0017
PHA
JSL L02C243
JSL L02CA27
STA $09
TAX
BEQ L02A7CD
BRL L02A857
L02A7CD PEA $2010
PEA $0000
TDC
CLC
ADC #$002F
PHA
JSL L02C243
PEA $9F10
JSL L02CA27
PHA
JSL L027CEB
LDA #$0004
STA $69
PEA $0000
TDC
CLC
ADC #$006B
PHA
LDA $31
PLX
STX $01
PLX
STX $03
STA [$01]
LDY #$0002
LDA [$0D],Y
PHA
LDA [$0D]
STA $6D
PLA
STA $6F
PHA
PHA
LDX $0F
LDA $0D
PHX
PHA
_GetHandleSize
PLA
STA $71
PLA
STA $73
PEA $2013
PEA $0000
TDC
CLC
ADC #$0069
PHA
JSL L02C243
PEA $9F20
JSL L02CA27
PHA
JSL L027CEB
LDA #$0001
STA $69
PEA $2014
PEA $0000
TDC
CLC
ADC #$0069
PHA
JSL L02C243
L02A857 LDX $0F
LDA $0D
PHX
PHA
_DisposeHandle
_InitCursor
LDA $09
STA $05
LDA $7C
STA $86
LDA $7B
STA $85
LDY $05
PLD
TSC
CLC
ADC #$0084
TCS
TYA
RTL
L02A888 TSC
SEC
SBC #$0008
TCS
PHD
TCD
PEA $0000
PEA $000F
PEA $002E
LDX $10
LDA $0E
PHX
PHA
PEI $0C
JSL L025A27
PHX
PHA
PEA ^L02AC46
PEA L02AC46
JSL L02C7E6
SEP #$20
LDA #$00
STA L02AC55
REP #$20
PEA ^L02AC44
PEA L02AC44
PEA ^L02AC46
PEA L02AC46
JSL L02C7C2
PLX
STX $01
PLX
STX $03
STA [$01]
LDA #L02AC44
STA $05
LDA #^L02AC44
STA $07
LDA $0A
STA $10
LDA $09
STA $0F
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
L02A8F0 ENT
RTL
L02A8F1 TSC
SEC
SBC #$0048
TCS
PHD
TCD
PHB
PHB
PLA
STA $05
PEA >L02ABC8
PLB
PLB
PHA
PHA
_GetPort
PLA
STA $0D
PLA
STA $0F
LDX $4E
LDA $4C
PHX
PHA
_SetPort
PEA $0000
TDC
CLC
ADC #$0017
PHA
_GetPenState
PEA $0002
PEA $0001
_SetPenSize
PEA $8002
_SetPenMode
LDA $54
STA $11
BRL L02AB77
L02A95C PEA $0000
PEA $000A
LDX L02ABC9+2
LDA L02ABC9
PHX
PHA
PEI $58
PEI $56
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PLY
PLA
LDX #$0001
CMP $03,S
BNE L02A985
TYA
CMP $01,S
L02A985 BCS L02A988
DEX
L02A988 PLA
PLA
TXA
BNE L02A990
BRL L02AA77
L02A990 PHA
PHA
PHA
LDX $4E
LDA $4C
PHX
PHA
_GetUpdateRgn
_EmptyRgn
PLA
BNE L02A9B3
BRL L02AA77
L02A9B3 LDX $58
LDA $56
STX L02ABC9+2
STA L02ABC9
PEA ^L02ABCD
PEA L02ABCD
LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01]
ASL
ASL
CLC
ADC $01,S
STA $01,S
_SetPenPat
LDA #$0000
STA $07
L02A9E7 LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01],Y
SEC
SBC $07
BEQ L02AA01
BVS L02A9FF
EOR #$8000
L02A9FF BMI L02AA03
L02AA01 BRA L02AA34
L02AA03 LDY #$0002
LDA [$50],Y
PHA
LDA [$50]
CLC
ADC #$0004
PHA
LDA $07
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
PLX
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
_FrameRgn
INC $07
BRA L02A9E7
L02AA34 LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01]
BMI L02AA47
DEC
BPL L02AA49
L02AA47 BRA L02AA66
L02AA49 LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STX $15
STA $13
PEI $15
PEI $13
LDA [$13]
DEC
PLX
STX $01
PLX
STX $03
STA [$01]
BRA L02AA77
L02AA66 LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA #$0003
STA [$01]
L02AA77 BRL L02AB91
L02AA7A LDX $58
LDA $56
STX L02ABC9+2
STA L02ABC9
PEA ^L02AC02
PEA L02AC02
LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01]
ASL
ASL
CLC
ADC $01,S
STA $01,S
_SetPenPat
LDA #$0000
STA $07
L02AAAE LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01],Y
SEC
SBC $07
BEQ L02AAC8
BVS L02AAC6
EOR #$8000
L02AAC6 BMI L02AACA
L02AAC8 BRA L02AAFB
L02AACA LDY #$0002
LDA [$50],Y
PHA
LDA [$50]
CLC
ADC #$0004
PHA
LDA $07
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
PLX
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
_FrameRgn
INC $07
BRA L02AAAE
L02AAFB BRL L02AB91
L02AAFE PEA ^L02AC02
PEA L02AC02
LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01]
ASL
ASL
CLC
ADC $01,S
STA $01,S
_SetPenPat
LDA #$0000
STA $07
L02AB28 LDY #$0002
LDA [$50],Y
TAX
LDA [$50]
STA $01
STX $03
LDA [$01],Y
SEC
SBC $07
BEQ L02AB42
BVS L02AB40
EOR #$8000
L02AB40 BMI L02AB44
L02AB42 BRA L02AB75
L02AB44 LDY #$0002
LDA [$50],Y
PHA
LDA [$50]
CLC
ADC #$0004
PHA
LDA $07
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
PLX
STA $01
STX $03
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
_FrameRgn
INC $07
BRA L02AB28
L02AB75 BRA L02AB91
L02AB77 LDA $11
CMP #$0003
BCC L02AB81
LDA #$0003
L02AB81 ASL
TAX
LDAL L02AB89,X
PHA
RTS
L02AB89 DA L02A95C-1
DA L02AA7A-1
DA L02AAFE-1
DA L02AB91-1
L02AB91 PEA $0000
TDC
CLC
ADC #$0017
PHA
_SetPenState
LDX $0F
LDA $0D
PHX
PHA
_SetPort
LDA $4A
STA $58
LDA $49
STA $57
PEI $05
PLB
PLB
PLD
TSC
CLC
ADC #$0056
TCS
RTL
L02ABC8 DB $00
L02ABC9 ADRL $00000000
L02ABCD DB $4F
DB $4F
DB $4F
DB $4F
DB $F4
DB $F4
DB $F4
DB $F4
DB $4F
DB $4F
DB $4F
DB $4F
DB $F4
DB $F4
DB $F4
DB $F4
DB $4F
DB $4F
DB $4F
DB $4F
DB $F4
DB $F4
DB $F4
DB $F4
DB $4F
DB $4F
DB $4F
DB $4F
DB $F4
DB $F4
DB $F4
DB $F4
DB $4F
DB $4F
DB $4F
DB $4F
DB $F4
DB $F4
DB $F4
DB $F4
DB $4F
DB $4F
DB $4F
DB $4F
L02ABF9 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02AC02 DB $44
DB $FF
DB $44
DB $FF
DB $4F
DB $F4
DB $4F
DB $F4
DB $FF
DB $44
DB $FF
DB $44
DB $F4
DB $4F
DB $F4
DB $4F
DB $44
DB $FF
DB $44
DB $FF
DB $4F
DB $F4
DB $4F
DB $F4
DB $FF
DB $44
DB $FF
DB $44
DB $F4
DB $4F
DB $F4
DB $4F
DB $44
DB $FF
DB $44
DB $FF
DB $4F
DB $F4
DB $4F
DB $F4
DB $FF
DB $44
DB $FF
DB $44
L02AC2E DB $00
DB $01
DB $00
DB $02
DB $00
DB $03
DB $00
DB $40
DB $00
DB $08
DB $80
DB $00
DB $40
DB $00
DB $10
DB $00
DB $08
DB $00
DB $04
DB $00
DB $00
DB $80
L02AC44 DB $00
DB $00
L02AC46 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02AC55 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02AC66 DB $00
DB $00
DB $00
DB $00
DB $00
L02AC6B DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02ACAB DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02ACEC ENT
DB $02
DB $00
DB $00
DB $80
DB $04
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $B0
DB $00
DB $00
DB $00
DB $00
DB $00
L02ACFE ENT
TSC
SEC
SBC #$0012
TCS
PHD
TCD
LDA $24
STA $11
BRL L02B1C8
L02AD0D LDA $22
STA L02B36C
LDA #$0000
STA L02B362
PHA
PHA
_GetPort
PLA
STA L02B368
PLA
STA L02B36A
_WaitCursor
PHA
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L02B3D1
PEA L02B3D1
PEA $800E
_NewWindow2
PLA
STA L02B372
PLA
STA L02B374
LDX L02B374
LDA L02B372
PHX
PHA
_SetPort
PEA $0013
PEA $000F
_MoveTo
PEA ^L02B210
PEA L02B210
_DrawCString
BRL L02B1F8
L02ADA3 PEA ^L02B3C9
PEA L02B3C9
_EraseRect
PEA $0005
PEA $0002
_SetPenSize
PEA $0013
PEA $000F
_MoveTo
LDA L02B36C
BNE L02ADEA
PEA ^L02B222
PEA L02B222
_DrawCString
BRA L02ADFA
L02ADEA PEA ^L02B237
PEA L02B237
_DrawCString
L02ADFA PHA
PHA
LDX L02B374
LDA L02B372
PHX
PHA
PEA $0000
PEA ^L02B421
PEA L02B421
_NewControl2
PLA
STA L02B364
PLA
STA L02B366
LDX L02B366
LDA L02B364
PHX
PHA
_ShowControl
LDX L02B374
LDA L02B372
PHX
PHA
_DrawControls
PEA $0002
PEA $0001
_SetPenSize
PEA ^L02B3C1
PEA L02B3C1
_FrameRect
PEA ^L02B37E
PEA L02B37E
_FrameRect
_PenNormal
PEA $0013
PEA $0037
_MoveTo
PEA ^L02B24D
PEA L02B24D
_DrawCString
BRL L02B1F8
L02AEA0 PEA $0013
PEA $001E
_MoveTo
PEA $0000
PEI $16
JSL L02597E
STX $09
STA $07
LDX $09
LDA $07
PHX
PHA
_DrawCString
LDX $09
LDA $07
PHX
PHA
JSL L02C7C2
PHX
PHA
PEA ^L02B38E
PEA L02B38E
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
_DrawCString
PEA ^L02B386
PEA L02B386
_EraseRect
STZ L02B370
STZ L02B36E
BRL L02B1F8
L02AF0D LDA $22
DEC
LDX #$012C
JSL L02DB64
LDX $1E
JSL L02D661
LDX #$0000
TAY
BPL L02AF24
DEX
L02AF24 STX L02B370
STA L02B36E
BRL L02B1F8
L02AF2D LDA #$012C
LDX $22
JSL L02DB64
LDX $1E
JSL L02CA89
PHA
PEA $0021
JSL L02B2F1
LDA $20
DEC
LDX #$012C
JSL L02DB64
LDX $1C
JSL L02D661
PHA
LDA #$012C
LDX $22
JSL L02DB64
LDX $1C
JSL L02D661
LDX $1E
JSL L02D661
CLC
ADC $01,S
STA $01,S
PEA $003A
JSL L02B2F1
BRL L02B1F8
L02AF79 LDX L02B374
LDA L02B372
PHX
PHA
_CloseWindow
LDX L02B36A
LDA L02B368
PHX
PHA
_SetPort
_InitCursor
BRL L02B1F8
L02AFAA LDA #$FFFE
STA $05
BRL L02B1FD
L02AFB2 INC L02B362
LDA L02B362
BMI L02AFC0
DEC
DEC
DEC
DEC
BPL L02AFC2
L02AFC0 BRA L02AFCA
L02AFC2 LDA #$FFFE
STA $05
L02AFC7 BRL L02B1FD
L02AFCA LDA #$0000
STA $0B
L02AFCF PHA
PEA $0000
_Button
PLA
BEQ L02B054
PEA $0000
TDC
CLC
ADC #$000D
PHA
_GetMouse
PHA
PEA $0000
TDC
CLC
ADC #$000D
PHA
PEA ^L02B376
PEA L02B376
_PtInRect
PLA
BEQ L02B030
LDA $0B
BNE L02B02E
PEA $0001
LDX L02B366
LDA L02B364
PHX
PHA
_HiliteControl
LDA #$FFFF
STA $0B
L02B02E BRA L02B051
L02B030 LDA $0B
CMP #$FFFF
BNE L02B051
PEA $0000
LDX L02B366
LDA L02B364
PHX
PHA
_HiliteControl
LDA #$0000
STA $0B
L02B051 BRL L02AFCF
L02B054 LDA $0B
CMP #$FFFF
BNE L02B082
PEA $0000
LDX L02B366
LDA L02B364
PHX
PHA
_HiliteControl
_InitCursor
LDA #$FFFF
STA $05
BRL L02B1FD
L02B082 BRL L02B1F8
L02B085 LDX L02B370
LDA L02B36E
PHX
PHA
LDA #$012C
LDX #$0000
TAY
BPL L02B097
DEX
L02B097 PHX
PHA
PEI $28
PEI $26
LDA #$0048
LDX #$0000
TAY
BPL L02B0A7
DEX
L02B0A7 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L02DC66
PEI $28
PEI $26
LDA #$002C
LDX #$0000
TAY
BPL L02B0D2
DEX
L02B0D2 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
PEI $2C
PEI $2A
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
JSL L02DBC3
PEI $28
PEI $26
LDA #$0030
LDX #$0000
TAY
BPL L02B10C
DEX
L02B10C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L02DC66
PLA
PLX
PEA $0000
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $01,S
PEA $0021
JSL L02B2F1
BRL L02B1F8
L02B147 PEA $0013
PEA $001E
_MoveTo
PEA ^L02B258
PEA L02B258
_DrawCString
BRL L02B1F8
L02B16A PEA ^L02B3C1
PEA L02B3C1
_EraseRect
PEA $0013
PEA $001E
_MoveTo
PEA ^L02B28B
PEA L02B28B
_DrawCString
PEA $0013
PEA $0027
_MoveTo
PEA ^L02B2BE
PEA L02B2BE
_DrawCString
PEA $012C
PEA $003A
JSL L02B2F1
L02B1C4 BRA L02B1F8
L02B1C6 BRA L02B1F8
L02B1C8 LDA $11
SEC
SBC #$FFFF
CMP #$000C
BCC L02B1D6
LDA #$000C
L02B1D6 ASL
TAX
LDAL L02B1DE,X
PHA
RTS
L02B1DE DA L02AD0D-1
DA L02ADA3-1
DA L02AEA0-1
DA L02AF0D-1
DA L02AF2D-1
DA L02AF79-1
DA L02AFAA-1
DA L02AFB2-1
DA L02AFCA-1
DA L02B085-1
DA L02B147-1
DA L02B16A-1
DA L02B1C6-1
L02B1F8 LDA #$0000
STA $05
L02B1FD LDA $14
STA $2C
LDA $13
STA $2B
LDY $05
PLD
TSC
CLC
ADC #$002A
TCS
TYA
RTL
L02B210 ASC 'Preparing data...'00
L02B222 ASC 'Generating source...'00
L02B237 ASC 'Generating equates...'00
L02B24D ASC 'Total file'00
L02B258 ASC 'Writing output header '
ASC ' '00
L02B28B ASC 'Generation complete '
ASC ' '00
L02B2BE ASC 'Please stand by... '
ASC ' '00
L02B2F1 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA #$012C
LDX #$0001
CMP $12
BEQ L02B305
BCS L02B306
L02B305 DEX
L02B306 TXA
BNE L02B30E
LDA #$012C
BRA L02B310
L02B30E LDA $12
L02B310 STA $12
PEA $0000
TDC
CLC
ADC #$0005
PHA
PEA $001E
PEI $10
LDA #$001E
CLC
ADC $12
PHA
LDA $10
CLC
ADC #$0008
PHA
_SetRect
PEA $0000
TDC
CLC
ADC #$0005
PHA
PEA $4444
PEA $4444
_SpecialRect
LDA $0E
STA $12
LDA $0D
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
RTL
DB $00
L02B362 DB $00
DB $00
L02B364 DB $00
DB $00
L02B366 DB $00
DB $00
L02B368 DB $00
DB $00
L02B36A DB $00
DB $00
L02B36C DB $00
DB $00
L02B36E DB $00
DB $00
L02B370 DB $00
DB $00
L02B372 DB $00
DB $00
L02B374 DB $00
DB $00
L02B376 DW $0005
DW $0102
DW $0012
DW $0152
L02B37E DW $0039
DW $001C
DW $0043
DW $014C
L02B386 DW $0021
DW $001E
DW $0029
DW $014A
L02B38E ASC ' '
ASC ' '00
L02B3C1 DW $0020
DW $001C
DW $002A
DW $014C
L02B3C9 DW $0001
DW $0001
DW $0046
DW $015C
L02B3D1 DW $0050
DW $2020 ; frame bits
ADRL $00000000 ; title ptr
ADRL $00000000 ; refcon
DW $0000 ; zoom rect
DW $0000
DW $0000
DW $0000
ADRL $00000000 ; color table ptr
DW $0000 ; origin
DW $0000
DW $0000 ; data size
DW $0000
DW $0000 ; max size
DW $0000
DW $0000 ; scroll size
DW $0000
DW $0000 ; page size
DW $0000
ADRL $00000000 ; info bar refcon
DW $0000 ; info bar hite
ADRL $00000000 ; window defproc
ADRL $00000000 ; info bar defproc
ADRL $00000000 ; content defproc
DW $0030 ; content rect
DW $008C
DW $0078
DW $01F4
ADRL $FFFFFFFF ; starting plane
ADRL $00000000 ; storage ptr
DB $00
DB $00
L02B421 DW $0007 ; pCount
ADRL $00000002 ; ID
DW $0005 ; rect
DW $0102
DW $0012
DW $0152
ADRL $80000000 ; procRef
DW $0000 ; flag
DW $1000 ; moreFlags
ADRL $00000000 ; refCon
ADRL L02B449 ; titleRef
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02B449 STR 'Stop'
DB $00
L02B44F PHB
PHD
PHK
PLB
PHA
PHA
TSC
TCD
PEA $0000
_GetCurResourceFile
PLA
STA L02BC54
LDA L024110
PHA
_SetCurResourceFile
PEA $0000
PEA $FFFF
_SetResourceFileDepth
PLA
STA L02BC56
LDA L021EEC
ORA L021EEC+2
BEQ L02B49B
LDA L021EEC+2
PHA
LDA L021EEC
PHA
_SelectWindow
BRL L02B6F6
L02B49B _WaitCursor
PEA $0000
PEA $0000
PEA $5751
PEA $0000
PEA $0001
_LoadResource
BCC L02B4CD
_InitCursor
PLY
PLY
LDX #$6002
JSL L027D42
BRL L02B6F6
L02B4CD _InitCursor
PLA
STA L02BC48
PLA
STA L02BC48+2
PEA $0000
PEA $0000
LDA L02BC48+2
PHA
LDA L02BC48
PHA
JSL L02BAD5
PLA
STA L02BC4C
PLA
STA L02BC4C+2
PEA $0000
PEA $0000
LDA L02BC48+2
PHA
LDA L02BC48
PHA
_GetHandleSize
PLA
STA L02BC50
PLA
STA L02BC50+2
BCC L02B51F
LDX #$6004
JSL L027D42
BRL L02B6F6
L02B51F JSL L02B865
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_FrontWindow
LDA $01,S
ORA $03,S
BNE L02B56B
PLA
PLA
L02B544 PLA
PLA
PLA
PLA
L02B548 LDA #$0000
LDX #$0001
JSL L02B960
JSL L02B9D6
BCC L02B565
LDA #$FFFF
LDX #$6000
JSL L027D42
BRL L02B6F6
L02B565 STA L02BD70
BRL L02B5F3
L02B56B _GetWRefCon
LDA $01,S
ORA $03,S
BEQ L02B544
JSL L02BAD5
PLA
STA $01
PLA
STA $03
LDY #$0006
LDA [$01],Y
CMP #$5752
BNE L02B5A5
LDA #$5752
LDX #$0001
JSL L02B960
JSL L02B9D6
BCC L02B59F
BRL L02B548
L02B59F STA L02BD70
BRL L02B5F3
L02B5A5 CMP #$0000
BNE L02B5AD
BRL L02B5DB
L02B5AD CMP #$0001
BNE L02B5B5
BRL L02B5DB
L02B5B5 CMP #$0002
BNE L02B5BD
BRL L02B5DB
L02B5BD CMP #$5754
BNE L02B5DB
LDA #$5754
LDX #$0001
JSL L02B960
JSL L02B9D6
BCC L02B5D5
BRL L02B548
L02B5D5 STA L02BD70
BRL L02B5F3
L02B5DB LDY #$0000
LDA [$01],Y
LDX #$0002
JSL L02B960
JSL L02B9D6
BCC L02B5F0
BRL L02B548
L02B5F0 STA L02BD70
L02B5F3 LDA L02435A
AND #$0800
BEQ L02B5FE
LDA #$FFFF
L02B5FE STA L02BCF0
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L02BCE0
PEA L02BCE0
PEA ^L02BABA
PEA L02BABA
PEA $0000
PEA $0000
PEA $0000
PEA ^L02BC81
PEA L02BC81
PEA $800E
_NewWindow2
PLA
STA L021EEC
PLA
STA L021EEC+2
LDA L021EEC+2
PHA
LDA L021EEC
PHA
_SetPort
LDA L02BC4C
STA L02BD2A
LDA L02BC4C+2
STA L02BD2A+2
LDA L02BC50
STA L02BD2E
LDA L02BC50+2
STA L02BD2E+2
LDA L02BCF0
BEQ L02B69A
LDA L02BD4E
STA L02BD0C+2
LDA L02BD4C
STA L02BD0C
PEA $0000
PEA $0000
LDA L021EEC+2
PHA
LDA L021EEC
PHA
PEA $0000
PEA ^L02BD72
PEA L02BD72
_NewControl2
PLA
STA L02BC70
PLA
STA L02BC70+2
BRA L02B6AA
L02B69A LDA L02BD4A
STA L02BD0C+2
LDA L02BD48
STA L02BD0C
JSL L02BA93
L02B6AA PEA $0000
PEA $0000
LDA L021EEC+2
PHA
LDA L021EEC
PHA
PEA $0000
PEA ^L02BCF2
PEA L02BCF2
_NewControl2
PLA
STA L02BC68
PLA
STA L02BC68+2
PEA $0000
PEA $0000
LDA L021EEC+2
PHA
LDA L021EEC
PHA
PEA $0000
PEA ^L02BD50
PEA L02BD50
_NewControl2
PLA
STA L02BC6C
PLA
STA L02BC6C+2
L02B6F6 LDA L02BC54
PHA
_SetCurResourceFile
PEA $0000
LDA L02BC56
PHA
_SetResourceFileDepth
PLA
PLA
PLA
PLD
PLB
LDA #$0000
RTL
L02B718 PHB
PHD
PHK
PLB
LDA L021EEC+2
PHA
LDA L021EEC
PHA
_CloseWindow
STZ L021EEC+2
STZ L021EEC
LDA L02BC60
ORA L02BC60+2
BEQ L02B74C
LDA L02BC60+2
PHA
LDA L02BC60
PHA
_DisposeHandle
JSL L020323
L02B74C PEA $FFFF
PEA $5751
PEA $0000
PEA $0001
_ReleaseResource
JSL L0202F5
PLD
PLB
RTL
L02B766 PHB
PHD
PHK
PLB
LDA L02435A
AND #$0800
BEQ L02B7EF
PEA $0000
LDA L02BC6C+2
PHA
LDA L02BC6C
PHA
_GetCtlValue
PLX
LDA L02434E
AND #$00FF
CMP #$0008
BNE L02B798
CPX L02BC64
BEQ L02B7EF
DEX
BRA L02B7A3
L02B798 CMP #$0015
BNE L02B7EF
CPX L02BC66
BCS L02B7EF
INX
L02B7A3 PHX
PHX
LDA L02BC6C+2
PHA
LDA L02BC6C
PHA
_SetCtlValue
PLA
LDX #$0000
JSL L02B960
JSL L02B9D6
JSL L02BA93
PEA $0005
LDA L02BD2A+2
PHA
LDA L02BD2A
PHA
LDA L02BD2E+2
PHA
LDA L02BD2E
PHA
PEA $0000
PEA $0000
PEA $0000
LDA L02BC68+2
PHA
LDA L02BC68
PHA
_TESetText
L02B7EF PLD
PLB
RTL
L02B7F2 PHB
PHD
PHK
PLB
LDA L024372
CMP #$1002
BNE L02B856
PEA $0000
LDA L02BC6C+2
PHA
LDA L02BC6C
PHA
_GetCtlValue
PLA
CMP #$2710
BCS L02B819
BRL L02B85F
L02B819 LDX #$0000
JSL L02B960
JSL L02B9D6
JSL L02BA93
PEA $0005
LDA L02BD2A+2
PHA
LDA L02BD2A
PHA
LDA L02BD2E+2
PHA
LDA L02BD2E
PHA
PEA $0000
PEA $0000
PEA $0000
LDA L02BC68+2
PHA
LDA L02BC68
PHA
_TESetText
BRL L02B85F
L02B856 CMP #$1003
BNE L02B85F
JSL L02BAFF
L02B85F PLD
PLB
LDA #$0000
RTL
L02B865 PHD
PHA
PHA
TSC
TCD
LDA L02BC4C
STA $01
LDA L02BC4C+2
STA $03
LDY #$0000
BRA L02B87A
L02B879 INY
L02B87A LDA [$01],Y
CMP #$4E5C
BNE L02B879
INY
INY
TYA
CLC
ADC $01
TAX
LDA #$0000
ADC $03
PHA
PHA
PHX
PEA $0005
PEA $0000
_Dec2Int
PLA
STA L02BC64
SEP #$20
LDY #$0000
BRA L02B8A9
L02B8A8 INY
L02B8A9 LDA [$01],Y
CMP #$7E
BNE L02B8A8
REP #$20
INY
STY L02B95C
STZ L02B95E
DEY
BRA L02B8BC
L02B8BB DEY
L02B8BC LDA [$01],Y
CMP #$4E5C
BNE L02B8BB
INY
INY
TYA
CLC
ADC $01
TAX
LDA #$0000
ADC $03
PHA
PHA
PHX
PEA $0005
PEA $0000
_Dec2Int
PLA
STA L02BC66
PEA $0000
PEA $0000
LDA L02B95E
PHA
LDA L02B95C
PHA
LDA L024388
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
BCC L02B90E
LDX #$6102
JSL L027D42
L02B90E PLA
STA L02BC60
PLA
STA L02BC60+2
LDA L02BC4C+2
PHA
LDA L02BC4C
PHA
LDA L02BC60+2
PHA
LDA L02BC60
PHA
LDA L02B95E
PHA
LDA L02B95C
PHA
_PtrToHand
BCC L02B93E
LDX #$6104
JSL L027D42
L02B93E PEA $0000
PEA $0000
LDA L02BC60+2
PHA
LDA L02BC60
PHA
JSL L02BAD5
PLA
STA L02BD6C
PLA
STA L02BD6C+2
PLX
PLX
PLD
RTL
L02B95C DW $0000
L02B95E DW $0000
L02B960 STA L02B9D4
CPX #$0000
BNE L02B994
STZ L02BC74+7
LDA L02B9D4
PHA
PEA ^L02BC76
PEA L02BC76
PEA $0005
PEA $0000
_Int2Dec
BCC L02B98B
LDX #$6202
JSL L027D42
L02B98B STZ L02BC74+$A
STZ L02BC74+8
BRL L02B9D3
L02B994 CPX #$0001
BNE L02B9A4
SEP #$10
LDX #$57
STX L02BC74+7
REP #$10
BRA L02B9AD
L02B9A4 SEP #$10
LDX #$52
STX L02BC74+7
REP #$10
L02B9AD LDA L02B9D4
PHA
PEA ^L02BC7C
PEA L02BC7C
PEA $0004
_Int2Hex
BCC L02B9CA
LDX #$6204
JSL L027D42
L02B9CA STZ L02BC74+5
STZ L02BC74+4
STZ L02BC74+2
L02B9D3 RTL
L02B9D4 DW $0000
L02B9D6 PHD
PHA
PHA
TSC
TCD
LDA L02BC4C+2
STA $03
LDA L02BC4C
STA $01
LDA L02BC74
AND #$00FF
INC
STA L02BA91
SEP #$20
LDY #$0000
LDX #$0001
BRA L02B9FA
L02B9F9 INY
L02B9FA CPY L02BC50
BCC L02BA02
BRL L02BA89
L02BA02 LDA [$01],Y
CMP L02BC74,X
BNE L02B9F9
L02BA09 INX
CPX L02BA91
BCC L02BA12
BRL L02BA2A
L02BA12 INY
CPY L02BC50
BCC L02BA1B
BRL L02BA89
L02BA1B LDA L02BC74,X
BEQ L02BA09
CMP [$01],Y
BEQ L02BA09
LDX #$0001
BRL L02B9F9
L02BA2A REP #$20
INY
STY L02BC58
STZ L02BC5A
SEP #$20
BRA L02BA40
L02BA37 INY
CPY L02BC50
BCC L02BA40
BRL L02BA89
L02BA40 LDA [$01],Y
CMP L02BC74+1
BNE L02BA37
REP #$20
STY L02BC5C
STZ L02BC5E
LDA L02BC58
SEC
SBC #$000B
CLC
ADC L02BC4C
STA $01
LDA #$0000
ADC L02BC4C+2
STA $03
PEA $0000
LDA $03
PHA
LDA $01
PHA
PEA $0005
PEA $0000
_Dec2Int
BCC L02BA83
LDX #$6302
JSL L027D42
L02BA83 PLA
CLC
L02BA85 PLX
PLX
PLD
RTL
L02BA89 REP #$20
SEC
LDA #$0000
BRA L02BA85
L02BA91 DW $0000
L02BA93 LDA L02BC4C
CLC
ADC L02BC58
STA L02BD2A
LDA #$0000
ADC L02BC4C+2
STA L02BD2A+2
LDA L02BC5C
SEC
SBC L02BC58
STA L02BD2E
LDA L02BC5E
SBC L02BC5A
STA L02BD2E+2
RTL
L02BABA PHB
PHD
PHK
PLB
PEA $0000
PEA $0000
_GetPort
_DrawControls
PLD
PLB
RTL
L02BAD5 PHB
PHD
TSC
TCD
LDY #$0004
LDA [$07],Y
ORA #$8000
STA [$07],Y
LDA [$07]
STA $0B
LDY #$0002
LDA [$07],Y
STA $0D
LDA $04
STA $08
LDA $05
STA $09
TSC
PLD
PLB
CLC
ADC #$0007
TCS
RTL
L02BAFF PHD
PEA $0000
PEA $0000
PEA $0000
PEA $0001
LDA L024388
PHA
PEA $0018
PEA $0000
PEA $0000
_NewHandle
BCC L02BB2E
LDX #$6402
JSL L027D42
PLA
PLA
BRL L02BC3E
L02BB2E PLA
STA L02BC40
PLA
STA L02BC40+2
PEA $0000
PEA $0000
PEA $000D
LDA L02BC40+2
PHA
LDA L02BC40
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
LDA L02BC68+2
PHA
LDA L02BC68
PHA
_TEGetText
BCC L02BB73
PLY
PLY
LDX #$6404
JSL L027D42
BRL L02BC3E
L02BB73 PLA
STA L02BC44
PLA
STA L02BC44+2
LDA L02BC40+2
PHA
LDA L02BC40
PHA
_HLock
PEA $0000
_GetCurResourceFile
PLA
STA L02BC54
LDA L024110
PHA
_SetCurResourceFile
PEA $0000
PEA $0001
_SetResourceFileDepth
PLA
STA L02BC56
PEA $FFFF
PEA $5751
PEA $0000
PEA $0001
_ReleaseResource
LDX #$6410
JSL L027D42
PEA $5751
PEA $0000
PEA $0001
_RemoveResource
LDX #$6412
JSL L027D42
STZ L02BC48
STZ L02BC48+2
LDA L02BC40+2
PHA
LDA L02BC40
PHA
PEA $8018
PEA $5751
PEA $0000
PEA $0001
_AddResource
LDX #$6414
JSL L027D42
PEA $5751
PEA $0000
PEA $0001
_WriteResource
LDX #$6416
JSL L027D42
JSL L02B718
LDA L02BC40+2
PHA
LDA L02BC40
PHA
_DisposeHandle
LDX #$6418
JSL L027D42
L02BC3E PLD
RTL
L02BC40 ADRL $00000000
L02BC44 ADRL $00000000
L02BC48 ADRL $00000000
L02BC4C ADRL $00000000
L02BC50 ADRL $00000000
L02BC54 DW $0000
L02BC56 DW $0000
L02BC58 DW $0000
L02BC5A DW $0000
L02BC5C DW $0000
L02BC5E DW $0000
L02BC60 ADRL $00000000
L02BC64 DW $0000
L02BC66 DW $0000
L02BC68 ADRL $00000000
L02BC6C ADRL $00000000
L02BC70 ADRL $00000000
L02BC74 DB L02BC81-L02BC75
L02BC75 ASC '~'
L02BC76 ASC 'xxxxxZ'
L02BC7C ASC 'xxxx~'
L02BC81 DW $0050
DW $C0A8 ; frame bits
ADRL L02BCD1 ; title ptr
ADRL L02BCE0 ; refcon
DW $001E ; zoom rect
DW $0032
DW $00AB
DW $024E
ADRL $00000000 ; color table ptr
DW $0000 ; origin
DW $0000
DW $0000 ; data size
DW $0000
DW $0000 ; max size
DW $0000
DW $0000 ; scroll size
DW $0000
DW $0000 ; page size
DW $0000
ADRL $00000000 ; info bar refcon
DW $0000 ; info bar hite
ADRL $00000000 ; window defproc
ADRL $00000000 ; info bar defproc
ADRL L02BABA ; content defproc
DW $001E ; content rect
DW $0032
DW $00AB
DW $024E
ADRL $FFFFFFFF ; starting plane
ADRL $00000000 ; storage ptr
DW $0000
L02BCD1 STR ' Genesys Help '
L02BCE0 ADRL L02BCE4
L02BCE4 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $51
DB $57
DB $00
DB $00
DB $00
DB $00
L02BCF0 DB $00
DB $00
L02BCF2 DW $0017 ; pCount
ADRL $00001001 ; ID
DW $0011 ; rect
DW $0004
DW $008B
DW $0218
ADRL $85000000 ; procRef
DW $0000 ; flag
DW $7400 ; moreFlags
ADRL $00000000 ; refCon
L02BD0C ADRL $46B00000 ; textFlags
DW $FFFF ; indentRect
DW $FFFF
DW $FFFF
DW $FFFF
ADRL $FFFFFFFF ; vertBar
DW $0000 ; vertAmount
ADRL $00000000 ; horzBar
DW $0000 ; horzAmount
ADRL $00000000 ; styleRef
DW $0005 ; textDescriptor
L02BD2A ADRL $00000000 ; textRef
L02BD2E ADRL $00000000 ; textLength
ADRL $00000000 ; maxChars
ADRL $00000000 ; maxLines
DW $0000 ; maxCharsPerLine
DW $0000 ; maxHeight
ADRL $00000000 ; colorRef
DW $0000 ; drawMode
ADRL $00000000 ; filterProcPtr
L02BD48 DB $00
DB $00
L02BD4A DB $B0
DB $46
L02BD4C DB $00
DB $00
L02BD4E DB $80
DB $42
L02BD50 DW $0009 ; pCount
ADRL $00001002 ; ID
DW $0002 ; rect
DW $0004
DW $0000
DW $0000
ADRL $87000000 ; procRef
DW $0040 ; flag
DW $1004 ; moreFlags
ADRL $00000000 ; refCon
DW $0000 ; titleWidth
L02BD6C ADRL $00000000 ; menuRef
L02BD70 DW $2710 ; initialValue
L02BD72 DW $0007 ; pCount
ADRL $00001003 ; ID
DW $0002 ; rect
DW $01C2
DW $000F
DW $0218
ADRL $80000000 ; procRef
DW $0000 ; flag
DW $1000 ; moreFlags
ADRL $00000000 ; refCon
ADRL L02BD90 ; titleRef
L02BD90 STR 'Save'
MX %00
L02BD95 ENT
TSC
SEC
SBC #$000A
TCS
PHD
TCD
PEI $10
LDA $0E
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $14
LDA $12
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
LDX #$0001
SEC
SBC $01
BEQ L02BDCC
BVS L02BDCA
EOR #$8000
L02BDCA BMI L02BDCD
L02BDCC DEX
L02BDCD TXA
BNE L02BDE0
PEI $14
LDA $12
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
BRA L02BDEE
L02BDE0 PEI $10
LDA $0E
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
L02BDEE STA $09
LDA #$0001
STA $07
L02BDF5 LDA $09
SEC
SBC $07
BVS L02BDFF
EOR #$8000
L02BDFF BMI L02BE04
BRL L02BEC4
L02BE04 PEI $10
PEI $0E
LDA $07
LDX #$0000
TAY
BPL L02BE11
DEX
L02BE11 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $14
PEI $12
LDA $07
LDX #$0000
TAY
BPL L02BE34
DEX
L02BE34 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
SEC
SBC $01
BEQ L02BE58
BVS L02BE56
EOR #$8000
L02BE56 BMI L02BE5A
L02BE58 BRA L02BE62
L02BE5A LDA #$FFFF
STA $05
BRL L02BF33
L02BE62 PEI $14
PEI $12
LDA $07
LDX #$0000
TAY
BPL L02BE6F
DEX
L02BE6F CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $10
PEI $0E
LDA $07
LDX #$0000
TAY
BPL L02BE92
DEX
L02BE92 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
SEC
SBC $01
BEQ L02BEB6
BVS L02BEB4
EOR #$8000
L02BEB4 BMI L02BEB8
L02BEB6 BRA L02BEBF
L02BEB8 LDA #$0001
STA $05
BRA L02BF33
L02BEBF INC $07
BRL L02BDF5
L02BEC4 PEI $10
LDA $0E
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $14
LDA $12
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
SEC
SBC $01
BEQ L02BEF0
BVS L02BEEE
EOR #$8000
L02BEEE BMI L02BEF2
L02BEF0 BRA L02BEF9
L02BEF2 LDA #$FFFF
STA $05
BRA L02BF33
L02BEF9 PEI $14
LDA $12
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $10
LDA $0E
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
SEC
SBC $01
BEQ L02BF25
BVS L02BF23
EOR #$8000
L02BF23 BMI L02BF27
L02BF25 BRA L02BF2E
L02BF27 LDA #$0001
STA $05
BRA L02BF33
L02BF2E LDA #$0000
STA $05
L02BF33 LDA $0C
STA $14
LDA $0B
STA $13
LDY $05
PLD
TSC
CLC
ADC #$0012
TCS
TYA
RTL
L02BF46 TSC
SEC
SBC #$0006
TCS
PHD
TCD
LDA [$0E]
AND #$00FF
STA $05
L02BF55 LDA $05
BMI L02BF88
PEI $0C
PEI $0A
INC $0A
BNE L02BF63
INC $0C
L02BF63 PEI $10
PEI $0E
INC $0E
BNE L02BF6D
INC $10
L02BF6D PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
DEC $05
BRA L02BF55
L02BF88 LDA $08
STA $10
LDA $07
STA $0F
PLD
TSC
CLC
ADC #$000E
TCS
RTL
L02BF98 TSC
SEC
SBC #$000C
TCS
PHD
TCD
PEI $12
LDA $10
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $16
LDA $14
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
LDX #$0001
SEC
SBC $01
BEQ L02BFCF
BVS L02BFCD
EOR #$8000
L02BFCD BMI L02BFD0
L02BFCF DEX
L02BFD0 TXA
BNE L02BFE3
PEI $16
LDA $14
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
BRA L02BFF1
L02BFE3 PEI $12
LDA $10
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
L02BFF1 STA $09
LDA #$0001
STA $07
L02BFF8 LDA $09
SEC
SBC $07
BVS L02C002
EOR #$8000
L02C002 BMI L02C007
BRL L02C18D
L02C007 PEI $12
PEI $10
LDA $07
LDX #$0000
TAY
BPL L02C014
DEX
L02C014 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
TAX
LDA L02C277,X
AND #$00FF
AND #$0004
LDX #$0000
CMP #$0000
BEQ L02C03C
INX
L02C03C TXA
BNE L02C063
PEI $12
PEI $10
LDA $07
LDX #$0000
TAY
BPL L02C04C
DEX
L02C04C CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
BRA L02C088
L02C063 PEI $12
PEI $10
LDA $07
LDX #$0000
TAY
BPL L02C070
DEX
L02C070 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
AND #$005F
L02C088 SEP #$20
STA $0B
REP #$20
PEI $16
PEI $14
LDA $07
LDX #$0000
TAY
BPL L02C09B
DEX
L02C09B CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
TAX
LDA L02C277,X
AND #$00FF
AND #$0004
LDX #$0000
CMP #$0000
BEQ L02C0C3
INX
L02C0C3 TXA
BNE L02C0EA
PEI $16
PEI $14
LDA $07
LDX #$0000
TAY
BPL L02C0D3
DEX
L02C0D3 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
BRA L02C10F
L02C0EA PEI $16
PEI $14
LDA $07
LDX #$0000
TAY
BPL L02C0F7
DEX
L02C0F7 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
AND #$005F
L02C10F SEP #$20
STA $0C
REP #$20
LDA $0B
AND #$00FF
BIT #$0080
BEQ L02C122
ORA #$FF00
L02C122 CMP #$0000
PHA
LDA $0C
AND #$00FF
BIT #$0080
BEQ L02C133
ORA #$FF00
L02C133 CMP #$0000
PLY
STY $01
SEC
SBC $01
BEQ L02C145
BVS L02C143
EOR #$8000
L02C143 BMI L02C147
L02C145 BRA L02C14F
L02C147 LDA #$FFFF
STA $05
BRL L02C1FC
L02C14F LDA $0C
AND #$00FF
BIT #$0080
BEQ L02C15C
ORA #$FF00
L02C15C CMP #$0000
PHA
LDA $0B
AND #$00FF
BIT #$0080
BEQ L02C16D
ORA #$FF00
L02C16D CMP #$0000
PLY
STY $01
SEC
SBC $01
BEQ L02C17F
BVS L02C17D
EOR #$8000
L02C17D BMI L02C181
L02C17F BRA L02C188
L02C181 LDA #$0001
STA $05
BRA L02C1FC
L02C188 INC $07
BRL L02BFF8
L02C18D PEI $12
LDA $10
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $16
LDA $14
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
SEC
SBC $01
BEQ L02C1B9
BVS L02C1B7
EOR #$8000
L02C1B7 BMI L02C1BB
L02C1B9 BRA L02C1C2
L02C1BB LDA #$FFFF
STA $05
BRA L02C1FC
L02C1C2 PEI $16
LDA $14
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
PEI $12
LDA $10
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLY
STY $01
SEC
SBC $01
BEQ L02C1EE
BVS L02C1EC
EOR #$8000
L02C1EC BMI L02C1F0
L02C1EE BRA L02C1F7
L02C1F0 LDA #$0001
STA $05
BRA L02C1FC
L02C1F7 LDA #$0000
STA $05
L02C1FC LDA $0E
STA $16
LDA $0D
STA $15
LDY $05
PLD
TSC
CLC
ADC #$0014
TCS
TYA
RTL
L02C20F TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHA
PHA
LDX $0A
LDA $08
PHX
PHA
_FindHandle
_DisposeHandle
LDA $06
STA $0A
LDA $05
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
RTL
L02C243 ENT
TSC
PHD
TCD
LDA $08
STAL L02C25C
LDA $04
STAL L02C25E
LDA $06
STAL L02C25E+2
JSL GSOS
L02C25C DW $0000
L02C25E ADRL $00000000
STAL L02DD98
LDA $02
STA $08
LDA $01
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
RTL
DB $00
L02C277 ENT
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
L02C377 ENT
PEA $000A
PEA $0000
PEA $0000
LDA $0C,S
PHA
LDA $0C,S
PHA
JSL L02C83C
TAY
LDA $02,S
STA $06,S
PLA
STA $03,S
PLA
TYA
RTL
L02C395 TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHB
PHK
PLB
SEP #$30
LDY #$00
L02C3A4 LDA [$08],Y
STA L02CCE7,Y
BEQ L02C3AF
INY
BNE L02C3A4
DEY
L02C3AF STY L02CCE6
REP #$30
LDA #L02CCE6
STA $01
LDA #^L02CCE6
STA $03
PLB
LDX $03
LDY $01
LDA $06
STA $0A
LDA $05
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
TYA
RTL
L02C3D4 LDAL L02C6D9
CMP #L02C6DD
BNE L02C431
LDAL L02C6D9+2
CMP #^L02C6DD
BNE L02C431
LDAL L02C6F9
CMP #$FFFF
BNE L02C431
LDAL L02C6F5
AND #$0080
BNE L02C40F
LDAL L02C6F5
AND #$00FF
TAX
LDAL L02C6F5
XBA
ORA #$FF00
STAL L02C6F5
TXA
BRA L02C428
L02C40F JSL L02DABE
TAX
BNE L02C428
LDA #$0080
ORAL L02C6F7
STAL L02C6F7
JSL L02DABE
LDA #$FFFF
L02C428 CMP #$000D
BNE L02C430
LDA #$000A
L02C430 RTL
L02C431 LDAL L02C6D9+2
PHA
LDAL L02C6D9
PHA
JSL L02CDF0
RTL
L02C440 TSC
SEC
SBC #$0004
TCS
PHD
TCD
PHB
PHK
PLB
SEP #$30
LDA [$08]
TAY
LDA #$00
STA L02CCE6,Y
TYX
BEQ L02C460
L02C458 LDA [$08],Y
STA L02CCE5,Y
DEY
BNE L02C458
L02C460 REP #$30
LDA #L02CCE6
STA $01
LDA #^L02CCE6
STA $03
PLB
LDX $03
LDY $01
LDA $06
STA $0A
LDA $05
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
TYA
RTL
L02C482 TSC
SEC
SBC #$0002
TCS
PHD
TCD
STZ $01
L02C48C LDA [$06]
AND #$00FF
BEQ L02C4A0
PHA
JSL L02CFDE
INC $06
BNE L02C49E
INC $08
L02C49E BRA L02C48C
L02C4A0 PEA $000A
JSL L02CFDE
LDY $01
LDA $04
STA $08
LDA $03
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
TYA
RTL
L02C4BA TSC
PHD
TCD
PHB
PHK
PLB
LDA $08
BNE L02C4C6
DEC $0A
L02C4C6 DEC $08
LDA $0A
PHA
LDA $08
PHA
LDA $0E
PHA
LDA $0C
PHA
JSL L02DBC3
PLA
STA $08
PLA
STA $0A
CLC
LDA $08
ADC $04
STA $08
LDA $0A
ADC $06
STA $0A
LDA $0E
STA L02C68A
LDA $0C
STA L02C688
LDA $10
STA L02C57D+1
STA L02C5AB+1
LDA $11
STA L02C57D+2
STA L02C5AB+2
LDA $0A
PHA
LDA $08
PHA
LDA $06
PHA
LDA $04
PHA
JSL L02C526
PLB
LDA $02
STA $12
LDA $01
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02C526 TSC
SEC
SBC #$0008
TCS
PHD
TCD
PHB
PHK
PLB
L02C531 LDA $12
CMP $0E
BNE L02C53B
LDA $10
CMP $0C
L02C53B BEQ L02C53F
BCS L02C550
L02C53F PLB
LDA $0A
STA $12
LDA $09
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02C550 LDA $12
STA $07
LDA $10
STA $05
LDA $0E
STA $03
LDA $0C
STA $01
BRA L02C571
L02C562 CLC
LDA $01
ADC L02C688
STA $01
LDA $03
ADC L02C68A
STA $03
L02C571 LDA $12
PHA
LDA $10
PHA
LDA $03
PHA
LDA $01
PHA
L02C57D JSL L02C57D
TAX
BMI L02C562
L02C584 LDA $05
CMP $0C
BNE L02C590
LDA $07
CMP $0E
BEQ L02C5B2
L02C590 SEC
LDA $05
SBC L02C688
STA $05
LDA $07
SBC L02C68A
STA $07
LDA $12
PHA
LDA $10
PHA
LDA $07
PHA
LDA $05
PHA
L02C5AB JSL L02C5AB
DEC
BPL L02C584
L02C5B2 LDA $03
PHA
LDA $01
PHA
LDA $07
PHA
LDA $05
PHA
JSR L02C61C
LDA $03
CMP $07
BNE L02C5CB
LDA $01
CMP $05
L02C5CB BCC L02C562
LDA $07
PHA
LDA $05
PHA
LDA $03
PHA
LDA $01
PHA
JSR L02C61C
LDA $03
PHA
LDA $01
PHA
LDA $12
PHA
LDA $10
PHA
JSR L02C61C
SEC
LDA $01
SBC L02C688
STA $05
LDA $03
SBC L02C68A
STA $07
LDA $07
PHA
LDA $05
PHA
LDA $0E
PHA
LDA $0C
PHA
JSL L02C526
CLC
LDA $01
ADC L02C688
STA $0C
LDA $03
ADC L02C68A
STA $0E
BRL L02C531
L02C61C TSC
PHD
TCD
LDX L02C68A
BEQ L02C63C
LDY #$0000
L02C627 LDA [$03],Y
TAX
LDA [$07],Y
STA [$03],Y
TXA
STA [$07],Y
DEY
DEY
BNE L02C627
INC $05
INC $09
DEX
BNE L02C627
L02C63C LDA L02C688
LSR
BCC L02C660
SEP #$20
LDA [$03]
TAX
LDA [$07]
STA [$03]
TXA
STA [$07]
REP #$20
INC $03
BNE L02C656
INC $05
L02C656 INC $07
BNE L02C65C
INC $09
L02C65C LDA L02C688
LSR
L02C660 ASL
BEQ L02C67E
TAY
BRA L02C670
L02C666 LDA [$03],Y
TAX
LDA [$07],Y
STA [$03],Y
TXA
STA [$07],Y
L02C670 DEY
DEY
BNE L02C666
LDA [$03]
TAX
LDA [$07]
STA [$03]
TXA
STA [$07]
L02C67E PLD
PLX
TSC
CLC
ADC #$0008
TCS
PHX
RTS
L02C688 DB $00
DB $00
L02C68A DB $00
DB $00
L02C68C ENT
PHB
PHK
PLB
PLX
PLY
PLA
STA L02C6D5
PLA
STA L02C6D7
PHY
PHX
PLB
LDA #L02C6AD
STAL L02CC50+1
LDA #>L02C6AD
STAL L02CC50+2
BRL L02CAB7
L02C6AD PHB
PLX
PLA
PLY
PHA
PHX
PLB
LDX L02C6D7
PHX
LDX L02C6D5
PHX
PHD
TSC
TCD
TYA
AND #$00FF
STA [$03]
PLD
PLA
PLA
PHB
PHK
PLB
INC L02C6D5
BNE L02C6D3
INC L02C6D7
L02C6D3 PLB
RTL
L02C6D5 DB $00
DB $00
L02C6D7 DB $00
DB $00
L02C6D9 ADRL L02C6DD
L02C6DD ADRL L02C719
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02C6F5 DB $FF
DB $FF
L02C6F7 DB $0A
DB $02
L02C6F9 DB $FF
DB $FF
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $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
L02C715 ADRL L02C719
L02C719 ADRL L02D037
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $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
L02C735 DB $FE
DB $FF
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $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
L02C751 ENT
TSC
PHD
TCD
LDY #$0000
SEP #$20
L02C759 LDA [$04],Y
BEQ L02C76A
CMP [$08],Y
BNE L02C776
INY
BNE L02C759
INC $06
INC $0A
BRA L02C759
L02C76A LDX #$0000
LDA [$08],Y
BEQ L02C77B
L02C771 LDX #$FFFF
BRA L02C77B
L02C776 BCC L02C771
LDX #$0001
L02C77B REP #$20
LDA $01
STA $09
LDA $02
STA $0A
PLD
TSC
CLC
ADC #$0008
TCS
TXA
RTL
L02C78E ENT
LDA $06,S
PHA
LDA $06,S
PHA
TSC
PHD
TCD
SEP #$20
LDY #$0000
L02C79C LDA [$0C],Y
STA [$08],Y
BEQ L02C7AB
INY
BNE L02C79C
INC $0A
INC $0E
BRA L02C79C
L02C7AB REP #$20
LDA $05
STA $0D
LDA $06
STA $0E
LDX $03
LDY $01
PLD
TSC
CLC
ADC #$000C
TCS
TYA
RTL
L02C7C2 ENT
TSC
PHD
TCD
LDY #$0000
LDX #$0000
SEP #$20
L02C7CD LDA [$04],Y
BEQ L02C7D9
INY
BNE L02C7CD
INX
INC $06
BRA L02C7CD
L02C7D9 REP #$20
PLD
LDA $02,S
STA $06,S
PLA
STA $03,S
PLA
TYA
RTL
L02C7E6 TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDA $0A
STA $03
LDA $08
STA $01
SEP #$20
LDY #$0000
LDX $12
BMI L02C825
BNE L02C805
LDX $10
BEQ L02C825
L02C805 LDX $10
L02C807 LDA [$0C],Y
STA [$08],Y
BEQ L02C822
DEX
BNE L02C816
LDA $12
BEQ L02C825
DEC $12
L02C816 INY
BNE L02C807
INC $0A
INC $0E
BRA L02C807
L02C81F INY
STA [$08],Y
L02C822 DEX
BNE L02C81F
L02C825 REP #$20
LDX $03
LDY $01
LDA $06
STA $12
LDA $05
STA $11
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L02C83C PEA $0000
PEA $0000
PEA $0000
TSC
PHD
TCD
LDA $0E
ORA $10
BEQ L02C859
LDA $0A
STA [$0E]
LDY #$0002
LDA $0C
STA [$0E],Y
L02C859 LDA [$0A]
AND #$00FF
TAX
LDAL L02C277,X
AND #$0020
BEQ L02C870
INC $0A
BNE L02C86E
INC $0C
L02C86E BRA L02C859
L02C870 LDA [$0A]
AND #$00FF
CMP #$002D
BNE L02C87E
INC $01
BRA L02C883
L02C87E CMP #$002B
BNE L02C889
L02C883 INC $0A
BNE L02C889
INC $0C
L02C889 LDA $0C
PHA
LDA $0A
PHA
LDA $12
PHA
LDA $10
PHA
LDA $0E
PHA
LDA $0C
PHA
LDA $0A
PHA
JSL L02C8EB
STX $05
STA $03
TXY
BPL L02C8C1
LDA #$0002
STAL L02CDE8
LDA $0E
ORA $10
BNE L02C8C1
LDA $01,S
STA [$0E]
LDY #$0002
LDA $03,S
STA [$0E],Y
L02C8C1 PLA
PLA
LDA $01
BEQ L02C8D6
SEC
LDA #$0000
SBC $03
STA $03
LDA #$0000
SBC $05
STA $05
L02C8D6 LDX $05
LDY $03
LDA $07
STA $11
LDA $08
STA $12
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L02C8EB PEA $0000
PEA $0000
PEA $0000
TSC
PHD
TCD
LDA $0E
ORA $10
BEQ L02C908
LDA $0A
STA [$0E]
LDY #$0002
LDA $0C
STA [$0E],Y
L02C908 LDA [$0A]
AND #$00FF
TAX
LDAL L02C277,X
AND #$0020
BEQ L02C91F
INC $0A
BNE L02C91D
INC $0C
L02C91D BRA L02C908
L02C91F LDA [$0A]
AND #$00FF
CMP #$002B
BNE L02C92F
INC $0A
BNE L02C92F
INC $0C
L02C92F LDA $12
BNE L02C956
LDA #$000A
STA $12
LDA [$0A]
AND #$00FF
CMP #$0030
BNE L02C956
LDA #$0008
STA $12
LDY #$0001
LDA [$0A],Y
AND #$005F
CMP #$0058
BNE L02C956
ASL $12
L02C956 LDA [$0A]
AND #$5F7F
CMP #$5830
BNE L02C973
CLC
LDA $0A
ADC #$0002
STA $0A
BCC L02C96C
INC $0C
L02C96C LDA $12
CMP #$0010
BNE L02C9DE
L02C973 LDA [$0A]
AND #$00FF
CMP #$0030
BCC L02C9DA
CMP #$003A
BCC L02C994
AND #$005F
CMP #$0041
BCC L02C9DA
CMP #$005B
BCS L02C9DA
SBC #$0036
BRA L02C997
L02C994 AND #$000F
L02C997 CMP $12
BCS L02C9DA
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 L02C9DE
CLC
TYA
ADC $03
STA $03
BCC L02C9D2
INC $05
BEQ L02C9DE
L02C9D2 INC $0A
BNE L02C9D8
INC $0C
L02C9D8 BRA L02C973
L02C9DA LDA $01
BNE L02C9E7
L02C9DE LDA #$0002
STAL L02CDE8
BRA L02C9F8
L02C9E7 LDA $0E
ORA $0E
BEQ L02C9F8
LDA $0A
STA [$0E]
LDY #$0002
LDA $0C
STA [$0E],Y
L02C9F8 LDX $05
LDY $03
LDA $07
STA $11
LDA $08
STA $12
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L02CA0D ENT
LDA $04,S
TAX
LDA $02,S
STA $04,S
PLA
STA $01,S
LDAL L02C277,X
AND #$0002
BEQ L02CA25
TXA
ORA #$0020
RTL
L02CA25 TXA
RTL
L02CA27 ENT
LDAL L02DD98
RTL
L02CA2C ENT
LDA $04,S
TAX
LDA $02,S
STA $04,S
PLA
STA $01,S
LDAL L02C277,X
AND #$0004
BEQ L02CA44
TXA
AND #$005F
RTL
L02CA44 TXA
RTL
L02CA46 ENT
TSC
PHD
TCD
LDA $06
BPL L02CA68
CMP #$FFFF
BNE L02CA62
LDX $04
CPX #$FFDE
BCC L02CA62
L02CA59 ASL $08
ROL $0A
INX
BNE L02CA59
BRA L02CA7D
L02CA62 STZ $08
STZ $0A
BRA L02CA7D
L02CA68 BNE L02CA62
LDX $04
BEQ L02CA7D
CPX #$0021
BCS L02CA62
L02CA73 LDA $0A
ASL
ROR $0A
ROR $08
DEX
BNE L02CA73
L02CA7D LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02CA89 TXY
BEQ L02CAB3
PHA
PHX
TSC
PHD
TCD
LDA #$0000
LDY #$0010
L02CA97 ASL $03
ROL
SEC
SBC $01
BCS L02CAA6
ADC $01
DEY
BNE L02CA97
BRA L02CAAB
L02CAA6 INC $03
DEY
BNE L02CA97
L02CAAB TAX
LDA $03
CLV
PLD
PLY
PLY
RTL
L02CAB3 PLA
SEP #$40
RTL
L02CAB7 PHB
PHK
PLB
PHD
TSC
TCD
STZ L02CC6C
L02CAC0 LDA [$07]
AND #$00FF
BEQ L02CAD9
CMP #$0025
BEQ L02CAEA
PHA
JSL L02CC4D
INC $07
BNE L02CAD7
INC $09
L02CAD7 BRA L02CAC0
L02CAD9 LDA $05
STA $09
LDA $04
STA $08
PLD
PLB
PLA
PLA
LDAL L02CC6C
RTL
L02CAEA INC $07
BNE L02CAF0
INC $09
L02CAF0 STZ L02CC64
STZ L02CC56
STZ L02CC60
STZ L02CC62
STZ L02CC5A
LDA #$0020
STA L02CC5E
STZ L02CC5C
STZ L02CC66
STZ L02CC54
L02CB0E JSR L02CB75
BCS L02CB0E
JSR L02CBBD
STA L02CC56
LDA [$07]
AND #$00FF
CMP #$002E
BNE L02CB37
INC $07
BNE L02CB29
INC $09
L02CB29 INC L02CC62
JSR L02CBBD
STA L02CC60
LDA [$07]
AND #$00FF
L02CB37 CMP #$006C
BNE L02CB41
INC L02CC5A
BRA L02CB4B
L02CB41 CMP #$004C
BEQ L02CB4B
CMP #$0068
BNE L02CB56
L02CB4B INC $07
BNE L02CB51
INC $09
L02CB51 LDA [$07]
AND #$00FF
L02CB56 INC $07
BNE L02CB5C
INC $09
L02CB5C LDX #$003C
L02CB5F CMP L02CC0D,X
BEQ L02CB6D
DEX
DEX
DEX
DEX
BPL L02CB5F
BRL L02CAC0
L02CB6D PEA L02CAC0-1
INX
INX
JMP (L02CC0D,X)
L02CB75 LDA [$07]
AND #$00FF
CMP #$002D
BNE L02CB87
LDA #$0001
STA L02CC5C
BRA L02CBB3
L02CB87 CMP #$0030
BNE L02CB91
STA L02CC5E
BRA L02CBB3
L02CB91 CMP #$002B
BEQ L02CBA3
CMP #$0020
BNE L02CBA8
LDX L02CC66
CPX #$002B
BEQ L02CBB3
L02CBA3 STA L02CC66
BRA L02CBB3
L02CBA8 CMP #$0023
BNE L02CBBB
LDA #$0001
STA L02CC54
L02CBB3 INC $07
BNE L02CBB9
INC $09
L02CBB9 SEC
RTS
L02CBBB CLC
RTS
L02CBBD STZ L02CC0B
LDA [$07]
AND #$00FF
CMP #$002A
BNE L02CBDF
INC $07
BNE L02CBD0
INC $09
L02CBD0 LDA $0B
STA L02CC0B
LDY #$0001
JSR L02D5E2
L02CBDB LDA L02CC0B
RTS
L02CBDF LDA [$07]
AND #$00FF
CMP #$0030
BCC L02CBDB
CMP #$003A
BCS L02CBDB
AND #$000F
PHA
ASL L02CC0B
LDA L02CC0B
ASL
ASL
ADC L02CC0B
ADC $01,S
PLX
STA L02CC0B
INC $07
BNE L02CC09
INC $09
L02CC09 BRA L02CBDF
L02CC0B DW $0000
L02CC0D DA $0025
DA L02D2CD
DA $006E
DA L02D4E0
DA $0073
DA L02D569
DA $0070
DA L02D578
DA $0063
DA L02D364
DA $0058
DA L02D2E5
DA $0078
DA L02D2DD
DA $006F
DA L02D4F9
DA $0075
DA L02D3A4
DA $0064
DA L02D37A
DA $0069
DA L02D37A
DA $0066
DA L02D082
DA $0065
DA L02D06F
DA $0045
DA L02D074
DA $0067
DA L02D243
DA $0047
DA L02D248
L02CC4D INC L02CC6C
L02CC50 JMPL $000000
L02CC54 DB $00
DB $00
L02CC56 DB $00
DB $00
L02CC58 DB $00
L02CC59 DB $00
L02CC5A DB $00
DB $00
L02CC5C DB $00
DB $00
L02CC5E DB $00
DB $00
L02CC60 DB $00
DB $00
L02CC62 DB $00
DB $00
L02CC64 DB $00
DB $00
L02CC66 DB $00
DB $00
L02CC68 DB $00
L02CC69 DB $00
L02CC6A DB $00
L02CC6B DB $00
L02CC6C DB $00
DB $00
L02CC6E DB $00
L02CC6F DB $00
L02CC70 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02CCBF DB $00
DB $00
L02CCC1 DB $00
DB $00
L02CCC3 DB $00
DB $00
L02CCC5 DB $00
DB $00
L02CCC7 DB $00
DB $00
L02CCC9 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02CCE5 DB $00
L02CCE6 DB $00
L02CCE7 DS $101
L02CDE8 DB $00
DB $00
DB $00
DB $00
DB $06
DB $00
DB $00
DB $00
L02CDF0 TSC
SEC
SBC #$0006
TCS
PHD
TCD
PHB
PHK
PLB
LDA $0C
PHA
LDA $0A
PHA
JSL L02D605
BCS L02CE11
LDY #$001A
LDA [$0A],Y
AND #$0180
BEQ L02CE19
L02CE11 LDA #$FFFF
STA $01
BRL L02CFA2
L02CE19 LDY #$0018
LDA [$0A],Y
AND #$0080
BNE L02CE35
LDA [$0A],Y
AND #$00FF
STA $01
LDA [$0A],Y
XBA
ORA #$FF00
STA [$0A],Y
BRL L02CFA2
L02CE35 LDY #$001C
LDA [$0A],Y
BPL L02CE70
CMP #$FFFF
BNE L02CE5F
JSL L02DABE
TAX
BNE L02CE5A
LDA #$0080
ORAL L02C6F7
STAL L02C6F7
JSL L02DABE
LDA #$FFFF
L02CE5A STA $01
BRL L02CFA2
L02CE5F LDA $0C
PHA
LDA $0A
PHA
JSR L02D647
LDA #$FFFF
STA $01
BRL L02CFA2
L02CE70 LDY #$001A
LDA [$0A],Y
BIT #$0008
BNE L02CE81
BIT #$0010
BNE L02CE5F
BRA L02CE8F
L02CE81 LDY #$0014
LDA [$0A],Y
INY
INY
ORA [$0A],Y
BEQ L02CE8F
BRL L02CF50
L02CE8F LDY #$001A
LDA [$0A],Y
BIT #$0002
BEQ L02CEB2
STZ L02CFD0+2
TDC
CLC
ADC #$0001
STA L02CFD0
LDA #$0001
STA L02CFD4
LDA #$0000
STA L02CFD4+2
BRA L02CED0
L02CEB2 LDY #$0008
LDA [$0A],Y
STA L02CFD0
INY
INY
LDA [$0A],Y
STA L02CFD0+2
LDY #$0010
LDA [$0A],Y
STA L02CFD4
INY
INY
LDA [$0A],Y
STA L02CFD4+2
L02CED0 LDY #$001C
LDA [$0A],Y
STA L02CFCE
JSL GSOS
DW $2012 ; Read
ADRL L02CFCC
BCC L02CF00
LDY #$001A
CMP #$004C
BNE L02CEF1
LDA #$0080
BRA L02CEF4
L02CEF1 LDA #$0100
L02CEF4 ORA [$0A],Y
STA [$0A],Y
LDA #$FFFF
STA $01
BRL L02CFA2
L02CF00 LDY #$001A
LDA [$0A],Y
AND #$0002
BEQ L02CF0D
BRL L02CFA2
L02CF0D CLC
LDY #$000C
LDA L02CFD0
ADC L02CFD8
STA [$0A],Y
INY
INY
LDA L02CFD0+2
ADC L02CFD8+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 L02CFD8
STA [$0A],Y
INY
INY
LDA L02CFD8+2
STA [$0A],Y
LDY #$001A
LDA [$0A],Y
ORA #$0008
STA [$0A],Y
L02CF50 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 L02CF83
INY
INY
LDA [$0A],Y
DEC
STA [$0A],Y
L02CF83 LDY #$001A
LDA [$0A],Y
AND #$0020
BEQ L02CFA2
LDY #$0014
LDA [$0A],Y
INY
INY
ORA [$0A],Y
BNE L02CFA2
LDY #$001A
LDA [$0A],Y
EOR #$0008
STA [$0A],Y
L02CFA2 LDA $01
CMP #$000D
BNE L02CFB8
LDY #$001A
LDA [$0A],Y
AND #$0200
BEQ L02CFB8
LDA #$000A
STA $01
L02CFB8 PLB
LDY $01
LDA $08
STA $0C
LDA $07
STA $0B
PLD
TSC
CLC
ADC #$000A
TCS
TYA
RTL
L02CFCC DW $0004 ; Parms for Read
L02CFCE DW $0000 ; ref num
L02CFD0 ADRL $00000000 ; buffer ptr
L02CFD4 ADRL $00000000 ; request count
L02CFD8 ADRL $00000000 ; transfer count
DW $0001
L02CFDE LDAL L02C715
CMP #L02C719
BNE L02D01A
LDAL L02C715+1
CMP #>L02C719
BNE L02D01A
LDAL L02C735
CMP #$FFFE
BNE L02D01A
PHP
PLX
PLY
PLA
PHY
PHX
PLP
PHA
PHA
CMP #$000A
BNE L02D011
PEA $000D
_WriteChar
L02D011 _WriteChar
PLA
RTL
L02D01A LDAL L02C715+2
PHA
LDAL L02C715
PHA
LDA $08,S
PHA
JSL $000000
PHB
PLX
PLY
PLA
PHY
PHX
PLB
RTL
ADRL L02D037
L02D037 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $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
L02D06F STZ L02D241
BRA L02D07A
L02D074 LDA #$0001
STA L02D241
L02D07A STZ L02CCC1
INC L02CC60
BRA L02D08B
L02D082 LDA #$0001
STA L02CCC1
STZ L02D241
L02D08B LDA $13
BPL L02D09A
EOR #$8000
STA $13
LDA #$002D
STA L02CC66
L02D09A LDA L02CC62
BNE L02D0A8
LDA #$0007
SEC
SBC L02CCC1
BRA L02D0AB
L02D0A8 LDA L02CC60
L02D0AB STA L02CCC3
PEA ^L02CCC1
PEA L02CCC1
PEA $0000
CLC
TDC
ADC #$000B
PHA
PEA ^L02CCC5
PEA L02CCC5
PEA $000B
_SANEFP816
PEA ^L02CCC1
PEA L02CCC1
PEA ^L02CCC5
PEA L02CCC5
PEA ^L02CC6E
PEA L02CC6E
PEA $0001
_SANEDecStr816
LDA L02CCC1
BNE L02D108
SEP #$30
LDX L02CC6E
LDA L02CC6C,X
CMP #$65
BNE L02D108
INC L02CC6E
LDA L02CC6E,X
STA L02CC6F,X
LDA #$30
STA L02CC6E,X
L02D108 REP #$30
LDA L02CC64
BEQ L02D114
L02D10F JSR L02D1F5
BCS L02D10F
L02D114 LDA L02D241
BEQ L02D12F
SEP #$30
LDX L02CC6E
L02D11E LDA L02CC6E,X
CMP #$65
BEQ L02D128
DEX
BNE L02D11E
L02D128 LDA #$45
STA L02CC6E,X
REP #$30
L02D12F LDA L02CC6F
AND #$00FF
CMP #$0020
BNE L02D149
DEC L02CC6E
LDA #$0050
LDX #L02CC70
LDY #L02CC6F
MVN L02CC70,L02CC6F
L02D149 LDA L02CCC3
BNE L02D184
LDA L02CC54
BEQ L02D184
SEP #$30
INC L02CC6E
LDX #$01
L02D15A LDA L02CC6E,X
CMP #$30
BCC L02D16B
CMP #$3A
BCS L02D16B
INX
CPX L02CC6E
BNE L02D15A
L02D16B LDY L02CC6E,X
LDA #$2E
STA L02CC6E,X
L02D173 CPX L02CC6E
BEQ L02D182
INX
TYA
LDY L02CC6E,X
STA L02CC6E,X
BRA L02D173
L02D182 REP #$30
L02D184 LDA L02CC66
BEQ L02D18C
DEC L02CC56
L02D18C LDA L02CC6E
AND #$00FF
SEC
SBC L02CC56
EOR #$FFFF
INC
STA L02CC56
LDA L02CC5E
CMP #$0030
BEQ L02D1A8
JSR L02D5C9
L02D1A8 LDA L02CC66
BEQ L02D1B2
PHA
JSL L02CC4D
L02D1B2 LDA L02CC5E
CMP #$0030
BNE L02D1CD
LDA L02CC56
BEQ L02D1CD
BMI L02D1CD
L02D1C1 PEA $0030
JSL L02CC4D
DEC L02CC56
BNE L02D1C1
L02D1CD LDA L02CC6E
AND #$00FF
TAY
BEQ L02D1EC
LDX #$0001
L02D1D9 LDA L02CC6E,X
PHX
PHY
AND #$00FF
PHA
JSL L02CC4D
PLY
PLX
INX
DEY
BNE L02D1D9
L02D1EC LDY #$0005
JSR L02D5E2
BRL L02D5C3
L02D1F5 SEP #$30
LDX #$00
L02D1F9 LDA L02CC6F,X
CMP #$2E
BEQ L02D208
INX
CPX L02CC6E
BNE L02D1F9
BRA L02D22B
L02D208 CPX L02CC6E
BEQ L02D217
LDA L02CC6F,X
CMP #$65
BEQ L02D217
INX
BRA L02D208
L02D217 LDA L02CC6E,X
CMP #$30
BNE L02D224
JSR L02D22F
SEC
BRA L02D22C
L02D224 CMP #$2E
BNE L02D22B
JSR L02D22F
L02D22B CLC
L02D22C REP #$30
RTS
L02D22F CPX L02CC6E
BEQ L02D23D
LDA L02CC6F,X
STA L02CC6E,X
INX
BRA L02D22F
L02D23D DEC L02CC6E
RTS
L02D241 DW $0000
L02D243 STZ L02D2C9
BRA L02D24E
L02D248 LDA #$0001
STA L02D2C9
L02D24E LDA L02CC62
BNE L02D25C
LDA #$0006
STA L02CC60
INC L02CC62
L02D25C LDA L02CC60
STA L02CCC3
PEA ^L02CCC1
PEA L02CCC1
PEA $0000
CLC
TDC
ADC #$000B
PHA
PEA ^L02CCC5
PEA L02CCC5
PEA $000B
_SANEFP816
LDA L02CC54
EOR #$0001
STA L02CC64
LDA #$0001
STA L02CC54
LDA L02CCC9
AND #$00FF
CLC
ADC L02CCC7
DEC
STA L02D2CB
BPL L02D2A5
CMP #$FFFD
BCS L02D2BF
L02D2A5 CMP L02CC60
BCC L02D2BF
BEQ L02D2BF
DEC L02CC60
BPL L02D2B4
STZ L02CC60
L02D2B4 LDA L02D2C9
BNE L02D2BC
BRL L02D06F
L02D2BC BRL L02D074
L02D2BF SEC
LDA L02CC60
SBC L02D2CB
BRL L02D082
L02D2C9 DB $00
DB $00
L02D2CB DB $00
DB $00
L02D2CD DEC L02CC56
JSR L02D5C9
PEA $0025
JSL L02CC4D
BRL L02D5C3
L02D2DD LDA #$0020
STA L02D362
BRA L02D2E8
L02D2E5 STZ L02D362
L02D2E8 STZ L02CC66
LDA #$2020
STA L02CC6E
LDA #$0051
LDX #L02CC6E
LDY #L02CC6F
MVN L02CC6E,L02CC6F
STZ L02CC6A
LDA L02CC5A
BEQ L02D30A
LDA $0D
STA L02CC6A
L02D30A LDA $0B
STA L02CC68
STZ L02CC58
SEP #$30
LDY #$52
L02D316 LDA #$00
LDX #$04
L02D31A LSR L02CC6B
ROR L02CC6A
ROR L02CC69
ROR L02CC68
ROR
DEX
BNE L02D31A
LSR
LSR
LSR
LSR
ORA #$30
CMP #$3A
BCC L02D339
ADC #$06
ORA L02D362
L02D339 STA L02CC6E,Y
DEY
LDA L02CC6B
ORA L02CC6A
ORA L02CC69
ORA L02CC68
BNE L02D316
LDA L02CC54
BEQ L02D35D
LDA #$58
ORA L02D362
STA L02CC59
LDA #$30
STA L02CC58
L02D35D REP #$30
BRL L02D3D8
L02D362 DB $00
DB $00
L02D364 DEC L02CC56
JSR L02D5C9
LDA $0B
PHA
JSL L02CC4D
LDY #$0001
JSR L02D5E2
BRL L02D5C3
L02D37A LDA L02CC5A
BEQ L02D394
LDA $0D
BPL L02D3A4
SEC
LDA #$0000
SBC $0B
STA $0B
LDA #$0000
SBC $0D
STA $0D
BRA L02D39E
L02D394 LDA $0B
BPL L02D3A4
EOR #$FFFF
INC
STA $0B
L02D39E LDA #$002D
STA L02CC66
L02D3A4 STZ L02CC58
LDA L02CC5A
BEQ L02D3B4
LDA $0D
PHA
LDA $0B
PHA
BRA L02D3B7
L02D3B4 LDA $0B
PHA
L02D3B7 PEA ^L02CC6E
PEA L02CC6E
PEA $0053
PEA $0000
LDA L02CC5A
BEQ L02D3D1
_Long2Dec
BRA L02D3D8
L02D3D1 _Int2Dec
L02D3D8 LDA L02CC62
BNE L02D3E3
LDA #$0001
STA L02CC60
L02D3E3 LDX L02CC60
BNE L02D3F8
LDA L02CCBF
CMP #$3020
BNE L02D41F
LDA #$2020
STA L02CCBF
BRA L02D41F
L02D3F8 LDY #$0000
SEP #$20
LDA #$20
L02D3FF CMP L02CC6E,Y
BNE L02D40C
INY
CPY #$0053
BNE L02D3FF
BRA L02D41D
L02D40C CMP L02CC6E,Y
BEQ L02D41A
DEX
BEQ L02D41A
INY
CPY #$0053
BNE L02D40C
L02D41A STX L02CC60
L02D41D REP #$20
L02D41F SEC
LDA L02CC56
SBC L02CC60
STA L02CC56
LDA L02CC66
BEQ L02D431
DEC L02CC56
L02D431 LDA L02CC58
BEQ L02D43C
DEC L02CC56
DEC L02CC56
L02D43C LDX #$0000
LDY #$0052
SEP #$20
LDA #$20
L02D446 CMP L02CC6E,Y
BEQ L02D44F
INX
DEY
BPL L02D446
L02D44F REP #$20
SEC
TXA
SBC L02CC56
EOR #$FFFF
INC
STA L02CC56
LDA L02CC5E
CMP #$0030
BEQ L02D468
JSR L02D5C9
L02D468 LDA L02CC66
BEQ L02D472
PHA
JSL L02CC4D
L02D472 LDA L02CC58
BEQ L02D484
PHA
JSL L02CC4D
LDA L02CC59
PHA
JSL L02CC4D
L02D484 LDA L02CC5E
CMP #$0030
BNE L02D4A0
LDA L02CC56
BMI L02D4A0
BEQ L02D4A0
L02D493 LDA L02CC5E
PHA
JSL L02CC4D
DEC L02CC56
BNE L02D493
L02D4A0 LDA L02CC60
BEQ L02D4B2
L02D4A5 LDA L02CC5E
PHA
JSL L02CC4D
DEC L02CC60
BNE L02D4A5
L02D4B2 LDY #$FFFF
L02D4B5 INY
LDA L02CC6E,Y
AND #$00FF
CMP #$0020
BEQ L02D4B5
L02D4C1 CPY #$0053
BEQ L02D4D6
PHY
LDA L02CC6E,Y
AND #$00FF
PHA
JSL L02CC4D
PLY
INY
BRA L02D4C1
L02D4D6 LDY L02CC5A
INY
JSR L02D5E2
BRL L02D5C3
L02D4E0 LDA L02CC6C
STA [$0B]
LDA L02CC5A
BEQ L02D4F2
LDY #$0002
LDA #$0000
STA [$0B],Y
L02D4F2 LDY #$0002
JSR L02D5E2
RTS
L02D4F9 STZ L02CC66
LDA #$2020
STA L02CC6E
LDA #$0051
LDX #L02CC6E
LDY #L02CC6F
MVN L02CC6E,L02CC6F
STZ L02CC6A
LDA L02CC5A
BEQ L02D51B
LDA $0D
STA L02CC6A
L02D51B LDA $0B
STA L02CC68
SEP #$30
LDY #$52
L02D524 LDA L02CC6B
ORA L02CC6A
ORA L02CC69
ORA L02CC68
BEQ L02D553
LDA #$00
LDX #$03
L02D536 LSR L02CC6B
ROR L02CC6A
ROR L02CC69
ROR L02CC68
ROR
DEX
BNE L02D536
LSR
LSR
LSR
LSR
LSR
ORA #$30
STA L02CC6E,Y
DEY
BRA L02D524
L02D553 CPY #$52
BEQ L02D55C
LDA L02CC54
BEQ L02D561
L02D55C LDA #$30
STA L02CC6E,Y
L02D561 REP #$30
STZ L02CC58
BRL L02D3D8
L02D569 SEP #$20
LDY #$FFFF
L02D56E INY
LDA [$0B],Y
BNE L02D56E
REP #$20
TYA
BRA L02D583
L02D578 LDA [$0B]
AND #$00FF
INC $0B
BNE L02D583
INC $0D
L02D583 LDX L02CC62
BEQ L02D590
CMP L02CC60
BCC L02D590
LDA L02CC60
L02D590 STA L02CC68
SEC
LDA L02CC56
SBC L02CC68
STA L02CC56
JSR L02D5C9
LDX L02CC68
BEQ L02D5BA
LDY #$0000
L02D5A8 PHY
LDA [$0B],Y
AND #$00FF
PHA
JSL L02CC4D
PLY
INY
DEC L02CC68
BNE L02D5A8
L02D5BA LDY #$0002
JSR L02D5E2
BRL L02D5C3
L02D5C3 LDA L02CC5C
BNE L02D5CE
L02D5C8 RTS
L02D5C9 LDA L02CC5C
BNE L02D5C8
L02D5CE LDA L02CC56
BMI L02D5C8
BEQ L02D5C8
L02D5D5 PEA $0020
JSL L02CC4D
DEC L02CC56
BNE L02D5D5
RTS
L02D5E2 LDA $0D,S
STA $0F,S
LDA $0B,S
STA $0D,S
LDA $09,S
STA $0B,S
LDA $07,S
STA $09,S
LDA $05,S
STA $07,S
LDA $03,S
STA $05,S
PLA
STA $01,S
TDC
INC
INC
TCD
DEY
BNE L02D5E2
RTS
L02D605 PHB
PHK
PLB
PEA ^L02C6DD
PEA L02C6DD
TSC
PHD
TCD
L02D611 LDA $01
ORA $03
BEQ L02D631
LDA $01
CMP $09
BNE L02D623
LDA $03
CMP $0B
BEQ L02D63B
L02D623 LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $01
STX $03
BRA L02D611
L02D631 LDA #$0005
STAL L02CDE8
SEC
BRA L02D63C
L02D63B CLC
L02D63C PLD
PLA
PLA
PLX
PLY
PLA
PLA
PHY
PHX
PLB
RTL
L02D647 TSC
PHD
TCD
LDY #$001A
LDA [$03],Y
ORA #$0100
STA [$03],Y
LDA #$0005
STAL L02CDE8
PLD
PLA
PLY
PLY
PHA
RTS
L02D661 LDY #$0000
BIT #$8000
BEQ L02D66E
EOR #$FFFF
INC
INY
L02D66E PHA
TXA
BEQ L02D6A9
BPL L02D679
DEY
EOR #$FFFF
INC
L02D679 PHA
PHY
TSC
PHD
TCD
LDA #$0000
LDY #$0010
L02D684 ASL $05
ROL
SEC
SBC $03
BCS L02D693
ADC $03
DEY
BNE L02D684
BRA L02D698
L02D693 INC $05
DEY
BNE L02D684
L02D698 TAX
LDA $05
LDY $01
BEQ L02D6A3
EOR #$FFFF
INC
L02D6A3 CLV
PLD
PLY
PLY
PLY
RTL
L02D6A9 PLA
SEP #$40
RTL
L02D6AD ENT
LDY #$0000
PHX
PHA
TSC
PHD
TCD
TXA
EOR $0A
BPL L02D6C0
LDA $03
CMP $0A
BRA L02D6CA
L02D6C0 LDA $0A
CMP $03
BNE L02D6CA
LDA $08
CMP $01
L02D6CA BCC L02D6CD
INY
L02D6CD LDA $06
STA $0A
LDA $05
STA $09
PLD
TSC
CLC
ADC #$0008
TCS
TYA
RTL
L02D6DE ENT
LDX #$0000
LDA $0A,S
EOR $06,S
BPL L02D6ED
LDA $06,S
CMP $0A,S
BRA L02D6F7
L02D6ED LDA $0A,S
CMP $06,S
BNE L02D6F7
LDA $08,S
CMP $04,S
L02D6F7 BCC L02D6FC
BEQ L02D6FC
INX
L02D6FC PHB
PLA
STA $07,S
PLA
STA $07,S
PLA
PLA
PLB
TXA
RTL
L02D708 PHD
PHB
PHK
PLB
TSC
SEC
SBC #$000A
TCS
INC
TCD
REP #$30
LDA #$0001
STA L02DAB8
STZ $00
STZ $02
LDA L02DAB2
ORA L02DAB4
BNE L02D739
LDA L02DD9C
BNE L02D739
JSL GSOS
DW $010F ; Shell: Direction
ADRL L02DABA
BCC L02D73F
L02D739 STZ L02DAB8
STZ L02DABC
L02D73F SEP #$30
L02D741 STZ $00
STZ $02
STZ L02DAB6
STZ L02D9B1
JSR L02D8C5
JSR L02D937
L02D751 JSR L02D8E4
CMP #$08
BNE L02D763
LDX $00
BEQ L02D751
DEC $00
JSR L02D909
BRA L02D751
L02D763 CMP #$15
BNE L02D78A
LDX $00
INX
CPX #$FF
BEQ L02D751
INC $00
LDA $00
TAY
CMP L02D9B1
BEQ L02D77A
BCS L02D77F
L02D77A LDA L02D9B1,Y
BRA L02D784
L02D77F LDA #$20
STA L02D9B1,Y
L02D784 JSR L02D909
BRL L02D751
L02D78A CMP #$0D
BEQ L02D792
CMP #$8D
BNE L02D7AF
L02D792 LDA L02D9B1
STA $02
JSR L02D937
LDA L02D9B1
INC
TAY
LDA #$0D
STA L02D9B1,Y
JSR L02D909
LDA #$0A
JSR L02D909
BRL L02D9A6
L02D7AF CMP #$BE
BEQ L02D7B7
CMP #$AE
BNE L02D7C2
L02D7B7 LDA L02D9B1
STA $02
JSR L02D937
BRL L02D751
L02D7C2 CMP #$BC
BEQ L02D7CA
CMP #$AC
BNE L02D7D2
L02D7CA STZ $02
JSR L02D937
BRL L02D751
L02D7D2 CMP #$F9
BEQ L02D7DE
CMP #$D9
BEQ L02D7DE
CMP #$19
BNE L02D7FC
L02D7DE LDA $00
CMP L02D9B1
BCS L02D7E8
STA L02D9B1
L02D7E8 LDA $00
PHA
STZ $02
JSR L02D937
JSR L02D8C5
PLA
STA $02
JSR L02D937
BRL L02D751
L02D7FC CMP #$FA
BEQ L02D808
CMP #$DA
BEQ L02D808
CMP #$1A
BNE L02D810
L02D808 STZ $02
JSR L02D937
BRL L02D741
L02D810 CMP #$1B
BEQ L02D818
CMP #$18
BNE L02D825
L02D818 LDA #$01
STA L02D9B1
LDA #$0D
STA L02D9B2
BRL L02D9A6
L02D825 CMP #$7F
BNE L02D863
LDA L02D9B1
STA $04
LDA $00
BEQ L02D87B
CMP $04
BEQ L02D838
BCS L02D84E
L02D838 TAY
L02D839 INY
LDA L02D9B1,Y
DEY
STA L02D9B1,Y
INY
CPY $04
BCC L02D839
BEQ L02D839
LDA $04
DEC
STA L02D9B1
L02D84E LDA $00
PHA
STZ $02
JSR L02D937
JSR L02D8C5
PLA
DEC
STA $02
JSR L02D937
BRL L02D751
L02D863 CMP #$E5
BEQ L02D86F
CMP #$C5
BEQ L02D86F
CMP #$05
BNE L02D87E
L02D86F LDA #$00
LDX L02DAB6
BNE L02D878
LDA #$01
L02D878 STA L02DAB6
L02D87B BRL L02D751
L02D87E PHA
LDX L02DAB6
BEQ L02D887
JSR L02D97A
L02D887 LDA $00
INC
CMP #$FF
BEQ L02D8BC
CMP L02D9B1
BCC L02D898
BEQ L02D898
STA L02D9B1
L02D898 TAY
LDA $01,S
STA L02D9B1,Y
LDX L02DAB6
BNE L02D8AA
JSR L02D909
INC $00
BRA L02D8BC
L02D8AA LDA $00
PHA
STZ $02
JSR L02D937
JSR L02D8C5
PLA
INC
STA $02
JSR L02D937
L02D8BC PLA
BEQ L02D8C2
BRL L02D751
L02D8C2 BRL L02D792
L02D8C5 LDA L02D9B1
STA $00
BEQ L02D8D9
TAX
LDY #$01
L02D8CF LDA L02D9B1,Y
JSR L02D909
INY
DEX
BNE L02D8CF
L02D8D9 LDA L02DD9C
BEQ L02D8DF
RTS
L02D8DF LDA #$1D
JMP L02D909
L02D8E4 REP #$30
PHA
PEA $0000
_ReadChar
PLA
SEP #$30
AND #$7F
LDX L02DABC
BNE L02D908
TAX
LDAL BUTN0
BPL L02D907
TXA
ORA #$80
BRA L02D908
L02D907 TXA
L02D908 RTS
L02D909 REP #$30
PHY
PHX
PHA
LDX L02DAB8
BEQ L02D927
LDX L02DABC
BNE L02D92F
STA L02D935
JSL GSOS
DW $011A ; Shell: ConsoleOut
ADRL L02D935
BRA L02D92F
L02D927 PHA
_WriteChar
L02D92F PLA
PLX
PLY
SEP #$30
RTS
L02D935 DB $00 ; char
DB $00
L02D937 REP #$30
SEC
LDA $02
SBC $00
TAX
SEP #$20
BEQ L02D973
BMI L02D967
L02D945 INC $00
LDA $00
TAY
CMP L02D9B1
BEQ L02D951
BCS L02D956
L02D951 LDA L02D9B1,Y
BRA L02D95B
L02D956 LDA #$20
STA L02D9B1,Y
L02D95B PHX
PHP
JSR L02D909
PLP
PLX
DEX
BNE L02D945
BRA L02D973
L02D967 LDA #$08
L02D969 PHX
PHP
JSR L02D909
PLP
PLX
INX
BNE L02D969
L02D973 LDA $02
STA $00
SEP #$10
RTS
L02D97A LDA $00
INC
CMP L02D9B1
BEQ L02D984
BCS L02D9A5
L02D984 STA $06
LDA L02D9B1
INC
TAY
L02D98B DEY
LDA L02D9B1,Y
INY
STA L02D9B1,Y
DEY
CPY $06
BCS L02D98B
INC L02D9B1
LDA L02D9B1
CMP #$FF
BNE L02D9A5
DEC L02D9B1
L02D9A5 RTS
L02D9A6 REP #$30
TSC
CLC
ADC #$000A
TCS
PLB
PLD
RTL
L02D9B1 DB $00
L02D9B2 DS $101
L02DAB2 DW $0000
L02DAB4 DW $0000
L02DAB6 DW $0000
L02DAB8 DW $0000
L02DABA DW $0000 ; device num
L02DABC DW $0000 ; direction
L02DABE PHB
PHK
PLB
PHX
PHY
LDA L02DB0E
BNE L02DAD5
JSL L02D708
STZ L02DB0C
LDA #$0001
STA L02DB0E
L02DAD5 SEP #$30
LDX L02DB0C
LDA L02D9B2,X
CMP #$0D
BNE L02DAE7
DEC L02DB0E
DEC L02DB0C
L02DAE7 INC L02DB0C
REP #$30
AND #$00FF
PLY
PLX
PLB
RTL
PHB
PHK
PLB
PHX
SEP #$30
DEC L02DB0C
LDX L02DB0C
STA L02D9B2,X
LDX #$01
STX L02DB0E
REP #$30
PLX
PLB
RTL
L02DB0C DW $0000
L02DB0E DW $0000
L02DB10 ENT
PHB
PHK
PLB
LDA $07,S
BMI L02DB56
STA L02DB5C
LDA $05,S
STA L02DB5A
LDA $0B,S
STA L02DB5E
PLA
STA L02DB60
PLA
STA L02DB62
JSL L02E055
LDA L02DB62
PHA
LDA L02DB60
PHA
BVS L02DB56
LDA L02DB5E
BPL L02DB54
LDA $09,S
ORA $0B,S
BEQ L02DB54
SEC
LDA L02DB5A
SBC $09,S
STA $09,S
LDA L02DB5C
SBC $0B,S
STA $0B,S
L02DB54 PLB
RTL
L02DB56 SEP #$40
PLB
RTL
L02DB5A DW $0000
L02DB5C DW $0000
L02DB5E DW $0000
L02DB60 DW $0000
L02DB62 DW $0000
L02DB64 TAY
PHD
TSC
SEC
SBC #$0007
TCD
DEC
TCS
TYA
LDY #$0000
BIT #$8000
BEQ L02DB7C
EOR #$FFFF
INC
INY
L02DB7C STA $02
TXA
BPL L02DB86
DEY
EOR #$FFFF
INC
L02DB86 STA $04
STY $06
LDY #$0010
LDA #$0000
L02DB90 LSR $02
BCC L02DB97
CLC
ADC $04
L02DB97 ROR
ROR $00
DEY
BNE L02DB90
TAX
BNE L02DBB8
LDA $00
BMI L02DBB8
LDY $06
BEQ L02DBAC
EOR #$FFFF
INC
L02DBAC TAY
TDC
CLC
ADC #$0007
TCS
PLA
TCD
TYA
CLV
RTL
L02DBB8 TDC
CLC
ADC #$0007
TCS
PLA
TCD
SEP #$40
RTL
L02DBC3 ENT
TSC
SEC
SBC #$000C
TCS
PHD
TCD
JSL L02DD35
LDA $07
BEQ L02DBFA
LDY #$0020
JSR L02DBDC
BRL L02DC2B
L02DBDC LDA $05
LSR
BCC L02DBEE
CLC
LDA $09
ADC $10
STA $09
LDA $0B
ADC $12
STA $0B
L02DBEE ROR $0B
ROR $09
ROR $07
ROR $05
DEY
BNE L02DBDC
RTS
L02DBFA ORA $12
BEQ L02DC15
LDY #$0010
JSR L02DBDC
LDA $07
STA $05
LDA $09
STA $07
LDA $0B
STA $09
STZ $0B
BRL L02DC2B
L02DC15 LDY #$0010
LDX $05
STX $07
L02DC1C LSR $07
BCC L02DC23
CLC
ADC $10
L02DC23 ROR
ROR $05
DEY
BNE L02DC1C
STA $07
L02DC2B LDA $07
AND #$8000
ORA $09
ORA $0B
BEQ L02DC3A
SEP #$40
BRA L02DC56
L02DC3A LDA $01
BEQ L02DC4D
SEC
LDA #$0000
SBC $05
STA $05
LDA #$0000
SBC $07
STA $07
L02DC4D CLV
LDA $07
STA $16
LDA $05
STA $14
L02DC56 LDA $0E
STA $12
LDA $0C
STA $10
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02DC66 ENT
TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA $10
ORA $12
BNE L02DC7E
PEA $0009
JSL L02DDFD
BRL L02DCD9
L02DC7E JSL L02DD35
LDA $16
ORA $12
BEQ L02DCAA
LDY #$0020
L02DC8B ASL $05
ROL $07
ROL $09
ROL $0B
SEC
LDA $09
SBC $10
TAX
LDA $0B
SBC $12
BCC L02DCA5
STX $09
STA $0B
INC $05
L02DCA5 DEY
BNE L02DC8B
BEQ L02DCC6
L02DCAA LDA #$0000
LDY #$0010
L02DCB0 ASL $05
ROL
SEC
SBC $10
BCS L02DCBF
ADC $10
DEY
BNE L02DCB0
BEQ L02DCC4
L02DCBF INC $05
DEY
BNE L02DCB0
L02DCC4 STA $09
L02DCC6 LDA $01
BEQ L02DCD9
SEC
LDA #$0000
SBC $05
STA $05
LDA #$0000
SBC $07
STA $07
L02DCD9 LDA $05
STA $14
LDA $07
STA $16
LDA $0C
STA $10
LDA $0E
STA $12
CLV
PLD
TSC
CLC
ADC #$0010
TCS
RTL
L02DCF2 ENT
TSC
PHD
TCD
LDA $06
BPL L02DD17
CMP #$FFFF
BNE L02DD11
LDX $04
CPX #$FFDE
BCC L02DD11
L02DD05 LDA $0A
ASL
ROR $0A
ROR $08
INX
BNE L02DD05
BRA L02DD29
L02DD11 STZ $08
STZ $0A
BRA L02DD29
L02DD17 BNE L02DD11
LDX $04
BEQ L02DD29
CPX #$0021
BCS L02DD11
L02DD22 ASL $08
ROL $0A
DEX
BNE L02DD22
L02DD29 LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02DD35 STZ $01
LDA $16
BPL L02DD4E
SEC
LDA #$0000
SBC $14
STA $05
LDA #$0000
SBC $16
STA $07
INC $01
BRA L02DD54
L02DD4E STA $07
LDA $14
STA $05
L02DD54 STZ $09
STZ $0B
LDA $12
BPL L02DD6D
SEC
LDA #$0000
SBC $10
STA $10
LDA #$0000
SBC $12
STA $12
DEC $01
L02DD6D RTL
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
ADRL L02DD7A
L02DD7A DB $00
DB $00
ADRL L02DD80
L02DD80 DB $00
DB $00
DB $00
DB $00
ADRL L02DD88
L02DD88 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02DD98 ENT
DB $00
DB $00
L02DD9A DB $00
DB $00
L02DD9C DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02DDA2 DB $00
DB $00
L02DDA4 DB $00
DB $00
L02DDA6 DB $00
L02DDA7 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02DDB4 PHA
JSL L02E0D7
LDAL L02DD9A
PHA
_DisposeAll
PLA
JSL GSOS
DW $0029 ; Quit
ADRL L02DDD0
L02DDD0 ADRL L02DDD4 ; path name
L02DDD4 DW $0000 ; flags
L02DDD6 PHX
PHA
PHD
TSC
TCD
LDA #$0000
LDY #$0010
L02DDE1 LSR $03
BCC L02DDE8
CLC
ADC $05
L02DDE8 ASL $05
DEY
BNE L02DDE1
PLD
PLX
PLX
RTL
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02DDFD LDA $04,S
PHA
JSL L02DF20
JMPL L02DE08
L02DE08 PHK
PLB
LDA L02DDA6
BNE L02DE12
BRL L02DF1A
L02DE12 BRA L02DE2C
L02DE14 STR 'Error occurred at line '
L02DE2C PEA ^L02DE14
PEA L02DE14
_ErrWriteString
LDA L02DDA6
PHA
PEA $0001
PEA $0000
PEA $0001
JSL L02E0EC
BRA L02DE5B
L02DE4C STR ' in procedure '
L02DE5B PEA ^L02DE4C
PEA L02DE4C
_ErrWriteString
PEA ^L02DDA7
PEA L02DDA7
PEA $0000
PEA $0001
PEA $0001
JSL L02E11C
JSL L02E161
LDA L02DDA2
ORA L02DDA4
BNE L02DE8A
BRL L02DF1A
L02DE8A PEA $000D
_ErrWriteChar
PEA $000A
_ErrWriteChar
BRA L02DEAD
L02DEA0 STR ' Line Name'
L02DEAD PEA ^L02DEA0
PEA L02DEA0
_ErrWriteLine
BRA L02DEC9
L02DEBC STR ' ---- ----'
L02DEC9 PEA ^L02DEBC
PEA L02DEBC
_ErrWriteLine
L02DED6 LDA L02DDA2
ORA L02DDA4
BEQ L02DF1A
LDA L02DDA6
PHA
PEA $0006
PEA $0000
PEA $0001
JSL L02E0EC
BRA L02DEF4
L02DEF1 STR ' '
L02DEF4 PEA ^L02DEF1
PEA L02DEF1
_ErrWriteString
PEA ^L02DDA7
PEA L02DDA7
PEA $0000
PEA $0001
PEA $0001
JSL L02E11C
JSL L02E161
BRA L02DED6
L02DF1A LDA #$FFFF
BRL L02DDB4
L02DF20 PHD
PEA ^L02DF4A
PEA L02DF4A
TSC
TCD
LDX $0A
L02DF2B DEX
BEQ L02DF3A
SEC
LDA [$01]
AND #$00FF
ADC $01
STA $01
BRA L02DF2B
L02DF3A _ErrWriteLine
PLD
LDA $02,S
STA $04,S
PLA
STA $01,S
RTL
L02DF4A 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'
L02E055 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA $10
ORA $12
BNE L02E068
SEP #$40
BRL L02E0CF
L02E068 JSL L02DD35
LDA $16
ORA $12
BEQ L02E094
LDY #$0020
L02E075 ASL $05
ROL $07
ROL $09
ROL $0B
SEC
LDA $09
SBC $10
TAX
LDA $0B
SBC $12
BCC L02E08F
STX $09
STA $0B
INC $05
L02E08F DEY
BNE L02E075
BEQ L02E0B0
L02E094 LDA #$0000
LDY #$0010
L02E09A ASL $05
ROL
SEC
SBC $10
BCS L02E0A9
ADC $10
DEY
BNE L02E09A
BEQ L02E0AE
L02E0A9 INC $05
DEY
BNE L02E09A
L02E0AE STA $09
L02E0B0 LDA $01
BEQ L02E0C3
SEC
LDA #$0000
SBC $05
STA $05
LDA #$0000
SBC $07
STA $07
L02E0C3 LDX #$0006
L02E0C6 LDA $05,X
STA $10,X
DEX
DEX
BPL L02E0C6
CLV
L02E0CF PLD
TSC
CLC
ADC #$000C
TCS
RTL
L02E0D7 PHB
PHK
PLB
STZ L02E18A
STZ L02E18C
LDX #$0026
L02E0E3 STZ L02E18E,X
DEX
DEX
BPL L02E0E3
PLB
RTL
L02E0EC TSC
PHD
TCD
PEA ^L02E387
PEA L02E387
LDA $0A
JSL L02E1B6
PEA ^L02E387
PEA L02E387
LDA $08
PHA
LDA $06
PHA
LDA $04
PHA
JSL L02E11C
LDA $02
STA $0A
LDA $00
STA $08
PLD
PLA
PLA
PLA
PLA
RTL
L02E11C TSC
PHD
TCD
INC $0A
BNE L02E125
INC $0C
L02E125 LDA [$0A]
AND #$00FF
SEC
SBC $08
BPL L02E139
EOR #$FFFF
INC
LDY $04
JSL L02E426
L02E139 LDA $0C
PHA
LDA $0A
PHA
LDA $06
EOR #$0001
ASL
ORA $04
XBA
CLC
ADC #$1A0C
TAX
JSL $E10000
LDA $02
STA $0C
LDA $00
STA $0A
PLD
CLC
TSC
ADC #$000A
TCS
RTL
L02E161 PHB
PHK
PLB
LDA L02DDA4
PHA
LDA L02DDA2
PHA
TSC
PHD
TCD
LDY #$0010
L02E172 LDA [$01],Y
STA L02DDA2,Y
DEY
DEY
BPL L02E172
LDA $03
PHA
LDA $01
PHA
JSL L02E1CD
PLD
PLA
PLA
PLB
RTL
L02E18A DB $00
DB $00
L02E18C DB $00
DB $00
L02E18E DB $00
DB $00
L02E190 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02E1B6 PHA
PEA ^L02E3B1
PEA L02E3B1
PEA $0028
PEA $0001
_Int2Dec
JMP L02E3D9
L02E1CD TSC
PHD
TCD
LDY $04
LDX $06
SEC
TYA
SBC #$0002
STA $04
BCS L02E1DF
DEC $06
L02E1DF LDA [$04]
BNE L02E1EA
TYA
JSL L02E2E8
BRA L02E1EF
L02E1EA TYA
JSL L02E1FB
L02E1EF LDA $00
STA $04
LDA $02
STA $06
PLD
PLA
PLA
RTL
L02E1FB PHA
PHA
PHA
SEC
SBC #$0004
BCS L02E205
DEX
L02E205 PHX
PHA
TSC
PHD
TCD
LDA [$01]
BPL L02E211
BRL L02E2E0
L02E211 LDA [$01]
ORA #$8000
STA [$01]
LDY #$0002
LDA [$01],Y
STA $09
TAY
LDA $01
LDX $03
JSL L02E35C
L02E228 LDA $09
CMP #$1000
BCC L02E232
BRL L02E2CE
L02E232 LDA [$01]
AND $09
BEQ L02E289
SEC
LDA $01
SBC $09
STA $05
LDA $03
SBC #$0000
STA $07
LDY #$0002
LDA [$05],Y
CMP $09
BEQ L02E252
BRL L02E2E0
L02E252 LDA [$05]
BMI L02E259
BRL L02E2E0
L02E259 LDY $09
LDX $03
LDA $01
JSL L02E442
LDY $09
LDX $07
LDA $05
JSL L02E442
LDA $05
STA $01
LDA $07
STA $03
ASL $09
LDA $09
LDY #$0002
STA [$01],Y
TAY
LDA $01
LDX $03
JSL L02E35C
BRA L02E228
L02E289 CLC
LDA $01
ADC $09
STA $05
LDA $03
ADC #$0000
STA $07
LDY #$0002
LDA [$05],Y
CMP $09
BNE L02E2E0
LDA [$05]
BPL L02E2E0
LDY $09
LDX $03
LDA $01
JSL L02E442
LDY $09
LDX $07
LDA $05
JSL L02E442
ASL $09
LDY #$0002
LDA $09
STA [$01],Y
LDY $09
LDA $01
LDX $03
JSL L02E35C
BRL L02E228
L02E2CE LDY $09
LDA $01
LDX $03
JSL L02E442
LDA $01
LDX $03
JSL L02E2E8
L02E2E0 PLD
TSC
CLC
ADC #$000A
TCS
RTL
L02E2E8 PHA
PHA
SEC
SBC #$000E
BCS L02E2F1
DEX
L02E2F1 PHX
PHA
TSC
PHD
TCD
LDY #$0002
LDA [$01],Y
ORA [$01]
BNE L02E312
LDY #$0004
LDA [$01],Y
STAL L02E18A
INY
INY
LDA [$01],Y
STAL L02E18C
BRA L02E327
L02E312 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
L02E327 LDY #$0004
LDA [$01],Y
TAX
INY
INY
ORA [$01],Y
BEQ L02E344
LDA [$01],Y
STA $07
STX $05
LDY #$0002
LDA [$01]
STA [$05]
LDA [$01],Y
STA [$05],Y
L02E344 LDY #$000A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
_DisposeHandle
PLD
PLA
PLA
PLA
PLA
RTL
L02E35C PHX
PHA
TSC
PHD
TCD
TYA
JSL L02E4AD
LDY #$0004
LDAL L02E18E,X
STA [$01],Y
INY
INY
LDAL L02E190,X
STA [$01],Y
LDA $01
STAL L02E18E,X
LDA $03
STAL L02E190,X
PLD
PLA
PLA
RTL
L02E387 DW $0028
DS $28
L02E3B1 DS $28
L02E3D9 PHD
TSC
TCD
SEP #$20
LDX #$0000
LDA #$20
L02E3E3 CMPL L02E3B1,X
BNE L02E3EC
INX
BRA L02E3E3
L02E3EC REP #$20
TXA
SEC
SBC #$0028
EOR #$FFFF
INC
SEP #$20
CMP [$06]
BEQ L02E3FF
BCS L02E416
L02E3FF LDY #$0001
STA [$06],Y
L02E404 LDAL L02E3B1,X
INY
STA [$06],Y
INX
CPX #$0028
BCC L02E404
REP #$20
CLV
BRA L02E41A
L02E416 REP #$20
SEP #$40
L02E41A LDA $02,S
STA $06,S
LDA $04,S
STA $08,S
PLD
PLA
PLA
RTL
L02E426 PHA
TYA
XBA
CLC
ADC #$180C
PHA
PHD
TSC
TCD
L02E431 PEA $0020
LDX $03
JSL $E10000
DEC $05
BNE L02E431
PLD
PLA
PLA
RTL
L02E442 PHX
PHA
LDA #$0000
PHA
PHA
PHA
PHA
TSC
PHD
TCD
TYA
JSL L02E4AD
LDAL L02E18E,X
STA $05
LDAL L02E190,X
STA $07
L02E45F LDA $05
CMP $09
BNE L02E46B
LDA $07
CMP $0B
BEQ L02E482
L02E46B LDA $05
STA $01
LDA $07
STA $03
LDY #$0004
LDA [$01],Y
STA $05
INY
INY
LDA [$01],Y
STA $07
BRA L02E45F
L02E482 LDY #$0004
LDA $01
ORA $02
BNE L02E49B
LDA [$05],Y
STAL L02E18E,X
INY
INY
LDA [$05],Y
STAL L02E190,X
BRA L02E4A5
L02E49B LDA [$05],Y
STA [$01],Y
INY
INY
LDA [$05],Y
STA [$01],Y
L02E4A5 PLD
TSC
CLC
ADC #$000C
TCS
RTL
L02E4AD LDX #$0000
DEC
LSR
LSR
LSR
BEQ L02E4BD
L02E4B6 INX
INX
INX
INX
LSR
BNE L02E4B6
L02E4BD RTL