* * 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