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