diff --git a/.DS_Store b/.DS_Store new file mode 100644 index 0000000..44e01f7 Binary files /dev/null and b/.DS_Store differ diff --git a/genesys/.DS_Store b/genesys/.DS_Store new file mode 100644 index 0000000..96e93f2 Binary files /dev/null and b/genesys/.DS_Store differ diff --git a/genesys/GEMAIN.E.S b/genesys/GEMAIN.E.S new file mode 100644 index 0000000..2733835 --- /dev/null +++ b/genesys/GEMAIN.E.S @@ -0,0 +1,7 @@ + +* TFBD generated equates +* (c) PHC 1992,93 + + +BUTN0 EQU $C061 +GSOS EQU $E100A8 diff --git a/genesys/GEMAIN.S b/genesys/GEMAIN.S new file mode 100644 index 0000000..f2a8546 --- /dev/null +++ b/genesys/GEMAIN.S @@ -0,0 +1,27392 @@ +* +* Genesys v1.2.4 +* Main program +* + + 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.2.5' +L020376 STR 'v1.2.5' + 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 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + _RealFreeMem + LDX #$2002 + JSL L027D42 + PEA $0000 + PEA $0400 + _LongDivide + LDX #$2003 + JSL L027D42 + PEA ^L02105D + PEA L02105D + PEA $0004 + 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 + _MoveTo + _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 + _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 + +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 +* STA L02DD98 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $B302 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $15 + PLA + STA $17 + PEA $B307 + JSL L02CA27 + PHA + JSL L027CEB + LDX $17 + LDA $15 + PHX + PHA + _HLock +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $15 + PLA + STA $17 + PEA $B309 + JSL L02CA27 + PHA + JSL L027CEB + LDX $17 + LDA $15 + PHX + PHA + _HLock +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +L0229B5 TSC + SEC + SBC #$0026 + TCS + PHD + TCD + _WaitCursor +* STA L02DD98 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $B402 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $23 + PLA + STA $25 + PEA $B407 + JSL L02CA27 + PHA + JSL L027CEB + LDX $25 + LDA $23 + PHX + PHA + _HLock +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $23 + PLA + STA $25 + PEA $B409 + JSL L02CA27 + PHA + JSL L027CEB + LDX $25 + LDA $23 + PHX + PHA + _HLock +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PHA + PEA $0004 + PEA ^L0245B2 + PEA L0245B2 + PEA $0000 + PEA $0011 + _AlertWindow +* STA L02DD98 + PLA + STA $13 + _WaitCursor +* STA L02DD98 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $B410 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $0B + PLA + STA $0D + LDX L0240F4 + LDA L0240F2 + PHX + PHA + _SetPort +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $0B + PLA + STA $0D + LDX L0240F4 + LDA L0240F2 + PHX + PHA + _SetPort +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + LDA L0240C6 + STA $0B + LDX L0240DE+2 + LDA L0240DE + STX $13 + STA $11 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $B702 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $07 + PEA $B703 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + PEI $18 + _CountResources +* STA L02DD98 + PLA + STA $0D + PLA + STA $0F + PEA $B704 + JSL L02CA27 + PHA + JSL L027CEB + JSL L0202F5 + _InitCursor +* STA L02DD98 + 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 +* STA L02DD98 + JSL L02CA27 + TAX + BEQ L023BDE + _SysBeep +* STA L02DD98 +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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $0D + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + PHA + PHA + PEI $30 + _CountResources +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PEA $BA12 + JSL L02CA27 + PHA + JSL L027CEB + PEA $FFFF + PEA $8014 + LDX $13 + LDA $11 + PHX + PHA + _ReleaseResource +* STA L02DD98 + PEA $8014 + LDX $13 + LDA $11 + PHX + PHA + _RemoveResource +* STA L02DD98 + LDX $27 + LDA $25 + PHX + PHA + PEA $0000 + PEA $8014 + LDX $13 + LDA $11 + PHX + PHA + _AddResource +* STA L02DD98 + PEA $BA20 + JSL L02CA27 + PHA + JSL L027CEB + PEA $8014 + LDX $13 + LDA $11 + PHX + PHA + _WriteResource +* STA L02DD98 + PEA $BA21 + JSL L02CA27 + PHA + JSL L027CEB + PEA $FFFF + PEA $8014 + LDX $13 + LDA $11 + PHX + PHA + _ReleaseResource +* STA L02DD98 + 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 +* STA L02DD98 + PHA + PEI $0B + _SetResourceFileDepth +* STA L02DD98 + 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' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + 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 +* STA L02DD98 + PLA + STA $0F + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $25 + PLA + STA $27 + JSL L02CA27 + STA $11 + PEI $0F + _SetCurResourceFile +* STA L02DD98 + PHA + PEI $0D + _SetResourceFileDepth +* STA L02DD98 + 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 +* STA L02DD98 +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 'VERSIONS'00 +strVERSIONS2 asc 'Versions'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 +* STA L02DD98 + PLA + BNE L028A19 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetWRefCon +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9002 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + PEA $9003 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEI $7C + LDX $80 + LDA $7E + PHX + PHA + _GetResourceAttr +* STA L02DD98 + PLA + STA $09 + PEA $9004 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + PEI $7C + _CountResources +* STA L02DD98 + PLA + STA $1F + PLA + STA $21 + JSL L0202F5 + PHA + PHA + _GetPort +* STA L02DD98 + PLA + STA $2B + PLA + STA $2D + PEI $7C + PEA ^L02AC66 + PEA L02AC66 + PEA $0004 + _Int2Hex +* STA L02DD98 + LDX $80 + LDA $7E + PHX + PHA + PEA ^L02ABF9 + PEA L02ABF9 + PEA $0008 + _Long2Hex +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $27 + PLA + STA $29 + PEA $9006 + JSL L02CA27 + PHA + JSL L027CEB + LDX $29 + LDA $27 + PHX + PHA + _SetPort +* STA L02DD98 + PHA + PHA + LDX $29 + LDA $27 + PHX + PHA + PEA $0000 + PEA $0004 + _GetCtlHandleFromID +* STA L02DD98 + 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 +* STA L02DD98 + PHA + PHA + LDX $29 + LDA $27 + PHX + PHA + PEA $0000 + PEA $0003 + _GetCtlHandleFromID +* STA L02DD98 + 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 +* STA L02DD98 + PEA $0000 + PEI $11 + LDX $41 + LDA $3F + PHX + PHA + _LESetSelect +* STA L02DD98 + 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 +* STA L02DD98 + _SetCtlValue +* STA L02DD98 + 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 +* STA L02DD98 + _SetCtlValue +* STA L02DD98 + 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 +* STA L02DD98 + _SetCtlValue +* STA L02DD98 + BRA L028CFA +L028CD4 LDA #$0001 + PHA + PHA + PHA + LDX $29 + LDA $27 + PHX + PHA + PEA $0000 + PEA $0008 + _GetCtlHandleFromID +* STA L02DD98 + _SetCtlValue +* STA L02DD98 +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 +* STA L02DD98 + _SetCtlValue +* STA L02DD98 +L028D42 INC $07 + BRA L028CFF +L028D46 PHA + PEA $FFFF + PEA $0000 + TDC + CLC + ADC #$004B + PHA + _TaskMaster +* STA L02DD98 + PLA + STA $0D + CMP #$0008 + BNE L028D8B + PEA $0088 + PEA $0012 + _MoveTo +* STA L02DD98 + PEA ^L02AC66 + PEA L02AC66 + PEA $0004 + _DrawText +* STA L02DD98 + 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 +* STA L02DD98 + PEA $0000 + PEI $57 + PEI $55 + PEA $0008 + PEA $0000 + TDC + CLC + ADC #$0033 + PHA + LDA $5B + LDX $5D + PHX + PHA + _DragWindow +* STA L02DD98 + 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 +* STA L02DD98 + _GetCtlValue +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $3B + PLA + STA $3D + PHA + LDX $41 + LDA $3F + PHX + PHA + _LEGetTextLen +* STA L02DD98 + PLA + STA $15 + PHA + PHA + LDY #$0002 + LDA [$3B],Y + TAX + LDA [$3B] + PHX + PHA + PEI $15 + _Hex2Long +* STA L02DD98 + 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 +L028F0B TYA + LDX #$0000 + TAY + BPL L028F13 + DEX +L028F13 STX $01 + ORA $01 + BEQ L028F1E + LDA #$0001 + 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 +L028F38 CMP #$0000 + BEQ L028F42 + LDA #$0001 + BRA L028F58 +L028F42 JSL L02CA27 + LDX #$0000 + CMP #$0000 + BEQ L028F4F + INX +L028F4F TXA + CMP #$0000 + BEQ L028F58 + LDA #$0001 +L028F58 TAX + BEQ L028F82 + PHA + PEA $0004 + PEA ^L0245B2 + PEA L0245B2 + PEA $0000 + PEA $0015 + _AlertWindow +* STA L02DD98 + PLA + STA $1B + LDA #$0000 + STA $19 + STA $1D + BRL L0290A3 +L028F82 LDX $80 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $1B + LDA $1B + BNE L0290D1 + BRL L0292A3 +L0290D1 LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $9032 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + PEA $9033 + JSL L02CA27 + PHA + JSL L027CEB + PEA $0000 + PEI $7C + LDX $80 + LDA $7E + PHX + PHA + _SetResourceAttr +* STA L02DD98 + PEA $9034 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + PEI $7C + LDX $80 + LDA $7E + PHX + PHA + _LoadResource +* STA L02DD98 + PLA + STA $43 + PLA + STA $45 + PEA $9035 + JSL L02CA27 + PHA + JSL L027CEB + PEI $7C + LDX $80 + LDA $7E + PHX + PHA + _DetachResource +* STA L02DD98 + LDX $45 + LDA $43 + PHX + PHA + _HLock +* STA L02DD98 + LDX $45 + LDA $43 + PHX + PHA + PEA $0000 + PEI $7C + LDX $25 + LDA $23 + PHX + PHA + _AddResource +* STA L02DD98 + PEA $9038 + JSL L02CA27 + PHA + JSL L027CEB + PEI $7C + LDX $25 + LDA $23 + PHX + PHA + _WriteResource +* STA L02DD98 + PEA $9039 + JSL L02CA27 + PHA + JSL L027CEB + PEI $7C + LDX $80 + LDA $7E + PHX + PHA + _RemoveResource +* STA L02DD98 + 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 +* STA L02DD98 + PEA ^L02ABF9 + PEA L02ABF9 + PEA $0008 + LDX $41 + LDA $3F + PHX + PHA + _LESetText +* STA L02DD98 + 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 +* STA L02DD98 +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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $3B + PLA + STA $3D + PHA + LDX $41 + LDA $3F + PHX + PHA + _LEGetTextLen +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9042 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + PEA $9043 + JSL L02CA27 + PHA + JSL L027CEB + PEI $09 + PEI $7C + LDX $80 + LDA $7E + PHX + PHA + _SetResourceAttr +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9050 + JSL L02CA27 + PHA + JSL L027CEB + LDX $2D + LDA $2B + PHX + PHA + _SetPort +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $07 + BRA L02988B +L02986E PHA + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000A + _AlertWindow +* STA L02DD98 + PLA + STA $07 +L02988B LDA $07 + BEQ L0298F4 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $9102 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $09 + PEA $9103 + JSL L02CA27 + PHA + JSL L027CEB + PEI $12 + LDX $16 + LDA $14 + PHX + PHA + _RemoveResource +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9202 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $09 + PEA $9203 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEI $0E + LDX $12 + LDA $10 + PHX + PHA + _GetResourceAttr +* STA L02DD98 + 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 +* STA L02DD98 + PLA + BNE L02999E + LDA #$FFFF + STA $05 + BRA L029A05 +L02999E LDA $07 + AND #$FF7F + STA $07 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $9212 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $09 + PEA $9213 + JSL L02CA27 + PHA + JSL L027CEB + PEI $07 + PEI $0E + LDX $12 + LDA $10 + PHX + PHA + _SetResourceAttr +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $17 + PLA + STA $19 + LDX $1D + LDA $1B + PHX + PHA + _SetPort +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0007 + PHA + _GetPortRect +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0007 + PHA + _LocalToGlobal +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$000B + PHA + _LocalToGlobal +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + AND #$0010 + BEQ L029C44 + PEA $0000 + TDC + CLC + ADC #$000F + PHA + LDX $1D + LDA $1B + PHX + PHA + _GetRectInfo +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9410 + JSL L02CA27 + PHA + JSL L027CEB + LDX $19 + LDA $17 + PHX + PHA + _SetPort +* STA L02DD98 +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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $3C + PLA + STA $3E + PEA $9E04 + JSL L02CA27 + PHA + JSL L027CEB + LDX $3E + LDA $3C + PHX + PHA + _SetPort +* STA L02DD98 + PHA + PHA + LDX $3E + LDA $3C + PHX + PHA + PEA $0000 + PEA $0003 + _GetCtlHandleFromID +* STA L02DD98 + 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 +* STA L02DD98 + PEA $0000 + PEA $0004 + LDX $32 + LDA $30 + PHX + PHA + _LESetSelect +* STA L02DD98 +L02A03F PHA + PEA $FFFF + PEA $0000 + TDC + CLC + ADC #$0050 + PHA + _TaskMaster +* STA L02DD98 + PLA + STA $1C + CMP #$0014 + BNE L02A0A3 + PEA $0000 + TDC + CLC + ADC #$0024 + PHA + PEA $0000 + PEA $0000 + PEA $027F + PEA $00C7 + _SetRect +* STA L02DD98 + PEA $0000 + PEI $5C + PEI $5A + PEA $0008 + PEA $0000 + TDC + CLC + ADC #$0024 + PHA + LDA $60 + LDX $62 + PHX + PHA + _DragWindow +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PLA + PHA + _Hex2Int +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $1A + LDA L0240DA + PHA + PEA $0000 + TDC + CLC + ADC #$0012 + PHA + PEA $0004 + _Int2Hex +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0012 + PHA + PEA $0004 + LDX $32 + LDA $30 + PHX + PHA + _LESetText +* STA L02DD98 + PEA $0000 + PEA $0004 + LDX $32 + LDA $30 + PHX + PHA + _LESetSelect +* STA L02DD98 + 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 +* STA L02DD98 + LDA #$0008 + STA $1C + LDA #$0000 + STA $18 + BRL L02A44F +L02A295 _WaitCursor +* STA L02DD98 + LDA $1E + STA L0240DA + PHA + PHA + LDA $A2 + LDX $A4 + PHX + PHA + LDA L024112 + PHA + PEA $C018 + PEA $0000 + PEA $0000 + _NewHandle +* STA L02DD98 + PLA + STA $34 + PLA + STA $36 + JSL L02CA27 + STA $1A + LDA $1A + BEQ L02A2D6 + BRL L02A44F +L02A2D6 LDX $36 + LDA $34 + PHX + PHA + _HLock +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9E40 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $16 + PEA $9E41 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + PEA $FFFF + PEI $1E + _UniqueResourceID +* STA L02DD98 + 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 +* STA L02DD98 + PEA $9E43 + JSL L02CA27 + PHA + JSL L027CEB + PEI $1E + LDX $22 + LDA $20 + PHX + PHA + _WriteResource +* STA L02DD98 + PEA $9E44 + JSL L02CA27 + PHA + JSL L027CEB + PEA $FFFF + PEI $1E + LDX $22 + LDA $20 + PHX + PHA + _ReleaseResource +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + PEA $006A + PEA $0015 + _MoveTo +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0007 + PHA + _DrawCString +* STA L02DD98 + PEA $006A + PEA $001E + _MoveTo +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$000B + PHA + _DrawCString +* STA L02DD98 + PEA $006A + PEA $0027 + _MoveTo +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0044 + PHA + _DrawCString +* STA L02DD98 +L02A51E LDA $18 + BEQ L02A525 + LDA #$0001 +L02A525 EOR #$0001 + BEQ L02A52D + BRL L02A03F +L02A52D LDX $3E + LDA $3C + PHX + PHA + _CloseWindow +* STA L02DD98 + PEA $9E50 + JSL L02CA27 + PHA + JSL L027CEB + LDX $42 + LDA $40 + PHX + PHA + _SetPort +* STA L02DD98 + _InitCursor +* STA L02DD98 + 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 +* STA L02DD98 + LDA L0240D6 + PHA + _SetCurResourceFile +* STA L02DD98 + PEA $9F02 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $07 + PEA $9F03 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEI $82 + LDX $86 + LDA $84 + PHX + PHA + _GetResourceAttr +* STA L02DD98 + PLA + STA $0B + PEA $9F04 + JSL L02CA27 + PHA + JSL L027CEB + PEA $0000 + PEI $82 + LDX $86 + LDA $84 + PHX + PHA + _SetResourceAttr +* STA L02DD98 + PEA $9F05 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + PEI $82 + LDX $86 + LDA $84 + PHX + PHA + _LoadResource +* STA L02DD98 + PLA + STA $0D + PLA + STA $0F + JSL L02CA27 + STA $09 + PEI $0B + PEI $82 + LDX $86 + LDA $84 + PHX + PHA + _SetResourceAttr +* STA L02DD98 + PEA $9F07 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PEI $07 + _SetResourceFileDepth +* STA L02DD98 + 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 +* STA L02DD98 + LDX $0F + LDA $0D + PHX + PHA + _HLock +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + _InitCursor +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA $0D + PLA + STA $0F + LDX $4E + LDA $4C + PHX + PHA + _SetPort +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0017 + PHA + _GetPenState +* STA L02DD98 + PEA $0002 + PEA $0001 + _SetPenSize +* STA L02DD98 + PEA $8002 + _SetPenMode +* STA L02DD98 + 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 +* STA L02DD98 + _EmptyRgn +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + 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 +* STA L02DD98 + LDX $0F + LDA $0D + PHX + PHA + _SetPort +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA L02B368 + PLA + STA L02B36A + _WaitCursor +* STA L02DD98 + 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 +* STA L02DD98 + PLA + STA L02B372 + PLA + STA L02B374 + LDX L02B374 + LDA L02B372 + PHX + PHA + _SetPort +* STA L02DD98 + PEA $0013 + PEA $000F + _MoveTo +* STA L02DD98 + PEA ^L02B210 + PEA L02B210 + _DrawCString +* STA L02DD98 + BRL L02B1F8 +L02ADA3 PEA ^L02B3C9 + PEA L02B3C9 + _EraseRect +* STA L02DD98 + PEA $0005 + PEA $0002 + _SetPenSize +* STA L02DD98 + PEA $0013 + PEA $000F + _MoveTo +* STA L02DD98 + LDA L02B36C + BNE L02ADEA + PEA ^L02B222 + PEA L02B222 + _DrawCString +* STA L02DD98 + BRA L02ADFA +L02ADEA PEA ^L02B237 + PEA L02B237 + _DrawCString +* STA L02DD98 +L02ADFA PHA + PHA + LDX L02B374 + LDA L02B372 + PHX + PHA + PEA $0000 + PEA ^L02B421 + PEA L02B421 + _NewControl2 +* STA L02DD98 + PLA + STA L02B364 + PLA + STA L02B366 + LDX L02B366 + LDA L02B364 + PHX + PHA + _ShowControl +* STA L02DD98 + LDX L02B374 + LDA L02B372 + PHX + PHA + _DrawControls +* STA L02DD98 + PEA $0002 + PEA $0001 + _SetPenSize +* STA L02DD98 + PEA ^L02B3C1 + PEA L02B3C1 + _FrameRect +* STA L02DD98 + PEA ^L02B37E + PEA L02B37E + _FrameRect +* STA L02DD98 + _PenNormal +* STA L02DD98 + PEA $0013 + PEA $0037 + _MoveTo +* STA L02DD98 + PEA ^L02B24D + PEA L02B24D + _DrawCString +* STA L02DD98 + BRL L02B1F8 +L02AEA0 PEA $0013 + PEA $001E + _MoveTo +* STA L02DD98 + PEA $0000 + PEI $16 + JSL L02597E + STX $09 + STA $07 + LDX $09 + LDA $07 + PHX + PHA + _DrawCString +* STA L02DD98 + 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 +* STA L02DD98 + PEA ^L02B386 + PEA L02B386 + _EraseRect +* STA L02DD98 + 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 +* STA L02DD98 + LDX L02B36A + LDA L02B368 + PHX + PHA + _SetPort +* STA L02DD98 + _InitCursor +* STA L02DD98 + 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 +* STA L02DD98 + PLA + BEQ L02B054 + PEA $0000 + TDC + CLC + ADC #$000D + PHA + _GetMouse +* STA L02DD98 + PHA + PEA $0000 + TDC + CLC + ADC #$000D + PHA + PEA ^L02B376 + PEA L02B376 + _PtInRect +* STA L02DD98 + PLA + BEQ L02B030 + LDA $0B + BNE L02B02E + PEA $0001 + LDX L02B366 + LDA L02B364 + PHX + PHA + _HiliteControl +* STA L02DD98 + LDA #$FFFF + STA $0B +L02B02E BRA L02B051 +L02B030 LDA $0B + CMP #$FFFF + BNE L02B051 + PEA $0000 + LDX L02B366 + LDA L02B364 + PHX + PHA + _HiliteControl +* STA L02DD98 + LDA #$0000 + STA $0B +L02B051 BRL L02AFCF +L02B054 LDA $0B + CMP #$FFFF + BNE L02B082 + PEA $0000 + LDX L02B366 + LDA L02B364 + PHX + PHA + _HiliteControl +* STA L02DD98 + _InitCursor +* STA L02DD98 + 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 +* STA L02DD98 + PEA ^L02B258 + PEA L02B258 + _DrawCString +* STA L02DD98 + BRL L02B1F8 +L02B16A PEA ^L02B3C1 + PEA L02B3C1 + _EraseRect +* STA L02DD98 + PEA $0013 + PEA $001E + _MoveTo +* STA L02DD98 + PEA ^L02B28B + PEA L02B28B + _DrawCString +* STA L02DD98 + PEA $0013 + PEA $0027 + _MoveTo +* STA L02DD98 + PEA ^L02B2BE + PEA L02B2BE + _DrawCString +* STA L02DD98 + 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 +* STA L02DD98 + PEA $0000 + TDC + CLC + ADC #$0005 + PHA + PEA $4444 + PEA $4444 + _SpecialRect +* STA L02DD98 + 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 +* STA L02DD98 + _DisposeHandle +* STA L02DD98 + 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 + diff --git a/genesys/GEMAIN.X.S b/genesys/GEMAIN.X.S new file mode 100644 index 0000000..78abae3 --- /dev/null +++ b/genesys/GEMAIN.X.S @@ -0,0 +1,12 @@ + +* TFBD generated externals +* (c) PHC 1992,93 + + + EXT L042C42 + EXT L030000 + EXT L0300C8 + EXT L0429E3 + EXT L040000 + EXT L030067 + EXT L030108 diff --git a/genesys/GESEG3.S b/genesys/GESEG3.S new file mode 100644 index 0000000..1965f07 --- /dev/null +++ b/genesys/GESEG3.S @@ -0,0 +1,209 @@ +* +* Genesys v1.2.4 +* Main program: segment 3 +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Line.Macs + use 4/Mem.Macs + use 4/Menu.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Text.Macs + use 4/Util.Macs + use 4/Window.Macs + + use GESEG3.X.S + +*---------------------------- + +L030000 ENT + CMP #$0000 + BEQ L030032 + PHB + PHX + PHY + PHK + PLB + STA L030033 + _InitCursor + PEA $0000 + PEA $0001 + PEA ^L030035 + PEA L030035 + LDA L030033 + PHA + _ErrorWindow + PLA + PLY + PLX + LDA L030033 + PLB +L030032 RTL + +L030033 DW $0000 +L030035 STR 'GENESYS internal error' + PEA $0000 + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0002 + _AlertWindow + PLA + RTL + +L030067 ENT + PHB + PHD + PHK + PLB + PHA + PHA + TSC + TCD + LDA [$0B] + STA $01 + LDY #$0002 + LDA [$0B],Y + STA $03 + LDY #$000A + LDA [$01],Y + STA $0B + INY + INY + LDA [$01],Y + STA $0D + LDA $0B + STA $01 + LDA $0D + STA $03 + LDA [$0F] + STA $0B + LDY #$0002 + LDA [$0F],Y + STA $0D + LDY #$000A + LDA [$0B],Y + STA $0F + INY + INY + LDA [$0B],Y + STA $11 + LDA $05 + STA $0D + LDA $07 + STA $0B + LDA $0F + STA $05 + LDA $11 + STA $07 + LDA $09 + STA $11 + LDA $0B + STA $0F + JSL L02BD95 + PLY + PLY + PLD + PLB + RTL + +L0300C8 ENT + PHD + PHB + PHK + PLB + TSC + TCD + LDA $0B + STA [$07] + INC $07 + INC $07 + LDA $0D + STA [$07] + INC $07 + INC $07 + LDA $07 + STA $0B + LDA $09 + STA $0D + LDA [$0F] + AND #$00FF + TAY +L0300EC LDA [$0F],Y + STA [$0B],Y + INC $07 + BNE L0300F6 + INC $09 +L0300F6 DEY + BPL L0300EC + PLA + STA $0B,S + PLA + STA $0B,S + PLA + STA $0B,S + PLA + PLX + PLY + PLB + PLD + RTL + +L030108 ENT + PHB + PHD + PHK + PLB + TSC + TCD + LDY #$0002 + LDA [$07],Y + CLC + ADC #$0002 + TAY +L030118 LDA [$07],Y + PHA + DEY + DEY + CPY #$0002 + BNE L030118 + LDA [$07] + ASL + ASL + TAX + PHK + PEA L030137 + SEP #$20 + LDA L030143+2,X + PHA + REP #$20 + LDA L030143,X + PHA +L030137 RTL + + TAY + PLD + PLA + STA $03,S + PLA + STA $03,S + TYA + PLB + RTL + +L030143 ADRL $00000000 + ADRL L0276F0 + ADRL L02A8F0 + ADRL L029CFD + ADRL L027DF7 + DW $0000 diff --git a/genesys/GESEG3.X.S b/genesys/GESEG3.X.S new file mode 100644 index 0000000..c786b47 --- /dev/null +++ b/genesys/GESEG3.X.S @@ -0,0 +1,10 @@ + +* TFBD generated externals +* (c) PHC 1992,93 + + + EXT L02BD95 + EXT L0276F0 + EXT L02A8F0 + EXT L029CFD + EXT L027DF7 diff --git a/genesys/GESEG4.S b/genesys/GESEG4.S new file mode 100644 index 0000000..d076678 --- /dev/null +++ b/genesys/GESEG4.S @@ -0,0 +1,5370 @@ +* +* Genesys v1.2.4 +* Main program: segment 4 +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Line.Macs + use 4/Mem.Macs + use 4/Menu.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Std.Macs + use 4/Text.Macs + use 4/TextEdit.Macs + use 4/Util.Macs + use 4/Window.Macs + + use GESEG4.X.S + +*---------------------------- + +L040000 ENT + TSC + SEC + SBC #$0024 + TCS + PHD + TCD + LDX $2A + LDA $28 + STX L027EA9 + STA L027EA7 + LDA #$0000 + SEP #$20 + STA L027EB0 + REP #$20 + LDA #$007F + SEP #$20 + STA L027EAF + REP #$20 + STZ L027ECF + LDA #$0022 + STA L027ECD + STZ L027EB7 + LDA #$002E + STA L027EB5 + LDA #$0000 + STA L027ECB + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$0004 + LDA [$01],Y + PHA + _SetCurResourceFile +* STA L02DD98 + PHA + PEA $0001 + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + JSL L040D38 + STA $07 + LDA $07 + BEQ L0400C7 + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE + PHA + PEI $0B + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + LDA $07 + CMP #$FFFF + BEQ L0400BF + JSL L0409D2 + LDA $07 + STA $05 + BRL L0406A7 +L0400BF LDA #$0000 + STA $05 + BRL L0406A7 +L0400C7 LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX L027EBD + STA L027EBB + LDX L027EBD + LDA L027EBB + STX L0280F7 + STA L0280F5 + STX L027EEF + STA L027EED + STX L0280AF + STA L0280AD + PEA $2002 + PEA ^L0280AB + PEA L0280AB + JSL L02C243 + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$000A + LDA [$01],Y + PHA + LDY #$0008 + LDA [$01],Y + PHA + PEA $0000 + PEA $007F + JSL L02D6DE + BEQ L040189 + LDA #$0004 + STA L027EF3 + PEA ^L027EF5 + PEA L027EF5 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + STA [$01],Y + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$000A + LDA [$01],Y + PHA + LDY #$0008 + LDA [$01],Y + PHA + LDA #$00FF + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L040166 + DEY +L040166 TXA + CMP $03,S + BEQ L04016E + LDY #$0000 +L04016E PLA + PLA + TYA + BEQ L040187 + LDA #$0080 + SEP #$20 + STA L027EB0 + REP #$20 + LDA #$00FF + SEP #$20 + STA L027EAF + REP #$20 +L040187 BRA L0401BB +L040189 LDA #$00B0 + STA L027EF3 + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$000A + LDA [$01],Y + TAX + LDY #$0008 + LDA [$01],Y + PHX + PHA + PEA ^L027EF5 + PEA L027EF5 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y +L0401BB PEA $2001 + PEA ^L027EEB + PEA L027EEB + JSL L02C243 + JSL L02CA27 + STA $07 + LDA $07 + BEQ L040217 + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE + JSL L0409D2 + PHA + PEI $0B + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + LDA $07 + STA $05 + BRL L0406A7 +L040217 LDA #$0002 + STA L0280F1 + PEA $2010 + PEA ^L0280F1 + PEA L0280F1 + JSL L02C243 + JSL L02CA27 + STA $07 + LDA $07 + BEQ L040279 + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE + JSL L0409D2 + PHA + PEI $0B + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + LDA $07 + STA $05 + BRL L0406A7 +L040279 PEA ^L027F61 + PEA L027F61 + LDA L0280F3 + PLX + STX $01 + PLX + STX $03 + STA [$01] + PHA + _CountTypes +* STA L02DD98 + PLA + STA $0D + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE + PEA $0001 + JSL L0406BA + LDA #$0001 + STA $07 + LDA #$0000 + STA L027EB9 +L0402D4 LDA $0D + LDX #$0001 + SEC + SBC $07 + BVS L0402E1 + EOR #$8000 +L0402E1 BMI L0402E4 + DEX +L0402E4 TXA + CMP #$0000 + BEQ L040307 + LDA L027EB9 + LDX #$0001 + SEC + SBC #$FFFE + BEQ L0402FD + BVS L0402FB + EOR #$8000 +L0402FB BMI L0402FE +L0402FD DEX +L0402FE TXA + CMP #$0000 + BEQ L040307 + LDA #$0001 +L040307 TAX + BNE L04030D + BRL L04064F +L04030D PHA + PEI $07 + _GetIndType +* STA L02DD98 + PLA + STA $17 + CMP #$8014 + BNE L040325 + BRL L04064A +L040325 LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0001 + PEA $0000 + PEI $07 + PEA $0000 + PEI $0D + PEA $0000 + PEA $0000 + PEI $17 + JSL L02ACFE + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$000E + LDA [$01],Y + AND #$8000 + LDX #$0000 + CMP #$0000 + BEQ L040367 + INX +L040367 TXA + BNE L04036E + LDA $17 + BRA L040371 +L04036E LDA #$8014 +L040371 PHA + JSL L042616 + STX $1F + STA $1D + PHA + PHA + PEI $17 + _CountResources +* STA L02DD98 + PLA + PLX + STA $0F + LDA #$0001 + STA $09 +L040391 LDA $0F + LDX #$0001 + SEC + SBC $09 + BVS L04039E + EOR #$8000 +L04039E BMI L0403A1 + DEX +L0403A1 TXA + CMP #$0000 + BEQ L0403C4 + LDA L027EB9 + LDX #$0001 + SEC + SBC #$FFFF + BEQ L0403BA + BVS L0403B8 + EOR #$8000 +L0403B8 BMI L0403BB +L0403BA DEX +L0403BB TXA + CMP #$0000 + BEQ L0403C4 + LDA #$0001 +L0403C4 TAX + BNE L0403CA + BRL L04064A +L0403CA PHA + PHA + PEI $17 + LDA $09 + LDX #$0000 + TAY + BPL L0403D7 + DEX +L0403D7 PHX + PHA + _GetIndResource +* STA L02DD98 + PLA + STA $19 + PLA + STA $1B + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0002 + PEI $09 + PEI $07 + PEI $0F + PEI $0D + LDX $1B + LDA $19 + PHX + PHA + PEI $17 + JSL L02ACFE + PHA + PEI $17 + LDX $1B + LDA $19 + PHX + PHA + _GetResourceAttr +* STA L02DD98 + PLA + STA $11 + PEA $000C + PEI $17 + LDX $1B + LDA $19 + PHX + PHA + _SetResourceAttr +* STA L02DD98 + PHA + PHA + PEI $17 + LDX $1B + LDA $19 + PHX + PHA + _LoadResource +* STA L02DD98 + PLA + STA $21 + PLA + STA $23 + LDX $23 + LDA $21 + PHX + PHA + _HLock +* STA L02DD98 + PEI $11 + PEI $17 + LDX $1B + LDA $19 + PHX + PHA + _SetResourceAttr +* STA L02DD98 + LDX $1F + LDA $1D + STX L027EC5 + STA L027EC3 + LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STX L027EC1 + STA L027EBF + LDX L027EC5 + LDA L027EC3 + PHX + PHA + PEA ^L028258 + PEA L028258 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L02825C + PEA L02825C + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + PHA + PHA + LDX $23 + LDA $21 + PHX + PHA + _GetHandleSize +* STA L02DD98 + PEA ^L028260 + PEA L028260 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + LDA $17 + PEA $0000 + PHA + PEA ^L028264 + PEA L028264 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + PEA ^L028268 + PEA L028268 + PLA + STA $01 + PLA + STA $03 + LDA $19 + STA [$01] + LDA $1B + STA [$01],Y + LDA $09 + LDX #$0000 + TAY + BPL L04051F + DEX +L04051F PHX + PHA + PEA ^L02826C + PEA L02826C + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + PEA ^L028270 + PEA L028270 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + PHA + PHA + STA [$01] + STA $03,S + STA [$01],Y + PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + LDA $0F + LDX #$0000 + TAY + BPL L040568 + DEX +L040568 PHX + PHA + PEA ^L028278 + PEA L028278 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + PEI $11 + JSL L0426A8 + PHX + PHA + PEA ^L02827C + PEA L02827C + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + JSL L041442 + LDA L027EB9 + BNE L0405CC + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0003 + PEI $09 + PEI $07 + PEI $0F + PEI $0D + LDX $1B + LDA $19 + PHX + PHA + PEI $17 + JSL L02ACFE + BRA L040630 +L0405CC LDA L027EB9 + CMP #$FFFF + BNE L0405FE + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0005 + PEI $09 + PEI $07 + PEI $0F + PEI $0D + LDX $1B + LDA $19 + PHX + PHA + PEI $17 + JSL L02ACFE + STA L027EB9 + BRA L040630 +L0405FE LDA L027EB9 + BMI L040606 + DEC + BPL L040608 +L040606 BRA L040630 +L040608 LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0006 + PEI $09 + PEI $07 + PEI $0F + PEI $0D + LDX $1B + LDA $19 + PHX + PHA + PEI $17 + JSL L02ACFE + STA L027EB9 +L040630 PEA $FFFF + PEI $17 + LDX $1B + LDA $19 + PHX + PHA + _ReleaseResource +* STA L02DD98 + INC $09 + BRL L040391 +L04064A INC $07 + BRL L0402D4 +L04064F PEA $0002 + JSL L0406BA + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0004 + PEI $09 + PEI $07 + PEI $0F + PEI $0D + PEA $0000 + PEA $0000 + PEI $17 + JSL L02ACFE + LDA #$0001 + STA L0280F1 + PEA $2014 + PEA ^L0280F1 + PEA L0280F1 + JSL L02C243 + JSL L0409D2 + PHA + PEI $0B + _SetResourceFileDepth +* STA L02DD98 + PLA + STA $0B + LDA #$0000 + STA $05 +L0406A7 LDA $26 + STA $2A + LDA $25 + STA $29 + LDY $05 + PLD + TSC + CLC + ADC #$0028 + TCS + TYA + RTL + +L0406BA TSC + SEC + SBC #$0004 + TCS + PHD + TCD + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + LDA $08 + CLC + ADC #$0008 + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$000E + LDA [$01],Y + AND #$8000 + BEQ L04070A + LDA $08 + INC + INC + STA $08 +L04070A LDA L027ED5 + ORA L027ED7 + BEQ L040758 + LDX L027ED7 + LDA L027ED5 + STX L027EC5 + STA L027EC3 + LDA $08 + LDX #$0000 + TAY + BPL L040727 + DEX +L040727 PHX + PHA + PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + JSL L041442 + PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + STA [$01],Y +L040758 LDA $06 + STA $08 + LDA $05 + STA $07 + PLD + TSC + CLC + ADC #$0006 + TCS + RTL + +L040768 TSC + SEC + SBC #$000C + TCS + PHD + TCD + LDA $10 + ORA $12 + BNE L0407DF + PHA + PHA + PEA $0000 + PEA $000A + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$0006 + LDA [$01],Y + PHA + PEA $C018 + PEA $0000 + PEA $0000 + _NewHandle +* STA L02DD98 + PLA + STA $09 + PLA + STA $0B + LDX $0B + LDA $09 + PHX + PHA + _HLock +* STA L02DD98 + LDY #$0002 + LDA [$09],Y + TAX + LDA [$09] + STX $12 + STA $10 + LDA $14 + STA [$10] + LDA $16 + STA [$10],Y + INY + INY + LDA $18 + STA [$10],Y + LDY #$0006 + LDA #$0000 + STA [$10],Y + INY + INY + STA [$10],Y + BRA L04080B +L0407DF LDA [$10] + CMP $14 + BEQ L04080B + LDX $18 + LDA $16 + PHX + PHA + PEI $14 + LDY #$0008 + LDA [$10],Y + TAX + LDY #$0006 + LDA [$10],Y + PHX + PHA + JSL L040768 + PHX + PHA + LDY #$0006 + PLA + STA [$10],Y + INY + INY + PLA + STA [$10],Y +L04080B LDA $10 + LDX $12 + STA $05 + STX $07 + LDA $0E + STA $18 + LDA $0D + STA $17 + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$0016 + TCS + TYA + RTL + +L040828 TSC + SEC + SBC #$000C + TCS + PHD + TCD + LDA $10 + STA $0B + BRA L040898 +L040836 PEA ^L040916 + PEA L040916 + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L040844 PEA ^L04092F + PEA L04092F + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L040852 PEA ^L040949 + PEA L040949 + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L040860 PEA ^L04095B + PEA L04095B + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L04086E PEA ^L040978 + PEA L040978 + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L04087C PEA ^L040988 + PEA L040988 + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L04088A PEA ^L0409AB + PEA L0409AB + PLA + STA $07 + PLA + STA $09 + BRA L0408BC +L040898 LDA $0B + SEC + SBC #$0100 + CMP #$0006 + BCC L0408A6 + LDA #$0006 +L0408A6 ASL + TAX + LDAL $0408AE,X + PHA + RTS + +L0408AE DA L040836-1 + DA L040852-1 + DA L040844-1 + DA L040860-1 + DA L04086E-1 + DA L04087C-1 + DA L04088A-1 + +L0408BC LDX $09 + LDA $07 + PHX + PHA + PEA ^L0409B3 + PEA L0409B3 + LDA L027F63 + LDX L027F63+2 + PHX + PHA + JSL L02C68C + LDX #$0000 + TAY + BPL L0408DB + DEX +L0408DB PHX + PHA + PEA ^L027F67 + PEA L027F67 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + PEA $2013 + PEA ^L027F5F + PEA L027F5F + JSL L02C243 + LDA $10 + STA $05 + LDA $0E + STA $10 + LDA $0D + STA $0F + LDY $05 + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L040916 ASC 'BAD BIT COMMAND MODIFIER'00 +L04092F ASC 'BAD READ COMMAND MODIFIER'00 +L040949 ASC 'UNDEFINED COMMAND'00 +L04095B ASC 'UNASSIGNED CTRL COMMAND CODE'00 +L040978 ASC 'DIV/MOD BY ZERO'00 +L040988 ASC 'AND/OR COMMAND WITHOUT ADJACENT IF'00 +L0409AB ASC 'UNKNOWN'00 +L0409B3 ASC 0D + ASC '<<< TEMPLATE ERROR - %s >>>'0D0D00 + +L0409D2 TSC + SEC + SBC #$000E + TCS + PHD + TCD + LDX L027EC9 + LDA L027EC7 + STX $09 + STA $07 +L0409E4 LDA $07 + ORA $09 + BEQ L040A1F + LDY #$0008 + LDA [$07],Y + TAX + LDY #$0006 + LDA [$07],Y + STX $0D + STA $0B + PHA + PHA + LDX $09 + LDA $07 + PHX + PHA + _FindHandle +* STA L02DD98 + _DisposeHandle +* STA L02DD98 + LDA $0B + LDX $0D + STA $07 + STX $09 + BRA L0409E4 +L040A1F LDA #$0000 + STA $05 +L040A24 LDA $05 + ASL + ASL + TAX + LDY L028732,X + LDA L028730,X + PHY + PHA + LDA #$0000 + TAX + LDY #$0001 + CMP $01,S + BEQ L040A3D + DEY +L040A3D TXA + CMP $03,S + BEQ L040A45 + LDY #$0000 +L040A45 PLA + PLA + TYA + EOR #$0001 + CMP #$0000 + BEQ L040A6C + LDA #$0010 + LDX #$0001 + SEC + SBC $05 + BEQ L040A62 + BVS L040A60 + EOR #$8000 +L040A60 BMI L040A63 +L040A62 DEX +L040A63 TXA + CMP #$0000 + BEQ L040A6C + LDA #$0001 +L040A6C TAX + BEQ L040A8A + LDA $05 + ASL + ASL + TAX + LDY L028732,X + LDA L028730,X + PHY + PHA + _DisposeHandle +* STA L02DD98 + INC $05 + BRA L040A24 +L040A8A PLD + TSC + CLC + ADC #$000E + TCS + RTL + +L040A92 TSC + SEC + SBC #$0010 + TCS + PHD + TCD + LDA #$0000 + STA $0D + STA $0F + LDA #L027F71 + STA $09 + LDA #^L027F71 + STA $0B +L040AAB LDX L027EC1 + LDA L027EBF + STA $01 + STX $03 + LDA [$01] + AND #$00FF + TAX + LDA L02C277,X + AND #$00FF + AND #$0080 + CMP #$0000 + BEQ L040ADD + PEI $16 + PEI $14 + PEI $0F + PEI $0D + JSL L02D6DE + CMP #$0000 + BEQ L040ADD + LDA #$0001 +L040ADD CMP #$0000 + BEQ L040B0A + LDX L027EC1 + LDA L027EBF + STA $01 + STX $03 + LDA [$01] + AND #$00FF + PHA + LDX L027ECF + LDA L027ECD + SEC + SBC $01,S + PLX + TAX + BEQ L040B02 + LDA #$0001 +L040B02 CMP #$0000 + BEQ L040B0A + LDA #$0001 +L040B0A TAX + BEQ L040B3D + PEI $0B + PEI $09 + INC $09 + BNE L040B17 + INC $0B +L040B17 LDX L027EC1 + LDA L027EBF + INC L027EBF + BNE L040B25 + INC L027EC1 +L040B25 STA $01 + STX $03 + LDA [$01] + AND #$00FF + PLX + STX $01 + PLX + STX $03 + SEP #$20 + STA [$01] + REP #$20 + BRL L040BEE +L040B3D PEI $0F + PEI $0D + PEA $0000 + PEA $0000 + JSL L02D6DE + BEQ L040BB0 + SEP #$20 + LDA #$00 + STA [$09] + REP #$20 + PEA ^L028270 + PEA L028270 + PLA + STA $01 + PLA + STA $03 + LDA $0D + STA [$01] + LDY #$0002 + LDA $0F + STA [$01],Y + LDX $16 + LDA $14 + LDY #$0000 + CMP $0D + BNE L040B79 + CPX $0F +L040B79 BNE L040B7C + INY +L040B7C TYA + BNE L040B87 + PEA $0000 + PEA $0002 + BRA L040B8D +L040B87 PEA $0000 + PEA $0000 +L040B8D PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + PEA ^L027F71 + PEA L027F71 + PLA + STA $05 + PLA + STA $07 + BRA L040BF7 +L040BB0 PEA ^L028270 + PEA L028270 + PLA + STA $01 + PLA + STA $03 + LDA #$0001 + STA [$01] + LDY #$0002 + LDA #$0000 + STA [$01],Y + PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + LDA #$0001 + STA [$01] + LDA #$0000 + STA [$01],Y + PEA $0001 + JSL L040C0C + PHX + STA $05 + PLA + STA $07 + BRA L040BF7 +L040BEE INC $0D + BNE L040BF4 + INC $0F +L040BF4 BRL L040AAB +L040BF7 LDA $12 + STA $16 + LDA $11 + STA $15 + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$0014 + TCS + TYA + RTL + +L040C0C TSC + SEC + SBC #$0010 + TCS + PHD + TCD + PHA + CLC + LDA L027EBF + STA $0D + ADC $14 + STA L027EBF + LDA L027EC1 + STA $0F + ADC #$0000 + STA L027EC1 + PLA + LDY #$0002 + LDA [$0D],Y + TAX + LDA [$0D] + STX $0B + STA $09 + LDA $14 + CMP #$0001 + BNE L040C56 + PEI $0B + LDA $09 + AND #$00FF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + STA $09 + PLA + STA $0B + BRA L040C72 +L040C56 LDA $14 + CMP #$0002 + BNE L040C72 + PEI $0B + LDA $09 + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + STA $09 + PLA + STA $0B +L040C72 LDA $09 + LDX $0B + STA $05 + STX $07 + LDA $12 + STA $14 + LDA $11 + STA $13 + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$0012 + TCS + TYA + RTL + +L040C8F TSC + SEC + SBC #$000C + TCS + PHD + TCD + LDA #$0000 + STA $09 + STA $0B +L040C9E LDA [$10] + AND #$00FF + TAX + LDA L02C277,X + AND #$00FF + AND #$0040 + BEQ L040D1B + PEI $0B + PEI $09 + PEA $0000 + PEA $0004 + JSL L02DCF2 + PLA + STA $09 + PLA + STA $0B + LDA [$10] + AND #$00FF + LDX #$0001 + SEC + SBC #$0039 + BEQ L040CD8 + BVS L040CD6 + EOR #$8000 +L040CD6 BMI L040CD9 +L040CD8 DEX +L040CD9 TXA + BNE L040CE7 + LDA [$10] + AND #$00FF + SEC + SBC #$0030 + BRA L040CF5 +L040CE7 LDA [$10] + AND #$00FF + PHA + JSL L02CA2C + SEC + SBC #$0037 +L040CF5 LDX #$0000 + TAY + BPL L040CFC + DEX +L040CFC PHX + PHA + PEI $0B + PEI $09 + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $09 + PLA + STA $0B + INC $10 + BNE L040D19 + INC $12 +L040D19 BRA L040C9E +L040D1B LDA $09 + LDX $0B + STA $05 + STX $07 + LDA $0E + STA $12 + LDA $0D + STA $11 + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$0010 + TCS + TYA + RTL + +L040D38 TSC + SEC + SBC #$000E + TCS + PHD + TCD + PEA $0001 + PEA ^L027F3D + PEA L027F3D + JSL L026E47 + TAX + BEQ L040D73 + PEA $0000 + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + PHX + PHA + JSL L026E47 + LDA #$FFFF + STA $05 + BRL L041145 +L040D73 STZ L027EC9 + STZ L027EC7 + PEA ^L027F3D + PEA L027F3D + PEA ^L027F07 + PEA L027F07 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + PEA ^L028854 + PEA L028854 + PEA ^L028075 + PEA L028075 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + PEA ^L028854 + PEA L028854 + PEA ^L0280BD + PEA L0280BD + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + PEA $2010 + PEA ^L027F03 + PEA L027F03 + JSL L02C243 + PEA ^L0280B5 + PEA L0280B5 + LDA L027F05 + PLX + STX $01 + PLX + STX $03 + STA [$01] + STZ L027ED7 + STZ L027ED5 + LDA #$0000 + STA $0B +L040DED LDA $0B + BMI L040DF9 + CMP #$0010 + BCC L040DF9 + BRL L0410D4 +L040DF9 LDA $0B + ASL + ASL + CLC + ADC #L028730 + PEA ^L028730 + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + STA [$01],Y + LDA #$0020 + STA L028854 + PEA $201C + PEA ^L0280B3 + PEA L0280B3 + JSL L02C243 + JSL L02CA27 + STA $0D + TAX + BEQ L040E3E + LDA $0D + CMP #$0061 + BNE L040E3B + LDA #$0000 + STA $0D +L040E3B BRL L0410D4 +L040E3E LDA L0280C3 + LDX #$0000 + CMP #$00B0 + BNE L040E4A + INX +L040E4A TXA + CMP #$0000 + BEQ L040E88 + LDA L0280DF + LDX L0280E1 + PHX + PHA + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$000A + LDA [$01],Y + TAX + LDY #$0008 + LDA [$01],Y + LDY #$0001 + CMP $01,S + BEQ L040E75 + DEY +L040E75 TXA + CMP $03,S + BEQ L040E7D + LDY #$0000 +L040E7D PLA + PLA + TYA + CMP #$0000 + BEQ L040E88 + LDA #$0001 +L040E88 TAX + BNE L040E8E + BRL L0410D1 +L040E8E PEA ^L028854 + PEA L028854 + LDA L028856 + INC + INC + PLX + STX $01 + PLX + STX $03 + STA [$01] + LDA #$3A35 + STA L028856 + PEA $2010 + PEA ^L028071 + PEA L028071 + JSL L02C243 + LDA #$0004 + STA L027ED9 + PEA ^L027EDB + PEA L027EDB + LDA L028073 + PLX + STX $01 + PLX + STX $03 + STA [$01] + PHA + PHA + LDA L02809B + LDX L02809D + PHX + PHA + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$0006 + LDA [$01],Y + PHA + PEA $C018 + PEA $0000 + PEA $0000 + _NewHandle +* STA L02DD98 + LDA $0B + ASL + ASL + CLC + ADC #L028730 + PEA ^L028730 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + JSL L02CA27 + STA $0D + LDA $0D + BEQ L040F1E + BRL L0410CF +L040F1E LDA $0B + ASL + ASL + TAX + LDY L028732,X + LDA L028730,X + PHY + PHA + _HLock +* STA L02DD98 + LDA $0B + ASL + ASL + TAX + LDY L028732,X + LDA L028730,X + TYX + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + PHA + LDA [$01] + PHA + PEA ^L027EDD + PEA L027EDD + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + LDA L02809B + LDX L02809D + PHX + PHA + PEA ^L027EE1 + PEA L027EE1 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + PEA $2012 + PEA ^L027ED9 + PEA L027ED9 + JSL L02C243 + LDA #$0001 + STA L027ED9 + PEA $2014 + PEA ^L027ED9 + PEA L027ED9 + JSL L02C243 + LDA L027EDD + LDX L027EDF + STX L027EC5 + STA L027EC3 + LDA L02809B + LDX L02809D + PHX + PHA + LDX L027EC5 + LDA L027EC3 + PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $07 + PLA + STA $09 +L040FC7 LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L0421B5 + PHX + STA L027EC3 + PLA + STA L027EC5 + LDA L027EB3 + CMP #$001C + BNE L041036 + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0001 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + LDX L027ED3 + LDA L027ED1 + PHA + JSL L02ACFE + LDX L027EC5 + LDA L027EC3 + PHX + PHA + LDX L027ED3 + LDA L027ED1 + PHA + LDX L027EC9 + LDA L027EC7 + PHX + PHA + JSL L040768 + PHX + STA L027EC7 + PLA + STA L027EC9 + BRA L04108D +L041036 LDA L027EB3 + CMP #$0028 + BNE L04104C + LDX L027EC5 + LDA L027EC3 + STX L027ED7 + STA L027ED5 + BRA L04108D +L04104C LDA L027EB3 + LDX #$0000 + CMP #$0026 + BNE L041058 + INX +L041058 TXA + CMP #$0000 + BEQ L041063 + LDA #$0001 + BRA L041078 +L041063 LDA L027EB3 + LDX #$0000 + CMP #$001E + BNE L04106F + INX +L04106F TXA + CMP #$0000 + BEQ L041078 + LDA #$0001 +L041078 TAX + BEQ L04108D + LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L0421B5 + STX L027EC5 + STA L027EC3 +L04108D LDX L027EC5 + LDA L027EC3 + STX $01 + ORA $01 + BEQ L0410C6 + LDA L027EC3 + PHX + PHA + LDX $09 + LDA $07 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L0410AE + TYA + CMP $01,S +L0410AE BEQ L0410B2 + BCS L0410B3 +L0410B2 DEX +L0410B3 PLA + PLA + TXA + LDX #$0000 + TAY + BPL L0410BD + DEX +L0410BD STX $01 + ORA $01 + BEQ L0410C6 + LDA #$0001 +L0410C6 BEQ L0410CB + BRL L040FC7 +L0410CB INC $0B + BRA L0410D1 +L0410CF BRA L0410D4 +L0410D1 BRL L040DED +L0410D4 LDA #$0001 + STA L027ED9 + PEA ^L027EDB + PEA L027EDB + LDA L0280B5 + PLX + STX $01 + PLX + STX $03 + STA [$01] + PEA $2014 + PEA ^L027ED9 + PEA L027ED9 + JSL L02C243 + LDY #$0000 + LDA L027EC7 + ORA L027EC9 + BNE L041104 + INY +L041104 TYA + CMP #$0000 + BEQ L04111E + LDA $0D + LDX #$0000 + CMP #$0000 + BNE L041115 + INX +L041115 TXA + CMP #$0000 + BEQ L04111E + LDA #$0001 +L04111E TAX + BEQ L041126 + LDA #$0046 + STA $0D +L041126 PEA $0000 + LDX L027EA9 + LDA L027EA7 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + PHX + PHA + JSL L026E47 + LDA $0D + STA $05 +L041145 LDY $05 + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L041150 TSC + SEC + SBC #$0011 + TCS + PHD + TCD + LDA #L02812B + STA $0A + LDA #^L02812B + STA $0C + PEA ^L028230 + PEA L028230 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + STA [$01],Y +L041178 PEI $17 + PEI $15 + INC $15 + BNE L041182 + INC $17 +L041182 PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + SEP #$20 + STA $09 + REP #$20 + CMP #$000D + BNE L04119B + BRL L04134E +L04119B LDA $09 + AND #$00FF + BIT #$0080 + BEQ L0411A8 + ORA #$FF00 +L0411A8 CMP #$0000 + CMP #$0025 + BNE L0411D6 + PEA ^L028230 + PEA L028230 + PLA + STA $0E + PLA + STA $10 + LDY #$0002 + LDA [$0E],Y + PHA + LDA [$0E] + CLC + ADC #$0001 + PHA + LDA $01,S + STA [$0E] + LDA $03,S + STA [$0E],Y + PLA + PLA + BRL L041325 +L0411D6 LDA $09 + AND #$00FF + BIT #$0080 + BEQ L0411E3 + ORA #$FF00 +L0411E3 CMP #$0000 + CMP #$005C + BEQ L0411EE + BRL L041325 +L0411EE PEI $17 + PEI $15 + INC $15 + BNE L0411F8 + INC $17 +L0411F8 PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + PHA + JSL L02CA0D + SEP #$20 + STA $09 + REP #$20 + LDX #$0000 + CMP #$006E + BNE L041217 + INX +L041217 TXA + CMP #$0000 + BEQ L041222 + LDA #$0001 + BRA L041244 +L041222 LDA $09 + AND #$00FF + BIT #$0080 + BEQ L04122F + ORA #$FF00 +L04122F CMP #$0000 + LDX #$0000 + CMP #$0072 + BNE L04123B + INX +L04123B TXA + CMP #$0000 + BEQ L041244 + LDA #$0001 +L041244 TAX + BEQ L041253 + LDA #$000D + SEP #$20 + STA $09 + REP #$20 + BRL L041325 +L041253 LDA $09 + AND #$00FF + BIT #$0080 + BEQ L041260 + ORA #$FF00 +L041260 CMP #$0000 + CMP #$0074 + BNE L041274 + LDA #$0009 + SEP #$20 + STA $09 + REP #$20 + BRL L041325 +L041274 LDA $09 + AND #$00FF + BIT #$0080 + BEQ L041281 + ORA #$FF00 +L041281 CMP #$0000 + CMP #$0078 + BEQ L04128C + BRL L041325 +L04128C LDA [$15] + AND #$00FF + LDX #$0001 + SEC + SBC #$0039 + BEQ L0412A1 + BVS L04129F + EOR #$8000 +L04129F BMI L0412A2 +L0412A1 DEX +L0412A2 TXA + BNE L0412B4 + LDA [$15] + AND #$00FF + SEC + SBC #$0030 + ASL + ASL + ASL + ASL + BRA L0412C6 +L0412B4 LDA [$15] + AND #$00FF + PHA + JSL L02CA2C + SEC + SBC #$0037 + ASL + ASL + ASL + ASL +L0412C6 SEP #$20 + STA $09 + REP #$20 + INC $15 + BNE L0412D2 + INC $17 +L0412D2 LDA $09 + AND #$00FF + BIT #$0080 + BEQ L0412DF + ORA #$FF00 +L0412DF CMP #$0000 + PHA + LDA [$15] + AND #$00FF + LDX #$0001 + SEC + SBC #$0039 + BEQ L0412F8 + BVS L0412F6 + EOR #$8000 +L0412F6 BMI L0412F9 +L0412F8 DEX +L0412F9 TXA + BNE L041307 + LDA [$15] + AND #$00FF + SEC + SBC #$0030 + BRA L041315 +L041307 LDA [$15] + AND #$00FF + PHA + JSL L02CA2C + SEC + SBC #$0037 +L041315 CLC + ADC $01,S + PLX + SEP #$20 + STA $09 + REP #$20 + INC $15 + BNE L041325 + INC $17 +L041325 PEI $0C + PEI $0A + INC $0A + BNE L04132F + INC $0C +L04132F PLA + PLX + STA $01 + STX $03 + LDA $09 + AND #$00FF + BIT #$0080 + BEQ L041342 + ORA #$FF00 +L041342 CMP #$0000 + SEP #$20 + STA [$01] + REP #$20 + BRL L041178 +L04134E SEP #$20 + LDA #$00 + STA [$0A] + REP #$20 + LDA L028230 + BEQ L041369 + ASL + ASL + TAX + INX + INX +L041360 LDA L028230,X + PHA + DEX + DEX + CPX #$0002 +L041369 BNE L041360 + PEA ^L02812B + PEA L02812B + LDA L027F63 + LDX L027F63+2 + PHX + PHA + JSL L02C68C + LDX #$0000 + TAY + BPL L041384 + DEX +L041384 PHX + PHA + PEA ^L027F67 + PEA L027F67 + PLA + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + LDA L027F63 + LDX L027F63+2 + STX $0C + STA $0A +L0413A5 LDA [$0A] + AND #$00FF + BEQ L041418 + LDA $0A + LDX $0C + STA $0E + STX $10 + PEI $10 + PEI $0E + LDA [$0E] + AND #$00FF + PHA + LDA L027EB0 + AND #$00FF + BIT #$0080 + BEQ L0413CC + ORA #$FF00 +L0413CC CMP #$0000 + ORA $01,S + PLX + PLX + STX $01 + PLX + STX $03 + SEP #$20 + STA [$01] + REP #$20 + LDA $0A + LDX $0C + STA $0E + STX $10 + PEI $10 + PEI $0E + LDA [$0E] + AND #$00FF + PHA + LDA L027EAF + AND #$00FF + BIT #$0080 + BEQ L0413FE + ORA #$FF00 +L0413FE CMP #$0000 + AND $01,S + PLX + PLX + STX $01 + PLX + STX $03 + SEP #$20 + STA [$01] + REP #$20 + INC $0A + BNE L041416 + INC $0C +L041416 BRA L0413A5 +L041418 PEA $2013 + PEA ^L027F5F + PEA L027F5F + JSL L02C243 + LDA $15 + LDX $17 + STA $05 + STX $07 + LDA $13 + STA $17 + LDA $12 + STA $16 + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$0015 + TCS + TYA + RTL + +L041442 TSC + SEC + SBC #$001A + TCS + PHD + TCD +L04144A LDA L027EC3 + ORA L027EC5 + BNE L041455 + BRL L0421AD +L041455 LDA L027EB9 + BNE L041487 + LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0007 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE + STA L027EB9 +L041487 LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L0421B5 + STX L027EC5 + STA L027EC3 + LDA L027EB3 + STA $13 +L04149E BRL L042146 +L0414A1 BRL L0421AA +L0414A4 LDA L027EAB + BNE L0414E1 + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + AND $03,S + STA $03,S + PLA + AND $03,S + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + BRL L041667 +L0414E1 LDA L027EAB + CMP #$0017 + BNE L04154D + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + ORA $03,S + STA $03,S + PLA + ORA $03,S + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDA [$15],Y + PHA + LDA [$15] + EOR #$FFFF + PHA + LDA $03,S + EOR #$FFFF + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + BRL L041667 +L04154D LDA L027EAB + CMP #$0019 + BNE L04158D + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + ORA $03,S + STA $03,S + PLA + ORA $03,S + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + BRL L041667 +L04158D LDA L027EAB + CMP #$001F + BNE L0415CD + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + EOR $03,S + STA $03,S + PLA + EOR $03,S + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + BRL L041667 +L0415CD LDA L027EAB + CMP #$0024 + BNE L041615 + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + AND #$001F + PHA + LDA $03,S + AND #$0000 + STA $03,S + JSL L02DCF2 + PLA + STA [$15] + LDY #$0002 + PLA + STA [$15],Y + BRA L041667 +L041615 LDA L027EAB + CMP #$0025 + BNE L04165D + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + AND #$001F + PHA + LDA $03,S + AND #$0000 + STA $03,S + JSL L02CA46 + PLA + STA [$15] + LDY #$0002 + PLA + STA [$15],Y + BRA L041667 +L04165D PEA $0100 + JSL L040828 + STA L027EB9 +L041667 BRL L0421AA +L04166A LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + STA L027EC3 + PLA + STA L027EC5 + BRL L0421AA +L041681 LDX L027ED3 + LDA L027ED1 + STA $19 + BRL L041956 +L04168C LDA #$0080 + SEP #$20 + STA L027EB0 + REP #$20 + LDA #$00FF + SEP #$20 + STA L027EAF + REP #$20 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L04197B +L0416C5 LDA #$0000 + SEP #$20 + STA L027EB0 + REP #$20 + LDA #$007F + SEP #$20 + STA L027EAF + REP #$20 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L04197B +L0416FE LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + LDA #$0000 + TAX + LDY #$0001 + CMP $01,S + BEQ L041718 + DEY +L041718 TXA + CMP $03,S + BEQ L041720 + LDY #$0000 +L041720 PLA + PLA + TYA + BEQ L041728 + BRL L0421AD +L041728 BRL L04197B +L04172B LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + LDA #$0000 + TAX + LDY #$0001 + CMP $01,S + BEQ L041745 + DEY +L041745 TXA + CMP $03,S + BEQ L04174D + LDY #$0000 +L04174D PLA + PLA + TYA + BNE L041755 + BRL L0421AD +L041755 BRL L04197B +L041758 PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + LDA #$0001 + STA [$01] + LDY #$0002 + LDA #$0000 + STA [$01],Y + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + PEA $0000 + PEA $001F + JSL L02D6DE + CMP #$0000 + BEQ L0417AE + PEA $0000 + PEA $007F + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + JSL L02D6DE + CMP #$0000 + BEQ L0417AE + LDA #$0001 +L0417AE CMP #$0000 + BEQ L0417D7 + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + TYX + LDY #$0000 + CMP L027ECD + BNE L0417CB + CPX L027ECF +L0417CB BEQ L0417CE + INY +L0417CE TYA + CMP #$0000 + BEQ L0417D7 + LDA #$0001 +L0417D7 TAX + BEQ L041829 + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PEA ^L02822B + PEA L02822B + JSL L02C78E + PHX + PLA + PEA ^L02822B + PEA L02822B + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y +L041829 BRL L04197B +L04182C PEA $0000 + PEA $0020 + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + JSL L02D6DE + CMP #$0000 + BEQ L04184E + LDA #$0001 + BRA L04186E +L04184E LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + PEA $0000 + PEA $007F + JSL L02D6DE + CMP #$0000 + BEQ L04186E + LDA #$0001 +L04186E TAX + BEQ L041893 + LDX L027EB7 + LDA L027EB5 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y +L041893 PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PEA ^L02822B + PEA L02822B + JSL L02C78E + PHX + PLA + PEA ^L02822B + PEA L02822B + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L04197B +L0418D2 LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + PEA $0000 + PEA $001F + JSL L02D6DE + BEQ L04190C + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + AND #$007F + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + STA L027ECD + PLA + STA L027ECF +L04190C BRA L04197B +L04190E LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + PEA $0000 + PEA $001F + JSL L02D6DE + BEQ L041948 + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + AND #$007F + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + STA L027EB5 + PLA + STA L027EB7 +L041948 BRA L04197B +L04194A PEA $0103 + JSL L040828 + STA L027EB9 + BRA L04197B +L041956 LDA $19 + DEC + CMP #$0008 + BCC L041961 + LDA #$0008 +L041961 ASL + TAX + LDAL L041969,X + PHA + RTS + +L041969 DA L04168C-1 + DA L0416C5-1 + DA L0416FE-1 + DA L04172B-1 + DA L041758-1 + DA L04182C-1 + DA L0418D2-1 + DA L04190E-1 + DA L04194A-1 + +L04197B BRL L0421AA +L04197E PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + BRL L0421AA +L0419B9 LDY #$0000 + LDA L027ED1 + ORA L027ED3 + BNE L0419C5 + INY +L0419C5 TYA + CMP #$0000 + BEQ L0419D0 + LDA #$0001 + BRA L0419ED +L0419D0 LDA L028264 + LDX L028266 + LDY #$0000 + CMP L027ED1 + BNE L0419E1 + CPX L027ED3 +L0419E1 BNE L0419E4 + INY +L0419E4 TYA + CMP #$0000 + BEQ L0419ED + LDA #$0001 +L0419ED TAX + BEQ L0419F3 +L0419F0 BRL L0421AD +L0419F3 LDA L027EB3 + CMP #$0009 + BEQ L041A11 + LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L0421B5 + PHX + STA L027EC3 + PLA + STA L027EC5 +L041A0F BRA L0419F3 +L041A11 BRL L0421AA +L041A14 LDA #$0001 + STA L027EAD +L041A1A LDX L027EC5 + LDA L027EC3 + STX $11 + STA $0F + LDA #$0000 + STA $05 + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + TYX + STX $0D + STA $0B + LDA L027EB3 + CMP #$0019 + BNE L041A54 + LDA L027EAD + BNE L041A4F + LDA #$0001 + STA L027EAD + BRA L041A54 +L041A4F LDA #$0001 + STA $05 +L041A54 LDA $05 + LDX #$0000 + CMP #$0000 + BNE L041A5F + INX +L041A5F TXA + CMP #$0000 + BNE L041A68 + BRL L041BCA +L041A68 LDA L027EAB + LDX #$0000 + CMP #$000A + BNE L041A74 + INX +L041A74 TXA + CMP #$0000 + BEQ L041A95 + LDX L027ED3 + LDA L027ED1 + LDY #$0000 + CMP $0B + BNE L041A89 + CPX $0D +L041A89 BEQ L041A8C + INY +L041A8C TYA + CMP #$0000 + BEQ L041A95 + LDA #$0001 +L041A95 CMP #$0000 + BEQ L041A9F + LDA #$0001 + BRA L041AD1 +L041A9F LDA L027EAB + LDX #$0000 + CMP #$000B + BNE L041AAB + INX +L041AAB TXA + CMP #$0000 + BEQ L041AC9 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + PEI $0D + PEI $0B + JSL L02D6DE + CMP #$0000 + BEQ L041AC9 + LDA #$0001 +L041AC9 CMP #$0000 + BEQ L041AD1 + LDA #$0001 +L041AD1 CMP #$0000 + BEQ L041ADB + LDA #$0001 + BRA L041B0D +L041ADB LDA L027EAB + LDX #$0000 + CMP #$000D + BNE L041AE7 + INX +L041AE7 TXA + CMP #$0000 + BEQ L041B05 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + LDX $0D + LDA $0B + JSL L02D6AD + CMP #$0000 + BEQ L041B05 + LDA #$0001 +L041B05 CMP #$0000 + BEQ L041B0D + LDA #$0001 +L041B0D CMP #$0000 + BEQ L041B17 + LDA #$0001 + BRA L041B49 +L041B17 LDA L027EAB + LDX #$0000 + CMP #$0010 + BNE L041B23 + INX +L041B23 TXA + CMP #$0000 + BEQ L041B41 + PEI $0D + PEI $0B + LDX L027ED3 + LDA L027ED1 + PHX + PHA + JSL L02D6DE + CMP #$0000 + BEQ L041B41 + LDA #$0001 +L041B41 CMP #$0000 + BEQ L041B49 + LDA #$0001 +L041B49 CMP #$0000 + BEQ L041B53 + LDA #$0001 + BRA L041B83 +L041B53 LDA L027EAB + LDX #$0000 + CMP #$0014 + BNE L041B5F + INX +L041B5F TXA + CMP #$0000 + BEQ L041B7B + PEI $0D + PEI $0B + LDX L027ED3 + LDA L027ED1 + JSL L02D6AD + CMP #$0000 + BEQ L041B7B + LDA #$0001 +L041B7B CMP #$0000 + BEQ L041B83 + LDA #$0001 +L041B83 CMP #$0000 + BEQ L041B8D + LDA #$0001 + BRA L041BC2 +L041B8D LDA L027EAB + LDX #$0000 + CMP #$0016 + BNE L041B99 + INX +L041B99 TXA + CMP #$0000 + BEQ L041BBA + LDX L027ED3 + LDA L027ED1 + LDY #$0000 + CMP $0B + BNE L041BAE + CPX $0D +L041BAE BNE L041BB1 + INY +L041BB1 TYA + CMP #$0000 + BEQ L041BBA + LDA #$0001 +L041BBA CMP #$0000 + BEQ L041BC2 + LDA #$0001 +L041BC2 CMP #$0000 + BEQ L041BCA + LDA #$0001 +L041BCA TAX + BEQ L041BD3 + LDA #$0000 + STA L027EAD +L041BD3 LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L0421B5 + STX L027EC5 + STA L027EC3 + LDA L027EB3 + LDX #$0000 + CMP #$0000 + BNE L041BF1 + INX +L041BF1 TXA + CMP #$0000 + BEQ L041BFC + LDA #$0001 + BRA L041C11 +L041BFC LDA L027EB3 + LDX #$0000 + CMP #$0019 + BNE L041C08 + INX +L041C08 TXA + CMP #$0000 + BEQ L041C11 + LDA #$0001 +L041C11 BEQ L041C16 + BRL L041A1A +L041C16 LDA L027EAD + BNE L041C5B +L041C1B LDA L027EB3 + LDX #$0000 + CMP #$0009 + BEQ L041C27 + INX +L041C27 TXA + CMP #$0000 + BEQ L041C42 + LDA L027EB3 + LDX #$0000 + CMP #$0008 + BEQ L041C39 + INX +L041C39 TXA + CMP #$0000 + BEQ L041C42 + LDA #$0001 +L041C42 TAX + BEQ L041C59 + LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L0421B5 + STX L027EC5 + STA L027EC3 + BRA L041C1B +L041C59 BRA L041C65 +L041C5B LDX $11 + LDA $0F + STX L027EC5 + STA L027EC3 +L041C65 BRL L0421AA +L041C68 PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA [$15] + PLA + STA [$15],Y + BRL L0421AA +L041CA3 LDX L027ED3 + LDA L027ED1 + PHX + PHA + PEA $0000 + PEA $0002 + JSL L02DCF2 + PEA ^L028230 + PEA L028230 + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + PHA + LDA [$01] + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + PLA + STA [$01],Y + BRL L0421AA +L041CEF LDX L027ED3 + LDA L027ED1 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L0421AA +L041D14 LDX L027EC5 + LDA L027EC3 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L0421AA +L041D39 LDA L027ED1 + ORA L027ED3 + BNE L041D76 + PEA $005F + LDA L028268 + LDX L02826A + PHX + PHA + LDA L028264 + LDX L028266 + PHA + JSL L025A27 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L041DF7 +L041D76 LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + LDA #$0000 + TAX + LDY #$0001 + CMP $01,S + BEQ L041D90 + DEY +L041D90 TXA + CMP $03,S + BEQ L041D98 + LDY #$0000 +L041D98 PLA + PLA + TYA + BEQ L041DBF + PEA ^L0280B1 + PEA L0280B1 + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRA L041DF7 +L041DBF PEA $005F + LDA L027EB1 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + PHY + PHA + LDX L027ED3 + LDA L027ED1 + PHA + JSL L025A27 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y +L041DF7 BRL L0421AA +L041DFA LDX L027EC5 + LDA L027EC3 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + LDA #$0001 + STA $07 +L041E21 LDX L027EC5 + LDA L027EC3 + PHX + PHA + LDA $07 + INC $07 + LDX #$0000 + TAY + BPL L041E34 + DEX +L041E34 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + CMP #$000D + BNE L041E21 + LDX L027EC5 + LDA L027EC3 + PHX + PLX + STA $01 + STX $03 + LDA $07 + DEC + DEC + SEP #$20 + STA [$01] + REP #$20 + LDX L027EC5 + LDA L027EC3 + PHX + PHA + LDA $07 + LDX #$0000 + TAY + BPL L041E75 + DEX +L041E75 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + STA L027EC3 + PLA + STA L027EC5 + BRL L0421AA +L041E8A LDA L027EAB + CMP #$0002 + BNE L041EB8 + PEA $0001 + JSL L040C0C + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L041FEF +L041EB8 LDA L027EAB + CMP #$0004 + BNE L041EF1 + LDX L027EC1 + LDA L027EBF + PHX + PHA + JSL L02C7C2 + PHX + PHA + JSL L040A92 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L041FEF +L041EF1 LDA L027EAB + CMP #$000C + BNE L041F25 + PEA $0002 + JSL L040C0C + PHX + PHA + JSL L040A92 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L041FEF +L041F25 LDA L027EAB + CMP #$0012 + BNE L041F53 + PEA $0004 + JSL L040C0C + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRL L041FEF +L041F53 LDA L027EAB + CMP #$0018 + BNE L041F85 + LDX L027ED3 + LDA L027ED1 + PHX + PHA + JSL L040A92 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRA L041FEF +L041F85 LDA L027EAB + CMP #$001A + BNE L041FB8 + PEA $0001 + JSL L040C0C + PHX + PHA + JSL L040A92 + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRA L041FEF +L041FB8 LDA L027EAB + CMP #$001D + BNE L041FE5 + PEA $0002 + JSL L040C0C + PHX + PHA + LDA L027EB1 + ASL + ASL + CLC + ADC #L028230 + PEA ^L028230 + STA $01 + PLA + STA $03 + PLA + STA [$01] + LDY #$0002 + PLA + STA [$01],Y + BRA L041FEF +L041FE5 PEA $0102 + JSL L040828 + STA L027EB9 +L041FEF LDX L027EC1 + LDA L027EBF + PHX + PHA + PEA ^L028230 + PEA L028230 + PEA $0008 + LDA L02826C + LDX L02826E + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02ACFE +L04201D BRL L0421AA +L042020 BRL L0421AA +L042023 LDX L027EC5 + LDA L027EC3 + PHX + PHA + JSL L041150 + PHX + STA L027EC3 + PLA + STA L027EC5 + BRL L0421AA +L04203A PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDY #$0002 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + PHA + JSL L02DBC3 + PLA + STA [$15] + LDY #$0002 + PLA + STA [$15],Y + BRL L0421AA +L042071 PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + STA [$01],Y + LDA L027ED1 + ORA L027ED3 + BEQ L0420C2 + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + PHA + JSL L02DC66 + PLA + STA [$15] + LDY #$0002 + PLA + STA [$15],Y + BRA L0420CC +L0420C2 PEA $0104 + JSL L040828 + STA L027EB9 +L0420CC BRL L0421AA +L0420CF PEA ^L028274 + PEA L028274 + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + STA [$01],Y + LDA L027ED1 + ORA L027ED3 + BEQ L042122 + PEA ^L028230 + PEA L028230 + LDA L027EB1 + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $15 + PLA + STA $17 + LDA [$15],Y + PHA + LDA [$15] + PHA + LDX L027ED3 + LDA L027ED1 + PHX + PHA + JSL L02DB10 + PLY + PLY + PLA + STA [$15] + LDY #$0002 + PLA + STA [$15],Y + BRA L04212C +L042122 PEA $0104 + JSL L040828 + STA L027EB9 +L04212C BRA L0421AA +L04212E PEA $0105 + JSL L040828 + STA L027EB9 + BRA L0421AA +L04213A PEA $0101 + JSL L040828 + STA L027EB9 + BRA L0421AA +L042146 LDA $13 + CMP #$0028 + BCC L042150 + LDA #$0028 +L042150 ASL + TAX + LDAL L042158,X + PHA + RTS + +L042158 DA L04212E-1 + DA L0414A4-1 + DA L04213A-1 + DA L04166A-1 + DA L04213A-1 + DA L041681-1 + DA L04197E-1 + DA L0419B9-1 + DA L0419F3-1 + DA L041A11-1 + DA L04213A-1 + DA L04213A-1 + DA L04213A-1 + DA L04213A-1 + DA L041A14-1 + DA L041C68-1 + DA L04213A-1 + DA L041CEF-1 + DA L04213A-1 + DA L041D14-1 + DA L04213A-1 + DA L041D39-1 + DA L04213A-1 + DA L04213A-1 + DA L04213A-1 + DA L04212E-1 + DA L04213A-1 + DA L041E8A-1 + DA L042020-1 + DA L04213A-1 + DA L042023-1 + DA L04213A-1 + DA L0414A1-1 + DA L04203A-1 + DA L042071-1 + DA L0420CF-1 + DA L04213A-1 + DA L04213A-1 + DA L041DFA-1 + DA L041CA3-1 + DA L04213A-1 + +L0421AA BRL L04144A +L0421AD PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L0421B5 TSC + SEC + SBC #$0012 + TCS + PHD + TCD + LDA #$0001 + STA $0F + LDA #$0000 + STA $11 + STA $0D + STA $0B + STA $09 +L0421CD PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L0421DA + DEX +L0421DA CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$000D + BNE L0421F8 + INX +L0421F8 TXA + CMP #$0000 + BEQ L042203 + LDA #$0001 + BRA L042237 +L042203 PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L042210 + DEX +L042210 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$0000 + BNE L04222E + INX +L04222E TXA + CMP #$0000 + BEQ L042237 + LDA #$0001 +L042237 TAX + BEQ L042279 + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC $0D + TAX + SEP #$20 + LDA #$00 + STA L028814,X + REP #$20 + PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L04225A + DEX +L04225A CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + BNE L042276 + LDA #$0001 + STA $11 +L042276 BRL L042402 +L042279 PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L042286 + DEX +L042286 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$0020 + BNE L0422A4 + INX +L0422A4 TXA + CMP #$0000 + BEQ L0422AF + LDA #$0001 + BRA L0422E3 +L0422AF PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L0422BC + DEX +L0422BC CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$0009 + BNE L0422DA + INX +L0422DA TXA + CMP #$0000 + BEQ L0422E3 + LDA #$0001 +L0422E3 TAX + BNE L0422E9 + BRL L0423B2 +L0422E9 LDA $0F + BNE L04230C + LDA $0B + INC $0B + ASL + ASL + ASL + ASL + CLC + ADC $0D + TAX + SEP #$20 + LDA #$00 + STA L028814,X + REP #$20 + LDA #$0000 + STA $0D + LDA #$0001 + STA $0F +L04230C LDA $0B + BMI L042316 + DEC + DEC + DEC + DEC + BPL L042319 +L042316 BRL L0423B0 +L042319 PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L042326 + DEX +L042326 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$000D + BEQ L042344 + INX +L042344 TXA + CMP #$0000 + BEQ L04237E + PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L042357 + DEX +L042357 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$0000 + BEQ L042375 + INX +L042375 TXA + CMP #$0000 + BEQ L04237E + LDA #$0001 +L04237E TAX + BEQ L042385 + INC $09 + BRA L042319 +L042385 PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L042392 + DEX +L042392 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + BNE L0423AE + LDA #$0001 + STA $11 +L0423AE BRA L042402 +L0423B0 BRA L0423FD +L0423B2 LDA #$0000 + STA $0F + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC $0D + INC $0D + CLC + ADC #L028814 + PEA ^L028814 + PHA + PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L0423D7 + DEX +L0423D7 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 + JSL L02CA2C + PLX + STX $01 + PLX + STX $03 + SEP #$20 + STA [$01] + REP #$20 +L0423FD INC $09 + BRL L0421CD +L042402 LDA $0B + BMI L04240B + DEC + DEC + DEC + BPL L042423 +L04240B INC $0B + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #$0000 + TAX + SEP #$20 + LDA #$00 + STA L028814,X + REP #$20 + BRA L042402 +L042423 LDA #$FFFF + STA L027EAB + STA L027EB3 + LDA #$0000 + STA $0B +L042431 LDA $0B + BMI L04243A + CMP #$0029 + BCS L042484 +L04243A LDA $0B + ASL + ASL + TAX + LDY L028770+2,X + LDA L028770,X + PHY + PHA + PEA ^L028814 + PEA L028814 + JSL L02C751 + TAX + BNE L042459 + LDA $0B + STA L027EB3 +L042459 LDA $0B + ASL + ASL + TAX + LDY L028770+2,X + LDA L028770,X + PHY + PHA + PEA ^L028814 + PEA L028814 + LDA #$0020 + CLC + ADC $01,S + STA $01,S + JSL L02C751 + TAX + BNE L042480 + LDA $0B + STA L027EAB +L042480 INC $0B + BRA L042431 +L042484 LDA L028824 + AND #$00FF + CMP #$0052 + BNE L0424A4 + PEA ^L028824 + PEA L028824 + LDA #$0001 + CLC + ADC $01,S + STA $01,S + JSL L02C377 + STA L027EB1 +L0424A4 LDA L027EB3 + ASL + TAX + LDA L028878,X + STA $0B + LDA $0B + BMI L0424B5 + DEC + BPL L0424B8 +L0424B5 BRL L0425BA +L0424B8 LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #$0000 + TAX + LDA L028814,X + AND #$00FF + CMP #$0052 + BNE L0424FB + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #L028814 + PEA ^L028814 + PHA + LDA #$0001 + CLC + ADC $01,S + STA $01,S + JSL L02C377 + ASL + ASL + TAX + LDY L028232,X + LDA L028230,X + TYX + STX L027ED3 + STA L027ED1 + BRL L0425BA +L0424FB LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #$0000 + TAX + LDA L028814,X + AND #$00FF + CMP #$0024 + BNE L042536 + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #L028814 + PEA ^L028814 + PHA + LDA #$0001 + CLC + ADC $01,S + STA $01,S + JSL L040C8F + PHX + STA L027ED1 + PLA + STA L027ED3 + BRL L0425BA +L042536 LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #$0000 + TAX + LDA L028814,X + AND #$00FF + LDX #$0000 + CMP #$0030 + BNE L042550 + INX +L042550 TXA + CMP #$0000 + BEQ L042579 + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #$0001 + TAX + LDA L028814,X + AND #$00FF + LDX #$0000 + CMP #$0058 + BNE L042570 + INX +L042570 TXA + CMP #$0000 + BEQ L042579 + LDA #$0001 +L042579 TAX + BEQ L0425A0 + LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #L028814 + PEA ^L028814 + PHA + LDA #$0002 + CLC + ADC $01,S + STA $01,S + JSL L040C8F + PHX + STA L027ED1 + PLA + STA L027ED3 + BRA L0425BA +L0425A0 LDA $0B + ASL + ASL + ASL + ASL + CLC + ADC #L028814 + PEA ^L028814 + PHA + JSL L02C377 + PHX + STA L027ED1 + PLA + STA L027ED3 +L0425BA LDA $11 + LDX #$0000 + CMP #$0000 + BNE L0425C5 + INX +L0425C5 TXA + BNE L0425D0 + PEA $0000 + PEA $0000 + BRA L0425FB +L0425D0 PEI $18 + PEI $16 + LDA $09 + LDX #$0000 + TAY + BPL L0425DD + DEX +L0425DD CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + LDA #$0001 + LDX #$0000 + TAY + BPL L0425F1 + DEX +L0425F1 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S +L0425FB PLA + STA $05 + PLA + STA $07 + LDA $14 + STA $18 + LDA $13 + STA $17 + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$0016 + TCS + TYA + RTL + +L042616 TSC + SEC + SBC #$000C + TCS + PHD + TCD + LDX L027EC9 + LDA L027EC7 + STX $0B + STA $09 +L042628 LDA [$09] + CMP $10 + BEQ L042684 + LDY #$0008 + LDA [$09],Y + PHA + LDY #$0006 + LDA [$09],Y + PHA + LDA #$0000 + TAX + LDY #$0001 + CMP $01,S + BEQ L042646 + DEY +L042646 TXA + CMP $03,S + BEQ L04264E + LDY #$0000 +L04264E PLA + PLA + TYA + BNE L042664 + LDY #$0008 + LDA [$09],Y + TAX + LDY #$0006 + LDA [$09],Y + STX $0B + STA $09 + BRA L042682 +L042664 LDA $10 + BEQ L042679 + LDX L027EC9 + LDA L027EC7 + STX $0B + STA $09 + LDA #$0000 + STA $10 + BRA L042682 +L042679 LDA #$0000 + STA $05 + STA $07 + BRA L042693 +L042682 BRA L042628 +L042684 LDY #$0004 + LDA [$09],Y + TAX + LDY #$0002 + LDA [$09],Y + STX $07 + STA $05 +L042693 LDA $0E + STA $10 + LDA $0D + STA $0F + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L0426A8 TSC + SEC + SBC #$000C + TCS + PHD + TCD + LDA $10 + STA $09 + STZ $0B + LDA $09 + LDX $0B + STA $05 + STX $07 + LDA $0E + STA $10 + LDA $0D + STA $0F + LDX $07 + LDY $05 + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L0426D3 TSC + SEC + SBC #$006C + TCS + PHD + TCD + LDX $72 + LDA $70 + PHX + PHA + _HLock +* STA L02DD98 + LDY #$0002 + LDA [$70],Y + PHA + LDA [$70] + PHA + TYA + LDX #$0000 + BPL L0426FB + DEX +L0426FB CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + STA $07 + PLA + STA $09 + LDA #$000F + STA $21 + LDA $07 + STA $25 + LDA $09 + STA $27 + LDA #$0000 + STA $29 + STA $2B + STA $47 + STA $49 + PEA $2010 + PEA $0000 + TDC + CLC + ADC #$0021 + PHA + JSL L02C243 + JSL L02CA27 + STA $13 + TAX + BEQ L04275C + PEA $3010 + PEI $13 + JSL L027CEB + LDX $72 + LDA $70 + PHX + PHA + _HUnlock +* STA L02DD98 + LDA $13 + STA $05 + BRL L0429D0 +L04275C LDA #$0001 + STA $0B + PEA $0000 + TDC + CLC + ADC #$000D + PHA + LDA $23 + PLX + STX $01 + PLX + STX $03 + STA [$01] + PHA + PHA + LDA $4B + LDX $4D + PHX + PHA + LDA L024112 + PHA + PEA $0000 + PEA $0000 + PEA $0000 + _NewHandle +* STA L02DD98 + PLA + STA $0F + PLA + STA $11 + JSL L02CA27 + STA $13 + TAX + BEQ L0427DE + PEA $3020 + PEI $13 + JSL L027CEB + PEA $2014 + PEA $0000 + TDC + CLC + ADC #$000B + PHA + JSL L02C243 + PEA $3021 + JSL L02CA27 + PHA + JSL L027CEB + LDX $72 + LDA $70 + PHX + PHA + _HUnlock +* STA L02DD98 + LDA $13 + STA $05 + BRL L0429D0 +L0427DE LDX $11 + LDA $0F + PHX + PHA + _HLock +* STA L02DD98 + LDA #$0004 + STA $5B + PEA $0000 + TDC + CLC + ADC #$005D + PHA + LDA $23 + PLX + STX $01 + PLX + STX $03 + STA [$01] + LDY #$0002 + LDA [$0F],Y + PHA + LDA [$0F] + STA $5F + PLA + STA $61 + LDA $4B + LDX $4D + PHX + STA $63 + PLA + STA $65 + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$005B + PHA + JSL L02C243 + JSL L02CA27 + STA $13 + TAX + BEQ L04288E + PEA $3030 + PEI $13 + JSL L027CEB + PEA $2014 + PEA $0000 + TDC + CLC + ADC #$000B + PHA + JSL L02C243 + PEA $3031 + JSL L02CA27 + PHA + JSL L027CEB + LDX $11 + LDA $0F + PHX + PHA + _DisposeHandle +* STA L02DD98 + PEA $3232 + JSL L02CA27 + PHA + JSL L027CEB + LDX $72 + LDA $70 + PHX + PHA + _HUnlock +* STA L02DD98 + LDA $13 + STA $05 + BRL L0429D0 +L04288E PEA $2014 + PEA $0000 + TDC + CLC + ADC #$000B + PHA + JSL L02C243 + JSL L02CA27 + STA $13 + TAX + BEQ L0428E6 + PEA $3040 + JSL L02CA27 + PHA + JSL L027CEB + LDX $11 + LDA $0F + PHX + PHA + _DisposeHandle +* STA L02DD98 + PEA $3041 + JSL L02CA27 + PHA + JSL L027CEB + LDX $72 + LDA $70 + PHX + PHA + _HUnlock +* STA L02DD98 + LDA $13 + STA $05 + BRL L0429D0 +L0428E6 LDY #$0002 + LDA [$0F],Y + TAX + LDA [$0F] + STX $17 + STA $15 + LDA $4B + LDX $4D + PHX + PHA + PEI $17 + PEI $15 + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $19 + PLA + STA $1B +L04290D PEI $17 + PEI $15 + LDX $1B + LDA $19 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L042921 + TYA + CMP $01,S +L042921 BEQ L042925 + BCS L042926 +L042925 DEX +L042926 PLA + PLA + TXA + BEQ L042953 + LDA $15 + LDX $17 + STA $1D + STX $1F + PEI $1F + PEI $1D + LDA [$1D] + AND #$00FF + AND #$007F + PLX + STX $01 + PLX + STX $03 + SEP #$20 + STA [$01] + REP #$20 + INC $15 + BNE L042951 + INC $17 +L042951 BRA L04290D +L042953 PEA $000D + LDX $11 + LDA $0F + PHX + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L0220FD + PEA L0220FD + PHA + PHA + PHA + PHA + _FrontWindow +* STA L02DD98 + PEA $0000 + PEA $1000 + _GetCtlHandleFromID +* STA L02DD98 + _TESetText +* STA L02DD98 + PEA $3050 + JSL L02CA27 + PHA + JSL L027CEB + LDX $11 + LDA $0F + PHX + PHA + _DisposeHandle +* STA L02DD98 + PEA $3251 + JSL L02CA27 + PHA + JSL L027CEB + LDX $72 + LDA $70 + PHX + PHA + _HUnlock +* STA L02DD98 + LDA #$0000 + STA $05 +L0429D0 LDA $6E + STA $72 + LDA $6D + STA $71 + LDY $05 + PLD + TSC + CLC + ADC #$0070 + TCS + TYA + RTL + +L0429E3 ENT + TSC + SEC + SBC #$0028 + TCS + PHD + TCD + LDA #$0003 + STA $1D + STA $23 + PEA $007D + PEA $0023 + PEA $0000 + PEA ^L042C30 + PEA L042C30 + PEA $0000 + PEA $0000 + PEA ^L02ACEC + PEA L02ACEC + PEA $0000 + TDC + CLC + ADC #$0015 + PHA + _SFGetFile2 +* STA L02DD98 + JSL L02CA27 + STA $13 + PEA $3110 + PEI $13 + JSL L027CEB + LDA $15 + CMP #$0000 + BEQ L042A48 + LDA $13 + BEQ L042A3D + LDA #$0001 +L042A3D EOR #$0001 + CMP #$0000 + BEQ L042A48 + LDA #$0001 +L042A48 TAX + BNE L042A4E + BRL L042C21 +L042A4E _WaitCursor +* STA L02DD98 + LDA $1F + LDX $21 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $0D + STA $0B + PEI $0D + PEI $0B + LDA #$0003 + LDX #$0000 + TAY + BPL L042A7A + DEX +L042A7A CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PEI $0D + PEI $0B + LDA #$0002 + LDX #$0000 + TAY + BPL L042A92 + DEX +L042A92 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + PLX + STX $01 + PLX + STX $03 + SEP #$20 + STA [$01] + REP #$20 + PEI $0D + PEI $0B + LDA #$0003 + LDX #$0000 + TAY + BPL L042AC1 + DEX +L042AC1 CLC + ADC $01,S + STA $01,S + TXA + ADC $03,S + STA $03,S + PLA + STA $0B + PLA + STA $0D + LDA $1F + LDX $21 + PHX + PHA + _HLock +* STA L02DD98 + PHA + PHA + LDX $0D + LDA $0B + PHX + PHA + PEA $0000 + PEA $0000 + PEA ^L026AB5 + PEA L026AB5 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FFB + PEA $800E + _NewWindow2 +* STA L02DD98 + PLA + STA $07 + PLA + STA $09 + PEA $3120 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + PEA $0000 + PEA $000C + LDA L024112 + PHA + PEA $0000 + PEA $0000 + PEA $0000 + _NewHandle +* STA L02DD98 + PLA + STA $0F + PLA + STA $11 + PEA $3122 + JSL L02CA27 + PHA + JSL L027CEB + LDX $11 + LDA $0F + PHX + PHA + LDX $09 + LDA $07 + PHX + PHA + _SetWRefCon +* STA L02DD98 + PEA $3123 + JSL L02CA27 + PHA + JSL L027CEB + LDY #$0002 + LDA [$0F],Y + TAX + LDA [$0F] + STA $01 + STX $03 + LDA #$0000 + STA [$01] + LDA [$0F],Y + PHA + LDA [$0F] + CLC + ADC #$0002 + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y + LDA [$0F],Y + TAX + LDA [$0F] + CLC + ADC #$0006 + STA $01 + STX $03 + LDA #$5754 + STA [$01] + LDA [$0F],Y + PHA + LDA [$0F] + CLC + ADC #$0008 + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y + LDX $09 + LDA $07 + PHX + PHA + _SetPort +* STA L02DD98 + LDA $25 + LDX $27 + PHX + PHA + JSL L0426D3 + STA $13 + LDA $1F + LDX $21 + PHX + PHA + _DisposeHandle +* STA L02DD98 + PEA $3124 + JSL L02CA27 + PHA + JSL L027CEB + LDA $25 + LDX $27 + PHX + PHA + _DisposeHandle +* STA L02DD98 + PEA $3125 + JSL L02CA27 + PHA + JSL L027CEB + _InitCursor +* STA L02DD98 +L042C21 LDA $13 + STA $05 + LDY $05 + PLD + TSC + CLC + ADC #$0028 + TCS + TYA + RTL + +L042C30 STR 'Select a file...' + DB $00 +L042C42 ENT + TSC + SEC + SBC #$000A + TCS + PHD + TCD + PHA + PHA + PHA + PHA + _FrontWindow +* STA L02DD98 + _GetWRefCon +* STA L02DD98 + PLA + STA $07 + PLA + STA $09 + PEA $3210 + JSL L02CA27 + PHA + JSL L027CEB + LDY #$0002 + LDA [$07],Y + TAX + LDA [$07] + STA $01 + STX $03 + LDY #$0006 + LDA [$01],Y + CMP #$5754 + BEQ L042C91 + LDA #$FFFF + STA $05 + BRA L042CD4 +L042C91 LDX $09 + LDA $07 + PHX + PHA + _DisposeHandle +* STA L02DD98 + PEA $3216 + JSL L02CA27 + PHA + JSL L027CEB + PHA + PHA + _FrontWindow +* STA L02DD98 + _CloseWindow +* STA L02DD98 + PEA $3220 + JSL L02CA27 + PHA + JSL L027CEB + LDA #$0000 + STA $05 +L042CD4 LDY $05 + PLD + TSC + CLC + ADC #$000A + TCS + TYA + RTL + diff --git a/genesys/GESEG4.X.S b/genesys/GESEG4.X.S new file mode 100644 index 0000000..c0f85fd --- /dev/null +++ b/genesys/GESEG4.X.S @@ -0,0 +1,122 @@ + +* TFBD generated externals +* (c) PHC 1992,93 + + + EXT L025A27 + EXT L026AB5 + EXT L02C243 + EXT L02CA27 + EXT L027CEB + EXT L02DCF2 + EXT L02D6DE + EXT L02DBC3 + EXT L02C78E + EXT L02C68C + EXT L02ACFE + EXT L02C7C2 + EXT L02C751 + EXT L02DC66 + EXT L02DD98 + EXT L02C277 + EXT L024112 + EXT L027EA9 + EXT L027EA7 + EXT L027EB0 + EXT L027EAF + EXT L027ECF + EXT L027ECD + EXT L027EB7 + EXT L027EB5 + EXT L027ECB + EXT L027EC1 + EXT L027EBF + EXT L028230 + EXT L027EBD + EXT L027EBB + EXT L0280F7 + EXT L0280F5 + EXT L027EEF + EXT L027EED + EXT L0280AF + EXT L0280AD + EXT L0280AB + EXT L027EF3 + EXT L027EF5 + EXT L027EEB + EXT L0280F1 + EXT L027F61 + EXT L0280F3 + EXT L027EB9 + EXT L027EC5 + EXT L027EC3 + EXT L028258 + EXT L02825C + EXT L028260 + EXT L028264 + EXT L028268 + EXT L02826C + EXT L028270 + EXT L028274 + EXT L028278 + EXT L02827C + EXT L027ED5 + EXT L027ED7 + EXT L027F63 + EXT L027F65 + EXT L027F67 + EXT L027F5F + EXT L027EC9 + EXT L027EC7 + EXT L028732 + EXT L028730 + EXT L027F71 + EXT L027F3D + EXT L027F07 + EXT L028854 + EXT L028075 + EXT L0280BD + EXT L027F03 + EXT L0280B5 + EXT L027F05 + EXT L0280B3 + EXT L0280C3 + EXT L0280DF + EXT L0280E1 + EXT L028856 + EXT L028071 + EXT L027ED9 + EXT L027EDB + EXT L028073 + EXT L02809B + EXT L02809D + EXT L027EDD + EXT L027EE1 + EXT L027EDF + EXT L027EB3 + EXT L027ED3 + EXT L027ED1 + EXT L02812B + EXT L027EAB + EXT L027EB1 + EXT L028232 + EXT L02822B + EXT L028266 + EXT L027EAD + EXT L02826A + EXT L0280B1 + EXT L02826E + EXT L028814 + EXT L028772 + EXT L028770 + EXT L028824 + EXT L028878 + EXT L0220FD + EXT L02ACEC + EXT L02CA2C + EXT L026E47 + EXT L02CA0D + EXT L02CA46 + EXT L02D6AD + EXT L02DB10 + EXT L02C377 diff --git a/genesys/MAKE.GENESYS.S b/genesys/MAKE.GENESYS.S new file mode 100644 index 0000000..8010ceb --- /dev/null +++ b/genesys/MAKE.GENESYS.S @@ -0,0 +1,26 @@ +* +* Genesys v1.2.4 +* Make control +* + +* Expansion linker file + + DSK Genesys + TYP $B3 + +* Assemble files + + XPL + + ASM GEMAIN.S + KND $0000 + SNA Genesys + + ASM GESEG3.S + KND $0000 + SNA K_SEIDULE + + ASM GESEG4.S + KND $0000 + SNA K_SEIDULE + diff --git a/genesys/edit/MAKE.CONTROL.S b/genesys/edit/MAKE.CONTROL.S new file mode 100644 index 0000000..66eed57 --- /dev/null +++ b/genesys/edit/MAKE.CONTROL.S @@ -0,0 +1,23 @@ +* +* Genesys v1.2.4 +* Make control +* + +* Expansion linker file + + DSK Control + TYP $BC + +* Assemble files + + XPL + + ASM MMCONTROL.S + KND $0000 + SNA Control + + ASM MMDIALOGS.S + KND $0000 + SNA MMDialogs + + diff --git a/genesys/edit/MAKE.TOOLTABLE.S b/genesys/edit/MAKE.TOOLTABLE.S new file mode 100644 index 0000000..0201e82 --- /dev/null +++ b/genesys/edit/MAKE.TOOLTABLE.S @@ -0,0 +1,19 @@ +* +* Genesys v1.2.4 +* Make tooltable +* + +* Expansion linker file + + DSK ToolTable + TYP $BC + +* Assemble files + + XPL + + ASM TOOLTABLE.S + KND $0000 + SNA ToolTable + + diff --git a/genesys/edit/MMCONTROL.S b/genesys/edit/MMCONTROL.S new file mode 100644 index 0000000..7563622 --- /dev/null +++ b/genesys/edit/MMCONTROL.S @@ -0,0 +1,24537 @@ +* +* Genesys v1.2.4 +* Control editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Line.Macs + use 4/Mem.Macs + use 4/Menu.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Text.Macs + use 4/Util.Macs + use 4/Window.Macs + + use MMCONTROL.X.S + +*---------------------------- + +GSOS EQU $E100A8 + +*---------------------------- + +L020000 LDA $04,S + STA L026C61 + LDA $06,S + STA L026C61+2 + JMPL L02695A + + BRK $69 + RTL + +L020011 PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L020340 + PEA L020340 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L020060 + PEA L020060 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 +* LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L020060 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 L020340 ; content defproc + DW 40 ; content rect + DW $0096 + DW 153 + DW $01EA + ADRL $FFFFFFFF ; starting plane + ADRL L0200B0 ; storage ptr + DW $0003 + +L0200B0 ADRL L0200EC + ADRL L020117 + ADRL L020146 + ADRL L020174 + ADRL L02019E + ADRL L0201CA + ADRL L0201F4 + ADRL L020219 + ADRL L020241 + ADRL L020268 + ADRL L020296 + ADRL L0202C1 + ADRL L0202EA + ADRL L020316 + ADRL L020337 + ADRL L020339 + ADRL $00000000 + +L0200EC DW $0009 ; pCount + ADRL $00000001 ; ID + DW 93 ; rect + DW $00B4 + DW 106 + DW $0118 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020114 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L020114 STR 'Ok' + +L020117 DW $0009 ; pCount + ADRL $00000002 ; ID + DW 93 ; rect + DW $0028 + DW 106 + DW $008C + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02013F ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02013F STR 'Cancel' + +L020146 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0012 ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020166 ; titleRef + DW $0001 ; initialValue +L020166 STR 'Simple Button' + +L020174 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $001C ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020194 ; titleRef + DW $0000 ; initialValue +L020194 STR 'Check box' + +L02019E DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0026 ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0201BE ; titleRef + DW $0000 ; initialValue +L0201BE STR 'Icon button' + +L0201CA DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0030 ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0201EA ; titleRef + DW $0000 ; initialValue +L0201EA STR 'Line edit' + +L0201F4 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $003A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020214 ; titleRef + DW $0000 ; initialValue +L020214 STR 'List' + +L020219 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0044 ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020239 ; titleRef + DW $0000 ; initialValue +L020239 STR 'Picture' + +L020241 DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0012 ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020261 ; titleRef + DW $0000 ; initialValue +L020261 STR 'Pop-up' + +L020268 DW $0008 ; pCount + ADRL $0000000A ; ID + DW $001C ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020288 ; titleRef + DW $0000 ; initialValue +L020288 STR 'Radio control' + +L020296 DW $0008 ; pCount + ADRL $0000000B ; ID + DW $0026 ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0202B6 ; titleRef + DW $0000 ; initialValue +L0202B6 STR 'Scroll bar' + +L0202C1 DW $0008 ; pCount + ADRL $0000000C ; ID + DW $0030 ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0202E1 ; titleRef + DW $0000 ; initialValue +L0202E1 STR 'Size box' + +L0202EA DW $0008 ; pCount + ADRL $0000000D ; ID + DW $003A ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02030A ; titleRef + DW $0000 ; initialValue +L02030A STR 'Static text' + +L020316 DW $0008 ; pCount + ADRL $0000000E ; ID + DW $0044 ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020336 ; titleRef + DW $0000 ; initialValue +L020336 STR 'Text edit' + +L020337 DW $0008 ; pCount + ADRL $0000000F ; ID + DW $004e ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L020338 ; titleRef + DW $0000 ; initialValue +L020338 STR 'Rectangle' + +L020339 DW $0008 ; pCount + ADRL $00000010 ; ID + DW $004e ; rect + DW $00B4 + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02033A ; titleRef + DW $0000 ; initialValue +L02033A STR 'Thermometer' + +L020340 PHD + PHB + PHK + PLB + PEA $0000 + _GetCurResourceFile + LDA L026C65 + PHA + _SetCurResourceFile + PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0014 + PEA $000C + _MoveTo + PEA ^L020391 + PEA L020391 + _DrawString + _SetCurResourceFile + PLB + PLD + RTL + +L020391 STR 'Choose control to create...' + +L0203AD PLA + STA L0203E0 + SEP #$20 + PLA + STA L0203E0+2 + REP #$20 + PLA + SEP #$20 + XBA + PHA + XBA + PLA + ASL + ASL + ASL + ASL + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L0203E0+2 + PHA + REP #$20 + LDA L0203E0 + PHA + TXA + RTL + +L0203E0 ADR $000000 + +L0203E3 ENT + PLA + STA L020416 + SEP #$20 + PLA + STA L020416+2 + REP #$20 + PLA + SEP #$20 + XBA + PHA + LSR + LSR + LSR + LSR + XBA + PLA + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L020416+2 + PHA + REP #$20 + LDA L020416 + PHA + TXA + RTL + +L020416 ADR $000000 + +L020419 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA $1B + BNE L020429 + BRL L0211A0 +L020429 LDX #^L026D83 + LDA #L026D83 + PHX + PHA + LDA #$0100 + PHA + PEA ^L0211B0 + PEA L0211B0 + LDA #$0058 + PHA + JSL L02C5F5 + LDA $1B + PHA + LDA #$000B + DEC + TAX + TXA + CLC + ADC #L026D83 + PEA ^L026D83 + PHA + LDA #$0004 + PHA + _Int2Hex + STA L02C957 + LDA $19 + PHA + LDA #$0014 + DEC + TAX + TXA + CLC + ADC #L026D83 + PEA ^L026D83 + PHA + LDA #$0004 + PHA + _Int2Hex + STA L02C957 + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1F62 + PEA $4B43 + PEA $4548 + PEA $4354 + PEA $4944 + PEA $0001 +L0204A7 PEA $0000 + PEA $0000 + PEA $0200 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0800 + PEA $0000 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $0402 + PEA $FD00 + PEA $0100 + PEA $0100 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1F2A + PEA $0000 + PEA $0000 + PEA $0D08 + PEA $9700 + PEA $0005 + PEA $08EA + PEA $4700 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $08EA + PEA $0200 + PEA $0000 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1EF2 + PEA $0000 + PEA $05A4 + PEA $9700 + PEA $0000 + PEA $0007 + PEA $0000 + PEA $0000 + PEA $0D08 + PEA $0000 + PEA $0000 + PEA $5845 + PEA $5454 + PEA $4944 + PEA $0047 + PEA $000D + PEA $1F0E + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1EBA + PEA $000D + PEA $17E0 + PEA $000D + PEA $1F46 + PEA $000D + PEA $1ED6 + PEA $1F00 + PEA $05A4 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1E9E + PEA $000D + PEA $16B8 + PEA $000D + PEA $1F7E + PEA $000D + PEA $1EBA + PEA $0000 + PEA $08EA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1E82 + PEA $000D + PEA $169C + PEA $0000 + PEA $0000 + PEA $000D + PEA $1E9E + PEA $0200 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1E66 + PEA $000D + PEA $1676 + PEA $0000 + PEA $0000 + PEA $0D07 + PEA $C700 + PEA $000D + PEA $1CDE + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1FEE + PEA $000D + PEA $165A + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $008E + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1E2E + PEA $9D00 + PEA $05A4 + PEA $FD00 + PEA $0D08 + PEA $0001 + PEA $0000 + PEA $0000 + PEA $0D07 + PEA $0000 + PEA $0000 + PEA $08EA + PEA $4700 + PEA $0000 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $0200 + PEA $0000 + PEA $0000 + PEA $2044 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1DF6 + PEA $0200 + PEA $0000 + PEA $0200 + PEA $0000 + PEA $0004 + PEA $0000 + PEA $05A4 + PEA $9700 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0D07 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $5053 + PEA $4944 + PEA $4E4F + PEA $4349 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1DBE + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0004 + PEA $02FA + PEA $0001 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0719 + PEA $0047 + PEA $000D + PEA $1DDA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1D86 + PEA $000D + PEA $163E + PEA $000D + PEA $1E12 + PEA $000D + PEA $1DA2 + PEA $4449 + PEA $06C8 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1D6A + PEA $000D + PEA $1CFA + PEA $000D + PEA $1622 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0005 + PEA $A497 + PEA $000D + PEA $1D4E + PEA $000D + PEA $1D16 + PEA $000D + PEA $1CFA + PEA $000D + PEA $1606 + PEA $0000 + PEA $0000 + PEA $4445 + PEA $0000 + PEA $000D + PEA $0002 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1D32 + PEA $000D + PEA $1D16 + PEA $000D + PEA $15EA + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0001 + PEA $0004 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1D16 + PEA $000D + PEA $15CE + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0008 + PEA $EA47 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1CFA + PEA $000D + PEA $15AC + PEA $000D + PEA $1E4A + PEA $000D + PEA $1D86 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1CDE + PEA $000D + PEA $1590 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1CFA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1CC2 + PEA $000D + PEA $1574 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B3A + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1E66 + PEA $000D + PEA $1558 + PEA $0000 + PEA $0000 + PEA $A489 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1C8A + PEA $4543 + PEA $5255 + PEA $4F53 + PEA $4552 + PEA $0001 + PEA $414D + PEA $0000 + PEA $001E + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $05C4 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $0016 + PEA $0006 + PEA $02F8 + PEA $0001 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1C52 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0004 + PEA $0000 + PEA $0008 + PEA $EA47 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0008 + PEA $EA02 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $4449 + PEA $4C54 + PEA $437A + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1C1A + PEA $0200 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $9700 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0D05 + PEA $6B00 + PEA $0000 + PEA $0047 + PEA $000D + PEA $1C36 + PEA $0000 + PEA $0000 + PEA $4955 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1BE2 + PEA $000D + PEA $153C + PEA $000D + PEA $1C6E + PEA $000D + PEA $1BFE + PEA $0005 + PEA $A489 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1BC6 + PEA $000D + PEA $1B56 + PEA $000D + PEA $1520 + PEA $0000 + PEA $0000 + PEA $5453 + PEA $4543 + PEA $5255 + PEA $4F53 + PEA $000D + PEA $1BAA + PEA $000D + PEA $1B72 + PEA $000D + PEA $1B56 + PEA $000D + PEA $1504 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0004 + PEA $0016 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B8E + PEA $000D + PEA $1B72 + PEA $000D + PEA $14E8 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0586 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B72 + PEA $000D + PEA $14CC + PEA $0000 + PEA $0000 + PEA $000D + PEA $046D + PEA $0020 + PEA $4449 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B56 + PEA $000D + PEA $14AA + PEA $000D + PEA $1CA6 + PEA $000D + PEA $1BE2 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B3A + PEA $000D + PEA $148E + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B56 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1B1E + PEA $000D + PEA $1468 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $000D + PEA $19B2 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1CC2 + PEA $000D + PEA $144C + PEA $0000 + PEA $0000 + PEA $584F + PEA $4245 + PEA $5A49 + PEA $5345 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1AE6 + PEA $0200 + PEA $0000 + PEA $002D + PEA $001D + PEA $0007 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $F600 + PEA $0100 + PEA $0100 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $3E00 + PEA $05A4 + PEA $FD00 + PEA $0D04 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1AAE + PEA $0000 + PEA $0000 + PEA $0000 + PEA $08EA + PEA $0001 + PEA $0D03 + PEA $A400 + PEA $2044 + PEA $0000 + PEA $0000 + PEA $03E6 + PEA $0000 + PEA $0000 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0002 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1A76 + PEA $0000 + PEA $000D + PEA $03D8 + PEA $0000 + PEA $0007 + PEA $E9F1 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $55AE + PEA $0000 + PEA $0000 + PEA $0047 + PEA $0000 + PEA $0000 + PEA $0200 + PEA $0100 + PEA $0200 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1A3E + PEA $0D03 + PEA $AE00 + PEA $0D03 + PEA $9F00 + PEA $0001 + PEA $4142 + PEA $4C4C + PEA $4F52 + PEA $0000 + PEA $0000 + PEA $5255 + PEA $4F53 + PEA $4552 + PEA $0047 + PEA $000D + PEA $1A5A + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1A06 + PEA $000D + PEA $1430 + PEA $000D + PEA $1A92 + PEA $000D + PEA $1A22 + PEA $000D + PEA $0375 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $19EA + PEA $000D + PEA $12A7 + PEA $000D + PEA $1ACA + PEA $000D + PEA $1A06 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $19CE + PEA $000D + PEA $128B + PEA $000D + PEA $1B02 + PEA $000D + PEA $19EA + PEA $0000 + PEA $0600 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $19B2 + PEA $000D + PEA $1269 + PEA $0000 + PEA $0000 + PEA $000D + PEA $19CE + PEA $0000 + PEA $0D03 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1243 + PEA $0000 + PEA $0000 + PEA $0064 + PEA $0000 + PEA $0000 + PEA $0056 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $000D + PEA $0000 + PEA $0000 + PEA $000D + PEA $196E + PEA $0000 + PEA $0000 + PEA $000D + PEA $1227 + PEA $0000 + PEA $0000 + PEA $4C4F + PEA $5254 + PEA $4E4F + PEA $434F + PEA $000D + PEA $1952 + PEA $000D + PEA $1936 + PEA $0000 + PEA $0000 + PEA $000D + PEA $120B + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $1936 + PEA $000D + PEA $11EF + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $02AA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $11D3 + PEA $0008 + PEA $EA47 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $4449 + PEA $4C54 + PEA $4352 + PEA $0046 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0200 + PEA $0200 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0310 + PEA $0000 + PEA $0043 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $3F00 + PEA $0000 + PEA $08E9 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $030F + PEA $0004 + PEA $0043 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0001 + PEA $0002 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + PEA $030E + PEA $0019 + PEA $0043 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0215 + PEA $0000 + PEA $0000 + PEA $000D + PEA $191A + PEA $0000 + PEA $0000 + PEA $4352 + PEA $0000 + PEA $5345 + PEA $0028 + PEA $4B41 + PEA $4D37 + PEA $000C + PEA $0000 + PEA $0001 + PEA $0001 + PEA $000D + PEA $18AA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0311 + PEA $1600 + PEA $0045 + PEA $F300 + PEA $0100 + PEA $0100 + PEA $0400 + PEA $0001 + PEA $0001 + PEA $000D + PEA $188E + PEA $0000 + PEA $0000 + PEA $5A00 + PEA $0312 + PEA $0000 + PEA $0045 + PEA $C900 + PEA $0000 + PEA $08EA + PEA $4700 + PEA $0001 + PEA $0000 + PEA $000D + PEA $1872 + PEA $0000 + PEA $0000 + PEA $4400 + PEA $0312 + PEA $494C + PEA $001F + PEA $0001 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0000 + PEA $000D + PEA $1856 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0002 + PEA $002D + PEA $A497 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0000 + PEA $000D + PEA $183A + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0020 + PEA $0031 + PEA $5501 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + PEA $0000 + PEA $000D + PEA $181E + PEA $0000 + PEA $0000 + PEA $0200 + PEA $0059 + PEA $000E + PEA $004E + PEA $000C + PEA $F837 + PEA $0004 + PEA $0000 + PEA $0D01 + PEA $4E00 + PEA $0D01 + PEA $0007 + PEA $0000 + PEA $000D + PEA $1802 + PEA $000D + PEA $17FC + PEA $5255 + PEA $0000 + PEA $4552 + PEA $0023 + PEA $414D + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0000 + PEA $0104 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0036 + PEA $0016 + PEA $0006 + PEA $02F2 + PEA $0001 + PEA $0001 + PEA $0004 + PEA $0000 + PEA $000D + PEA $0115 + PEA $0005 + PEA $A4FD + PEA $000D + PEA $0193 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0100 + PEA $0000 + PEA $0008 + PEA $EA47 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0008 + PEA $EA02 + PEA $000D + PEA $007B + PEA $0020 + PEA $4449 + PEA $4C54 + PEA $430D + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0600 + PEA $0200 + PEA $0200 + PEA $0000 + PEA $0200 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $05A4 + PEA $9700 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0D00 + PEA $AF00 + PEA $0000 + PEA $08E9 + PEA $F100 + PEA $0000 + PEA $0000 + PEA $2044 + PEA $4955 + PEA $FEE8 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0001 + PEA $0002 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $000D + PEA $0085 + PEA $0005 + PEA $A489 + PEA $0000 + PEA $0000 + PEA $000D + PEA $0085 + PEA $000D + PEA $0076 + PEA $0020 + PEA $5453 + PEA $494C + PEA $4543 + PEA $5255 + PEA $4F53 + PEA $4552 + PEA $454B + PEA $414D + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0000 + PEA $000D + PEA $003C + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0016 + PEA $0006 + PEA $02F1 + PEA $0001 + PEA $0001 + PEA $0004 + PEA $0000 + PEA $000D + PEA $004C + PEA $0005 + PEA $A4FD + PEA $000D + PEA $00CA + PEA $0000 + PEA $0000 + PEA $000D + PEA $003A + PEA $00E0 + PEA $08AA + LDX #^L026D83 + LDA #L026D83 + PHX + PHA + _AlertWindow + STA L02C957 + PLA +* BEQ L0211A0 +* BRL L0211A0 +L0211A0 LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L0211B0 ASC '52~Error $0000 at $0000. Please record and report this Control Editor error to SSSi.~^#0' + +L021208 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA $19 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0050 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA $17 + STA $19 + LDA $16 + STA $18 + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +L0212A0 TSC + SEC + SBC #$0018 + TCS + PHD + INC + TCD + PHA + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L0212B5 + DEX +L0212B5 PHX + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0212D5 + DEX +L0212D5 PHX + PHA + _NewHandle + STA L02C957 + PLA + STA L026C7B + PLA + STA L026C7D + LDA L02C957 + PHA + LDA #$0201 + PHA + JSL L020419 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $16 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8004 + PHA + _UniqueResourceID + STA L02C957 + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L026C7D + LDA L026C7B + PHX + PHA + LDA #$0000 + PHA + LDA #$8004 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _AddResource + STA L02C957 + LDA #$8004 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L02C957 + LDA L02C957 + PHA + LDA #$0205 + PHA + JSL L020419 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $16 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $16 + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +*--- AV 202010 Write a resource + +L0213E0 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + _WaitCursor + STA L02C957 + LDA #$0003 + STA $1A +L0213F8 PHA + PHA + PEA $0000 + PEA $0000 + LDA $1A + CLC + ADC #$0000 + LDX #$0000 + TAY + BPL L02140D + DEX +L02140D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $1C + PLA + STA $1E + PHA + LDX $1E + LDA $1C + PHX + PHA + _GetCtlValue + STA L02C957 + PLA + STA $18 + LDA $18 + BNE L02143A + BRL L02143E +L02143A LDA $1A + STA $16 +L02143E INC $1A + LDA $1A + CMP #$0011 ; AV 202010 was #$0F + BEQ L02144A + BRL L0213F8 +L02144A LDA $16 + CMP #$0003 + BEQ L021454 + BRL L021498 +L021454 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L026E83 + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L02148F + DEX +L02148F STX L026C67+2 + STA L026C67 + BRL L0217C3 +L021498 LDA $16 + CMP #$0004 + BEQ L0214A2 + BRL L0214E6 +L0214A2 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L02703C + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L0214DD + DEX +L0214DD STX L026C67+2 + STA L026C67 + BRL L0217C3 +L0214E6 LDA $16 + CMP #$0005 + BEQ L0214F0 + BRL L021534 +L0214F0 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0271FA + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L02152B + DEX +L02152B STX L026C67+2 + STA L026C67 + BRL L0217C3 + +L021534 LDA $16 + CMP #$0006 + BEQ L02153E + BRL L021582 +L02153E LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0273FE ; Write line edit + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L021579 + DEX +L021579 STX L026C67+2 + STA L026C67 + BRL L0217C3 + +L021582 LDA $16 + CMP #$0007 + BEQ L02158C + BRL L0215D0 +L02158C LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0275BC + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L0215C7 + DEX +L0215C7 STX L026C67+2 + STA L026C67 + BRL L0217C3 +L0215D0 LDA $16 + CMP #$0008 + BEQ L0215DA + BRL L02161E +L0215DA LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0276C8 + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L021615 + DEX +L021615 STX L026C67+2 + STA L026C67 + BRL L0217C3 +L02161E LDA $16 + CMP #$0009 + BEQ L021628 + BRL L02166C +L021628 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L027E8C + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L021663 + DEX +L021663 STX L026C67+2 + STA L026C67 + BRL L0217C3 +L02166C LDA $16 + CMP #$000A + BEQ L021676 + BRL L0216BA +L021676 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L028298 + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L0216B1 + DEX +L0216B1 STX L026C67+2 + STA L026C67 + BRL L0217C3 +L0216BA LDA $16 + CMP #$000B + BEQ L0216C4 + BRL L0216F2 +L0216C4 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L028459 + BRL L0217C3 +L0216F2 LDA $16 + CMP #$000C + BEQ L0216FC + BRL L02172A +L0216FC LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L028560 + BRL L0217C3 + +L02172A LDA $16 + CMP #$000D + BEQ L021734 + BRL L021778 + +L021734 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L02865D + LDA #$0000 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L02176F + DEX +L02176F STX L026C67+2 + STA L026C67 + BRL L0217C3 + +L021778 LDA $16 + CMP #$000E + bne checkRECTANGLE + + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + pha + LDY #$0038 + LDA [$00],Y + pha + JSL L028818 + stz L026C6B + stz L026C67+2 + stz L026C67 + brl L0217C3 + +*--- AV 202010 - Add Rectangle and Thermometer + +checkRECTANGLE + LDA $16 ; Rectangle + CMP #$000F + bne checkTHERMOMETER + + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + pha + LDY #$0038 + LDA [$00],Y + pha + JSL writeRECTANGLE + stz L026C6B + stz L026C67+2 + stz L026C67 + bra L0217C3 + +checkTHERMOMETER + LDA $16 ; Thermometer + CMP #$0010 + bne L0217C3 + + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + pha + LDY #$0038 + LDA [$00],Y + pha + JSL writeTHERMOMETER + stz L026C6B + stz L026C67+2 + stz L026C67 + +*--- end of AV 202010 + +L0217C3 LDA $16 + STA L026C31 + _InitCursor + STA L02C957 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L0217DA TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _SetPort + STA L02C957 + PHA + PHA + LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _FindHandle + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDX $18 + LDA $16 + PHX + PHA + _DisposeHandle + STA L02C957 + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L021833 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + LDA #$000E + LDX #$0000 + TAY + BPL L021848 + DEX +L021848 PHX + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + CLC + ADC #$4000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L02186C + DEX +L02186C PHX + PHA + _NewHandle + STA L02C957 + PLA + STA L026C77 + PLA + STA L026C79 + LDA L02C957 + PHA + LDA #$0501 + PHA + JSL L020419 + LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $08 + STA $06 + PEI $08 + PEI $06 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDY #$0002 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDY #$0006 + LDA #$0001 + STA [$06],Y + PHA + PHA + _FrontWindow + STA L02C957 + LDY #$0008 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDY #$000C + LDA #$0000 + STA [$06],Y + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L02190D TSC + SEC + SBC #$0026 + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $24 + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $20 + PLA + STA $22 + LDA L02C957 + PHA + LDA #$0601 + PHA + JSL L020419 + LDX $22 + LDA $20 + PHX + PHA + _HLock + STA L02C957 + +* PHA + + LDY #$0002 + LDA [$20],Y + TAX + LDA [$20] + STA $00 + STX $02 + + LDY #$0010 + LDA [$00],Y +* TAX + sta theDEFPROC+2 + LDY #$000E + LDA [$00],Y + sta theDEFPROC +* PHX +* PHA +* _HiWord +* STA L02C957 +* PLA +* STA $16 + + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $24 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $24 +* LDX $16 + PLD + TSC + CLC + ADC #$0026 + TCS +* TXA + lda theDEFPROC+2 + ldx theDEFPROC + + RTL + +theDEFPROC ds 4 ; we have the defproc here now + +*--- From the resource to the control management window + +L0219F9 TSC + SEC + SBC #$0018 + TCS + PHD + INC + TCD + JSL L02190D ; get the resource defproc + STA $16 ; A has the high word + ; X has the low word + CMP #$07FF ; Icon + bne L021A30 +L021A12 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L030057 ; Icon control - from the resource to the window + BRL L021C04 + +L021A30 CMP #$8000 + bne L021A58 +L021A3A LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L030853 + BRL L021C04 + +L021A58 CMP #$8100 + bne L021A80 +L021A62 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L030B5F + BRL L021C04 + +L021A80 CMP #$8200 + bne L021AA8 +L021A8A LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L030E51 + BRL L021C04 + +L021AA8 CMP #$8300 ; Line Edit control - from the resource to the window + bne L021AD0 +L021AB2 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0310E1 ; show window + BRL L021C04 + +L021AD0 CMP #$8400 + bne L021AF8 +L021ADA LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L03143D + BRL L021C04 + +L021AF8 CMP #$8500 + bne L021B30 +L021B02 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + JSL L03171C + BRL L021C04 + +L021B30 CMP #$8600 + bne L021B58 +L021B3A LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0322D6 + BRL L021C04 + +L021B58 CMP #$8700 + bne L021B80 +L021B62 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0327DA + BRL L021C04 + +L021B80 CMP #$8800 + bne L021BA8 +L021B8A LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L032B88 + BRL L021C04 + +L021BA8 CMP #$8900 + bne L021BD0 +L021BB2 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L032D53 + BRL L021C04 + +L021BD0 CMP #$8D00 + bne L021BD1 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L032F4A + BRL L021C04 + +* AV 202010 - Add Rectangle and Thermometer + +L021BD1 cmp #$87FF + bne L021BF8 + cpx #$0002 ; $87FF0002 + bne L021BD2 + + LDX L026C61+2 ; we have a thermometer + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL doTHERMOMETER + bra L021C04 + +L021BD2 cpx #$0003 ; $87FF0003 + bne L021BF8 + + LDX L026C61+2 ; we have a rectangle + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL doRECTANGLE + bra L021C04 + +*--- + +L021BF8 LDA L02C957 + PHA + LDA #$0701 + PHA + JSL L020419 + +L021C04 JSL L021833 + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _ShowWindow + STA L02C957 + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _SetPort + STA L02C957 + LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$000C + STA $00 + STX $02 + LDA $16 + STA [$00] + LDX L026C79 + LDA L026C77 + PHX + PHA + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _SetWRefCon + STA L02C957 + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +L021C6C TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + JSL L0212A0 + JSL L021833 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$0400 + BNE L021C94 + BRL L021CB6 +L021C94 LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$000C + STA $00 + STX $02 + LDA #$0001 + STA [$00] + BRL L021CD5 +L021CB6 LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$000C + STA $00 + STX $02 + LDA #$0002 + STA [$00] +L021CD5 JSL L020011 + LDX L026C79 + LDA L026C77 + PHX + PHA + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _SetWRefCon + STA L02C957 + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _ShowWindow + STA L02C957 + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA L026C31 + LDX #$0000 + TAY + BPL L021D1B + DEX +L021D1B PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L021D39 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _SetPort + STA L02C957 + PHA + PHA + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _GetWRefCon + STA L02C957 + PLA + STA L026C77 + PLA + STA L026C79 + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L021D8C TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + JSL L0217DA + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _CloseWindow + STA L02C957 + LDA #$0100 + PHA + _DisableMItem + STA L02C957 + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L021DC1 TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PHA + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L021DD6 + DEX +L021DD6 PHX + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L021DF6 + DEX +L021DF6 PHX + PHA + _NewHandle + STA L02C957 + PLA + STA $20 + PLA + STA $22 + LDA L02C957 + PHA + LDA #$0B01 + PHA + JSL L020419 + LDX #^L026C83 + LDA #L026C83 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L021DC1 + PEA L021DC1 + LDA #$0000 + PHA + JSL L02C5F5 + LDA #$0000 + TAX + TXA + CLC + ADC #L026C83 + PEA ^L026C83 + PHA + LDY #$0002 + LDA [$20],Y + PHA + LDA [$20] + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L021E4E + DEX +L021E4E PHX + PHA + _BlockMove + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8006 + PHA + _UniqueResourceID + STA L02C957 + PLA + STA $24 + PLA + STA $26 + LDX $22 + LDA $20 + PHX + PHA + LDA #$0000 + PHA + LDA #$8006 + PHA + LDX $26 + LDA $24 + PHX + PHA + _AddResource + STA L02C957 + LDA #$8006 + PHA + LDX $26 + LDA $24 + PHX + PHA + _WriteResource + STA L02C957 + LDA L02C957 + PHA + LDA #$0B05 + PHA + JSL L020419 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDX $26 + LDA $24 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $28 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDX $26 + LDA $24 + STX $18 + STA $16 + LDX $18 + LDY $16 + PLD + TSC + CLC + ADC #$002A + TCS + TYA + RTL + +L021F06 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + PHA + PEA $0000 + PEA $0000 + LDX $27 + LDA $25 + PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L026C6D+2 + STA L026C6D + PHA + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L026C73 + PLA + STA L026C75 + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L026C71 + LDX #^L026C83 + LDA #L026C83 + PHX + PHA + LDA #$FF01 + PHA + LDX L026C75 + LDA L026C73 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L02C5F5 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDA #$8006 + PHA + LDX $23 + LDA $21 + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$0C04 + PHA + JSL L020419 + LDX $18 + LDA $16 + PHX + PHA + _HUnlock + STA L02C957 + LDA L026C71 + CLC + ADC #$0001 + LDX #$0000 + TAY + BPL L021FFC + DEX +L021FFC PHX + PHA + LDX $18 + LDA $16 + PHX + PHA + _SetHandleSize + STA L02C957 + LDA L02C957 + PHA + LDA #$0C06 + PHA + JSL L020419 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDX #^L026C71 + LDA #L026C71 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L022045 + DEX +L022045 PHX + PHA + _BlockMove + STA L02C957 + LDA L026C71 + STA $06 + LDA #$0001 + STA $1A + LDA $06 + SEC + SBC $1A + BVS L022065 + EOR #$8000 +L022065 BMI L02206A + BRL L0220A1 +L02206A LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $1A + CLC + ADC $01,S + STA $01,S + LDA $1A + SEC + SBC #$0001 + TAX + LDA L026C83,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $1A + BNE L02209C + BRL L0220A1 +L02209C INC $1A + BRL L02206A +L0220A1 LDA #$0001 + PHA + LDA #$8006 + PHA + LDX $23 + LDA $21 + PHX + PHA + _MarkResourceChange + STA L02C957 + LDA #$8006 + PHA + LDX $23 + LDA $21 + PHX + PHA + _WriteResource + STA L02C957 + LDA L02C957 + PHA + LDA #$0C09 + PHA + JSL L020419 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDX $23 + LDA $21 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDA $1F + STA $27 + LDA $1E + STA $26 + PLD + TSC + CLC + ADC #$0026 + TCS + RTL + +L022116 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + PHA + PEA $0000 + PEA $0000 + LDX $25 + LDA $23 + PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L026C6D+2 + STA L026C6D + PHA + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L026C73 + PLA + STA L026C75 + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L026C71 + PHA + PHA + LDX L026C75 + LDA L026C73 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA L026C71 + PHA + _Hex2Long + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA $21 + STA $25 + LDA $20 + STA $24 + LDX $18 + LDY $16 + PLD + TSC + CLC + ADC #$0024 + TCS + TYA + RTL + +L0221CB TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + PHA + PEA $0000 + PEA $0000 + LDX $27 + LDA $25 + PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L026C6D+2 + STA L026C6D + PHA + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L026C73 + PLA + STA L026C75 + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L026C71 + LDA $23 + BNE L022249 + BRL L022271 +L022249 PHA + LDX L026C75 + LDA L026C73 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA L026C71 + PHA + _Hex2Int + STA L02C957 + PLA + STA $16 + BRL L0222DF +L022271 LDX #^L026C71 + LDA #L026C71 + PHX + PHA + LDX #^L026C83 + LDA #L026C83 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L02228B + DEX +L02228B PHX + PHA + _BlockMove + STA L02C957 + LDX L026C75 + LDA L026C73 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$0001 + TAX + TXA + CLC + ADC #L026C83 + PEA ^L026C83 + PHA + LDA L026C71 + LDX #$0000 + TAY + BPL L0222C1 + DEX +L0222C1 PHX + PHA + _BlockMove + STA L02C957 + LDX #^L026C83 + LDA #L026C83 + PHX + PHA + LDA #$FF01 + PHA + JSL L02C4A4 + STA $16 +L0222DF LDA $21 + STA $27 + LDA $20 + STA $26 + LDX $16 + PLD + TSC + CLC + ADC #$0026 + TCS + TXA + RTL + +L0222F2 TSC + SEC + SBC #$0018 + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $16 + LDA #$0001 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L02C957 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L02C957 + LDA L02C957 + PHA + LDA #$0F02 + PHA + JSL L020419 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $16 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $16 + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +*--- Icon control management (from the control window to the resource) + +L0223F9 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + +* AV 202010 + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda [$00] ; check pCount + cmp #12 ; if already 12 + bcs nci12P ; we are good + + pha + pha + pei $18 + pei $16 + _GetHandleSize + plx + ply + cpy #0 + bne nci12P ; check size of $30 + cpx #48 ; we have the right size + bcs nci12P + + pei $18 ; size is < $30 bytes + pei $16 + _HUnlock + + pea $0000 ; make it $30 bytes long + pea $0030 + pei $18 + pei $16 + _SetHandleSize + +*--- + +nci12P + LDA L02C957 + PHA + LDA #$1001 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L02248C + DEX +L02248C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L026C6D+2 + STA L026C6D + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L026C71 + LDA L026C71 + BMI L0224DA + DEC + BPL L0224DD +L0224DA BRL L02269C +L0224DD LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BEQ L0224FD + BVS L0224FB + EOR #$8000 +L0224FB BMI L022500 +L0224FD BRL L0225A0 +L022500 LDX $18 + LDA $16 + PHX + PHA + _HUnlock + STA L02C957 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L02C957 + LDA #$0004 + LDX #$0000 + TAY + BPL L02252C + DEX +L02252C PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDX $18 + LDA $16 + PHX + PHA + _SetHandleSize + STA L02C957 + LDA L02C957 + PHA + LDA #$1004 + PHA + JSL L020419 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0008 ; Eight parms? + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L022580 + DEX +L022580 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L0225A0 PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _HiWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BNE L0225CE + INX +L0225CE TXA + PHA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _LoWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BNE L0225FE + INX +L0225FE TXA + AND $01,S + PLX + TAX + BNE L022608 + BRL L02262C +L022608 JSL L021DC1 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L02262C LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$0002 + BEQ L022645 + BRL L022670 +L022645 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022670 LDA #$000C + LDX #$0000 + TAY + BPL L02267A + DEX +L02267A PHX + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + JSL L021F06 + BRL L022726 +L02269C LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + SEC + SBC #$0008 + BVS L0226B3 + EOR #$8000 +L0226B3 BMI L0226B8 + BRL L022726 +L0226B8 LDA #$0000 + LDX #$0000 + TAY + BPL L0226C2 + DEX +L0226C2 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$0002 + BNE L0226FB + BRL L022726 +L0226FB LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + EOR #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022726 LDA #$000E + LDX #$0000 + TAY + BPL L022730 + DEX +L022730 PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0012 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + +*--- AV 202010 - Handle the icon invisible flag bit 7 + + ldy #2 ; points to the control record + lda [$16],y + sta $02 + lda [$16] + sta $00 + + lda [$00] ; if 11 parms + cmp #11 ; do not erase + bcs nci11P ; the key equivalent + + lda #0 ; init values + ldy #$28 + sta [$00],y + iny + iny + sta [$00],y + iny + iny + sta [$00],y + +nci11P + lda #12 ; and force 12 parms now + sta [$00] + + ldy #$2e + lda #0 + sta [$00],y + +*--- Bit 7 + + pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $0012 + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq icnBIT7 + lda [$00],y ; set bit + ora #%00000000_10000000 + sta [$00],y + bne icnNOBIT7 +icnBIT7 lda [$00],y ; reset bit + and #%11111111_01111111 + sta [$00],y + +icnNOBIT7 + +*--- Bit 3 + + pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $0013 + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq icnBIT3 + lda [$00],y ; set bit + ora #%00000000_00001000 + sta [$00],y + bne icnNOBIT3 +icnBIT3 lda [$00],y ; reset bit + and #%11111111_11110111 + sta [$00],y + +icnNOBIT3 + +*--- Bit 4 - sticky icons + + pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $0014 + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq icnBIT4 + lda [$00],y ; set bit + ora #%00000000_00010000 + sta [$00],y + +* Get the radio button value and set as the default value +* ID $15 is the off button. If off is selected, its value is 1, so we record 0, meaning sticky is set but value is 0 + + pha ; check off is selected + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $0015 + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + pla + eor #$0001 ; 1 off becomes 0, 0 becomes 1 + bra icnNOSTICK + +*--- Sticky is not selected + +icnBIT4 lda [$00],y ; reset bit + and #%11111111_11101111 + sta [$00],y + + lda #0 ; set the initial value to 0 as Sticky is not checked + +icnNOSTICK + ldy #$2e ; set the initial value + sta [$00],y + +icnNOBIT4 + +*--- + + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0012 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02279A + BRL L0227C5 +L02279A LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + +*--- The rest of the code + +L0227C5 PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0227F4 + BRL L022905 +L0227F4 PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L022823 + BRL L02284E +L022823 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02284E PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L022861 + DEX +L022861 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02287D + BRL L0228A8 +L02287D LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0228A8 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0007 + LDX #$0000 + TAY + BPL L0228BB + DEX +L0228BB PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0228D7 + BRL L022902 +L0228D7 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0003 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022902 BRL L022930 +L022905 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0004 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022930 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L02293C TSC + SEC + SBC #$002C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $2A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $24 + PLA + STA $26 + LDA L02C957 + PHA + LDA #$5001 + PHA + JSL L020419 + PHA + LDA $2A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $2A + LDX $26 + LDA $24 + PHX + PHA + _HLock + STA L02C957 + PHA + PHA + _FrontWindow + STA L02C957 + _SetPort + STA L02C957 + LDA #$001B + STA L026C47+2 + LDA #$2006 + STA L026C47 +L0229DF LDA #$0000 + STA $16 + PHA + LDA #$FFFF + PHA + LDX #^L026C33 + LDA #L026C33 + PHX + PHA + _TaskMaster + STA L02C957 + PLA + STA $18 + LDA $18 + CMP #$0021 + BEQ L022A08 + BRL L022F22 +L022A08 PHA + LDX L026C5B + LDA L026C59 + PHX + PHA + _LoWord + STA L02C957 + PLA + STA $22 + LDA $22 + BRL L022EF8 +L022A23 LDA #$0001 + STA $16 + BRL L022F22 +L022A2B LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0004 + BNE L022A44 + BRL L022A6F +L022A44 LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + EOR #$0004 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022A6F PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L022A82 + DEX +L022A82 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L022A9E + BRL L022AC9 +L022A9E LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + ORA #$0004 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022AC9 BRL L022F22 +L022ACC LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0002 + BNE L022AE5 + BRL L022B10 +L022AE5 LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + EOR #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022B10 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0004 + LDX #$0000 + TAY + BPL L022B23 + DEX +L022B23 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L022B3F + BRL L022B6A +L022B3F LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022B6A BRL L022F22 +L022B6D LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0001 + BNE L022B86 + BRL L022BB1 +L022B86 LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + EOR #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022BB1 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0005 + LDX #$0000 + TAY + BPL L022BC4 + DEX +L022BC4 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L022BE0 + BRL L022C0B +L022BE0 LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L022C0B BRL L022F22 +L022C0E LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$F000 + STA $28 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0138 + PHA + LDA #$0008 + PHA + LDA #$015C + PHA + LDA #$0016 + PHA + _SetRect + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0138 + PHA + LDA #$0008 + PHA + LDA #$015C + PHA + LDA #$0016 + PHA + _SetRect + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0000 + PHA + LDA $28 + PHA + JSL L0203E3 + PHA + _SpecialRect + STA L02C957 + BRL L022F22 +L022C8C LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0F00 + STA $28 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0138 + PHA + LDA #$0008 + PHA + LDA #$015C + PHA + LDA #$0016 + PHA + _SetRect + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0000 + PHA + LDA $28 + PHA + JSL L0203AD + PHA + _SpecialRect + STA L02C957 + BRL L022F22 +L022CE7 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0007 + LDX #$0000 + TAY + BPL L022CFA + DEX +L022CFA PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L022D16 + BRL L022E05 +L022D16 LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$F0FF + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + PHA + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA $22 + LDX #$0000 + TAY + BPL L022D55 + DEX +L022D55 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlRefCon + STA L02C957 + _LoWord + STA L02C957 + PLA + STA $28 + LDA $28 + ASL + ASL + ASL + ASL + ASL + ASL + ASL + ASL + STA $28 + LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + ORA $28 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0138 + PHA + LDA #$0008 + PHA + LDA #$015C + PHA + LDA #$0016 + PHA + _SetRect + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0F00 + PHA + JSL L0203AD + PHA + _SpecialRect + STA L02C957 + BRL L022EF5 +L022E05 LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0FFF + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + PHA + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA $22 + LDX #$0000 + TAY + BPL L022E44 + DEX +L022E44 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlRefCon + STA L02C957 + _LoWord + STA L02C957 + PLA + STA $28 + LDA $28 + ASL + ASL + ASL + ASL + ASL + ASL + ASL + ASL + ASL + ASL + ASL + ASL + STA $28 + LDY #$0002 + LDA [$24],Y + PHA + LDA [$24] + PHA + PLA + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + ORA $28 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0138 + PHA + LDA #$0008 + PHA + LDA #$015C + PHA + LDA #$0016 + PHA + _SetRect + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$24],Y + TAX + LDA [$24] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$F000 + PHA + JSL L0203E3 + PHA + _SpecialRect + STA L02C957 +L022EF5 BRL L022F22 +L022EF8 SEC + SBC #$0001 + CMP #$0007 + BCC L022F04 + LDA #$0007 +L022F04 ASL + TAX + LDAL L022F12,X + BEQ L022F0E + PHA + RTS + +L022F0E JSL L02C9E9 + +L022F12 DA L022A23-1 + DA L022A23-1 + DA L022A2B-1 + DA L022ACC-1 + DA L022B6D-1 + DA L022C0E-1 + DA L022C8C-1 + DA L022CE7-1 + +L022F22 LDA $18 + CMP #$0014 + BEQ L022F2C + BRL L022F7A +L022F2C PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L02C957 + LDA #$0000 + PHA + LDA L026C3F + PHA + LDA L026C3D + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDX L026C43+2 + LDA L026C43 + PHX + PHA + _DragWindow + STA L02C957 +L022F7A LDA $16 + BNE L022F81 + BRL L0229DF +L022F81 PHA + PHA + _FrontWindow + STA L02C957 + _CloseWindow + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $2A + LDA $22 + CMP #$0001 + BEQ L022FB3 + BRL L023025 +L022FB3 LDA #$0001 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L02C957 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L02C957 + LDA L02C957 + PHA + LDA #$5003 + PHA + JSL L020419 +L023025 LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $2A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $2A + PLD + TSC + CLC + ADC #$002C + TCS + RTL + +L023077 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA +L0230A4 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1101 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0009 + LDX #$0000 + TAY + BPL L023102 + DEX +L023102 PHX + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + JSL L021F06 + pea $0000 + pea $000b + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0012 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L023179 + DEX +L023179 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023195 + BRL L0231C0 +L023195 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 ; set invisible bit + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0231C0 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0007 + LDX #$0000 + TAY + BPL L0231D3 + DEX +L0231D3 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0231EF + BRL L02321A +L0231EF LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02321A PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0006 + LDX #$0000 + TAY + BPL L02322D + DEX +L02322D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023249 + BRL L023274 +L023249 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023274 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0005 + LDX #$0000 + TAY + BPL L023287 + DEX +L023287 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0232A3 + BRL L0232CE +L0232A3 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0003 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0232CE JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +*--- AV 202010 Stat text controls - From the window to the control resource + +L0232DA TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1201 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0004 + LDX #$0000 + TAY + BPL L023365 + DEX +L023365 PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + + ldy #2 ; points to the control record + lda [$16],y + sta $02 + lda [$16] + sta $00 + +*--- Bit 7 + + pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000d + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq noBIT7 + lda [$00],y ; set bit + ora #%00000000_10000000 + sta [$00],y + bne doBIT1 +noBIT7 lda [$00],y ; reset bit + and #%11111111_01111111 + sta [$00],y + +*--- Bit 1 + +doBIT1 pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000c + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq noBIT1 + lda [$00],y ; set bit + ora #%00000000_00000010 + sta [$00],y + bne doBIT2 +noBIT1 lda [$00],y ; reset bit + and #%11111111_11111101 + sta [$00],y + +*--- Bit 2 + +doBIT2 pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $0010 + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq noBIT2 + lda [$00],y ; set bit + ora #%00000000_00000100 + sta [$00],y + bne doBIT3 +noBIT2 lda [$00],y ; reset bit + and #%11111111_11111011 + sta [$00],y + +*--- Bit 3 + +doBIT3 pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000f + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq noBIT3 + lda [$00],y ; set bit + ora #%00000000_00001000 + sta [$00],y + bne doBIT4 +noBIT3 lda [$00],y ; reset bit + and #%11111111_11110111 + sta [$00],y + +*--- Bit 4 + +doBIT4 pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000e + _GetCtlHandleFromID + sta L02C957 + _GetCtlValue + sta L02C957 + ldy #$12 + pla + beq noBIT4 + lda [$00],y ; set bit + ora #%00000000_00010000 + sta [$00],y + bne doBIT5 +noBIT4 lda [$00],y ; reset bit + and #%11111111_11101111 + sta [$00],y + +doBIT5 + +*--- End of work + +L023500 LDX $18 + LDA $16 + PHX + PHA + _HUnlock + STA L02C957 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L02C957 + LDA #$0002 + LDX #$0000 + TAY + BPL L02352C + DEX +L02352C PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDX $18 + LDA $16 + PHX + PHA + _SetHandleSize + STA L02C957 + LDA L02C957 + PHA + LDA #$1204 + PHA + JSL L020419 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L02357A LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L02359A + BVS L023598 + EOR #$8000 +L023598 BMI L02359D +L02359A BRL L023602 +L02359D LDX $18 + LDA $16 + PHX + PHA + _HUnlock + STA L02C957 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L02C957 + LDA #$0002 + LDX #$0000 + TAY + BPL L0235C9 + DEX +L0235C9 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDX $18 + LDA $16 + PHX + PHA + _SetHandleSize + STA L02C957 + LDA L02C957 + PHA + LDA #$1207 + PHA + JSL L020419 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 +L023602 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0009 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0020 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L02363B + DEX +L02363B PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023657 + BRL L02366F +L023657 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0020 + STA $00 + STX $02 + LDA #$0002 + STA [$00] + BRL L023701 +L02366F PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L023682 + DEX +L023682 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02369E + BRL L0236BA +L02369E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0020 + STA $00 + STX $02 + LDA #$0001 + EOR #$FFFF + INC + STA [$00] + BRL L023701 +L0236BA PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L0236CD + DEX +L0236CD PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0236E9 + BRL L023701 +L0236E9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0020 + STA $00 + STX $02 + LDA #$0001 + STA [$00] + BRL L023701 +L023701 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L02370D TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1301 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0005 + LDX #$0000 + TAY + BPL L023798 + DEX +L023798 PHX + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + JSL L021F06 + LDA #$0007 + LDX #$0000 + TAY + BPL L0237C1 + DEX +L0237C1 PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L0237FA + DEX +L0237FA PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023816 + BRL L023844 +L023816 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L023890 +L023844 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L02385D + BRL L023890 +L02385D LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023890 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0238D4 + BRL L0238E9 +L0238D4 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0001 + STA [$00] +L0238E9 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +*--- Line Edit control template feedback (from the window to the resource) + +L0238F5 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 ; return the handle to the resource + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1401 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 ; lock handle + LDA $16 + PHX + PHA + _HLock + STA L02C957 + +*--- AV 202010 - Add the extra parm + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda [$00] ; check pCount + cmp #10 ; if already 10 + bcs le10P ; we are good + + pha + pha + pei $18 + pei $16 + _GetHandleSize + plx + ply + cpy #0 + bne le10P ; check size of 32+2+2 + cpx #$24 ; we have the right size + bcs le10P + + pei $18 ; size is < $24 bytes + pei $16 + _HUnlock + + pea $0000 ; make it $24 bytes long + pea $0024 + pei $18 + pei $16 + _SetHandleSize + + pei $18 ; lock it + pei $16 + _HLock + + lda [$00] ; if we have 9 parms + cmp #9 ; add parm 10 only + bcs le9P + + ldy #$20 ; pwChar + lda #$ffff ; default password character + sta [$00],y + +le9P ldy #$22 ; keyMask + lda #$0001 + sta [$00],y + + lda #10 ; 10 parms now + sta [$00] + +*--- + +le10P + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + _HiWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BNE L0239A4 + INX +L0239A4 TXA + PHA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + _LoWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BNE L0239D4 + INX +L0239D4 TXA + AND $01,S + PLX + TAX + BNE L0239DE + BRL L023A02 +L0239DE JSL L021DC1 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001C + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L023A02 LDA #$0006 ; Text value + LDX #$0000 + TAY + BPL L023A0C + DEX +L023A0C PHX + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + JSL L021F06 + LDA #$0008 ; refCon value + LDX #$0000 + TAY + BPL L023A35 + DEX +L023A35 PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001A + PHA + LDA #$0004 ; maxChars value + LDX #$0000 + TAY + BPL L023A74 + DEX +L023A74 PHX + PHA + LDA #$0000 + PHA + JSL L0221CB + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001A + LDA [$00],Y + SEC + SBC #$00FF + BEQ L023AA4 + BVS L023AA2 + EOR #$8000 +L023AA2 BMI L023AA7 +L023AA4 BRL L023ABC +L023AA7 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001A + STA $00 + STX $02 + LDA #$00FF + STA [$00] +L023ABC LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001A + LDA [$00],Y + PHA + LDA #$0000 + SEC + SBC $01,S + PLY + TAY + BEQ L023ADF + BVS L023ADD + EOR #$8000 +L023ADD BMI L023AE2 +L023ADF BRL L023AF7 +L023AE2 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L023AF7 PHA ; the invisible bit + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000C + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023B26 + BRL L023B54 +L023B26 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L023BA0 + +L023B54 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L023B6D + BRL L023BA0 +L023B6D LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + +*--- AV 202010 - Handle the new fields + +L023BA0 + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + PHA ; the Not a password checkbox + PHA ; if set, we put a #$FFFF in pwChar + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000f + _GetCtlHandleFromID + _GetCtlValue + pla + cmp #1 + bne L023BA1 ; it is not checked, verify the pwChar value + + ldy #$20 ; Not a password is checked + lda #-1 ; save the value + sta [$00],y + bra L023BA3 ; we skip the rest + +L023BA1 + pha ; pwChar value + pha + pea $0000 + pea $0000 + pea $0000 + pea $000e + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + ; we do not init the value + + pha ; from a hex string to a int value + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0004 + _Hex2Int + pla + bcs L023BA3 + + ldy #$20 ; value is valid + sta [$00],y ; save it + +*--- + +L023BA3 + pha ; keyMask value + pha + pea $0000 + pea $0000 + pea $0000 + pea $0011 + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + ldy #$22 ; set the default value + lda #$0001 + sta [$00],y + + pha ; from a hex string to a int value + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0004 + _Hex2Int + pla + bcs L023BA5 + + ldy #$22 ; value is valid + sta [$00],y ; save it + +*--- + +L023BA5 + PHA ; password chekbox + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0003 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023BCF + BRL L023BFA +L023BCF LDY #$0002 ; is checked + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001A + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001A + LDA [$00],Y + ORA #$8000 ; set bit 15 of the maxSize field + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023BFA JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +thePOINTER ds 4 ; pointer to the pwCHAR on feedback +thePWCHAR ds 2 ; the returned value +theKEYMASK ds 2 ; the second returned value + +*--- + +L023C06 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1501 + PHA + JSL L020419 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0005 + LDX #$0000 + TAY + BPL L023C91 + DEX +L023C91 PHX + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + JSL L021F06 + LDA #$0009 + LDX #$0000 + TAY + BPL L023CBA + DEX +L023CBA PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDA #$0007 + LDX #$0000 + TAY + BPL L023CF9 + DEX +L023CF9 PHX + PHA + LDA #$0000 + PHA + JSL L0221CB + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + SEC + SBC #$007F + BEQ L023D29 + BVS L023D27 + EOR #$8000 +L023D27 BMI L023D2C +L023D29 BRL L023D41 +L023D2C LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0012 + STA $00 + STX $02 + LDA #$007F + STA [$00] +L023D41 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L023D54 + DEX +L023D54 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023D70 + BRL L023D9E +L023D70 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L023DEA +L023D9E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L023DB7 + BRL L023DEA +L023DB7 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023DEA LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L023E12 + DEX +L023E12 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023E2E + BRL L023E43 +L023E2E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0001 + STA [$00] +L023E43 JSL L0222F2 + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L023E4F TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1601 + PHA + JSL L020419 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0011 + LDX #$0000 + TAY + BPL L023EDA + DEX +L023EDA PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0015 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023F2F + BRL L023F5D +L023F2F LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L023FA9 +L023F5D LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L023F76 + BRL L023FA9 +L023F76 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023FA9 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L023FBC + DEX +L023FBC PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L023FD8 + BRL L024030 +L023FD8 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$FFFF + LDX #$0000 + TAY + BPL L02400D + DEX +L02400D PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0026 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L02407C +L024030 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$0800 + BNE L024049 + BRL L02407C +L024049 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0800 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02407C PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L02408F + DEX +L02408F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0240AB + BRL L0240D8 +L0240AB LDA #$FFFF + LDX #$0000 + TAY + BPL L0240B5 + DEX +L0240B5 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0026 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L024102 +L0240D8 LDA #$0000 + LDX #$0000 + TAY + BPL L0240E2 + DEX +L0240E2 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0026 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L024102 LDA #$0000 + STA $1A + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L02411A + DEX +L02411A PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024136 + BRL L02413D +L024136 LDA $1A + ORA #$2000 + STA $1A +L02413D PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L024150 + DEX +L024150 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02416C + BRL L024173 +L02416C LDA $1A + ORA #$1000 + STA $1A +L024173 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L024186 + DEX +L024186 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0241A2 + BRL L0241A9 +L0241A2 LDA $1A + ORA #$0800 + STA $1A +L0241A9 PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0241D8 + BRL L0241DF +L0241D8 LDA $1A + ORA #$0400 + STA $1A +L0241DF PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L0241F2 + DEX +L0241F2 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02420E + BRL L024215 +L02420E LDA $1A + ORA #$0200 + STA $1A +L024215 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L024228 + DEX +L024228 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024244 + BRL L02424B +L024244 LDA $1A + ORA #$0100 + STA $1A +L02424B PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L02425E + DEX +L02425E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02427A + BRL L024281 +L02427A LDA $1A + ORA #$0080 + STA $1A +L024281 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0007 + LDX #$0000 + TAY + BPL L024294 + DEX +L024294 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0242B0 + BRL L0242B7 +L0242B0 LDA $1A + ORA #$0020 + STA $1A +L0242B7 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0006 + LDX #$0000 + TAY + BPL L0242CA + DEX +L0242CA PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0242E6 + BRL L0242ED +L0242E6 LDA $1A + ORA #$0010 + STA $1A +L0242ED PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0005 + LDX #$0000 + TAY + BPL L024300 + DEX +L024300 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02431C + BRL L024323 +L02431C LDA $1A + ORA #$0008 + STA $1A +L024323 LDA $1A + CLC + ADC #$0000 + LDX #$0000 + TAY + BPL L024330 + DEX +L024330 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 +L024344 PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + LDA #$0010 + LDX #$0000 + TAY + BPL L024372 + DEX +L024372 PHX + PHA + JSL L02C8EA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + JSL L0222F2 + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L0243A2 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1701 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$000A + LDX #$0000 + TAY + BPL L02442D + DEX +L02442D PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + LDA #$0008 + LDX #$0000 + TAY + BPL L02446C + DEX +L02446C PHX + PHA + LDA #$0000 + PHA + JSL L0221CB + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + PHA + LDA #$0000 + SEC + SBC $01,S + PLY + TAY + BEQ L0244A1 + BVS L02449F + EOR #$8000 +L02449F BMI L0244A4 +L0244A1 BRL L0244B9 +L0244A4 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L0244B9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + SEC + SBC #$03E7 + BEQ L0244D7 + BVS L0244D5 + EOR #$8000 +L0244D5 BMI L0244DA +L0244D7 BRL L0244EF +L0244DA LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$03E7 + STA [$00] +L0244EF LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001C + PHA + LDA #$0004 + LDX #$0000 + TAY + BPL L024508 + DEX +L024508 PHX + PHA + LDA #$0000 + PHA + JSL L0221CB + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDA #$0000 + SEC + SBC $01,S + PLY + TAY + BEQ L02453D + BVS L02453B + EOR #$8000 +L02453B BMI L024540 +L02453D BRL L024555 +L024540 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001C + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L024555 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001A + PHA + LDA #$0006 + LDX #$0000 + TAY + BPL L02456E + DEX +L02456E PHX + PHA + LDA #$0000 + PHA + JSL L0221CB + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001A + LDA [$00],Y + PHA + LDA #$0000 + SEC + SBC $01,S + PLY + TAY + BEQ L0245A3 + BVS L0245A1 + EOR #$8000 +L0245A1 BMI L0245A6 +L0245A3 BRL L0245BB +L0245A6 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L0245BB PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0014 + LDX #$0000 + TAY + BPL L0245CE + DEX +L0245CE PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0245EA + BRL L024618 +L0245EA LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024664 +L024618 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L024631 + BRL L024664 +L024631 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024664 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0010 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0008 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0004 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0002 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0001 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0013 + LDX #$0000 + TAY + BPL L024776 + DEX +L024776 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024792 + BRL L024874 +L024792 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0010 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L0247D0 + DEX +L0247D0 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0247EC + BRL L024817 +L0247EC LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0008 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024817 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L02482A + DEX +L02482A PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024846 + BRL L024871 +L024846 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0004 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024871 BRL L024957 +L024874 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0012 + LDX #$0000 + TAY + BPL L024887 + DEX +L024887 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0248A3 + BRL L024957 +L0248A3 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L0248B6 + DEX +L0248B6 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0248D2 + BRL L0248FD +L0248D2 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0248FD PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L024910 + DEX +L024910 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02492C + BRL L024957 +L02492C LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024957 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L024963 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1801 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0005 + LDX #$0000 + TAY + BPL L0249EE + DEX +L0249EE PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L024A27 + DEX +L024A27 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024A43 + BRL L024A71 +L024A43 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024ABD +L024A71 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L024A8A + BRL L024ABD +L024A8A LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024ABD PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L024AD0 + DEX +L024AD0 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024AEC + BRL L024B1A +L024AEC LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$FF00 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B66 +L024B1A LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$FF00 + BNE L024B33 + BRL L024B66 +L024B33 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$FF00 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024B66 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L024B79 + DEX +L024B79 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024B95 + BRL L024BC3 +L024B95 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0040 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024C0F +L024BC3 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0040 + BNE L024BDC + BRL L024C0F +L024BDC LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0040 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024C0F PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L024C22 + DEX +L024C22 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024C3E + BRL L024C6C +L024C3E LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0020 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024CB8 +L024C6C LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0020 + BNE L024C85 + BRL L024CB8 +L024C85 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0020 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024CB8 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L024CCB + DEX +L024CCB PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024CE7 + BRL L024D15 +L024CE7 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0010 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024D61 +L024D15 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0010 + BNE L024D2E + BRL L024D61 +L024D2E LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0010 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024D61 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L024D74 + DEX +L024D74 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024D90 + BRL L024DBE +L024D90 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0008 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024E0A +L024DBE LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0008 + BNE L024DD7 + BRL L024E0A +L024DD7 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0008 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024E0A PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024E39 + BRL L024E67 +L024E39 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0004 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024EB3 +L024E67 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0004 + BNE L024E80 + BRL L024EB3 +L024E80 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0004 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024EB3 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L024EC6 + DEX +L024EC6 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024EE2 + BRL L024F10 +L024EE2 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024F5C +L024F10 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0002 + BNE L024F29 + BRL L024F5C +L024F29 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0002 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024F5C PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L024F6F + DEX +L024F6F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L024F8B + BRL L024FB9 +L024F8B LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L025005 +L024FB9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0001 + BNE L024FD2 + BRL L025005 +L024FD2 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0001 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025005 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L025011 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1901 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0005 + LDX #$0000 + TAY + BPL L02509C + DEX +L02509C PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L0250D5 + DEX +L0250D5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0250F1 + BRL L02511F +L0250F1 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L02516B +L02511F LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L025138 + BRL L02516B +L025138 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02516B PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0004 + LDX #$0000 + TAY + BPL L02517E + DEX +L02517E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02519A + BRL L0251C8 +L02519A LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L025214 +L0251C8 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0001 + BNE L0251E1 + BRL L025214 +L0251E1 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0001 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025214 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L025220 TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1A01 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0005 + LDX #$0000 + TAY + BPL L0252AB + DEX +L0252AB PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0012 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L0252F9 + DEX +L0252F9 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L025315 + BRL L025340 +L025315 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025340 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$001E + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L025368 + DEX +L025368 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BEQ L025384 + BRL L0253AF +L025384 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + ORA #$0001 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0253AF JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L0253BB TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1B01 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDA #$0004 + LDX #$0000 + TAY + BPL L025446 + DEX +L025446 PHX + PHA + JSL L022116 + PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0016 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L02547F + DEX +L02547F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02549B + BRL L0254C9 +L02549B LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L025515 +L0254C9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L0254E2 + BRL L025515 +L0254E2 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0012 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025515 JSL L0222F2 + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +*--- AV 202010 LOGO + +*--- Rectangle control template feedback (from the window to the resource) + +updateRECT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 ; return the handle to the resource + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1401 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 ; lock handle + LDA $16 + PHX + PHA + _HLock + STA L02C957 + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + +*--- AV 202010 - Check pCount + + lda [$00] ; check pCount + cmp #8 ; if already 8 + bcs rect8OK ; we are good + + pei $18 + pei $16 + _HUnlock + + pea $0000 ; make it $1e bytes long + pea $001e + pei $18 + pei $16 + _SetHandleSize + + pei $18 ; lock it + pei $16 + _HLock + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda #8 ; pCount + sta [$00] + + ldy #$1a ; penHeight + lda #1 + sta [$00],y + + ldy #$1c ; penWidth + lda #2 + sta [$00],y + +rect8OK + +*--- The invisible bit + + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + _GetCtlValue + ldy #$12 + PLA + BNE rectISINVISIBLE + + lda [$00],y ; control is visible + and #%11111111_01111111 + sta [$00],y + bra rectNEXT + +rectISINVISIBLE + lda [$00],y + and #%11111111_01111111 + ora #%00000000_10000000 + sta [$00],y + +rectNEXT + +*--- The penHeight word + + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000d + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + ; we do not init the value + + pha ; from a hex string to a int value + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0004 + _Hex2Int + pla + bcs rectNEXT2 + + ldy #$1a ; value is valid + sta [$00],y ; save it + +rectNEXT2 + +*--- The penWidth word + + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000f + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + ; we do not init the value + + pha ; from a hex string to a int value + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0004 + _Hex2Int + pla + bcs rectNEXT3 + + ldy #$1c ; value is valid + sta [$00],y ; save it + +rectNEXT3 + +*--- The control's appearance + + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + _GetCtlValue + pla + beq rectNEXT4 + ldx #$0000 ; transparent + bra rectNEXT6 + +rectNEXT4 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000a + _GetCtlHandleFromID + _GetCtlValue + pla + beq rectNEXT5 + ldx #$0001 ; grey pattern + bra rectNEXT6 + +rectNEXT5 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + _GetCtlValue + pla + beq rectNEXT7 + ldx #$0002 ; black pattern + +rectNEXT6 + ldy #$12 ; save the control's appearance + phx + lda [$00],y + and #%11111111_11111100 + ora 1,s + plx + sta [$00],y + stal $300 + +rectNEXT7 + +*--- The refCon + + pha ; refCon + pha + pea $0000 + pea $0000 + pea $0000 + pea $0006 + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + ldy #$16 + lda #0 + sta [$00],y + ldy #$18 + sta [$00],y + + pha ; from a hex string to a long value + pha + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0008 + _Hex2Long + pla + plx + bcs rectNEXT8 + + ldy #$16 ; value is valid + sta [$00],y ; save it + ldy #$18 + txa + sta [$00],y ; save the high word + +rectNEXT8 + + JSL L0222F2 ; save the resource + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +*--- Thermometer control template feedback (from the window to the resource) + +updateTHERMO + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 ; return the handle to the resource + PLA + STA $18 + LDA L02C957 + PHA + LDA #$1401 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 ; lock handle + LDA $16 + PHX + PHA + _HLock + STA L02C957 + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + +*--- AV 202010 - Check pCount + + lda [$00] ; check pCount + cmp #8 ; if already 8 + bcs thermo8OK ; we are good + + pei $18 + pei $16 + _HUnlock + + pea $0000 ; make it $1e bytes long + pea $001e + pei $18 + pei $16 + _SetHandleSize + + pei $18 ; lock it + pei $16 + _HLock + + lda #8 ; pCount + sta [$00] + + ldy #$1a ; penHeight + lda #1 + sta [$00],y + + ldy #$1c ; penWidth + lda #2 + sta [$00],y + +thermo8OK + +*--- The invisible bit + + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + _GetCtlValue + ldy #$12 + PLA + BNE thermoISINVISIBLE + + lda [$00],y ; control is visible + and #%11111111_01111111 + sta [$00],y + bra thermoNEXT + +thermoISINVISIBLE + lda [$00],y + and #%11111111_01111111 + ora #%00000000_10000000 + sta [$00],y + +thermoNEXT + +*--- The value word + + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000d + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + ; we do not init the value + + pha ; from a hex string to a int value + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0004 + _Hex2Int + pla + bcs thermoNEXT2 + + ldy #$1a ; value is valid + sta [$00],y ; save it + +thermoNEXT2 + +*--- The data word + + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $000f + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + ; we do not init the value + + pha ; from a hex string to a int value + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0004 + _Hex2Int + pla + bcs thermoNEXT3 + + ldy #$1c ; value is valid + sta [$00],y ; save it + +thermoNEXT3 + +*--- The control's orientation + + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + _GetCtlValue + pla + beq thermoNEXT4 + ldx #$0000 ; vertical + bra thermoNEXT6 + +thermoNEXT4 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + _GetCtlValue + pla + beq thermoNEXT5 + ldx #$0001 ; horizontal + bra thermoNEXT6 + +thermoNEXT5 +thermoNEXT6 + ldy #$12 ; save the control's appearance + txa + sta [$00],y + +thermoNEXT7 + +*--- The refCon + + pha ; refCon + pha + pea $0000 + pea $0000 + pea $0000 + pea $0006 + _GetCtlHandleFromID + pla ; handle to the control + sta $00 + pla + sta $02 + + pha ; space for _LEGetTextHand + pha + + ldy #2 ; we point to the control + lda [$00],y + tax + lda [$00] + sta $00 + stx $02 + + ldy #$1e ; get the handle to the text + lda [$00],y + pha + ldy #$1c + lda [$00],y + pha + _LEGetTextHand + pla + sta $00 + pla + sta $02 + + ldy #2 ; we point to the text now + lda [$00],y + sta thePOINTER+2 + lda [$00] + sta thePOINTER + + LDY #$0002 ; first of all, get the target control pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + ldy #$16 + lda #0 + sta [$00],y + ldy #$18 + sta [$00],y + + pha ; from a hex string to a long value + pha + lda thePOINTER+2 + pha + lda thePOINTER + pha + pea $0008 + _Hex2Long + pla + plx + bcs thermoNEXT8 + + ldy #$16 ; value is valid + sta [$00],y ; save it + ldy #$18 + txa + sta [$00],y ; save the high word + +thermoNEXT8 + + JSL L0222F2 ; save the resource + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +*--- + +L025521 TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $24 + PLA + STA $26 + LDA L02C957 + PHA + LDA #$5501 + PHA + JSL L020419 + PHA + LDA $28 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDX $26 + LDA $24 + PHX + PHA + _HLock + STA L02C957 + PHA + PHA + _FrontWindow + STA L02C957 + _SetPort + STA L02C957 + LDA $2D + CMP #$07FF + BEQ L0255C2 + BRL L0255CF +L0255C2 LDX $26 + LDA $24 + PHX + PHA + JSL L03447D + BRL L025611 +L0255CF LDA $2D + CMP #$8000 + BEQ L0255D9 + BRL L0255E6 +L0255D9 LDX $26 + LDA $24 + PHX + PHA + JSL L03455D + BRL L025611 +L0255E6 LDA $2D + CMP #$8200 + BEQ L0255F0 + BRL L0255FD +L0255F0 LDX $26 + LDA $24 + PHX + PHA + JSL L03463D + BRL L025611 +L0255FD LDA $2D + CMP #$8400 + BEQ L025607 + BRL L025611 +L025607 LDX $26 + LDA $24 + PHX + PHA + JSL L03471D +L025611 LDA #$001B + STA L026C47+2 + LDA #$2006 + STA L026C47 + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L02562F + DEX +L02562F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L026C6D+2 + STA L026C6D +L02565E LDA #$0000 + STA $16 + PHA + LDA #$FFFF + PHA + LDX #^L026C33 + LDA #L026C33 + PHX + PHA + _TaskMaster + STA L02C957 + PLA + STA $18 + LDA $18 + CMP #$0021 + BEQ L025687 + BRL L025902 +L025687 PHA + LDX L026C5B + LDA L026C59 + PHX + PHA + _LoWord + STA L02C957 + PLA + STA $22 + LDA $22 + LDX #$0000 + CMP #$0001 + BNE L0256A8 + INX +L0256A8 TXA + PHA + LDA $22 + LDX #$0000 + CMP #$0002 + BNE L0256B5 + INX +L0256B5 TXA + ORA $01,S + PLX + TAX + BNE L0256BF + BRL L0256C7 +L0256BF LDA #$0001 + STA $16 + BRL L025902 +L0256C7 LDA $22 + CMP #$7010 + BEQ L0256D1 + BRL L0257E5 +L0256D1 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7012 + LDX #$0000 + TAY + BPL L0256E4 + DEX +L0256E4 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L025700 + BRL L02572C +L025700 LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7012 + LDX #$0000 + TAY + BPL L025716 + DEX +L025716 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L02572C PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7013 + LDX #$0000 + TAY + BPL L02573F + DEX +L02573F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L02575B + BRL L025787 +L02575B LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7013 + LDX #$0000 + TAY + BPL L025771 + DEX +L025771 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L025787 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7016 + LDX #$0000 + TAY + BPL L02579A + DEX +L02579A PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0257B6 + BRL L0257E2 +L0257B6 LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7016 + LDX #$0000 + TAY + BPL L0257CC + DEX +L0257CC PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0257E2 BRL L025902 +L0257E5 LDA $22 + LDX #$0000 + CMP #$7013 + BNE L0257F0 + INX +L0257F0 TXA + PHA + LDA $22 + LDX #$0000 + CMP #$7012 + BNE L0257FD + INX +L0257FD TXA + ORA $01,S + PLX + PHA + LDA $22 + LDX #$0000 + CMP #$7016 + BNE L02580D + INX +L02580D TXA + ORA $01,S + PLX + TAX + BNE L025817 + BRL L02588C +L025817 PEA ^L025ADB + PEA L025ADB + LDA #$0000 + PHA + LDX L026C6D+2 + LDA L026C6D + PHX + PHA + _LESetText + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L02584E + DEX +L02584E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L02C5AB + PEA $0000 + TDC + CLC + ADC #$001A + PHA + _InvalRect + STA L02C957 + BRL L025902 +L02588C LDA #$2000 + LDX #$0000 + TAY + BPL L025896 + DEX +L025896 PHX + PHA + LDX L026C5B + LDA L026C59 + JSL L02C519 + BNE L0258A7 + BRL L025902 +L0258A7 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDX L026C5B + LDA L026C59 + PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA L026C5B + PHA + LDA L026C59 + PHA + LDA #$0010 + LDX #$0000 + TAY + BPL L0258E8 + DEX +L0258E8 PHX + PHA + JSL L02C8EA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L025902 LDA $18 + CMP #$0014 + BEQ L02590C + BRL L02595A +L02590C PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L02C957 + LDA #$0000 + PHA + LDA L026C3F + PHA + LDA L026C3D + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDX L026C43+2 + LDA L026C43 + PHX + PHA + _DragWindow + STA L02C957 +L02595A LDA $16 + BNE L025961 + BRL L02565E +L025961 LDA $22 + CMP #$0001 + BEQ L02596B + BRL L025A59 +L02596B LDA $2D + CMP #$07FF + BEQ L025975 + BRL L025982 +L025975 LDX $26 + LDA $24 + PHX + PHA + JSL L0334C2 + BRL L0259C4 +L025982 LDA $2D + CMP #$8000 + BEQ L02598C + BRL L025999 +L02598C LDX $26 + LDA $24 + PHX + PHA + JSL L0337FF + BRL L0259C4 +L025999 LDA $2D + CMP #$8200 + BEQ L0259A3 + BRL L0259B0 +L0259A3 LDX $26 + LDA $24 + PHX + PHA + JSL L033A79 + BRL L0259C4 +L0259B0 LDA $2D + CMP #$8400 + BEQ L0259BA + BRL L0259C4 +L0259BA LDX $26 + LDA $24 + PHX + PHA + JSL L033CF3 +L0259C4 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDA #$0001 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L02C957 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L02C957 + LDA L02C957 + PHA + LDA #$5504 + PHA + JSL L020419 + PHA + LDA $28 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 +L025A59 PHA + PHA + _FrontWindow + STA L02C957 + _CloseWindow + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $28 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDA $2B + STA $2D + LDA $2A + STA $2C + PLD + TSC + CLC + ADC #$002C + TCS + RTL + +L025ADB DW $0000 + +*--- From the window to the resource + +L025ADD TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0028 + LDA [$00],Y + TAX + LDY #$0026 + LDA [$00],Y + PHX + PHA + _LoWord + STA L02C957 + PLA + STA $18 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000C + LDA [$00],Y + LDX #$0000 + CMP #$0001 + BNE L025B62 + INX +L025B62 TXA + PHA + LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000C + LDA [$00],Y + LDX #$0000 + CMP #$0002 + BNE L025B88 + INX +L025B88 TXA + ORA $01,S + PLX + TAX + BNE L025B92 + BRL L025CE2 + +L025B92 LDA $18 + CMP #$0001 + BEQ L025B9C + BRL L025C3C +L025B9C JSL L0213E0 + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$2000 + CLC + ADC #$4000 + PHA + JSL L021208 + LDX L026C79 + LDA L026C77 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000C + LDA [$00],Y + CMP #$0002 + BEQ L025BF7 + BRL L025C14 +L025BF7 JSL L0217DA + LDX L026C7F+2 + LDA L026C7F + PHX + PHA + _CloseWindow + STA L02C957 + JSL L0219F9 + BRL L025C3C +L025C14 LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] + +L025C3C LDA $18 + CMP #$0002 + BEQ L025C46 + BRL L025CDF +L025C46 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$8004 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _RemoveResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0000 + LDX #$0000 + TAY + BPL L025C98 + DEX +L025C98 PHX + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025CDF BRL L026952 + +* AV 202010 - From the window to the resource + +L025CE2 JSL L02190D + STA $16 ; A has the high word + + LDA $18 + CMP #$0001 + BEQ L025CF2 + BRL L025DE6 + +L025CF2 LDA $16 + CMP #$07FF + bne L025D03 + cpx #$0001 + bne L025D00 +L025CFC JSL L0223F9 ; 7F000001 Icon control - from the window to the resource +L025D00 brl L025DBB + +L025D03 CMP #$8000 + bne L025D14 +L025D0D JSL L023077 ; 80000000 + brl L025DBB + +L025D14 CMP #$8100 + bne L025D25 +L025D1E JSL L0232DA ; 81000000 + bra L025DBB + +L025D25 CMP #$8200 + bne L025D36 +L025D2F JSL L02370D ; 82000000 + bra L025DBB + +L025D36 CMP #$8300 + bne L025D47 +L025D40 JSL L0238F5 ; 83000000 Line Edit control - from the window to the resource + bra L025DBB + +L025D47 CMP #$8400 + bne L025D58 +L025D51 JSL L023C06 ; 84000000 + bra L025DBB + +L025D58 CMP #$8500 + bne L025D69 +L025D62 JSL L023E4F ; 85000000 + bra L025DBB + +L025D69 CMP #$8600 + bne L025D7A +L025D73 JSL L0243A2 ; 86000000 + bra L025DBB + +L025D7A CMP #$8700 + bne L025D8B +L025D84 JSL L024963 ; 87000000 + bra L025DBB + +L025D8B CMP #$8800 + bne L025D9C +L025D95 JSL L025011 ; 88000000 + bra L025DBB + +L025D9C CMP #$8900 + bne L025DAD +L025DA6 JSL L025220 ; 89000000 + bra L025DBB + +L025DAD CMP #$8D00 + bne isitRECT +L025DB7 JSL L0253BB ; 8D000000 + +isitRECT cmp #$87ff + bne L025DBB + cpx #$0003 + bne isitTHERMO + jsl updateRECT + bra L025DBB +isitTHERMO cpx #$0002 + bne L025DBB + jsl updateTHERMO + +L025DBB LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026952 + +L025DE6 LDA $18 + CMP #$0002 + BEQ L025DF0 + BRL L025E1B + +L025DF0 LDA L026C61+2 ; 00000002 - What is that resource? + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026952 +L025E1B LDA $18 + CMP #$0003 + BEQ L025E25 + BRL L026007 +L025E25 LDA $16 + CMP #$8100 + BEQ L025E2F + BRL L025F0A +L025E2F LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L02C957 + PHA + LDA #$1C03 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$800B + STA [$00] + BRL L026004 +L025F0A LDA $16 + CMP #$8D00 + BEQ L025F14 + BRL L025FEF +L025F14 LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L02C957 + PHA + LDA #$1C04 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8002 + STA [$00] + BRL L026004 +L025FEF LDA $16 + CMP #$07FF + BEQ L025FF9 + BRL L026004 +L025FF9 JSL L02BFAD + LDA $16 + PHA + JSL L025521 +L026004 BRL L026952 +L026007 LDA $18 + CMP #$0004 + BEQ L026011 + BRL L02621B +L026011 LDA $16 + CMP #$8500 + BEQ L02601B + BRL L0260F6 +L02601B LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L02C957 + PHA + LDA #$1C05 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8016 + STA [$00] + BRL L026218 +L0260F6 LDA $16 + CMP #$8700 + BEQ L026100 + BRL L0261DB +L026100 LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + PHA + LDY #$001C + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L02C957 + PHA + LDA #$1C06 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8009 + STA [$00] + BRL L026218 +L0261DB LDA $16 + LDX #$0000 + CMP #$8000 + BNE L0261E6 + INX +L0261E6 TXA + PHA + LDA $16 + LDX #$0000 + CMP #$8200 + BNE L0261F3 + INX +L0261F3 TXA + ORA $01,S + PLX + PHA + LDA $16 + LDX #$0000 + CMP #$8400 + BNE L026203 + INX +L026203 TXA + ORA $01,S + PLX + TAX + BNE L02620D + BRL L026218 +L02620D JSL L02BFAD + LDA $16 + PHA + JSL L025521 +L026218 BRL L026952 +L02621B LDA $18 + CMP #$0005 + BEQ L026225 + BRL L02630A +L026225 LDA $16 + CMP #$07FF + BEQ L02622F + BRL L026307 +L02622F LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L02C957 + PHA + LDA #$1C07 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8001 + STA [$00] +L026307 BRL L026952 +L02630A LDA $18 + CMP #$0006 + BEQ L026314 + BRL L026340 +L026314 LDA $16 + CMP #$07FF + BEQ L02631E + BRL L02633D +L02631E LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L030524 + JSL L02293C +L02633D BRL L026952 + +* Check if Border checkbox is selected + +L026340 LDA $18 + CMP #$000B + BEQ L02634A + BRL L0263C5 +L02634A LDA $16 + CMP #$07FF + BEQ L026354 + BRL L0265C2 + +L026354 PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L026383 + BRL L026462 + +L026383 LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0008 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000a + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0008 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L0265C2 + +L026462 LDA #$00FF ; inactive + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0008 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000a + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0008 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000a + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + +L0265C2 BRL L026952 + +*--- AV 202010 - Handle the Sticky icon checkbox + +L0263C5 LDA $18 + CMP #$0014 + BEQ L02634B + BRL L0265C5 +L02634B LDA $16 + CMP #$07FF + bne L0265C2 + + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0014 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L026384 + BRL L026463 + +L026384 LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0015 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0016 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0016 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L0265C2 + +L026463 LDA #$00FF ; inactive + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0015 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0016 + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0015 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0016 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + + BRL L026952 + +*--- Back to the normal code + +L0265C5 LDA $18 + LDX #$0000 + CMP #$0012 + BNE L0265D0 + INX +L0265D0 TXA + PHA + LDA $18 + LDX #$0000 + CMP #$0013 + BNE L0265DD + INX +L0265DD TXA + ORA $01,S + PLX + TAX + BNE L0265E7 + BRL L0268C1 +L0265E7 LDA $16 + CMP #$8600 + BEQ L0265F1 + BRL L0268BE +L0265F1 LDA $18 + CMP #$0013 + BEQ L0265FB + BRL L02675E +L0265FB LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L026611 + DEX +L026611 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L02663D + DEX +L02663D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L026669 + DEX +L026669 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L026695 + DEX +L026695 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L0266C1 + DEX +L0266C1 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L0266ED + DEX +L0266ED PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L026719 + DEX +L026719 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L026745 + DEX +L026745 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L0268BE +L02675E LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L026774 + DEX +L026774 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L0267A0 + DEX +L0267A0 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L0267CC + DEX +L0267CC PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L0267F8 + DEX +L0267F8 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L026824 + DEX +L026824 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L026850 + DEX +L026850 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L02687C + DEX +L02687C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L0268A8 + DEX +L0268A8 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0268BE BRL L026952 +L0268C1 LDA $18 + LDX #$0000 + CMP #$000F + BNE L0268CC + INX +L0268CC TXA + PHA + LDA $18 + LDX #$0000 + CMP #$0010 + BNE L0268D9 + INX +L0268D9 TXA + ORA $01,S + PLX + TAX + BNE L0268E3 + BRL L026952 +L0268E3 LDA $16 + CMP #$8500 + BEQ L0268ED + BRL L026952 +L0268ED LDA $18 + CMP #$000F + BEQ L0268F7 + BRL L026926 +L0268F7 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L02690D + DEX +L02690D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L026952 +L026926 LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L02693C + DEX +L02693C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L026952 PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L02695A TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + STA L026C65 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003E + LDA [$00],Y + BRL L026BE3 +L026987 LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0269A7 + DEX +L0269A7 LDY #$0001 + CMP $01,S + BEQ L0269AF + DEY +L0269AF TXA + CMP $03,S + BEQ L0269B7 + LDY #$0000 +L0269B7 PLA + PLA + TYA + BNE L0269BF + BRL L0269C6 +L0269BF JSL L021C6C + BRL L0269CA +L0269C6 JSL L0219F9 +L0269CA LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$0400 + BNE L0269E1 + BRL L026A09 +L0269E1 LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L026A09 BRL L026C07 +L026A0C LDX #^L026C83 + LDA #L026C83 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L026C17 + PEA L026C17 + LDA #$0013 + PHA + JSL L02C5F5 + PEA ^L026C83 + PEA L026C83 + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L026C07 +L026A4C JSL L021D39 + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + CMP #$0016 + BEQ L026A67 + BRL L026A6E +L026A67 JSL L021D8C + BRL L026AB1 +L026A6E LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + CMP #$0021 + BEQ L026A85 + BRL L026A8C +L026A85 JSL L025ADD + BRL L026AB1 +L026A8C LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + CMP #$0008 + BEQ L026AA3 + BRL L026AB1 +L026AA3 LDA #$0100 + PHA + _EnableMItem + STA L02C957 +L026AB1 BRL L026C07 +L026AB4 LDX #^L026C83 + LDA #L026C83 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L026C2A + PEA L026C2A + LDA #$0007 + PHA + JSL L02C5F5 + PEA ^L026C83 + PEA L026C83 + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA #$0000 + LDX #$0000 + TAY + BPL L026AFB + DEX +L026AFB PHX + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0032 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$8004 + STA [$00] + LDA #$0003 + STA L026C31 + LDA #$0001 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L026B43 + DEX +L026B43 STX L026C67+2 + STA L026C67 + BRL L026C07 +L026B4C JSL L021D39 + JSL L021D8C + BRL L026C07 +L026B57 LDA L026C6B + BEQ L026B5F + BRL L026BDD +L026B5F LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L026C61+2 + LDA L026C61 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + PHA + LDA #$4000 + CLC + ADC #$2000 + ORA $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L026C61+2 + LDA L026C61 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA L026C6B + STA [$00] + LDA L026C67+2 + PHA + LDA L026C67 + PHA + LDA L026C61+2 + PHA + LDA L026C61 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA #$0001 + STA L026C6B + LDA #$0000 + LDX #$0000 + TAY + BPL L026BD7 + DEX +L026BD7 STX L026C67+2 + STA L026C67 +L026BDD BRL L026C07 +L026BE0 BRL L026C07 + +L026BE3 CMP #$0006 + BCC L026BEB + LDA #$0006 +L026BEB ASL + TAX + LDAL L026BF9,X + BEQ L026BF5 + PHA + RTS + +L026BF5 JSL L02C9E9 + +L026BF9 DA L026987-1 + DA L026A0C-1 + DA L026A4C-1 + DA L026AB4-1 + DA L026B4C-1 + DA L026B57-1 + DA L026BE0-1 + +L026C07 LDA #$0000 + STA $16 + LDX $16 + PLD + TSC + CLC + ADC #$0020 + TCS + TXA + RTL + +L026C17 ASC 'Control editor v1.3' +L026C2A ASC 'Control' +L026C31 DW $0000 +L026C33 DW $0000 ; event code + ADRL $00000000 ; event message + ADRL $00000000 ; tick count +L026C3D DW $0000 ; mouse location +L026C3F DW $0000 + DW $0000 ; modifiers +L026C43 ADRL $00000000 ; task data +L026C47 ADRL $00000000 ; task mask + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L026C59 DB $00 + DB $00 +L026C5B DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L026C61 ADRL $00000000 +L026C65 DW $0000 +L026C67 ADRL $00000000 +L026C6B DW $0000 +L026C6D ADRL $00000000 +L026C71 DB $00 + DB $00 +L026C73 DB $00 + DB $00 +L026C75 DB $00 + DB $00 +L026C77 DB $00 + DB $00 +L026C79 DB $00 + DB $00 +L026C7B DB $00 + DB $00 +L026C7D DB $00 + DB $00 +L026C7F ADRL $00000000 +L026C83 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L026D83 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + +L026E83 LDA $04,S + STA L027019 + LDA $06,S + STA L027019+2 + LDA $08,S + STA L027015 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0007 + LDA L027015 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L027011 + PLA + STA L027011+2 + LDA L027011+2 + PHA + LDA L027011 + PHA + _HLock + PEA ^L027035 + PEA L027035 + LDA L027011+2 + PHA + LDA L027011 + PHA + PEA $0000 + PEA $0007 + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8006 + _UniqueResourceID + PLA + STA L027031 + PLA + STA L027033 + LDA L027011+2 + PHA + LDA L027011 + PHA + PEA $0000 + PEA $8006 + LDA L027033 + PHA + LDA L027031 + PHA + _AddResource + PEA $8006 + LDA L027033 + PHA + LDA L027031 + PHA + _WriteResource + PEA $FFFF + PEA $8006 + LDA L027033 + PHA + LDA L027031 + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L027019+2 + PHA + LDA L027019 + PHA + _LoadResource + PLA + STA L027011 + PLA + STA L027011+2 + LDA L027011+2 + PHA + LDA L027011 + PHA + _HUnlock + PEA $0000 + PEA $001E + LDA L027011+2 + PHA + LDA L027011 + PHA + _SetHandleSize + LDA L027011+2 + PHA + LDA L027011 + PHA + _HLock + PEA ^L027017 + PEA L027017 + LDA L027011+2 + PHA + LDA L027011 + PHA + PEA $0000 + PEA $001E + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L027019+2 + PHA + LDA L027019 + PHA + _MarkResourceChange + PEA $8004 + LDA L027019+2 + PHA + LDA L027019 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L027019+2 + PHA + LDA L027019 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L027011 ADRL $00000000 +L027015 DW $0000 +L027017 DW $0007 +L027019 ADRL $00000000 + DW $000A + DW $000A + DW $0017 + DW $0064 + ADRL $80000000 + DW $0000 + DW $1002 + DW $0000 + DW $0000 +L027031 DW $0000 +L027033 DW $0000 +L027035 STR 'Button' + +L02703C LDA $04,S + STA L0271D2 + LDA $06,S + STA L0271D2+2 + LDA $08,S + STA L0271CE + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000A + LDA L0271CE + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L0271CA + PLA + STA L0271CA+2 + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + _HLock + PEA ^L0271F0 + PEA L0271F0 + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + PEA $0000 + PEA $000A + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8006 + _UniqueResourceID + PLA + STA L0271EA + PLA + STA L0271EC + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + PEA $0000 + PEA $8006 + LDA L0271EC + PHA + LDA L0271EA + PHA + _AddResource + PEA $8006 + LDA L0271EC + PHA + LDA L0271EA + PHA + _WriteResource + PEA $FFFF + PEA $8006 + LDA L0271EC + PHA + LDA L0271EA + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L0271D2+2 + PHA + LDA L0271D2 + PHA + _LoadResource + PLA + STA L0271CA + PLA + STA L0271CA+2 + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + _HUnlock + PEA $0000 + PEA $0020 + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + _SetHandleSize + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + _HLock + PEA ^L0271D0 + PEA L0271D0 + LDA L0271CA+2 + PHA + LDA L0271CA + PHA + PEA $0000 + PEA $0020 + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L0271D2+2 + PHA + LDA L0271D2 + PHA + _MarkResourceChange + PEA $8004 + LDA L0271D2+2 + PHA + LDA L0271D2 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L0271D2+2 + PHA + LDA L0271D2 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L0271CA ADRL $00000000 +L0271CE DW $0000 +L0271D0 DW $0008 +L0271D2 ADRL $00000000 + DW $000A + DW $000A + DW $0013 + DW $0078 + ADRL $82000000 + DW $0000 + DW $1002 + DW $0000 + DW $0000 +L0271EA DW $0000 +L0271EC DW $0000 + DW $0000 +L0271F0 STR 'Check box' + +L0271FA LDA $04,S + STA L027390 + LDA $06,S + STA L027390+2 + LDA $08,S + STA L02738C + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0048 + LDA L02738C + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L027388 + PLA + STA L027388+2 + LDA L027388+2 + PHA + LDA L027388 + PHA + _HLock + PEA ^L0273B6 + PEA L0273B6 + LDA L027388+2 + PHA + LDA L027388 + PHA + PEA $0000 + PEA $0048 + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8001 + _UniqueResourceID + PLA + STA L0273A8 + PLA + STA L0273A8+2 + LDA L027388+2 + PHA + LDA L027388 + PHA + PEA $0000 + PEA $8001 + LDA L0273A8+2 + PHA + LDA L0273A8 + PHA + _AddResource + PEA $8001 + LDA L0273A8+2 + PHA + LDA L0273A8 + PHA + _WriteResource + PEA $FFFF + PEA $8001 + LDA L0273A8+2 + PHA + LDA L0273A8 + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L027390+2 + PHA + LDA L027390 + PHA + _LoadResource + PLA + STA L027388 + PLA + STA L027388+2 + LDA L027388+2 + PHA + LDA L027388 + PHA + _HUnlock + PEA $0000 + PEA $0030 ; AV 202010 was 28 (added 6+2) + LDA L027388+2 + PHA + LDA L027388 + PHA + _SetHandleSize + LDA L027388+2 + PHA + LDA L027388 + PHA + _HLock + PEA ^L02738E + PEA L02738E + LDA L027388+2 + PHA + LDA L027388 + PHA + PEA $0000 + PEA $0030 ; AV 202010 was 28 (added 6+2) + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L027390+2 + PHA + LDA L027390 + PHA + _MarkResourceChange + PEA $8004 + LDA L027390+2 + PHA + LDA L027390 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L027390+2 + PHA + LDA L027390 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L027388 ADRL $00000000 +L02738C DW $0000 + +* 26d bytes here +* whereas 40d booked + +L02738E DW 12 ; 10 parms, 12 max and we'll support 12 +L027390 ADRL $00000000 + DW $000A + DW $000A + DW $0013 + DW $001E + ADRL $07FF0001 + DW $0006 ; flag + DW $1020 ; moreFlags + ADRL $00000000 ; refCon + adrl $00000000 ; iconRef + adrl $00000000 ; titleRef + adrl $00000000 ; colorTableRef + dw $0000 ; displayMode + ds 6 ; keyEquivalent + dw $0000 ; initialValue + +L0273A8 ADRL $00000000 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0273B6 DB $00 + DB $00 + DB $20 + DB $00 + DB $08 + DB $00 + DB $08 + DB $00 + DB $00 + DB $00 + DB $00 + DB $0F + DB $0F + DB $FF + DB $F0 + DB $F0 + DB $0F + DB $FF + DB $F0 + DB $00 + DB $0F + DB $FF + DB $FF + DB $F0 + DB $0F + DB $FF + DB $FF + DB $F0 + DB $0F + DB $FF + DB $FF + DB $F0 + DB $0F + DB $FF + DB $FF + DB $F0 + DB $00 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $FF + DB $F0 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + +*--- AV 202010 + +writeRECTANGLE + LDA $04,S ; resourceID + STA rectID + LDA $06,S + STA rectID+2 + LDA $08,S ; memID + STA L027590 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + + PEA $0000 + PEA $0000 + PEA $0000 + PEA $001e + LDA L027590 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02758C + PLA + STA L02758C+2 + +* LDA L02758C+2 + PHA + LDA L02758C + PHA + _HLock + + PEA $0000 + PEA $0000 + PEA $8004 + LDA rectID+2 + PHA + LDA rectID + PHA + _LoadResource + PLA + STA L02758C + PLA + STA L02758C+2 + + LDA L02758C+2 + PHA + LDA L02758C + PHA + _HUnlock + + PEA $0000 + PEA $001e + LDA L02758C+2 + PHA + LDA L02758C + PHA + _SetHandleSize + + LDA L02758C+2 + PHA + LDA L02758C + PHA + _HLock + + PEA ^rectTEMPLATE ; Rectangle control template + PEA rectTEMPLATE + LDA L02758C+2 + PHA + LDA L02758C + PHA + PEA $0000 + PEA $001e + _PtrToHand + + PEA $FFFF + PEA $8004 + LDA rectID+2 + PHA + LDA rectID + PHA + _MarkResourceChange + + PEA $8004 + LDA rectID+2 + PHA + LDA rectID + PHA + _WriteResource + + PEA $FFFF + PEA $8004 + LDA rectID+2 + PHA + LDA rectID + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +*--- Default Rectangle control template + +rectTEMPLATE + DW $0008 ; pCount +rectID ADRL $00000000 ; ID + DW $000A ; rect + DW $000A + DW $0017 + DW $0096 + ADRL $87FF0003 ; procRef + DW $0001 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + DW $0001 ; penHeight + DW $0002 ; penWidth + +*--- + +writeTHERMOMETER + LDA $04,S ; resourceID + STA thermoID + LDA $06,S + STA thermoID+2 + LDA $08,S ; memID + STA L027590 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + + PEA $0000 + PEA $0000 + PEA $0000 + PEA $001e + LDA L027590 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02758C + PLA + STA L02758C+2 + + LDA L02758C+2 + PHA + LDA L02758C + PHA + _HLock + + PEA $0000 + PEA $0000 + PEA $8004 + LDA thermoID+2 + PHA + LDA thermoID + PHA + _LoadResource + PLA + STA L02758C + PLA + STA L02758C+2 + + PEA ^thermoTEMPLATE ; Line edit control template + PEA thermoTEMPLATE + LDA L02758C+2 + PHA + LDA L02758C + PHA + PEA $0000 + PEA $001e + _PtrToHand + + PEA $FFFF + PEA $8004 + LDA thermoID+2 + PHA + LDA thermoID + PHA + _MarkResourceChange + PEA $8004 + LDA thermoID+2 + PHA + LDA thermoID + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA thermoID+2 + PHA + LDA thermoID + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +*--- Default Rectangle control template + +thermoTEMPLATE + DW $0008 ; pCount +thermoID ADRL $00000000 ; ID + DW $000A ; rect + DW $000A + DW $0017 + DW $0096 + ADRL $87FF0002 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + DW $0001 ; value + DW $0002 ; data + +*--- Write an line edit resource + +L0273FE LDA $04,S ; resourceID + STA L027594 + LDA $06,S + STA L027594+2 + LDA $08,S ; memID + STA L027590 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000A + LDA L027590 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02758C + PLA + STA L02758C+2 + + LDA L02758C+2 + PHA + LDA L02758C + PHA + _HLock + + PEA ^L0275B2 + PEA L0275B2 + LDA L02758C+2 + PHA + LDA L02758C + PHA + PEA $0000 + PEA $000A + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8006 + _UniqueResourceID + PLA + STA L0275AE + PLA + STA L0275AE+2 + LDA L02758C+2 + PHA + LDA L02758C + PHA + PEA $0000 + PEA $8006 + LDA L0275AE+2 + PHA + LDA L0275AE + PHA + _AddResource + PEA $8006 + LDA L0275AE+2 + PHA + LDA L0275AE + PHA + _WriteResource + PEA $FFFF + PEA $8006 + LDA L0275AE+2 + PHA + LDA L0275AE + PHA + _ReleaseResource + + PEA $0000 + PEA $0000 + PEA $8004 + LDA L027594+2 + PHA + LDA L027594 + PHA + _LoadResource + PLA + STA L02758C + PLA + STA L02758C+2 + LDA L02758C+2 + PHA + LDA L02758C + PHA + _HUnlock + PEA $0000 + PEA $0024 ; was $20 + LDA L02758C+2 + PHA + LDA L02758C + PHA + _SetHandleSize + LDA L02758C+2 + PHA + LDA L02758C + PHA + _HLock + PEA ^L027592 ; Line edit control template + PEA L027592 + LDA L02758C+2 + PHA + LDA L02758C + PHA + PEA $0000 + PEA $0024 ; AV 202010 - size of $24 now + _PtrToHand + +* AV 202010 + + PEA $FFFF + PEA $8004 + LDA L027594+2 + PHA + LDA L027594 + PHA + _MarkResourceChange + PEA $8004 + LDA L027594+2 + PHA + LDA L027594 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L027594+2 + PHA + LDA L027594 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L02758C ADRL $00000000 +L027590 DW $0000 + +*--- Default Line Edit control template + +L027592 DW $000A ; pCount - was 8 +L027594 ADRL $00000000 ; ID + DW $000A ; rect + DW $000A + DW $0017 + DW $0096 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7002 ; moreFlags + ADRL $00000000 ; refCon + DW $0014 ; maxSize +L0275AE ADRL $00000000 + dw $ffff ; pwChar - by default, not a password field + dw $0001 ; keyMask - new for 6.0.1 + +L0275B2 STR 'Edit Line' + +*--- + +L0275BC LDA $04,S + STA L02769C + LDA $06,S + STA L02769C+2 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $8004 + LDA L02769C+2 + PHA + LDA L02769C + PHA + _LoadResource + PLA + STA L027694 + PLA + STA L027694+2 + LDA L027694+2 + PHA + LDA L027694 + PHA + _HUnlock + PEA $0000 + PEA $002E + LDA L027694+2 + PHA + LDA L027694 + PHA + _SetHandleSize + LDA L027694+2 + PHA + LDA L027694 + PHA + _HLock + PEA ^L02769A + PEA L02769A + LDA L027694+2 + PHA + LDA L027694 + PHA + PEA $0000 + PEA $002E + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L02769C+2 + PHA + LDA L02769C + PHA + _MarkResourceChange + PEA $8004 + LDA L02769C+2 + PHA + LDA L02769C + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L02769C+2 + PHA + LDA L02769C + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L027694 ADRL $00000000 + DW $0000 +L02769A DW $000E +L02769C ADRL $00000000 + DW $000A + DW $000A + DW $003E + DW $0096 + ADRL $89000000 + DW $0000 + DW $1400 + DW $0000 + DW $0000 + DW $0000 + DW $0005 + DW $0002 + DW $0000 + DW $0000 + DW $0000 + DW $000A + DW $0005 + DW $0000 + DW $0000 +L0276C8 LDA $04,S + STA L02785E + LDA $06,S + STA L02785E+2 + LDA $08,S + STA L02785A + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0612 + LDA L02785A + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L027856 + PLA + STA L027856+2 + LDA L027856+2 + PHA + LDA L027856 + PHA + _HLock + PEA ^L02787A + PEA L02787A + LDA L027856+2 + PHA + LDA L027856 + PHA + PEA $0000 + PEA $0612 + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8002 + _UniqueResourceID + PLA + STA L027876 + PLA + STA L027878 + LDA L027856+2 + PHA + LDA L027856 + PHA + PEA $0000 + PEA $8002 + LDA L027878 + PHA + LDA L027876 + PHA + _AddResource + PEA $8002 + LDA L027878 + PHA + LDA L027876 + PHA + _WriteResource + PEA $FFFF + PEA $8002 + LDA L027878 + PHA + LDA L027876 + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L02785E+2 + PHA + LDA L02785E + PHA + _LoadResource + PLA + STA L027856 + PLA + STA L027856+2 + LDA L027856+2 + PHA + LDA L027856 + PHA + _HUnlock + PEA $0000 + PEA $001E + LDA L027856+2 + PHA + LDA L027856 + PHA + _SetHandleSize + LDA L027856+2 + PHA + LDA L027856 + PHA + _HLock + PEA ^L02785C + PEA L02785C + LDA L027856+2 + PHA + LDA L027856 + PHA + PEA $0000 + PEA $001E + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L02785E+2 + PHA + LDA L02785E + PHA + _MarkResourceChange + PEA $8004 + LDA L02785E+2 + PHA + LDA L02785E + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L02785E+2 + PHA + LDA L02785E + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L027856 ADRL $00000000 +L02785A DW $0000 +L02785C DW $0007 +L02785E ADRL $00000000 + DW $0007 + DW $0012 + DW $0029 + DW $00C2 + ADRL $8D000000 + DW $0000 + DW $1002 + DB $00 + DB $00 + DB $00 + DB $00 +L027876 DB $00 + DB $00 +L027878 DB $00 + DB $00 +L02787A DB $80 + DB $00 + DB $07 + DB $00 + DB $12 + DB $00 + DB $29 + DB $00 + DB $C2 + DB $00 + DB $11 + DB $82 + DB $01 + DB $00 + DB $0A + DB $00 + DB $07 + DB $00 + DB $12 + DB $00 + DB $29 + DB $00 + DB $C2 + DB $00 + DB $90 + DB $00 + DB $80 + DB $00 + DB $00 + DB $00 + DB $2C + DB $00 + DB $07 + DB $00 + DB $12 + DB $00 + DB $29 + DB $00 + DB $C2 + DB $00 + DB $07 + DB $00 + DB $12 + DB $00 + DB $29 + DB $00 + DB $C2 + DB $00 + DB $07 + DB $00 + DB $12 + DB $00 + DB $29 + DB $00 + DB $C2 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $FC + DB $00 + DB $00 + DB $00 + DB $03 + DB $00 + DB $00 + DB $03 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $C0 + DB $00 + DB $00 + DB $77 + DB $77 + DB $77 + DB $70 + DB $00 + DB $77 + DB $70 + DB $00 + DB $00 + DB $3F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $07 + DB $77 + DB $77 + DB $77 + DB $07 + DB $77 + DB $0E + DB $EE + DB $07 + DB $77 + DB $77 + DB $77 + DB $00 + DB $03 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $00 + DB $EF + DB $F0 + DB $07 + DB $77 + DB $77 + DB $77 + DB $70 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $C0 + DB $77 + DB $77 + DB $77 + DB $07 + DB $77 + DB $07 + DB $0F + DB $07 + DB $70 + DB $00 + DB $00 + DB $77 + DB $77 + DB $00 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $00 + DB $00 + DB $00 + DB $C0 + DB $00 + DB $07 + DB $70 + DB $77 + DB $70 + DB $77 + DB $77 + DB $07 + DB $77 + DB $70 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $00 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $70 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $00 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $00 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $00 + DB $00 + DB $72 + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $70 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $70 + DB $77 + DB $20 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $00 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $77 + DB $07 + DB $22 + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $70 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $77 + DB $70 + DB $22 + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $01 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $77 + DB $77 + DB $00 + DB $20 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $00 + DB $00 + DB $03 + DB $FF + DB $FF + DB $FF + DB $FF + DB $C0 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $07 + DB $77 + DB $70 + DB $27 + DB $02 + DB $07 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $22 + DB $20 + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $07 + DB $02 + DB $72 + DB $00 + DB $20 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $72 + DB $20 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $70 + DB $07 + DB $20 + DB $FE + DB $02 + DB $00 + DB $77 + DB $77 + DB $77 + DB $77 + DB $70 + DB $77 + DB $77 + DB $77 + DB $20 + DB $3F + DB $FF + DB $FF + DB $FF + DB $FF + DB $01 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $1F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $70 + DB $0F + DB $EE + DB $07 + DB $22 + DB $00 + DB $77 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $77 + DB $72 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $01 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $1F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $77 + DB $70 + DB $00 + DB $77 + DB $77 + DB $22 + DB $07 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $77 + DB $72 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $C0 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $07 + DB $77 + DB $07 + DB $00 + DB $27 + DB $77 + DB $70 + DB $77 + DB $77 + DB $00 + DB $77 + DB $77 + DB $77 + DB $77 + DB $72 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $00 + DB $72 + DB $72 + DB $02 + DB $77 + DB $00 + DB $77 + DB $00 + DB $00 + DB $00 + DB $07 + DB $70 + DB $77 + DB $72 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $00 + DB $02 + DB $00 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $77 + DB $72 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $77 + DB $77 + DB $70 + DB $FE + DB $07 + DB $70 + DB $77 + DB $77 + DB $77 + DB $70 + DB $00 + DB $77 + DB $77 + DB $72 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $07 + DB $77 + DB $70 + DB $FE + DB $07 + DB $70 + DB $77 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $77 + DB $22 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $00 + DB $00 + DB $00 + DB $77 + DB $77 + DB $77 + DB $77 + DB $77 + DB $07 + DB $77 + DB $77 + DB $72 + DB $22 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $22 + DB $72 + DB $77 + DB $77 + DB $77 + DB $70 + DB $73 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $3F + DB $FC + DB $00 + DB $3F + DB $FF + DB $F0 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $03 + DB $0F + DB $FF + DB $F0 + DB $00 + DB $00 + DB $00 + DB $FF + DB $F0 + DB $FF + DB $0F + DB $FF + DB $C0 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $00 + DB $00 + DB $00 + DB $FF + DB $F0 + DB $00 + DB $0F + DB $FF + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $00 + DB $00 + DB $03 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $01 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $F0 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $01 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $1F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $00 + DB $00 + DB $00 + DB $00 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $10 + DB $1F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $00 + DB $00 + DB $00 + DB $00 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $01 + DB $0F + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $C0 + DB $00 + DB $00 + DB $01 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $11 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FC + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $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 +L027E8C LDA $04,S + STA L028244 + LDA $06,S + STA L028244+2 + LDA $08,S + STA L028240 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0009 + LDA L028240 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02823C + PLA + STA L02823C+2 + LDA L02823C+2 + PHA + LDA L02823C + PHA + _HLock + PEA ^L028288 + PEA L028288 + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $0009 + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8006 + _UniqueResourceID + PLA + STA L02826E + PLA + STA L028270 + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $8006 + LDA L028270 + PHA + LDA L02826E + PHA + _AddResource + PEA $8006 + LDA L028270 + PHA + LDA L02826E + PHA + _WriteResource + PEA $FFFF + PEA $8006 + LDA L028270 + PHA + LDA L02826E + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0007 + LDA L028240 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02823C + PLA + STA L02823C+2 + LDA L02823C+2 + PHA + LDA L02823C + PHA + _HLock + PEA ^L028291 + PEA L028291 + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $0007 + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8006 + _UniqueResourceID + PLA + STA L028284 + PLA + STA L028286 + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $8006 + LDA L028286 + PHA + LDA L028284 + PHA + _AddResource + PEA $8006 + LDA L028286 + PHA + LDA L028284 + PHA + _WriteResource + PEA $FFFF + PEA $8006 + LDA L028286 + PHA + LDA L028284 + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000E + LDA L028240 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02823C + PLA + STA L02823C+2 + LDA L02823C+2 + PHA + LDA L02823C + PHA + _HLock + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $800A + _UniqueResourceID + PLA + STA L028272 + PLA + STA L028274 + LDA L028272 + STA L02827C + STA L028262 + PEA ^L02827A + PEA L02827A + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $000E + _PtrToHand + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $800A + LDA L028274 + PHA + LDA L028272 + PHA + _AddResource + PEA $800A + LDA L028274 + PHA + LDA L028272 + PHA + _WriteResource + PEA $FFFF + PEA $800A + LDA L028274 + PHA + LDA L028272 + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0012 + LDA L028240 + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L02823C + PLA + STA L02823C+2 + LDA L02823C+2 + PHA + LDA L02823C + PHA + _HLock + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8009 + _UniqueResourceID + PLA + STA L02825E + PLA + STA L028260 + LDA L02825E + STA L02826A + PEA ^L028268 + PEA L028268 + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $0012 + _PtrToHand + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $8009 + LDA L028260 + PHA + LDA L02825E + PHA + _AddResource + PEA $8009 + LDA L028260 + PHA + LDA L02825E + PHA + _WriteResource + PEA $FFFF + PEA $8009 + LDA L028260 + PHA + LDA L02825E + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L028244+2 + PHA + LDA L028244 + PHA + _LoadResource + PLA + STA L02823C + PLA + STA L02823C+2 + LDA L02823C+2 + PHA + LDA L02823C + PHA + _HUnlock + PEA $0000 + PEA $0026 + LDA L02823C+2 + PHA + LDA L02823C + PHA + _SetHandleSize + LDA L02823C+2 + PHA + LDA L02823C + PHA + _HLock + PEA ^L028242 + PEA L028242 + LDA L02823C+2 + PHA + LDA L02823C + PHA + PEA $0000 + PEA $0026 + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L028244+2 + PHA + LDA L028244 + PHA + _MarkResourceChange + PEA $8004 + LDA L028244+2 + PHA + LDA L028244 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L028244+2 + PHA + LDA L028244 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L02823C ADRL $00000000 +L028240 DW $0000 +L028242 DW $000A +L028244 ADRL $00000000 + DW $000A + DW $000A + DW $0000 + DW $0000 + ADRL $87000000 + DW $0040 + DW $1002 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02825E DB $00 + DB $00 +L028260 DB $00 + DB $00 +L028262 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L028268 DB $00 + DB $00 +L02826A DB $00 + DB $00 + DB $00 + DB $A0 +L02826E DB $00 + DB $00 +L028270 DB $00 + DB $00 +L028272 DB $00 + DB $00 +L028274 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02827A DB $00 + DB $00 +L02827C DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $80 +L028284 DB $00 + DB $00 +L028286 DB $00 + DB $00 +L028288 STR ' Pop-up ' +L028291 STR 'Item 1' +L028298 LDA $04,S + STA L02842E + LDA $06,S + STA L02842E+2 + LDA $08,S + STA L02842A + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $000D + LDA L02842A + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L028426 + PLA + STA L028426+2 + LDA L028426+2 + PHA + LDA L028426 + PHA + _HLock + PEA ^L02844C + PEA L02844C + LDA L028426+2 + PHA + LDA L028426 + PHA + PEA $0000 + PEA $000D + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $8006 + _UniqueResourceID + PLA + STA L028446 + PLA + STA L028448 + LDA L028426+2 + PHA + LDA L028426 + PHA + PEA $0000 + PEA $8006 + LDA L028448 + PHA + LDA L028446 + PHA + _AddResource + PEA $8006 + LDA L028448 + PHA + LDA L028446 + PHA + _WriteResource + PEA $FFFF + PEA $8006 + LDA L028448 + PHA + LDA L028446 + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L02842E+2 + PHA + LDA L02842E + PHA + _LoadResource + PLA + STA L028426 + PLA + STA L028426+2 + LDA L028426+2 + PHA + LDA L028426 + PHA + _HUnlock + PEA $0000 + PEA $0020 + LDA L028426+2 + PHA + LDA L028426 + PHA + _SetHandleSize + LDA L028426+2 + PHA + LDA L028426 + PHA + _HLock + PEA ^L02842C + PEA L02842C + LDA L028426+2 + PHA + LDA L028426 + PHA + PEA $0000 + PEA $0020 + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L02842E+2 + PHA + LDA L02842E + PHA + _MarkResourceChange + PEA $8004 + LDA L02842E+2 + PHA + LDA L02842E + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L02842E+2 + PHA + LDA L02842E + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L028426 ADRL $00000000 +L02842A DW $0000 +L02842C DW $0008 +L02842E ADRL $00000000 + DW $000A + DW $000A + DW $0013 + DW $0082 + ADRL $84000000 + DW $0000 + DW $1002 + DB $00 + DB $00 + DB $00 + DB $00 +L028446 DB $00 + DB $00 +L028448 DB $00 + DB $00 + DB $00 + DB $00 +L02844C STR 'Radio button' +L028459 LDA $04,S + STA L02853E + LDA $06,S + STA L02853E+2 + LDA $08,S + STA L02853A + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $8004 + LDA L02853E+2 + PHA + LDA L02853E + PHA + _LoadResource + PLA + STA L028536 + PLA + STA L028536+2 + LDA L028536+2 + PHA + LDA L028536 + PHA + _HUnlock + PEA $0000 + PEA $0024 + LDA L028536+2 + PHA + LDA L028536 + PHA + _SetHandleSize + LDA L028536+2 + PHA + LDA L028536 + PHA + _HLock + PEA ^L02853C + PEA L02853C + LDA L028536+2 + PHA + LDA L028536 + PHA + PEA $0000 + PEA $0024 + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L02853E+2 + PHA + LDA L02853E + PHA + _MarkResourceChange + PEA $8004 + LDA L02853E+2 + PHA + LDA L02853E + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L02853E+2 + PHA + LDA L02853E + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L028536 ADRL $00000000 +L02853A DW $0000 +L02853C DW $000A +L02853E ADRL $00000000 + DW $000A + DW $000A + DW $0017 + DW $00D2 + ADRL $86000000 + DW $001C + DW $1002 + DB $00 + DB $00 + DB $00 + DB $00 + DB $64 + DB $00 + DB $32 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L028560 LDA $04,S + STA L028645 + LDA $06,S + STA L028645+2 + LDA $08,S + STA L028641 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $8004 + LDA L028645+2 + PHA + LDA L028645 + PHA + _LoadResource + PLA + STA L02863D + PLA + STA L02863D+2 + LDA L02863D+2 + PHA + LDA L02863D + PHA + _HUnlock + PEA $0000 + PEA $0020 + LDA L02863D+2 + PHA + LDA L02863D + PHA + _SetHandleSize + LDA L02863D+2 + PHA + LDA L02863D + PHA + _HLock + PEA ^L028643 + PEA L028643 + LDA L02863D+2 + PHA + LDA L02863D + PHA + PEA $0000 + PEA $0020 + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L028645+2 + PHA + LDA L028645 + PHA + _MarkResourceChange + PEA $8004 + LDA L028645+2 + PHA + LDA L028645 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L028645+2 + PHA + LDA L028645 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L02863D ADRL $00000000 +L028641 DW $0000 +L028643 DW $0006 +L028645 ADRL $00000000 + DW $000A + DW $000A + DW $0017 + DW $0024 + ADRL $88000000 + DW $0000 + DW $1000 + DB $00 + DB $00 + DB $00 + DB $00 +L02865D LDA $04,S + STA L0287F3 + LDA $06,S + STA L0287F3+2 + LDA $08,S + STA L0287EF + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0009 + LDA L0287EF + PHA + PEA $8000 + PEA $0000 + PEA $0000 + _NewHandle + PLA + STA L0287EB + PLA + STA L0287EB+2 + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + _HLock + PEA ^L02880F + PEA L02880F + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + PEA $0000 + PEA $0009 + _PtrToHand + PEA $0000 + PEA $0000 + PEA $FFFF + PEA $800B + _UniqueResourceID + PLA + STA L02880B + PLA + STA L02880D + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + PEA $0000 + PEA $800B + LDA L02880D + PHA + LDA L02880B + PHA + _AddResource + PEA $800B + LDA L02880D + PHA + LDA L02880B + PHA + _WriteResource + PEA $FFFF + PEA $800B + LDA L02880D + PHA + LDA L02880B + PHA + _ReleaseResource + PEA $0000 + PEA $0000 + PEA $8004 + LDA L0287F3+2 + PHA + LDA L0287F3 + PHA + _LoadResource + PLA + STA L0287EB + PLA + STA L0287EB+2 + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + _HUnlock + PEA $0000 + PEA $001E + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + _SetHandleSize + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + _HLock + PEA ^L0287F1 + PEA L0287F1 + LDA L0287EB+2 + PHA + LDA L0287EB + PHA + PEA $0000 + PEA $001E + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L0287F3+2 + PHA + LDA L0287F3 + PHA + _MarkResourceChange + PEA $8004 + LDA L0287F3+2 + PHA + LDA L0287F3 + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L0287F3+2 + PHA + LDA L0287F3 + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L0287EB ADRL $00000000 +L0287EF DW $0000 +L0287F1 DW $0007 +L0287F3 ADRL $00000000 + DW $000A + DW $000A + DW $0013 + DW $0055 + ADRL $81000000 + DW $0000 + DW $1002 + DB $00 + DB $00 + DB $00 + DB $00 +L02880B DB $00 + DB $00 +L02880D DB $00 + DB $00 + +L02880F ASC 'Stat text' + +L028818 LDA $04,S + STA L0288FD + LDA $06,S + STA L0288FD+2 + LDA $08,S + STA L0288F9 + LDA $01,S + STA $07,S + LDA $02,S + STA $08,S + PLA + PLA + PLA + PEA $0000 + PEA $0000 + PEA $0001 + _SetResourceFileDepth + PEA $0000 + PEA $0000 + PEA $8004 + LDA L0288FD+2 + PHA + LDA L0288FD + PHA + _LoadResource + PLA + STA L0288F5 + PLA + STA L0288F5+2 + LDA L0288F5+2 + PHA + LDA L0288F5 + PHA + _HUnlock + PEA $0000 + PEA $0032 + LDA L0288F5+2 + PHA + LDA L0288F5 + PHA + _SetHandleSize + LDA L0288F5+2 + PHA + LDA L0288F5 + PHA + _HLock + PEA ^L0288FB + PEA L0288FB + LDA L0288F5+2 + PHA + LDA L0288F5 + PHA + PEA $0000 + PEA $0032 + _PtrToHand + PEA $FFFF + PEA $8004 + LDA L0288FD+2 + PHA + LDA L0288FD + PHA + _MarkResourceChange + PEA $8004 + LDA L0288FD+2 + PHA + LDA L0288FD + PHA + _WriteResource + PEA $FFFF + PEA $8004 + LDA L0288FD+2 + PHA + LDA L0288FD + PHA + _ReleaseResource + _SetResourceFileDepth + PLA + RTL + +L0288F5 ADRL $00000000 +L0288F9 DW $0000 +L0288FB DW $000C +L0288FD ADRL $00000000 + DW $000A + DW $000A + DW $003C + DW $00C8 + ADRL $85000000 + DW $0000 + DW $7400 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $A8 + DB $63 + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $FF + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + +L02892D ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L028C89 + PEA L028C89 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02897C + adrl stickyON + adrl stickyOFF + adrl ctlICNsticky + adrl ctlICNdisabled + ADRL L0289C8 + ADRL L0289E8 + ADRL L028A08 + ADRL L028A68 + ADRL L028A88 + ADRL L028A28 + ADRL L028A48 + ADRL L028AA8 + ADRL L028AC8 + ADRL L028AE8 + ADRL L028B08 + ADRL L028B28 + ADRL L028B48 + ADRL L028B66 + ADRL L028B84 + ADRL L028BA2 + ADRL L028BC0 + ADRL L028BEF + ADRL $00000000 + +* AV 202010 - Checkbox Sticky + +stickyON DW $0008 ; pCount + ADRL $00000016 ; ID + DW 41 ; rect + DW 222 + DW 50 + DW 269 + ADRL $84000000 ; procRef + DW $FF06 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strSTION ; titleRef + DW $0001 ; initialValue + +stickyOFF + DW $0008 ; pCount + ADRL $00000015 ; ID + DW 41 ; rect + DW 284 + DW 50 + DW 333 + ADRL $84000000 ; procRef + DW $FF06 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strSTIOFF ; titleRef + DW $0000 ; initialValue + +ctlICNsticky + DW $0008 ; pCount + ADRL $00000014 ; ID + DW 41 ; rect + DW 140 + DW 50 + DW 218 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strICNsticky + DW $0000 ; initialValue + +* Checkbox Disabled + +ctlICNdisabled + DW $0008 ; pCount + ADRL $00000013 ; ID + DW 63 ; rect + DW $001E + DW 72 + DW $0077 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strICNdisabled + DW $0000 ; initialValue + +* Checkbox Invisible + +L0289C8 DW $0008 ; pCount + ADRL $00000012 ; ID + DW 41 ; rect + DW $001E + DW 50 + DW $0080 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C6A ; titleRef + DW $0000 ; initialValue + +L0289E8 DW $0008 ; pCount + ADRL $00000011 ; ID + DW $000A ; rect + DW $001C + DW $0013 + DW $0045 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C7B ; textRef + DW $0002 ; textSize +L028A08 DW $0008 ; pCount + ADRL $00000010 ; ID + DW $000A ; rect + DW $0054 + DW $0013 + DW $00A0 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L028A28 DW $0008 ; pCount + ADRL $0000000F ; ID + DW $000A ; rect + DW $00B4 + DW $0013 + DW $00EB + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C7D ; textRef + DW $0007 ; textSize +L028A48 DW $0008 ; pCount + ADRL $0000000E ; ID + DW $0008 ; rect + DW $00FC + DW $0015 + DW $0148 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L028A68 DW $0008 ; pCount + ADRL $0000000D ; ID + DW $001A ; rect + DW $001C + DW $0023 + DW $0050 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C84 ; textRef + DW $0005 ; textSize +L028A88 DW $0008 ; pCount + ADRL $0000000C ; ID + DW $0018 ; rect + DW $0054 + DW $0025 + DW $0148 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L02B9AD ; defaultRef + +* Checkbox Border + +L028AA8 DW $0008 ; pCount + ADRL $0000000B ; ID + DW 52 ; rect + DW $001E + DW 61 + DW $0080 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C4A ; titleRef + DW $0000 ; initialValue + +L028AC8 DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0034 ; rect + DW $007E + DW $003D + DW $00CC + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C29 ; titleRef + DW $0001 ; initialValue + +L028AE8 DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0034 ; rect + DW $00DE + DW $003D + DW $0130 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C36 ; titleRef + DW $0000 ; initialValue + +L028B08 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $003E ; rect + DW $007E + DW $0047 + DW $00CC + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C2F ; titleRef + DW $0000 ; initialValue + +L028B28 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $003E ; rect + DW $00DE + DW $0047 + DW $014E + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C3E ; titleRef + DW $0000 ; initialValue + +L028B48 DW $0007 ; pCount + ADRL $00000006 ; ID + DW $0060 ; rect + DW $001C + DW $006D + DW $0076 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C1E ; titleRef +L028B66 DW $0007 ; pCount + ADRL $00000005 ; ID + DW $004D ; rect + DW $001C + DW $005A + DW $0076 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C51 ; titleRef +L028B84 DW $0007 ; pCount + ADRL $00000004 ; ID + DW $0060 ; rect + DW $0084 + DW $006D + DW $00DE + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C61 ; titleRef +L028BA2 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $004D ; rect + DW $0084 + DW $005A + DW $00DE + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C59 ; titleRef +L028BC0 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $004D ; rect + DW $00EE + DW $005A + DW $0148 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028BE8 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L028BE8 STR 'Cancel' +L028BEF DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0060 ; rect + DW $00EE + DW $006D + DW $0148 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028C17 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +strSTION str 'On' +strSTIOFF str 'Off' +strICNsticky str 'Sticky' +strICNdisabled str 'Disabled' + +L028C17 STR 'Change' +L028C1E STR 'Display...' +L028C29 STR 'Round' +L028C2F STR 'Square' +L028C36 STR 'Default' +L028C3E STR 'Drop shadow' +L028C4A STR 'Border' +L028C51 STR 'Edit...' +L028C59 STR 'Keys...' +L028C61 STR 'Color...' +L028C6A STR 'Invisible' +L028C74 STR ' Icon ' +L028C7B ASC 'ID' +L028C7D ASC 'Ref Con' +L028C84 ASC 'Title' + +L028C89 DW $0050 + DW $80A0 ; frame bits + ADRL L028C74 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L028CD9 ; 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 $004F ; content rect + DW $011A + DW $00C6 + DW $027B + ADRL $FFFFFFFF ; starting plane + ADRL L02897C ; storage ptr + DW $0003 +L028CD9 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L028CE3 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02911C + PEA L02911C + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L028D32 ADRL L028E9D + ADRL L028E6E + ADRL L028DB0 + ADRL L028DD0 + ADRL L028E4E + ADRL L028E2E + ADRL L028E0E + ADRL L028F80 + ADRL L029052 + ADRL L028F62 + ADRL L028F44 + ADRL L029034 + ADRL L029016 + ADRL L028FF8 + ADRL L028F08 + ADRL L028F26 + ADRL L028D92 + ADRL L028ECC + ADRL L028FDA + ADRL L028FBC + ADRL L028EEA + ADRL L028F9E + ADRL L028DF0 + ADRL $00000000 +L028D92 DW $0007 ; pCount + ADRL $00000011 ; ID + DW $0008 ; rect + DW $00F4 + DW $000F + DW $0110 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000006 ; refCon + ADRL L029360 ; iconRef +L028DB0 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0022 ; rect + DW $0024 + DW $002B + DW $0138 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0290FA ; titleRef + DW $0000 ; initialValue +L028DD0 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0018 ; rect + DW $0024 + DW $0021 + DW $0134 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0290D8 ; titleRef + DW $0001 ; initialValue +L028DF0 DW $0007 ; pCount + ADRL $00000017 ; ID + DW $0008 ; rect + DW $003E + DW $000F + DW $005A + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029180 ; iconRef +L028E0E DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0043 ; rect + DW $0024 + DW $004C + DW $015C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0290B1 ; titleRef + DW $0000 ; initialValue +L028E2E DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0039 ; rect + DW $0024 + DW $0042 + DW $0124 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029092 ; titleRef + DW $0000 ; initialValue +L028E4E DW $0008 ; pCount + ADRL $00000003 ; ID + DW $002F ; rect + DW $0024 + DW $0038 + DW $0132 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029070 ; titleRef + DW $0000 ; initialValue +L028E6E DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0052 ; rect + DW $0048 + DW $005F + DW $00A2 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028E96 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L028E96 STR 'Cancel' +L028E9D DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0052 ; rect + DW $00D8 + DW $005F + DW $0132 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L028EC5 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L028EC5 STR 'Change' +L028ECC DW $0007 ; pCount + ADRL $00000012 ; ID + DW $0008 ; rect + DW $00D4 + DW $000F + DW $00F0 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000005 ; refCon + ADRL L029310 ; iconRef +L028EEA DW $0007 ; pCount + ADRL $00000015 ; ID + DW $0008 ; rect + DW $007A + DW $000F + DW $0096 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000002 ; refCon + ADRL L029220 ; iconRef +L028F08 DW $0007 ; pCount + ADRL $0000000F ; ID + DW $0010 ; rect + DW $003E + DW $0017 + DW $005A + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000008 ; refCon + ADRL L029400 ; iconRef +L028F26 DW $0007 ; pCount + ADRL $00000010 ; ID + DW $0008 ; rect + DW $0112 + DW $000F + DW $012E + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000007 ; refCon + ADRL L0293B0 ; iconRef +L028F44 DW $0007 ; pCount + ADRL $0000000B ; ID + DW $0010 ; rect + DW $00B6 + DW $0017 + DW $00D2 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $0000000C ; refCon + ADRL L029540 ; iconRef +L028F62 DW $0007 ; pCount + ADRL $0000000A ; ID + DW $0010 ; rect + DW $00D4 + DW $0017 + DW $00F0 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $0000000D ; refCon + ADRL L029590 ; iconRef +L028F80 DW $0007 ; pCount + ADRL $00000008 ; ID + DW $0010 ; rect + DW $0114 + DW $0017 + DW $012E + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $0000000F ; refCon + ADRL L029630 ; iconRef +L028F9E DW $0007 ; pCount + ADRL $00000016 ; ID + DW $0008 ; rect + DW $005C + DW $000F + DW $0078 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000001 ; refCon + ADRL L0291D0 ; iconRef +L028FBC DW $0007 ; pCount + ADRL $00000014 ; ID + DW $0008 ; rect + DW $009A + DW $000F + DW $00B2 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000003 ; refCon + ADRL L029270 ; iconRef +L028FDA DW $0007 ; pCount + ADRL $00000013 ; ID + DW $0008 ; rect + DW $00B8 + DW $000F + DW $00D0 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000004 ; refCon + ADRL L0292C0 ; iconRef +L028FF8 DW $0007 ; pCount + ADRL $0000000E ; ID + DW $0010 ; rect + DW $005E + DW $0017 + DW $0076 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $00000009 ; refCon + ADRL L029450 ; iconRef +L029016 DW $0007 ; pCount + ADRL $0000000D ; ID + DW $0010 ; rect + DW $007C + DW $0017 + DW $0094 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $0000000A ; refCon + ADRL L0294A0 ; iconRef +L029034 DW $0007 ; pCount + ADRL $0000000C ; ID + DW $0010 ; rect + DW $009A + DW $0017 + DW $00B2 + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $0000000B ; refCon + ADRL L0294F0 ; iconRef +L029052 DW $0007 ; pCount + ADRL $00000009 ; ID + DW $0010 ; rect + DW $00F6 + DW $0017 + DW $010E + ADRL $07FF0001 ; procRef + DW $0006 ; flag + DW $1000 ; moreFlags + ADRL $0000000E ; refCon + ADRL L0295E0 ; iconRef +L029070 STR 'Off line (AND light-gray pattern)' +L029092 STR 'Open (Copy light-gray pattern)' +L0290B1 STR 'Selected (Invert image before copying)' +L0290D8 STR 'Background color applied to black' +L0290FA STR 'Foreground color applied to white' +L02911C DW $0050 + DW $80A0 ; frame bits + ADRL L02916C ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L029176 ; 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 $0056 ; content rect + DW $00F2 + DW $00BC + DW $0265 + ADRL $FFFFFFFF ; starting plane + ADRL L028D32 ; storage ptr + DW $0003 +L02916C STR ' Display ' +L029176 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L029180 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 000000000000 + HEX 000000000000 + HEX 000000000000 + HEX 000000000000 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L0291D0 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 011111111110 + HEX 011111111110 + HEX 011111111110 + HEX 011111111110 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029220 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 022222222220 + HEX 022222222220 + HEX 022222222220 + HEX 022222222220 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029270 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 033333333330 + HEX 033333333330 + HEX 033333333330 + HEX 033333333330 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L0292C0 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 044444444440 + HEX 044444444440 + HEX 044444444440 + HEX 044444444440 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029310 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 055555555550 + HEX 055555555550 + HEX 055555555550 + HEX 055555555550 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029360 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 066666666660 + HEX 066666666660 + HEX 066666666660 + HEX 066666666660 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L0293B0 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 077777777770 + HEX 077777777770 + HEX 077777777770 + HEX 077777777770 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029400 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 088888888880 + HEX 088888888880 + HEX 088888888880 + HEX 088888888880 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029450 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 099999999990 + HEX 099999999990 + HEX 099999999990 + HEX 099999999990 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L0294A0 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 0AAAAAAAAAA0 + HEX 0AAAAAAAAAA0 + HEX 0AAAAAAAAAA0 + HEX 0AAAAAAAAAA0 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L0294F0 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 0BBBBBBBBBB0 + HEX 0BBBBBBBBBB0 + HEX 0BBBBBBBBBB0 + HEX 0BBBBBBBBBB0 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029540 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 0CCCCCCCCCC0 + HEX 0CCCCCCCCCC0 + HEX 0CCCCCCCCCC0 + HEX 0CCCCCCCCCC0 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029590 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 0DDDDDDDDDD0 + HEX 0DDDDDDDDDD0 + HEX 0DDDDDDDDDD0 + HEX 0DDDDDDDDDD0 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L0295E0 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 0EEEEEEEEEE0 + HEX 0EEEEEEEEEE0 + HEX 0EEEEEEEEEE0 + HEX 0EEEEEEEEEE0 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF +L029630 DW $0000 ; Icon type + DW $0024 ; Icon size + DW $0006 ; Icon height + DW $000C ; Icon width + HEX 000000000000 ; Icon image + HEX 0FFFFFFFFFF0 + HEX 0FFFFFFFFFF0 + HEX 0FFFFFFFFFF0 + HEX 0FFFFFFFFFF0 + HEX 000000000000 + HEX FFFFFFFFFFFF ; Icon mask + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + HEX FFFFFFFFFFFF + +*--- Window for Stat text control + +L029680 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02994B + PEA L02994B + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +*--- Controls for the Stat text window + +L0296CF + adrl ctlBlastText + adrl ctlTextCanDim + adrl ctlSquishText + ADRL L029707 + ADRL L029727 + ADRL L029747 + ADRL L029767 + ADRL L029787 + ADRL L0297A7 + ADRL L0297C7 + ADRL L0297E7 + ADRL L029807 + ADRL L029827 + ADRL L029847 + ADRL L029865 + ADRL L02988D + ADRL $00000000 + +* Checkbox Blast text (bit 2) + +ctlBlastText + DW $0008 ; pCount + ADRL $00000010 ; ID + DW 102 ; rect + DW $001A + DW 111 + DW $0094 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strBlastText ; titleRef + DW $0000 ; initialValue + +* Checkbox Text can dim (bit 3) + +ctlTextCanDim + DW $0008 ; pCount + ADRL $0000000F ; ID + DW 112 ; rect + DW $001A + DW 121 + DW $00AE + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strTextCanDim ; titleRef + DW $0000 ; initialValue + +* Checkbox Squish text (bit 4) + +ctlSquishText + DW $0008 ; pCount + ADRL $0000000E ; ID + DW 122 ; rect + DW $001A + DW 131 + DW $009E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strSquishText ; titleRef + DW $0000 ; initialValue + +* Checkbox Invisible (bit 7) + +L029707 DW $0008 ; pCount + ADRL $0000000D ; ID + DW 7 ; rect + DW $001A + DW 16 + DW $007E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02992C ; titleRef + DW $0000 ; initialValue + +* Checkbox Text substitution (bit 1) + +L029727 DW $0008 ; pCount + ADRL $0000000C ; ID + DW 92 ; rect (was 9B) + DW $001A ; was 3E + DW 101 ; was A4 + DW $00BC ; was E0 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02991A ; titleRef + DW $0000 ; initialValue + +* Radio Left justification + +L029747 DW $0008 ; pCount + ADRL $0000000B ; ID + DW 50 ; rect + DW $001A + DW 59 + DW $00BA + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029907 ; titleRef + DW $0000 ; initialValue + +* Radio Right justification + +L029767 DW $0008 ; pCount + ADRL $0000000A ; ID + DW 60 ; rect + DW $001A + DW 69 + DW $00CE + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0298F2 ; titleRef + DW $0000 ; initialValue + +* Radio Center justification + +L029787 DW $0008 ; pCount + ADRL $00000009 ; ID + DW 70 ; rect + DW $001A + DW 79 + DW $00C8 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0298DE ; titleRef + DW $0000 ; initialValue + +* Radio Full justification + +L0297A7 DW $0008 ; pCount + ADRL $00000008 ; ID + DW 80 ; rect + DW $001A + DW 89 + DW $00C0 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0298CB ; titleRef + DW $0000 ; initialValue + +* Static text ID + +L0297C7 DW $0008 ; pCount + ADRL $00000007 ; ID + DW 21 ; rect + DW $0016 + DW 30 + DW $0061 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029942 ; textRef + DW $0002 ; textSize + +* Static text ID value + +L0297E7 DW $0008 ; pCount + ADRL $00000006 ; ID + DW 21 ; rect + DW $006A + DW 30 + DW $00B6 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize + +* Static text Ref Con + +L029807 DW $0008 ; pCount + ADRL $00000005 ; ID + DW 36 ; rect + DW $0016 + DW 45 + DW $0061 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029944 ; textRef + DW $0007 ; textSize + +* Line edit Ref Con + +L029827 DW $0008 ; pCount + ADRL $00000004 ; ID + DW 34 ; rect + DW $006A + DW 47 + DW $00B6 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0014 ; maxSize + ADRL L02BAAD ; defaultRef + +* Button Edit... + +L029847 DW $0007 ; pCount + ADRL $00000003 ; ID + DW 134 ; rect from 100 + DW $001A + DW 147 ; 113 + DW $0074 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0298C3 ; titleRef + +* Button Cancel + +L029865 DW $0009 ; pCount + ADRL $00000002 ; ID + DW 150 ; rect + DW $001A + DW 163 + DW $0074 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0298BC ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +* Button Change + +L02988D DW $0009 ; pCount + ADRL $00000001 ; ID + DW 150 ; rect + DW $0086 + DW 163 + DW $00E0 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0298B5 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +L0298B5 STR 'Change' +L0298BC STR 'Cancel' +L0298C3 STR 'Edit...' +L0298CB STR 'Full justification' +L0298DE STR 'Right justification' +L0298F2 STR 'Center justification' +L029907 STR 'Left justification' +L02991A STR 'Text substitution' +L02992C STR 'Invisible' +L029936 STR ' Stat text ' +L029942 ASC 'ID' +L029944 ASC 'Ref Con' + +* AV 202010 + +strBlastText str 'Blast text' +strTextCanDim str 'Text can dim' +strSquishText str 'Squish text' + +*--- Window for Static Text + +L02994B DW $0050 + DW $80A0 ; frame bits + ADRL L029936 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02999B ; 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 + ; content rect + DW $001B ; 18 Y1 (was 3A or 58d) AV 202010 + DW $0188 ; 392 X1 + DW $00C6 ; 198 Y2 + DW $027C ; 636 X2 + ADRL $FFFFFFFF ; starting plane + ADRL L0296CF ; storage ptr + DW $0003 + +L02999B DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 + +L0299A5 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L029BFF + PEA L029BFF + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L0299F4 ADRL L029A28 + ADRL L029AA8 + ADRL L029B54 + ADRL L029A68 + ADRL L029B74 + ADRL L029A48 + ADRL L029B94 + ADRL L029A88 + ADRL L029AC8 + ADRL L029AE6 + ADRL L029B04 + ADRL L029B2C + ADRL $00000000 +L029A28 DW $0008 ; pCount + ADRL $0000000C ; ID + DW $0007 ; rect + DW $0018 + DW $0010 + DW $0086 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BDB ; titleRef + DW $0000 ; initialValue +L029A48 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0024 ; rect + DW $0112 + DW $0031 + DW $015E + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L029A68 DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0026 ; rect + DW $0058 + DW $002F + DW $00A4 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L029A88 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0013 ; rect + DW $005A + DW $0020 + DW $015E + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L02B9AD ; defaultRef +L029AA8 DW $0008 ; pCount + ADRL $0000000B ; ID + DW $0007 ; rect + DW $008A + DW $0010 + DW $00E2 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BD3 ; titleRef + DW $0000 ; initialValue +L029AC8 DW $0007 ; pCount + ADRL $00000004 ; ID + DW $0036 ; rect + DW $0018 + DW $0043 + DW $0066 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BCB ; titleRef +L029AE6 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $0036 ; rect + DW $006A + DW $0043 + DW $00B8 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BC2 ; titleRef +L029B04 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0036 ; rect + DW $00BC + DW $0043 + DW $010A + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BBB ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L029B2C DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0036 ; rect + DW $0114 + DW $0043 + DW $0164 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BB4 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L029B54 DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0026 ; rect + DW $0018 + DW $002F + DW $0055 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BF1 ; textRef + DW $0002 ; textSize +L029B74 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0026 ; rect + DW $00D4 + DW $002F + DW $010F + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BF3 ; textRef + DW $0007 ; textSize +L029B94 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0015 ; rect + DW $0016 + DW $001E + DW $0057 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029BFA ; textRef + DW $0005 ; textSize +L029BB4 STR 'Change' +L029BBB STR 'Cancel' +L029BC2 STR 'Color...' +L029BCB STR 'Keys...' +L029BD3 STR 'Checked' +L029BDB STR 'Invisible' +L029BE5 STR ' Check box ' +L029BF1 ASC 'ID' +L029BF3 ASC 'Ref Con' +L029BFA ASC 'Title' + +L029BFF DW $0050 + DW $80A0 ; frame bits + ADRL L029BE5 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L029C4F ; 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 $0078 ; content rect + DW $0102 + DW $00C6 + DW $027B + ADRL $FFFFFFFF ; starting plane + ADRL L0299F4 ; storage ptr + DW $0003 +L029C4F DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 + +*--- Line Edit control entry point + +L029C59 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L029EB5 + PEA L029EB5 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L029CA8 ADRL L029E2C ; 1 + ADRL L029E0C ; 2 + ADRL L029DEC ; 3 + ADRL L029D8C ; 4 + ADRL L029D6C ; 5 + ADRL L029D4C ; 6 + ADRL L029D2C ; 7 + ADRL L029DCC ; 8 + ADRL L029DAC ; 9 + ADRL L029E4C ; A + ADRL L029D04 ; B + ADRL L029CDC ; C + adrl ctlPWCHAR ; D + adrl ctlPWCHARVALUE ; E + adrl ctlNOTAPWD ; F + adrl ctlKEYMASK ; 10 + adrl ctlKEYMASKVALUE ; 11 + ADRL $00000000 + +ctlPWCHAR DW $0008 ; pCount - Password char text + ADRL $0000000D ; ID + DW 70 ; rect + DW $0018 + DW 79 + DW $0063 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strPWCHAR ; textRef + DW $0008 ; textSize + +ctlPWCHARVALUE DW $0008 ; pCount - Password char value in hex + ADRL $0000000E ; ID + DW 68 ; rect + DW 104 + DW 81 + DW 152 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0004 ; maxSize + ADRL pwChar0 ; defaultRef + +ctlNOTAPWD DW $0008 ; pCount - Not a password checkbox + ADRL $0000000F ; ID + DW 70 ; rect + DW $00C0 + DW 79 + DW $014A + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strNOTPWD ; titleRef + DW $0000 ; initialValue + +ctlKEYMASK DW $0008 ; pCount - Key mask text + ADRL $00000010 ; ID + DW 10 ; rect + DW 186 + DW 19 + DW 275 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strKEYMASK ; textRef + DW $0008 ; textSize + +ctlKEYMASKVALUE DW $0008 ; pCount - Key mask value + ADRL $00000011 ; ID + DW 8 ; rect + DW 278 + DW 21 + DW 326 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0004 ; maxSize + ADRL keyMask0 ; defaultRef + +L029CDC DW $0009 ; pCount - Change button + ADRL $00000001 ; ID + DW 85 ; rect - was 73 + DW $00D0 + DW 101 ; was 86 + DW $012A + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029E8C ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +L029D04 DW $0009 ; pCount - Cancel button + ADRL $00000002 ; ID + DW 85 ; rect - was 73 + DW $003C + DW 101 ; was 86 + DW $0096 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029E85 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +L029D2C DW $0008 ; pCount - Text value + ADRL $00000006 ; ID + DW 38 ; rect + DW $0068 + DW 51 + DW $0146 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L02B9AD ; defaultRef + +L029D4C DW $0008 ; pCount - Text + ADRL $00000007 ; ID + DW 40 ; rect + DW $0018 + DW 49 + DW $0063 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029E9F ; textRef + DW $0004 ; textSize + +L029D6C DW $0008 ; pCount - Max Chars value + ADRL $00000004 ; ID + DW 53 ; rect + DW $0068 + DW 66 + DW $008C + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L02BCAD ; defaultRef + +L029D8C DW $0008 ; pCount - Max Chars text + ADRL $00000005 ; ID + DW 55 ; rect + DW $0018 + DW 64 + DW $0063 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029EA3 ; textRef + DW $0009 ; textSize + +L029DAC DW $0008 ; pCount - Ref Con value + ADRL $00000008 ; ID + DW 23 ; rect + DW $00FA + DW 36 + DW $0146 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef + +L029DCC DW $0008 ; pCount - Ref Con text + ADRL $00000009 ; ID + DW 25 ; rect + DW $00BA + DW 34 + DW $00F7 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029EAC ; textRef + DW $0007 ; textSize + +L029DEC DW $0008 ; pCount - ID value + ADRL $0000000A ; ID + DW 25 ; rect + DW $0068 + DW 34 + DW $00B4 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize + +L029E0C DW $0008 ; pCount - ID text + ADRL $0000000B ; ID + DW 25 ; rect + DW $0018 + DW 34 + DW $0063 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029EB3 ; textRef + DW $0002 ; textSize + +L029E2C DW $0008 ; pCount - Invisible + ADRL $0000000C ; ID + DW 9 ; rect + DW $001C + DW 18 + DW $0080 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029E7B ; titleRef + DW $0000 ; initialValue + +L029E4C DW $0008 ; pCount - Password checkbox + ADRL $00000003 ; ID + DW 55 ; rect + DW $00C0 + DW 64 + DW $014A + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L029E6C ; titleRef + DW $0000 ; initialValue + +L029E6C STR 'Password field' +L029E7B STR 'Invisible' +L029E85 STR 'Cancel' +L029E8C STR 'Change' +L029E93 STR ' Line Edit ' +L029E9F ASC 'Text' +L029EA3 ASC 'Max chars' +L029EAC ASC 'Ref Con' +L029EB3 ASC 'ID' + +strNOTPWD str 'Not a password' +strPWCHAR asc 'Pwd char' +pwChar0 db $04 +pwChar ENT + asc 'FFFF'0000 ; Default password character + +strKEYMASK asc 'Key mask' +keyMask0 db $04 +keyMask ENT + asc '0001'0000 ; Default key mask + +L029EB5 DW $0050 + DW $80A0 ; frame bits + ADRL L029E93 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L029F05 ; 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 85 ; content rect - was 100 + DW 280 + DW 198 + DW 636 + ADRL $FFFFFFFF ; starting plane + ADRL L029CA8 ; storage ptr + DW $0003 +L029F05 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 + +*--- AV 202010 - Adding Rectangle and Thermometer + +showRECTANGLE ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^winRECTANGLE + PEA winRECTANGLE + PEA $800E + _NewWindow2 + lda 1,s + sta L026C7F + lda 3,s + sta L026C7F+2 + _SetPort + PLB + PLD + RTL + +winRECTANGLE + DW $0050 + DW $80A0 ; frame bits + ADRL titleRECTANGLE ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL clrRECTANGLE ; 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 75 ; content rect - was 100 + DW 280 + DW 198 + DW 636 + ADRL $FFFFFFFF ; starting plane + ADRL ctlRECTANGLE ; storage ptr + DW $0003 +clrRECTANGLE + DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 + +titleRECTANGLE str ' Rectangle ' + +ctlRECTANGLE + adrl ctlRECT1 + adrl ctlRECT2 + adrl ctlRECT3 + adrl ctlRECT4 + adrl ctlRECT5 + adrl ctlRECT6 + adrl ctlRECT7 + adrl ctlRECT8 + adrl ctlRECT9 + adrl ctlRECTA + adrl ctlRECTB + adrl ctlRECTC + adrl ctlRECTD + adrl ctlRECTE + adrl ctlRECTF + adrl $0 + +ctlRECT1 DW $0009 ; pCount - Change button + ADRL $00000001 ; ID + DW 99 ; rect - was 73 + DW $00D0 + DW 115 ; was 86 + DW $012A + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT1 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +ctlRECT2 DW $0009 ; pCount - Cancel button + ADRL $00000002 ; ID + DW 99 ; rect - was 73 + DW $003C + DW 115 ; was 86 + DW $0096 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT2 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +ctlRECT3 DW $0008 ; pCount - ID text + ADRL $00000003 ; ID + DW 9 ; rect + DW 200 + DW 18 + DW 230 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT3 ; textRef + DW $0002 ; textSize + +ctlRECT4 DW $0008 ; pCount - ID value + ADRL $00000004 ; ID + DW 9 ; rect + DW 234 + DW 18 + DW 310 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize + +ctlRECT5 DW $0008 ; pCount - Ref Con text + ADRL $00000005 ; ID + DW 25 ; rect + DW 24 + DW 34 + DW 100 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT5 ; textRef + DW $0007 ; textSize + +ctlRECT6 DW $0008 ; pCount - Ref Con value + ADRL $00000006 ; ID + DW 23 ; rect + DW 104 + DW 36 + DW 180 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef + +ctlRECT7 DW $0008 ; pCount - Invisible + ADRL $00000007 ; ID + DW 9 ; rect + DW 24 + DW 18 + DW 124 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT7 ; titleRef + DW $0000 ; initialValue + +ctlRECT8 DW $0008 ; pCount - Appearance + ADRL $00000008 ; ID + DW 43 ; rect + DW 24 + DW 52 + DW 124 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT8 ; textRef + DW 10 ; textSize + +ctlRECT9 DW $0008 ; pCount - Transparent + ADRL $0000009 ; ID + DW 43 ; rect + DW 130 + DW 52 + DW 270 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECT9 ; titleRef + DW $0000 ; initialValue + +ctlRECTA DW $0008 ; pCount - Grey pattern + ADRL $000000A ; ID + DW 54 ; rect + DW 130 + DW 63 + DW 270 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECTA ; titleRef + DW $0000 ; initialValue + +ctlRECTB DW $0008 ; pCount - Black pattern + ADRL $000000B ; ID + DW 65 ; rect + DW 130 + DW 74 + DW 270 + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECTB ; titleRef + DW $0000 ; initialValue + +ctlRECTC DW $0008 ; pCount - Pen height text + ADRL $0000000C ; ID + DW 81 ; rect + DW 24 + DW 90 + DW 110 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECTC ; textRef + DW 10 ; textSize + +ctlRECTD DW $0008 ; pCount - Pen height value + ADRL $0000000D ; ID + DW 79 ; rect + DW 114 + DW 92 + DW 162 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0004 ; maxSize + ADRL strRECTD ; defaultRef + +ctlRECTE DW $0008 ; pCount - Pen width text + ADRL $0000000E ; ID + DW 81 ; rect + DW 180 + DW 90 + DW 260 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strRECTE ; textRef + DW 9 ; textSize + +ctlRECTF DW $0008 ; pCount - Pen width value + ADRL $0000000F ; ID + DW 79 ; rect + DW 264 + DW 92 + DW 312 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0004 ; maxSize + ADRL strRECTF ; defaultRef + +strRECT1 str 'Change' +strRECT2 str 'Cancel' +strRECT3 asc 'ID' +strRECT5 asc 'Ref Con' +strRECT7 str 'Invisible' +strRECT8 asc 'Appearance' +strRECT9 str 'Transparent' +strRECTA str 'Grey pattern' +strRECTB str 'Black pattern' +strRECTC asc 'Pen height' +strRECTD db $04 +strRECTD2 ENT + asc '0001' +strRECTE asc 'Pen width' +strRECTF db $04 +strRECTF2 ENT + asc '0002' + +*--- + +showTHERMOMETER ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^winTHERMOMETER + PEA winTHERMOMETER + PEA $800E + _NewWindow2 + lda 1,s + sta L026C7F + lda 3,s + sta L026C7F+2 + _SetPort + PLB + PLD + RTL + +winTHERMOMETER + DW $0050 + DW $80A0 ; frame bits + ADRL titleTHERMOMETER ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL clrTHERMOMETER ; 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 85 ; content rect - was 100 + DW 280 + DW 198 + DW 636 + ADRL $FFFFFFFF ; starting plane + ADRL ctlTHERMOMETER ; storage ptr + DW $0003 +clrTHERMOMETER + DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 + +titleTHERMOMETER str ' Thermometer ' + +ctlTHERMOMETER + adrl theCHANGE + adrl theCANCEL + adrl $0 + +theCHANGE + DW $0009 ; pCount - Change button + ADRL $00000001 ; ID + DW 85 ; rect - was 73 + DW $00D0 + DW 101 ; was 86 + DW $012A + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strTCHANGE ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +theCANCEL + DW $0009 ; pCount - Cancel button + ADRL $00000002 ; ID + DW 85 ; rect - was 73 + DW $003C + DW 101 ; was 86 + DW $0096 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL strTCANCEL ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits + +strTCHANGE str 'Change' +strTCANCEL str 'Cancel' + +*--- + +L029F0F ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02A1B0 + PEA L02A1B0 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L029F5E ADRL L02A03A + ADRL L029F9A + ADRL L029FBA + ADRL L02A01A + ADRL L02A108 + ADRL L02A128 + ADRL L02A05A + ADRL L02A07A + ADRL L029FFA + ADRL L029FDA + ADRL L02A148 + ADRL L02A0C2 + ADRL L02A0E0 + ADRL L02A09A + ADRL $00000000 +L029F9A DW $0008 ; pCount + ADRL $0000000D ; ID + DW $001B ; rect + DW $00CA + DW $0024 + DW $012E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A188 ; titleRef + DW $0000 ; initialValue +L029FBA DW $0008 ; pCount + ADRL $0000000C ; ID + DW $000C ; rect + DW $001C + DW $0015 + DW $0067 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A19C ; textRef + DW $0002 ; textSize +L029FDA DW $0008 ; pCount + ADRL $00000009 ; ID + DW $000A ; rect + DW $011A + DW $0017 + DW $0166 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L029FFA DW $0008 ; pCount + ADRL $0000000A ; ID + DW $000C ; rect + DW $00CA + DW $0015 + DW $0115 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A19E ; textRef + DW $0007 ; textSize +L02A01A DW $0008 ; pCount + ADRL $0000000B ; ID + DW $000C ; rect + DW $0070 + DW $0015 + DW $00BC + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02A03A DW $0008 ; pCount + ADRL $0000000E ; ID + DW $001B ; rect + DW $011A + DW $0024 + DW $017E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A17E ; titleRef + DW $0000 ; initialValue +L02A05A DW $0008 ; pCount + ADRL $00000008 ; ID + DW $001B ; rect + DW $001C + DW $0024 + DW $0067 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A1A5 ; textRef + DW $0006 ; textSize +L02A07A DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0019 ; rect + DW $0070 + DW $0026 + DW $0094 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L02BCAD ; defaultRef +L02A09A DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003E ; rect + DW $015C + DW $004B + DW $01B6 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A177 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02A0C2 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $003E ; rect + DW $0086 + DW $004B + DW $00E0 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A16D ; titleRef +L02A0E0 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003E ; rect + DW $00EE + DW $004B + DW $0148 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A166 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02A108 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $002A ; rect + DW $001C + DW $0033 + DW $0067 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A1AB ; textRef + DW $0005 ; textSize +L02A128 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0028 ; rect + DW $0070 + DW $0035 + DW $017A + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L02B9AD ; defaultRef +L02A148 DW $0007 ; pCount + ADRL $00000004 ; ID + DW $003E ; rect + DW $0020 + DW $004B + DW $007A + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A194 ; titleRef +L02A166 STR 'Cancel' +L02A16D STR 'Colors...' +L02A177 STR 'Change' +L02A17E STR 'Invisible' +L02A188 STR 'Set' +L02A18C STR ' Radio ' +L02A194 STR 'Keys...' +L02A19C ASC 'ID' +L02A19E ASC 'Ref Con' +L02A1A5 ASC 'Family' +L02A1AB ASC 'Title' +L02A1B0 DW $0050 + DW $80A0 ; frame bits + ADRL L02A18C ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02A200 ; 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 $006E ; content rect + DW $00AA + DW $00C6 + DW $027C + ADRL $FFFFFFFF ; starting plane + ADRL L029F5E ; storage ptr + DW $0003 +L02A200 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02A20A ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02A69F + PEA L02A69F + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02A259 ADRL L02A2B1 + ADRL L02A2D1 + ADRL L02A2F1 + ADRL L02A311 + ADRL L02A331 + ADRL L02A3BF + ADRL L02A3DF + ADRL L02A3FF + ADRL L02A41F + ADRL L02A43F + ADRL L02A45F + ADRL L02A47F + ADRL L02A49F + ADRL L02A4BF + ADRL L02A4DF + ADRL L02A4FF + ADRL L02A51F + ADRL L02A53F + ADRL L02A351 + ADRL L02A36F + ADRL L02A397 + ADRL $00000000 +L02A2B1 DW $0008 ; pCount + ADRL $00000015 ; ID + DW $000B ; rect + DW $001C + DW $0014 + DW $007E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A678 ; titleRef + DW $0000 ; initialValue +L02A2D1 DW $0008 ; pCount + ADRL $00000014 ; ID + DW $000B ; rect + DW $0086 + DW $0014 + DW $00A3 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A696 ; textRef + DW $0002 ; textSize +L02A2F1 DW $0008 ; pCount + ADRL $00000013 ; ID + DW $000B ; rect + DW $00AC + DW $0014 + DW $00F8 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02A311 DW $0008 ; pCount + ADRL $00000012 ; ID + DW $000B ; rect + DW $0102 + DW $0014 + DW $014D + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A698 ; textRef + DW $0007 ; textSize +L02A331 DW $0008 ; pCount + ADRL $00000011 ; ID + DW $0009 ; rect + DW $0150 + DW $0016 + DW $019C + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L02A351 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $005F ; rect + DW $0092 + DW $006C + DW $00EC + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A66E ; titleRef +L02A36F DW $0009 ; pCount + ADRL $00000002 ; ID + DW $005F ; rect + DW $010E + DW $006C + DW $0168 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A667 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02A397 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $005F ; rect + DW $0190 + DW $006C + DW $01EA + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A660 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02A3BF DW $0008 ; pCount + ADRL $00000010 ; ID + DW $001A ; rect + DW $001C + DW $0023 + DW $0086 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A655 ; titleRef + DW $0000 ; initialValue +L02A3DF DW $0008 ; pCount + ADRL $0000000F ; ID + DW $001A ; rect + DW $00E8 + DW $0023 + DW $0144 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A64C ; titleRef + DW $0000 ; initialValue +L02A3FF DW $0008 ; pCount + ADRL $0000000E ; ID + DW $0024 ; rect + DW $001C + DW $002D + DW $0080 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A642 ; titleRef + DW $0000 ; initialValue +L02A41F DW $0008 ; pCount + ADRL $0000000D ; ID + DW $0024 ; rect + DW $00E8 + DW $002D + DW $01A2 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A62C ; titleRef + DW $0000 ; initialValue +L02A43F DW $0008 ; pCount + ADRL $0000000C ; ID + DW $002E ; rect + DW $001C + DW $0037 + DW $00DE + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A615 ; titleRef + DW $0000 ; initialValue +L02A45F DW $0008 ; pCount + ADRL $0000000B ; ID + DW $002E ; rect + DW $00E8 + DW $0037 + DW $019A + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A600 ; titleRef + DW $0000 ; initialValue +L02A47F DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0038 ; rect + DW $001C + DW $0041 + DW $00E6 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A5E8 ; titleRef + DW $0000 ; initialValue +L02A49F DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0038 ; rect + DW $00E8 + DW $0041 + DW $01C6 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A5CD ; titleRef + DW $0000 ; initialValue +L02A4BF DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0042 ; rect + DW $001C + DW $004B + DW $00E2 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A5B6 ; titleRef + DW $0000 ; initialValue +L02A4DF DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0042 ; rect + DW $00E8 + DW $004B + DW $01DA + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A598 ; titleRef + DW $0000 ; initialValue +L02A4FF DW $0008 ; pCount + ADRL $00000006 ; ID + DW $004C ; rect + DW $001C + DW $0055 + DW $00E6 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A580 ; titleRef + DW $0000 ; initialValue +L02A51F DW $0008 ; pCount + ADRL $00000005 ; ID + DW $004C ; rect + DW $00E8 + DW $0055 + DW $01FC + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A55D ; titleRef + DW $0000 ; initialValue +L02A53F DW $0007 ; pCount + ADRL $00000004 ; ID + DW $005F ; rect + DW $001A + DW $006C + DW $0074 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02A68E ; titleRef +L02A55D STR 'Frame selected text when inactive ' +L02A580 STR 'User cannot select text' +L02A598 STR 'Resizing window resizes ruler' +L02A5B6 STR 'Draw boundary rectangle' +L02A5CD STR 'Enable tab to next control' +L02A5E8 STR 'Use smart cut and paste' +L02A600 STR 'Do not allow editing' +L02A615 STR 'Do not allow scrolling' +L02A62C STR 'Do not word wrap text' +L02A642 STR 'One style' +L02A64C STR 'Size box' +L02A655 STR 'Scroll bar' +L02A660 STR 'Change' +L02A667 STR 'Cancel' +L02A66E STR 'Colors...' +L02A678 STR 'Invisible' +L02A682 STR ' Text Edit ' +L02A68E STR 'Edit...' +L02A696 ASC 'ID' +L02A698 ASC 'Ref Con' +L02A69F DW $0050 + DW $80A0 ; frame bits + ADRL L02A682 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02A6EF ; 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 $004B ; content rect + DW $0068 + DW $00C6 + DW $027B + ADRL $FFFFFFFF ; starting plane + ADRL L02A259 ; storage ptr + DW $0003 +L02A6EF DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02A6F9 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02AAC6 + PEA L02AAC6 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02A748 ADRL L02A79C + ADRL L02A7BC + ADRL L02A7DC + ADRL L02A7FC + ADRL L02A81C + ADRL L02A83C + ADRL L02A85C + ADRL L02A87C + ADRL L02A8DC + ADRL L02A97C + ADRL L02A91C + ADRL L02A93C + ADRL L02A95C + ADRL L02A8FC + ADRL L02A99C + ADRL L02A8BC + ADRL L02A89C + ADRL L02A9BC + ADRL L02A9DA + ADRL L02AA02 + ADRL $00000000 +L02A79C DW $0008 ; pCount + ADRL $00000014 ; ID + DW $000B ; rect + DW $0022 + DW $0014 + DW $0090 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA89 ; titleRef + DW $0000 ; initialValue +L02A7BC DW $0008 ; pCount + ADRL $00000013 ; ID + DW $001D ; rect + DW $0022 + DW $0026 + DW $00AC + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA7A ; titleRef + DW $0000 ; initialValue +L02A7DC DW $0008 ; pCount + ADRL $00000012 ; ID + DW $0032 ; rect + DW $0022 + DW $003B + DW $009A + ADRL $84000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA6D ; titleRef + DW $0000 ; initialValue +L02A7FC DW $0008 ; pCount + ADRL $00000011 ; ID + DW $0018 ; rect + DW $00B0 + DW $0021 + DW $011E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA62 ; titleRef + DW $0000 ; initialValue +L02A81C DW $0008 ; pCount + ADRL $00000010 ; ID + DW $0022 ; rect + DW $00B0 + DW $002B + DW $011E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA56 ; titleRef + DW $0000 ; initialValue +L02A83C DW $0008 ; pCount + ADRL $0000000F ; ID + DW $002D ; rect + DW $00B0 + DW $0036 + DW $011E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA4D ; titleRef + DW $0000 ; initialValue +L02A85C DW $0008 ; pCount + ADRL $0000000E ; ID + DW $0037 ; rect + DW $00B0 + DW $0040 + DW $011E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA42 ; titleRef + DW $0000 ; initialValue +L02A87C DW $0008 ; pCount + ADRL $0000000D ; ID + DW $000B ; rect + DW $008E + DW $0014 + DW $00AD + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AAA0 ; textRef + DW $0002 ; textSize +L02A89C DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0009 ; rect + DW $014E + DW $0016 + DW $019A + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L02A8BC DW $0008 ; pCount + ADRL $0000000B ; ID + DW $000B ; rect + DW $0104 + DW $0014 + DW $0149 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AAA2 ; textRef + DW $0007 ; textSize +L02A8DC DW $0008 ; pCount + ADRL $0000000C ; ID + DW $000B ; rect + DW $00B0 + DW $0014 + DW $00FC + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02A8FC DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0045 ; rect + DW $001E + DW $004E + DW $0069 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AAA9 ; textRef + DW $000A ; textSize +L02A91C DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0043 ; rect + DW $006C + DW $0050 + DW $00A0 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0005 ; maxSize + ADRL L02B9AD ; defaultRef +L02A93C DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0045 ; rect + DW $00A6 + DW $004E + DW $00F1 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AAB3 ; textRef + DW $0009 ; textSize +L02A95C DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0043 ; rect + DW $00F4 + DW $0050 + DW $0118 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L02BBAD ; defaultRef +L02A97C DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0045 ; rect + DW $011A + DW $004E + DW $0165 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AABC ; textRef + DW $000A ; textSize +L02A99C DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0043 ; rect + DW $0166 + DW $0050 + DW $019A + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0005 ; maxSize + ADRL L02BCAD ; defaultRef +L02A9BC DW $0007 ; pCount + ADRL $00000003 ; ID + DW $0058 ; rect + DW $0026 + DW $0065 + DW $0080 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA38 ; titleRef +L02A9DA DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0058 ; rect + DW $00B0 + DW $0065 + DW $010A + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA31 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02AA02 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0058 ; rect + DW $013A + DW $0065 + DW $0194 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AA2A ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02AA2A STR 'Change' +L02AA31 STR 'Cancel' +L02AA38 STR 'Colors...' +L02AA42 STR 'Down arrow' +L02AA4D STR 'Up arrow' +L02AA56 STR 'Right arrow' +L02AA62 STR 'Left arrow' +L02AA6D STR 'Vertical bar' +L02AA7A STR 'Horizontal bar' +L02AA89 STR 'Invisible' +L02AA93 STR ' Scroll bar ' +L02AAA0 ASC 'ID' +L02AAA2 ASC 'Ref Con' +L02AAA9 ASC 'Total size' +L02AAB3 ASC ' Initial' +L02AABC ASC ' View size' +L02AAC6 DW $0050 + DW $80A0 ; frame bits + ADRL L02AA93 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02AB16 ; 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 $0058 ; content rect + DW $00C6 + DW $00C6 + DW $027C + ADRL $FFFFFFFF ; starting plane + ADRL L02A748 ; storage ptr + DW $0003 +L02AB16 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02AB20 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02AEB5 + PEA L02AEB5 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02AB6F ADRL L02ABB7 + ADRL L02ABD7 + ADRL L02ABF7 + ADRL L02AC17 + ADRL L02AC37 + ADRL L02AC57 + ADRL L02AC77 + ADRL L02AC97 + ADRL L02ACB7 + ADRL L02ADC3 + ADRL L02AD83 + ADRL L02ADA3 + ADRL L02AD63 + ADRL L02AD27 + ADRL L02AD45 + ADRL L02ACFF + ADRL L02ACD7 + ADRL $00000000 +L02ABB7 DW $0008 ; pCount + ADRL $00000011 ; ID + DW $0016 ; rect + DW $0020 + DW $001F + DW $0084 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE99 ; titleRef + DW $0000 ; initialValue +L02ABD7 DW $0008 ; pCount + ADRL $00000010 ; ID + DW $0016 ; rect + DW $00F8 + DW $001F + DW $0158 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE90 ; titleRef + DW $0000 ; initialValue +L02ABF7 DW $0008 ; pCount + ADRL $0000000F ; ID + DW $0020 ; rect + DW $0020 + DW $0029 + DW $00B0 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE80 ; titleRef + DW $0000 ; initialValue +L02AC17 DW $0008 ; pCount + ADRL $0000000E ; ID + DW $0020 ; rect + DW $00F8 + DW $0029 + DW $01B4 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE6A ; titleRef + DW $0000 ; initialValue +L02AC37 DW $0008 ; pCount + ADRL $0000000D ; ID + DW $002A ; rect + DW $0020 + DW $0033 + DW $00B8 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE59 ; titleRef + DW $0000 ; initialValue +L02AC57 DW $0008 ; pCount + ADRL $0000000C ; ID + DW $002A ; rect + DW $00F8 + DW $0033 + DW $01B8 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE42 ; titleRef + DW $0000 ; initialValue +L02AC77 DW $0008 ; pCount + ADRL $0000000B ; ID + DW $0034 ; rect + DW $0020 + DW $003D + DW $00AA + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE33 ; titleRef + DW $0000 ; initialValue +L02AC97 DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0034 ; rect + DW $00F8 + DW $003D + DW $01AE + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE1D ; titleRef + DW $0000 ; initialValue +L02ACB7 DW $0008 ; pCount + ADRL $00000009 ; ID + DW $003E ; rect + DW $0020 + DW $0047 + DW $00F8 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AE03 ; titleRef + DW $0000 ; initialValue +L02ACD7 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $004D ; rect + DW $0154 + DW $005A + DW $01B0 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02ADFC ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02ACFF DW $0009 ; pCount + ADRL $00000002 ; ID + DW $004D ; rect + DW $00EA + DW $005A + DW $0144 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02ADF5 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02AD27 DW $0007 ; pCount + ADRL $00000004 ; ID + DW $004D ; rect + DW $0020 + DW $005A + DW $007A + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02ADED ; titleRef +L02AD45 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $004D ; rect + DW $0086 + DW $005A + DW $00E0 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02ADE3 ; titleRef +L02AD63 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0007 ; rect + DW $00F8 + DW $0014 + DW $0144 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L02AD83 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0009 ; rect + DW $003C + DW $0012 + DW $0088 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02ADA3 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0009 ; rect + DW $00AC + DW $0012 + DW $00F7 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AEAC ; textRef + DW $0007 ; textSize +L02ADC3 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0009 ; rect + DW $001C + DW $0012 + DW $0037 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02AEB3 ; textRef + DW $0002 ; textSize +L02ADE3 STR 'Colors...' +L02ADED STR 'Edit...' +L02ADF5 STR 'Cancel' +L02ADFC STR 'Change' +L02AE03 STR 'Selection right justified' +L02AE1D STR 'Title right justified' +L02AE33 STR 'Keep in window' +L02AE42 STR 'Don'27't set to selection' +L02AE59 STR 'Don'27't draw title' +L02AE6A STR 'Don'27't highlight title' +L02AE80 STR 'Use white space' +L02AE90 STR 'Inactive' +L02AE99 STR 'Invisible' +L02AEA3 STR ' Pop-up ' +L02AEAC ASC 'Ref Con' +L02AEB3 ASC 'ID' +L02AEB5 DW $0050 + DW $80A0 ; frame bits + ADRL L02AEA3 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02AF05 ; 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 $0064 ; content rect + DW $00B2 + DW $00C6 + DW $027B + ADRL $FFFFFFFF ; starting plane + ADRL L02AB6F ; storage ptr + DW $0003 +L02AF05 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02AF0F ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B0FB + PEA L02B0FB + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02AF5E ADRL L02AF86 + ADRL L02AFA6 + ADRL L02AFC6 + ADRL L02AFE6 + ADRL L02B006 + ADRL L02B026 + ADRL L02B046 + ADRL L02B064 + ADRL L02B08C + ADRL $00000000 +L02AF86 DW $0008 ; pCount + ADRL $00000009 ; ID + DW $000B ; rect + DW $001C + DW $0014 + DW $0082 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0DD ; titleRef + DW $0000 ; initialValue +L02AFA6 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $001A ; rect + DW $0018 + DW $0023 + DW $0033 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0F2 ; textRef + DW $0002 ; textSize +L02AFC6 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $001A ; rect + DW $0038 + DW $0023 + DW $0084 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02AFE6 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $001A ; rect + DW $008C + DW $0023 + DW $00D7 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0F4 ; textRef + DW $0007 ; textSize +L02B006 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0018 ; rect + DW $00DA + DW $0025 + DW $0126 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L02B026 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $000B ; rect + DW $0090 + DW $0014 + DW $012E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0CC ; titleRef + DW $0000 ; initialValue +L02B046 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $002C ; rect + DW $001A + DW $0039 + DW $0074 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0C2 ; titleRef +L02B064 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $002C ; rect + DW $007A + DW $0039 + DW $00D4 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0BB ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B08C DW $0009 ; pCount + ADRL $00000001 ; ID + DW $002C ; rect + DW $00DE + DW $0039 + DW $0138 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B0B4 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B0B4 STR 'Change' +L02B0BB STR 'Cancel' +L02B0C2 STR 'Colors...' +L02B0CC STR 'Call grow window' +L02B0DD STR 'Invisible' +L02B0E7 STR ' Size box ' +L02B0F2 ASC 'ID' +L02B0F4 ASC 'Ref Con' +L02B0FB DW $0050 + DW $80A0 ; frame bits + ADRL L02B0E7 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02B14B ; 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 $0084 ; content rect + DW $0132 + DW $00C6 + DW $027C + ADRL $FFFFFFFF ; starting plane + ADRL L02AF5E ; storage ptr + DW $0003 +L02B14B DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02B155 ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B363 + PEA L02B363 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02B1A4 ADRL L02B1D0 + ADRL L02B1F0 + ADRL L02B210 + ADRL L02B230 + ADRL L02B250 + ADRL L02B270 + ADRL L02B290 + ADRL L02B2AE + ADRL L02B2CC + ADRL L02B2F4 + ADRL $00000000 +L02B1D0 DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0009 ; rect + DW $001C + DW $0012 + DW $008A + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B31C ; titleRef + DW $0000 ; initialValue +L02B1F0 DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0009 ; rect + DW $0090 + DW $0012 + DW $0110 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B346 ; titleRef + DW $0000 ; initialValue +L02B210 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0018 ; rect + DW $0018 + DW $0021 + DW $0063 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B35A ; textRef + DW $0002 ; textSize +L02B230 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0018 ; rect + DW $006A + DW $0021 + DW $00B6 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02B250 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0027 ; rect + DW $0018 + DW $0030 + DW $0063 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B35C ; textRef + DW $0007 ; textSize +L02B270 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0025 ; rect + DW $006A + DW $0032 + DW $00B6 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0014 ; maxSize + ADRL L02BAAD ; defaultRef +L02B290 DW $0007 ; pCount + ADRL $00000004 ; ID + DW $0039 ; rect + DW $001C + DW $0046 + DW $0076 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B326 ; titleRef +L02B2AE DW $0007 ; pCount + ADRL $00000003 ; ID + DW $004B ; rect + DW $001C + DW $0058 + DW $0076 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B33C ; titleRef +L02B2CC DW $0009 ; pCount + ADRL $00000002 ; ID + DW $004B ; rect + DW $0084 + DW $0058 + DW $00DE + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B335 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B2F4 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $004B ; rect + DW $00F2 + DW $0058 + DW $014C + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B32E ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B31C STR 'Invisible' +L02B326 STR 'Edit...' +L02B32E STR 'Change' +L02B335 STR 'Cancel' +L02B33C STR 'Colors...' +L02B346 STR 'Multi-select' +L02B353 STR ' List ' +L02B35A ASC 'ID' +L02B35C ASC 'Ref Con' +L02B363 DW $0050 + DW $80A0 ; frame bits + ADRL L02B353 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02B3B3 ; 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 $0064 ; content rect + DW $011C + DW $00C6 + DW $027C + ADRL $FFFFFFFF ; starting plane + ADRL L02B1A4 ; storage ptr + DW $0003 +L02B3B3 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02B3BD ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B571 + PEA L02B571 + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02B40C ADRL L02B430 + ADRL L02B450 + ADRL L02B470 + ADRL L02B490 + ADRL L02B4B0 + ADRL L02B4D0 + ADRL L02B4EE + ADRL L02B516 + ADRL $00000000 +L02B430 DW $0008 ; pCount + ADRL $00000008 ; ID + DW $000A ; rect + DW $0018 + DW $0013 + DW $007E + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B54C ; titleRef + DW $0000 ; initialValue +L02B450 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0018 ; rect + DW $0012 + DW $0021 + DW $0042 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B568 ; textRef + DW $0002 ; textSize +L02B470 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0018 ; rect + DW $0046 + DW $0021 + DW $0092 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02B490 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0018 ; rect + DW $00B8 + DW $0021 + DW $00F5 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B56A ; textRef + DW $0007 ; textSize +L02B4B0 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0016 ; rect + DW $00F9 + DW $0023 + DW $0145 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L02B4D0 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $002B ; rect + DW $0018 + DW $0038 + DW $0072 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B560 ; titleRef +L02B4EE DW $0009 ; pCount + ADRL $00000002 ; ID + DW $002B ; rect + DW $0086 + DW $0038 + DW $00E0 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B53E ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B516 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $002B ; rect + DW $00F8 + DW $0038 + DW $0152 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B545 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B53E STR 'Cancel' +L02B545 STR 'Change' +L02B54C STR 'Invisible' +L02B556 STR ' Picture ' +L02B560 STR 'Edit...' +L02B568 ASC 'ID' +L02B56A ASC 'Ref Con' +L02B571 DW $0050 + DW $80A0 ; frame bits + ADRL L02B556 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02B5C1 ; 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 $0081 ; content rect + DW $0110 + DW $00C6 + DW $027C + ADRL $FFFFFFFF ; starting plane + ADRL L02B40C ; storage ptr + DW $0003 +L02B5C1 DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02B5CB ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B907 + PEA L02B907 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02B61A + PEA L02B61A + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02B61A DW $0050 + DW $80A0 ; frame bits + ADRL L02B66A ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L02B67A ; 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 $007D ; content rect + DW $00C0 + DW $00C6 + DW $027C + ADRL $FFFFFFFF ; starting plane + ADRL L02B684 ; storage ptr + DW $0003 +L02B66A STR ' Simple Button ' +L02B67A DW $0000 + DW $0F0F + DW $0004 + DW $F0FF + DW $00F0 +L02B684 ADRL L02B6C4 + ADRL L02B6E6 + ADRL L02B706 + ADRL L02B730 + ADRL L02B756 + ADRL L02B776 + ADRL L02B79B + ADRL L02B7BB + ADRL L02B7E1 + ADRL L02B809 + ADRL L02B830 + ADRL L02B85C + ADRL L02B882 + ADRL L02B8A9 + ADRL L02B8D8 + ADRL $00000000 +L02B6C4 DW $0008 ; pCount + ADRL $0000000F ; ID + DW $000A ; rect + DW $0092 + DW $0014 + DW $00B1 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B6E4 ; textRef + DW $0002 ; textSize +L02B6E4 ASC 'ID' +L02B6E6 DW $0008 ; pCount + ADRL $0000000E ; ID + DW $000A ; rect + DW $00B4 + DW $0014 + DW $0102 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02BDAE ; textRef + DW $0008 ; textSize +L02B706 DW $0008 ; pCount + ADRL $0000000D ; ID + DW $000A ; rect + DW $0022 + DW $0013 + DW $0088 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B726 ; titleRef + DW $0000 ; initialValue +L02B726 STR 'Invisible' +L02B730 DW $0008 ; pCount + ADRL $0000000C ; ID + DW $000A ; rect + DW $010C + DW $0013 + DW $0151 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B750 ; textRef + DW $0006 ; textSize +L02B750 ASC 'Refcon' +L02B756 DW $0008 ; pCount + ADRL $0000000B ; ID + DW $0008 ; rect + DW $0152 + DW $0015 + DW $01A2 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L02BAAD ; defaultRef +L02B776 DW $0008 ; pCount + ADRL $0000000A ; ID + DW $0019 ; rect + DW $001E + DW $0023 + DW $005D + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B796 ; textRef + DW $0005 ; textSize +L02B796 ASC 'Title' +L02B79B DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0017 ; rect + DW $0062 + DW $0024 + DW $01A4 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L02B9AD ; defaultRef +L02B7BB DW $0008 ; pCount + ADRL $00000008 ; ID + DW $0027 ; rect + DW $0020 + DW $0030 + DW $006A + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B7DB ; titleRef + DW $0001 ; initialValue +L02B7DB STR 'Round' +L02B7E1 DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0027 ; rect + DW $0078 + DW $0030 + DW $00CE + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B801 ; titleRef + DW $0000 ; initialValue +L02B801 STR 'Default' +L02B809 DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0027 ; rect + DW $00D8 + DW $0031 + DW $0126 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B829 ; titleRef + DW $0000 ; initialValue +L02B829 STR 'Square' +L02B830 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0027 ; rect + DW $0136 + DW $0030 + DW $01A6 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B850 ; titleRef + DW $0000 ; initialValue +L02B850 STR 'Drop shadow' +L02B85C DW $0007 ; pCount + ADRL $00000004 ; ID + DW $0034 ; rect + DW $001E + DW $0041 + DW $0078 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B87A ; titleRef +L02B87A STR 'Keys...' +L02B882 DW $0007 ; pCount + ADRL $00000003 ; ID + DW $0034 ; rect + DW $0080 + DW $0041 + DW $00DA + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B8A0 ; titleRef +L02B8A0 STR 'Color...' +L02B8A9 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0034 ; rect + DW $00E2 + DW $0041 + DW $013C + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B8D1 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1E ; keyequivalent + ASC 1E ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B8D1 STR 'Cancel' +L02B8D8 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0034 ; rect + DW $0148 + DW $0041 + DW $01A2 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02B900 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02B900 STR 'Change' +L02B907 PHD + PHB + PHK + PLB + PEA $0000 + _GetCurResourceFile + LDA L026C65 + PHA + _SetCurResourceFile + PEA $0000 + PEA $0000 + _GetPort + PLA + STA L02B98F + PLA + STA L02B991 + PEA ^L02B993 + PEA L02B993 + _GetPortRect + PEA ^L02B993 + PEA L02B993 + PEA $0002 + PEA $0001 + _InsetRect + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L02B993 + PEA L02B993 + _FrameRect + _PenNormal + LDA L02B991 + PHA + LDA L02B98F + PHA + _DrawControls + _SetCurResourceFile + PLB + PLD + RTL + +L02B98F DB $00 + DB $00 +L02B991 DB $00 + DB $00 +L02B993 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02B99B ENT + DB $00 + DB $00 +L02B99D ENT + DB $00 + DB $00 +L02B99F ENT + DB $00 + DB $00 +L02B9A1 ENT + DB $00 + DB $00 +L02B9A3 ENT + DB $00 + DB $00 +L02B9A5 ENT + DB $00 + DB $00 +L02B9A7 ENT + DB $00 + DB $00 +L02B9A9 ENT + DB $00 + DB $00 +L02B9AB ENT + DB $00 + DB $00 + +* These are the text buffers + +L02B9AD ENT + DS $100 +L02BAAD ENT + DS $100 +L02BBAD ENT + DS $100 +L02BCAD ENT + DS $100 +L02BDAD ENT + DB $00 +L02BDAE DS $FF +L02BEAD ENT + DS $100 + +L02BFAD PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02C40D + PEA L02C40D + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L02C3BD + PEA L02C3BD + PEA $800E + _NewWindow2 + PLA + STA L026C7F + PLA + STA L026C7F+2 + LDA L026C7F+2 + PHA + LDA L026C7F + PHA + _SetPort + PLB + PLD + RTL + +L02BFFC ADRL L02C058 + ADRL L02C07F + ADRL L02C0AB + ADRL L02C0D6 + ADRL L02C100 + ADRL L02C12A + ADRL L02C154 + ADRL L02C183 + ADRL L02C1BC + ADRL L02C1E8 + ADRL L02C208 + ADRL L02C228 + ADRL L02C248 + ADRL L02C268 + ADRL L02C288 + ADRL L02C2A8 + ADRL L02C2C8 + ADRL L02C2ED + ADRL L02C311 + ADRL L02C338 + ADRL L02C367 + ADRL L02C396 + ADRL $00000000 +L02C058 DW $0008 ; pCount + ADRL $00002000 ; ID + DW $001D ; rect + DW $001E + DW $0026 + DW $008C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C078 ; titleRef + DW $0000 ; initialValue +L02C078 STR 'Keypad' +L02C07F DW $0008 ; pCount + ADRL $00001000 ; ID + DW $0027 ; rect + DW $001E + DW $0030 + DW $008C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C09F ; titleRef + DW $0000 ; initialValue +L02C09F STR 'Control key' +L02C0AB DW $0008 ; pCount + ADRL $00000800 ; ID + DW $0031 ; rect + DW $001E + DW $003A + DW $008C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C0CB ; titleRef + DW $0000 ; initialValue +L02C0CB STR 'Option key' +L02C0D6 DW $0008 ; pCount + ADRL $00000400 ; ID + DW $003B ; rect + DW $001E + DW $0044 + DW $008C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C0F6 ; titleRef + DW $0000 ; initialValue +L02C0F6 STR 'Caps lock' +L02C100 DW $0008 ; pCount + ADRL $00000200 ; ID + DW $0045 ; rect + DW $001E + DW $004E + DW $008C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C120 ; titleRef + DW $0000 ; initialValue +L02C120 STR 'Shift key' +L02C12A DW $0008 ; pCount + ADRL $00000100 ; ID + DW $004F ; rect + DW $001E + DW $0058 + DW $008C + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C14A ; titleRef + DW $0000 ; initialValue +L02C14A STR 'Apple key' +L02C154 DW $0009 ; pCount + ADRL $00007007 ; ID + DW $0013 ; rect + DW $0014 + DW $001C + DW $0071 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C176 ; textRef + DW $000D ; textSize + DW $0000 +L02C176 ASC 'Must press...' +L02C183 DW $0009 ; pCount + ADRL $00007008 ; ID + DW $0008 ; rect + DW $0050 + DW $0011 + DW $0103 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C1A5 ; textRef + DW $0017 ; textSize + DW $0000 +L02C1A5 ASC 'Control key equivalents' +L02C1BC DW $0009 ; pCount + ADRL $00007009 ; ID + DW $0013 ; rect + DW $00A0 + DW $001C + DW $00EB + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C1DE ; textRef + DW $000A ; textSize + DW $0000 +L02C1DE ASC 'But not...' +L02C1E8 DW $0008 ; pCount + ADRL $20000000 ; ID + DW $001D ; rect + DW $00AA + DW $0026 + DW $0118 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C078 ; titleRef + DW $0000 ; initialValue +L02C208 DW $0008 ; pCount + ADRL $10000000 ; ID + DW $0027 ; rect + DW $00AA + DW $0030 + DW $0118 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C09F ; titleRef + DW $0000 ; initialValue +L02C228 DW $0008 ; pCount + ADRL $08000000 ; ID + DW $0031 ; rect + DW $00AA + DW $003A + DW $0118 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C0CB ; titleRef + DW $0000 ; initialValue +L02C248 DW $0008 ; pCount + ADRL $04000000 ; ID + DW $003B ; rect + DW $00AA + DW $0044 + DW $0118 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C0F6 ; titleRef + DW $0000 ; initialValue +L02C268 DW $0008 ; pCount + ADRL $02000000 ; ID + DW $0045 ; rect + DW $00AA + DW $004E + DW $0118 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C120 ; titleRef + DW $0000 ; initialValue +L02C288 DW $0008 ; pCount + ADRL $01000000 ; ID + DW $004F ; rect + DW $00AA + DW $0058 + DW $0118 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C14A ; titleRef + DW $0000 ; initialValue +L02C2A8 DW $0008 ; pCount + ADRL $00007010 ; ID + DW $005E ; rect + DW $0036 + DW $006B + DW $0052 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0002 ; maxSize + ADRL L02BEAD ; defaultRef +L02C2C8 DW $0009 ; pCount + ADRL $00007011 ; ID + DW $0060 ; rect + DW $0014 + DW $006A + DW $0031 + ADRL $81000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C2EA ; textRef + DW $0003 ; textSize + DW $0000 +L02C2EA ASC 'Key' +L02C2ED DW $0008 ; pCount + ADRL $00007012 ; ID + DW $0060 ; rect + DW $005A + DW $0069 + DW $008C + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C30D ; titleRef + DW $0000 ; initialValue +L02C30D STR 'Esc' +L02C311 DW $0008 ; pCount + ADRL $00007013 ; ID + DW $0060 ; rect + DW $0090 + DW $0069 + DW $00DA + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C331 ; titleRef + DW $0000 ; initialValue +L02C331 STR 'Return' +L02C338 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0071 ; rect + DW $00B4 + DW $007E + DW $010E + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C360 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02C360 STR 'Change' +L02C367 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0071 ; rect + DW $0032 + DW $007E + DW $008C + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C38F ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L02C38F STR 'Cancel' +L02C396 DW $0008 ; pCount + ADRL $00007016 ; ID + DW $0060 ; rect + DW $00DE + DW $0069 + DW $012A + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L02C3B6 ; titleRef + DW $0000 ; initialValue +L02C3B6 STR 'Delete' +L02C3BD 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 $0026 ; content rect + DW $009C + DW $00AE + DW $01E2 + ADRL $FFFFFFFF ; starting plane + ADRL L02BFFC ; storage ptr + DW $0003 +L02C40D PHD + PHB + PHK + PLB + PEA $0000 + _GetCurResourceFile + LDA L026C65 + PHA + _SetCurResourceFile + PEA $0000 + PEA $0000 + _GetPort + _DrawControls + _SetCurResourceFile + PLB + PLD + RTL + +L02C444 ENT + LDA $01,S + PHA + LDA $05,S + STA $03,S + PHD + TSC + TCD + LDA $0A + PHA + LDA $08 + PHA + LDA #$0014 + STA $06 + LDX #$0000 + JSR L02C542 + STA $08 + STX $0A + BCS L02C498 + PHX + PHA + LDA $06 + PHA + PEA $0001 + _Long2Dec + BCC L02C47A + STZ $06 + BRA L02C496 +L02C47A LDY #$0000 + SEP #$20 +L02C47F LDA #$20 + CMP [$08],Y + BNE L02C48A + INY + DEC $06 + BNE L02C47F +L02C48A REP #$20 + TYA + CLC + ADC $08 + STA $08 + BCC L02C496 + INC $0A +L02C496 PLD + RTL + +L02C498 PEA $0005 + JSL L02C9F6 + STZ $06 + PLA + BRA L02C496 +L02C4A4 TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + PEA $0000 + LDA $07 + PHA + LDA $05 + PHA + LDA $03 + PHA + JSR L02C995 + PEA $0001 + _Dec2Int + PLX + LDA $01 + STA $07 + LDA $00 + STA $06 + CLC + TDC + ADC #$0005 + PLD + TCS + TXA + RTL + +L02C4DA ENT + LDA $02 + PHA + LDA $00 + PHA + PHB + PHK + PLB + LDA L02C95F + STA $02 + LDA L02C95D + STA $00 +L02C4ED LDA $00 + ORA $02 + BEQ L02C50B + LDA $02 + PHA + LDA $00 + PHA + LDY #$0002 + LDA [$00] + TAX + LDA [$00],Y + STA $02 + STX $00 + JSL L02CC6E + BRA L02C4ED +L02C50B STZ L02C95D + STZ L02C95F + PLB + PLA + STA $00 + PLA + STA $02 + RTL + +L02C519 LDY #$0000 + STA $00 + STX $02 + TXA + EOR $06,S + BPL L02C52B + LDA $02 + CMP $06,S + BRA L02C535 +L02C52B LDA $06,S + CMP $02 + BNE L02C535 + LDA $04,S + CMP $00 +L02C535 BCC L02C538 + INY +L02C538 LDA $02,S + STA $06,S + PLA + STA $03,S + PLA + TYA + RTL + +L02C542 PHB + PHK + PLB + CLC + ADC #$0004 + BCC L02C54C + INX +L02C54C PHX + PHA + JSL L02C6A8 + STA L02C5A7 + STX L02C5A9 + ORA L02C5A9 + BEQ L02C5A4 + LDA $02 + PHA + LDA $00 + PHA + LDA L02C5A9 + STA $02 + LDA L02C5A7 + STA $00 + LDA L02C95D + STA [$00] + LDY #$0002 + LDA L02C95F + STA [$00],Y + LDA L02C5A9 + STA L02C95F + LDA L02C5A7 + STA L02C95D + CLC + LDA L02C5A7 + ADC #$0004 + STA L02C5A7 + BCC L02C595 + INC L02C5A9 +L02C595 PLA + STA $00 + PLA + STA $02 + LDA L02C5A7 + LDX L02C5A9 + PLB + CLC + RTS + +L02C5A4 PLB + SEC + RTS + +L02C5A7 DW $0000 +L02C5A9 DW $0000 +L02C5AB ENT + TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + LDA $03 + LSR + BCC L02C5D1 + SEP #$20 + LDA [$05] + STA [$09] + REP #$20 + INC $05 + BNE L02C5C9 + INC $07 +L02C5C9 INC $09 + BNE L02C5CF + INC $0B +L02C5CF DEC $03 +L02C5D1 LDY $03 + BEQ L02C5E5 + DEY + DEY + BEQ L02C5E1 +L02C5D9 LDA [$05],Y + STA [$09],Y + DEY + DEY + BNE L02C5D9 +L02C5E1 LDA [$05] + STA [$09] +L02C5E5 LDA $01 + STA $0B + LDA $00 + STA $0A + CLC + TDC + ADC #$0009 + PLD + TCS + RTL + +L02C5F5 ENT + TDC + TAX + TSC + SEC + SBC #$0005 + TCD + DEC + TCS + PHX + LDA $09 + CMP $0F + BNE L02C622 + LDA $13 + PHA + LDA $11 + PHA + LDA $0D + PHA + LDA $0B + PHA + LDA $09 + BPL L02C61B + EOR #$FFFF + INC + INC +L02C61B PHA + JSL L02C5AB + BRA L02C698 +L02C622 LDA $0D + PHA + LDA $0B + PHA + LDA $09 + PHA + JSR L02C995 + PLA + STA $09 + PLA + STA $0B + PLA + STA $0D + LDA $13 + STA $04 + LDA $11 + STA $02 + LDA $0F + BPL L02C64D + EOR #$FFFF + INC + INC $11 + BNE L02C64D + INC $13 +L02C64D CMP $09 + BCC L02C653 + LDA $09 +L02C653 TAY + STA $00 + BEQ L02C67C + LSR + BCC L02C672 + SEP #$20 + LDA [$0B] + STA [$11] + REP #$20 + INC $0B + BNE L02C669 + INC $0D +L02C669 INC $11 + BNE L02C66F + INC $13 +L02C66F DEY + BEQ L02C67C +L02C672 DEY + DEY +L02C674 LDA [$0B],Y + STA [$11],Y + DEY + DEY + BPL L02C674 +L02C67C LDY $0F + BPL L02C68A + SEP #$20 + LDA $00 + STA [$02] + REP #$20 + BRA L02C698 +L02C68A LDY $00 + CPY $0F + BCS L02C698 + SEP #$20 + LDA #$00 + STA [$02],Y + REP #$20 +L02C698 LDA $07 + STA $13 + LDA $06 + STA $12 + CLC + TDC + ADC #$0011 + PLD + TCS + RTL + +L02C6A8 LDA $06,S + TAX + LDA $04,S + CPX #$0000 + BNE L02C6C2 + CMP #$0FFC + BCS L02C6C2 + CMP #$0000 + BEQ L02C6C6 + JSL L02C6D3 + BRA L02C6C6 +L02C6C2 JSL L02C7E4 +L02C6C6 TAY + LDA $00,S + STA $04,S + LDA $02,S + STA $06,S + PLA + PLA + TYA + RTL + +L02C6D3 PHA + CLC + ADC #$0004 + PHA + TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDA #$0008 +L02C6E4 CMP $0B + BCS L02C6EB + ASL + BRA L02C6E4 +L02C6EB STA $0D + JSL L02CDFD + STX $09 + STX $0B +L02C6F5 LDX $0B + LDAL L02CC46,X + ORAL L02CC48,X + BNE L02C750 + CPX #$0024 + BCC L02C744 + LDA #$1000 + LDX #$0000 + JSL L02C7E4 + STA $01 + STAL L02CC6A + STX $03 + TXA + STAL L02CC6C + ORA $01 + BNE L02C724 + BRL L02C7CF +L02C724 LDA #$8000 + STA [$01] + LDY #$0002 + LDA #$1000 + STA [$01],Y + INY + INY + LDA #$0000 + STA [$01],Y + INY + INY + STA [$01],Y + LDA $0B + CMP $09 + BEQ L02C7B0 + BRA L02C7A5 +L02C744 CLC + LDA $0B + ADC #$0004 + STA $0B + ASL $0D + BRA L02C7A5 +L02C750 LDX $0B + CPX $09 + BCC L02C79D + BEQ L02C79D + LDAL L02CC48,X + STA $03 + LDAL L02CC46,X + STA $01 + LDY $0D + LDX $03 + JSL L02C87F + LSR $0D + CLC + LDA $01 + ADC $0D + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA $0D + STA [$05],Y + STA [$01],Y + ORA [$01] + STA [$05] + LDY $0D + LDA $01 + LDX $03 + JSL L02CE0E + LDY $0D + LDA $05 + LDX $07 + JSL L02CE0E +L02C79D SEC + LDA $0B + SBC #$0004 + STA $0B +L02C7A5 LDA $0B + BMI L02C7B0 + CMP $09 + BCC L02C7B0 + BRL L02C6F5 +L02C7B0 LDX $09 + LDAL L02CC46,X + STA $01 + LDAL L02CC48,X + STA $03 + LDY $0D + LDX $03 + LDA $01 + JSL L02C87F + LDA [$01] + AND #$7FFF + STA [$01] +L02C7CF LDA $01 + LDX $03 + CLC + ADC #$0004 + BCC L02C7DA + INX +L02C7DA TAY + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L02C7E4 CLC + ADC #$000E + BCC L02C7EB + INX +L02C7EB PHA + PHA + PHX + PHA + LDAL L02C959 + PHA + PEA $C010 + PEA $0000 + PEA $0000 + _NewHandle + BCC L02C80D + PLA + PLA + LDA #$0000 + TAX + RTL + +L02C80D PHA + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$05] + STA $01 + LDA [$05],Y + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y + LDAL L02CC42 + INY + INY + STA [$01],Y + LDAL L02CC44 + INY + INY + STA [$01],Y + INY + INY + LDA $05 + STA [$01],Y + INY + INY + LDA $07 + STA [$01],Y + INY + INY + LDA #$0000 + STA [$01],Y + LDAL L02CC42 + STA $05 + LDAL L02CC44 + STA $07 + ORA $05 + BEQ L02C862 + LDY #$0002 + LDA $01 + STA [$05] + LDA $03 + STA [$05],Y +L02C862 LDA $01 + STAL L02CC42 + LDA $03 + STAL L02CC44 + CLC + LDA $01 + ADC #$000E + LDX $03 + BCC L02C879 + INX +L02C879 PLD + PLY + PLY + PLY + PLY + RTL + +L02C87F PHX + PHA + LDA #$0000 + PHA + PHA + PHA + PHA + TSC + PHD + TCD + TYA + JSL L02CDFD + LDAL L02CC46,X + STA $05 + LDAL L02CC48,X + STA $07 +L02C89C LDA $05 + CMP $09 + BNE L02C8A8 + LDA $07 + CMP $0B + BEQ L02C8BF +L02C8A8 LDA $05 + STA $01 + LDA $07 + STA $03 + LDY #$0004 + LDA [$01],Y + STA $05 + INY + INY + LDA [$01],Y + STA $07 + BRA L02C89C +L02C8BF LDY #$0004 + LDA $01 + ORA $02 + BNE L02C8D8 + LDA [$05],Y + STAL L02CC46,X + INY + INY + LDA [$05],Y + STAL L02CC48,X + BRA L02C8E2 +L02C8D8 LDA [$05],Y + STA [$01],Y + INY + INY + LDA [$05],Y + STA [$01],Y +L02C8E2 PLD + TSC + CLC + ADC #$000C + TCS + RTL + +L02C8EA TSC + PHD + TCD + LDA $06 + BPL L02C90F + CMP #$FFFF + BNE L02C909 + LDX $04 + CPX #$FFDE + BCC L02C909 +L02C8FD LDA $0A + ASL + ROR $0A + ROR $08 + INX + BNE L02C8FD + BRA L02C921 +L02C909 STZ $08 + STZ $0A + BRA L02C921 +L02C90F BNE L02C909 + LDX $04 + BEQ L02C921 + CPX #$0021 + BCS L02C909 +L02C91A ASL $08 + ROL $0A + DEX + BNE L02C91A +L02C921 LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + ADRL L02C939 +L02C939 DB $00 + DB $00 + ADRL L02C93F +L02C93F DB $00 + DB $00 + DB $00 + DB $00 + ADRL L02C947 +L02C947 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C957 ENT + DB $00 + DB $00 +L02C959 DB $00 + DB $00 + DB $00 + DB $00 +L02C95D DB $00 + DB $00 +L02C95F DB $00 + DB $00 +L02C961 DB $00 + DB $00 +L02C963 DB $00 + DB $00 +L02C965 DB $00 +L02C966 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C973 PHA + JSL L02CE39 + LDAL L02C959 + PHA + _DisposeAll + PLA + JSL GSOS + DW $0029 ; Quit + ADRL L02C98F +L02C98F ADRL L02C993 ; path name +L02C993 DW $0000 ; flags +L02C995 PHD + TSC + TCD + LDA $05 + BEQ L02C9E5 + BPL L02C9D2 + INC + BNE L02C9C3 + LDA $09 + AND #$00FF + BNE L02C9AC + STZ $05 + BRA L02C9E5 +L02C9AC LDA #$0001 + STA $05 + LDA $09 + STAL L02C9E7 + LDA #L02C9E7 + STA $07 + LDA #^L02C9E7 + STA $09 + BRA L02C9E5 +L02C9C3 LDA [$07] + AND #$00FF + STA $05 + INC $07 + BNE L02C9D0 + INC $09 +L02C9D0 BRA L02C9E5 +L02C9D2 LDX $05 + LDY #$0000 + SEP #$20 +L02C9D9 LDA [$07],Y + BEQ L02C9E1 + INY + DEX + BNE L02C9D9 +L02C9E1 STY $05 + REP #$20 +L02C9E5 PLD + RTS + +L02C9E7 DW $0000 + +L02C9E9 PEA $0008 + JSL L02C9F6 + LDA #$FFFF + JMP L02C973 + +L02C9F6 LDA $04,S + PHA + JSL L02CB19 + JMPL L02CA01 + +L02CA01 PHK + PLB + LDA L02C965 + BNE L02CA0B + BRL L02CB13 +L02CA0B BRA L02CA25 +L02CA0D STR 'Error occurred at line ' +L02CA25 PEA ^L02CA0D + PEA L02CA0D + _ErrWriteString + LDA L02C965 + PHA + PEA $0001 + PEA $0000 + PEA $0001 + JSL L02CE7F + BRA L02CA54 +L02CA45 STR ' in procedure ' +L02CA54 PEA ^L02CA45 + PEA L02CA45 + _ErrWriteString + PEA ^L02C966 + PEA L02C966 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02CEAF + JSL L02CE4E + LDA L02C961 + ORA L02C963 + BNE L02CA83 + BRL L02CB13 +L02CA83 PEA $000D + _ErrWriteChar + PEA $000A + _ErrWriteChar + BRA L02CAA6 +L02CA99 STR ' Line Name' +L02CAA6 PEA ^L02CA99 + PEA L02CA99 + _ErrWriteLine + BRA L02CAC2 +L02CAB5 STR ' ---- ----' +L02CAC2 PEA ^L02CAB5 + PEA L02CAB5 + _ErrWriteLine +L02CACF LDA L02C961 + ORA L02C963 + BEQ L02CB13 + LDA L02C965 + PHA + PEA $0006 + PEA $0000 + PEA $0001 + JSL L02CE7F + BRA L02CAED +L02CAEA STR ' ' +L02CAED PEA ^L02CAEA + PEA L02CAEA + _ErrWriteString + PEA ^L02C966 + PEA L02C966 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02CEAF + JSL L02CE4E + BRA L02CACF +L02CB13 LDA #$FFFF + BRL L02C973 +L02CB19 PHD + PEA ^L02CB43 + PEA L02CB43 + TSC + TCD + LDX $0A +L02CB24 DEX + BEQ L02CB33 + SEC + LDA [$01] + AND #$00FF + ADC $01 + STA $01 + BRA L02CB24 +L02CB33 _ErrWriteLine + PLD + LDA $02,S + STA $04,S + PLA + STA $01,S + RTL + +L02CB43 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' +L02CC42 DB $00 + DB $00 +L02CC44 DB $00 + DB $00 +L02CC46 DB $00 + DB $00 +L02CC48 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02CC6A DB $00 + DB $00 +L02CC6C DB $00 + DB $00 +L02CC6E TSC + PHD + TCD + LDY $04 + LDX $06 + SEC + TYA + SBC #$0002 + STA $04 + BCS L02CC80 + DEC $06 +L02CC80 LDA [$04] + BNE L02CC8B + TYA + JSL L02CD89 + BRA L02CC90 +L02CC8B TYA + JSL L02CC9C +L02CC90 LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L02CC9C PHA + PHA + PHA + SEC + SBC #$0004 + BCS L02CCA6 + DEX +L02CCA6 PHX + PHA + TSC + PHD + TCD + LDA [$01] + BPL L02CCB2 + BRL L02CD81 +L02CCB2 LDA [$01] + ORA #$8000 + STA [$01] + LDY #$0002 + LDA [$01],Y + STA $09 + TAY + LDA $01 + LDX $03 + JSL L02CE0E +L02CCC9 LDA $09 + CMP #$1000 + BCC L02CCD3 + BRL L02CD6F +L02CCD3 LDA [$01] + AND $09 + BEQ L02CD2A + SEC + LDA $01 + SBC $09 + STA $05 + LDA $03 + SBC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BEQ L02CCF3 + BRL L02CD81 +L02CCF3 LDA [$05] + BMI L02CCFA + BRL L02CD81 +L02CCFA LDY $09 + LDX $03 + LDA $01 + JSL L02C87F + LDY $09 + LDX $07 + LDA $05 + JSL L02C87F + LDA $05 + STA $01 + LDA $07 + STA $03 + ASL $09 + LDA $09 + LDY #$0002 + STA [$01],Y + TAY + LDA $01 + LDX $03 + JSL L02CE0E + BRA L02CCC9 +L02CD2A CLC + LDA $01 + ADC $09 + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BNE L02CD81 + LDA [$05] + BPL L02CD81 + LDY $09 + LDX $03 + LDA $01 + JSL L02C87F + LDY $09 + LDX $07 + LDA $05 + JSL L02C87F + ASL $09 + LDY #$0002 + LDA $09 + STA [$01],Y + LDY $09 + LDA $01 + LDX $03 + JSL L02CE0E + BRL L02CCC9 +L02CD6F LDY $09 + LDA $01 + LDX $03 + JSL L02C87F + LDA $01 + LDX $03 + JSL L02CD89 +L02CD81 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L02CD89 PHA + PHA + SEC + SBC #$000E + BCS L02CD92 + DEX +L02CD92 PHX + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$01],Y + ORA [$01] + BNE L02CDB3 + LDY #$0004 + LDA [$01],Y + STAL L02CC42 + INY + INY + LDA [$01],Y + STAL L02CC44 + BRA L02CDC8 +L02CDB3 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 +L02CDC8 LDY #$0004 + LDA [$01],Y + TAX + INY + INY + ORA [$01],Y + BEQ L02CDE5 + LDA [$01],Y + STA $07 + STX $05 + LDY #$0002 + LDA [$01] + STA [$05] + LDA [$01],Y + STA [$05],Y +L02CDE5 LDY #$000A + LDA [$01],Y + PHA + DEY + DEY + LDA [$01],Y + PHA + _DisposeHandle + PLD + PLA + PLA + PLA + PLA + RTL + +L02CDFD LDX #$0000 + DEC + LSR + LSR + LSR + BEQ L02CE0D +L02CE06 INX + INX + INX + INX + LSR + BNE L02CE06 +L02CE0D RTL + +L02CE0E PHX + PHA + TSC + PHD + TCD + TYA + JSL L02CDFD + LDY #$0004 + LDAL L02CC46,X + STA [$01],Y + INY + INY + LDAL L02CC48,X + STA [$01],Y + LDA $01 + STAL L02CC46,X + LDA $03 + STAL L02CC48,X + PLD + PLA + PLA + RTL + +L02CE39 PHB + PHK + PLB + STZ L02CC42 + STZ L02CC44 + LDX #$0026 +L02CE45 STZ L02CC46,X + DEX + DEX + BPL L02CE45 + PLB + RTL + +L02CE4E PHB + PHK + PLB + LDA L02C963 + STA $02 + LDA L02C961 + STA $00 + LDY #$0010 +L02CE5E LDA [$00],Y + STA L02C961,Y + DEY + DEY + BPL L02CE5E + LDA $02 + PHA + LDA $00 + PHA + JSL L02CC6E + PLB + RTL + + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02CE7F TSC + PHD + TCD + PEA ^L02CF0B + PEA L02CF0B + LDA $0A + JSL L02CEF4 + PEA ^L02CF0B + PEA L02CF0B + LDA $08 + PHA + LDA $06 + PHA + LDA $04 + PHA + JSL L02CEAF + LDA $02 + STA $0A + LDA $00 + STA $08 + PLD + PLA + PLA + PLA + PLA + RTL + +L02CEAF TSC + PHD + TCD + INC $0A + BNE L02CEB8 + INC $0C +L02CEB8 LDA [$0A] + AND #$00FF + SEC + SBC $08 + BPL L02CECC + EOR #$FFFF + INC + LDY $04 + JSL L02CFAA +L02CECC 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 + +L02CEF4 PHA + PEA ^L02CF35 + PEA L02CF35 + PEA $0028 + PEA $0001 + _Int2Dec + JMP L02CF5D + +L02CF0B DB $28 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02CF35 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02CF5D PHD + TSC + TCD + SEP #$20 + LDX #$0000 + LDA #$20 +L02CF67 CMPL L02CF35,X + BNE L02CF70 + INX + BRA L02CF67 +L02CF70 REP #$20 + TXA + SEC + SBC #$0028 + EOR #$FFFF + INC + SEP #$20 + CMP [$06] + BEQ L02CF83 + BCS L02CF9A +L02CF83 LDY #$0001 + STA [$06],Y +L02CF88 LDAL L02CF35,X + INY + STA [$06],Y + INX + CPX #$0028 + BCC L02CF88 + REP #$20 + CLV + BRA L02CF9E +L02CF9A REP #$20 + SEP #$40 +L02CF9E LDA $02,S + STA $06,S + LDA $04,S + STA $08,S + PLD + PLA + PLA + RTL + +L02CFAA PHA + TYA + XBA + CLC + ADC #$180C + PHA + PHD + TSC + TCD +L02CFB5 PEA $0020 + LDX $03 + JSL $E10000 + DEC $05 + BNE L02CFB5 + PLD + PLA + PLA + RTL + diff --git a/genesys/edit/MMCONTROL.X.S b/genesys/edit/MMCONTROL.X.S new file mode 100644 index 0000000..87f30b7 --- /dev/null +++ b/genesys/edit/MMCONTROL.X.S @@ -0,0 +1,28 @@ + +* TFBD generated externals +* (c) PHC 1992,93 + + + ext doRECTANGLE + ext doTHERMOMETER + EXT L030057 + EXT L0310E1 + EXT L03447D + EXT L03455D + EXT L03463D + EXT L03471D + EXT L030853 + EXT L030B5F + EXT L030E51 + EXT L03143D + EXT L03171C + EXT L0322D6 + EXT L0327DA + EXT L032B88 + EXT L032D53 + EXT L032F4A + EXT L0334C2 + EXT L0337FF + EXT L033A79 + EXT L033CF3 + EXT L030524 diff --git a/genesys/edit/MMDIALOGS.S b/genesys/edit/MMDIALOGS.S new file mode 100644 index 0000000..5d989f3 --- /dev/null +++ b/genesys/edit/MMDIALOGS.S @@ -0,0 +1,8970 @@ +* +* Genesys v1.2.4 +* Control editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Line.Macs + use 4/Mem.Macs + use 4/Menu.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Text.Macs + use 4/Util.Macs + use 4/Window.Macs + + use MMDIALOGS.X.S + +*---------------------------- + +GSOS EQU $E100A8 + +*---------------------------- + +L030000 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PEI $1B + PEI $19 + pea #$FF01 + PEA ^L03004F + PEA L03004F + pea #$0008 + JSL L02C5F5 + pei $1F + pei $1D + LDA #$0001 + CLC + ADC $19 + LDX $1B + PHX + PHA + pea #$0008 + _Long2Hex + STA L02C957 + LDA $17 + STA $1F + LDA $16 + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L03004F ASC '00000000' + +*--- Icon management (from the resource to the icon management window) + +L030057 ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + pea #$0001 + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + PHA + PHA + pea #$8004 + pei $25 + pei $23 + _LoadResource + STA L02C957 + PLA + STA $16 ; return the handle to the resource + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2001 + PHA + JSL L020419 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDX $18 ; lock handle + LDA $16 + PHX + PHA + _HLock + STA L02C957 + +*--- AV 202010 - Add the extra parm + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda [$00] ; check pCount + cmp #12 ; if already 12 + bcs icn12P ; we are good + + pha + pha + pei $18 + pei $16 + _GetHandleSize + plx + ply + cpy #0 + bne icn12P ; check size of $30 + cpx #48 ; we have the right size + bcs icn12P + + pei $18 ; size is < $30 bytes + pei $16 + _HUnlock + + pea $0000 ; make it $30 bytes long + pea $0030 + pei $18 + pei $16 + _SetHandleSize + + pei $18 ; lock it + pei $16 + _HLock + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda #12 ; 12 parms now + sta [$00] + ldy #$2e ; init initial value for sticky + lda #0 + sta [$00],y + +*--- + +icn12P + LDY #$0004 ; get its ID + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + + LDY #$0002 ; get its pointer again + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 ; get its refcon + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + + LDY #$0002 ; get its pointer again + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] ; get its pcount + SEC + SBC #$0008 + BVS L03011C + EOR #$8000 +L03011C BMI L030121 ; 8 parms or more + BRL L030243 ; less than 8 parms + +L030121 LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 ; get its titleRef resource + LDA [$00],Y + PHA + LDY #$001E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L030143 + DEX +L030143 LDY #$0001 + CMP $01,S + BEQ L03014B + DEY +L03014B TXA + CMP $03,S + BEQ L030153 + LDY #$0000 +L030153 PLA + PLA + TYA + BEQ L03015B + BRL L030226 +L03015B PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 ; get its titleRef resource + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA L02B99B + PLA + STA L02B99D + LDA L02C957 + PHA + LDA #$2003 + PHA + JSL L020419 + LDX L02B99D + LDA L02B99B + PHX + PHA + _HLock + STA L02C957 + LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + LDX L02B99D + LDA L02B99B + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L02C5F5 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 ; get its titleRef resource + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + BRL L030240 +L030226 LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L030057 + PEA L030057 + LDA #$0000 + PHA + JSL L02C5F5 +L030240 BRL L03025D + +L030243 LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L030057 + PEA L030057 + LDA #$0000 + PHA + JSL L02C5F5 + +L03025D JSL L02892D ; show the Icon control window + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + +*--- Handle the invisible flag - bit 7 + + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + LDY #$0012 + LDA [$00],Y + AND #%00000000_10000000 + beq L0302BA + +L03028E LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0012 + _GetCtlHandleFromID + _SetCtlValue + +*--- AV 202010 Handle the disabled bit 3 + +L0302BA LDY #$0012 + LDA [$00],Y + AND #%00000000_00001000 + beq L0302BB + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0013 + _GetCtlHandleFromID + _SetCtlValue + +*--- AV 202010 Handle the sticky bit 4 + +L0302BB LDY #$0012 + LDA [$00],Y + AND #%00000000_00010000 + beq L0302BC + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0014 + _GetCtlHandleFromID + _SetCtlValue + + LDA #$0000 ; activate the buttons + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0015 + _GetCtlHandleFromID + _HiliteControl + + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0016 + _GetCtlHandleFromID + _HiliteControl + +*--- Handle the show border bit 2 + +L0302BC LDY #$0012 + LDA [$00],Y + AND #%00000000_00000100 + BEQ L0302D3 + BRL L0303C0 + +L0302D3 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000b + _GetCtlHandleFromID + _SetCtlValue + +*--- Handle the border type + + LDY #$0012 + LDA [$00],Y + AND #%00000000_00000011 + CMP #$0001 + bne L03034E + +L03031F LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0009 + _GetCtlHandleFromID + _SetCtlValue + bra L0303BD + +L03034E CMP #$0002 + bne L030387 + +L030358 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0008 + _GetCtlHandleFromID + _SetCtlValue + bra L0303BD + +L030387 CMP #$0003 + bne L0303BD + +L030391 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + _SetCtlValue + +L0303BD BRL L03042C + +L0303C0 LDA #$0007 + STA $1A +L0303C5 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pei $1a + _GetCtlHandleFromID + _HiliteControl + + INC $1A + LDA $1A + CMP #$000B + bcc L0303C5 + +L030400 LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000a + _GetCtlHandleFromID + _SetCtlValue + +L03042C LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0004 + _GetCtlHandleFromID + _HiliteControl + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + PLA + STA $1E + LDA #$0001 + EOR #$FFFF + INC + PHA + pea #$8004 + pei $25 + pei $23 + _ReleaseResource + PHA + pei $1E + _SetResourceFileDepth + PLA + STA $1E + LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L0304A7 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX $1B + LDA $19 + PHX + PHA + _HUnlock + STA L02C957 + PHA + PHA + LDX $1B + LDA $19 + PHX + PHA + _GetHandleSize + STA L02C957 + LDA $1D + LDX #$0000 + TAY + BPL L0304DB + DEX +L0304DB PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDX $1B + LDA $19 + PHX + PHA + _SetHandleSize + STA L02C957 + LDA L02C957 + PHA + LDA #$5202 + PHA + JSL L020419 + LDX $1B + LDA $19 + PHX + PHA + _HLock + STA L02C957 + LDA $17 + STA $1D + LDA $16 + STA $1C + PLD + TSC + CLC + ADC #$001C + TCS + RTL + +L030524 ENT + TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + PHA + PHA + LDA #$8004 + PHA + LDX $2F + LDA $2D + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$5104 + PHA + JSL L020419 + PHA + LDA $28 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BEQ L0305A8 + BVS L0305A6 + EOR #$8000 +L0305A6 BMI L0305AB +L0305A8 BRL L0305F4 +L0305AB LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L0305C3 + DEX +L0305C3 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0008 + STA [$00] +L0305F4 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L030614 + BVS L030612 + EOR #$8000 +L030612 BMI L030617 +L030614 BRL L030660 +L030617 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L03062F + DEX +L03062F PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0022 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0009 + STA [$00] +L030660 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000A + SEC + SBC $01,S + PLY + TAY + BEQ L030680 + BVS L03067E + EOR #$8000 +L03067E BMI L030683 +L030680 BRL L0306B7 +L030683 LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0026 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$000A + STA [$00] +L0306B7 JSL L028CE3 + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA $1A + PLA + STA $1C + LDX $1C + LDA $1A + PHX + PHA + _SetPort + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0004 + BNE L0306F6 + BRL L030722 +L0306F6 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L03070C + DEX +L03070C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L030722 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0002 + BNE L03073B + BRL L030767 +L03073B LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0004 + LDX #$0000 + TAY + BPL L030751 + DEX +L030751 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L030767 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$0001 + BNE L030780 + BRL L0307AC +L030780 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0005 + LDX #$0000 + TAY + BPL L030796 + DEX +L030796 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0307AC PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0138 + PHA + LDA #$0008 + PHA + LDA #$015C + PHA + LDA #$0016 + PHA + _SetRect + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + AND #$F000 + STA $26 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0000 + PHA + LDA $26 + PHA + JSL L0203E3 + PHA + _SpecialRect + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $2F + LDA $2D + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $28 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $28 + LDA $2B + STA $2F + LDA $2A + STA $2E + PLD + TSC + CLC + ADC #$002E + TCS + RTL + +L030853 ENT + TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDA #$8004 + PHA + LDX $23 + LDA $21 + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2101 + PHA + JSL L020419 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA L02B99B + PLA + STA L02B99D + LDA L02C957 + PHA + LDA #$2103 + PHA + JSL L020419 + LDX L02B99D + LDA L02B99B + PHX + PHA + _HLock + STA L02C957 + LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + LDX L02B99D + LDA L02B99B + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L02C5F5 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + JSL L02B5CB + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L0309FA + BRL L030A26 +L0309FA LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L030A10 + DEX +L030A10 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L030A26 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0003 + STA $1A + LDA $1A + CMP #$0001 + BEQ L030A46 + BRL L030A75 +L030A46 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0007 + LDX #$0000 + TAY + BPL L030A5C + DEX +L030A5C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L030AE4 +L030A75 LDA $1A + CMP #$0002 + BEQ L030A7F + BRL L030AAE +L030A7F LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0006 + LDX #$0000 + TAY + BPL L030A95 + DEX +L030A95 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L030AE4 +L030AAE LDA $1A + CMP #$0003 + BEQ L030AB8 + BRL L030AE4 +L030AB8 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0005 + LDX #$0000 + TAY + BPL L030ACE + DEX +L030ACE PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L030AE4 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L030AFA + DEX +L030AFA PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $23 + LDA $21 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDA $1F + STA $23 + LDA $1E + STA $22 + PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L030B5F ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2201 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + JSL L029680 ; window for Stat Text control + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + +*--- AV 202010 + + LDY #$0002 ; get control handle + LDA [$16],Y + TAX + LDA [$16] + STA $00 ; set the pointer + STX $02 + +*--- Set bit 7 on control $D - ctlInvis + + LDY #$0012 ; get flag + LDA [$00],Y + AND #%00000000_10000000 ; get bit 7 - invisible + beq L030C6A + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000d + _GetCtlHandleFromID + sta L02C957 + _SetCtlValue + sta L02C957 + +*--- Set bit 1 on control $C - fSubstituteText + +L030C6A + LDY #$0012 ; get flag + LDA [$00],Y + AND #%00000000_00000010 ; get bit 1 - fSubstituteText + beq L030C6B + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000c + _GetCtlHandleFromID + sta L02C957 + _SetCtlValue + sta L02C957 + +*--- Set bit 2 on control $10 - fBlastText + +L030C6B + LDY #$0012 ; get flag + LDA [$00],Y + AND #%00000000_00000100 ; get bit 2 - fBlastText + beq L030C6C + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0010 + _GetCtlHandleFromID + sta L02C957 + _SetCtlValue + sta L02C957 + +*--- Set bit 3 on control $F - fTextCanDim + +L030C6C + LDY #$0012 ; get flag + LDA [$00],Y + AND #%00000000_00001000 ; get bit 3 - fTextCanDim + beq L030C6D + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000f + _GetCtlHandleFromID + sta L02C957 + _SetCtlValue + sta L02C957 + +*--- Set bit 4 on control $E - fSquishText + +L030C6D + LDY #$0012 ; get flag + LDA [$00],Y + AND #%00000000_00010000 ; get bit 4 - fSquishText + beq L030CAF + + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000e + _GetCtlHandleFromID + sta L02C957 + _SetCtlValue + sta L02C957 + +*--- + +L030CAF LDY #$0002 ; now check justification + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + CMP #$0009 + BEQ L030CC5 + BRL L030DD6 +L030CC5 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + CMP #$0002 + BEQ L030CDE + BRL L030D0D +L030CDE LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L030CF4 + DEX +L030CF4 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L030DD3 +L030D0D LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + PHA + LDA #$0001 + EOR #$FFFF + INC + SEC + SBC $01,S + PLX + TAX + BEQ L030D30 + BRL L030D5F +L030D30 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L030D46 + DEX +L030D46 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L030DD3 +L030D5F LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + CMP #$0001 + BEQ L030D78 + BRL L030DA7 +L030D78 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L030D8E + DEX +L030D8E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L030DD3 +L030DA7 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000B + LDX #$0000 + TAY + BPL L030DBD + DEX +L030DBD PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L030DD3 BRL L030E02 +L030DD6 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000B + LDX #$0000 + TAY + BPL L030DEC + DEX +L030DEC PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L030E02 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L030E51 ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2301 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA L02B99B + PLA + STA L02B99D + LDA L02C957 + PHA + LDA #$2303 + PHA + JSL L020419 + LDX L02B99D + LDA L02B99B + PHX + PHA + _HLock + STA L02C957 + LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + LDX L02B99D + LDA L02B99B + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L02C5F5 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + JSL L0299A5 + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L030FF8 + BRL L031024 +L030FF8 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L03100E + DEX +L03100E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L031024 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + BNE L03103A + BRL L031066 +L03103A LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000B + LDX #$0000 + TAY + BPL L031050 + DEX +L031050 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L031066 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L03107C + DEX +L03107C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +*--- AV 202010 + +doRECTANGLE ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + pea #$0001 + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + PHA + PHA + pea #$8004 + pei $25 + pei $23 + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 ; check error + PHA + pea #$2401 + JSL L020419 + PHA + pei $1E + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + + pei $18 + pei $16 + _HLock + STA L02C957 + +* Get the data + + LDY #$0002 ; get the pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + +* Get the number of parms (we handle 8 parms max) + + lda [$00] + cmp #8 + bcs okRECT ; if >=8, do nothing + + pei $18 + pei $16 + _HUnlock + + pea $0000 ; make it $1e bytes long + pea $001e + pei $18 + pei $16 + _SetHandleSize + + pei $18 ; lock it + pei $16 + _HLock + + LDY #$0002 ; get the pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda #8 ; New nb of parms now + sta [$00] + ldy #$1a ; initial value for penHeight + lda #1 + sta [$00],y + ldy #$1c ; initial value for penWidth + lda #2 + sta [$00],y + +okRECT + LDY #$0004 ; get its ID + LDA [$00],Y + pha + LDY #$0002 + LDA [$00],Y + pha + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + + LDY #$0018 ; get the refcon + LDA [$00],Y + pha + LDY #$0016 + LDA [$00],Y + pha + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + + ldy #$1a ; get penWidth + lda [$00],y + pha + PushLong #strRECTD2 + PushWord #4 + _Int2Hex + + ldy #$1c ; get penHeight + lda [$00],y + pha + PushLong #strRECTF2 + PushWord #4 + _Int2Hex + +*--- Reset all controls (and we'll change the value afterwards) + +* lda #$0000 ; invisible +* pha +* pha +* pha +* pha +* pha +* pha +* pea $0007 +* _GetCtlHandleFromID +* _SetCtlValue + + lda #$0000 ; transparent + pha + pha + pha + pha + pha + pha + pea $0009 + _GetCtlHandleFromID + _SetCtlValue + + lda #$0000 ; grey pattern + pha + pha + pha + pha + pha + pha + pea $000a + _GetCtlHandleFromID + _SetCtlValue + + lda #$0000 ; black pattern + pha + pha + pha + pha + pha + pha + pea $000b + _GetCtlHandleFromID + _SetCtlValue + +*--- + + JSL showRECTANGLE ; do window + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + +*--- Update some flags + + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + +*--- Control's visibility + + ldy #$12 + lda [$00],y + and #%00000000_10000000 + beq rectVISIBLE + + lda #$0001 + pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + pea $0007 + _GetCtlHandleFromID + _SetCtlValue + +rectVISIBLE + +*--- Control's appearance + + ldy #$12 + lda [$00],y + and #%00000000_00000011 + cmp #%00000000_00000011 + bcs rectAPPEAR + + clc + adc #9 ; because control 9 is radio button transparent + tax + + lda #$0001 + pha + pha + pha + pea $0000 + pea $0000 + pea $0000 + phx ; <= the control to activate + _GetCtlHandleFromID + _SetCtlValue + +rectAPPEAR + +*--- + + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $25 + LDA $23 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +*--- + +doTHERMOMETER ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + PHA + PHA + LDA #$8004 + PHA + LDX $25 + LDA $23 + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2401 + PHA + JSL L020419 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + +* ... + + JSL showTHERMOMETER ; do window + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $25 + LDA $23 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +*--- AV 202010 Line Edit control entry point + +L0310E1 ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + PHA + PHA + LDA #$8004 + PHA + LDX $25 + LDA $23 + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2401 + PHA + JSL L020419 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + +*--- AV 202010 - Add the extra parm + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda [$00] ; check pCount + cmp #10 ; if already 10 + bcs le10P ; we are good + + pha + pha + pei $18 + pei $16 + _GetHandleSize + plx + ply + cpy #0 + bne le10P ; check size of 32+2+2 + cpx #$24 ; we have the right size + bcs le10P + + pei $18 ; size is < $24 bytes + pei $16 + _HUnlock + + pea $0000 ; make it $24 bytes long + pea $0024 + pei $18 + pei $16 + _SetHandleSize + + pei $18 ; lock it + pei $16 + _HLock + + LDY #$0002 ; get its pointer + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + + lda [$00] ; if we have 9 parms + cmp #9 ; add the 10th only + bcs le9P + + ldy #$20 ; pwChar + lda #$ffff ; by default, not a password field + sta [$00],y + +le9P ldy #$22 ; keyMask + lda #$0001 + sta [$00],y + + lda #10 ; 10 parms now + sta [$00] + +le10P + +*--- + + ldy #$20 ; now make pwChar a text value + lda [$00],y + pha + PushLong #pwChar + PushWord #4 + _Int2Hex + + ldy #$22 ; now make keyMask a text value + lda [$00],y + pha + PushLong #keyMask + PushWord #4 + _Int2Hex + +*--- Back to the original code + + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001A + LDA [$00],Y + STA $1A + LDA $1A + AND #$8000 + BNE L0311AC + BRL L0311BB +L0311AC LDA #$0001 + STA $1C + LDA $1A + EOR #$8000 + STA $1A + BRL L0311C0 +L0311BB LDA #$0000 + STA $1C +L0311C0 LDA $1A + SEC + SBC #$00FF + BEQ L0311CF + BVS L0311CD + EOR #$8000 +L0311CD BMI L0311D2 +L0311CF BRL L0311D7 +L0311D2 LDA #$00FF + STA $1A +L0311D7 LDA #$0000 + SEC + SBC $1A + BEQ L0311E6 + BVS L0311E4 + EOR #$8000 +L0311E4 BMI L0311E9 +L0311E6 BRL L0311EE +L0311E9 LDA #$0000 + STA $1A +L0311EE LDX #^L02BCAD + LDA #L02BCAD + PHX + PHA + LDA #$FF01 + PHA + LDA $1A + LDX #$0000 + TAY + BPL L031203 + DEX +L031203 PHX + PHA + JSL L02C444 + JSL L02C5F5 + JSL L02C4DA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + _HiWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BEQ L03123F + INX +L03123F TXA + PHA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + _LoWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BEQ L03126F + INX +L03126F TXA + ORA $01,S + PLX + TAX + BNE L031279 + BRL L031344 +L031279 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA L02B99B + PLA + STA L02B99D + LDA L02C957 + PHA + LDA #$2403 + PHA + JSL L020419 + LDX L02B99D + LDA L02B99B + PHX + PHA + _HLock + STA L02C957 + LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + LDX L02B99D + LDA L02B99B + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L02C5F5 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + BRL L03135E +L031344 LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0310E1 + PEA L0310E1 + LDA #$0000 + PHA + JSL L02C5F5 +L03135E JSL L029C59 ; do window + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + +*--- AV 202010 - Add new words + + ldy #$20 ; check pwChar + lda [$00],y + cmp #$ffff ; -1 means not a password + bne isAPWD + + LDA #$0001 ; check Not a password box + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000f + _GetCtlHandleFromID + _SetCtlValue + +isAPWD + +*--- + + LDY #$0012 ; bit 7 - invisible + LDA [$00],Y + AND #$0080 + BNE L03138F + BRL L0313BB +L03138F LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $000c + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + +L0313BB LDA $1C ; password checkbox + BNE L0313C2 + BRL L0313EE +L0313C2 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + pea $0000 + pea $0003 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0313EE PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $25 + LDA $23 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1E + LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L03143D ENT + TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDA #$8004 + PHA + LDX $23 + LDA $21 + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2501 + PHA + JSL L020419 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + STA $1A + LDA $1A + SEC + SBC #$007F + BEQ L03150D + BVS L03150B + EOR #$8000 +L03150B BMI L031510 +L03150D BRL L031517 +L031510 LDA $1A + EOR #$0080 + STA $1A +L031517 LDX #^L02BCAD + LDA #L02BCAD + PHX + PHA + LDA #$FF01 + PHA + LDA $1A + LDX #$0000 + TAY + BPL L03152C + DEX +L03152C PHX + PHA + JSL L02C444 + JSL L02C5F5 + JSL L02C4DA + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA L02B99B + PLA + STA L02B99D + LDA L02C957 + PHA + LDA #$2503 + PHA + JSL L020419 + LDX L02B99D + LDA L02B99B + PHX + PHA + _HLock + STA L02C957 + LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + LDX L02B99D + LDA L02B99B + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L02C5F5 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + JSL L029F0F + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L031633 + BRL L03165F +L031633 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L031649 + DEX +L031649 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03165F LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + BNE L031675 + BRL L0316A1 +L031675 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L03168B + DEX +L03168B PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0316A1 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L0316B7 + DEX +L0316B7 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $23 + LDA $21 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1C + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1C + LDA $1F + STA $23 + LDA $1E + STA $22 + PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L03171C ENT + TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + PHA + PHA + LDA #$8004 + PHA + LDX $29 + LDA $27 + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2604 + PHA + JSL L020419 + PHA + LDA $20 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + JSL L02A20A + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L0317FB + BRL L031827 +L0317FB LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0015 + LDX #$0000 + TAY + BPL L031811 + DEX +L031811 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L031827 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BEQ L031847 + BVS L031845 + EOR #$8000 +L031845 BMI L03184A +L031847 BRL L031881 +L03184A LDA #$0008 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + LDA #$FFFF + PHA + LDA #$FFFF + PHA + LDA #$FFFF + PHA + LDA #$FFFF + PHA + _SetRect + STA L02C957 +L031881 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L0318A1 + BVS L03189F + EOR #$8000 +L03189F BMI L0318A4 +L0318A1 BRL L0318DC +L0318A4 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L0318BC + DEX +L0318BC PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0026 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L0318DC LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000A + SEC + SBC $01,S + PLY + TAY + BEQ L0318FC + BVS L0318FA + EOR #$8000 +L0318FA BMI L0318FF +L0318FC BRL L031922 +L0318FF LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$002A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L031922 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000B + SEC + SBC $01,S + PLY + TAY + BEQ L031942 + BVS L031940 + EOR #$8000 +L031940 BMI L031945 +L031942 BRL L03197D +L031945 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L03195D + DEX +L03195D PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$002C + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L03197D LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000C + SEC + SBC $01,S + PLY + TAY + BEQ L03199D + BVS L03199B + EOR #$8000 +L03199B BMI L0319A0 +L03199D BRL L0319C3 +L0319A0 LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0030 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L0319C3 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000D + SEC + SBC $01,S + PLY + TAY + BEQ L0319E3 + BVS L0319E1 + EOR #$8000 +L0319E1 BMI L0319E6 +L0319E3 BRL L031A1E +L0319E6 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L0319FE + DEX +L0319FE PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0032 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L031A1E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000E + SEC + SBC $01,S + PLY + TAY + BEQ L031A3E + BVS L031A3C + EOR #$8000 +L031A3C BMI L031A41 +L031A3E BRL L031A64 +L031A41 LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$0015 + STA [$00] +L031A64 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000F + SEC + SBC $01,S + PLY + TAY + BEQ L031A84 + BVS L031A82 + EOR #$8000 +L031A82 BMI L031A87 +L031A84 BRL L031C04 +L031A87 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + PHA + PHA + LDA #$0016 + LDX #$0000 + TAY + BPL L031AA1 + DEX +L031AA1 PHX + PHA + LDA $25 + PHA + LDA #$0000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L031AB4 + DEX +L031AB4 PHX + PHA + _NewHandle + STA L02C957 + PLA + STA $1C + PLA + STA $1E + LDA L02C957 + PHA + LDA #$2606 + PHA + JSL L020419 + LDX $1E + LDA $1C + PHX + PHA + _HLock + STA L02C957 + LDX #^L02BCAD + LDA #L02BCAD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0322C0 + PEA L0322C0 + LDA #$0016 + PHA + JSL L02C5F5 + LDA #$0001 + TAX + TXA + CLC + ADC #L02BCAD + PEA ^L02BCAD + PHA + LDY #$0002 + LDA [$1C],Y + PHA + LDA [$1C] + PHA + LDA #$0016 + LDX #$0000 + TAY + BPL L031B1C + DEX +L031B1C PHX + PHA + _BlockMove + STA L02C957 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8016 + PHA + _UniqueResourceID + STA L02C957 + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + LDX $1E + LDA $1C + PHX + PHA + LDA #$0000 + PHA + LDA #$8016 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _AddResource + STA L02C957 + LDA #$8016 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L02C957 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8016 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $20 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 +L031C04 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0010 + SEC + SBC $01,S + PLY + TAY + BEQ L031C24 + BVS L031C22 + EOR #$8000 +L031C22 BMI L031C27 +L031C24 BRL L031C5F +L031C27 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L031C3F + DEX +L031C3F PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$003C + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L031C5F LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0011 + SEC + SBC $01,S + PLY + TAY + BEQ L031C7F + BVS L031C7D + EOR #$8000 +L031C7D BMI L031C82 +L031C7F BRL L031CBA +L031C82 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L031C9A + DEX +L031C9A PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0040 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L031CBA LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0012 + SEC + SBC $01,S + PLY + TAY + BEQ L031CDA + BVS L031CD8 + EOR #$8000 +L031CD8 BMI L031CDD +L031CDA BRL L031D15 +L031CDD LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L031CF5 + DEX +L031CF5 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0044 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L031D15 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0013 + SEC + SBC $01,S + PLY + TAY + BEQ L031D35 + BVS L031D33 + EOR #$8000 +L031D33 BMI L031D38 +L031D35 BRL L031D5B +L031D38 LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0048 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L031D5B LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0014 + SEC + SBC $01,S + PLY + TAY + BEQ L031D7B + BVS L031D79 + EOR #$8000 +L031D79 BMI L031D7E +L031D7B BRL L031DA1 +L031D7E LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$004A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L031DA1 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0015 + SEC + SBC $01,S + PLY + TAY + BEQ L031DC1 + BVS L031DBF + EOR #$8000 +L031DBF BMI L031DC4 +L031DC1 BRL L031DFC +L031DC4 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L031DDC + DEX +L031DDC PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$004C + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L031DFC LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0016 + SEC + SBC $01,S + PLY + TAY + BEQ L031E1C + BVS L031E1A + EOR #$8000 +L031E1A BMI L031E1F +L031E1C BRL L031E42 +L031E1F LDA #$0002 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L031E42 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0017 + SEC + SBC $01,S + PLY + TAY + BEQ L031E62 + BVS L031E60 + EOR #$8000 +L031E60 BMI L031E65 +L031E62 BRL L031E9D +L031E65 LDA #$0004 + PHA + LDX $18 + LDA $16 + PHX + PHA + JSL L0304A7 + LDA #$0000 + LDX #$0000 + TAY + BPL L031E7D + DEX +L031E7D PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L031E9D LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0017 + STA [$00] + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + LDA #$0001 + PHA + LDA #$8004 + PHA + LDX $29 + LDA $27 + PHX + PHA + _MarkResourceChange + STA L02C957 + LDA #$8004 + PHA + LDX $29 + LDA $27 + PHX + PHA + _WriteResource + STA L02C957 + PHA + LDA $20 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$0800 + BNE L031F16 + BRL L031F6E +L031F16 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L031F2C + DEX +L031F2C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L031F58 + DEX +L031F58 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L031F6E PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0028 + LDA [$00],Y + TAX + LDY #$0026 + LDA [$00],Y + PHX + PHA + _HiWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BEQ L031F9C + INX +L031F9C TXA + PHA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0028 + LDA [$00],Y + TAX + LDY #$0026 + LDA [$00],Y + PHX + PHA + _LoWord + STA L02C957 + PLA + LDX #$0000 + CMP #$0000 + BEQ L031FCC + INX +L031FCC TXA + ORA $01,S + PLX + TAX + BNE L031FD6 + BRL L032002 +L031FD6 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L031FEC + DEX +L031FEC PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032002 PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _HiWord + STA L02C957 + PLA + STA $1A + LDA $1A + AND #$2000 + BNE L032033 + BRL L03205F +L032033 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L032049 + DEX +L032049 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03205F LDA $1A + AND #$1000 + BNE L032069 + BRL L032095 +L032069 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L03207F + DEX +L03207F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032095 LDA $1A + AND #$0800 + BNE L03209F + BRL L0320CB +L03209F LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L0320B5 + DEX +L0320B5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0320CB LDA $1A + AND #$0400 + BNE L0320D5 + BRL L032101 +L0320D5 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000B + LDX #$0000 + TAY + BPL L0320EB + DEX +L0320EB PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032101 LDA $1A + AND #$0200 + BNE L03210B + BRL L032137 +L03210B LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L032121 + DEX +L032121 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032137 LDA $1A + AND #$0100 + BNE L032141 + BRL L03216D +L032141 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L032157 + DEX +L032157 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03216D LDA $1A + AND #$0080 + BNE L032177 + BRL L0321A3 +L032177 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L03218D + DEX +L03218D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0321A3 LDA $1A + AND #$0020 + BNE L0321AD + BRL L0321D9 +L0321AD LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0007 + LDX #$0000 + TAY + BPL L0321C3 + DEX +L0321C3 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0321D9 LDA $1A + AND #$0010 + BNE L0321E3 + BRL L03220F +L0321E3 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0006 + LDX #$0000 + TAY + BPL L0321F9 + DEX +L0321F9 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03220F LDA $1A + AND #$0008 + BNE L032219 + BRL L032245 +L032219 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0005 + LDX #$0000 + TAY + BPL L03222F + DEX +L03222F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032245 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L03225B + DEX +L03225B PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $29 + LDA $27 + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $20 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $20 + LDA $23 + STA $29 + LDA $22 + STA $28 + PLD + TSC + CLC + ADC #$0028 + TCS + RTL + +L0322C0 ASC 'Text Edit text string.' +L0322D6 ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2701 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + LDX #^L02BBAD + LDA #L02BBAD + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + LDX #$0000 + TAY + BPL L0323A8 + DEX +L0323A8 PHX + PHA + JSL L02C444 + JSL L02C5F5 + JSL L02C4DA + LDX #^L02BCAD + LDA #L02BCAD + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + LDX #$0000 + TAY + BPL L0323DA + DEX +L0323DA PHX + PHA + JSL L02C444 + JSL L02C5F5 + JSL L02C4DA + LDX #^L02B9AD + LDA #L02B9AD + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001A + LDA [$00],Y + LDX #$0000 + TAY + BPL L03240C + DEX +L03240C PHX + PHA + JSL L02C444 + JSL L02C5F5 + JSL L02C4DA + JSL L02A6F9 + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L03244B + BRL L032477 +L03244B LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0014 + LDX #$0000 + TAY + BPL L032461 + DEX +L032461 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032477 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L03248D + DEX +L03248D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L0324B9 + DEX +L0324B9 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L0324E5 + DEX +L0324E5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L032511 + DEX +L032511 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0010 + BEQ L032540 + BRL L032651 +L032540 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0012 + LDX #$0000 + TAY + BPL L032556 + DEX +L032556 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L032582 + DEX +L032582 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L0325AE + DEX +L0325AE PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0002 + BNE L0325DD + BRL L032609 +L0325DD LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L0325F3 + DEX +L0325F3 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032609 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0001 + BNE L032622 + BRL L03264E +L032622 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L032638 + DEX +L032638 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03264E BRL L03275F +L032651 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0013 + LDX #$0000 + TAY + BPL L032667 + DEX +L032667 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L032693 + DEX +L032693 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$0000 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L0326BF + DEX +L0326BF PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0004 + BNE L0326EE + BRL L03271A +L0326EE LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L032704 + DEX +L032704 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03271A LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0008 + BNE L032733 + BRL L03275F +L032733 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L032749 + DEX +L032749 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03275F LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L032775 + DEX +L032775 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L0327DA ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2801 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + JSL L02AB20 + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$FF00 + BNE L0328B9 + BRL L0328E5 +L0328B9 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0010 + LDX #$0000 + TAY + BPL L0328CF + DEX +L0328CF PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0328E5 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L0328FE + BRL L03292A +L0328FE LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0011 + LDX #$0000 + TAY + BPL L032914 + DEX +L032914 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03292A LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0040 + BNE L032943 + BRL L03296F +L032943 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000F + LDX #$0000 + TAY + BPL L032959 + DEX +L032959 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03296F LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0020 + BNE L032988 + BRL L0329B4 +L032988 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000E + LDX #$0000 + TAY + BPL L03299E + DEX +L03299E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0329B4 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0010 + BNE L0329CD + BRL L0329F9 +L0329CD LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000D + LDX #$0000 + TAY + BPL L0329E3 + DEX +L0329E3 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0329F9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0008 + BNE L032A12 + BRL L032A3E +L032A12 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000C + LDX #$0000 + TAY + BPL L032A28 + DEX +L032A28 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032A3E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0004 + BNE L032A57 + BRL L032A83 +L032A57 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000B + LDX #$0000 + TAY + BPL L032A6D + DEX +L032A6D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032A83 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0002 + BNE L032A9C + BRL L032AC8 +L032A9C LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L032AB2 + DEX +L032AB2 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032AC8 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0001 + BNE L032AE1 + BRL L032B0D +L032AE1 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L032AF7 + DEX +L032AF7 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032B0D LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L032B23 + DEX +L032B23 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L032B88 ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2901 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + JSL L02AF0F + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L032C67 + BRL L032C93 +L032C67 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L032C7D + DEX +L032C7D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032C93 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0001 + BNE L032CAC + BRL L032CD8 +L032CAC LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0004 + LDX #$0000 + TAY + BPL L032CC2 + DEX +L032CC2 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032CD8 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L032CEE + DEX +L032CEE PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L032D53 ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2A01 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + JSL L02B155 + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L032E32 + BRL L032E5E +L032E32 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$000A + LDX #$0000 + TAY + BPL L032E48 + DEX +L032E48 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032E5E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + AND #$0002 + BEQ L032E77 + BRL L032EA3 +L032E77 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0009 + LDX #$0000 + TAY + BPL L032E8D + DEX +L032E8D PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L032EA3 LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0004 + LDX #$0000 + TAY + BPL L032EB9 + DEX +L032EB9 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + LDA #$00FF + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + LDX #$0000 + TAY + BPL L032EE5 + DEX +L032EE5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _HiliteControl + STA L02C957 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L032F4A ENT + TSC + SEC + SBC #$001C + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + PHA + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _LoadResource + STA L02C957 + PLA + STA $16 + PLA + STA $18 + LDA L02C957 + PHA + LDA #$2B01 + PHA + JSL L020419 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L02C957 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX #^L02BDAD + LDA #L02BDAD + PHX + PHA + JSL L030000 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0018 + LDA [$00],Y + TAX + LDY #$0016 + LDA [$00],Y + PHX + PHA + LDX #^L02BAAD + LDA #L02BAAD + PHX + PHA + JSL L030000 + JSL L02B3BD + PHA + PHA + _FrontWindow + STA L02C957 + PLA + STA L02B9A9 + PLA + STA L02B9AB + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + AND #$0080 + BNE L033029 + BRL L033055 +L033029 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0008 + LDX #$0000 + TAY + BPL L03303F + DEX +L03303F PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L033055 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDX $21 + LDA $1F + PHX + PHA + _ReleaseResource + STA L02C957 + PHA + LDA $1A + PHA + _SetResourceFileDepth + STA L02C957 + PLA + STA $1A + LDA $1D + STA $21 + LDA $1C + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L0330A4 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA #$0000 + STA [$19] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0100 + LDX #$0000 + TAY + BPL L0330C5 + DEX +L0330C5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0330E1 + BRL L0330F2 +L0330E1 PEI $1B + PEI $19 + LDA [$19] + ORA #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0330F2 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0200 + LDX #$0000 + TAY + BPL L033105 + DEX +L033105 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033121 + BRL L033132 +L033121 PEI $1B + PEI $19 + LDA [$19] + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033132 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0400 + LDX #$0000 + TAY + BPL L033145 + DEX +L033145 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033161 + BRL L033172 +L033161 PEI $1B + PEI $19 + LDA [$19] + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033172 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0800 + LDX #$0000 + TAY + BPL L033185 + DEX +L033185 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0331A1 + BRL L0331B2 +L0331A1 PEI $1B + PEI $19 + LDA [$19] + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0331B2 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$1000 + LDX #$0000 + TAY + BPL L0331C5 + DEX +L0331C5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0331E1 + BRL L0331F2 +L0331E1 PEI $1B + PEI $19 + LDA [$19] + ORA #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0331F2 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$2000 + LDX #$0000 + TAY + BPL L033205 + DEX +L033205 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033221 + BRL L033232 +L033221 PEI $1B + PEI $19 + LDA [$19] + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033232 LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L033242 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA #$0000 + STA [$19] + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0100 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033279 + BRL L03328A +L033279 PEI $1B + PEI $19 + LDA [$19] + ORA #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L03328A PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0200 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0332B3 + BRL L0332C4 +L0332B3 PEI $1B + PEI $19 + LDA [$19] + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0332C4 PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0400 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0332ED + BRL L0332FE +L0332ED PEI $1B + PEI $19 + LDA [$19] + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0332FE PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0800 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033327 + BRL L033338 +L033327 PEI $1B + PEI $19 + LDA [$19] + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033338 PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $1000 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033361 + BRL L033372 +L033361 PEI $1B + PEI $19 + LDA [$19] + ORA #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033372 PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $2000 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L03339B + BRL L0333AC +L03339B PEI $1B + PEI $19 + LDA [$19] + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0333AC LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L0333BC TSC + SEC + SBC #$0018 + TCS + PHD + INC + TCD + LDA #$0000 + STA $16 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7013 + LDX #$0000 + TAY + BPL L0333DD + DEX +L0333DD PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L0333F9 + BRL L033401 +L0333F9 LDA #$000D + STA $16 + BRL L03346C +L033401 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7012 + LDX #$0000 + TAY + BPL L033414 + DEX +L033414 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033430 + BRL L033438 +L033430 LDA #$001B + STA $16 + BRL L03346C +L033438 PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7016 + LDX #$0000 + TAY + BPL L03344B + DEX +L03344B PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _GetCtlValue + STA L02C957 + PLA + BNE L033467 + BRL L03346C +L033467 LDA #$007F + STA $16 +L03346C PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $21 + PEI $1F + LDA #$0001 + LDX #$0000 + TAY + BPL L033483 + DEX +L033483 PHX + PHA + _BlockMove + STA L02C957 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $1D + PEI $1B + LDA #$0001 + LDX #$0000 + TAY + BPL L0334A6 + DEX +L0334A6 PHX + PHA + _BlockMove + STA L02C957 + LDA $19 + STA $21 + LDA $18 + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L0334C2 ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BEQ L0334F3 + BVS L0334F1 + EOR #$8000 +L0334F1 BMI L0334F6 +L0334F3 BRL L03353F +L0334F6 LDA #$0004 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0008 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L03351F + DEX +L03351F PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L03353F LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L03355F + BVS L03355D + EOR #$8000 +L03355D BMI L033562 +L03355F BRL L0335AB +L033562 LDA #$0004 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0009 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L03358B + DEX +L03358B PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0022 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L0335AB LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000A + SEC + SBC $01,S + PLY + TAY + BEQ L0335CB + BVS L0335C9 + EOR #$8000 +L0335C9 BMI L0335CE +L0335CB BRL L033602 +L0335CE LDA #$0002 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$000A + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0026 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L033602 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000B + SEC + SBC $01,S + PLY + TAY + BEQ L033622 + BVS L033620 + EOR #$8000 +L033620 BMI L033625 +L033622 BRL L033644 +L033625 LDA #$0006 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$000B + STA [$00] +L033644 PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L033656 + DEX +L033656 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L02B9A7 + STA L02B9A5 + PHA + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L02B99F + PLA + STA L02B9A1 + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L02B9A3 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0028 + STX $08 + STA $06 + LDA #$0001 + SEC + SBC L02B9A3 + BEQ L0336D8 + BVS L0336D6 + EOR #$8000 +L0336D6 BMI L0336DB +L0336D8 BRL L0336F0 +L0336DB PEI $08 + PEI $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + JSL L0333BC + BRL L03378F +L0336F0 PEI $08 + PEI $06 + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA L02B9A3 + BMI L033724 + DEC + DEC + BPL L033727 +L033724 BRL L03375E +L033727 PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0001 + LDA [$00],Y + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + BRL L03378F +L03375E PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 +L03378F PEI $08 + PEI $06 + PLA + CLC + ADC #$0002 + PHA + JSL L0330A4 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0004 + PHA + JSL L033242 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$2000 + BEQ L0337C4 + BRL L0337EF +L0337C4 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0337EF LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L0337FF ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BEQ L033830 + BVS L03382E + EOR #$8000 +L03382E BMI L033833 +L033830 BRL L03387C +L033833 LDA #$0004 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0008 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L03385C + DEX +L03385C PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$001E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L03387C LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L03389C + BVS L03389A + EOR #$8000 +L03389A BMI L03389F +L03389C BRL L0338BE +L03389F LDA #$0006 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0009 + STA [$00] +L0338BE PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L0338D0 + DEX +L0338D0 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L02B9A7 + STA L02B9A5 + PHA + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L02B99F + PLA + STA L02B9A1 + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L02B9A3 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0022 + STX $08 + STA $06 + LDA #$0001 + SEC + SBC L02B9A3 + BEQ L033952 + BVS L033950 + EOR #$8000 +L033950 BMI L033955 +L033952 BRL L03396A +L033955 PEI $08 + PEI $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + JSL L0333BC + BRL L033A09 +L03396A PEI $08 + PEI $06 + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA L02B9A3 + BMI L03399E + DEC + DEC + BPL L0339A1 +L03399E BRL L0339D8 +L0339A1 PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0001 + LDA [$00],Y + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + BRL L033A09 +L0339D8 PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 +L033A09 PEI $08 + PEI $06 + PLA + CLC + ADC #$0002 + PHA + JSL L0330A4 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0004 + PHA + JSL L033242 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$2000 + BEQ L033A3E + BRL L033A69 +L033A3E LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033A69 LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L033A79 ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L033AAA + BVS L033AA8 + EOR #$8000 +L033AA8 BMI L033AAD +L033AAA BRL L033AF6 +L033AAD LDA #$0004 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0009 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L033AD6 + DEX +L033AD6 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0020 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L033AF6 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000A + SEC + SBC $01,S + PLY + TAY + BEQ L033B16 + BVS L033B14 + EOR #$8000 +L033B14 BMI L033B19 +L033B16 BRL L033B38 +L033B19 LDA #$0006 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$000A + STA [$00] +L033B38 PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L033B4A + DEX +L033B4A PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L02B9A7 + STA L02B9A5 + PHA + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L02B99F + PLA + STA L02B9A1 + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L02B9A3 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0024 + STX $08 + STA $06 + LDA #$0001 + SEC + SBC L02B9A3 + BEQ L033BCC + BVS L033BCA + EOR #$8000 +L033BCA BMI L033BCF +L033BCC BRL L033BE4 +L033BCF PEI $08 + PEI $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + JSL L0333BC + BRL L033C83 +L033BE4 PEI $08 + PEI $06 + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA L02B9A3 + BMI L033C18 + DEC + DEC + BPL L033C1B +L033C18 BRL L033C52 +L033C1B PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0001 + LDA [$00],Y + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + BRL L033C83 +L033C52 PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 +L033C83 PEI $08 + PEI $06 + PLA + CLC + ADC #$0002 + PHA + JSL L0330A4 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0004 + PHA + JSL L033242 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$2000 + BEQ L033CB8 + BRL L033CE3 +L033CB8 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033CE3 LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L033CF3 ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$0009 + SEC + SBC $01,S + PLY + TAY + BEQ L033D24 + BVS L033D22 + EOR #$8000 +L033D22 BMI L033D27 +L033D24 BRL L033D70 +L033D27 LDA #$0004 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$0009 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L033D50 + DEX +L033D50 PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0020 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L033D70 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDA #$000A + SEC + SBC $01,S + PLY + TAY + BEQ L033D90 + BVS L033D8E + EOR #$8000 +L033D8E BMI L033D93 +L033D90 BRL L033DB2 +L033D93 LDA #$0006 + PHA + LDX $1F + LDA $1D + PHX + PHA + JSL L0304A7 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA #$000A + STA [$00] +L033DB2 PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L033DC4 + DEX +L033DC4 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L02B9A7 + STA L02B9A5 + PHA + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextHand + STA L02C957 + PLA + STA L02B99F + PLA + STA L02B9A1 + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LEGetTextLen + STA L02C957 + PLA + STA L02B9A3 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0024 + STX $08 + STA $06 + LDA #$0001 + SEC + SBC L02B9A3 + BEQ L033E46 + BVS L033E44 + EOR #$8000 +L033E44 BMI L033E49 +L033E46 BRL L033E5E +L033E49 PEI $08 + PEI $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + JSL L0333BC + BRL L033EFD +L033E5E PEI $08 + PEI $06 + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA L02B9A3 + BMI L033E92 + DEC + DEC + BPL L033E95 +L033E92 BRL L033ECC +L033E95 PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0001 + LDA [$00],Y + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + BRL L033EFD +L033ECC PEI $08 + PEI $06 + PLA + CLC + ADC #$0001 + PHA + LDX L02B9A1 + LDA L02B99F + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA [$00] + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 +L033EFD PEI $08 + PEI $06 + PLA + CLC + ADC #$0002 + PHA + JSL L0330A4 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0004 + PHA + JSL L033242 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + AND #$2000 + BEQ L033F32 + BRL L033F5D +L033F32 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0014 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0014 + LDA [$00],Y + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L033F5D LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L033F6D TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDA #$0000 + STA $16 + LDA #$0001 + TAX + SEP #$20 + LDA #$00 + STA L02BEAD,X + REP #$20 + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L033F9A + DEX +L033F9A PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L02B9A7 + STA L02B9A5 + LDA #$0001 + TAX + TXA + CLC + ADC #L02BEAD + PEA ^L02BEAD + PHA + LDA $16 + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LESetText + STA L02C957 + LDA $25 + LDX #$0000 + CMP #$000D + BNE L033FF6 + INX +L033FF6 TXA + PHA + LDA $23 + LDX #$0000 + CMP #$000D + BNE L034003 + INX +L034003 TXA + ORA $01,S + PLX + TAX + BNE L03400D + BRL L03403C +L03400D LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7013 + LDX #$0000 + TAY + BPL L034023 + DEX +L034023 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L034181 +L03403C LDA $25 + LDX #$0000 + CMP #$001B + BNE L034047 + INX +L034047 TXA + PHA + LDA $23 + LDX #$0000 + CMP #$001B + BNE L034054 + INX +L034054 TXA + ORA $01,S + PLX + TAX + BNE L03405E + BRL L03408D +L03405E LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7012 + LDX #$0000 + TAY + BPL L034074 + DEX +L034074 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L034181 +L03408D LDA $25 + LDX #$0000 + CMP #$007F + BNE L034098 + INX +L034098 TXA + PHA + LDA $23 + LDX #$0000 + CMP #$007F + BNE L0340A5 + INX +L0340A5 TXA + ORA $01,S + PLX + TAX + BNE L0340AF + BRL L0340DE +L0340AF LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7016 + LDX #$0000 + TAY + BPL L0340C5 + DEX +L0340C5 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 + BRL L034181 +L0340DE LDA $25 + LDX #$0001 + SEC + SBC #$0020 + BVS L0340EC + EOR #$8000 +L0340EC BMI L0340EF + DEX +L0340EF TXA + PHA + LDA #$007E + LDX #$0001 + SEC + SBC $25 + BVS L0340FF + EOR #$8000 +L0340FF BMI L034102 + DEX +L034102 TXA + AND $01,S + PLX + TAX + BNE L03410C + BRL L03411D +L03410C LDA #$0001 + STA $16 + LDA $16 + TAX + SEP #$20 + LDA $25 + STA L02BEAD,X + REP #$20 +L03411D LDA $23 + LDX #$0001 + SEC + SBC #$0020 + BVS L03412B + EOR #$8000 +L03412B BMI L03412E + DEX +L03412E TXA + PHA + LDA #$007E + LDX #$0001 + SEC + SBC $23 + BVS L03413E + EOR #$8000 +L03413E BMI L034141 + DEX +L034141 TXA + AND $01,S + PLX + TAX + BNE L03414B + BRL L03415F +L03414B LDA $16 + CLC + ADC #$0001 + STA $16 + LDA $16 + TAX + SEP #$20 + LDA $23 + STA L02BEAD,X + REP #$20 +L03415F LDA #$0001 + TAX + TXA + CLC + ADC #L02BEAD + PEA ^L02BEAD + PHA + LDA $16 + PHA + LDX L02B9A7 + LDA L02B9A5 + PHX + PHA + _LESetText + STA L02C957 +L034181 PEA $0000 + TDC + CLC + ADC #$0018 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$7010 + LDX #$0000 + TAY + BPL L03419C + DEX +L03419C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L02C5AB + PEA $0000 + TDC + CLC + ADC #$0018 + PHA + _InvalRect + STA L02C957 + LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L0341E7 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA $19 + AND #$0100 + BNE L0341FA + BRL L034226 +L0341FA LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0100 + LDX #$0000 + TAY + BPL L034210 + DEX +L034210 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L034226 LDA $19 + AND #$0200 + BNE L034230 + BRL L03425C +L034230 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0200 + LDX #$0000 + TAY + BPL L034246 + DEX +L034246 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03425C LDA $19 + AND #$0400 + BNE L034266 + BRL L034292 +L034266 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0400 + LDX #$0000 + TAY + BPL L03427C + DEX +L03427C PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L034292 LDA $19 + AND #$0800 + BNE L03429C + BRL L0342C8 +L03429C LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$0800 + LDX #$0000 + TAY + BPL L0342B2 + DEX +L0342B2 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0342C8 LDA $19 + AND #$1000 + BNE L0342D2 + BRL L0342FE +L0342D2 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$1000 + LDX #$0000 + TAY + BPL L0342E8 + DEX +L0342E8 PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0342FE LDA $19 + AND #$2000 + BNE L034308 + BRL L034334 +L034308 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + LDA #$2000 + LDX #$0000 + TAY + BPL L03431E + DEX +L03431E PHX + PHA + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L034334 LDA $17 + STA $19 + LDA $16 + STA $18 + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +L034344 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA $19 + AND #$0100 + BNE L034357 + BRL L03437D +L034357 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0100 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03437D LDA $19 + AND #$0200 + BNE L034387 + BRL L0343AD +L034387 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0200 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0343AD LDA $19 + AND #$0400 + BNE L0343B7 + BRL L0343DD +L0343B7 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0400 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L0343DD LDA $19 + AND #$0800 + BNE L0343E7 + BRL L03440D +L0343E7 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0800 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03440D LDA $19 + AND #$1000 + BNE L034417 + BRL L03443D +L034417 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $1000 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03443D LDA $19 + AND #$2000 + BNE L034447 + BRL L03446D +L034447 LDA #$0001 + PHA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $2000 + PEA $0000 + _GetCtlHandleFromID + STA L02C957 + _SetCtlValue + STA L02C957 +L03446D LDA $17 + STA $19 + LDA $16 + STA $18 + PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +L03447D ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDX #^L02BEAD + LDA #L02BEAD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L03447D + PEA L03447D + LDA #$0000 + PHA + JSL L02C5F5 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + CMP #$000B + BEQ L0344BE + BRL L034533 +L0344BE LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0028 + STX $08 + STA $06 + LDA #$0000 + TAX + SEP #$20 + LDA #$02 + STA L02BEAD,X + REP #$20 + PEI $08 + PEI $06 + LDA #$0001 + TAX + TXA + CLC + ADC #L02BEAD + PEA ^L02BEAD + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L0344F6 + DEX +L0344F6 PHX + PHA + _BlockMove + STA L02C957 + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0002 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D + LDY #$0002 + LDA [$06],Y + PHA + JSL L0341E7 + LDY #$0004 + LDA [$06],Y + PHA + JSL L034344 + BRL L03454D +L034533 LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D +L03454D LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L03455D ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDX #^L02BEAD + LDA #L02BEAD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L03455D + PEA L03455D + LDA #$0000 + PHA + JSL L02C5F5 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + CMP #$0009 + BEQ L03459E + BRL L034613 +L03459E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0022 + STX $08 + STA $06 + LDA #$0000 + TAX + SEP #$20 + LDA #$02 + STA L02BEAD,X + REP #$20 + PEI $08 + PEI $06 + LDA #$0001 + TAX + TXA + CLC + ADC #L02BEAD + PEA ^L02BEAD + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L0345D6 + DEX +L0345D6 PHX + PHA + _BlockMove + STA L02C957 + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0002 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D + LDY #$0002 + LDA [$06],Y + PHA + JSL L0341E7 + LDY #$0004 + LDA [$06],Y + PHA + JSL L034344 + BRL L03462D +L034613 LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D +L03462D LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L03463D ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDX #^L02BEAD + LDA #L02BEAD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L03463D + PEA L03463D + LDA #$0000 + PHA + JSL L02C5F5 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + CMP #$000A + BEQ L03467E + BRL L0346F3 +L03467E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0024 + STX $08 + STA $06 + LDA #$0000 + TAX + SEP #$20 + LDA #$02 + STA L02BEAD,X + REP #$20 + PEI $08 + PEI $06 + LDA #$0001 + TAX + TXA + CLC + ADC #L02BEAD + PEA ^L02BEAD + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L0346B6 + DEX +L0346B6 PHX + PHA + _BlockMove + STA L02C957 + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0002 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D + LDY #$0002 + LDA [$06],Y + PHA + JSL L0341E7 + LDY #$0004 + LDA [$06],Y + PHA + JSL L034344 + BRL L03470D +L0346F3 LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D +L03470D LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L03471D ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX $1F + LDA $1D + STX $18 + STA $16 + LDX #^L02BEAD + LDA #L02BEAD + PHX + PHA + LDA #$FF01 + PHA + PEA ^L03471D + PEA L03471D + LDA #$0000 + PHA + JSL L02C5F5 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + CMP #$000A + BEQ L03475E + BRL L0347D3 +L03475E LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0024 + STX $08 + STA $06 + LDA #$0000 + TAX + SEP #$20 + LDA #$02 + STA L02BEAD,X + REP #$20 + PEI $08 + PEI $06 + LDA #$0001 + TAX + TXA + CLC + ADC #L02BEAD + PEA ^L02BEAD + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L034796 + DEX +L034796 PHX + PHA + _BlockMove + STA L02C957 + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0002 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D + LDY #$0002 + LDA [$06],Y + PHA + JSL L0341E7 + LDY #$0004 + LDA [$06],Y + PHA + JSL L034344 + BRL L0347ED +L0347D3 LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + LDA #$0001 + TAX + LDA L02BEAD,X + AND #$00FF + PHA + JSL L033F6D +L0347ED LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + diff --git a/genesys/edit/MMDIALOGS.X.S b/genesys/edit/MMDIALOGS.X.S new file mode 100644 index 0000000..947ecd9 --- /dev/null +++ b/genesys/edit/MMDIALOGS.X.S @@ -0,0 +1,45 @@ + +* TFBD generated externals +* (c) PHC 1992,93 + + ext keyMask + ext pwChar + ext showRECTANGLE + ext showTHERMOMETER + ext strRECTD2 + ext strRECTF2 + EXT L02C5F5 + EXT L020419 + EXT L02892D + EXT L028CE3 + EXT L0203E3 + EXT L02B5CB + EXT L029680 + EXT L0299A5 + EXT L02C444 + EXT L02C4DA + EXT L029C59 + EXT L029F0F + EXT L02A20A + EXT L02A6F9 + EXT L02AB20 + EXT L02AF0F + EXT L02B155 + EXT L02B3BD + EXT L02C5AB + EXT L02C957 + EXT L02BDAD + EXT L02BAAD + EXT L02B99B + EXT L02B99D + EXT L02B9AD + EXT L02B9A9 + EXT L02B9AB + EXT L02BCAD + EXT L02BBAD + EXT L02B9A7 + EXT L02B9A5 + EXT L02B99F + EXT L02B9A1 + EXT L02B9A3 + EXT L02BEAD diff --git a/genesys/edit/TOOLTABLE.S b/genesys/edit/TOOLTABLE.S new file mode 100644 index 0000000..8abc190 --- /dev/null +++ b/genesys/edit/TOOLTABLE.S @@ -0,0 +1,5279 @@ +* +* Genesys v1.2.4 +* Tool Table editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Mem.Macs + use 4/QD.Macs + use 4/Resource.Macs + use 4/Text.Macs + use 4/Util.Macs + use 4/Window.Macs + +*---------------------------- + +GSOS EQU $E100A8 + +*---------------------------- + + LDA $04,S + STA L2842 + LDA $06,S + STA L2842+2 + JMPL L23D1 + +L000E PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L0788 + PEA L0788 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L072E + PEA L072E + PEA $800E + _NewWindow2 + PLA + STA L2852 + PLA + STA L2852+2 + LDA L2852+2 + PHA + LDA L2852 + PHA + _SetPort + PEA $0000 + PEA $0000 + LDA L2852+2 + PHA + LDA L2852 + PHA + PEA $0003 + PEA ^L007D + PEA L007D + _NewControl2 + PLA + PLA + PLB + PLD + RTL + +L007D ADRL L010D + ADRL L012D + ADRL L014D + ADRL L016D + ADRL L018D + ADRL L01AD + ADRL L01CD + ADRL L01ED + ADRL L020D + ADRL L022D + ADRL L024D + ADRL L026D + ADRL L028D + ADRL L02AD + ADRL L02CD + ADRL L02ED + ADRL L030D + ADRL L032D + ADRL L034D + ADRL L036D + ADRL L038D + ADRL L03AD + ADRL L03CD + ADRL L03ED + ADRL L040D + ADRL L042D + ADRL L044D + ADRL L046D + ADRL L048D + ADRL L04AD + ADRL L04CD + ADRL L04ED + ADRL L050D + ADRL L052D + ADRL L054D + ADRL $00000000 + +L010D DW $0008 ; pCount + ADRL $00000001 ; ID + DW $0005 ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000001 ; refCon + ADRL L0714 ; titleRef + DW $0000 ; initialValue +L012D DW $0008 ; pCount + ADRL $00000002 ; ID + DW $000F ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000002 ; refCon + ADRL L0705 ; titleRef + DW $0000 ; initialValue +L014D DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0019 ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000003 ; refCon + ADRL L06F7 ; titleRef + DW $0000 ; initialValue +L016D DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0023 ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000004 ; refCon + ADRL L06EA ; titleRef + DW $0000 ; initialValue +L018D DW $0008 ; pCount + ADRL $00000005 ; ID + DW $002D ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000005 ; refCon + ADRL L06DD ; titleRef + DW $0000 ; initialValue +L01AD DW $0008 ; pCount + ADRL $00000006 ; ID + DW $0037 ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000006 ; refCon + ADRL L06CF ; titleRef + DW $0000 ; initialValue +L01CD DW $0008 ; pCount + ADRL $00000007 ; ID + DW $0041 ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000007 ; refCon + ADRL L06C5 ; titleRef + DW $0000 ; initialValue +L01ED DW $0008 ; pCount + ADRL $00000008 ; ID + DW $004B ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000008 ; refCon + ADRL L06BF ; titleRef + DW $0000 ; initialValue +L020D DW $0008 ; pCount + ADRL $00000009 ; ID + DW $0055 ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000009 ; refCon + ADRL L06BB ; titleRef + DW $0000 ; initialValue +L022D DW $0008 ; pCount + ADRL $0000000A ; ID + DW $005F ; rect + DW $000C + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000000A ; refCon + ADRL L06B6 ; titleRef + DW $0000 ; initialValue +L024D DW $0008 ; pCount + ADRL $0000000B ; ID + DW $0005 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000000B ; refCon + ADRL L06A9 ; titleRef + DW $0000 ; initialValue +L026D DW $0008 ; pCount + ADRL $0000000C ; ID + DW $000F ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000000C ; refCon + ADRL L06A4 ; titleRef + DW $0000 ; initialValue +L028D DW $0008 ; pCount + ADRL $0000000E ; ID + DW $0019 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000000E ; refCon + ADRL L0695 ; titleRef + DW $0000 ; initialValue +L02AD DW $0008 ; pCount + ADRL $0000000F ; ID + DW $0023 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000000F ; refCon + ADRL L0688 ; titleRef + DW $0000 ; initialValue +L02CD DW $0008 ; pCount + ADRL $00000010 ; ID + DW $002D ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000010 ; refCon + ADRL L0678 ; titleRef + DW $0000 ; initialValue +L02ED DW $0008 ; pCount + ADRL $00000011 ; ID + DW $0037 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000011 ; refCon + ADRL L066A ; titleRef + DW $0000 ; initialValue +L030D DW $0008 ; pCount + ADRL $00000012 ; ID + DW $0041 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000012 ; refCon + ADRL L065B ; titleRef + DW $0000 ; initialValue +L032D DW $0008 ; pCount + ADRL $00000013 ; ID + DW $004B ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000013 ; refCon + ADRL L064D ; titleRef + DW $0000 ; initialValue +L034D DW $0008 ; pCount + ADRL $00000014 ; ID + DW $0055 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000014 ; refCon + ADRL L0643 ; titleRef + DW $0000 ; initialValue +L036D DW $0008 ; pCount + ADRL $00000015 ; ID + DW $005F ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000015 ; refCon + ADRL L0634 ; titleRef + DW $0000 ; initialValue +L038D DW $0008 ; pCount + ADRL $00000016 ; ID + DW $0005 ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000016 ; refCon + ADRL L0626 ; titleRef + DW $0000 ; initialValue +L03AD DW $0008 ; pCount + ADRL $00000017 ; ID + DW $000F ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000017 ; refCon + ADRL L0618 ; titleRef + DW $0000 ; initialValue +L03CD DW $0008 ; pCount + ADRL $00000019 ; ID + DW $0019 ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000019 ; refCon + ADRL L0607 ; titleRef + DW $0000 ; initialValue +L03ED DW $0008 ; pCount + ADRL $0000001A ; ID + DW $0023 ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000001A ; refCon + ADRL L05F8 ; titleRef + DW $0000 ; initialValue +L040D DW $0008 ; pCount + ADRL $0000001B ; ID + DW $002D ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000001B ; refCon + ADRL L05EB ; titleRef + DW $0000 ; initialValue +L042D DW $0008 ; pCount + ADRL $0000001C ; ID + DW $0037 ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000001C ; refCon + ADRL L05DE ; titleRef + DW $0000 ; initialValue +L044D DW $0008 ; pCount + ADRL $0000001D ; ID + DW $0041 ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000001D ; refCon + ADRL L05DA ; titleRef + DW $0000 ; initialValue +L046D DW $0008 ; pCount + ADRL $0000001E ; ID + DW $004B ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $0000001E ; refCon + ADRL L059C ; titleRef + DW $0000 ; initialValue +L048D DW $0008 ; pCount + ADRL $00000020 ; ID + DW $0055 ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000020 ; refCon + ADRL L0597 ; titleRef + DW $0000 ; initialValue +L04AD DW $0008 ; pCount + ADRL $00000022 ; ID + DW $005F ; rect + DW $0138 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000022 ; refCon + ADRL L058D ; titleRef + DW $0000 ; initialValue +L04CD DW $0008 ; pCount + ADRL $00000320 ; ID + DW $006D ; rect + DW $000E + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000320 ; refCon + ADRL L05C0 ; titleRef + DW $0000 ; initialValue +L04ED DW $0008 ; pCount + ADRL $00000640 ; ID + DW $0077 ; rect + DW $000E + DW $0000 + DW $0000 + ADRL $84000000 ; procRef + DW $0005 ; flag + DW $1000 ; moreFlags + ADRL $00000640 ; refCon + ADRL L05B7 ; titleRef + DW $0001 ; initialValue +L050D DW $0008 ; pCount + ADRL $00001001 ; ID + DW $006D ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00001001 ; refCon + ADRL L057E ; titleRef + DW $0000 ; initialValue +L052D DW $0008 ; pCount + ADRL $00001002 ; ID + DW $0077 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00001002 ; refCon + ADRL L056B ; titleRef + DW $0000 ; initialValue +L054D DW $0007 ; pCount + ADRL $00001000 ; ID + DW $0070 ; rect + DW $015C + DW $007D + DW $01C0 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00001000 ; refCon + ADRL L05AD ; titleRef + +L056B STR 'Hardware shadowing' +L057E STR 'Fastport aware' +L058D STR 'Text edit' +L0597 STR 'MIDI' +L059C STR 'Resource manager' +L05AD STR 'Preferred' +L05B7 STR '640 Mode' +L05C0 STR '320 Mode' + STR 'Resource manager' +L05DA STR 'ACE' +L05DE STR 'List manager' +L05EB STR 'Font manager' +L05F8 STR 'Note sequencer' +L0607 STR 'Note synthesizer' +L0618 STR 'Standard file' +L0626 STR 'Scrap manager' +L0634 STR 'Dialog manager' +L0643 STR 'Line edit' +L064D STR 'Print manager' +L065B STR 'QuickDraw Aux.' +L066A STR 'System loader' +L0678 STR 'Control manager' +L0688 STR 'Menu manager' +L0695 STR 'Window manager' +L06A4 STR 'Text' +L06A9 STR 'Integer math' +L06B6 STR 'SANE' +L06BB STR 'ADB' +L06BF STR 'Sound' +L06C5 STR 'Scheduler' +L06CF STR 'Event manager' +L06DD STR 'Desk manager' +L06EA STR 'QuickDraw II' +L06F7 STR 'Miscellaneous' +L0705 STR 'Memory manager' +L0714 STR 'Tool locator' +L0721 STR ' Tool Table ' + +L072E DW $0050 + DW $C080 ; frame bits + ADRL L0721 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L077E ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL $00000000 ; content defproc + DW $0024 ; content rect + DW $001E + DW $00A6 + DW $01F4 + ADRL $FFFFFFFF ; starting plane + ADRL $00000000 ; storage ptr + DW $0000 + +L077E DW $0000 + DW $0F00 + DW $020F + DW $F0FF + DW $00F0 + +L0788 PHD + PHB + PHK + PLB + PEA $0000 + _GetCurResourceFile + LDA L2848 + PHA + _SetCurResourceFile + PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $000A + PEA $006A + _MoveTo + PEA $01CC + PEA $006A + _LineTo + _SetCurResourceFile + PLB + PLD + RTL + + BRK $69 + RTL + +L07DC TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $18 + PHA + LDA $21 + PHA + LDX $1F + LDA $1D + PHX + PHA + _GetResourceAttr + STA L2BCB + PLA + STA $16 + LDA $16 + AND #$0020 + PHA + LDA $21 + PHA + LDX $1F + LDA $1D + PHX + PHA + _SetResourceAttr + STA L2BCB + LDA #$0001 + PHA + LDA $21 + PHA + LDX $1F + LDA $1D + PHX + PHA + _MarkResourceChange + STA L2BCB + LDA $21 + PHA + LDX $1F + LDA $1D + PHX + PHA + _WriteResource + STA L2BCB + LDA L2BCB + BNE L0859 + BRL L0896 +L0859 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L08E8 + PEA L08E8 + LDA #$0044 + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L0896 + BRL L0896 +L0896 LDA $16 + PHA + LDA $21 + PHA + LDX $1F + LDA $1D + PHX + PHA + _SetResourceAttr + STA L2BCB + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $21 + PHA + LDX $1F + LDA $1D + PHX + PHA + _ReleaseResource + STA L2BCB + PHA + LDA $18 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $18 + LDA $1B + STA $21 + LDA $1A + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L08E8 ASC '52~Tool editor: Resource write error. Re' + ASC 'source possibly damaged.~^#0' +L092C TSC + SEC + SBC #$0028 + TCS + PHD + INC + TCD + LDA #$0000 + STA $16 + LDA #$0000 + STA $18 + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $26 + LDA L2BCB + BNE L0959 + BRL L095C +L0959 BRL L0A27 +L095C LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + _ReleaseResource + STA L2BCB + PHA + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + _GetResourceAttr + STA L2BCB + PLA + STA $24 + LDA L2BCB + BNE L0996 + BRL L0999 +L0996 BRL L0A27 +L0999 LDA $24 + AND #$0020 + PHA + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + _SetResourceAttr + STA L2BCB + LDA L2BCB + BNE L09BA + BRL L09BD +L09BA BRL L0A27 +L09BD PHA + PHA + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + _LoadResource + STA L2BCB + PLA + STA $20 + PLA + STA $22 + LDA L2BCB + BNE L09E0 + BRL L09E3 +L09E0 BRL L0A27 +L09E3 LDX $22 + LDA $20 + PHX + PHA + _HLock + STA L2BCB + LDA L2BCB + BNE L09FB + BRL L09FE +L09FB BRL L0A27 +L09FE LDA $24 + PHA + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + _SetResourceAttr + STA L2BCB + LDA L2BCB + BNE L0A1C + BRL L0A1F +L0A1C BRL L0A27 +L0A1F LDX $22 + LDA $20 + STX $18 + STA $16 +L0A27 PHA + LDA $26 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $26 + LDA $29 + STA $2F + LDA $28 + STA $2E + LDX $18 + LDY $16 + PLD + TSC + CLC + ADC #$002E + TCS + TYA + RTL + +L0A4D TSC + SEC + SBC #$0028 + TCS + PHD + INC + TCD + LDA #$0001 + STA $16 + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + JSL L092C + STX $22 + STA $20 + LDA $20 + ORA $22 + BEQ L0A75 + BRL L0AB5 +L0A75 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L0D79 + PEA L0D79 + LDA #$003B + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L0AB2 + BRL L0AB2 +L0AB2 BRL L0D66 +L0AB5 LDX $22 + LDA $20 + PHX + PHA + _HUnlock + STA L2BCB + LDA #$0054 + LDX #$0000 + TAY + BPL L0ACF + DEX +L0ACF PHX + PHA + LDX $22 + LDA $20 + PHX + PHA + _SetHandleSize + STA L2BCB + LDA L2BCB + BNE L0AE9 + BRL L0B67 +L0AE9 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L0DB4 + PEA L0DB4 + LDA #$003B + PHA + JSL L2A9A + PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $24 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + _ReleaseResource + STA L2BCB + PHA + LDA $24 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $24 + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L0B64 + BRL L0B64 +L0B64 BRL L0D66 +L0B67 LDX $22 + LDA $20 + PHX + PHA + _HLock + STA L2BCB + LDY #$0002 + LDA [$20],Y + TAX + LDA [$20] + STX $08 + STA $06 + LDA #$0000 + STA [$06] + LDY #$0002 + LDA #$C080 + STA [$06],Y + LDY #$0004 + LDA #$0000 + STA [$06],Y + LDY #$0006 + LDA #$0000 + STA [$06],Y + INY + INY + LDA #$0000 + STA [$06],Y + LDY #$000A + LDA #$0012 + STA [$06],Y + LDY #$000C + PHY + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0003 + STA [$06],Y + LDY #$000C + PHY + LDA #$0002 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0004 + STA [$06],Y + LDY #$000C + PHY + LDA #$0003 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0005 + STA [$06],Y + LDY #$000C + PHY + LDA #$0004 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0006 + STA [$06],Y + LDY #$000C + PHY + LDA #$0005 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$000B + STA [$06],Y + LDY #$000C + PHY + LDA #$0006 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$000E + STA [$06],Y + LDY #$000C + PHY + LDA #$0007 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$000F + STA [$06],Y + LDY #$000C + PHY + LDA #$0008 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0010 + STA [$06],Y + LDY #$000C + PHY + LDA #$0009 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0012 + STA [$06],Y + LDY #$000C + PHY + LDA #$000A + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0013 + STA [$06],Y + LDY #$000C + PHY + LDA #$000B + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0014 + STA [$06],Y + LDY #$000C + PHY + LDA #$000C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0015 + STA [$06],Y + LDY #$000C + PHY + LDA #$000D + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0016 + STA [$06],Y + LDY #$000C + PHY + LDA #$000E + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0017 + STA [$06],Y + LDY #$000C + PHY + LDA #$000F + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$001B + STA [$06],Y + LDY #$000C + PHY + LDA #$0010 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$001C + STA [$06],Y + LDY #$000C + PHY + LDA #$0011 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$001E + STA [$06],Y + LDY #$000C + PHY + LDA #$0012 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA #$0022 + STA [$06],Y + LDA #$0001 + STA $26 +L0D2E LDY #$000C + PHY + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + TYA + CLC + ADC #$0002 + TAY + LDA #$0000 + STA [$06],Y + INC $26 + LDA $26 + CMP #$0013 + BEQ L0D54 + BRL L0D2E +L0D54 LDA $2F + PHA + LDX $2D + LDA $2B + PHX + PHA + JSL L07DC + LDA #$0000 + STA $16 +L0D66 LDA $29 + STA $2F + LDA $28 + STA $2E + LDX $16 + PLD + TSC + CLC + ADC #$002E + TCS + TXA + RTL + +L0D79 ASC '52~Tool editor: Resource load error. Ope' + ASC 'ration aborted.~^#0' +L0DB4 ASC '52~Tool editor: Memory resize error. Ope' + ASC 'ration aborted.~^#0' +L0DEF TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$0050 + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L0E80 TSC + SEC + SBC #$0026 + TCS + PHD + INC + TCD + LDA #$0000 + LDX #$0000 + TAY + BPL L0E93 + DEX +L0E93 PHX + PHA + PLA + STA $16 + PLA + STA $18 + PHA + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L0EA7 + DEX +L0EA7 PHX + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0EC7 + DEX +L0EC7 PHX + PHA + _NewHandle + STA L2BCB + PLA + STA L284E + PLA + STA L284E+2 + LDA L2BCB + BNE L0EE3 + BRL L0F23 +L0EE3 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L119F + PEA L119F + LDA #$003C + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L0F20 + BRL L0F20 +L0F20 BRL L1192 +L0F23 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $20 + LDA L2BCB + BNE L0F3D + BRL L0F8F +L0F3D LDX L284E+2 + LDA L284E + PHX + PHA + _DisposeHandle + STA L2BCB + LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L11DB + PEA L11DB + LDA #$0036 + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L0F8C + BRL L0F8C +L0F8C BRL L1192 +L0F8F PHA + PHA + LDA #$FFFF + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + _UniqueResourceID + STA L2BCB + PLA + STA $22 + PLA + STA $24 + LDA L2BCB + BNE L0FBD + BRL L100F +L0FBD LDX L284E+2 + LDA L284E + PHX + PHA + _DisposeHandle + STA L2BCB + LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L1211 + PEA L1211 + LDA #$0037 + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L100C + BRL L100C +L100C BRL L1141 +L100F LDX L284E+2 + LDA L284E + PHX + PHA + LDA #$0000 + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX $24 + LDA $22 + PHX + PHA + _AddResource + STA L2BCB + LDA L2BCB + BNE L1043 + BRL L10A3 +L1043 LDX L284E+2 + LDA L284E + PHX + PHA + _DisposeHandle + STA L2BCB + LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L1248 + PEA L1248 + LDA #$0043 + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L1092 + BRL L1092 +L1092 LDA #$0000 + LDX #$0000 + TAY + BPL L109C + DEX +L109C STX $24 + STA $22 + BRL L1141 +L10A3 LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX $24 + LDA $22 + PHX + PHA + _WriteResource + STA L2BCB + LDA L2BCB + BNE L10CB + BRL L1119 +L10CB LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L128B + PEA L128B + LDA #$003F + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L1108 + BRL L1108 +L1108 LDA #$0000 + LDX #$0000 + TAY + BPL L1112 + DEX +L1112 STX $24 + STA $22 + BRL L1141 +L1119 LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX $24 + LDA $22 + PHX + PHA + _ReleaseResource + STA L2BCB +L1141 PHA + LDA $20 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $20 + LDA #$0000 + LDX #$0000 + TAY + BPL L115C + DEX +L115C CMP $22 + BNE L1162 + CPX $24 +L1162 BNE L1167 + BRL L1192 +L1167 LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L0A4D + TAX + BNE L1187 + BRL L118A +L1187 BRL L1192 +L118A LDX $24 + LDA $22 + STX $18 + STA $16 +L1192 LDX $18 + LDY $16 + PLD + TSC + CLC + ADC #$0026 + TCS + TYA + RTL + +L119F ASC '52~Tool editor: Memory creation error. C' + ASC 'reation aborted.~^#0' +L11DB ASC '52~Tool editor: Depth get error. Creatio' + ASC 'n aborted.~^#0' +L1211 ASC '52~Tool editor: Could not get ID. Creati' + ASC 'on aborted.~^#0' +L1248 ASC '52~Tool editor: Could not add resource e' + ASC 'rror. Creation aborted.~^#0' +L128B ASC '52~Tool editor: Could not write resource' + ASC '. Creation aborted.~^#0' + +L12CA TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$8000 + BNE L12EA + BRL L1929 +L12EA LDA $2B + PHA + LDX $29 + LDA $27 + PHX + PHA + JSL L092C + STX $18 + STA $16 + LDA $16 + ORA $18 + BEQ L1304 + BRL L1344 +L1304 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L1939 + PEA L1939 + LDA #$003F + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L1341 + BRL L1341 +L1341 BRL L1929 +L1344 LDX $18 + LDA $16 + PHX + PHA + _HUnlock + STA L2BCB + LDA #$0084 + LDX #$0000 + TAY + BPL L135E + DEX +L135E PHX + PHA + LDX $18 + LDA $16 + PHX + PHA + _SetHandleSize + STA L2BCB + LDA L2BCB + BNE L1378 + BRL L13F6 +L1378 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $2B + PHA + LDX $29 + LDA $27 + PHX + PHA + _ReleaseResource + STA L2BCB + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $1E + LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L1978 + PEA L1978 + LDA #$0041 + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L13F3 + BRL L13F3 +L13F3 BRL L1929 +L13F6 LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L2BCB + LDA #$0000 + STA $1C + LDA #$0001 + STA $1A +L1410 PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$0000 + CLC + ADC $1A + LDX #$0000 + TAY + BPL L1426 + DEX +L1426 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L1442 + BRL L149C +L1442 LDA $1C + CLC + ADC #$0001 + STA $1C + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDA $1A + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + CLC + ADC #$0002 + PHA + LDA $1A + DEC + ASL + TAX + LDA L2856,X + PLX + STX $00 + PLX + STX $02 + STA [$00] +L149C INC $1A + LDA $1A + CMP #$000D + BEQ L14A8 + BRL L1410 +L14A8 LDA #$000E + STA $1A +L14AD PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$0000 + CLC + ADC $1A + LDX #$0000 + TAY + BPL L14C3 + DEX +L14C3 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L14DF + BRL L1539 +L14DF LDA $1C + CLC + ADC #$0001 + STA $1C + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDA $1A + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + CLC + ADC #$0002 + PHA + LDA $1A + DEC + ASL + TAX + LDA L2856,X + PLX + STX $00 + PLX + STX $02 + STA [$00] +L1539 INC $1A + LDA $1A + CMP #$0018 + BEQ L1545 + BRL L14AD +L1545 LDA #$0019 + STA $1A +L154A PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$0000 + CLC + ADC $1A + LDX #$0000 + TAY + BPL L1560 + DEX +L1560 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L157C + BRL L15D6 +L157C LDA $1C + CLC + ADC #$0001 + STA $1C + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDA $1A + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + CLC + ADC #$0002 + PHA + LDA $1A + DEC + ASL + TAX + LDA L2856,X + PLX + STX $00 + PLX + STX $02 + STA [$00] +L15D6 INC $1A + LDA $1A + CMP #$001F + BEQ L15E2 + BRL L154A +L15E2 PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$0020 + LDX #$0000 + TAY + BPL L15F5 + DEX +L15F5 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L1611 + BRL L166D +L1611 LDA $1C + CLC + ADC #$0001 + STA $1C + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDA #$0020 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + CLC + ADC #$0002 + PHA + LDA #$0020 + DEC + ASL + TAX + LDA L2856,X + PLX + STX $00 + PLX + STX $02 + STA [$00] +L166D PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$0022 + LDX #$0000 + TAY + BPL L1680 + DEX +L1680 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L169C + BRL L16F8 +L169C LDA $1C + CLC + ADC #$0001 + STA $1C + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDA #$0022 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$000C + PHA + LDA $1C + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + CLC + ADC #$0002 + PHA + LDA #$0022 + DEC + ASL + TAX + LDA L2856,X + PLX + STX $00 + PLX + STX $02 + STA [$00] +L16F8 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$000A + STA $00 + STX $02 + LDA $1C + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0002 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$1001 + LDX #$0000 + TAY + BPL L1734 + DEX +L1734 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L1750 + BRL L1765 +L1750 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0002 + STA $00 + STX $02 + LDA #$4000 + STA [$00] +L1765 PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$1002 + LDX #$0000 + TAY + BPL L1778 + DEX +L1778 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L1794 + BRL L17BF +L1794 LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0002 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L17BF PHA + PHA + PHA + LDX $25 + LDA $23 + PHX + PHA + LDA #$0640 + LDX #$0000 + TAY + BPL L17D2 + DEX +L17D2 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _GetCtlValue + STA L2BCB + PLA + BNE L17EE + BRL L1819 +L17EE LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0002 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L1819 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0004 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0006 + PHA + PLA + STA $00 + PLA + STA $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA #$0000 + STA [$00],Y + LDX $18 + LDA $16 + PHX + PHA + _HUnlock + STA L2BCB + LDA $1C + LDX #$0004 + JSL L3154 + CLC + ADC #$000C + LDX #$0000 + TAY + BPL L1874 + DEX +L1874 PHX + PHA + LDX $18 + LDA $16 + PHX + PHA + _SetHandleSize + STA L2BCB + LDA L2BCB + BNE L188E + BRL L190C +L188E PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $2B + PHA + LDX $29 + LDA $27 + PHX + PHA + _ReleaseResource + STA L2BCB + PHA + LDA $1E + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $1E + LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L19B9 + PEA L19B9 + LDA #$003F + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L1909 + BRL L1909 +L1909 BRL L1929 +L190C LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L2BCB + LDA $2B + PHA + LDX $29 + LDA $27 + PHX + PHA + JSL L07DC +L1929 LDA $21 + STA $2B + LDA $20 + STA $2A + PLD + TSC + CLC + ADC #$002A + TCS + RTL + +L1939 ASC '52~Tool editor: Could not load resource.' + ASC ' Changes not saved.~^#0' +L1978 ASC '52~Tool editor: Could not resize resourc' + ASC 'e. Changes not saved.~^#0' +L19B9 ASC '52~Tool editor: Could not resize handle.' + ASC ' Changes not saved.~^#0' +L19F8 TSC + SEC + SBC #$0028 + TCS + PHD + INC + TCD + LDA #$0001 + STA $16 + LDA #$0001 + STA $26 +L1A0B LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0000 + CLC + ADC $26 + LDX #$0000 + TAY + BPL L1A26 + DEX +L1A26 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + INC $26 + LDA $26 + CMP #$000D + BEQ L1A48 + BRL L1A0B +L1A48 LDA #$000E + STA $26 +L1A4D LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0000 + CLC + ADC $26 + LDX #$0000 + TAY + BPL L1A68 + DEX +L1A68 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + INC $26 + LDA $26 + CMP #$0018 + BEQ L1A8A + BRL L1A4D +L1A8A LDA #$0019 + STA $26 +L1A8F LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0000 + CLC + ADC $26 + LDX #$0000 + TAY + BPL L1AAA + DEX +L1AAA PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + INC $26 + LDA $26 + CMP #$001F + BEQ L1ACC + BRL L1A8F +L1ACC LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0020 + LDX #$0000 + TAY + BPL L1AE4 + DEX +L1AE4 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0022 + LDX #$0000 + TAY + BPL L1B12 + DEX +L1B12 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$1001 + LDX #$0000 + TAY + BPL L1B40 + DEX +L1B40 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + LDA #$0000 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$1002 + LDX #$0000 + TAY + BPL L1B6E + DEX +L1B6E PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L092C + STX $22 + STA $20 + LDA $20 + ORA $22 + BEQ L1BBC + BRL L1BFC +L1BBC LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L1DCF + PEA L1DCF + LDA #$003D + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L1BF9 + BRL L1BF9 +L1BF9 BRL L1D68 +L1BFC LDX $22 + LDA $20 + PHX + PHA + _HLock + STA L2BCB + LDY #$0002 + LDA [$20],Y + TAX + LDA [$20] + STX $08 + STA $06 + LDY #$0002 + LDA [$06],Y + AND #$8000 + BNE L1C25 + BRL L1C53 +L1C25 LDA #$0001 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$1002 + LDX #$0000 + TAY + BPL L1C3D + DEX +L1C3D PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB +L1C53 LDY #$0002 + LDA [$06],Y + AND #$4000 + BNE L1C60 + BRL L1C8E +L1C60 LDA #$0001 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$1001 + LDX #$0000 + TAY + BPL L1C78 + DEX +L1C78 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB +L1C8E LDY #$0002 + LDA [$06],Y + AND #$0080 + BNE L1C9B + BRL L1CCC +L1C9B LDA #$0001 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0640 + LDX #$0000 + TAY + BPL L1CB3 + DEX +L1CB3 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + BRL L1CFA +L1CCC LDA #$0001 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDA #$0320 + LDX #$0000 + TAY + BPL L1CE4 + DEX +L1CE4 PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB +L1CFA LDY #$000A + LDA [$06],Y + STA $0A + LDA #$0001 + STA $26 + LDA $0A + SEC + SBC $26 + BVS L1D10 + EOR #$8000 +L1D10 BMI L1D15 + BRL L1D63 +L1D15 LDA #$0001 + PHA + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + LDY #$000C + PHY + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLY + LDA [$06],Y + CLC + ADC #$0000 + LDX #$0000 + TAY + BPL L1D3F + DEX +L1D3F PHX + PHA + _GetCtlHandleFromID + STA L2BCB + _SetCtlValue + STA L2BCB + LDA $0A + CMP $26 + BNE L1D5E + BRL L1D63 +L1D5E INC $26 + BRL L1D15 +L1D63 LDA #$0000 + STA $16 +L1D68 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $24 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L2BCB + PHA + LDA $24 + PHA + _SetResourceFileDepth + STA L2BCB + PLA + STA $24 + LDX $16 + PLD + TSC + CLC + ADC #$0028 + TCS + TXA + RTL + +L1DCF ASC '52~Tool editor: Could not load resource.' + ASC ' Setting aborted.~^#0' +L1E0C TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + LDA #$000C + LDX #$0000 + TAY + BPL L1E21 + DEX +L1E21 PHX + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + CLC + ADC #$4000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L1E45 + DEX +L1E45 PHX + PHA + _NewHandle + STA L2BCB + PLA + STA L284A + PLA + STA L284A+2 + LDA L2BCB + BNE L1E61 + BRL L1EBC +L1E61 LDA L2846 + BEQ L1E69 + BRL L1E7C +L1E69 LDX L2842+2 + LDA L2842 + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L1E7C LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L2054 + PEA L2054 + LDA #$0035 + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L1EB9 + BRL L1EB9 +L1EB9 BRL L204C +L1EBC LDX L284A+2 + LDA L284A + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $08 + STA $06 + PEI $08 + PEI $06 + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDY #$0002 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDY #$0006 + LDA #$0000 + STA [$06],Y + PHA + PHA + _FrontWindow + STA L2BCB + LDY #$0008 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + JSL L000E + LDX L2852+2 + LDA L2852 + PHX + PHA + _SetPort + STA L2BCB + JSL L19F8 + TAX + BNE L1F4D + BRL L1F74 +L1F4D LDX L284A+2 + LDA L284A + PHX + PHA + _DisposeHandle + STA L2BCB + LDX L2852+2 + LDA L2852 + PHX + PHA + _CloseWindow + STA L2BCB + BRL L204C +L1F74 LDA L283E + CLC + ADC #$000A + STA L283E + LDA L2840 + CLC + ADC #$001E + STA L2840 + LDA #$001E + LDX #$0001 + SEC + SBC L283E + BEQ L1F9B + BVS L1F99 + EOR #$8000 +L1F99 BMI L1F9C +L1F9B DEX +L1F9C TXA + PHA + LDA L283E + LDX #$0001 + SEC + SBC #$0050 + BEQ L1FB1 + BVS L1FAF + EOR #$8000 +L1FAF BMI L1FB2 +L1FB1 DEX +L1FB2 TXA + ORA $01,S + PLX + TAX + BNE L1FBC + BRL L1FC2 +L1FBC LDA #$001E + STA L283E +L1FC2 LDA #$001E + LDX #$0001 + SEC + SBC L2840 + BEQ L1FD5 + BVS L1FD3 + EOR #$8000 +L1FD3 BMI L1FD6 +L1FD5 DEX +L1FD6 TXA + PHA + LDA L2840 + LDX #$0001 + SEC + SBC #$00B4 + BEQ L1FEB + BVS L1FE9 + EOR #$8000 +L1FE9 BMI L1FEC +L1FEB DEX +L1FEC TXA + ORA $01,S + PLX + TAX + BNE L1FF6 + BRL L1FFC +L1FF6 LDA #$001E + STA L2840 +L1FFC LDA L2840 + PHA + LDA L283E + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + _MoveWindow + STA L2BCB + LDX L2852+2 + LDA L2852 + PHX + PHA + _ShowWindow + STA L2BCB + LDX L284A+2 + LDA L284A + PHX + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + _SetWRefCon + STA L2BCB + LDA L2846 + CLC + ADC #$0001 + STA L2846 +L204C PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L2054 ASC '52~Tool editor: Memory error. Cannot open window.~^#0' + +L2089 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + _FrontWindow + STA L2BCB + PLA + STA L2852 + PLA + STA L2852+2 + LDX L2852+2 + LDA L2852 + PHX + PHA + _SetPort + STA L2BCB + PHA + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + _GetWRefCon + STA L2BCB + PLA + STA L284A + PLA + STA L284A+2 + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L20DC TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + LDX L2852+2 + LDA L2852 + PHX + PHA + JSL L12CA + LDX L2852+2 + LDA L2852 + PHX + PHA + _CloseWindow + STA L2BCB + PHA + PHA + LDX L284A+2 + LDA L284A + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _FindHandle + STA L2BCB + PLA + STA $16 + PLA + STA $18 + LDA L2BCB + BNE L2158 + BRL L2198 +L2158 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L2213 + PEA L2213 + LDA #$003F + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L2195 + BRL L2195 +L2195 BRL L21ED +L2198 LDX $18 + LDA $16 + PHX + PHA + _DisposeHandle + STA L2BCB + LDA L2BCB + BNE L21B0 + BRL L21ED +L21B0 LDX #^L299A + LDA #L299A + PHX + PHA + LDA #$0100 + PHA + PEA ^L2252 + PEA L2252 + LDA #$003E + PHA + JSL L2A9A + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L299A + LDA #L299A + PHX + PHA + _AlertWindow + STA L2BCB + PLA + BEQ L21ED + BRL L21ED +L21ED LDA L2846 + SEC + SBC #$0001 + STA L2846 + LDA L283E + SEC + SBC #$000A + STA L283E + LDA L2840 + SEC + SBC #$001E + STA L2840 + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L2213 ASC '52~Tool editor: Memory location error. Consider rebooting.~^#0' +L2252 ASC '52~Tool editor: Memory disposal error. Consider rebooting.~^#0' + +L2290 TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + PHA + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _GetWRefCon + STA L2BCB + PLA + STA $16 + PLA + STA $18 + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0001 + BEQ L22D9 + BRL L231C +L22D9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDA [$00] + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L12CA +L231C PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L2324 TSC + SEC + SBC #$0018 + TCS + PHD + INC + TCD + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0028 + LDA [$00],Y + TAX + LDY #$0026 + LDA [$00],Y + PHX + PHA + _LoWord + STA L2BCB + PLA + STA $16 + LDA $16 + BNE L2359 + BRL L2381 +L2359 LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L2381 LDA $16 + CMP #$1000 + BEQ L238B + BRL L23C9 +L238B LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + JSL L0A4D + TAX + BNE L23BC + BRL L23BF +L23BC BRL L23C9 +L23BF JSL L19F8 + TAX + BNE L23C9 + BRL L23C9 +L23C9 PLD + TSC + CLC + ADC #$0018 + TCS + RTL + +*--- Tool Table editor: entry point + +L23D1 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + STA L2848 + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003E + LDA [$00],Y + BRL L27E6 + +*--- Command 0 + +L23FE LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L241E + DEX +L241E LDY #$0001 + CMP $01,S + BEQ L2426 + DEY +L2426 TXA + CMP $03,S + BEQ L242E + LDY #$0000 +L242E PLA + PLA + TYA + BNE L2436 + BRL L24DE +L2436 JSL L0E80 + PHX + PHA + LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L2479 + DEX +L2479 LDY #$0001 + CMP $01,S + BEQ L2481 + DEY +L2481 TXA + CMP $03,S + BEQ L2489 + LDY #$0000 +L2489 PLA + PLA + TYA + BNE L2491 + BRL L24B2 +L2491 LDA L2846 + BEQ L2499 + BRL L24AC +L2499 LDX L2842+2 + LDA L2842 + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L24AC BRL L24E2 + BRL L24DE +L24B2 LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0DEF +L24DE JSL L1E0C +L24E2 BRL L280E + +*--- Command 1 + +L24E5 LDX #^L289A + LDA #L289A + PHX + PHA + LDA #$FF01 + PHA + PEA ^L281E + PEA L281E + LDA #$0016 + PHA + JSL L2A9A + PEA ^L289A + PEA L289A + LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L280E + +*--- Command 2 + +L2525 LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + CMP #$0008 + BEQ L253C + BRL L2543 +L253C JSL L2290 + BRL L259E +L2543 JSL L2089 + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + BRL L256A +L2559 JSL L20DC + BRL L259E +L2560 JSL L2324 + BRL L259E +L2567 BRL L259E +L256A SEC + SBC #$0016 + CMP #$000C + BCC L2576 + LDA #$000C +L2576 ASL + TAX + LDAL L2584,X + BEQ L2580 + PHA + RTS + +L2580 JSL L2C09 + +L2584 DA L2559-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2567-1 + DA L2560-1 + DA L2567-1 + +L259E BRL L280E + +*--- Command 3 + +L25A1 LDA #$0000 + STA L283E + LDA #$0000 + STA L2840 + LDA #$0000 + STA L2846 + LDX #^L289A + LDA #L289A + PHX + PHA + LDA #$FF01 + PHA + PEA ^L2834 + PEA L2834 + LDA #$000A + PHA + JSL L2A9A + PEA ^L289A + PEA L289A + LDA L2842+2 + PHA + LDA L2842 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L2842+2 + LDA L2842 + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$8013 + STA [$00] + LDA #$0001 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0002 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0003 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0004 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0005 + DEC + ASL + TAX + LDA #$0302 + STA L2856,X + LDA #$0006 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0007 + DEC + ASL + TAX + LDA #$0200 + STA L2856,X + LDA #$0008 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0009 + DEC + ASL + TAX + LDA #$0201 + STA L2856,X + LDA #$000A + DEC + ASL + TAX + LDA #$0202 + STA L2856,X + LDA #$000B + DEC + ASL + TAX + LDA #$0200 + STA L2856,X + LDA #$000C + DEC + ASL + TAX + LDA #$0201 + STA L2856,X + LDA #$000D + DEC + ASL + TAX + LDA #$0200 + STA L2856,X + LDA #$000E + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$000F + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0010 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0011 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0012 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0013 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0014 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0015 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0016 + DEC + ASL + TAX + LDA #$0300 + STA L2856,X + LDA #$0017 + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$0018 + DEC + ASL + TAX + LDA #$0000 + STA L2856,X + LDA #$0019 + DEC + ASL + TAX + LDA #$0104 + STA L2856,X + LDA #$001A + DEC + ASL + TAX + LDA #$0104 + STA L2856,X + LDA #$001B + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$001C + DEC + ASL + TAX + LDA #$0301 + STA L2856,X + LDA #$001D + DEC + ASL + TAX + LDA #$0101 + STA L2856,X + LDA #$001E + DEC + ASL + TAX + LDA #$0100 + STA L2856,X + LDA #$001F + DEC + ASL + TAX + LDA #$0000 + STA L2856,X + LDA #$0020 + DEC + ASL + TAX + LDA #$0103 + STA L2856,X + LDA #$0021 + DEC + ASL + TAX + LDA #$0000 + STA L2856,X + LDA #$0022 + DEC + ASL + TAX + LDA #$0101 + STA L2856,X + BRL L280E + +*--- Command 4 + +L279E JSL L2089 + JSL L20DC + BRL L280E + +*--- Command 7 + +L27A9 JSL L2089 + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L2842+2 + LDA L2842 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + LDX L2852+2 ; GRAFPORT + LDA L2852 + PHX + PHA + JSL L12CA + BRL L280E + +*--- Command 5 +*--- Command 6 +*--- Command 7 + +L27E3 BRL L280E + +L27E6 CMP #$0008 + BCC L27EE + LDA #$0008 +L27EE ASL + TAX + LDAL L27FC,X + BEQ L27F8 + PHA + RTS + +L27F8 JSL L2C09 + +L27FC DA L23FE-1 + DA L24E5-1 + DA L2525-1 + DA L25A1-1 + DA L279E-1 + DA L27E3-1 + DA L27E3-1 + DA L27A9-1 + DA L27E3-1 + +L280E LDA #$0000 + STA $16 + LDX $16 + PLD + TSC + CLC + ADC #$0020 + TCS + TXA + RTL + +L281E ASC 'Tool table editor v1.2' +L2834 ASC 'Tool table' +L283E DW $0000 +L2840 DW $0000 +L2842 ADRL $00000000 +L2846 DW $0000 +L2848 DW $0000 +L284A ADRL $00000000 +L284E ADRL $00000000 +L2852 ADRL $00000000 +L2856 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L289A DS $100 +L299A DS $100 + +L2A9A TDC + TAX + TSC + SEC + SBC #$0005 + TCD + DEC + TCS + PHX + LDA $09 + CMP $0F + BNE L2AC7 + LDA $13 + PHA + LDA $11 + PHA + LDA $0D + PHA + LDA $0B + PHA + LDA $09 + BPL L2AC0 + EOR #$FFFF + INC + INC +L2AC0 PHA + JSL L2E77 + BRA L2B3D +L2AC7 LDA $0D + PHA + LDA $0B + PHA + LDA $09 + PHA + JSR L2B4D + PLA + STA $09 + PLA + STA $0B + PLA + STA $0D + LDA $13 + STA $04 + LDA $11 + STA $02 + LDA $0F + BPL L2AF2 + EOR #$FFFF + INC + INC $11 + BNE L2AF2 + INC $13 +L2AF2 CMP $09 + BCC L2AF8 + LDA $09 +L2AF8 TAY + STA $00 + BEQ L2B21 + LSR + BCC L2B17 + SEP #$20 + LDA [$0B] + STA [$11] + REP #$20 + INC $0B + BNE L2B0E + INC $0D +L2B0E INC $11 + BNE L2B14 + INC $13 +L2B14 DEY + BEQ L2B21 +L2B17 DEY + DEY +L2B19 LDA [$0B],Y + STA [$11],Y + DEY + DEY + BPL L2B19 +L2B21 LDY $0F + BPL L2B2F + SEP #$20 + LDA $00 + STA [$02] + REP #$20 + BRA L2B3D +L2B2F LDY $00 + CPY $0F + BCS L2B3D + SEP #$20 + LDA #$00 + STA [$02],Y + REP #$20 +L2B3D LDA $07 + STA $13 + LDA $06 + STA $12 + CLC + TDC + ADC #$0011 + PLD + TCS + RTL + +L2B4D PHD + TSC + TCD + LDA $05 + BEQ L2B9D + BPL L2B8A + INC + BNE L2B7B + LDA $09 + AND #$00FF + BNE L2B64 + STZ $05 + BRA L2B9D +L2B64 LDA #$0001 + STA $05 + LDA $09 + STAL L2B9F + LDA #L2B9F + STA $07 + LDA #^L2B9F + STA $09 + BRA L2B9D +L2B7B LDA [$07] + AND #$00FF + STA $05 + INC $07 + BNE L2B88 + INC $09 +L2B88 BRA L2B9D +L2B8A LDX $05 + LDY #$0000 + SEP #$20 +L2B91 LDA [$07],Y + BEQ L2B99 + INY + DEX + BNE L2B91 +L2B99 STY $05 + REP #$20 +L2B9D PLD + RTS + +L2B9F DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + ADRL L2BAD +L2BAD DB $00 + DB $00 + ADRL L2BB3 +L2BB3 DB $00 + DB $00 + DB $00 + DB $00 + ADRL L2BBB +L2BBB DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L2BCB DB $00 + DB $00 +L2BCD DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L2BD5 DB $00 + DB $00 +L2BD7 DB $00 + DB $00 +L2BD9 DB $00 +L2BDA DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + +L2BE7 PHA + JSL L2E62 + LDAL L2BCD + PHA + _DisposeAll + PLA + JSL GSOS + DW $0029 ; Quit + ADRL L2C03 + +L2C03 ADRL L2C07 ; path name +L2C07 DW $0000 ; flags + +L2C09 PEA $0008 + JSL L2C16 + LDA #$FFFF + JMP L2BE7 + +L2C16 LDA $04,S + PHA + JSL L2D39 + JMPL L2C21 + +L2C21 PHK + PLB + LDA L2BD9 + BNE L2C2B + BRL L2D33 +L2C2B BRA L2C45 +L2C2D STR 'Error occurred at line ' +L2C45 PEA ^L2C2D + PEA L2C2D + _ErrWriteString + LDA L2BD9 + PHA + PEA $0001 + PEA $0000 + PEA $0001 + JSL L31B3 + BRA L2C74 +L2C65 STR ' in procedure ' +L2C74 PEA ^L2C65 + PEA L2C65 + _ErrWriteString + PEA ^L2BDA + PEA L2BDA + PEA $0000 + PEA $0001 + PEA $0001 + JSL L31E3 + JSL L2EC1 + LDA L2BD5 + ORA L2BD7 + BNE L2CA3 + BRL L2D33 +L2CA3 PEA $000D + _ErrWriteChar + PEA $000A + _ErrWriteChar + BRA L2CC6 +L2CB9 STR ' Line Name' +L2CC6 PEA ^L2CB9 + PEA L2CB9 + _ErrWriteLine + BRA L2CE2 +L2CD5 STR ' ---- ----' +L2CE2 PEA ^L2CD5 + PEA L2CD5 + _ErrWriteLine +L2CEF LDA L2BD5 + ORA L2BD7 + BEQ L2D33 + LDA L2BD9 + PHA + PEA $0006 + PEA $0000 + PEA $0001 + JSL L31B3 + BRA L2D0D +L2D0A STR ' ' +L2D0D PEA ^L2D0A + PEA L2D0A + _ErrWriteString + PEA ^L2BDA + PEA L2BDA + PEA $0000 + PEA $0001 + PEA $0001 + JSL L31E3 + JSL L2EC1 + BRA L2CEF +L2D33 LDA #$FFFF + BRL L2BE7 + +L2D39 PHD + PEA ^L2D63 + PEA L2D63 + TSC + TCD + LDX $0A +L2D44 DEX + BEQ L2D53 + SEC + LDA [$01] + AND #$00FF + ADC $01 + STA $01 + BRA L2D44 +L2D53 _ErrWriteLine + PLD + LDA $02,S + STA $04,S + PLA + STA $01,S + RTL + +L2D63 STR 'Subrange exceeded' + STR 'File is not open' + STR 'Read while at end of file' + STR 'I/O error' + STR 'Out of memory' + STR 'EOLN while at end of file' + STR 'Set overflow' + STR 'Jump to undefined case statement label' + STR 'Integer math error' + STR 'Real math error' + STR 'Underflow' + STR 'Overflow' + STR 'Divide by zero' + STR 'Inexact' + STR 'Stack overflow' +L2E62 PHB + PHK + PLB + STZ L2EF2 + STZ L2EF4 + LDX #$0026 +L2E6E STZ L2EF6,X + DEX + DEX + BPL L2E6E + PLB + RTL + +L2E77 TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + LDA $03 + LSR + BCC L2E9D + SEP #$20 + LDA [$05] + STA [$09] + REP #$20 + INC $05 + BNE L2E95 + INC $07 +L2E95 INC $09 + BNE L2E9B + INC $0B +L2E9B DEC $03 +L2E9D LDY $03 + BEQ L2EB1 + DEY + DEY + BEQ L2EAD +L2EA5 LDA [$05],Y + STA [$09],Y + DEY + DEY + BNE L2EA5 +L2EAD LDA [$05] + STA [$09] +L2EB1 LDA $01 + STA $0B + LDA $00 + STA $0A + CLC + TDC + ADC #$0009 + PLD + TCS + RTL + +L2EC1 PHB + PHK + PLB + LDA L2BD7 + STA $02 + LDA L2BD5 + STA $00 + LDY #$0010 +L2ED1 LDA [$00],Y + STA L2BD5,Y + DEY + DEY + BPL L2ED1 + LDA $02 + PHA + LDA $00 + PHA + JSL L2F1E + PLB + RTL + + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L2EF2 DB $00 + DB $00 +L2EF4 DB $00 + DB $00 +L2EF6 DB $00 + DB $00 +L2EF8 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L2F1E TSC + PHD + TCD + LDY $04 + LDX $06 + SEC + TYA + SBC #$0002 + STA $04 + BCS L2F30 + DEC $06 +L2F30 LDA [$04] + BNE L2F3B + TYA + JSL L3039 + BRA L2F40 +L2F3B TYA + JSL L2F4C +L2F40 LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L2F4C PHA + PHA + PHA + SEC + SBC #$0004 + BCS L2F56 + DEX +L2F56 PHX + PHA + TSC + PHD + TCD + LDA [$01] + BPL L2F62 + BRL L3031 +L2F62 LDA [$01] + ORA #$8000 + STA [$01] + LDY #$0002 + LDA [$01],Y + STA $09 + TAY + LDA $01 + LDX $03 + JSL L30AD +L2F79 LDA $09 + CMP #$1000 + BCC L2F83 + BRL L301F +L2F83 LDA [$01] + AND $09 + BEQ L2FDA + SEC + LDA $01 + SBC $09 + STA $05 + LDA $03 + SBC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BEQ L2FA3 + BRL L3031 +L2FA3 LDA [$05] + BMI L2FAA + BRL L3031 +L2FAA LDY $09 + LDX $03 + LDA $01 + JSL L30D8 + LDY $09 + LDX $07 + LDA $05 + JSL L30D8 + LDA $05 + STA $01 + LDA $07 + STA $03 + ASL $09 + LDA $09 + LDY #$0002 + STA [$01],Y + TAY + LDA $01 + LDX $03 + JSL L30AD + BRA L2F79 +L2FDA CLC + LDA $01 + ADC $09 + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BNE L3031 + LDA [$05] + BPL L3031 + LDY $09 + LDX $03 + LDA $01 + JSL L30D8 + LDY $09 + LDX $07 + LDA $05 + JSL L30D8 + ASL $09 + LDY #$0002 + LDA $09 + STA [$01],Y + LDY $09 + LDA $01 + LDX $03 + JSL L30AD + BRL L2F79 +L301F LDY $09 + LDA $01 + LDX $03 + JSL L30D8 + LDA $01 + LDX $03 + JSL L3039 +L3031 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L3039 PHA + PHA + SEC + SBC #$000E + BCS L3042 + DEX +L3042 PHX + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$01],Y + ORA [$01] + BNE L3063 + LDY #$0004 + LDA [$01],Y + STAL L2EF2 + INY + INY + LDA [$01],Y + STAL L2EF4 + BRA L3078 +L3063 LDA [$01] + STA $05 + LDA [$01],Y + STA $07 + LDY #$0004 + LDA [$01],Y + STA [$05],Y + INY + INY + LDA [$01],Y + STA [$05],Y +L3078 LDY #$0004 + LDA [$01],Y + TAX + INY + INY + ORA [$01],Y + BEQ L3095 + LDA [$01],Y + STA $07 + STX $05 + LDY #$0002 + LDA [$01] + STA [$05] + LDA [$01],Y + STA [$05],Y +L3095 LDY #$000A + LDA [$01],Y + PHA + DEY + DEY + LDA [$01],Y + PHA + _DisposeHandle + PLD + PLA + PLA + PLA + PLA + RTL + +L30AD PHX + PHA + TSC + PHD + TCD + TYA + JSL L3143 + LDY #$0004 + LDAL L2EF6,X + STA [$01],Y + INY + INY + LDAL L2EF8,X + STA [$01],Y + LDA $01 + STAL L2EF6,X + LDA $03 + STAL L2EF8,X + PLD + PLA + PLA + RTL + +L30D8 PHX + PHA + LDA #$0000 + PHA + PHA + PHA + PHA + TSC + PHD + TCD + TYA + JSL L3143 + LDAL L2EF6,X + STA $05 + LDAL L2EF8,X + STA $07 +L30F5 LDA $05 + CMP $09 + BNE L3101 + LDA $07 + CMP $0B + BEQ L3118 +L3101 LDA $05 + STA $01 + LDA $07 + STA $03 + LDY #$0004 + LDA [$01],Y + STA $05 + INY + INY + LDA [$01],Y + STA $07 + BRA L30F5 +L3118 LDY #$0004 + LDA $01 + ORA $02 + BNE L3131 + LDA [$05],Y + STAL L2EF6,X + INY + INY + LDA [$05],Y + STAL L2EF8,X + BRA L313B +L3131 LDA [$05],Y + STA [$01],Y + INY + INY + LDA [$05],Y + STA [$01],Y +L313B PLD + TSC + CLC + ADC #$000C + TCS + RTL + +L3143 LDX #$0000 + DEC + LSR + LSR + LSR + BEQ L3153 +L314C INX + INX + INX + INX + LSR + BNE L314C +L3153 RTL + +L3154 TAY + PHD + TSC + SEC + SBC #$0007 + TCD + DEC + TCS + TYA + LDY #$0000 + BIT #$8000 + BEQ L316C + EOR #$FFFF + INC + INY +L316C STA $02 + TXA + BPL L3176 + DEY + EOR #$FFFF + INC +L3176 STA $04 + STY $06 + LDY #$0010 + LDA #$0000 +L3180 LSR $02 + BCC L3187 + CLC + ADC $04 +L3187 ROR + ROR $00 + DEY + BNE L3180 + TAX + BNE L31A8 + LDA $00 + BMI L31A8 + LDY $06 + BEQ L319C + EOR #$FFFF + INC +L319C TAY + TDC + CLC + ADC #$0007 + TCS + PLA + TCD + TYA + CLV + RTL + +L31A8 TDC + CLC + ADC #$0007 + TCS + PLA + TCD + SEP #$40 + RTL + +L31B3 TSC + PHD + TCD + PEA ^L323F + PEA L323F + LDA $0A + JSL L3228 + PEA ^L323F + PEA L323F + LDA $08 + PHA + LDA $06 + PHA + LDA $04 + PHA + JSL L31E3 + LDA $02 + STA $0A + LDA $00 + STA $08 + PLD + PLA + PLA + PLA + PLA + RTL + +L31E3 TSC + PHD + TCD + INC $0A + BNE L31EC + INC $0C +L31EC LDA [$0A] + AND #$00FF + SEC + SBC $08 + BPL L3200 + EOR #$FFFF + INC + LDY $04 + JSL L32DE +L3200 LDA $0C + PHA + LDA $0A + PHA + LDA $06 + EOR #$0001 + ASL + ORA $04 + XBA + CLC + ADC #$1A0C + TAX + JSL $E10000 + LDA $02 + STA $0C + LDA $00 + STA $0A + PLD + CLC + TSC + ADC #$000A + TCS + RTL + +L3228 PHA + PEA ^L3269 + PEA L3269 + PEA $0028 + PEA $0001 + _Int2Dec + JMP L3291 + +L323F DB $28 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L3269 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L3291 PHD + TSC + TCD + SEP #$20 + LDX #$0000 + LDA #$20 +L329B CMPL L3269,X + BNE L32A4 + INX + BRA L329B +L32A4 REP #$20 + TXA + SEC + SBC #$0028 + EOR #$FFFF + INC + SEP #$20 + CMP [$06] + BEQ L32B7 + BCS L32CE +L32B7 LDY #$0001 + STA [$06],Y +L32BC LDAL L3269,X + INY + STA [$06],Y + INX + CPX #$0028 + BCC L32BC + REP #$20 + CLV + BRA L32D2 +L32CE REP #$20 + SEP #$40 +L32D2 LDA $02,S + STA $06,S + LDA $04,S + STA $08,S + PLD + PLA + PLA + RTL + +L32DE PHA + TYA + XBA + CLC + ADC #$180C + PHA + PHD + TSC + TCD +L32E9 PEA $0020 + LDX $03 + JSL $E10000 + DEC $05 + BNE L32E9 + PLD + PLA + PLA + RTL diff --git a/genesys/genesys_2020.po b/genesys/genesys_2020.po new file mode 100644 index 0000000..56e6c7a Binary files /dev/null and b/genesys/genesys_2020.po differ