mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-08 13:29:45 +00:00
5280 lines
100 KiB
ArmAsm
5280 lines
100 KiB
ArmAsm
*
|
|
* Genesys v1.2.4
|
|
* Tool Table editor
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*----------------------------
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Int.Macs
|
|
use 4/Mem.Macs
|
|
use 4/QD.Macs
|
|
use 4/Resource.Macs
|
|
use 4/Text.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*----------------------------
|
|
|
|
GSOS EQU $E100A8
|
|
|
|
*----------------------------
|
|
|
|
LDA $04,S
|
|
STA L2842
|
|
LDA $06,S
|
|
STA L2842+2
|
|
JMPL L23D1
|
|
|
|
L000E PHD
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA ^L0788
|
|
PEA L0788
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA ^L072E
|
|
PEA L072E
|
|
PEA $800E
|
|
_NewWindow2
|
|
PLA
|
|
STA L2852
|
|
PLA
|
|
STA L2852+2
|
|
LDA L2852+2
|
|
PHA
|
|
LDA L2852
|
|
PHA
|
|
_SetPort
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L2852+2
|
|
PHA
|
|
LDA L2852
|
|
PHA
|
|
PEA $0003
|
|
PEA ^L007D
|
|
PEA L007D
|
|
_NewControl2
|
|
PLA
|
|
PLA
|
|
PLB
|
|
PLD
|
|
RTL
|
|
|
|
L007D ADRL L010D
|
|
ADRL L012D
|
|
ADRL L014D
|
|
ADRL L016D
|
|
ADRL L018D
|
|
ADRL L01AD
|
|
ADRL L01CD
|
|
ADRL L01ED
|
|
ADRL L020D
|
|
ADRL L022D
|
|
ADRL L024D
|
|
ADRL L026D
|
|
ADRL L028D
|
|
ADRL L02AD
|
|
ADRL L02CD
|
|
ADRL L02ED
|
|
ADRL L030D
|
|
ADRL L032D
|
|
ADRL L034D
|
|
ADRL L036D
|
|
ADRL L038D
|
|
ADRL L03AD
|
|
ADRL L03CD
|
|
ADRL L03ED
|
|
ADRL L040D
|
|
ADRL L042D
|
|
ADRL L044D
|
|
ADRL L046D
|
|
ADRL L048D
|
|
ADRL L04AD
|
|
ADRL L04CD
|
|
ADRL L04ED
|
|
ADRL L050D
|
|
ADRL L052D
|
|
ADRL L054D
|
|
ADRL $00000000
|
|
|
|
L010D DW $0008 ; pCount
|
|
ADRL $00000001 ; ID
|
|
DW $0005 ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000001 ; refCon
|
|
ADRL L0714 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L012D DW $0008 ; pCount
|
|
ADRL $00000002 ; ID
|
|
DW $000F ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000002 ; refCon
|
|
ADRL L0705 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L014D DW $0008 ; pCount
|
|
ADRL $00000003 ; ID
|
|
DW $0019 ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000003 ; refCon
|
|
ADRL L06F7 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L016D DW $0008 ; pCount
|
|
ADRL $00000004 ; ID
|
|
DW $0023 ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000004 ; refCon
|
|
ADRL L06EA ; titleRef
|
|
DW $0000 ; initialValue
|
|
L018D DW $0008 ; pCount
|
|
ADRL $00000005 ; ID
|
|
DW $002D ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000005 ; refCon
|
|
ADRL L06DD ; titleRef
|
|
DW $0000 ; initialValue
|
|
L01AD DW $0008 ; pCount
|
|
ADRL $00000006 ; ID
|
|
DW $0037 ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000006 ; refCon
|
|
ADRL L06CF ; titleRef
|
|
DW $0000 ; initialValue
|
|
L01CD DW $0008 ; pCount
|
|
ADRL $00000007 ; ID
|
|
DW $0041 ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000007 ; refCon
|
|
ADRL L06C5 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L01ED DW $0008 ; pCount
|
|
ADRL $00000008 ; ID
|
|
DW $004B ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000008 ; refCon
|
|
ADRL L06BF ; titleRef
|
|
DW $0000 ; initialValue
|
|
L020D DW $0008 ; pCount
|
|
ADRL $00000009 ; ID
|
|
DW $0055 ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000009 ; refCon
|
|
ADRL L06BB ; titleRef
|
|
DW $0000 ; initialValue
|
|
L022D DW $0008 ; pCount
|
|
ADRL $0000000A ; ID
|
|
DW $005F ; rect
|
|
DW $000C
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000000A ; refCon
|
|
ADRL L06B6 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L024D DW $0008 ; pCount
|
|
ADRL $0000000B ; ID
|
|
DW $0005 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000000B ; refCon
|
|
ADRL L06A9 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L026D DW $0008 ; pCount
|
|
ADRL $0000000C ; ID
|
|
DW $000F ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000000C ; refCon
|
|
ADRL L06A4 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L028D DW $0008 ; pCount
|
|
ADRL $0000000E ; ID
|
|
DW $0019 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000000E ; refCon
|
|
ADRL L0695 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L02AD DW $0008 ; pCount
|
|
ADRL $0000000F ; ID
|
|
DW $0023 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000000F ; refCon
|
|
ADRL L0688 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L02CD DW $0008 ; pCount
|
|
ADRL $00000010 ; ID
|
|
DW $002D ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000010 ; refCon
|
|
ADRL L0678 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L02ED DW $0008 ; pCount
|
|
ADRL $00000011 ; ID
|
|
DW $0037 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000011 ; refCon
|
|
ADRL L066A ; titleRef
|
|
DW $0000 ; initialValue
|
|
L030D DW $0008 ; pCount
|
|
ADRL $00000012 ; ID
|
|
DW $0041 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000012 ; refCon
|
|
ADRL L065B ; titleRef
|
|
DW $0000 ; initialValue
|
|
L032D DW $0008 ; pCount
|
|
ADRL $00000013 ; ID
|
|
DW $004B ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000013 ; refCon
|
|
ADRL L064D ; titleRef
|
|
DW $0000 ; initialValue
|
|
L034D DW $0008 ; pCount
|
|
ADRL $00000014 ; ID
|
|
DW $0055 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000014 ; refCon
|
|
ADRL L0643 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L036D DW $0008 ; pCount
|
|
ADRL $00000015 ; ID
|
|
DW $005F ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000015 ; refCon
|
|
ADRL L0634 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L038D DW $0008 ; pCount
|
|
ADRL $00000016 ; ID
|
|
DW $0005 ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000016 ; refCon
|
|
ADRL L0626 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L03AD DW $0008 ; pCount
|
|
ADRL $00000017 ; ID
|
|
DW $000F ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000017 ; refCon
|
|
ADRL L0618 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L03CD DW $0008 ; pCount
|
|
ADRL $00000019 ; ID
|
|
DW $0019 ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000019 ; refCon
|
|
ADRL L0607 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L03ED DW $0008 ; pCount
|
|
ADRL $0000001A ; ID
|
|
DW $0023 ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000001A ; refCon
|
|
ADRL L05F8 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L040D DW $0008 ; pCount
|
|
ADRL $0000001B ; ID
|
|
DW $002D ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000001B ; refCon
|
|
ADRL L05EB ; titleRef
|
|
DW $0000 ; initialValue
|
|
L042D DW $0008 ; pCount
|
|
ADRL $0000001C ; ID
|
|
DW $0037 ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000001C ; refCon
|
|
ADRL L05DE ; titleRef
|
|
DW $0000 ; initialValue
|
|
L044D DW $0008 ; pCount
|
|
ADRL $0000001D ; ID
|
|
DW $0041 ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000001D ; refCon
|
|
ADRL L05DA ; titleRef
|
|
DW $0000 ; initialValue
|
|
L046D DW $0008 ; pCount
|
|
ADRL $0000001E ; ID
|
|
DW $004B ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $0000001E ; refCon
|
|
ADRL L059C ; titleRef
|
|
DW $0000 ; initialValue
|
|
L048D DW $0008 ; pCount
|
|
ADRL $00000020 ; ID
|
|
DW $0055 ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000020 ; refCon
|
|
ADRL L0597 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L04AD DW $0008 ; pCount
|
|
ADRL $00000022 ; ID
|
|
DW $005F ; rect
|
|
DW $0138
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000022 ; refCon
|
|
ADRL L058D ; titleRef
|
|
DW $0000 ; initialValue
|
|
L04CD DW $0008 ; pCount
|
|
ADRL $00000320 ; ID
|
|
DW $006D ; rect
|
|
DW $000E
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $84000000 ; procRef
|
|
DW $0005 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000320 ; refCon
|
|
ADRL L05C0 ; titleRef
|
|
DW $0000 ; initialValue
|
|
L04ED DW $0008 ; pCount
|
|
ADRL $00000640 ; ID
|
|
DW $0077 ; rect
|
|
DW $000E
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $84000000 ; procRef
|
|
DW $0005 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00000640 ; refCon
|
|
ADRL L05B7 ; titleRef
|
|
DW $0001 ; initialValue
|
|
L050D DW $0008 ; pCount
|
|
ADRL $00001001 ; ID
|
|
DW $006D ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00001001 ; refCon
|
|
ADRL L057E ; titleRef
|
|
DW $0000 ; initialValue
|
|
L052D DW $0008 ; pCount
|
|
ADRL $00001002 ; ID
|
|
DW $0077 ; rect
|
|
DW $00A2
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $82000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00001002 ; refCon
|
|
ADRL L056B ; titleRef
|
|
DW $0000 ; initialValue
|
|
L054D DW $0007 ; pCount
|
|
ADRL $00001000 ; ID
|
|
DW $0070 ; rect
|
|
DW $015C
|
|
DW $007D
|
|
DW $01C0
|
|
ADRL $80000000 ; procRef
|
|
DW $0000 ; flag
|
|
DW $1000 ; moreFlags
|
|
ADRL $00001000 ; refCon
|
|
ADRL L05AD ; titleRef
|
|
|
|
L056B STR 'Hardware shadowing'
|
|
L057E STR 'Fastport aware'
|
|
L058D STR 'Text edit'
|
|
L0597 STR 'MIDI'
|
|
L059C STR 'Resource manager'
|
|
L05AD STR 'Preferred'
|
|
L05B7 STR '640 Mode'
|
|
L05C0 STR '320 Mode'
|
|
STR 'Resource manager'
|
|
L05DA STR 'ACE'
|
|
L05DE STR 'List manager'
|
|
L05EB STR 'Font manager'
|
|
L05F8 STR 'Note sequencer'
|
|
L0607 STR 'Note synthesizer'
|
|
L0618 STR 'Standard file'
|
|
L0626 STR 'Scrap manager'
|
|
L0634 STR 'Dialog manager'
|
|
L0643 STR 'Line edit'
|
|
L064D STR 'Print manager'
|
|
L065B STR 'QuickDraw Aux.'
|
|
L066A STR 'System loader'
|
|
L0678 STR 'Control manager'
|
|
L0688 STR 'Menu manager'
|
|
L0695 STR 'Window manager'
|
|
L06A4 STR 'Text'
|
|
L06A9 STR 'Integer math'
|
|
L06B6 STR 'SANE'
|
|
L06BB STR 'ADB'
|
|
L06BF STR 'Sound'
|
|
L06C5 STR 'Scheduler'
|
|
L06CF STR 'Event manager'
|
|
L06DD STR 'Desk manager'
|
|
L06EA STR 'QuickDraw II'
|
|
L06F7 STR 'Miscellaneous'
|
|
L0705 STR 'Memory manager'
|
|
L0714 STR 'Tool locator'
|
|
L0721 STR ' Tool Table '
|
|
|
|
L072E DW $0050
|
|
DW $C080 ; frame bits
|
|
ADRL L0721 ; title ptr
|
|
ADRL $00000000 ; refcon
|
|
DW $0000 ; zoom rect
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
ADRL L077E ; 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 $0024 ; content rect
|
|
DW $001E
|
|
DW $00A6
|
|
DW $01F4
|
|
ADRL $FFFFFFFF ; starting plane
|
|
ADRL $00000000 ; storage ptr
|
|
DW $0000
|
|
|
|
L077E DW $0000
|
|
DW $0F00
|
|
DW $020F
|
|
DW $F0FF
|
|
DW $00F0
|
|
|
|
L0788 PHD
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PEA $0000
|
|
_GetCurResourceFile
|
|
LDA L2848
|
|
PHA
|
|
_SetCurResourceFile
|
|
PEA $0000
|
|
PEA $0000
|
|
_GetPort
|
|
_DrawControls
|
|
PEA $000A
|
|
PEA $006A
|
|
_MoveTo
|
|
PEA $01CC
|
|
PEA $006A
|
|
_LineTo
|
|
_SetCurResourceFile
|
|
PLB
|
|
PLD
|
|
RTL
|
|
|
|
BRK $69
|
|
RTL
|
|
|
|
L07DC TSC
|
|
SEC
|
|
SBC #$001A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $18
|
|
PHA
|
|
LDA $21
|
|
PHA
|
|
LDX $1F
|
|
LDA $1D
|
|
PHX
|
|
PHA
|
|
_GetResourceAttr
|
|
STA L2BCB
|
|
PLA
|
|
STA $16
|
|
LDA $16
|
|
AND #$0020
|
|
PHA
|
|
LDA $21
|
|
PHA
|
|
LDX $1F
|
|
LDA $1D
|
|
PHX
|
|
PHA
|
|
_SetResourceAttr
|
|
STA L2BCB
|
|
LDA #$0001
|
|
PHA
|
|
LDA $21
|
|
PHA
|
|
LDX $1F
|
|
LDA $1D
|
|
PHX
|
|
PHA
|
|
_MarkResourceChange
|
|
STA L2BCB
|
|
LDA $21
|
|
PHA
|
|
LDX $1F
|
|
LDA $1D
|
|
PHX
|
|
PHA
|
|
_WriteResource
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L0859
|
|
BRL L0896
|
|
L0859 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L08E8
|
|
PEA L08E8
|
|
LDA #$0044
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L0896
|
|
BRL L0896
|
|
L0896 LDA $16
|
|
PHA
|
|
LDA $21
|
|
PHA
|
|
LDX $1F
|
|
LDA $1D
|
|
PHX
|
|
PHA
|
|
_SetResourceAttr
|
|
STA L2BCB
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDA $21
|
|
PHA
|
|
LDX $1F
|
|
LDA $1D
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
PHA
|
|
LDA $18
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $18
|
|
LDA $1B
|
|
STA $21
|
|
LDA $1A
|
|
STA $20
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0020
|
|
TCS
|
|
RTL
|
|
|
|
L08E8 ASC '52~Tool editor: Resource write error. Re'
|
|
ASC 'source possibly damaged.~^#0'
|
|
L092C TSC
|
|
SEC
|
|
SBC #$0028
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDA #$0000
|
|
STA $16
|
|
LDA #$0000
|
|
STA $18
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $26
|
|
LDA L2BCB
|
|
BNE L0959
|
|
BRL L095C
|
|
L0959 BRL L0A27
|
|
L095C LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
PHA
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
_GetResourceAttr
|
|
STA L2BCB
|
|
PLA
|
|
STA $24
|
|
LDA L2BCB
|
|
BNE L0996
|
|
BRL L0999
|
|
L0996 BRL L0A27
|
|
L0999 LDA $24
|
|
AND #$0020
|
|
PHA
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
_SetResourceAttr
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L09BA
|
|
BRL L09BD
|
|
L09BA BRL L0A27
|
|
L09BD PHA
|
|
PHA
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
_LoadResource
|
|
STA L2BCB
|
|
PLA
|
|
STA $20
|
|
PLA
|
|
STA $22
|
|
LDA L2BCB
|
|
BNE L09E0
|
|
BRL L09E3
|
|
L09E0 BRL L0A27
|
|
L09E3 LDX $22
|
|
LDA $20
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L09FB
|
|
BRL L09FE
|
|
L09FB BRL L0A27
|
|
L09FE LDA $24
|
|
PHA
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
_SetResourceAttr
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L0A1C
|
|
BRL L0A1F
|
|
L0A1C BRL L0A27
|
|
L0A1F LDX $22
|
|
LDA $20
|
|
STX $18
|
|
STA $16
|
|
L0A27 PHA
|
|
LDA $26
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $26
|
|
LDA $29
|
|
STA $2F
|
|
LDA $28
|
|
STA $2E
|
|
LDX $18
|
|
LDY $16
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$002E
|
|
TCS
|
|
TYA
|
|
RTL
|
|
|
|
L0A4D TSC
|
|
SEC
|
|
SBC #$0028
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDA #$0001
|
|
STA $16
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
JSL L092C
|
|
STX $22
|
|
STA $20
|
|
LDA $20
|
|
ORA $22
|
|
BEQ L0A75
|
|
BRL L0AB5
|
|
L0A75 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L0D79
|
|
PEA L0D79
|
|
LDA #$003B
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L0AB2
|
|
BRL L0AB2
|
|
L0AB2 BRL L0D66
|
|
L0AB5 LDX $22
|
|
LDA $20
|
|
PHX
|
|
PHA
|
|
_HUnlock
|
|
STA L2BCB
|
|
LDA #$0054
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0ACF
|
|
DEX
|
|
L0ACF PHX
|
|
PHA
|
|
LDX $22
|
|
LDA $20
|
|
PHX
|
|
PHA
|
|
_SetHandleSize
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L0AE9
|
|
BRL L0B67
|
|
L0AE9 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L0DB4
|
|
PEA L0DB4
|
|
LDA #$003B
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $24
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
PHA
|
|
LDA $24
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $24
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L0B64
|
|
BRL L0B64
|
|
L0B64 BRL L0D66
|
|
L0B67 LDX $22
|
|
LDA $20
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
STA L2BCB
|
|
LDY #$0002
|
|
LDA [$20],Y
|
|
TAX
|
|
LDA [$20]
|
|
STX $08
|
|
STA $06
|
|
LDA #$0000
|
|
STA [$06]
|
|
LDY #$0002
|
|
LDA #$C080
|
|
STA [$06],Y
|
|
LDY #$0004
|
|
LDA #$0000
|
|
STA [$06],Y
|
|
LDY #$0006
|
|
LDA #$0000
|
|
STA [$06],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$06],Y
|
|
LDY #$000A
|
|
LDA #$0012
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0001
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0003
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0002
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0004
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0003
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0005
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0004
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0006
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0005
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$000B
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0006
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$000E
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0007
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$000F
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0008
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0010
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0009
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0012
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$000A
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0013
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$000B
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0014
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$000C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0015
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$000D
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0016
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$000E
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0017
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$000F
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$001B
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0010
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$001C
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0011
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$001E
|
|
STA [$06],Y
|
|
LDY #$000C
|
|
PHY
|
|
LDA #$0012
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA #$0022
|
|
STA [$06],Y
|
|
LDA #$0001
|
|
STA $26
|
|
L0D2E LDY #$000C
|
|
PHY
|
|
LDA $26
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
TYA
|
|
CLC
|
|
ADC #$0002
|
|
TAY
|
|
LDA #$0000
|
|
STA [$06],Y
|
|
INC $26
|
|
LDA $26
|
|
CMP #$0013
|
|
BEQ L0D54
|
|
BRL L0D2E
|
|
L0D54 LDA $2F
|
|
PHA
|
|
LDX $2D
|
|
LDA $2B
|
|
PHX
|
|
PHA
|
|
JSL L07DC
|
|
LDA #$0000
|
|
STA $16
|
|
L0D66 LDA $29
|
|
STA $2F
|
|
LDA $28
|
|
STA $2E
|
|
LDX $16
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$002E
|
|
TCS
|
|
TXA
|
|
RTL
|
|
|
|
L0D79 ASC '52~Tool editor: Resource load error. Ope'
|
|
ASC 'ration aborted.~^#0'
|
|
L0DB4 ASC '52~Tool editor: Memory resize error. Ope'
|
|
ASC 'ration aborted.~^#0'
|
|
L0DEF TSC
|
|
SEC
|
|
SBC #$0016
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0048
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0048
|
|
LDA [$00],Y
|
|
ORA #$6000
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0050
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
PHA
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHA
|
|
LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0052
|
|
PHA
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
PLA
|
|
STA [$00]
|
|
LDY #$0002
|
|
PLA
|
|
STA [$00],Y
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
RTL
|
|
|
|
L0E80 TSC
|
|
SEC
|
|
SBC #$0026
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0E93
|
|
DEX
|
|
L0E93 PHX
|
|
PHA
|
|
PLA
|
|
STA $16
|
|
PLA
|
|
STA $18
|
|
PHA
|
|
PHA
|
|
LDA #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0EA7
|
|
DEX
|
|
L0EA7 PHX
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003C
|
|
LDA [$00],Y
|
|
PHA
|
|
LDA #$8000
|
|
PHA
|
|
LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0EC7
|
|
DEX
|
|
L0EC7 PHX
|
|
PHA
|
|
_NewHandle
|
|
STA L2BCB
|
|
PLA
|
|
STA L284E
|
|
PLA
|
|
STA L284E+2
|
|
LDA L2BCB
|
|
BNE L0EE3
|
|
BRL L0F23
|
|
L0EE3 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L119F
|
|
PEA L119F
|
|
LDA #$003C
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L0F20
|
|
BRL L0F20
|
|
L0F20 BRL L1192
|
|
L0F23 PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $20
|
|
LDA L2BCB
|
|
BNE L0F3D
|
|
BRL L0F8F
|
|
L0F3D LDX L284E+2
|
|
LDA L284E
|
|
PHX
|
|
PHA
|
|
_DisposeHandle
|
|
STA L2BCB
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L11DB
|
|
PEA L11DB
|
|
LDA #$0036
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L0F8C
|
|
BRL L0F8C
|
|
L0F8C BRL L1192
|
|
L0F8F PHA
|
|
PHA
|
|
LDA #$FFFF
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
_UniqueResourceID
|
|
STA L2BCB
|
|
PLA
|
|
STA $22
|
|
PLA
|
|
STA $24
|
|
LDA L2BCB
|
|
BNE L0FBD
|
|
BRL L100F
|
|
L0FBD LDX L284E+2
|
|
LDA L284E
|
|
PHX
|
|
PHA
|
|
_DisposeHandle
|
|
STA L2BCB
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L1211
|
|
PEA L1211
|
|
LDA #$0037
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L100C
|
|
BRL L100C
|
|
L100C BRL L1141
|
|
L100F LDX L284E+2
|
|
LDA L284E
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX $24
|
|
LDA $22
|
|
PHX
|
|
PHA
|
|
_AddResource
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L1043
|
|
BRL L10A3
|
|
L1043 LDX L284E+2
|
|
LDA L284E
|
|
PHX
|
|
PHA
|
|
_DisposeHandle
|
|
STA L2BCB
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L1248
|
|
PEA L1248
|
|
LDA #$0043
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L1092
|
|
BRL L1092
|
|
L1092 LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L109C
|
|
DEX
|
|
L109C STX $24
|
|
STA $22
|
|
BRL L1141
|
|
L10A3 LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX $24
|
|
LDA $22
|
|
PHX
|
|
PHA
|
|
_WriteResource
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L10CB
|
|
BRL L1119
|
|
L10CB LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L128B
|
|
PEA L128B
|
|
LDA #$003F
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L1108
|
|
BRL L1108
|
|
L1108 LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1112
|
|
DEX
|
|
L1112 STX $24
|
|
STA $22
|
|
BRL L1141
|
|
L1119 LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX $24
|
|
LDA $22
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
L1141 PHA
|
|
LDA $20
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $20
|
|
LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L115C
|
|
DEX
|
|
L115C CMP $22
|
|
BNE L1162
|
|
CPX $24
|
|
L1162 BNE L1167
|
|
BRL L1192
|
|
L1167 LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX $24
|
|
LDA $22
|
|
PHX
|
|
PHA
|
|
JSL L0A4D
|
|
TAX
|
|
BNE L1187
|
|
BRL L118A
|
|
L1187 BRL L1192
|
|
L118A LDX $24
|
|
LDA $22
|
|
STX $18
|
|
STA $16
|
|
L1192 LDX $18
|
|
LDY $16
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0026
|
|
TCS
|
|
TYA
|
|
RTL
|
|
|
|
L119F ASC '52~Tool editor: Memory creation error. C'
|
|
ASC 'reation aborted.~^#0'
|
|
L11DB ASC '52~Tool editor: Depth get error. Creatio'
|
|
ASC 'n aborted.~^#0'
|
|
L1211 ASC '52~Tool editor: Could not get ID. Creati'
|
|
ASC 'on aborted.~^#0'
|
|
L1248 ASC '52~Tool editor: Could not add resource e'
|
|
ASC 'rror. Creation aborted.~^#0'
|
|
L128B ASC '52~Tool editor: Could not write resource'
|
|
ASC '. Creation aborted.~^#0'
|
|
|
|
L12CA TSC
|
|
SEC
|
|
SBC #$0020
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0048
|
|
LDA [$00],Y
|
|
AND #$8000
|
|
BNE L12EA
|
|
BRL L1929
|
|
L12EA LDA $2B
|
|
PHA
|
|
LDX $29
|
|
LDA $27
|
|
PHX
|
|
PHA
|
|
JSL L092C
|
|
STX $18
|
|
STA $16
|
|
LDA $16
|
|
ORA $18
|
|
BEQ L1304
|
|
BRL L1344
|
|
L1304 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L1939
|
|
PEA L1939
|
|
LDA #$003F
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L1341
|
|
BRL L1341
|
|
L1341 BRL L1929
|
|
L1344 LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_HUnlock
|
|
STA L2BCB
|
|
LDA #$0084
|
|
LDX #$0000
|
|
TAY
|
|
BPL L135E
|
|
DEX
|
|
L135E PHX
|
|
PHA
|
|
LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_SetHandleSize
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L1378
|
|
BRL L13F6
|
|
L1378 PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $1E
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDA $2B
|
|
PHA
|
|
LDX $29
|
|
LDA $27
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
PHA
|
|
LDA $1E
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $1E
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L1978
|
|
PEA L1978
|
|
LDA #$0041
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L13F3
|
|
BRL L13F3
|
|
L13F3 BRL L1929
|
|
L13F6 LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
STA L2BCB
|
|
LDA #$0000
|
|
STA $1C
|
|
LDA #$0001
|
|
STA $1A
|
|
L1410 PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
CLC
|
|
ADC $1A
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1426
|
|
DEX
|
|
L1426 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L1442
|
|
BRL L149C
|
|
L1442 LDA $1C
|
|
CLC
|
|
ADC #$0001
|
|
STA $1C
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDA $1A
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA $1A
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA L2856,X
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L149C INC $1A
|
|
LDA $1A
|
|
CMP #$000D
|
|
BEQ L14A8
|
|
BRL L1410
|
|
L14A8 LDA #$000E
|
|
STA $1A
|
|
L14AD PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
CLC
|
|
ADC $1A
|
|
LDX #$0000
|
|
TAY
|
|
BPL L14C3
|
|
DEX
|
|
L14C3 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L14DF
|
|
BRL L1539
|
|
L14DF LDA $1C
|
|
CLC
|
|
ADC #$0001
|
|
STA $1C
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDA $1A
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA $1A
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA L2856,X
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L1539 INC $1A
|
|
LDA $1A
|
|
CMP #$0018
|
|
BEQ L1545
|
|
BRL L14AD
|
|
L1545 LDA #$0019
|
|
STA $1A
|
|
L154A PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
CLC
|
|
ADC $1A
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1560
|
|
DEX
|
|
L1560 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L157C
|
|
BRL L15D6
|
|
L157C LDA $1C
|
|
CLC
|
|
ADC #$0001
|
|
STA $1C
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDA $1A
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA $1A
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA L2856,X
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L15D6 INC $1A
|
|
LDA $1A
|
|
CMP #$001F
|
|
BEQ L15E2
|
|
BRL L154A
|
|
L15E2 PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$0020
|
|
LDX #$0000
|
|
TAY
|
|
BPL L15F5
|
|
DEX
|
|
L15F5 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L1611
|
|
BRL L166D
|
|
L1611 LDA $1C
|
|
CLC
|
|
ADC #$0001
|
|
STA $1C
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDA #$0020
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA #$0020
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA L2856,X
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L166D PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$0022
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1680
|
|
DEX
|
|
L1680 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L169C
|
|
BRL L16F8
|
|
L169C LDA $1C
|
|
CLC
|
|
ADC #$0001
|
|
STA $1C
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDA #$0022
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$000C
|
|
PHA
|
|
LDA $1C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA #$0022
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA L2856,X
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L16F8 LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
CLC
|
|
ADC #$000A
|
|
STA $00
|
|
STX $02
|
|
LDA $1C
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
CLC
|
|
ADC #$0002
|
|
STA $00
|
|
STX $02
|
|
LDA #$0000
|
|
STA [$00]
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$1001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1734
|
|
DEX
|
|
L1734 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L1750
|
|
BRL L1765
|
|
L1750 LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
CLC
|
|
ADC #$0002
|
|
STA $00
|
|
STX $02
|
|
LDA #$4000
|
|
STA [$00]
|
|
L1765 PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$1002
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1778
|
|
DEX
|
|
L1778 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L1794
|
|
BRL L17BF
|
|
L1794 LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
STA $00
|
|
STX $02
|
|
LDY #$0002
|
|
LDA [$00],Y
|
|
ORA #$8000
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L17BF PHA
|
|
PHA
|
|
PHA
|
|
LDX $25
|
|
LDA $23
|
|
PHX
|
|
PHA
|
|
LDA #$0640
|
|
LDX #$0000
|
|
TAY
|
|
BPL L17D2
|
|
DEX
|
|
L17D2 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_GetCtlValue
|
|
STA L2BCB
|
|
PLA
|
|
BNE L17EE
|
|
BRL L1819
|
|
L17EE LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
STA $00
|
|
STX $02
|
|
LDY #$0002
|
|
LDA [$00],Y
|
|
ORA #$0080
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L1819 LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
CLC
|
|
ADC #$0004
|
|
STA $00
|
|
STX $02
|
|
LDA #$0000
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
PHA
|
|
LDA [$16]
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0006
|
|
PHA
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
LDA #$0000
|
|
STA [$00]
|
|
LDY #$0002
|
|
LDA #$0000
|
|
STA [$00],Y
|
|
LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_HUnlock
|
|
STA L2BCB
|
|
LDA $1C
|
|
LDX #$0004
|
|
JSL L3154
|
|
CLC
|
|
ADC #$000C
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1874
|
|
DEX
|
|
L1874 PHX
|
|
PHA
|
|
LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_SetHandleSize
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L188E
|
|
BRL L190C
|
|
L188E PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $1E
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDA $2B
|
|
PHA
|
|
LDX $29
|
|
LDA $27
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
PHA
|
|
LDA $1E
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $1E
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L19B9
|
|
PEA L19B9
|
|
LDA #$003F
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L1909
|
|
BRL L1909
|
|
L1909 BRL L1929
|
|
L190C LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
STA L2BCB
|
|
LDA $2B
|
|
PHA
|
|
LDX $29
|
|
LDA $27
|
|
PHX
|
|
PHA
|
|
JSL L07DC
|
|
L1929 LDA $21
|
|
STA $2B
|
|
LDA $20
|
|
STA $2A
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$002A
|
|
TCS
|
|
RTL
|
|
|
|
L1939 ASC '52~Tool editor: Could not load resource.'
|
|
ASC ' Changes not saved.~^#0'
|
|
L1978 ASC '52~Tool editor: Could not resize resourc'
|
|
ASC 'e. Changes not saved.~^#0'
|
|
L19B9 ASC '52~Tool editor: Could not resize handle.'
|
|
ASC ' Changes not saved.~^#0'
|
|
L19F8 TSC
|
|
SEC
|
|
SBC #$0028
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDA #$0001
|
|
STA $16
|
|
LDA #$0001
|
|
STA $26
|
|
L1A0B LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
CLC
|
|
ADC $26
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1A26
|
|
DEX
|
|
L1A26 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
INC $26
|
|
LDA $26
|
|
CMP #$000D
|
|
BEQ L1A48
|
|
BRL L1A0B
|
|
L1A48 LDA #$000E
|
|
STA $26
|
|
L1A4D LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
CLC
|
|
ADC $26
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1A68
|
|
DEX
|
|
L1A68 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
INC $26
|
|
LDA $26
|
|
CMP #$0018
|
|
BEQ L1A8A
|
|
BRL L1A4D
|
|
L1A8A LDA #$0019
|
|
STA $26
|
|
L1A8F LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0000
|
|
CLC
|
|
ADC $26
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1AAA
|
|
DEX
|
|
L1AAA PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
INC $26
|
|
LDA $26
|
|
CMP #$001F
|
|
BEQ L1ACC
|
|
BRL L1A8F
|
|
L1ACC LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0020
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1AE4
|
|
DEX
|
|
L1AE4 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0022
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1B12
|
|
DEX
|
|
L1B12 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$1001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1B40
|
|
DEX
|
|
L1B40 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$1002
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1B6E
|
|
DEX
|
|
L1B6E PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
JSL L092C
|
|
STX $22
|
|
STA $20
|
|
LDA $20
|
|
ORA $22
|
|
BEQ L1BBC
|
|
BRL L1BFC
|
|
L1BBC LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L1DCF
|
|
PEA L1DCF
|
|
LDA #$003D
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L1BF9
|
|
BRL L1BF9
|
|
L1BF9 BRL L1D68
|
|
L1BFC LDX $22
|
|
LDA $20
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
STA L2BCB
|
|
LDY #$0002
|
|
LDA [$20],Y
|
|
TAX
|
|
LDA [$20]
|
|
STX $08
|
|
STA $06
|
|
LDY #$0002
|
|
LDA [$06],Y
|
|
AND #$8000
|
|
BNE L1C25
|
|
BRL L1C53
|
|
L1C25 LDA #$0001
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$1002
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1C3D
|
|
DEX
|
|
L1C3D PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
L1C53 LDY #$0002
|
|
LDA [$06],Y
|
|
AND #$4000
|
|
BNE L1C60
|
|
BRL L1C8E
|
|
L1C60 LDA #$0001
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$1001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1C78
|
|
DEX
|
|
L1C78 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
L1C8E LDY #$0002
|
|
LDA [$06],Y
|
|
AND #$0080
|
|
BNE L1C9B
|
|
BRL L1CCC
|
|
L1C9B LDA #$0001
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0640
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1CB3
|
|
DEX
|
|
L1CB3 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
BRL L1CFA
|
|
L1CCC LDA #$0001
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDA #$0320
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1CE4
|
|
DEX
|
|
L1CE4 PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
L1CFA LDY #$000A
|
|
LDA [$06],Y
|
|
STA $0A
|
|
LDA #$0001
|
|
STA $26
|
|
LDA $0A
|
|
SEC
|
|
SBC $26
|
|
BVS L1D10
|
|
EOR #$8000
|
|
L1D10 BMI L1D15
|
|
BRL L1D63
|
|
L1D15 LDA #$0001
|
|
PHA
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
LDY #$000C
|
|
PHY
|
|
LDA $26
|
|
DEC
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC $01,S
|
|
STA $01,S
|
|
PLY
|
|
LDA [$06],Y
|
|
CLC
|
|
ADC #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1D3F
|
|
DEX
|
|
L1D3F PHX
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
STA L2BCB
|
|
_SetCtlValue
|
|
STA L2BCB
|
|
LDA $0A
|
|
CMP $26
|
|
BNE L1D5E
|
|
BRL L1D63
|
|
L1D5E INC $26
|
|
BRL L1D15
|
|
L1D63 LDA #$0000
|
|
STA $16
|
|
L1D68 PHA
|
|
LDA #$0001
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $24
|
|
LDA #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
_ReleaseResource
|
|
STA L2BCB
|
|
PHA
|
|
LDA $24
|
|
PHA
|
|
_SetResourceFileDepth
|
|
STA L2BCB
|
|
PLA
|
|
STA $24
|
|
LDX $16
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0028
|
|
TCS
|
|
TXA
|
|
RTL
|
|
|
|
L1DCF ASC '52~Tool editor: Could not load resource.'
|
|
ASC ' Setting aborted.~^#0'
|
|
L1E0C TSC
|
|
SEC
|
|
SBC #$0016
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PHA
|
|
PHA
|
|
LDA #$000C
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1E21
|
|
DEX
|
|
L1E21 PHX
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003C
|
|
LDA [$00],Y
|
|
PHA
|
|
LDA #$8000
|
|
CLC
|
|
ADC #$4000
|
|
PHA
|
|
LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L1E45
|
|
DEX
|
|
L1E45 PHX
|
|
PHA
|
|
_NewHandle
|
|
STA L2BCB
|
|
PLA
|
|
STA L284A
|
|
PLA
|
|
STA L284A+2
|
|
LDA L2BCB
|
|
BNE L1E61
|
|
BRL L1EBC
|
|
L1E61 LDA L2846
|
|
BEQ L1E69
|
|
BRL L1E7C
|
|
L1E69 LDX L2842+2
|
|
LDA L2842
|
|
CLC
|
|
ADC #$0036
|
|
STA $00
|
|
STX $02
|
|
LDA #$0000
|
|
STA [$00]
|
|
L1E7C LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L2054
|
|
PEA L2054
|
|
LDA #$0035
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L1EB9
|
|
BRL L1EB9
|
|
L1EB9 BRL L204C
|
|
L1EBC LDX L284A+2
|
|
LDA L284A
|
|
STA $00
|
|
STX $02
|
|
LDY #$0002
|
|
LDA [$00],Y
|
|
TAX
|
|
LDA [$00]
|
|
STX $08
|
|
STA $06
|
|
PEI $08
|
|
PEI $06
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
PHA
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHA
|
|
LDY #$0002
|
|
PLA
|
|
STA [$06],Y
|
|
INY
|
|
INY
|
|
PLA
|
|
STA [$06],Y
|
|
LDY #$0006
|
|
LDA #$0000
|
|
STA [$06],Y
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
STA L2BCB
|
|
LDY #$0008
|
|
PLA
|
|
STA [$06],Y
|
|
INY
|
|
INY
|
|
PLA
|
|
STA [$06],Y
|
|
JSL L000E
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_SetPort
|
|
STA L2BCB
|
|
JSL L19F8
|
|
TAX
|
|
BNE L1F4D
|
|
BRL L1F74
|
|
L1F4D LDX L284A+2
|
|
LDA L284A
|
|
PHX
|
|
PHA
|
|
_DisposeHandle
|
|
STA L2BCB
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_CloseWindow
|
|
STA L2BCB
|
|
BRL L204C
|
|
L1F74 LDA L283E
|
|
CLC
|
|
ADC #$000A
|
|
STA L283E
|
|
LDA L2840
|
|
CLC
|
|
ADC #$001E
|
|
STA L2840
|
|
LDA #$001E
|
|
LDX #$0001
|
|
SEC
|
|
SBC L283E
|
|
BEQ L1F9B
|
|
BVS L1F99
|
|
EOR #$8000
|
|
L1F99 BMI L1F9C
|
|
L1F9B DEX
|
|
L1F9C TXA
|
|
PHA
|
|
LDA L283E
|
|
LDX #$0001
|
|
SEC
|
|
SBC #$0050
|
|
BEQ L1FB1
|
|
BVS L1FAF
|
|
EOR #$8000
|
|
L1FAF BMI L1FB2
|
|
L1FB1 DEX
|
|
L1FB2 TXA
|
|
ORA $01,S
|
|
PLX
|
|
TAX
|
|
BNE L1FBC
|
|
BRL L1FC2
|
|
L1FBC LDA #$001E
|
|
STA L283E
|
|
L1FC2 LDA #$001E
|
|
LDX #$0001
|
|
SEC
|
|
SBC L2840
|
|
BEQ L1FD5
|
|
BVS L1FD3
|
|
EOR #$8000
|
|
L1FD3 BMI L1FD6
|
|
L1FD5 DEX
|
|
L1FD6 TXA
|
|
PHA
|
|
LDA L2840
|
|
LDX #$0001
|
|
SEC
|
|
SBC #$00B4
|
|
BEQ L1FEB
|
|
BVS L1FE9
|
|
EOR #$8000
|
|
L1FE9 BMI L1FEC
|
|
L1FEB DEX
|
|
L1FEC TXA
|
|
ORA $01,S
|
|
PLX
|
|
TAX
|
|
BNE L1FF6
|
|
BRL L1FFC
|
|
L1FF6 LDA #$001E
|
|
STA L2840
|
|
L1FFC LDA L2840
|
|
PHA
|
|
LDA L283E
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_MoveWindow
|
|
STA L2BCB
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_ShowWindow
|
|
STA L2BCB
|
|
LDX L284A+2
|
|
LDA L284A
|
|
PHX
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_SetWRefCon
|
|
STA L2BCB
|
|
LDA L2846
|
|
CLC
|
|
ADC #$0001
|
|
STA L2846
|
|
L204C PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
RTL
|
|
|
|
L2054 ASC '52~Tool editor: Memory error. Cannot open window.~^#0'
|
|
|
|
L2089 TSC
|
|
SEC
|
|
SBC #$0016
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
STA L2BCB
|
|
PLA
|
|
STA L2852
|
|
PLA
|
|
STA L2852+2
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_SetPort
|
|
STA L2BCB
|
|
PHA
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_GetWRefCon
|
|
STA L2BCB
|
|
PLA
|
|
STA L284A
|
|
PLA
|
|
STA L284A+2
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
RTL
|
|
|
|
L20DC TSC
|
|
SEC
|
|
SBC #$001A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
JSL L12CA
|
|
LDX L2852+2
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
_CloseWindow
|
|
STA L2BCB
|
|
PHA
|
|
PHA
|
|
LDX L284A+2
|
|
LDA L284A
|
|
STA $00
|
|
STX $02
|
|
LDY #$0002
|
|
LDA [$00],Y
|
|
TAX
|
|
LDA [$00]
|
|
PHX
|
|
PHA
|
|
_FindHandle
|
|
STA L2BCB
|
|
PLA
|
|
STA $16
|
|
PLA
|
|
STA $18
|
|
LDA L2BCB
|
|
BNE L2158
|
|
BRL L2198
|
|
L2158 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L2213
|
|
PEA L2213
|
|
LDA #$003F
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L2195
|
|
BRL L2195
|
|
L2195 BRL L21ED
|
|
L2198 LDX $18
|
|
LDA $16
|
|
PHX
|
|
PHA
|
|
_DisposeHandle
|
|
STA L2BCB
|
|
LDA L2BCB
|
|
BNE L21B0
|
|
BRL L21ED
|
|
L21B0 LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
LDA #$0100
|
|
PHA
|
|
PEA ^L2252
|
|
PEA L2252
|
|
LDA #$003E
|
|
PHA
|
|
JSL L2A9A
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDX #^L299A
|
|
LDA #L299A
|
|
PHX
|
|
PHA
|
|
_AlertWindow
|
|
STA L2BCB
|
|
PLA
|
|
BEQ L21ED
|
|
BRL L21ED
|
|
L21ED LDA L2846
|
|
SEC
|
|
SBC #$0001
|
|
STA L2846
|
|
LDA L283E
|
|
SEC
|
|
SBC #$000A
|
|
STA L283E
|
|
LDA L2840
|
|
SEC
|
|
SBC #$001E
|
|
STA L2840
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$001A
|
|
TCS
|
|
RTL
|
|
|
|
L2213 ASC '52~Tool editor: Memory location error. Consider rebooting.~^#0'
|
|
L2252 ASC '52~Tool editor: Memory disposal error. Consider rebooting.~^#0'
|
|
|
|
L2290 TSC
|
|
SEC
|
|
SBC #$001A
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PHA
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0012
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0010
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
_GetWRefCon
|
|
STA L2BCB
|
|
PLA
|
|
STA $16
|
|
PLA
|
|
STA $18
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$000E
|
|
LDA [$00],Y
|
|
AND #$0001
|
|
BEQ L22D9
|
|
BRL L231C
|
|
L22D9 LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
STA $00
|
|
STX $02
|
|
LDA [$00]
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$16],Y
|
|
TAX
|
|
LDA [$16]
|
|
STA $00
|
|
STX $02
|
|
LDY #$0004
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0012
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0010
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
JSL L12CA
|
|
L231C PLD
|
|
TSC
|
|
CLC
|
|
ADC #$001A
|
|
TCS
|
|
RTL
|
|
|
|
L2324 TSC
|
|
SEC
|
|
SBC #$0018
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0028
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0026
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
_LoWord
|
|
STA L2BCB
|
|
PLA
|
|
STA $16
|
|
LDA $16
|
|
BNE L2359
|
|
BRL L2381
|
|
L2359 LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0048
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0048
|
|
LDA [$00],Y
|
|
ORA #$8000
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
L2381 LDA $16
|
|
CMP #$1000
|
|
BEQ L238B
|
|
BRL L23C9
|
|
L238B LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
JSL L0A4D
|
|
TAX
|
|
BNE L23BC
|
|
BRL L23BF
|
|
L23BC BRL L23C9
|
|
L23BF JSL L19F8
|
|
TAX
|
|
BNE L23C9
|
|
BRL L23C9
|
|
L23C9 PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0018
|
|
TCS
|
|
RTL
|
|
|
|
*--- Tool Table editor: entry point
|
|
|
|
L23D1 TSC
|
|
SEC
|
|
SBC #$0020
|
|
TCS
|
|
PHD
|
|
INC
|
|
TCD
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$004E
|
|
LDA [$00],Y
|
|
STA L2848
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003E
|
|
LDA [$00],Y
|
|
BRL L27E6
|
|
|
|
*--- Command 0
|
|
|
|
L23FE LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
PHA
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHA
|
|
LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L241E
|
|
DEX
|
|
L241E LDY #$0001
|
|
CMP $01,S
|
|
BEQ L2426
|
|
DEY
|
|
L2426 TXA
|
|
CMP $03,S
|
|
BEQ L242E
|
|
LDY #$0000
|
|
L242E PLA
|
|
PLA
|
|
TYA
|
|
BNE L2436
|
|
BRL L24DE
|
|
L2436 JSL L0E80
|
|
PHX
|
|
PHA
|
|
LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0038
|
|
PHA
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
PLA
|
|
STA [$00]
|
|
LDY #$0002
|
|
PLA
|
|
STA [$00],Y
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
PHA
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHA
|
|
LDA #$0000
|
|
LDX #$0000
|
|
TAY
|
|
BPL L2479
|
|
DEX
|
|
L2479 LDY #$0001
|
|
CMP $01,S
|
|
BEQ L2481
|
|
DEY
|
|
L2481 TXA
|
|
CMP $03,S
|
|
BEQ L2489
|
|
LDY #$0000
|
|
L2489 PLA
|
|
PLA
|
|
TYA
|
|
BNE L2491
|
|
BRL L24B2
|
|
L2491 LDA L2846
|
|
BEQ L2499
|
|
BRL L24AC
|
|
L2499 LDX L2842+2
|
|
LDA L2842
|
|
CLC
|
|
ADC #$0036
|
|
STA $00
|
|
STX $02
|
|
LDA #$0000
|
|
STA [$00]
|
|
L24AC BRL L24E2
|
|
BRL L24DE
|
|
L24B2 LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$0048
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0048
|
|
LDA [$00],Y
|
|
ORA #$8000
|
|
PLX
|
|
STX $00
|
|
PLX
|
|
STX $02
|
|
STA [$00]
|
|
JSL L0DEF
|
|
L24DE JSL L1E0C
|
|
L24E2 BRL L280E
|
|
|
|
*--- Command 1
|
|
|
|
L24E5 LDX #^L289A
|
|
LDA #L289A
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
PEA ^L281E
|
|
PEA L281E
|
|
LDA #$0016
|
|
PHA
|
|
JSL L2A9A
|
|
PEA ^L289A
|
|
PEA L289A
|
|
LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$002E
|
|
PHA
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
PLA
|
|
STA [$00]
|
|
LDY #$0002
|
|
PLA
|
|
STA [$00],Y
|
|
BRL L280E
|
|
|
|
*--- Command 2
|
|
|
|
L2525 LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$004A
|
|
LDA [$00],Y
|
|
CMP #$0008
|
|
BEQ L253C
|
|
BRL L2543
|
|
L253C JSL L2290
|
|
BRL L259E
|
|
L2543 JSL L2089
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$004A
|
|
LDA [$00],Y
|
|
BRL L256A
|
|
L2559 JSL L20DC
|
|
BRL L259E
|
|
L2560 JSL L2324
|
|
BRL L259E
|
|
L2567 BRL L259E
|
|
L256A SEC
|
|
SBC #$0016
|
|
CMP #$000C
|
|
BCC L2576
|
|
LDA #$000C
|
|
L2576 ASL
|
|
TAX
|
|
LDAL L2584,X
|
|
BEQ L2580
|
|
PHA
|
|
RTS
|
|
|
|
L2580 JSL L2C09
|
|
|
|
L2584 DA L2559-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2567-1
|
|
DA L2560-1
|
|
DA L2567-1
|
|
|
|
L259E BRL L280E
|
|
|
|
*--- Command 3
|
|
|
|
L25A1 LDA #$0000
|
|
STA L283E
|
|
LDA #$0000
|
|
STA L2840
|
|
LDA #$0000
|
|
STA L2846
|
|
LDX #^L289A
|
|
LDA #L289A
|
|
PHX
|
|
PHA
|
|
LDA #$FF01
|
|
PHA
|
|
PEA ^L2834
|
|
PEA L2834
|
|
LDA #$000A
|
|
PHA
|
|
JSL L2A9A
|
|
PEA ^L289A
|
|
PEA L289A
|
|
LDA L2842+2
|
|
PHA
|
|
LDA L2842
|
|
PHA
|
|
PLA
|
|
CLC
|
|
ADC #$002E
|
|
PHA
|
|
PLA
|
|
STA $00
|
|
PLA
|
|
STA $02
|
|
PLA
|
|
STA [$00]
|
|
LDY #$0002
|
|
PLA
|
|
STA [$00],Y
|
|
LDX L2842+2
|
|
LDA L2842
|
|
CLC
|
|
ADC #$0036
|
|
STA $00
|
|
STX $02
|
|
LDA #$8013
|
|
STA [$00]
|
|
LDA #$0001
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0002
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0003
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0004
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0005
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0302
|
|
STA L2856,X
|
|
LDA #$0006
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0007
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0200
|
|
STA L2856,X
|
|
LDA #$0008
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0009
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0201
|
|
STA L2856,X
|
|
LDA #$000A
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0202
|
|
STA L2856,X
|
|
LDA #$000B
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0200
|
|
STA L2856,X
|
|
LDA #$000C
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0201
|
|
STA L2856,X
|
|
LDA #$000D
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0200
|
|
STA L2856,X
|
|
LDA #$000E
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$000F
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0010
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0011
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0012
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0013
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0014
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0015
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0016
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0300
|
|
STA L2856,X
|
|
LDA #$0017
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$0018
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0000
|
|
STA L2856,X
|
|
LDA #$0019
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0104
|
|
STA L2856,X
|
|
LDA #$001A
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0104
|
|
STA L2856,X
|
|
LDA #$001B
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$001C
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0301
|
|
STA L2856,X
|
|
LDA #$001D
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0101
|
|
STA L2856,X
|
|
LDA #$001E
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0100
|
|
STA L2856,X
|
|
LDA #$001F
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0000
|
|
STA L2856,X
|
|
LDA #$0020
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0103
|
|
STA L2856,X
|
|
LDA #$0021
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0000
|
|
STA L2856,X
|
|
LDA #$0022
|
|
DEC
|
|
ASL
|
|
TAX
|
|
LDA #$0101
|
|
STA L2856,X
|
|
BRL L280E
|
|
|
|
*--- Command 4
|
|
|
|
L279E JSL L2089
|
|
JSL L20DC
|
|
BRL L280E
|
|
|
|
*--- Command 7
|
|
|
|
L27A9 JSL L2089
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$0036
|
|
LDA [$00],Y
|
|
PHA
|
|
LDX L2842+2
|
|
LDA L2842
|
|
STA $00
|
|
STX $02
|
|
LDY #$003A
|
|
LDA [$00],Y
|
|
TAX
|
|
LDY #$0038
|
|
LDA [$00],Y
|
|
PHX
|
|
PHA
|
|
LDX L2852+2 ; GRAFPORT
|
|
LDA L2852
|
|
PHX
|
|
PHA
|
|
JSL L12CA
|
|
BRL L280E
|
|
|
|
*--- Command 5
|
|
*--- Command 6
|
|
*--- Command 7
|
|
|
|
L27E3 BRL L280E
|
|
|
|
L27E6 CMP #$0008
|
|
BCC L27EE
|
|
LDA #$0008
|
|
L27EE ASL
|
|
TAX
|
|
LDAL L27FC,X
|
|
BEQ L27F8
|
|
PHA
|
|
RTS
|
|
|
|
L27F8 JSL L2C09
|
|
|
|
L27FC DA L23FE-1
|
|
DA L24E5-1
|
|
DA L2525-1
|
|
DA L25A1-1
|
|
DA L279E-1
|
|
DA L27E3-1
|
|
DA L27E3-1
|
|
DA L27A9-1
|
|
DA L27E3-1
|
|
|
|
L280E LDA #$0000
|
|
STA $16
|
|
LDX $16
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$0020
|
|
TCS
|
|
TXA
|
|
RTL
|
|
|
|
L281E ASC 'Tool table editor v1.2'
|
|
L2834 ASC 'Tool table'
|
|
L283E DW $0000
|
|
L2840 DW $0000
|
|
L2842 ADRL $00000000
|
|
L2846 DW $0000
|
|
L2848 DW $0000
|
|
L284A ADRL $00000000
|
|
L284E ADRL $00000000
|
|
L2852 ADRL $00000000
|
|
L2856 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L289A DS $100
|
|
L299A DS $100
|
|
|
|
L2A9A TDC
|
|
TAX
|
|
TSC
|
|
SEC
|
|
SBC #$0005
|
|
TCD
|
|
DEC
|
|
TCS
|
|
PHX
|
|
LDA $09
|
|
CMP $0F
|
|
BNE L2AC7
|
|
LDA $13
|
|
PHA
|
|
LDA $11
|
|
PHA
|
|
LDA $0D
|
|
PHA
|
|
LDA $0B
|
|
PHA
|
|
LDA $09
|
|
BPL L2AC0
|
|
EOR #$FFFF
|
|
INC
|
|
INC
|
|
L2AC0 PHA
|
|
JSL L2E77
|
|
BRA L2B3D
|
|
L2AC7 LDA $0D
|
|
PHA
|
|
LDA $0B
|
|
PHA
|
|
LDA $09
|
|
PHA
|
|
JSR L2B4D
|
|
PLA
|
|
STA $09
|
|
PLA
|
|
STA $0B
|
|
PLA
|
|
STA $0D
|
|
LDA $13
|
|
STA $04
|
|
LDA $11
|
|
STA $02
|
|
LDA $0F
|
|
BPL L2AF2
|
|
EOR #$FFFF
|
|
INC
|
|
INC $11
|
|
BNE L2AF2
|
|
INC $13
|
|
L2AF2 CMP $09
|
|
BCC L2AF8
|
|
LDA $09
|
|
L2AF8 TAY
|
|
STA $00
|
|
BEQ L2B21
|
|
LSR
|
|
BCC L2B17
|
|
SEP #$20
|
|
LDA [$0B]
|
|
STA [$11]
|
|
REP #$20
|
|
INC $0B
|
|
BNE L2B0E
|
|
INC $0D
|
|
L2B0E INC $11
|
|
BNE L2B14
|
|
INC $13
|
|
L2B14 DEY
|
|
BEQ L2B21
|
|
L2B17 DEY
|
|
DEY
|
|
L2B19 LDA [$0B],Y
|
|
STA [$11],Y
|
|
DEY
|
|
DEY
|
|
BPL L2B19
|
|
L2B21 LDY $0F
|
|
BPL L2B2F
|
|
SEP #$20
|
|
LDA $00
|
|
STA [$02]
|
|
REP #$20
|
|
BRA L2B3D
|
|
L2B2F LDY $00
|
|
CPY $0F
|
|
BCS L2B3D
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$02],Y
|
|
REP #$20
|
|
L2B3D LDA $07
|
|
STA $13
|
|
LDA $06
|
|
STA $12
|
|
CLC
|
|
TDC
|
|
ADC #$0011
|
|
PLD
|
|
TCS
|
|
RTL
|
|
|
|
L2B4D PHD
|
|
TSC
|
|
TCD
|
|
LDA $05
|
|
BEQ L2B9D
|
|
BPL L2B8A
|
|
INC
|
|
BNE L2B7B
|
|
LDA $09
|
|
AND #$00FF
|
|
BNE L2B64
|
|
STZ $05
|
|
BRA L2B9D
|
|
L2B64 LDA #$0001
|
|
STA $05
|
|
LDA $09
|
|
STAL L2B9F
|
|
LDA #L2B9F
|
|
STA $07
|
|
LDA #^L2B9F
|
|
STA $09
|
|
BRA L2B9D
|
|
L2B7B LDA [$07]
|
|
AND #$00FF
|
|
STA $05
|
|
INC $07
|
|
BNE L2B88
|
|
INC $09
|
|
L2B88 BRA L2B9D
|
|
L2B8A LDX $05
|
|
LDY #$0000
|
|
SEP #$20
|
|
L2B91 LDA [$07],Y
|
|
BEQ L2B99
|
|
INY
|
|
DEX
|
|
BNE L2B91
|
|
L2B99 STY $05
|
|
REP #$20
|
|
L2B9D PLD
|
|
RTS
|
|
|
|
L2B9F DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
ADRL L2BAD
|
|
L2BAD DB $00
|
|
DB $00
|
|
ADRL L2BB3
|
|
L2BB3 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
ADRL L2BBB
|
|
L2BBB DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L2BCB DB $00
|
|
DB $00
|
|
L2BCD DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L2BD5 DB $00
|
|
DB $00
|
|
L2BD7 DB $00
|
|
DB $00
|
|
L2BD9 DB $00
|
|
L2BDA DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
|
|
L2BE7 PHA
|
|
JSL L2E62
|
|
LDAL L2BCD
|
|
PHA
|
|
_DisposeAll
|
|
PLA
|
|
JSL GSOS
|
|
DW $0029 ; Quit
|
|
ADRL L2C03
|
|
|
|
L2C03 ADRL L2C07 ; path name
|
|
L2C07 DW $0000 ; flags
|
|
|
|
L2C09 PEA $0008
|
|
JSL L2C16
|
|
LDA #$FFFF
|
|
JMP L2BE7
|
|
|
|
L2C16 LDA $04,S
|
|
PHA
|
|
JSL L2D39
|
|
JMPL L2C21
|
|
|
|
L2C21 PHK
|
|
PLB
|
|
LDA L2BD9
|
|
BNE L2C2B
|
|
BRL L2D33
|
|
L2C2B BRA L2C45
|
|
L2C2D STR 'Error occurred at line '
|
|
L2C45 PEA ^L2C2D
|
|
PEA L2C2D
|
|
_ErrWriteString
|
|
LDA L2BD9
|
|
PHA
|
|
PEA $0001
|
|
PEA $0000
|
|
PEA $0001
|
|
JSL L31B3
|
|
BRA L2C74
|
|
L2C65 STR ' in procedure '
|
|
L2C74 PEA ^L2C65
|
|
PEA L2C65
|
|
_ErrWriteString
|
|
PEA ^L2BDA
|
|
PEA L2BDA
|
|
PEA $0000
|
|
PEA $0001
|
|
PEA $0001
|
|
JSL L31E3
|
|
JSL L2EC1
|
|
LDA L2BD5
|
|
ORA L2BD7
|
|
BNE L2CA3
|
|
BRL L2D33
|
|
L2CA3 PEA $000D
|
|
_ErrWriteChar
|
|
PEA $000A
|
|
_ErrWriteChar
|
|
BRA L2CC6
|
|
L2CB9 STR ' Line Name'
|
|
L2CC6 PEA ^L2CB9
|
|
PEA L2CB9
|
|
_ErrWriteLine
|
|
BRA L2CE2
|
|
L2CD5 STR ' ---- ----'
|
|
L2CE2 PEA ^L2CD5
|
|
PEA L2CD5
|
|
_ErrWriteLine
|
|
L2CEF LDA L2BD5
|
|
ORA L2BD7
|
|
BEQ L2D33
|
|
LDA L2BD9
|
|
PHA
|
|
PEA $0006
|
|
PEA $0000
|
|
PEA $0001
|
|
JSL L31B3
|
|
BRA L2D0D
|
|
L2D0A STR ' '
|
|
L2D0D PEA ^L2D0A
|
|
PEA L2D0A
|
|
_ErrWriteString
|
|
PEA ^L2BDA
|
|
PEA L2BDA
|
|
PEA $0000
|
|
PEA $0001
|
|
PEA $0001
|
|
JSL L31E3
|
|
JSL L2EC1
|
|
BRA L2CEF
|
|
L2D33 LDA #$FFFF
|
|
BRL L2BE7
|
|
|
|
L2D39 PHD
|
|
PEA ^L2D63
|
|
PEA L2D63
|
|
TSC
|
|
TCD
|
|
LDX $0A
|
|
L2D44 DEX
|
|
BEQ L2D53
|
|
SEC
|
|
LDA [$01]
|
|
AND #$00FF
|
|
ADC $01
|
|
STA $01
|
|
BRA L2D44
|
|
L2D53 _ErrWriteLine
|
|
PLD
|
|
LDA $02,S
|
|
STA $04,S
|
|
PLA
|
|
STA $01,S
|
|
RTL
|
|
|
|
L2D63 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'
|
|
L2E62 PHB
|
|
PHK
|
|
PLB
|
|
STZ L2EF2
|
|
STZ L2EF4
|
|
LDX #$0026
|
|
L2E6E STZ L2EF6,X
|
|
DEX
|
|
DEX
|
|
BPL L2E6E
|
|
PLB
|
|
RTL
|
|
|
|
L2E77 TDC
|
|
TAX
|
|
TSC
|
|
SEC
|
|
SBC #$FFFF
|
|
TCD
|
|
DEC
|
|
TCS
|
|
PHX
|
|
LDA $03
|
|
LSR
|
|
BCC L2E9D
|
|
SEP #$20
|
|
LDA [$05]
|
|
STA [$09]
|
|
REP #$20
|
|
INC $05
|
|
BNE L2E95
|
|
INC $07
|
|
L2E95 INC $09
|
|
BNE L2E9B
|
|
INC $0B
|
|
L2E9B DEC $03
|
|
L2E9D LDY $03
|
|
BEQ L2EB1
|
|
DEY
|
|
DEY
|
|
BEQ L2EAD
|
|
L2EA5 LDA [$05],Y
|
|
STA [$09],Y
|
|
DEY
|
|
DEY
|
|
BNE L2EA5
|
|
L2EAD LDA [$05]
|
|
STA [$09]
|
|
L2EB1 LDA $01
|
|
STA $0B
|
|
LDA $00
|
|
STA $0A
|
|
CLC
|
|
TDC
|
|
ADC #$0009
|
|
PLD
|
|
TCS
|
|
RTL
|
|
|
|
L2EC1 PHB
|
|
PHK
|
|
PLB
|
|
LDA L2BD7
|
|
STA $02
|
|
LDA L2BD5
|
|
STA $00
|
|
LDY #$0010
|
|
L2ED1 LDA [$00],Y
|
|
STA L2BD5,Y
|
|
DEY
|
|
DEY
|
|
BPL L2ED1
|
|
LDA $02
|
|
PHA
|
|
LDA $00
|
|
PHA
|
|
JSL L2F1E
|
|
PLB
|
|
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
|
|
L2EF2 DB $00
|
|
DB $00
|
|
L2EF4 DB $00
|
|
DB $00
|
|
L2EF6 DB $00
|
|
DB $00
|
|
L2EF8 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L2F1E TSC
|
|
PHD
|
|
TCD
|
|
LDY $04
|
|
LDX $06
|
|
SEC
|
|
TYA
|
|
SBC #$0002
|
|
STA $04
|
|
BCS L2F30
|
|
DEC $06
|
|
L2F30 LDA [$04]
|
|
BNE L2F3B
|
|
TYA
|
|
JSL L3039
|
|
BRA L2F40
|
|
L2F3B TYA
|
|
JSL L2F4C
|
|
L2F40 LDA $00
|
|
STA $04
|
|
LDA $02
|
|
STA $06
|
|
PLD
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L2F4C PHA
|
|
PHA
|
|
PHA
|
|
SEC
|
|
SBC #$0004
|
|
BCS L2F56
|
|
DEX
|
|
L2F56 PHX
|
|
PHA
|
|
TSC
|
|
PHD
|
|
TCD
|
|
LDA [$01]
|
|
BPL L2F62
|
|
BRL L3031
|
|
L2F62 LDA [$01]
|
|
ORA #$8000
|
|
STA [$01]
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
STA $09
|
|
TAY
|
|
LDA $01
|
|
LDX $03
|
|
JSL L30AD
|
|
L2F79 LDA $09
|
|
CMP #$1000
|
|
BCC L2F83
|
|
BRL L301F
|
|
L2F83 LDA [$01]
|
|
AND $09
|
|
BEQ L2FDA
|
|
SEC
|
|
LDA $01
|
|
SBC $09
|
|
STA $05
|
|
LDA $03
|
|
SBC #$0000
|
|
STA $07
|
|
LDY #$0002
|
|
LDA [$05],Y
|
|
CMP $09
|
|
BEQ L2FA3
|
|
BRL L3031
|
|
L2FA3 LDA [$05]
|
|
BMI L2FAA
|
|
BRL L3031
|
|
L2FAA LDY $09
|
|
LDX $03
|
|
LDA $01
|
|
JSL L30D8
|
|
LDY $09
|
|
LDX $07
|
|
LDA $05
|
|
JSL L30D8
|
|
LDA $05
|
|
STA $01
|
|
LDA $07
|
|
STA $03
|
|
ASL $09
|
|
LDA $09
|
|
LDY #$0002
|
|
STA [$01],Y
|
|
TAY
|
|
LDA $01
|
|
LDX $03
|
|
JSL L30AD
|
|
BRA L2F79
|
|
L2FDA CLC
|
|
LDA $01
|
|
ADC $09
|
|
STA $05
|
|
LDA $03
|
|
ADC #$0000
|
|
STA $07
|
|
LDY #$0002
|
|
LDA [$05],Y
|
|
CMP $09
|
|
BNE L3031
|
|
LDA [$05]
|
|
BPL L3031
|
|
LDY $09
|
|
LDX $03
|
|
LDA $01
|
|
JSL L30D8
|
|
LDY $09
|
|
LDX $07
|
|
LDA $05
|
|
JSL L30D8
|
|
ASL $09
|
|
LDY #$0002
|
|
LDA $09
|
|
STA [$01],Y
|
|
LDY $09
|
|
LDA $01
|
|
LDX $03
|
|
JSL L30AD
|
|
BRL L2F79
|
|
L301F LDY $09
|
|
LDA $01
|
|
LDX $03
|
|
JSL L30D8
|
|
LDA $01
|
|
LDX $03
|
|
JSL L3039
|
|
L3031 PLD
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
RTL
|
|
|
|
L3039 PHA
|
|
PHA
|
|
SEC
|
|
SBC #$000E
|
|
BCS L3042
|
|
DEX
|
|
L3042 PHX
|
|
PHA
|
|
TSC
|
|
PHD
|
|
TCD
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
ORA [$01]
|
|
BNE L3063
|
|
LDY #$0004
|
|
LDA [$01],Y
|
|
STAL L2EF2
|
|
INY
|
|
INY
|
|
LDA [$01],Y
|
|
STAL L2EF4
|
|
BRA L3078
|
|
L3063 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
|
|
L3078 LDY #$0004
|
|
LDA [$01],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
ORA [$01],Y
|
|
BEQ L3095
|
|
LDA [$01],Y
|
|
STA $07
|
|
STX $05
|
|
LDY #$0002
|
|
LDA [$01]
|
|
STA [$05]
|
|
LDA [$01],Y
|
|
STA [$05],Y
|
|
L3095 LDY #$000A
|
|
LDA [$01],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$01],Y
|
|
PHA
|
|
_DisposeHandle
|
|
PLD
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L30AD PHX
|
|
PHA
|
|
TSC
|
|
PHD
|
|
TCD
|
|
TYA
|
|
JSL L3143
|
|
LDY #$0004
|
|
LDAL L2EF6,X
|
|
STA [$01],Y
|
|
INY
|
|
INY
|
|
LDAL L2EF8,X
|
|
STA [$01],Y
|
|
LDA $01
|
|
STAL L2EF6,X
|
|
LDA $03
|
|
STAL L2EF8,X
|
|
PLD
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L30D8 PHX
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
TSC
|
|
PHD
|
|
TCD
|
|
TYA
|
|
JSL L3143
|
|
LDAL L2EF6,X
|
|
STA $05
|
|
LDAL L2EF8,X
|
|
STA $07
|
|
L30F5 LDA $05
|
|
CMP $09
|
|
BNE L3101
|
|
LDA $07
|
|
CMP $0B
|
|
BEQ L3118
|
|
L3101 LDA $05
|
|
STA $01
|
|
LDA $07
|
|
STA $03
|
|
LDY #$0004
|
|
LDA [$01],Y
|
|
STA $05
|
|
INY
|
|
INY
|
|
LDA [$01],Y
|
|
STA $07
|
|
BRA L30F5
|
|
L3118 LDY #$0004
|
|
LDA $01
|
|
ORA $02
|
|
BNE L3131
|
|
LDA [$05],Y
|
|
STAL L2EF6,X
|
|
INY
|
|
INY
|
|
LDA [$05],Y
|
|
STAL L2EF8,X
|
|
BRA L313B
|
|
L3131 LDA [$05],Y
|
|
STA [$01],Y
|
|
INY
|
|
INY
|
|
LDA [$05],Y
|
|
STA [$01],Y
|
|
L313B PLD
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
RTL
|
|
|
|
L3143 LDX #$0000
|
|
DEC
|
|
LSR
|
|
LSR
|
|
LSR
|
|
BEQ L3153
|
|
L314C INX
|
|
INX
|
|
INX
|
|
INX
|
|
LSR
|
|
BNE L314C
|
|
L3153 RTL
|
|
|
|
L3154 TAY
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$0007
|
|
TCD
|
|
DEC
|
|
TCS
|
|
TYA
|
|
LDY #$0000
|
|
BIT #$8000
|
|
BEQ L316C
|
|
EOR #$FFFF
|
|
INC
|
|
INY
|
|
L316C STA $02
|
|
TXA
|
|
BPL L3176
|
|
DEY
|
|
EOR #$FFFF
|
|
INC
|
|
L3176 STA $04
|
|
STY $06
|
|
LDY #$0010
|
|
LDA #$0000
|
|
L3180 LSR $02
|
|
BCC L3187
|
|
CLC
|
|
ADC $04
|
|
L3187 ROR
|
|
ROR $00
|
|
DEY
|
|
BNE L3180
|
|
TAX
|
|
BNE L31A8
|
|
LDA $00
|
|
BMI L31A8
|
|
LDY $06
|
|
BEQ L319C
|
|
EOR #$FFFF
|
|
INC
|
|
L319C TAY
|
|
TDC
|
|
CLC
|
|
ADC #$0007
|
|
TCS
|
|
PLA
|
|
TCD
|
|
TYA
|
|
CLV
|
|
RTL
|
|
|
|
L31A8 TDC
|
|
CLC
|
|
ADC #$0007
|
|
TCS
|
|
PLA
|
|
TCD
|
|
SEP #$40
|
|
RTL
|
|
|
|
L31B3 TSC
|
|
PHD
|
|
TCD
|
|
PEA ^L323F
|
|
PEA L323F
|
|
LDA $0A
|
|
JSL L3228
|
|
PEA ^L323F
|
|
PEA L323F
|
|
LDA $08
|
|
PHA
|
|
LDA $06
|
|
PHA
|
|
LDA $04
|
|
PHA
|
|
JSL L31E3
|
|
LDA $02
|
|
STA $0A
|
|
LDA $00
|
|
STA $08
|
|
PLD
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L31E3 TSC
|
|
PHD
|
|
TCD
|
|
INC $0A
|
|
BNE L31EC
|
|
INC $0C
|
|
L31EC LDA [$0A]
|
|
AND #$00FF
|
|
SEC
|
|
SBC $08
|
|
BPL L3200
|
|
EOR #$FFFF
|
|
INC
|
|
LDY $04
|
|
JSL L32DE
|
|
L3200 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
|
|
|
|
L3228 PHA
|
|
PEA ^L3269
|
|
PEA L3269
|
|
PEA $0028
|
|
PEA $0001
|
|
_Int2Dec
|
|
JMP L3291
|
|
|
|
L323F DB $28
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L3269 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L3291 PHD
|
|
TSC
|
|
TCD
|
|
SEP #$20
|
|
LDX #$0000
|
|
LDA #$20
|
|
L329B CMPL L3269,X
|
|
BNE L32A4
|
|
INX
|
|
BRA L329B
|
|
L32A4 REP #$20
|
|
TXA
|
|
SEC
|
|
SBC #$0028
|
|
EOR #$FFFF
|
|
INC
|
|
SEP #$20
|
|
CMP [$06]
|
|
BEQ L32B7
|
|
BCS L32CE
|
|
L32B7 LDY #$0001
|
|
STA [$06],Y
|
|
L32BC LDAL L3269,X
|
|
INY
|
|
STA [$06],Y
|
|
INX
|
|
CPX #$0028
|
|
BCC L32BC
|
|
REP #$20
|
|
CLV
|
|
BRA L32D2
|
|
L32CE REP #$20
|
|
SEP #$40
|
|
L32D2 LDA $02,S
|
|
STA $06,S
|
|
LDA $04,S
|
|
STA $08,S
|
|
PLD
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L32DE PHA
|
|
TYA
|
|
XBA
|
|
CLC
|
|
ADC #$180C
|
|
PHA
|
|
PHD
|
|
TSC
|
|
TCD
|
|
L32E9 PEA $0020
|
|
LDX $03
|
|
JSL $E10000
|
|
DEC $05
|
|
BNE L32E9
|
|
PLD
|
|
PLA
|
|
PLA
|
|
RTL
|