diff --git a/genesys/disks/genesys_v135_program.2mg b/genesys/disks/genesys_v135_program.2mg index 884c57e..d092bc9 100644 Binary files a/genesys/disks/genesys_v135_program.2mg and b/genesys/disks/genesys_v135_program.2mg differ diff --git a/genesys/edit/MAKE.WINDOW.S b/genesys/edit/MAKE.WINDOW.S new file mode 100644 index 0000000..5141695 --- /dev/null +++ b/genesys/edit/MAKE.WINDOW.S @@ -0,0 +1,29 @@ +* +* Genesys v1.2.4 +* Make window +* + +* Expansion linker file + + DSK Window + TYP $BC + +* Assemble files + + ASM WINDOW.S + KND $0000 + SNA Window + + ASM WINSETUP.S + KND $0000 + SNA WindowStup + + ASM WINCOLOR.S + KND $0000 + SNA ColorStuph + + ASM WINCONTROL.S + KND $0000 + SNA ControlStu + + diff --git a/genesys/edit/WINCOLOR.S b/genesys/edit/WINCOLOR.S new file mode 100644 index 0000000..a022180 --- /dev/null +++ b/genesys/edit/WINCOLOR.S @@ -0,0 +1,1515 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Util.Macs + use 4/Window.Macs + +*---------------------------- + + EXT L014B1E + EXT L014E87 + EXT L014B68 + EXT L014ADD + EXT L014A35 + EXT L0105BB + EXT L0104A0 + EXT L0104D5 + EXT L01050A + EXT L01090E + EXT L01485A + EXT L01497D + EXT L0153AF + +*---------------------------- + +L030000 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $16 + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA #$0002 + PHA + LDA #$0001 + PHA + _SetPenSize + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L0300B1 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $16 + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA #$0002 + PHA + LDA #$0001 + PHA + _SetPenSize + STA L014E87 + LDA #$000E + STA $24 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L030171 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$000D + STA $24 + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L0301E3 + DEY +L0301E3 TXA + CMP $03,S + BEQ L0301EB + LDY #$0000 +L0301EB PLA + PLA + TYA + BNE L0301F3 + BRL L0301FD +L0301F3 LDA $1A + AND #$000F + STA $48 + BRL L03020C +L0301FD LDA $18 + AND #$0F00 + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + STA $48 +L03020C LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _FillRect + STA L014E87 + _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L030255 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L030294 + DEY +L030294 TXA + CMP $03,S + BEQ L03029C + LDY #$0000 +L03029C PLA + PLA + TYA + BEQ L0302A4 + BRL L0302A7 +L0302A4 BRL L0303AB +L0302A7 LDA $1A + AND #$0200 + BEQ L0302B1 + BRL L0302B4 +L0302B1 BRL L0303AB +L0302B4 PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0006 + PHA + LDA #$0004 + PHA + _InsetRect + STA L014E87 + LDA $1A + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA $22 + PHA + LDA $20 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + PHA + _LineTo + STA L014E87 + LDA $22 + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _LineTo + STA L014E87 + LDA $22 + PHA + LDA $20 + CLC + ADC #$0004 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + CLC + ADC #$0004 + PHA + _LineTo + STA L014E87 + LDA $22 + PHA + LDA $20 + CLC + ADC #$0006 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + CLC + ADC #$0006 + PHA + _LineTo + STA L014E87 +L0303AB _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L0303C5 ENT + TSC + SEC + SBC #$004C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $51 + PEI $4F + PEA $000A + JSL L014B1E + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L030404 + DEY +L030404 TXA + CMP $03,S + BEQ L03040C + LDY #$0000 +L03040C PLA + PLA + TYA + BEQ L030414 + BRL L030417 +L030414 BRL L0304AB +L030417 LDA $1A + AND #$0100 + BEQ L030421 + BRL L030424 +L030421 BRL L0304AB +L030424 PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$000D + STA $24 + LDA $1A + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $1A + AND #$000F + STA $4A + LDA $48 + PHA + LDA $4A + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _FillRect + STA L014E87 +L0304AB _PenNormal + STA L014E87 + LDA $4D + STA $51 + LDA $4C + STA $50 + PLD + TSC + CLC + ADC #$0050 + TCS + RTL + +L0304C5 ENT + TSC + SEC + SBC #$002C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $37 + PEI $35 + PEA $000A + JSL L014B1E + LDA $33 + AND #$8000 + BEQ L0304EC + BRL L0304EF +L0304EC BRL L0308B8 +L0304EF PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L03053F + DEY +L03053F TXA + CMP $03,S + BEQ L030547 + LDY #$0000 +L030547 PLA + PLA + TYA + BNE L03054F + BRL L030576 +L03054F LDA $18 + PHA + JSL L0104A0 + PHA + _SetForeColor + STA L014E87 + LDA $1A + PHA + JSL L0104A0 + PHA + _SetBackColor + STA L014E87 + BRL L03059A +L030576 LDA $18 + PHA + JSL L0104D5 + PHA + _SetForeColor + STA L014E87 + LDA $18 + PHA + JSL L01050A + PHA + _SetBackColor + STA L014E87 +L03059A PHA + PHA + _GetFont + STA L014E87 + PLA + STA $28 + PLA + STA $2A + PHA + PHA + LDA #$0001 + EOR #$FFFF + INC + LDX #$0000 + TAY + BPL L0305BC + DEX +L0305BC PHX + PHA + _SetWindowIcons + STA L014E87 + _SetFont + STA L014E87 + LDA $33 + AND #$4000 + BNE L0305DC + BRL L030602 +L0305DC LDA $22 + CLC + ADC #$000A + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA #$0000 + PHA + _DrawChar + STA L014E87 +L030602 LDA $33 + AND #$0100 + BNE L03060C + BRL L030632 +L03060C LDA $26 + SEC + SBC #$001E + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA #$0002 + PHA + _DrawChar + STA L014E87 +L030632 LDX $2A + LDA $28 + PHX + PHA + _SetFont + STA L014E87 + PHA + LDX $31 + LDA $2F + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L03065D + INX +L03065D TXA + PHA + PHA + LDX $31 + LDA $2F + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L03067A + INX +L03067A TXA + AND $01,S + PLX + TAX + BNE L030684 + BRL L030687 +L030684 BRL L0308B8 +L030687 LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + PHA + PHA + LDA #$8006 + PHA + LDX $31 + LDA $2F + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDA L014E87 + BNE L0306C8 + BRL L0306CB +L0306C8 BRL L0308B8 +L0306CB LDA $33 + AND #$4000 + BNE L0306D5 + BRL L0306E0 +L0306D5 LDA $22 + CLC + ADC #$0020 + STA $22 + BRL L0306E8 +L0306E0 LDA $22 + CLC + ADC #$000A + STA $22 +L0306E8 LDA $33 + AND #$0100 + BNE L0306F2 + BRL L0306FD +L0306F2 LDA $26 + SEC + SBC #$0020 + STA $26 + BRL L030705 +L0306FD LDA $26 + SEC + SBC #$000A + STA $26 +L030705 LDA $22 + SEC + SBC $26 + BEQ L030713 + BVS L030711 + EOR #$8000 +L030711 BMI L030716 +L030713 BRL L030719 +L030716 BRL L0308B8 +L030719 LDA $26 + SEC + SBC $22 + PHA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + SEC + SBC $01,S + PLY + TAY + BEQ L030741 + BVS L03073F + EOR #$8000 +L03073F BMI L030744 +L030741 BRL L0307FF +L030744 LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + PEA ^L030900 + PEA L030900 + LDA #$0003 + PHA + LDA #$0002 + PHA + JSL L01485A + JSL L014B68 + JSL L014A35 +L030776 LDA $26 + SEC + SBC $22 + PHA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + LDX #$0001 + SEC + SBC $01,S + PLY + TAY + BEQ L0307A1 + BVS L03079F + EOR #$8000 +L03079F BMI L0307A2 +L0307A1 DEX +L0307A2 TXA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + LDX #$0001 + SEC + SBC #$0004 + BEQ L0307C4 + BVS L0307C2 + EOR #$8000 +L0307C2 BMI L0307C5 +L0307C4 DEX +L0307C5 TXA + AND $01,S + PLX + TAX + BNE L0307CF + BRL L0307FF +L0307CF LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + LDA #$0004 + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + SEC + SBC $01,S + PLX + PHA + LDA #$0001 + PHA + JSL L01497D + BRL L030776 +L0307FF LDA $26 + SEC + SBC $22 + PHA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + SEC + SBC $01,S + PLY + TAY + BEQ L030827 + BVS L030825 + EOR #$8000 +L030825 BMI L03082A +L030827 BRL L03082D +L03082A BRL L0308B8 +L03082D LDA $33 + AND #$4000 + BNE L030837 + BRL L030842 +L030837 LDA $22 + SEC + SBC #$0020 + STA $22 + BRL L03084A +L030842 LDA $22 + SEC + SBC #$000A + STA $22 +L03084A LDA $33 + AND #$0100 + BNE L030854 + BRL L03085F +L030854 LDA $26 + CLC + ADC #$0020 + STA $26 + BRL L030867 +L03085F LDA $26 + CLC + ADC #$000A + STA $26 +L030867 PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + LDX #$0002 + JSL L0153AF + PHA + LDA $26 + SEC + SBC $22 + LDX #$0002 + JSL L0153AF + SEC + SBC $01,S + PLX + CLC + ADC #$0002 + PHA + LDA #$000B + PHA + _MoveTo + STA L014E87 + LDX #^L01090E + LDA #L01090E + PHX + PHA + _DrawString + STA L014E87 +L0308B8 LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDX $31 + LDA $2F + PHX + PHA + _ReleaseResource + STA L014E87 + LDA #$0000 + PHA + _SetForeColor + STA L014E87 + LDA #$FFFF + PHA + _SetBackColor + STA L014E87 + LDA $2D + STA $37 + LDA $2C + STA $36 + PLD + TSC + CLC + ADC #$0036 + TCS + RTL + +L030900 ROL $2E2E +L030903 ENT + TSC + SEC + SBC #$004C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $55 + PEI $53 + PEA $000A + JSL L014B1E + LDA $4F + AND #$0010 + BEQ L03092A + BRL L03092D +L03092A BRL L030A51 +L03092D PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $4F + AND #$8000 + BNE L030965 + BRL L030980 +L030965 PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0000 + PHA + LDA #$000C + PHA + _OffsetRect + STA L014E87 +L030980 LDA $20 + CLC + ADC $51 + STA $24 + LDA $16 + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA $22 + PHA + LDA #$0001 + PHA + LDA $20 + CLC + ADC $51 + SEC + SBC $01,S + PLX + PHA + _MoveTo + STA L014E87 + LDA $26 + SEC + SBC #$0001 + PHA + LDA #$0001 + PHA + LDA $20 + CLC + ADC $51 + SEC + SBC $01,S + PLX + PHA + _LineTo + STA L014E87 + _PenNormal + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $1E + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _FillRect + STA L014E87 +L030A51 LDA $4D + STA $55 + LDA $4C + STA $54 + PLD + TSC + CLC + ADC #$0054 + TCS + RTL + +L030A61 ENT + TSC + SEC + SBC #$002C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $31 + PEI $2F + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA $26 + SEC + SBC #$001A + PHA + LDA $24 + SEC + SBC #$000D + PHA + LDA $26 + PHA + LDA $24 + PHA + _SetRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA $16 + PHA + JSL L0104D5 + PHA + LDA $1C + PHA + JSL L0104D5 + PHA + _SpecialRect + STA L014E87 + LDA #$0004 + PHA + _SetTextMode + STA L014E87 + PHA + PHA + _GetFont + STA L014E87 + PLA + STA $28 + PLA + STA $2A + PHA + PHA + LDA #$0001 + EOR #$FFFF + INC + LDX #$0000 + TAY + BPL L030B26 + DEX +L030B26 PHX + PHA + _SetCtlIcons + STA L014E87 + _SetFont + STA L014E87 + LDA $22 + CLC + ADC #$0004 + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA #$0010 + PHA + _DrawChar + STA L014E87 + LDX $2A + LDA $28 + PHX + PHA + _SetFont + STA L014E87 + LDA #$0000 + PHA + _SetTextMode + STA L014E87 + LDA $2D + STA $31 + LDA $2C + STA $30 + PLD + TSC + CLC + ADC #$0030 + TCS + RTL + +L030B90 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA $1C + AND #$F000 + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA #$0005 + PHA + LDA #$0002 + PHA + _SetPenSize + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0005 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$0005 + PHA + LDA #$0002 + PHA + _SetPenSize + STA L014E87 + LDA $1E + AND #$F000 + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + diff --git a/genesys/edit/WINCONTROL.S b/genesys/edit/WINCONTROL.S new file mode 100644 index 0000000..13ea0e6 --- /dev/null +++ b/genesys/edit/WINCONTROL.S @@ -0,0 +1,6743 @@ +* +* Genesys v1.2.4 +* Window 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/Util.Macs + use 4/Window.Macs + +*---------------------------- + + EXT L014B1E + EXT L014E87 + EXT L020000 + EXT L020E29 + EXT L0206AF + EXT L0103D4 + EXT L0208DC + EXT L0153AF + EXT L0146C2 + EXT L0146C0 + EXT L0146B4 + EXT L0146B8 + EXT L0146B6 + EXT L0146BE + EXT L0146BA + EXT L0146BC + EXT L0153FB + +*---------------------------- + +L040000 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX $1B + LDA $19 + STX L0146C2 + STA L0146C0 + LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L040023 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L04006F + BRL L040082 +L04006F LDA $16 + SEC + SBC #$0006 + STA $16 + LDA $18 + SEC + SBC #$000E + STA $18 + BRL L040108 +L040082 LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0400A5 + BRL L0400AD +L0400A5 LDA $16 + SEC + SBC #$000C + STA $16 +L0400AD LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0400D0 + BRL L0400F8 +L0400D0 LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA $16 + SEC + SBC $01,S + PLX + CLC + ADC #$0001 + STA $16 +L0400F8 LDA $16 + SEC + SBC #$0002 + STA $16 + LDA $18 + SEC + SBC #$0004 + STA $18 +L040108 LDA $18 + PHA + LDA $16 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L040127 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + LDA L0146BE + SEC + SBC L0146BA + PHA + LDA L0146BC + SEC + SBC L0146B8 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L040163 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L0401AF + BRL L0401CD +L0401AF PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L04025E +L0401CD PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L04020B + BRL L040213 +L04020B LDA $16 + CLC + ADC #$000D + STA $16 +L040213 LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L040236 + BRL L04025E +L040236 LDA #$0001 + PHA + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L04025E LDA $18 + PHA + LDA $16 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L04027D TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L0402C9 + BRL L0402E7 +L0402C9 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L040378 +L0402E7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L040325 + BRL L04032D +L040325 LDA $16 + CLC + ADC #$000D + STA $16 +L04032D LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L040350 + BRL L040378 +L040350 LDA #$0001 + PHA + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L040378 LDA $1C + SEC + SBC $18 + STA $18 + LDA $1A + SEC + SBC $16 + STA $16 + LDA $18 + PHA + LDA $16 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L0403A5 ENT + TSC + SEC + SBC #$004C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $59 + PEI $57 + PEA $0004 + JSL L014B1E + LDX $51 + LDA $4F + STX L0146B6 + STA L0146B4 + PHA + PHA + _GetPort + PLA + STA $46 + PLA + STA $48 + LDx #$0000 +* TAX +* SEP #$20 + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0001 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0002 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0003 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0004 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0005 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0006 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0007 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0008 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0009 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$000B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$000E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0010 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0011 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0012 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0013 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0014 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0015 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0016 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0017 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0018 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0019 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$001B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$001E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X + REP #$20 + PEA $0000 + TDC + CLC + ADC #$003A + PHA +* LDA #$7D00 +* EOR #$FFFF ; 82FF +* INC ; 8300 +* PHA + pea $8300 +* LDA #$7D00 +* EOR #$FFFF +* INC +* PHA + pea $8300 + pea $7D00 + pea $7D00 + _SetRect + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _GetPortRect + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _LocalToGlobal + LDX #^L0146BC + LDA #L0146BC + PHX + PHA + _LocalToGlobal + PHA + PHA + _GetWMgrPort + _SetPort + PHA + _GetArcRot + PLA + STA $4A + ORA #$8000 + PHA + _SetArcRot + PHA + PHA + LDX #^L040163 + LDA #L040163 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + pei $18 + pei $16 + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + pea $0220 + _DragRect + PLA + STA $42 + PLA + STA $44 + pei $4A + _SetArcRot + pei $48 + pei $46 + _SetPort + LDA L0146BA + PHA + LDA L0146B8 + PHA + pei $55 + pei $53 + _MoveWindow + LDA $4D + STA $59 + LDA $4C + STA $58 + PLD + TSC + CLC + ADC #$0058 + TCS + RTL + +L04067F ENT + TSC + SEC + SBC #$0054 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $61 + PEI $5F + PEA $0004 + JSL L014B1E + LDX $59 + LDA $57 + STX L0146B6 + STA L0146B4 + PHA + PHA + _GetPort +* STA L014E87 + PLA + STA $4E + PLA + STA $50 + LDx #$0000 +* TAX + SEP #$20 + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0001 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0002 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0003 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0004 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0005 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0006 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0007 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0008 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0009 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$000B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$000E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0010 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0011 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0012 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0013 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0014 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0015 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0016 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0017 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0018 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0019 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$001B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$001E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X + REP #$20 + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _GetPortRect + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _LocalToGlobal + LDX #^L0146BC + LDA #L0146BC + PHX + PHA + _LocalToGlobal + PEA $0000 + TDC + CLC + ADC #$003A + PHA +* LDA #$7530 +* EOR #$FFFF ; 8ACF +* INC ; 8AD0 +* PHA + pea $8ad0 +* LDA #$7530 +* EOR #$FFFF +* INC +* PHA + pea $8ad0 + pea $7530 + pea $7530 + _SetRect + PHA + PHA + _GetWMgrPort + _SetPort + PHA + _GetArcRot + PLA + STA $52 + ORA #$8000 + PHA + _SetArcRot + PHA + PHA + LDX #^L04027D + LDA #L04027D + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + pei $18 + pei $16 + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + pea $0234 + _DragRect + PLA + STA $4A + PLA + STA $4C + pei $52 + _SetArcRot + pei $50 + pei $4E + _SetPort + LDA L0146BE + SEC + SBC L0146BA + PHA + LDA #$0020 + SEC + SBC $01,S + PLY + TAY + BEQ L04094A + BVS L040948 + EOR #$8000 +L040948 BMI L04094D +L04094A BRL L040957 +L04094D LDA L0146BA + CLC + ADC #$0020 + STA L0146BE +L040957 LDA L0146BC + SEC + SBC L0146B8 + PHA + LDA #$000E + SEC + SBC $01,S + PLY + TAY + BEQ L040970 + BVS L04096E + EOR #$8000 +L04096E BMI L040973 +L040970 BRL L04097D +L040973 LDA L0146B8 + CLC + ADC #$000E + STA L0146BC +L04097D LDA L0146BE + SEC + SBC L0146BA + PHA + LDA L0146BC + SEC + SBC L0146B8 + PHA + pei $5D + pei $5B + _SizeWindow + LDA $55 + STA $61 + LDA $54 + STA $60 + PLD + TSC + CLC + ADC #$0060 + TCS + RTL + +*--- Move control + +L0409AD ENT + TSC + SEC + SBC #$0024 + TCS + PHD + INC + TCD +* LDA #$0000 + stz $16 +* LDA #$0000 + stz $18 + LDY #$0002 + LDA [$27],Y + TAX + LDA [$27] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 +* BNE L0409D9 +* BRL L0409E6 + beq L0409E6 +L0409D9 LDA #$000E + STA $18 + LDA #$0006 + STA $16 + bra L040A48 +L0409E6 LDA #$0004 + STA $18 + LDA #$0002 + STA $16 +* LDY #$0002 +* LDA [$27],Y +* TAX +* LDA [$27] +* STA $00 +* STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 +* BNE L040A09 +* BRL L040A11 + beq L040A11 +L040A09 LDA $16 + CLC + ADC #$000C + STA $16 +L040A11 +* LDY #$0002 +* LDA [$27],Y +* TAX +* LDA [$27] +* STA $00 +* STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 +* BNE L040A2A +* BRL L040A48 + beq L040A48 +L040A2A +* LDA #$0001 +* PHA +* LDY #$0002 +* LDA [$27],Y +* TAX +* LDA [$27] +* STA $00 +* STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC +* SBC $01,S + sbc #$0001 +* PLX + STA $16 +L040A48 PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDY #$0002 + LDA [$2B],Y + PHA + LDA [$2B] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PHA + _GetArcRot +* STA L014E87 + PLA + STA $22 +* LDA $22 + AND #$8000 +* BNE L040A7F +* BRL L040A8F + beq L040A8F +L040A7F LDA $22 + EOR #$8000 + PHA + _SetArcRot +* STA L014E87 +L040A8F LDY #$0002 + LDA [$2B],Y + TAX + LDA [$2B] + STA $00 + STX $02 + + LDY #$000A + LDA [$00],Y + CLC + ADC $18 + PHA + +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + + ldal $e12000 + inc + stal $e12000 + + LDY #$0008 + LDA [$00],Y + CLC + ADC $16 + PHA + pei $2D + pei $2B +* PHX +* PHA + _MoveControl +* STA L014E87 + PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$0016 + LDA [$00],Y +* TAX + pha + LDY #$0014 + LDA [$00],Y +* PHX + PHA + _HiWord +* STA L014E87 + PLA + CMP #$8900 +* BEQ L040AF6 +* BRL L040B45 + bne L040B45 +*L040AF6 LDA #$0002 +* PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$000E + LDA [$00],Y +* SEC +* SBC $01,S + sbc #$0002 +* PLX + PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$0008 + LDA [$00],Y + PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$0036 + LDA [$00],Y + TAX + pha + LDY #$0034 + LDA [$00],Y +* PHX + PHA + _MoveControl +* STA L014E87 +L040B45 pei $2D + pei $2B +* PHX +* PHA + _ShowControl +* STA L014E87 + pei $22 +* PHA + _SetArcRot +* STA L014E87 + LDA $25 + STA $2D + LDA $24 + STA $2C + PLD + TSC + CLC + ADC #$002C + TCS + RTL + +L040B72 ENT + TSC + SEC + SBC #$0040 + TCS + PHD + INC + TCD + PHA + _GetArcRot + STA L014E87 + PLA + STA $24 + LDA $24 + AND #$8000 + BNE L040B93 + BRL L040BA3 +L040B93 LDA $24 + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L040BA3 PEA $0000 + TDC + CLC + ADC #$0030 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L040BE2 + BRL L040C00 +L040BE2 PEA $0000 + TDC + CLC + ADC #$0030 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L040C7B +L040C00 PEA $0000 + TDC + CLC + ADC #$0030 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L040C34 + BRL L040C44 +L040C34 LDA #$0001 + PHA + LDA $30 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $30 +L040C44 LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L040C5D + BRL L040C7B +L040C5D LDA #$0001 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $30 + SEC + SBC $01,S + PLX + STA $30 +L040C7B PEA $0000 + TDC + CLC + ADC #$0030 + PHA + _SetPortRect + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + LDX #$0000 + CMP #$0000 + BNE L040CAB + INX +L040CAB TXA + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + LDX #$0000 + CMP #$0000 + BNE L040CCA + INX +L040CCA TXA + AND $01,S + PLX + TAX + BNE L040CD4 + BRL L040CD7 +L040CD4 BRL L04113F +L040CD7 LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L040CF0 + BRL L040E7E +L040CF0 PHA + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $3C + PLA + STA $3E + LDA #$8004 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L040D6C + DEY +L040D6C TXA + CMP $03,S + BEQ L040D74 + LDY #$0000 +L040D74 PLA + PLA + TYA + BNE L040D7C + BRL L040E04 +L040D7C LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L040DAA + DEX +L040DAA LDY #$0001 + CMP $01,S + BEQ L040DB2 + DEY +L040DB2 TXA + CMP $03,S + BEQ L040DBA + LDY #$0000 +L040DBA PLA + PLA + TYA + BNE L040DC2 + BRL L040E04 +L040DC2 LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$3C],Y + PHA + LDA [$3C] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L040E04 PHA + PHA + LDX $49 + LDA $47 + PHX + PHA + LDA #$0001 + PHA + LDX $3E + LDA $3C + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $20 + PLA + STA $22 + LDA L014E87 + PHA + LDA #$1003 + PHA + JSL L020000 + LDX $22 + LDA $20 + PHX + PHA + _HideControl + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + LDX $22 + LDA $20 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $22 + LDA $20 + PHX + PHA + LDX $45 + LDA $43 + PHX + PHA + + ldal $e120c0 + inc + stal $e120c0 + + JSL L0409AD + BRL L04113F +L040E7E LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L040E97 + BRL L04113F +L040E97 PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1006 + PHA + JSL L020000 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1007 + PHA + JSL L020000 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1008 + PHA + JSL L020000 + LDA #$0001 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + SEC + SBC $01,S + PLX + STA $1E + LDA $1E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L040F48 + EOR #$8000 +L040F48 BMI L040F4D + BRL L041104 +L040F4D PHA + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $3C + PLA + STA $3E + LDA #$8004 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L040FDD + DEY +L040FDD TXA + CMP $03,S + BEQ L040FE5 + LDY #$0000 +L040FE5 PLA + PLA + TYA + BNE L040FED + BRL L041075 +L040FED LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L04101B + DEX +L04101B LDY #$0001 + CMP $01,S + BEQ L041023 + DEY +L041023 TXA + CMP $03,S + BEQ L04102B + LDY #$0000 +L04102B PLA + PLA + TYA + BNE L041033 + BRL L041075 +L041033 LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$3C],Y + PHA + LDA [$3C] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L041075 PHA + PHA + LDX $49 + LDA $47 + PHX + PHA + LDA #$0001 + PHA + LDX $3E + LDA $3C + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $20 + PLA + STA $22 + LDA L014E87 + PHA + LDA #$1009 + PHA + JSL L020000 + LDX $22 + LDA $20 + PHX + PHA + _HideControl + STA L014E87 + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $22 + LDA $20 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $22 + LDA $20 + PHX + PHA + LDX $45 + LDA $43 + PHX + PHA + + ldal $e120e0 + inc + stal $e120e0 + + JSL L0409AD + LDA $06 + CMP $26 + BNE L0410FF + BRL L041104 +L0410FF INC $26 + BRL L040F4D +L041104 LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$100A + PHA + JSL L020000 +L04113F PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPortRect + STA L014E87 + LDA $24 + PHA + _SetArcRot + STA L014E87 + LDA $41 + STA $49 + LDA $40 + STA $48 + PLD + TSC + CLC + ADC #$0048 + TCS + RTL + +L04116F ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + LDX #$0000 + CMP #$0000 + BNE L041195 + INX +L041195 TXA + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + LDX #$0000 + CMP #$0000 + BNE L0411B4 + INX +L0411B4 TXA + AND $01,S + PLX + TAX + BNE L0411BE + BRL L04120C +L0411BE LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $29 + STA [$00] + LDY #$0002 + LDA $2B + STA [$00],Y + BRL L0416BB +L04120C LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L041225 + BRL L041482 +L041225 LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0009 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + STX $18 + STA $16 + PHA + PHA + LDA #$000C + LDX #$0000 + TAY + BPL L0412A2 + DEX +L0412A2 PHX + PHA + LDA $27 + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0412B5 + DEX +L0412B5 PHX + PHA + _NewHandle + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1013 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1014 + PHA + JSL L020000 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L041316 + DEX +L041316 PHX + PHA + _BlockMove + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0029 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA #$0002 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L041349 + DEX +L041349 PHX + PHA + _BlockMove + STA L014E87 + LDA #$0000 + LDX #$0000 + TAY + BPL L04135F + DEX +L04135F STX $18 + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA #$0003 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L04138A + DEX +L04138A PHX + PHA + _BlockMove + STA L014E87 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8003 + PHA + _UniqueResourceID + STA L014E87 + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$1018 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + LDA #$0000 + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _AddResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1019 + PHA + JSL L020000 + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1020 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1021 + PHA + JSL L020000 + BRL L0416BB +L041482 LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L04149B + BRL L0416BB +L04149B PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1022 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1023 + PHA + JSL L020000 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1024 + PHA + JSL L020000 + PHA + LDX $18 + LDA $16 + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + STA $1E + PEA $0000 + TDC + CLC + ADC #$0029 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA $1E + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L041557 + DEX +L041557 PHX + PHA + _BlockMove + STA L014E87 + LDX $1C + LDA $1A + PHX + PHA + _HUnlock + STA L014E87 + LDA L014E87 + PHA + LDA #$1026 + PHA + JSL L020000 + PEI $18 + PEI $16 + LDA #$0004 + LDX #$0000 + TAY + BPL L04158D + DEX +L04158D PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDX $1C + LDA $1A + PHX + PHA + _SetHandleSize + STA L014E87 + LDA L014E87 + PHA + LDA #$1027 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1028 + PHA + JSL L020000 + LDA #$0000 + LDX #$0000 + TAY + BPL L0415DC + DEX +L0415DC STX $18 + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA $1E + CLC + ADC #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L04160A + DEX +L04160A PHX + PHA + _BlockMove + STA L014E87 + LDA #$0001 + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1030 + PHA + JSL L020000 + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1031 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1032 + PHA + JSL L020000 +L0416BB LDA $21 + STA $2B + LDA $20 + STA $2A + PLD + TSC + CLC + ADC #$002A + TCS + RTL + +L0416CB TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDA #$0001 + EOR #$FFFF + INC + STA $16 + LDA $23 + CMP #$000A + BEQ L0416E7 + BRL L0416EF +L0416E7 LDA #$0000 + STA $16 + BRL L0417B6 +L0416EF LDA $23 + CMP #$0008 + BEQ L0416F9 + BRL L041701 +L0416F9 LDA #$0000 + STA $16 + BRL L0417B6 +L041701 LDA $23 + CMP #$0012 + BEQ L04170B + BRL L041713 +L04170B LDA #$0000 + STA $16 + BRL L0417B6 +L041713 LDA $23 + CMP #$0009 + BEQ L04171D + BRL L041725 +L04171D LDA #$0000 + STA $16 + BRL L0417B6 +L041725 LDA $23 + CMP #$000B + BEQ L04172F + BRL L041737 +L04172F LDA #$0000 + STA $16 + BRL L0417B6 +L041737 LDA $23 + CMP #$000F + BEQ L041741 + BRL L041749 +L041741 LDA #$0000 + STA $16 + BRL L0417B6 +L041749 LDA $23 + CMP #$0013 + BEQ L041753 + BRL L04175B +L041753 LDA #$0000 + STA $16 + BRL L0417B6 +L04175B LDA $23 + CMP #$0010 + BEQ L041765 + BRL L04176D +L041765 LDA #$0000 + STA $16 + BRL L0417B6 +L04176D LDA $23 + CMP #$000E + BEQ L041777 + BRL L041783 +L041777 LDA #$0001 + EOR #$FFFF + INC + STA $16 + BRL L0417B6 +L041783 LDA $23 + CMP #$0011 + BEQ L04178D + BRL L041795 +L04178D LDA #$0000 + STA $16 + BRL L0417B6 +L041795 LDA $23 + CMP #$000C + BEQ L04179F + BRL L0417A7 +L04179F LDA #$0000 + STA $16 + BRL L0417B6 +L0417A7 LDA $23 + CMP #$000D + BEQ L0417B1 + BRL L0417B6 +L0417B1 LDA #$0000 + STA $16 +L0417B6 LDA $21 + STA $23 + LDA $20 + STA $22 + LDX $16 + PLD + TSC + CLC + ADC #$0022 + TCS + TXA + RTL + +L0417C9 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDA #$0000 + STA $16 + LDA $23 + LDX #$0000 + CMP #$07FF + BNE L0417E2 + INX +L0417E2 TXA + PHA + LDA $23 + LDX #$0000 + CMP #$87FF + BNE L0417EF + INX +L0417EF TXA + ORA $01,S + PLX + TAX + BNE L0417F9 + BRL L041801 +L0417F9 LDA #$000A + STA $16 + BRL L0418C4 +L041801 LDA $23 + CMP #$8000 + BEQ L04180B + BRL L041813 +L04180B LDA #$0008 + STA $16 + BRL L0418C4 +L041813 LDA $23 + CMP #$8100 + BEQ L04181D + BRL L041825 +L04181D LDA #$0012 + STA $16 + BRL L0418C4 +L041825 LDA $23 + CMP #$8200 + BEQ L04182F + BRL L041837 +L04182F LDA #$0009 + STA $16 + BRL L0418C4 +L041837 LDA $23 + CMP #$8300 + BEQ L041841 + BRL L041849 +L041841 LDA #$000B + STA $16 + BRL L0418C4 +L041849 LDA $23 + CMP #$8400 + BEQ L041853 + BRL L04185B +L041853 LDA #$000F + STA $16 + BRL L0418C4 +L04185B LDA $23 + CMP #$8500 + BEQ L041865 + BRL L04186D +L041865 LDA #$0013 + STA $16 + BRL L0418C4 +L04186D LDA $23 + CMP #$8600 + BEQ L041877 + BRL L04187F +L041877 LDA #$0010 + STA $16 + BRL L0418C4 +L04187F LDA $23 + CMP #$8700 + BEQ L041889 + BRL L041891 +L041889 LDA #$000E + STA $16 + BRL L0418C4 +L041891 LDA $23 + CMP #$8800 + BEQ L04189B + BRL L0418A3 +L04189B LDA #$0011 + STA $16 + BRL L0418C4 +L0418A3 LDA $23 + CMP #$8900 + BEQ L0418AD + BRL L0418B5 +L0418AD LDA #$000C + STA $16 + BRL L0418C4 +L0418B5 LDA $23 + CMP #$8D00 + BEQ L0418BF + BRL L0418C4 +L0418BF LDA #$000D + STA $16 +L0418C4 LDA $21 + STA $23 + LDA $20 + STA $22 + LDX $16 + PLD + TSC + CLC + ADC #$0022 + TCS + TXA + RTL + +L0418D7 TSC + SEC + SBC #$0032 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $37 + PEI $35 + PEA $0008 + JSL L014B1E + PHA + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3B + LDA $39 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _LoadResource + STA L014E87 + PLA + STA $26 + PLA + STA $28 + LDX $28 + LDA $26 + PHX + PHA + _HLock + STA L014E87 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$07FF + BEQ L041959 + BRL L041AE0 +L041959 PHA + PHA + LDA #$8001 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $2E + PLA + STA $30 + LDA #$0000 + STA $1E + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + CLC + ADC #$0004 + STA $22 + LDA #$0000 + STA $20 + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0006 + LDA [$00],Y + LDX #$0002 + JSL L0153FB + CLC + ADC #$0008 + STA $24 + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $2A + PLA + STA $2C + LDA L014E87 + BEQ L0419FE + BRL L041A63 +L0419FE LDX $2C + LDA $2A + PHX + PHA + _HLock + STA L014E87 + LDA $22 + CLC + ADC #$000C + STA $22 + PHA + LDY #$0002 + LDA [$2A],Y + PHA + LDA [$2A] + PHA + _StringWidth + STA L014E87 + PLA + CLC + ADC $24 + CLC + ADC #$0008 + STA $24 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 +L041A63 LDA $1C + SEC + SBC $18 + LDX #$0002 + JSL L0153AF + CLC + ADC $18 + STA $18 + LDA $24 + LDX #$0002 + JSL L0153AF + PHA + LDA $18 + SEC + SBC $01,S + PLX + STA $18 + LDA $18 + CLC + ADC $24 + STA $1C + LDA $1A + SEC + SBC $16 + LDX #$0002 + JSL L0153AF + CLC + ADC $16 + STA $16 + LDA $22 + LDX #$0002 + JSL L0153AF + PHA + LDA $16 + SEC + SBC $01,S + PLX + STA $16 + LDA $16 + CLC + ADC $22 + STA $1A + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + BRL L041BCA +L041AE0 PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $2A + PLA + STA $2C + LDA L014E87 + BEQ L041B17 + BRL L041BCA +L041B17 LDX $2C + LDA $2A + PHX + PHA + _HLock + STA L014E87 + LDA $1C + SEC + SBC $18 + PHA + PHA + LDY #$0002 + LDA [$2A],Y + PHA + LDA [$2A] + PHA + _StringWidth + STA L014E87 + PLA + CLC + ADC #$001E + SEC + SBC $01,S + PLY + TAY + BEQ L041B54 + BVS L041B52 + EOR #$8000 +L041B52 BMI L041B57 +L041B54 BRL L041B9B +L041B57 PHA + LDY #$0002 + LDA [$2A],Y + PHA + LDA [$2A] + PHA + _StringWidth + STA L014E87 + PLA + CLC + ADC $18 + CLC + ADC #$001E + STA $1C + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 +L041B9B LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 +L041BCA LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3B + LDA $39 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _ReleaseResource + STA L014E87 + LDA $33 + STA $3B + LDA $32 + STA $3A + PLD + TSC + CLC + ADC #$003A + TCS + RTL + +L041C02 ENT + TSC + SEC + SBC #$0066 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $73 + PEI $71 + PEA $0004 + JSL L014B1E + LDX $77 + LDA $75 + STX L0146B6 + STA L0146B4 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + PHA + JSL L0416CB + STA $5A + LDX $6D + LDA $6B + PHX + PHA + JSL L0206AF + PEA $0000 + TDC + CLC + ADC #$001A + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GlobalToLocal + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L041C84 + BRL L041C90 +L041C84 LDA #$000D + SEC + SBC #$0001 + CLC + ADC $1A + STA $1A +L041C90 LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L041CA9 + BRL L041CC7 +L041CA9 LDA #$0001 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1A + SEC + SBC $01,S + PLX + STA $1A +L041CC7 LDA #$0000 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0001 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0002 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0003 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0004 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0005 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0006 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0007 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0008 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0009 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$000A + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$000B + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$000C + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$000D + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$000E + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$000F + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0010 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0011 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0012 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0013 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0014 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0015 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0016 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0017 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0018 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0019 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$001A + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$001B + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$001C + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$001D + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$001E + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$001F + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + PEA ^L0146B8 + PEA L0146B8 + LDY #$0002 + LDA [$79],Y + PHA + LDA [$79] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$002A + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L041EA6 + BRL L041EB0 +L041EA6 LDA L0146BE + CLC + ADC #$0018 + STA L0146BE +L041EB0 LDA $69 + CMP #$0001 + BEQ L041EBA + BRL L041F3C +L041EBA PEA $0000 + TDC + CLC + ADC #$0022 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC $16 + STA $22 + LDA $24 + SEC + SBC $18 + STA $24 + LDA $26 + SEC + SBC $16 + STA $26 + LDA $28 + SEC + SBC $18 + STA $28 + PHA + PHA + LDX #^L040127 + LDA #L040127 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0032 + PHA + LDA $18 + PHA + LDA $16 + PHA + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0234 + CLC + ADC $5A + PHA + _DragRect + STA L014E87 + PLA + STA $52 + PLA + STA $54 + BRL L041F83 +L041F3C PHA + PHA + LDX #^L040023 + LDA #L040023 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0032 + PHA + LDA $18 + PHA + LDA $16 + PHA + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0220 + PHA + _DragRect + STA L014E87 + PLA + STA $52 + PLA + STA $54 +L041F83 PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L041FB0 + BRL L041FBA +L041FB0 LDA L0146BE + SEC + SBC #$0018 + STA L0146BE +L041FBA PHA + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _LoadResource + STA L014E87 + PLA + STA $56 + PLA + STA $58 + LDA L014E87 + PHA + LDA #$1035 + PHA + JSL L020000 + LDX $58 + LDA $56 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1036 + PHA + JSL L020000 + LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L04203F + BRL L04206B +L04203F LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$000E + EOR #$FFFF + INC + PHA + LDA #$0006 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L042204 +L04206B LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042084 + BRL L042125 +L042084 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0420C2 + BRL L0420F9 +L0420C2 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + CLC + ADC #$0001 + PHA + _OffsetRect + STA L014E87 +L0420F9 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L042204 +L042125 LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L04213E + BRL L0421DB +L04213E LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042157 + BRL L04217C +L042157 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L04217C LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L042204 +L0421DB LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L042204 PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8700 + BEQ L042231 + BRL L04225B +L042231 LDY #$0002 + LDA [$56],Y + TAX + LDA [$56] + CLC + ADC #$000C + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$56],Y + TAX + LDA [$56] + CLC + ADC #$000A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L04225B LDA #$0001 + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1037 + PHA + JSL L020000 + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1038 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1039 + PHA + JSL L020000 + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $52 + PLA + STA $54 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L042342 + BRL L042360 +L042342 PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L0423DB +L042360 PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042394 + BRL L0423A4 +L042394 LDA #$0001 + PHA + LDA $1A + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $1A +L0423A4 LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0423BD + BRL L0423DB +L0423BD LDA #$0001 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1A + SEC + SBC $01,S + PLX + STA $1A +L0423DB PEA $0000 + TDC + CLC + ADC #$001A + PHA + _SetPortRect + STA L014E87 + PHA + _GetArcRot + STA L014E87 + PLA + STA $5C + LDA $5C + AND #$8000 + BNE L042406 + BRL L042416 +L042406 LDA $5C + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L042416 LDX $7B + LDA $79 + PHX + PHA + _HideControl + STA L014E87 + LDX $7B + LDA $79 + PHX + PHA + _DisposeControl + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX $54 + LDA $52 + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $62 + PLA + STA $64 + LDA #$8004 + PHA + LDX $54 + LDA $52 + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$62],Y + TAX + LDA [$62] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L04248C + DEY +L04248C TXA + CMP $03,S + BEQ L042494 + LDY #$0000 +L042494 PLA + PLA + TYA + BNE L04249C + BRL L042524 +L04249C LDY #$0002 + LDA [$62],Y + TAX + LDA [$62] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L0424CA + DEX +L0424CA LDY #$0001 + CMP $01,S + BEQ L0424D2 + DEY +L0424D2 TXA + CMP $03,S + BEQ L0424DA + LDY #$0000 +L0424DA PLA + PLA + TYA + BNE L0424E2 + BRL L042524 +L0424E2 LDY #$0002 + LDA [$62],Y + TAX + LDA [$62] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$62],Y + PHA + LDA [$62] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L042524 PHA + PHA + LDX $6D + LDA $6B + PHX + PHA + LDA #$0001 + PHA + LDX $64 + LDA $62 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $79 + PLA + STA $7B + LDY #$0002 + LDA [$75],Y + PHA + LDA [$75] + PHA + PLA + CLC + ADC #$0072 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $52 + STA [$00] + LDY #$0002 + LDA $54 + STA [$00],Y + LDX $7B + LDA $79 + PHX + PHA + _HideControl + STA L014E87 + LDX $54 + LDA $52 + PHX + PHA + LDX $7B + LDA $79 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $7B + LDA $79 + PHX + PHA + LDX $77 + LDA $75 + PHX + PHA + + ldal $e12100 + inc + stal $e12100 + + JSL L0409AD + LDA $5C + PHA + _SetArcRot + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + _SetPortRect + STA L014E87 + PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + STA $5A + LDA $5A + LDX #$0000 + CMP #$000A + BNE L0425F3 + INX +L0425F3 TXA + PHA + LDA $5A + LDX #$0000 + CMP #$000F + BNE L042600 + INX +L042600 TXA + ORA $01,S + PLX + PHA + LDA $5A + LDX #$0000 + CMP #$0009 + BNE L042610 + INX +L042610 TXA + ORA $01,S + PLX + TAX + BNE L04261A + BRL L04262D +L04261A LDX $7B + LDA $79 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$002A + PHA + JSL L0418D7 +L04262D PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L04265A + BRL L042664 +L04265A LDA L0146BE + CLC + ADC #$0018 + STA L0146BE +L042664 LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA $5A + PHA + JSL L0208DC + LDA $67 + STA $7B + LDA $66 + STA $7A + PLD + TSC + CLC + ADC #$007A + TCS + RTL + +L042683 ENT + TSC + SEC + SBC #$0046 + TCS + PHD + INC + TCD + PHA + PHA + LDX $4D + LDA $4B + PHX + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$0074 + LDA [$00],Y + TAX + LDY #$0072 + LDA [$00],Y + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $38 + PLA + STA $3A + LDA L014E87 + PHA + LDA #$1F34 + PHA + JSL L020000 + LDX $4D + LDA $4B + PHX + PHA + JSL L0206AF + PEA ^L0146B8 + PEA L0146B8 + LDY #$0002 + LDA [$38],Y + PHA + LDA [$38] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDA $49 + CMP #$0008 + BEQ L04270F + BRL L042730 +L04270F LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0000 + PHA + _OffsetRect + STA L014E87 + BRL L0427A6 +L042730 LDA $49 + CMP #$000A + BEQ L04273A + BRL L042757 +L04273A LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0000 + PHA + LDA #$0001 + PHA + _OffsetRect + STA L014E87 + BRL L0427A6 +L042757 LDA $49 + CMP #$000B + BEQ L042761 + BRL L042782 +L042761 LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0000 + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0427A6 +L042782 LDA $49 + CMP #$0015 + BEQ L04278C + BRL L0427A6 +L04278C LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0002 + PHA + LDA #$0000 + PHA + _OffsetRect + STA L014E87 +L0427A6 PHA + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _LoadResource + STA L014E87 + PLA + STA $32 + PLA + STA $34 + LDA L014E87 + PHA + LDA #$1F35 + PHA + JSL L020000 + LDX $34 + LDA $32 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1F36 + PHA + JSL L020000 + LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L04282B + BRL L042857 +L04282B LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$000E + EOR #$FFFF + INC + PHA + LDA #$0006 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0429F0 +L042857 LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042870 + BRL L042911 +L042870 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0428AE + BRL L0428E5 +L0428AE LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + CLC + ADC #$0001 + PHA + _OffsetRect + STA L014E87 +L0428E5 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0429F0 +L042911 LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L04292A + BRL L0429C7 +L04292A LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042943 + BRL L042968 +L042943 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L042968 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0429F0 +L0429C7 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L0429F0 PHA + LDY #$0002 + LDA [$38],Y + TAX + LDA [$38] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8700 + BEQ L042A1D + BRL L042A47 +L042A1D LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + CLC + ADC #$000C + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + CLC + ADC #$000A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L042A47 LDA #$0001 + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1F37 + PHA + JSL L020000 + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1F38 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1F39 + PHA + JSL L020000 + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $2E + PLA + STA $30 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L042B2E + BRL L042B4C +L042B2E PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L042BC7 +L042B4C PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042B80 + BRL L042B90 +L042B80 LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $16 +L042B90 LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L042BA9 + BRL L042BC7 +L042BA9 LDA #$0001 + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L042BC7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _SetPortRect + STA L014E87 + PHA + _GetArcRot + STA L014E87 + PLA + STA $3C + LDA $3C + AND #$8000 + BNE L042BF2 + BRL L042C02 +L042BF2 LDA $3C + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L042C02 LDX $3A + LDA $38 + PHX + PHA + _HideControl + STA L014E87 + LDX $3A + LDA $38 + PHX + PHA + _DisposeControl + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX $30 + LDA $2E + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $42 + PLA + STA $44 + LDA #$8004 + PHA + LDX $30 + LDA $2E + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$42],Y + TAX + LDA [$42] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L042C78 + DEY +L042C78 TXA + CMP $03,S + BEQ L042C80 + LDY #$0000 +L042C80 PLA + PLA + TYA + BNE L042C88 + BRL L042D10 +L042C88 LDY #$0002 + LDA [$42],Y + TAX + LDA [$42] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L042CB6 + DEX +L042CB6 LDY #$0001 + CMP $01,S + BEQ L042CBE + DEY +L042CBE TXA + CMP $03,S + BEQ L042CC6 + LDY #$0000 +L042CC6 PLA + PLA + TYA + BNE L042CCE + BRL L042D10 +L042CCE LDY #$0002 + LDA [$42],Y + TAX + LDA [$42] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$42],Y + PHA + LDA [$42] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L042D10 PHA + PHA + LDX $4D + LDA $4B + PHX + PHA + LDA #$0001 + PHA + LDX $44 + LDA $42 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $38 + PLA + STA $3A + LDY #$0002 + LDA [$4F],Y + PHA + LDA [$4F] + PHA + PLA + CLC + ADC #$0072 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $2E + STA [$00] + LDY #$0002 + LDA $30 + STA [$00],Y + LDX $3A + LDA $38 + PHX + PHA + _HideControl + STA L014E87 + LDX $30 + LDA $2E + PHX + PHA + LDX $3A + LDA $38 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $3A + LDA $38 + PHX + PHA + LDX $51 + LDA $4F + PHX + PHA + + ldal $e12120 + inc + stal $e12120 + + JSL L0409AD + LDA $3C + PHA + _SetArcRot + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _SetPortRect + STA L014E87 + PHA + LDY #$0002 + LDA [$38],Y + TAX + LDA [$38] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + STA $36 + LDA $36 + LDX #$0000 + CMP #$000A + BNE L042DDF + INX +L042DDF TXA + PHA + LDA $36 + LDX #$0000 + CMP #$000F + BNE L042DEC + INX +L042DEC TXA + ORA $01,S + PLX + PHA + LDA $36 + LDX #$0000 + CMP #$0009 + BNE L042DFC + INX +L042DFC TXA + ORA $01,S + PLX + TAX + BNE L042E06 + BRL L042E19 +L042E06 LDX $3A + LDA $38 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + JSL L0418D7 +L042E19 PHA + LDY #$0002 + LDA [$38],Y + TAX + LDA [$38] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L042E46 + BRL L042E50 +L042E46 LDA L0146BE + CLC + ADC #$0018 + STA L0146BE +L042E50 LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA $36 + PHA + JSL L0208DC + LDA $47 + STA $51 + LDA $46 + STA $50 + PLD + TSC + CLC + ADC #$0050 + TCS + RTL + +L042E6F ENT + TSC + SEC + SBC #$0036 + TCS + PHD + INC + TCD + PHA + LDX $3F + LDA $3D + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L042E93 + INX +L042E93 TXA + PHA + PHA + LDX $3F + LDA $3D + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L042EB0 + INX +L042EB0 TXA + AND $01,S + PLX + TAX + BNE L042EBA + BRL L042EBD +L042EBA BRL L0434D2 +L042EBD LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L042ED6 + BRL L042FED +L042ED6 LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L042F0B + DEX +L042F0B PHX + PHA + LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $2E + PLA + STA $30 + PHA + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + LDX #$0000 + TAY + BPL L042F7A + DEX +L042F7A STX $34 + STA $32 + LDA #$000A + LDX #$0000 + TAY + BPL L042F88 + DEX +L042F88 LDY #$0000 + CMP $32 + BNE L042F91 + CPX $34 +L042F91 BNE L042F94 + INY +L042F94 TYA + PHA + LDA #$000F + LDX #$0000 + TAY + BPL L042FA0 + DEX +L042FA0 LDY #$0000 + CMP $32 + BNE L042FA9 + CPX $34 +L042FA9 BNE L042FAC + INY +L042FAC TYA + ORA $01,S + PLX + PHA + LDA #$0009 + LDX #$0000 + TAY + BPL L042FBB + DEX +L042FBB LDY #$0000 + CMP $32 + BNE L042FC4 + CPX $34 +L042FC4 BNE L042FC7 + INY +L042FC7 TYA + ORA $01,S + PLX + TAX + BNE L042FD1 + BRL L042FEA +L042FD1 LDX $30 + LDA $2E + PHX + PHA + LDY #$0002 + LDA [$2E],Y + PHA + LDA [$2E] + PHA + PLA + CLC + ADC #$0008 + PHA + JSL L0418D7 +L042FEA BRL L04348E +L042FED LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L043006 + BRL L04348E +L043006 PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $2E + PLA + STA $30 + PHA + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + LDX #$0000 + TAY + BPL L043055 + DEX +L043055 STX $34 + STA $32 + LDA #$000A + LDX #$0000 + TAY + BPL L043063 + DEX +L043063 LDY #$0000 + CMP $32 + BNE L04306C + CPX $34 +L04306C BNE L04306F + INY +L04306F TYA + PHA + LDA #$000F + LDX #$0000 + TAY + BPL L04307B + DEX +L04307B LDY #$0000 + CMP $32 + BNE L043084 + CPX $34 +L043084 BNE L043087 + INY +L043087 TYA + ORA $01,S + PLX + PHA + LDA #$0009 + LDX #$0000 + TAY + BPL L043096 + DEX +L043096 LDY #$0000 + CMP $32 + BNE L04309F + CPX $34 +L04309F BNE L0430A2 + INY +L0430A2 TYA + ORA $01,S + PLX + TAX + BNE L0430AC + BRL L0430C5 +L0430AC LDX $30 + LDA $2E + PHX + PHA + LDY #$0002 + LDA [$2E],Y + PHA + LDA [$2E] + PHA + PLA + CLC + ADC #$0008 + PHA + JSL L0418D7 +L0430C5 PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $1E + PLA + STA $20 + LDA L014E87 + PHA + LDA #$1043 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1044 + PHA + JSL L020000 + PHA + PHA + LDX $20 + LDA $1E + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1045 + PHA + JSL L020000 + PHA + LDX $18 + LDA $16 + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + STA $22 + LDA $22 + SEC + SBC #$0001 + STA $24 +L043163 LDA $24 + BMI L04316A + DEC + BPL L04316D +L04316A BRL L04320E +L04316D LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA $24 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $1C + STA $1A + PHA + LDX $1C + LDA $1A + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + PHA + LDX $3F + LDA $3D + PHX + PHA + _HiWord + STA L014E87 + PLA + SEC + SBC $01,S + PLX + TAX + BEQ L0431C1 + LDA #$0001 +L0431C1 EOR #$0001 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _LoWord + STA L014E87 + PLA + PHA + PHA + LDX $3F + LDA $3D + PHX + PHA + _LoWord + STA L014E87 + PLA + SEC + SBC $01,S + PLX + TAX + BEQ L0431F4 + LDA #$0001 +L0431F4 EOR #$0001 + AND $01,S + PLX + TAX + BNE L043200 + BRL L043203 +L043200 BRL L043211 +L043203 LDA $24 + SEC + SBC #$0001 + STA $24 + BRL L043163 +L04320E BRL L0434D2 +L043211 LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA $24 + CLC + ADC #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA $24 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA $24 + LDX #$0004 + JSL L0153FB + PHA + LDA $22 + LDX #$0004 + JSL L0153FB + SEC + SBC $01,S + PLX + LDX #$0000 + TAY + BPL L043259 + DEX +L043259 PHX + PHA + _BlockMove + STA L014E87 + LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $1C + STA $1A + LDX $20 + LDA $1E + PHX + PHA + _HUnlock + STA L014E87 + LDA L014E87 + PHA + LDA #$1047 + PHA + JSL L020000 + LDA #$0004 + LDX #$0000 + TAY + BPL L0432B1 + DEX +L0432B1 PHX + PHA + PEI $18 + PEI $16 + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + LDX $20 + LDA $1E + PHX + PHA + _SetHandleSize + STA L014E87 + LDA L014E87 + PHA + LDA #$1048 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1049 + PHA + JSL L020000 + LDA #$0001 + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1050 + PHA + JSL L020000 + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1051 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1052 + PHA + JSL L020000 + LDA #$0004 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _LoWord + STA L014E87 + PLA + SEC + SBC $01,S + PLX + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BVS L0433C7 + EOR #$8000 +L0433C7 BMI L0433CC + BRL L04348E +L0433CC LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _RemoveResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1053 + PHA + JSL L020000 + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L043418 + BRL L043443 +L043418 LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0009 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L043443 LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $1A + STA [$00] + LDY #$0002 + LDA $1C + STA [$00],Y +L04348E PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _HideControl + STA L014E87 + PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _DisposeControl + STA L014E87 +L0434D2 LDA $37 + STA $3F + LDA $36 + STA $3E + PLD + TSC + CLC + ADC #$003E + TCS + RTL + +L0434E2 ENT + TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + LDX #$0000 + CMP #$0000 + BNE L043508 + INX +L043508 TXA + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + LDX #$0000 + CMP #$0000 + BNE L043527 + INX +L043527 TXA + AND $01,S + PLX + TAX + BNE L043531 + BRL L043534 +L043531 BRL L0436E8 +L043534 LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L04354D + BRL L04358B +L04354D LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1056 + PHA + JSL L020000 + BRL L0436E8 +L04358B LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L0435A4 + BRL L0436E8 +L0435A4 PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1057 + PHA + JSL L020000 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1058 + PHA + JSL L020000 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1059 + PHA + JSL L020000 + LDA #$0001 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + SEC + SBC $01,S + PLX + STA $1E + LDA $1E + STA $06 + LDA #$0001 + STA $20 + LDA $06 + SEC + SBC $20 + BVS L043655 + EOR #$8000 +L043655 BMI L04365A + BRL L0436AD +L04365A LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $20 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1060 + PHA + JSL L020000 + LDA $06 + CMP $20 + BNE L0436A8 + BRL L0436AD +L0436A8 INC $20 + BRL L04365A +L0436AD LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1061 + PHA + JSL L020000 +L0436E8 LDA $23 + STA $27 + LDA $22 + STA $26 + PLD + TSC + CLC + ADC #$0026 + TCS + RTL + diff --git a/genesys/edit/WINDOW.S b/genesys/edit/WINDOW.S new file mode 100644 index 0000000..d9a29b2 --- /dev/null +++ b/genesys/edit/WINDOW.S @@ -0,0 +1,10790 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Line.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 + + EXT L0271F5 + EXT L024B85 + EXT L020000 + EXT L020E29 + +*---------------------------- + + LDA $04,S + STA L0106A0 + LDA $06,S + STA L0106A0+2 + JMPL L0271F5 + +L01000E ENT + PEA ^L01001C + PEA L01001C + _SetCtlParamPtr + RTL + +L01001C ADRL L010044 ; Pointer to substitution strings + ADRL L010045 + ADRL L010046 + ADRL L010047 + ADRL L010048 + ADRL L010049 + ADRL L01004A + ADRL L01004B + ADRL L01004C + ADRL L01004D +L010044 DB $00 +L010045 DB $00 +L010046 DB $00 +L010047 DB $00 +L010048 DB $00 +L010049 DB $00 +L01004A DB $00 +L01004B DB $00 +L01004C DB $00 +L01004D DB $00 + +L01004E ENT + LDA #L010055 + LDX #^L010055 + RTL + +L010055 DW $0000 + DW $0006 + DW $0008 + ADRL L010097 + ADRL L0100A3 + ADRL L0100C0 + ADRL L0100DD + ADRL L0100F7 + ADRL L010113 + ADRL L010131 + ADRL L010149 + ADRL L010161 + ADRL L010178 + ADRL L01018F + ADRL L0101AE + ADRL L0101CE + ADRL L0101E5 + ADRL $00000000 +L010097 STR ' Options ' +L0100A3 DW $0000 + DW $0802 + ASC 'Ee' + DW $0000 + DW $0000 + ADRL L0100B1 +L0100B1 STR 'Edit colors...' +L0100C0 DW $0000 + DW $0803 + ASC 'Aa' + DW $0000 + DW $0040 + ADRL L0100CE +L0100CE STR 'Add control...' +L0100DD DW $0000 + DW $0804 + ASC 0000 + DW $0000 + DW $0000 + ADRL L0100EB +L0100EB STR 'Zoom window' +L0100F7 DW $0000 + DW $0805 + ASC 0000 + DW $0000 + DW $0000 + ADRL L010105 +L010105 STR 'Set zoom rect' +L010113 DW $0000 + DW $0806 + ASC 0000 + DW $0000 + DW $00C0 + ADRL L010121 +L010121 STR 'Clear zoom rect' +L010131 DW $0000 + DW $0807 + ASC '1!' + DW $0000 + DW $0000 + ADRL L01013F +L01013F STR 'Title bar' +L010149 DW $0000 + DW $0808 + ASC '2@' + DW $0000 + DW $0080 + ADRL L010157 +L010157 STR 'Close box' +L010161 DW $0000 + DW $0809 + ASC '3#' + DW $0000 + DW $0080 + ADRL L01016F +L01016F STR 'Zoom box' +L010178 DW $0000 + DW $080A + ASC '4$' + DW $0000 + DW $0000 + ADRL L010186 +L010186 STR 'Info bar' +L01018F DW $0000 + DW $080B + ASC '5%' + DW $0000 + DW $0000 + ADRL L01019D +L01019D STR 'Right scroll bar' +L0101AE DW $0000 + DW $080C + ASC '6^' + DW $0000 + DW $0000 + ADRL L0101BC +L0101BC STR 'Bottom scroll bar' +L0101CE DW $0000 + DW $080D + ASC '7&' + DW $0000 + DW $0040 + ADRL L0101DC +L0101DC STR 'Size box' +L0101E5 DW $0000 + DW $080E + ASC 'Tt' + DW $0000 + DW $0000 + ADRL L0101F3 +L0101F3 STR 'Test window...' + +L010202 ENT + PEA ^L0102B4 + PEA L0102B4 + _SetCursor + RTL + +L010210 ENT + PEA ^L01022C + PEA L01022C + _SetCursor + RTL + +L01021E ENT + PEA ^L01033C + PEA L01033C + _SetCursor + RTL + +L01022C DW $0008 ; cursor height + DW $0004 ; cursor width + HEX FFFF000000000000 ; cursor image + HEX F00F000000000000 + HEX F00FFF0000000000 + HEX FFFF0F0000000000 + HEX 0F000F0000000000 + HEX 0F000F0000000000 + HEX 0FFFFF0000000000 + HEX 0000000000000000 + HEX FFFF000000000000 ; cursor mask + HEX FFFF000000000000 + HEX FFFFFF0000000000 + HEX FFFFFF0000000000 + HEX 0FFFFF0000000000 + HEX 0FFFFF0000000000 + HEX 0FFFFF0000000000 + HEX 0000000000000000 + DW $0004 ; hot spot + DW $0008 +L0102B4 DW $0008 ; cursor height + DW $0004 ; cursor width + HEX FFF0FFF000000000 ; cursor image + HEX FF000FF000000000 + HEX F0FFF0F000000000 + HEX 00F0F00000000000 + HEX F0FFF0F000000000 + HEX FF000FF000000000 + HEX FFF0FFF000000000 + HEX 0000000000000000 + HEX FFF0FFF000000000 ; cursor mask + HEX FF000FF000000000 + HEX F0FFF0F000000000 + HEX 00FFF00000000000 + HEX F0FFF0F000000000 + HEX FF000FF000000000 + HEX FFF0FFF000000000 + HEX 0000000000000000 + DW $0004 ; hot spot + DW $0008 +L01033C DW $0009 ; cursor height + DW $0004 ; cursor width + HEX 00F0000000000000 ; cursor image + HEX 0FFF000000000000 + HEX FFFFF00000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX FFFFF00000000000 + HEX 0FFF000000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 ; cursor mask + HEX 0FFF000000000000 + HEX FFFFF00000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX FFFFF00000000000 + HEX 0FFF000000000000 + HEX 00F0000000000000 + DW $0004 ; hot spot + DW $0006 + +L0103D4 ENT + PLA + STA L010416 + SEP #$20 + PLA + STA L010418 + REP #$20 + PLA + STA L010412 + PLA + STA L010414 + PLA + PLX + PHB + PHX + PHA + PHK + PEA L010403 + SEP #$20 + LDA L010414 + PHA + PHA + REP #$20 + SEC + LDA L010412 + SBC #$0001 + PLB + PHA +L010403 RTL + + PLB + SEP #$20 + LDA L010418 + PHA + REP #$20 + LDA L010416 + PHA + RTL + +L010412 DW $0000 +L010414 DW $0000 +L010416 DW $0000 +L010418 DB $00 +L010419 ENT + PLA + STA L01049D + SEP #$20 + PLA + STA L01049F + REP #$20 + PLA + STA L01048B + PLA + STA L01048D + PLA + STA L010499 + PLA + STA L01049B + PLA + STA L010495 + PLA + STA L010497 + PLA + STA L010493 + PLA + STA L01048F + PLA + STA L010491 + PHB + LDA L010491 + PHA + LDA L01048F + PHA + LDA L010493 + PHA + LDA L010497 + PHA + LDA L010495 + PHA + LDA L01049B + PHA + LDA L010499 + PHA + PHK + PEA L01047C + SEP #$20 + LDA L01048D + PHA + PHA + REP #$20 + SEC + LDA L01048B + SBC #$0001 + PLB + PHA +L01047C RTL + + PLB + SEP #$20 + LDA L01049F + PHA + REP #$20 + LDA L01049D + PHA + RTL + +L01048B DW $0000 +L01048D DW $0000 +L01048F DW $0000 +L010491 DW $0000 +L010493 DW $0000 +L010495 DW $0000 +L010497 DW $0000 +L010499 DW $0000 +L01049B DW $0000 +L01049D DW $0000 +L01049F DB $00 +L0104A0 ENT + PLA + STA L0104D2 + SEP #$20 + PLA + STA L0104D4 + REP #$20 + PLA + SEP #$20 + PHA + XBA + PLA + ASL + ASL + ASL + ASL + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L0104D4 + PHA + REP #$20 + LDA L0104D2 + PHA + TXA + RTL + +L0104D2 DW $0000 +L0104D4 DB $00 +L0104D5 ENT + PLA + STA L010507 + SEP #$20 + PLA + STA L010509 + REP #$20 + PLA + SEP #$20 + PHA + LSR + LSR + LSR + LSR + XBA + PLA + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L010509 + PHA + REP #$20 + LDA L010507 + PHA + TXA + RTL + +L010507 DW $0000 +L010509 DB $00 +L01050A ENT + PLA + STA L01053D + SEP #$20 + PLA + STA L01053F + 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 L01053F + PHA + REP #$20 + LDA L01053D + PHA + TXA + RTL + +L01053D DW $0000 +L01053F DB $00 + PLA + STA L010573 + SEP #$20 + PLA + STA L010575 + 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 L010575 + PHA + REP #$20 + LDA L010573 + PHA + TXA + RTL + +L010573 DW $0000 +L010575 DB $00 + LDA $06,S + AND #$FFF0 + ORA $04,S + BRA L0105AE + LDA $04,S + ASL + ASL + ASL + ASL + STA $04,S + LDA $06,S + AND #$FF0F + ORA $04,S + BRA L0105AE + LDA $04,S + XBA + STA $04,S + LDA $06,S + AND #$F0FF + ORA $04,S + BRA L0105AE + LDA $04,S + XBA + ASL + ASL + ASL + ASL + STA $04,S + LDA $06,S + AND #$0FFF + ORA $04,S +L0105AE TAY + LDA $01,S + STA $05,S + LDA $02,S + STA $06,S + PLA + PLA + TYA + RTL + +L0105BB ENT + PHD + TSX + PHX + PLD + LDA $0C,S + ASL + ASL + ASL + ASL + ORA $0A,S + SEP #$20 + PHA + XBA + PLA + REP #$20 + STA $0A,S + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + STA $0C,S + LDY #$0020 +L0105E0 DEY + DEY + LDA $0C,S + STA [$06],Y + DEY + DEY + STA [$06],Y + DEY + DEY + LDA $0A,S + STA [$06],Y + DEY + DEY + STA [$06],Y + CPY #$0000 + BNE L0105E0 + PLD + LDA $01,S + STA $09,S + LDA $02,S + STA $0A,S + LDA $06,S + TAX + LDA $04,S + PLY + PLY + PLY + PLY + RTL + +L01060C ENT + PEA ^L01061A + PEA L01061A + _SetPenPat + RTL + +L01061A HEX CCCCCCCC33333333CCCCCCCC33333333 + HEX CCCCCCCC33333333CCCCCCCC33333333 + + BRK $69 + RTL + +L01063D ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0912 + PEA $8734 + PEA ^L024B85 + PEA L024B85 + PEA $0000 + PEA $0000 + PEA $0001 + LDA L010698+2 + PHA + LDA L010698 + PHA + PEA $800E + _NewWindow2 + lda 1,s + STA L01069C + lda 3,s + STA L01069C+2 + _SetPort + PLB + PLD + RTL + +L01068E ENT + DW $0000 +L010690 ENT + DW $0000 +L010692 ENT + DW $0000 +L010694 ENT + DW $0000 +L010696 ENT + DW $0000 +L010698 ENT + ADRL $00000000 +L01069C ENT + ADRL $00000000 +L0106A0 ENT + ADRL $00000000 +L0106A4 ENT + DB $00 + DB $00 +L0106A6 ENT + DB $00 + DB $00 +L0106A8 ENT + DB $00 + DB $00 +L0106AA ENT + DB $00 + DB $00 +L0106AC ENT + DB $00 + DB $00 +L0106AE ENT + DB $00 + DB $00 +L0106B0 ENT + DB $00 + DB $00 +L0106B2 ENT + DB $00 + DB $00 +L0106B4 ENT + DB $00 + DB $00 +L0106B6 ENT + DB $00 + DB $00 +L0106B8 ENT + DB $00 + DB $00 +L0106BA ENT + DB $00 + DB $00 +L0106BC ENT + DB $00 + DB $00 +L0106BE ENT + DB $00 + DB $00 +L0106C0 ENT + DB $00 + DB $00 +L0106C2 ENT + DB $00 + DB $00 +L0106C4 ENT + DB $00 + DB $00 +L0106C6 ENT + DB $00 + DB $00 +L0106C8 ENT + DB $00 + DB $00 +L0106CA ENT + DB $00 + DB $00 +L0106CC ENT + DB $00 + DB $00 +L0106CE ENT + DB $00 + DB $00 +L0106D0 ENT + DB $00 + DB $00 +L0106D2 ENT + DB $00 + DB $00 +L0106D4 ENT + DB $00 + DB $00 +L0106D6 ENT + DB $00 + DB $00 +L0106D8 ENT + DB $00 + DB $00 +L0106DA ENT + DB $00 + DB $00 +L0106DC ENT + DB $00 + DB $00 +L0106DE ENT + DB $00 + DB $00 +L0106E0 ENT + DB $00 + DB $00 +L0106E2 ENT + DB $00 + DB $00 +L0106E4 ENT + DB $00 + DB $00 +L0106E6 ENT + DB $00 + DB $00 +L0106E8 ENT + DB $00 + DB $00 +L0106EA ENT + DB $00 + DB $00 +L0106EC ENT + DB $00 + DB $00 +L0106EE ENT + DB $00 + DB $00 +L0106F0 ENT + DB $00 + DB $00 +L0106F2 ENT + DB $00 + DB $00 +L0106F4 ENT + DB $00 + DB $00 +L0106F6 ENT + DB $00 + DB $00 +L0106F8 ENT + DB $00 + DB $00 +L0106FA ENT + DB $00 + DB $00 +L0106FC ENT + DB $00 + DB $00 +L0106FE ENT + DB $00 + DB $00 +L010700 ENT + DB $00 + DB $00 +L010702 ENT + ADRL $00000000 +L010706 ENT + ADRL $00000000 +L01070A ENT + ADRL $00000000 ; Current window +L01070E 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 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01080E 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 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01090E 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 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L010A0E ENT + TSC + SEC + SBC #$011E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX #$0123 + LDA $02,X + PHA + LDA $00,X + PHA + PEA $0100 + JSL L014B1E + PHA + PHA + LDA #$000A + LDX #$0000 + TAY + BPL L010A3C + DEX +L010A3C PHX + PHA + LDX #$0121 + LDA $00,X + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L010A52 + DEX +L010A52 PHX + PHA + _NewHandle + STA L014E87 + LDX #$011A + PLA + STA $00,X + PLA + STA $02,X + LDA L014E87 + PHA + LDA #$0042 + PHA + JSL L020000 + LDX #$011A + LDA $02,X + PHA + LDA $00,X + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0043 + PHA + JSL L020000 + LDX #$011A + LDA $02,X + PHA + LDA $00,X + PHA + LDX #$0116 + PLA + STA $00,X + PLA + STA $02,X + LDA #$0000 + TAX + PEA $0000 + PHX + TDC + CLC + ADC $01,S + ADC #$0016 + STA $01,S + LDX #$0116 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$0008 + LDX #$0000 + TAY + BPL L010AD7 + DEX +L010AD7 PHX + PHA + _BlockMove + STA L014E87 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8006 + PHA + _UniqueResourceID + STA L014E87 + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0010 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0045 + PHA + JSL L020000 + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0200 + BEQ L010B58 + BRL L010BA1 +L010B58 LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005A + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L010BA1 LDX #$011A + LDA $02,X + PHA + LDA $00,X + PHA + LDA #$0000 + PHA + LDA #$8006 + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _AddResource + PHA + LDA #$0046 + PHA + JSL L020000 + LDA #$8006 + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _WriteResource + PHA + LDA #$0047 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _ReleaseResource + PHA + LDA #$0048 + PHA + JSL L020000 + LDX #$011E + LDA $00,X + LDY $01,X + LDX #$0128 + STA $00,X + STY $01,X + PLD + TSC + CLC + ADC #$0128 + TCS + RTL + +L010C92 ENT + TSC + SEC + SBC #$003C + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDA #$0000 + STA $3A + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L010CD4 + DEX +L010CD4 LDY #$0001 + CMP $01,S + BEQ L010CDC + DEY +L010CDC TXA + CMP $03,S + BEQ L010CE4 + LDY #$0000 +L010CE4 PLA + PLA + TYA + BEQ L010CEC + BRL L010DA4 +L010CEC PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $36 + PLA + STA $38 + LDA L014E87 + BNE L010D23 + BRL L010D40 +L010D23 LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0114DC + PEA L0114DC + LDA #$0013 + PHA + JSL L014B68 + BRL L010DA1 +L010D40 LDX $38 + LDA $36 + PHX + PHA + _HLock + STA L014E87 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$36],Y + PHA + LDA [$36] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA #$0001 + STA $3A +L010DA1 BRL L010DBE +L010DA4 LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0114EF + PEA L0114EF + LDA #$0000 + PHA + JSL L014B68 +L010DBE JSL L013CFB + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L010DF1 + BRL L010E23 +L010DF1 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$4000 + LDX #$0000 + TAY + BPL L010E0D + DEX +L010E0D PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L010E23 LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L010E3C + BRL L010E6E +L010E3C LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0100 + LDX #$0000 + TAY + BPL L010E58 + DEX +L010E58 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L010E6E LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0080 + BNE L010E87 + BRL L010EB9 +L010E87 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0080 + LDX #$0000 + TAY + BPL L010EA3 + DEX +L010EA3 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L010EB9 LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L010EC5 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L010EF1 + BRL L011040 +L010EF1 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L010F11 + BRL L01102D +L010F11 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L010F29 + DEX +L010F29 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L010FCC + DEX +L010FCC PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L010FEC + EOR #$8000 +L010FEC BMI L010FF1 + BRL L011024 +L010FF1 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L01101F + BRL L011024 +L01101F INC $26 + BRL L010FF1 +L011024 LDA #$0001 + STA L0135A6 + BRL L011040 +L01102D LDA $20 + CMP #$0002 + BEQ L011037 + BRL L011040 +L011037 LDA #$0001 + STA L0135A6 + BRL L011040 +L011040 LDA L01356C + CMP #$0014 + BEQ L01104B + BRL L011099 +L01104B PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L011099 LDA L0135A6 + BNE L0110A1 + BRL L010EC5 +L0110A1 PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$4000 + LDX #$0000 + TAY + BPL L0110BA + DEX +L0110BA PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $34 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0100 + LDX #$0000 + TAY + BPL L0110EC + DEX +L0110EC PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $32 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0080 + LDX #$0000 + TAY + BPL L01111E + DEX +L01111E PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $30 + PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $20 + CMP #$0001 + BEQ L011167 + BRL L0114C4 +L011167 LDA $34 + BNE L01116E + BRL L01119C +L01116E LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$4000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0111CF +L01119C LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$4000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0111CF LDA $32 + BNE L0111D6 + BRL L011204 +L0111D6 LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L011237 +L011204 LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0100 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L011237 LDA $30 + BNE L01123E + BRL L01126C +L01123E LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L01129F +L01126C LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L01129F LDA $3A + BNE L0112A6 + BRL L011494 +L0112A6 PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _LoadResource + tax + PLA + STA L013570 + PLA + STA L013572 + phx + LDA #$2012 + PHA + JSL L020000 + LDX L013572 + LDA L013570 + PHX + PHA + _HUnlock + PHA + LDA #$2013 + PHA + JSL L020000 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + CLC + ADC #$0001 + LDX #$0000 + TAY + BPL L01131C + DEX +L01131C PHX + PHA + LDX L013572 + LDA L013570 + PHX + PHA + _SetHandleSize + PHA + LDA #$2014 + PHA + JSL L020000 + LDX L013572 + LDA L013570 + PHX + PHA + _HLock + PHA + LDA #$2015 + PHA + JSL L020000 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + CLC + ADC #$0001 + LDX #$0000 + TAY + BPL L011390 + DEX +L011390 PHX + PHA + _BlockMove + STA L014E87 + LDA #$0001 + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + PHA + LDA #$2017 + PHA + JSL L020000 + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _WriteResource + PHA + LDA #$2018 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _ReleaseResource + PHA + LDA #$2019 + PHA + JSL L020000 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA #$0001 + PHA + LDA $28 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $2C + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _InvalRect + STA L014E87 + LDA #$0001 + STA $16 + BRL L0114C1 +L011494 LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + BMI L0114A9 + DEC + BPL L0114AC +L0114A9 BRL L0114C1 +L0114AC LDX $43 + LDA $41 + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA $3F + PHA + JSL L010A0E +L0114C1 BRL L0114C9 +L0114C4 LDA #$0000 + STA $16 +L0114C9 LDA $3D + STA $43 + LDA $3C + STA $42 + LDX $16 + PLD + TSC + CLC + ADC #$0042 + TCS + TXA + RTL + +L0114DC ASC 'Error loading title' +L0114EF ENT + TSC + SEC + SBC #$0032 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0117CC + PEA L0117CC + LDA #$0008 + PHA + JSL L014B68 + LDA #$0000 + TAX + SEP #$20 + LDA #$08 + STA L0138A8,X + REP #$20 + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + LDA #$0001 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA #$0008 + PHA + _Long2Hex + PHA + LDA #$2020 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + LDX #$0000 + TAY + BPL L011595 + DEX +L011595 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L013EEF + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L0115C9 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L0115F5 + BRL L011726 +L0115F5 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L011615 + BRL L01170E +L011615 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L01162D + DEX +L01162D PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2021 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + tax + PLA + STA L013570 + PLA + STA L013572 + phx + LDA #$2022 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + tax + PLA + STA L01356E + phx + LDA #$2023 + PHA + JSL L020000 + PHA + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA L01356E + PHA + _Hex2Long + tax + LDY #$0002 + LDA [$35],Y + PHA + LDA [$35] + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + phx + LDA #$2024 + PHA + JSL L020000 + LDA #$0001 + STA L0135A6 + LDA #$0001 + STA $16 + BRL L011726 +L01170E LDA $20 + CMP #$0002 + BEQ L011718 + BRL L011726 +L011718 LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L011726 +L011726 LDA L01356C + CMP #$0014 + BEQ L011731 + BRL L01177F +L011731 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L01177F LDA L0135A6 + BNE L011787 + BRL L0115C9 +L011787 PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$2025 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $33 + STA $37 + LDA $32 + STA $36 + LDX $16 + PLD + TSC + CLC + ADC #$0036 + TCS + TXA + RTL + +L0117CC BMI L0117FE + BMI L0117FE+2 + BMI L011801+1 + BMI L011804 +L0117D4 ENT + TSC + SEC + SBC #$003C + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L012406 +L0117FE PEA L012406 +L011801 LDA #$0008 +L011804 PHA + JSL L014B68 + LDA #$0000 + TAX + SEP #$20 + LDA #$08 + STA L0138A8,X + REP #$20 + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + LDA #$0001 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA #$0008 + PHA + _Long2Hex + STA L014E87 + LDA L014E87 + PHA + LDA #$2026 + PHA + JSL L020000 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + LDX #$0000 + TAY + BPL L01187A + DEX +L01187A PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0024 + LDA [$00],Y + LDX #$0000 + TAY + BPL L0118AC + DEX +L0118AC PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L0139A8 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0020 + BNE L0118ED + BRL L01191F +L0118ED LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000B + LDX #$0000 + TAY + BPL L011909 + DEX +L011909 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L01191F LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + PHA + LDY #$0052 + LDA [$00],Y + PHA + LDA #$FFFF + LDX #$0000 + TAY + BPL L011941 + DEX +L011941 LDY #$0001 + CMP $01,S + BEQ L011949 + DEY +L011949 TXA + CMP $03,S + BEQ L011951 + LDY #$0000 +L011951 PLA + PLA + TYA + BNE L011959 + BRL L01198B +L011959 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000A + LDX #$0000 + TAY + BPL L011975 + DEX +L011975 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L01198B LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0002 + BNE L0119A4 + BRL L0119D6 +L0119A4 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0009 + LDX #$0000 + TAY + BPL L0119C0 + DEX +L0119C0 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L0119D6 LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0008 + BNE L0119EF + BRL L011A21 +L0119EF LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0008 + LDX #$0000 + TAY + BPL L011A0B + DEX +L011A0B PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L011A21 LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0040 + BNE L011A3A + BRL L011A6C +L011A3A LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0007 + LDX #$0000 + TAY + BPL L011A56 + DEX +L011A56 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L011A6C LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L011A85 + BRL L011AB7 +L011A85 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0006 + LDX #$0000 + TAY + BPL L011AA1 + DEX +L011AA1 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L011AB7 LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L011AC3 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L011AEF + BRL L011EC8 +L011AEF PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L011B0F + BRL L011EB5 +L011B0F PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0005 + LDX #$0000 + TAY + BPL L011B27 + DEX +L011B27 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2027 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2028 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2029 + PHA + JSL L020000 + PHA + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA L01356E + PHA + _Hex2Long + STA L014E87 + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$0014 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$2030 + PHA + JSL L020000 + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L011C12 + DEX +L011C12 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2031 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2032 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2033 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L011CD9 + DEX +L011CD9 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L011CF9 + EOR #$8000 +L011CF9 BMI L011CFE + BRL L011D31 +L011CFE LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L011D2C + BRL L011D31 +L011D2C INC $26 + BRL L011CFE +L011D31 LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + CLC + ADC #$0026 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L011D6B + DEX +L011D6B PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2035 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2036 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2037 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L011E32 + DEX +L011E32 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L011E52 + EOR #$8000 +L011E52 BMI L011E57 + BRL L011E8A +L011E57 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L011E85 + BRL L011E8A +L011E85 INC $26 + BRL L011E57 +L011E8A LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + CLC + ADC #$0024 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA L0135A6 + BRL L011EC8 +L011EB5 LDA $20 + CMP #$0002 + BEQ L011EBF + BRL L011EC8 +L011EBF LDA #$0001 + STA L0135A6 + BRL L011EC8 +L011EC8 LDA L01356C + CMP #$0014 + BEQ L011ED3 + BRL L011F21 +L011ED3 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L011F21 LDA L0135A6 + BNE L011F29 + BRL L011AC3 +L011F29 PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000B + LDX #$0000 + TAY + BPL L011F42 + DEX +L011F42 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $3A + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000A + LDX #$0000 + TAY + BPL L011F74 + DEX +L011F74 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $38 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0009 + LDX #$0000 + TAY + BPL L011FA6 + DEX +L011FA6 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $36 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0008 + LDX #$0000 + TAY + BPL L011FD8 + DEX +L011FD8 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $34 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0007 + LDX #$0000 + TAY + BPL L01200A + DEX +L01200A PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $32 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0006 + LDX #$0000 + TAY + BPL L01203C + DEX +L01203C PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $30 + PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$2040 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $20 + CMP #$0001 + BEQ L012091 + BRL L0123EE +L012091 LDA $3A + BNE L012098 + BRL L0120C6 +L012098 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0020 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0120F9 +L0120C6 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0020 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0120F9 LDA $38 + BNE L012100 + BRL L01212D +L012100 LDA #$FFFF + LDX #$0000 + TAY + BPL L01210A + DEX +L01210A PHX + PHA + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L012157 +L01212D LDA #$0000 + LDX #$0000 + TAY + BPL L012137 + DEX +L012137 PHX + PHA + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L012157 LDA $36 + BNE L01215E + BRL L01218C +L01215E LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0121BF +L01218C LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0002 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0121BF LDA $34 + BNE L0121C6 + BRL L0121F4 +L0121C6 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0008 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L012227 +L0121F4 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0008 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L012227 LDA $32 + BNE L01222E + BRL L01225C +L01222E LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0040 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L01228F +L01225C LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0040 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L01228F LDA $30 + BNE L012296 + BRL L01235D +L012296 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$8000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0010 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0400 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L012390 +L01235D LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$2000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L012390 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _InvalRect + STA L014E87 + LDA #$0001 + STA $16 + BRL L0123F3 +L0123EE LDA #$0000 + STA $16 +L0123F3 LDA $3D + STA $41 + LDA $3C + STA $40 + LDX $16 + PLD + TSC + CLC + ADC #$0040 + TCS + TXA + RTL + +L012406 BMI L012438 + BMI L01243A + BMI L01243B+1 + BMI L01243D+1 +L01240E ENT + TSC + SEC + SBC #$0030 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 +L012438 LDA [$33],Y +L01243A TAX +L01243B LDA [$33] +L01243D STA $00 + STX $02 + LDY #$0028 + LDA [$00],Y + LDX #$0000 + TAY + BPL L01244D + DEX +L01244D PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0030 + LDA [$00],Y + LDX #$0000 + TAY + BPL L01247F + DEX +L01247F PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0034 + LDA [$00],Y + LDX #$0000 + TAY + BPL L0124B1 + DEX +L0124B1 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L014098 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L0124E5 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L012511 + BRL L01296E +L012511 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L012531 + BRL L012956 +L012531 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0005 + LDX #$0000 + TAY + BPL L012549 + DEX +L012549 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2041 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2042 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2043 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012610 + DEX +L012610 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012630 + EOR #$8000 +L012630 BMI L012635 + BRL L012668 +L012635 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012663 + BRL L012668 +L012663 INC $26 + BRL L012635 +L012668 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0028 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L0126A2 + DEX +L0126A2 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2045 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2046 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2047 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012769 + DEX +L012769 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012789 + EOR #$8000 +L012789 BMI L01278E + BRL L0127C1 +L01278E LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L0127BC + BRL L0127C1 +L0127BC INC $26 + BRL L01278E +L0127C1 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0030 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L0127FB + DEX +L0127FB PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2049 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2050 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2051 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L0128C2 + DEX +L0128C2 PHX + PHA + _BlockMove + STA L014E87 + LDA L014E87 + PHA + LDA #$2052 + PHA + JSL L020000 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L0128EE + EOR #$8000 +L0128EE BMI L0128F3 + BRL L012926 +L0128F3 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012921 + BRL L012926 +L012921 INC $26 + BRL L0128F3 +L012926 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0034 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA $16 + LDA #$0001 + STA L0135A6 + BRL L01296E +L012956 LDA $20 + CMP #$0002 + BEQ L012960 + BRL L01296E +L012960 LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L01296E +L01296E LDA L01356C + CMP #$0014 + BEQ L012979 + BRL L0129C7 +L012979 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L0129C7 LDA L0135A6 + BNE L0129CF + BRL L0124E5 +L0129CF PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$2054 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $31 + STA $35 + LDA $30 + STA $34 + LDX $16 + PLD + TSC + CLC + ADC #$0034 + TCS + TXA + RTL + +L012A14 ENT + TSC + SEC + SBC #$0030 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$002A + LDA [$00],Y + LDX #$0000 + TAY + BPL L012A53 + DEX +L012A53 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0032 + LDA [$00],Y + LDX #$0000 + TAY + BPL L012A85 + DEX +L012A85 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + LDX #$0000 + TAY + BPL L012AB7 + DEX +L012AB7 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L0142F3 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L012AEB LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L012B17 + BRL L012F68 +L012B17 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L012B37 + BRL L012F50 +L012B37 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0005 + LDX #$0000 + TAY + BPL L012B4F + DEX +L012B4F PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2055 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2056 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2057 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012C16 + DEX +L012C16 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012C36 + EOR #$8000 +L012C36 BMI L012C3B + BRL L012C6E +L012C3B LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012C69 + BRL L012C6E +L012C69 INC $26 + BRL L012C3B +L012C6E LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$002A + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L012CA8 + DEX +L012CA8 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2059 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2060 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2061 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012D6F + DEX +L012D6F PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012D8F + EOR #$8000 +L012D8F BMI L012D94 + BRL L012DC7 +L012D94 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012DC2 + BRL L012DC7 +L012DC2 INC $26 + BRL L012D94 +L012DC7 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0032 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L012E01 + DEX +L012E01 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2063 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2064 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2065 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012EC8 + DEX +L012EC8 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012EE8 + EOR #$8000 +L012EE8 BMI L012EED + BRL L012F20 +L012EED LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012F1B + BRL L012F20 +L012F1B INC $26 + BRL L012EED +L012F20 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0036 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA $16 + LDA #$0001 + STA L0135A6 + BRL L012F68 +L012F50 LDA $20 + CMP #$0002 + BEQ L012F5A + BRL L012F68 +L012F5A LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L012F68 +L012F68 LDA L01356C + CMP #$0014 + BEQ L012F73 + BRL L012FC1 +L012F73 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L012FC1 LDA L0135A6 + BNE L012FC9 + BRL L012AEB +L012FC9 PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $31 + STA $35 + LDA $30 + STA $34 + LDX $16 + PLD + TSC + CLC + ADC #$0034 + TCS + TXA + RTL + +L013002 ENT + TSC + SEC + SBC #$0032 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$002E + LDA [$00],Y + LDX #$0000 + TAY + BPL L013041 + DEX +L013041 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$002C + LDA [$00],Y + LDX #$0000 + TAY + BPL L013073 + DEX +L013073 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L014453 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0200 + BNE L0130B4 + BRL L0130E6 +L0130B4 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0005 + LDX #$0000 + TAY + BPL L0130D0 + DEX +L0130D0 PHX + PHA + _GetCtlHandleFromID + _SetCtlValue +L0130E6 LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L0130F2 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + PLA + STA L01356C + CMP #$0021 + BEQ L01311E + BRL L013416 +L01311E PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + PLA + STA $20 + CMP #$0001 + BEQ L01313E + BRL L0133FE +L01313E PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0004 + LDX #$0000 + TAY + BPL L013156 + DEX +L013156 PHX + PHA + _GetCtlHandleFromID + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2068 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2069 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2070 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L01321D + DEX +L01321D PHX + PHA + _BlockMove + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L01323D + EOR #$8000 +L01323D BMI L013242 + BRL L013275 +L013242 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L013270 + BRL L013275 +L013270 INC $26 + BRL L013242 +L013275 LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + CLC + ADC #$002E + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0003 + LDX #$0000 + TAY + BPL L0132AF + DEX +L0132AF PHX + PHA + _GetCtlHandleFromID + 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 L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2072 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2073 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2074 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L013376 + DEX +L013376 PHX + PHA + _BlockMove + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L013396 + EOR #$8000 +L013396 BMI L01339B + BRL L0133CE +L01339B LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L0133C9 + BRL L0133CE +L0133C9 INC $26 + BRL L01339B +L0133CE LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + CLC + ADC #$002C + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA $16 + LDA #$0001 + STA L0135A6 + BRL L013416 +L0133FE LDA $20 + CMP #$0002 + BEQ L013408 + BRL L013416 +L013408 LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L013416 +L013416 LDA L01356C + CMP #$0014 + BEQ L013421 + BRL L01346F +L013421 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow +L01346F LDA L0135A6 + BNE L013477 + BRL L0130F2 +L013477 PHA + PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0005 + LDX #$0000 + TAY + BPL L013490 + DEX +L013490 PHX + PHA + _GetCtlHandleFromID + _GetCtlValue + PLA + STA $30 + LDA L014E87 + PHA + LDA #$2077 + PHA + JSL L020000 + PHA + PHA + _FrontWindow + _CloseWindow + PHA + LDA #$2078 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $20 + CMP #$0001 + BEQ L0134F1 + BRL L013559 +L0134F1 LDA $30 + BNE L0134F8 + BRL L013526 +L0134F8 LDY #$0002 + LDA [$35],Y + PHA + LDA [$35] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L013559 +L013526 LDY #$0002 + LDA [$35],Y + PHA + LDA [$35] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0200 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L013559 LDA $33 + STA $37 + LDA $32 + STA $36 + LDX $16 + PLD + TSC + CLC + ADC #$0036 + TCS + TXA + RTL + +L01356C DB $00 + DB $00 +L01356E DB $00 + DB $00 +L013570 DB $00 + DB $00 +L013572 DB $00 + DB $00 +L013574 DB $00 + DB $00 +L013576 DB $00 + DB $00 +L013578 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L013582 DB $00 + DB $00 +L013584 DB $00 + DB $00 + DB $00 + DB $00 +L013588 DB $00 + DB $00 +L01358A DB $00 + DB $00 +L01358C DB $00 + DB $00 +L01358E DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01359E DB $00 + DB $00 +L0135A0 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0135A6 DB $00 + DB $00 +L0135A8 STR '' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0136A8 STR '' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0137A8 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0138A8 STR '' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0139A8 PEA $0000 + PEA $0000 + PEA ^L0139DC + PEA L0139DC + PEA $0000 + PEA $0000 + PEA ^L013C50 + PEA L013C50 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L0139E6 + PEA L0139E6 + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L0139DC STR ' Content ' +L0139E6 DW $0050 + DW $80A0 ; frame bits + ADRL L0139DC ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; 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 L013C50 ; content defproc + DW $0074 ; content rect + DW $00D2 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L013A36 ; storage ptr + DW $0003 +L013A36 ADRL L013C28 + ADRL L013C00 + ADRL L013BE0 + ADRL L013BC0 + ADRL L013BA0 + ADRL L013B6F + ADRL L013B37 + ADRL L013AFF + ADRL L013ACB + ADRL L013A98 + ADRL L013A66 + ADRL $00000000 +L013A66 DW $000A ; pCount + ADRL $0000000B ; ID + DW $000A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013A90 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013A90 STR 'Visible' +L013A98 DW $000A ; pCount + ADRL $0000000A ; ID + DW $000A ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013AC2 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013AC2 STR 'In front' +L013ACB DW $000A ; pCount + ADRL $00000009 ; ID + DW $000A ; rect + DW $0131 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013AF5 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013AF5 STR 'Is zoomed' +L013AFF DW $000A ; pCount + ADRL $00000008 ; ID + DW $0014 ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013B29 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013B29 STR 'Controls tied' +L013B37 DW $000A ; pCount + ADRL $00000007 ; ID + DW $0014 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013B61 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013B61 STR 'Quick content' +L013B6F DW $000A ; pCount + ADRL $00000006 ; ID + DW $0014 ; rect + DW $0131 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013B99 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013B99 STR 'Dialog' +L013BA0 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0023 ; rect + DW $0046 + DW $0030 + DW $0094 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L0138A8 ; defaultRef +L013BC0 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0023 ; rect + DW $00ED + DW $0030 + DW $0111 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L013BE0 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0023 ; rect + DW $016C + DW $0030 + DW $0190 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L013C00 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0037 ; rect + DW $0042 + DW $0044 + DW $00A6 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013C28 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0037 ; rect + DW $00E8 + DW $0044 + DW $014C + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013C50 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L013CD4 + PEA L013CD4 + _FrameRect + _PenNormal + PEA $0014 + PEA $002D + _MoveTo + PEA ^L013CDC + PEA L013CDC + _DrawString + PEA $009C + PEA $002D + _MoveTo + PEA ^L013CE3 + PEA L013CE3 + _DrawString + PEA $0119 + PEA $002D + _MoveTo + PEA ^L013CEF + PEA L013CEF + _DrawString + RTL + +L013CD4 DW $0002 + DW $0004 + DW $004E + DW $01A0 +L013CDC STR 'Refcon' +L013CE3 STR 'Horz Origin' +L013CEF STR 'Vert Origin' +L013CFB PEA $0000 + PEA $0000 + PEA ^L013D2F + PEA L013D2F + PEA $0000 + PEA $0000 + PEA ^L013EB1 + PEA L013EB1 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L013D3B + PEA L013D3B + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L013D2F STR ' Title Bar ' +L013D3B DW $0050 + DW $80A0 ; frame bits + ADRL L013D2F ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; 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 L013EB1 ; content defproc + DW $007B ; content rect + DW $0122 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L013D8B ; storage ptr + DW $0003 +L013D8B ADRL L013E89 + ADRL L013E61 + ADRL L013E41 + ADRL L013DA7 + ADRL L013DDA + ADRL L013E0D + ADRL $00000000 +L013DA7 DW $000A ; pCount + ADRL $00000080 ; ID + DW $000A ; rect + DW $00E4 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013DD1 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013DD1 STR 'Moveable' +L013DDA DW $000A ; pCount + ADRL $00000100 ; ID + DW $000A ; rect + DW $007F + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013E04 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013E04 STR 'Zoom box' +L013E0D DW $000A ; pCount + ADRL $00004000 ; ID + DW $000A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013E37 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013E37 STR 'Close box' +L013E41 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $001B ; rect + DW $0014 + DW $0028 + DW $0140 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L0138A8 ; defaultRef +L013E61 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0032 ; rect + DW $0032 + DW $003F + DW $0096 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013E89 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0032 ; rect + DW $00BE + DW $003F + DW $0122 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013EB1 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L013EE7 + PEA L013EE7 + _FrameRect + _PenNormal + RTL + +L013EE7 DW $0002 + DW $0004 + DW $0047 + DW $0150 +L013EEF PEA $0000 + PEA $0000 + PEA ^L013F23 + PEA L013F23 + PEA $0000 + PEA $0000 + PEA ^L013FFE + PEA L013FFE + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L013F2E + PEA L013F2E + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L013F23 STR ' Info Bar ' +L013F2E DW $0050 + DW $80A0 ; frame bits + ADRL L013F23 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; 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 L013FFE ; content defproc + DW $0080 ; content rect + DW $01A4 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L013F7E ; storage ptr + DW $0003 +L013F7E ADRL L013FD6 + ADRL L013FAE + ADRL L013F8E + ADRL $00000000 +L013F8E DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0019 ; rect + DW $005A + DW $0026 + DW $00A8 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L0138A8 ; defaultRef +L013FAE DW $0009 ; pCount + ADRL $00000002 ; ID + DW $002D ; rect + DW $0014 + DW $003A + DW $0064 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013FD6 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $002D ; rect + DW $006E + DW $003A + DW $00BE + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013FFE PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L014082 + PEA L014082 + _FrameRect + _PenNormal + PEA $0014 + PEA $0012 + _MoveTo + PEA ^L014091 + PEA L014091 + _DrawString + PEA $005A + PEA $0012 + _MoveTo + PEA ^L0137A8 + PEA L0137A8 + _DrawString + PEA $0014 + PEA $0023 + _MoveTo + PEA ^L01408A + PEA L01408A + _DrawString + RTL + +L014082 DW $0002 + DW $0004 + DW $0042 + DW $00CE +L01408A STR 'Refcon' +L014091 STR 'Height' +L014098 PEA $0000 + PEA $0000 + PEA ^L0140CC + PEA L0140CC + PEA $0000 + PEA $0000 + PEA ^L0141F6 + PEA L0141F6 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L0140DE + PEA L0140DE + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L0140CC STR ' Vertical Scroll ' +L0140DE DW $0050 + DW $80A0 ; frame bits + ADRL L0140CC ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; 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 L0141F6 ; content defproc + DW $0071 ; content rect + DW $018B + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L01412E ; storage ptr + DW $0003 +L01412E ADRL L0141CE + ADRL L0141A6 + ADRL L014186 + ADRL L014166 + ADRL L014146 + ADRL $00000000 +L014146 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $000A ; rect + DW $007D + DW $0017 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0138A8 ; defaultRef +L014166 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0019 ; rect + DW $007D + DW $0026 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L014186 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0028 ; rect + DW $007D + DW $0035 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L0141A6 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003C ; rect + DW $0014 + DW $0049 + DW $006E + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0141CE DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003C ; rect + DW $007D + DW $0049 + DW $00D7 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0141F6 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L0142C8 + PEA L0142C8 + _FrameRect + _PenNormal + PEA $0014 + PEA $0014 + _MoveTo + PEA ^L0142D7 + PEA L0142D7 + _DrawString + PEA $00A7 + PEA $0014 + _MoveTo + PEA ^L0142D0 + PEA L0142D0 + _DrawString + PEA $0014 + PEA $0023 + _MoveTo + PEA ^L0142E1 + PEA L0142E1 + _DrawString + PEA $00A7 + PEA $0023 + _MoveTo + PEA ^L0142D0 + PEA L0142D0 + _DrawString + PEA $0014 + PEA $0032 + _MoveTo + PEA ^L0142EB + PEA L0142EB + _DrawString + PEA $00A7 + PEA $0032 + _MoveTo + PEA ^L0142D0 + PEA L0142D0 + _DrawString + RTL + +L0142C8 DW $0002 + DW $0004 + DW $0051 + DW $00E6 +L0142D0 STR 'pixels' +L0142D7 STR 'Data Size' +L0142E1 STR 'Scroll by' +L0142EB STR 'Page by' +L0142F3 PEA $0000 + PEA $0000 + PEA ^L014327 + PEA L014327 + PEA $0000 + PEA $0000 + PEA ^L0141F6 + PEA L0141F6 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L01433B + PEA L01433B + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L014327 STR ' Horizontal Scroll ' +L01433B DW $0050 + DW $80A0 ; frame bits + ADRL L014327 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; 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 L0141F6 ; content defproc + DW $0071 ; content rect + DW $018B + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L01438B ; storage ptr + DW $0003 +L01438B ADRL L01442B + ADRL L014403 + ADRL L0143E3 + ADRL L0143C3 + ADRL L0143A3 + ADRL $00000000 +L0143A3 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $000A ; rect + DW $007D + DW $0017 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0138A8 ; defaultRef +L0143C3 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0019 ; rect + DW $007D + DW $0026 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L0143E3 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0028 ; rect + DW $007D + DW $0035 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L014403 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003C ; rect + DW $0014 + DW $0049 + DW $006E + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L01442B DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003C ; rect + DW $007D + DW $0049 + DW $00D7 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L014453 PEA $0000 + PEA $0000 + PEA ^L014487 + PEA L014487 + PEA $0000 + PEA $0000 + PEA ^L0145D0 + PEA L0145D0 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L014492 + PEA L014492 + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L014487 STR ' Size Box ' +L014492 DW $0050 + DW $80A0 ; frame bits + ADRL L014487 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; 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 L0145D0 ; content defproc + DW $0071 ; content rect + DW $0162 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L0144E2 ; storage ptr + DW $0003 +L0144E2 ADRL L0145A8 + ADRL L014580 + ADRL L014560 + ADRL L014540 + ADRL L0144FA + ADRL $00000000 +L0144FA DW $000A ; pCount + ADRL $00000005 ; ID + DW $000A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L014524 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L014524 STR 'Grow/zoom don'27't move origin' +L014540 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0019 ; rect + DW $008C + DW $0026 + DW $00B0 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L014560 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0028 ; rect + DW $008C + DW $0035 + DW $00B0 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L014580 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003C ; rect + DW $0020 + DW $0049 + DW $007A + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0145A8 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003C ; rect + DW $009A + DW $0049 + DW $00F4 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0145D0 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L01466E + PEA L01466E + _FrameRect + _PenNormal + PEA $0014 + PEA $0023 + _MoveTo + PEA ^L01467D + PEA L01467D + _DrawString + PEA $00B8 + PEA $0023 + _MoveTo + PEA ^L014676 + PEA L014676 + _DrawString + PEA $0014 + PEA $0032 + _MoveTo + PEA ^L01468C + PEA L01468C + _DrawString + PEA $00B8 + PEA $0032 + _MoveTo + PEA ^L014676 + PEA L014676 + _DrawString + RTL + +L01466E DW $0002 + DW $0004 + DW $0051 + DW $0110 +L014676 STR 'pixels' +L01467D STR 'Max grow width' +L01468C STR 'Max grow height' +L01469C DW $0000 + DW $0F0F + DW $0004 + DW $00F0 + DW $00F0 +L0146A6 STR 'Change' +L0146AD STR 'Cancel' +L0146B4 ENT + DB $00 + DB $00 +L0146B6 ENT + DB $00 + DB $00 +L0146B8 ENT + DB $00 + DB $00 +L0146BA ENT + DB $00 + DB $00 +L0146BC ENT + DB $00 + DB $00 +L0146BE ENT + DB $00 + DB $00 +L0146C0 ENT + DB $00 + DB $00 +L0146C2 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 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0147C4 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 L014A74 + STA $08 + STX $0A + BCS L014818 + PHX + PHA + LDA $06 + PHA + PEA $0001 + _Long2Dec + BCC L0147FA + STZ $06 + BRA L014816 +L0147FA LDY #$0000 + SEP #$20 +L0147FF LDA #$20 + CMP [$08],Y + BNE L01480A + INY + DEC $06 + BNE L0147FF +L01480A REP #$20 + TYA + CLC + ADC $08 + STA $08 + BCC L014816 + INC $0A +L014816 PLD + RTL + +L014818 PEA $0005 + JSL L014F26 + STZ $06 + PLA + BRA L014816 +L014824 TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + PEA $0000 + LDA $07 + PHA + LDA $05 + PHA + LDA $03 + PHA + JSR L014EC5 + PEA $0001 + _Dec2Int + PLX + LDA $01 + STA $07 + LDA $00 + STA $06 + CLC + TDC + ADC #$0005 + PLD + TCS + TXA + RTL + +L01485A ENT + TDC + TAX + TSC + SEC + SBC #$0015 + TCD + DEC + TCS + PHX + LDA $19 + DEC + STA $06 + ASL + ADC $06 + ASL + STA $06 + STA $08 + LDA $19 + STA $14 + STZ $00 +L014878 LDX $08 + LDA $1F,X + PHA + LDA $1D,X + PHA + LDA $1B,X + PHA + JSL L014ADD + CLC + ADC $00 + STA $00 + SEC + LDA $08 + SBC #$0006 + STA $08 + DEC $14 + BNE L014878 + LDA $00 + BPL L01489F + LDA #$7FFF +L01489F BEQ L0148FA + LDX #$0000 + JSR L014A74 + STA $02 + STX $04 + BCS L01491E + LDA $06 + STA $08 + LDA $19 + STA $14 + STZ $00 +L0148B7 LDX $08 + LDA $1F,X + PHA + LDA $1D,X + PHA + LDA $1B,X + PHA + JSR L014EC5 + PLA + BNE L0148CC + PLA + PLA + BRA L0148D9 +L0148CC STA $0A + PLA + STA $0C + PLA + STA $0E + JSR L014929 + BCS L01491A +L0148D9 SEC + LDA $08 + SBC #$0006 + STA $08 + DEC $14 + BNE L0148B7 + LDA $00 + CMP #$0001 + BNE L0148FA + LDA [$02] + AND #$00FF + STA $04 + LDA #$FFFF + STA $00 + STA $02 +L0148FA LDX $06 + LDA $00 + STA $1B,X + LDA $02 + STA $1D,X + LDA $04 + STA $1F,X + LDA $17 + STA $19,X + LDA $16 + STA $18,X + CLC + TDC + ADC $06 + ADC #$0017 + PLD + TCS + RTL + +L01491A DEC $00 + BRA L0148FA +L01491E PEA $0005 + JSL L014F26 + STZ $00 + BRA L0148FA +L014929 CLC + LDA $0A + ADC $00 + BPL L01493B + SEC + PHP + LDA #$7FFF + SBC $00 + STA $0A + BRA L01493D +L01493B CLC + PHP +L01493D LDY $0A + BEQ L01497B + CLC + LDA $00 + ADC $02 + STA $10 + LDA #$0000 + ADC $04 + STA $12 + CLC + LDA $00 + ADC $0A + STA $00 + TYA + LSR + BCC L014971 + SEP #$20 + LDA [$0C] + STA [$10] + REP #$20 + INC $0C + BNE L014968 + INC $0E +L014968 INC $10 + BNE L01496E + INC $12 +L01496E DEY + BEQ L01497B +L014971 DEY + DEY +L014973 LDA [$0C],Y + STA [$10],Y + DEY + DEY + BPL L014973 +L01497B PLP + RTS + +L01497D ENT + TDC + TAX + TSC + SEC + SBC #$000F + TCD + DEC + TCS + PHX + LDA $13 + BNE L01498F + BRL L014A25 +L01498F LDA $15 + BNE L014996 + BRL L014A25 +L014996 LDA $1B + PHA + LDA $19 + PHA + LDA $17 + PHA + JSR L014EC5 + PLA + STA $0E + PLA + STA $0A + PLA + STA $0C + LDA $0E + BEQ L014A25 + LDA $15 + CMP $0E + BEQ L0149B7 + BCS L014A25 +L0149B7 DEC $15 + CLC + LDA $15 + ADC $13 + STA $00 + CMP $0E + BCS L014A0B + SEC + LDA $0E + SBC $00 + BEQ L014A25 + TAX + CLC + LDA $15 + ADC $0A + STA $02 + LDA #$0000 + ADC $0C + STA $04 + CLC + LDA $00 + ADC $0A + STA $06 + LDA #$0000 + ADC $0C + STA $08 + CLC + TXA + ADC $15 + STA $15 + LDY #$0000 + TXA + LSR + TAX + BCC L014A02 + SEP #$20 + LDA [$06] + STA [$02] + REP #$20 + INY + TXA + BEQ L014A0B +L014A02 LDA [$06],Y + STA [$02],Y + INY + INY + DEX + BNE L014A02 +L014A0B LDA $17 + INC + BPL L014A1A + SEP #$20 + LDA $15 + STA [$19] + REP #$20 + BRA L014A25 +L014A1A LDA #$0000 + LDY $15 + SEP #$20 + STA [$0A],Y + REP #$20 +L014A25 LDA $11 + STA $1B + LDA $10 + STA $1A + CLC + TDC + ADC #$0019 + PLD + TCS + RTL + +L014A35 ENT + LDA $02 + PHA + LDA $00 + PHA + PHB + PHK + PLB + LDA L014E8F + STA $02 + LDA L014E8D + STA $00 +L014A48 LDA $00 + ORA $02 + BEQ L014A66 + LDA $02 + PHA + LDA $00 + PHA + LDY #$0002 + LDA [$00] + TAX + LDA [$00],Y + STA $02 + STX $00 + JSL L01519E + BRA L014A48 +L014A66 STZ L014E8D + STZ L014E8F + PLB + PLA + STA $00 + PLA + STA $02 + RTL + +L014A74 PHB + PHK + PLB + CLC + ADC #$0004 + BCC L014A7E + INX +L014A7E PHX + PHA + JSL L014C1B + STA L014AD9 + STX L014ADB + ORA L014ADB + BEQ L014AD6 + LDA $02 + PHA + LDA $00 + PHA + LDA L014ADB + STA $02 + LDA L014AD9 + STA $00 + LDA L014E8D + STA [$00] + LDY #$0002 + LDA L014E8F + STA [$00],Y + LDA L014ADB + STA L014E8F + LDA L014AD9 + STA L014E8D + CLC + LDA L014AD9 + ADC #$0004 + STA L014AD9 + BCC L014AC7 + INC L014ADB +L014AC7 PLA + STA $00 + PLA + STA $02 + LDA L014AD9 + LDX L014ADB + PLB + CLC + RTS + +L014AD6 PLB + SEC + RTS + +L014AD9 BRK $00 +L014ADB BRK $00 +L014ADD ENT + PHD + TSC + TCD + LDY #$0000 + LDA $06 + BPL L014AFE + CMP #$FFFF + BNE L014AF6 + LDY #$0001 + LDA $0A + BNE L014B0D + DEY + BRA L014B0D +L014AF6 LDA [$08] + AND #$00FF + TAY + BRA L014B0D +L014AFE BEQ L014B0D + SEP #$20 +L014B02 LDA [$08],Y + BEQ L014B0B + INY + CPY $06 + BCC L014B02 +L014B0B REP #$20 +L014B0D LDA $02 + STA $08 + LDA $04 + STA $0A + PLD + TSC + CLC + ADC #$0006 + TCS + TYA + RTL + +L014B1E ENT + TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + LDA $03 + LSR + BCC L014B44 + SEP #$20 + LDA [$05] + STA [$09] + REP #$20 + INC $05 + BNE L014B3C + INC $07 +L014B3C INC $09 + BNE L014B42 + INC $0B +L014B42 DEC $03 +L014B44 LDY $03 + BEQ L014B58 + DEY + DEY + BEQ L014B54 +L014B4C LDA [$05],Y + STA [$09],Y + DEY + DEY + BNE L014B4C +L014B54 LDA [$05] + STA [$09] +L014B58 LDA $01 + STA $0B + LDA $00 + STA $0A + CLC + TDC + ADC #$0009 + PLD + TCS + RTL + +L014B68 ENT + TDC + TAX + TSC + SEC + SBC #$0005 + TCD + DEC + TCS + PHX + LDA $09 + CMP $0F + BNE L014B95 + LDA $13 + PHA + LDA $11 + PHA + LDA $0D + PHA + LDA $0B + PHA + LDA $09 + BPL L014B8E + EOR #$FFFF + INC + INC +L014B8E PHA + JSL L014B1E + BRA L014C0B +L014B95 LDA $0D + PHA + LDA $0B + PHA + LDA $09 + PHA + JSR L014EC5 + PLA + STA $09 + PLA + STA $0B + PLA + STA $0D + LDA $13 + STA $04 + LDA $11 + STA $02 + LDA $0F + BPL L014BC0 + EOR #$FFFF + INC + INC $11 + BNE L014BC0 + INC $13 +L014BC0 CMP $09 + BCC L014BC6 + LDA $09 +L014BC6 TAY + STA $00 + BEQ L014BEF + LSR + BCC L014BE5 + SEP #$20 + LDA [$0B] + STA [$11] + REP #$20 + INC $0B + BNE L014BDC + INC $0D +L014BDC INC $11 + BNE L014BE2 + INC $13 +L014BE2 DEY + BEQ L014BEF +L014BE5 DEY + DEY +L014BE7 LDA [$0B],Y + STA [$11],Y + DEY + DEY + BPL L014BE7 +L014BEF LDY $0F + BPL L014BFD + SEP #$20 + LDA $00 + STA [$02] + REP #$20 + BRA L014C0B +L014BFD LDY $00 + CPY $0F + BCS L014C0B + SEP #$20 + LDA #$00 + STA [$02],Y + REP #$20 +L014C0B LDA $07 + STA $13 + LDA $06 + STA $12 + CLC + TDC + ADC #$0011 + PLD + TCS + RTL + +L014C1B LDA $06,S + TAX + LDA $04,S + CPX #$0000 + BNE L014C35 + CMP #$0FFC + BCS L014C35 + CMP #$0000 + BEQ L014C39 + JSL L014C46 + BRA L014C39 +L014C35 JSL L014D57 +L014C39 TAY + LDA $00,S + STA $04,S + LDA $02,S + STA $06,S + PLA + PLA + TYA + RTL + +L014C46 PHA + CLC + ADC #$0004 + PHA + TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDA #$0008 +L014C57 CMP $0B + BCS L014C5E + ASL + BRA L014C57 +L014C5E STA $0D + JSL L01532D + STX $09 + STX $0B +L014C68 LDX $0B + LDAL L015176,X + ORAL L015178,X + BNE L014CC3 + CPX #$0024 + BCC L014CB7 + LDA #$1000 + LDX #$0000 + JSL L014D57 + STA $01 + STAL L01519A + STX $03 + TXA + STAL L01519C + ORA $01 + BNE L014C97 + BRL L014D42 +L014C97 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 L014D23 + BRA L014D18 +L014CB7 CLC + LDA $0B + ADC #$0004 + STA $0B + ASL $0D + BRA L014D18 +L014CC3 LDX $0B + CPX $09 + BCC L014D10 + BEQ L014D10 + LDAL L015178,X + STA $03 + LDAL L015176,X + STA $01 + LDY $0D + LDX $03 + JSL L014DF2 + 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 L01533E + LDY $0D + LDA $05 + LDX $07 + JSL L01533E +L014D10 SEC + LDA $0B + SBC #$0004 + STA $0B +L014D18 LDA $0B + BMI L014D23 + CMP $09 + BCC L014D23 + BRL L014C68 +L014D23 LDX $09 + LDAL L015176,X + STA $01 + LDAL L015178,X + STA $03 + LDY $0D + LDX $03 + LDA $01 + JSL L014DF2 + LDA [$01] + AND #$7FFF + STA [$01] +L014D42 LDA $01 + LDX $03 + CLC + ADC #$0004 + BCC L014D4D + INX +L014D4D TAY + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L014D57 CLC + ADC #$000E + BCC L014D5E + INX +L014D5E PHA + PHA + PHX + PHA + LDAL L014E89 + PHA + PEA $C010 + PEA $0000 + PEA $0000 + _NewHandle + BCC L014D80 + PLA + PLA + LDA #$0000 + TAX + RTL + +L014D80 PHA + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$05] + STA $01 + LDA [$05],Y + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y + LDAL L015172 + INY + INY + STA [$01],Y + LDAL L015174 + 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 L015172 + STA $05 + LDAL L015174 + STA $07 + ORA $05 + BEQ L014DD5 + LDY #$0002 + LDA $01 + STA [$05] + LDA $03 + STA [$05],Y +L014DD5 LDA $01 + STAL L015172 + LDA $03 + STAL L015174 + CLC + LDA $01 + ADC #$000E + LDX $03 + BCC L014DEC + INX +L014DEC PLD + PLY + PLY + PLY + PLY + RTL + +L014DF2 PHX + PHA + LDA #$0000 + PHA + PHA + PHA + PHA + TSC + PHD + TCD + TYA + JSL L01532D + LDAL L015176,X + STA $05 + LDAL L015178,X + STA $07 +L014E0F LDA $05 + CMP $09 + BNE L014E1B + LDA $07 + CMP $0B + BEQ L014E32 +L014E1B LDA $05 + STA $01 + LDA $07 + STA $03 + LDY #$0004 + LDA [$01],Y + STA $05 + INY + INY + LDA [$01],Y + STA $07 + BRA L014E0F +L014E32 LDY #$0004 + LDA $01 + ORA $02 + BNE L014E4B + LDA [$05],Y + STAL L015176,X + INY + INY + LDA [$05],Y + STAL L015178,X + BRA L014E55 +L014E4B LDA [$05],Y + STA [$01],Y + INY + INY + LDA [$05],Y + STA [$01],Y +L014E55 PLD + TSC + CLC + ADC #$000C + TCS + RTL + + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + ADRL L014E69 +L014E69 DB $00 + DB $00 + ADRL L014E6F +L014E6F DB $00 + DB $00 + DB $00 + DB $00 + ADRL L014E77 +L014E77 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L014E87 ENT + DB $00 + DB $00 +L014E89 DB $00 + DB $00 + DB $00 + DB $00 +L014E8D DB $00 + DB $00 +L014E8F DB $00 + DB $00 +L014E91 DB $00 + DB $00 +L014E93 DB $00 + DB $00 +L014E95 DB $00 +L014E96 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L014EA3 PHA + JSL L015369 + LDAL L014E89 + PHA + _DisposeAll + PLA + JSL GSOS + DW $0029 ; Quit + ADRL L014EBF +L014EBF ADRL L014EC3 ; path name +L014EC3 DW $0000 ; flags +L014EC5 PHD + TSC + TCD + LDA $05 + BEQ L014F15 + BPL L014F02 + INC + BNE L014EF3 + LDA $09 + AND #$00FF + BNE L014EDC + STZ $05 + BRA L014F15 +L014EDC LDA #$0001 + STA $05 + LDA $09 + STAL L014F17 + LDA #L014F17 + STA $07 + LDA #^L014F17 + STA $09 + BRA L014F15 +L014EF3 LDA [$07] + AND #$00FF + STA $05 + INC $07 + BNE L014F00 + INC $09 +L014F00 BRA L014F15 +L014F02 LDX $05 + LDY #$0000 + SEP #$20 +L014F09 LDA [$07],Y + BEQ L014F11 + INY + DEX + BNE L014F09 +L014F11 STY $05 + REP #$20 +L014F15 PLD + RTS + +L014F17 DW $0000 +L014F19 ENT + PEA $0008 + JSL L014F26 + LDA #$FFFF + JMP L014EA3 + +L014F26 LDA $04,S + PHA + JSL L015049 + JMPL L014F31 + +L014F31 PHK + PLB + LDA L014E95 + BNE L014F3B + BRL L015043 +L014F3B BRA L014F55 +L014F3D STR 'Error occurred at line ' +L014F55 PEA ^L014F3D + PEA L014F3D + _ErrWriteString + LDA L014E95 + PHA + PEA $0001 + PEA $0000 + PEA $0001 + JSL L01545A + BRA L014F84 +L014F75 STR ' in procedure ' +L014F84 PEA ^L014F75 + PEA L014F75 + _ErrWriteString + PEA ^L014E96 + PEA L014E96 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L01548A + JSL L01537E + LDA L014E91 + ORA L014E93 + BNE L014FB3 + BRL L015043 +L014FB3 PEA $000D + _ErrWriteChar + PEA $000A + _ErrWriteChar + BRA L014FD6 +L014FC9 STR ' Line Name' +L014FD6 PEA ^L014FC9 + PEA L014FC9 + _ErrWriteLine + BRA L014FF2 +L014FE5 STR ' ---- ----' +L014FF2 PEA ^L014FE5 + PEA L014FE5 + _ErrWriteLine +L014FFF LDA L014E91 + ORA L014E93 + BEQ L015043 + LDA L014E95 + PHA + PEA $0006 + PEA $0000 + PEA $0001 + JSL L01545A + BRA L01501D +L01501A STR ' ' +L01501D PEA ^L01501A + PEA L01501A + _ErrWriteString + PEA ^L014E96 + PEA L014E96 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L01548A + JSL L01537E + BRA L014FFF +L015043 LDA #$FFFF + BRL L014EA3 +L015049 PHD + PEA ^L015073 + PEA L015073 + TSC + TCD + LDX $0A +L015054 DEX + BEQ L015063 + SEC + LDA [$01] + AND #$00FF + ADC $01 + STA $01 + BRA L015054 +L015063 _ErrWriteLine + PLD + LDA $02,S + STA $04,S + PLA + STA $01,S + RTL + +L015073 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' +L015172 DB $00 + DB $00 +L015174 DB $00 + DB $00 +L015176 DB $00 + DB $00 +L015178 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01519A DB $00 + DB $00 +L01519C DB $00 + DB $00 +L01519E TSC + PHD + TCD + LDY $04 + LDX $06 + SEC + TYA + SBC #$0002 + STA $04 + BCS L0151B0 + DEC $06 +L0151B0 LDA [$04] + BNE L0151BB + TYA + JSL L0152B9 + BRA L0151C0 +L0151BB TYA + JSL L0151CC +L0151C0 LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L0151CC PHA + PHA + PHA + SEC + SBC #$0004 + BCS L0151D6 + DEX +L0151D6 PHX + PHA + TSC + PHD + TCD + LDA [$01] + BPL L0151E2 + BRL L0152B1 +L0151E2 LDA [$01] + ORA #$8000 + STA [$01] + LDY #$0002 + LDA [$01],Y + STA $09 + TAY + LDA $01 + LDX $03 + JSL L01533E +L0151F9 LDA $09 + CMP #$1000 + BCC L015203 + BRL L01529F +L015203 LDA [$01] + AND $09 + BEQ L01525A + SEC + LDA $01 + SBC $09 + STA $05 + LDA $03 + SBC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BEQ L015223 + BRL L0152B1 +L015223 LDA [$05] + BMI L01522A + BRL L0152B1 +L01522A LDY $09 + LDX $03 + LDA $01 + JSL L014DF2 + LDY $09 + LDX $07 + LDA $05 + JSL L014DF2 + LDA $05 + STA $01 + LDA $07 + STA $03 + ASL $09 + LDA $09 + LDY #$0002 + STA [$01],Y + TAY + LDA $01 + LDX $03 + JSL L01533E + BRA L0151F9 +L01525A CLC + LDA $01 + ADC $09 + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BNE L0152B1 + LDA [$05] + BPL L0152B1 + LDY $09 + LDX $03 + LDA $01 + JSL L014DF2 + LDY $09 + LDX $07 + LDA $05 + JSL L014DF2 + ASL $09 + LDY #$0002 + LDA $09 + STA [$01],Y + LDY $09 + LDA $01 + LDX $03 + JSL L01533E + BRL L0151F9 +L01529F LDY $09 + LDA $01 + LDX $03 + JSL L014DF2 + LDA $01 + LDX $03 + JSL L0152B9 +L0152B1 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L0152B9 PHA + PHA + SEC + SBC #$000E + BCS L0152C2 + DEX +L0152C2 PHX + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$01],Y + ORA [$01] + BNE L0152E3 + LDY #$0004 + LDA [$01],Y + STAL L015172 + INY + INY + LDA [$01],Y + STAL L015174 + BRA L0152F8 +L0152E3 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 +L0152F8 LDY #$0004 + LDA [$01],Y + TAX + INY + INY + ORA [$01],Y + BEQ L015315 + LDA [$01],Y + STA $07 + STX $05 + LDY #$0002 + LDA [$01] + STA [$05] + LDA [$01],Y + STA [$05],Y +L015315 LDY #$000A + LDA [$01],Y + PHA + DEY + DEY + LDA [$01],Y + PHA + _DisposeHandle + PLD + PLA + PLA + PLA + PLA + RTL + +L01532D LDX #$0000 + DEC + LSR + LSR + LSR + BEQ L01533D +L015336 INX + INX + INX + INX + LSR + BNE L015336 +L01533D RTL + +L01533E PHX + PHA + TSC + PHD + TCD + TYA + JSL L01532D + LDY #$0004 + LDAL L015176,X + STA [$01],Y + INY + INY + LDAL L015178,X + STA [$01],Y + LDA $01 + STAL L015176,X + LDA $03 + STAL L015178,X + PLD + PLA + PLA + RTL + +L015369 PHB + PHK + PLB + STZ L015172 + STZ L015174 + LDX #$0026 +L015375 STZ L015176,X + DEX + DEX + BPL L015375 + PLB + RTL + +L01537E PHB + PHK + PLB + LDA L014E93 + STA $02 + LDA L014E91 + STA $00 + LDY #$0010 +L01538E LDA [$00],Y + STA L014E91,Y + DEY + DEY + BPL L01538E + LDA $02 + PHA + LDA $00 + PHA + JSL L01519E + 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 +L0153AF ENT + LDY #$0000 + BIT #$8000 + BEQ L0153BC + EOR #$FFFF + INC + INY +L0153BC PHA + TXA + BEQ L0153F7 + BPL L0153C7 + DEY + EOR #$FFFF + INC +L0153C7 PHA + PHY + TSC + PHD + TCD + LDA #$0000 + LDY #$0010 +L0153D2 ASL $05 + ROL + SEC + SBC $03 + BCS L0153E1 + ADC $03 + DEY + BNE L0153D2 + BRA L0153E6 +L0153E1 INC $05 + DEY + BNE L0153D2 +L0153E6 TAX + LDA $05 + LDY $01 + BEQ L0153F1 + EOR #$FFFF + INC +L0153F1 CLV + PLD + PLY + PLY + PLY + RTL + +L0153F7 PLA + SEP #$40 + RTL + +L0153FB ENT + TAY + PHD + TSC + SEC + SBC #$0007 + TCD + DEC + TCS + TYA + LDY #$0000 + BIT #$8000 + BEQ L015413 + EOR #$FFFF + INC + INY +L015413 STA $02 + TXA + BPL L01541D + DEY + EOR #$FFFF + INC +L01541D STA $04 + STY $06 + LDY #$0010 + LDA #$0000 +L015427 LSR $02 + BCC L01542E + CLC + ADC $04 +L01542E ROR + ROR $00 + DEY + BNE L015427 + TAX + BNE L01544F + LDA $00 + BMI L01544F + LDY $06 + BEQ L015443 + EOR #$FFFF + INC +L015443 TAY + TDC + CLC + ADC #$0007 + TCS + PLA + TCD + TYA + CLV + RTL + +L01544F TDC + CLC + ADC #$0007 + TCS + PLA + TCD + SEP #$40 + RTL + +L01545A TSC + PHD + TCD + PEA ^L0154E6 + PEA L0154E6 + LDA $0A + JSL L0154CF + PEA ^L0154E6 + PEA L0154E6 + LDA $08 + PHA + LDA $06 + PHA + LDA $04 + PHA + JSL L01548A + LDA $02 + STA $0A + LDA $00 + STA $08 + PLD + PLA + PLA + PLA + PLA + RTL + +L01548A TSC + PHD + TCD + INC $0A + BNE L015493 + INC $0C +L015493 LDA [$0A] + AND #$00FF + SEC + SBC $08 + BPL L0154A7 + EOR #$FFFF + INC + LDY $04 + JSL L015585 +L0154A7 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 + +L0154CF PHA + PEA ^L015510 + PEA L015510 + PEA $0028 + PEA $0001 + _Int2Dec + JMP L015538 + +L0154E6 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 +L015510 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L015538 PHD + TSC + TCD + SEP #$20 + LDX #$0000 + LDA #$20 +L015542 CMPL L015510,X + BNE L01554B + INX + BRA L015542 +L01554B REP #$20 + TXA + SEC + SBC #$0028 + EOR #$FFFF + INC + SEP #$20 + CMP [$06] + BEQ L01555E + BCS L015575 +L01555E LDY #$0001 + STA [$06],Y +L015563 LDAL L015510,X + INY + STA [$06],Y + INX + CPX #$0028 + BCC L015563 + REP #$20 + CLV + BRA L015579 +L015575 REP #$20 + SEP #$40 +L015579 LDA $02,S + STA $06,S + LDA $04,S + STA $08,S + PLD + PLA + PLA + RTL + +L015585 PHA + TYA + XBA + CLC + ADC #$180C + PHA + PHD + TSC + TCD +L015590 PEA $0020 + LDX $03 + JSL $E10000 + DEC $05 + BNE L015590 + PLD + PLA + PLA + RTL + diff --git a/genesys/edit/WINSETUP.S b/genesys/edit/WINSETUP.S new file mode 100644 index 0000000..9fe2c1c --- /dev/null +++ b/genesys/edit/WINSETUP.S @@ -0,0 +1,13903 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Event.Macs + use 4/Int.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/Util.Macs + use 4/Window.Macs + +*---------------------------- + + EXT L0106A0 + EXT L010698 + EXT L01069C + EXT L014B1E + EXT L014E87 + EXT L014B68 + EXT L0114EF + EXT L010A0E + EXT L01080E + EXT L01068E + EXT L0106A4 + EXT L0105BB + EXT L030000 + EXT L030B90 + EXT L0300B1 + EXT L030171 + EXT L030255 + EXT L0303C5 + EXT L0304C5 + EXT L030903 + EXT L030A61 + EXT L0106FA + EXT L0106F8 + EXT L010419 + EXT L01070A + EXT L010702 + EXT L0106A8 + EXT L0106AA + EXT L0106AE + EXT L0106AC + EXT L0106B2 + EXT L0106B0 + EXT L0106B6 + EXT L0106B4 + EXT L0106BA + EXT L0106B8 + EXT L0106BE + EXT L0106BC + EXT L0106C0 + EXT L0106C2 + EXT L0106C4 + EXT L0106C6 + EXT L0106C8 + EXT L0106CA + EXT L0106CC + EXT L0106CE + EXT L0106D0 + EXT L0106D2 + EXT L0106D6 + EXT L0106D4 + EXT L0106D8 + EXT L0106DC + EXT L0106DA + EXT L0106E0 + EXT L0106DE + EXT L0106E4 + EXT L0106E2 + EXT L0106E8 + EXT L0106E6 + EXT L0106EC + EXT L0106EA + EXT L0106F0 + EXT L0106EE + EXT L0106F4 + EXT L0106F2 + EXT L0106F6 + EXT L010706 + EXT L01000E + EXT L0106A6 + EXT L040B72 + EXT L010700 + EXT L010202 + EXT L010210 + EXT L01021E + EXT L0434E2 + EXT L01060C + EXT L0103D4 + EXT L0106FC + EXT L0106FE + EXT L04116F + EXT L0409AD + EXT L0104A0 + EXT L041C02 + EXT L010C92 + EXT L0403A5 + EXT L01240E + EXT L012A14 + EXT L013002 + EXT L04067F + EXT L0117D4 + EXT L014F19 + EXT L010690 + EXT L010692 + EXT L010694 + EXT L010696 + EXT L01063D + EXT L042E6F + EXT L042683 + EXT L01070E + EXT L01004E + EXT L040000 + +*---------------------------- + +L020000 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA $1B + BNE L020010 + BRL L02008B +L020010 LDX #^L01080E + LDA #L01080E + PHX + PHA + LDA #$0100 + PHA + PEA ^L02009B + PEA L02009B + LDA #$0057 + PHA + JSL L014B68 + LDA $1B + PHA + LDA #$000B + DEC + TAX + TXA + CLC + ADC #L01080E + PEA ^L01080E + PHA + LDA #$0004 + PHA + _Int2Hex + STA L014E87 + LDA $19 + PHA + LDA #$0014 + DEC + TAX + TXA + CLC + ADC #L01080E + PEA ^L01080E + PHA + LDA #$0004 + PHA + _Int2Hex + STA L014E87 + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L01080E + LDA #L01080E + PHX + PHA + _AlertWindow + STA L014E87 + PLA + BEQ L02008B + BRL L02008B +L02008B LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L02009B ASC '52~Error $0000 at $0000. Please record a' + ASC 'nd report this Window Editor error to SS' + ASC 'Si.~^#0' +L0200F2 TSC + SEC + SBC #$0062 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L01068E + PLB + PLB + PHA + _GetCurResourceFile + STA L014E87 + PLA + STA $58 + LDA L014E87 + PHA + LDA #$0023 + PHA + JSL L020000 + LDA L0106A4 + PHA + _SetCurResourceFile + STA L014E87 + LDA L014E87 + PHA + LDA #$0024 + PHA + JSL L020000 + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $16 + PLA + STA $18 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA $1A + PLA + STA $1C + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$005A + PHA + _GetPortRect + STA L014E87 + LDA #$0002 + PHA + LDA #$0001 + PHA + _SetPenSize + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0020 + BNE L0201B4 + BRL L0201BC +L0201B4 LDA #$000E + STA $50 + BRL L0201C1 +L0201BC LDA #$000D + STA $50 +L0201C1 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + PHA + LDY #$0052 + LDA [$00],Y + PHA + LDA #$FFFF + LDX #$0000 + TAY + BPL L0201E3 + DEX +L0201E3 LDY #$0001 + CMP $01,S + BEQ L0201EB + DEY +L0201EB TXA + CMP $03,S + BEQ L0201F3 + LDY #$0000 +L0201F3 PLA + PLA + TYA + BNE L0201FB + BRL L020203 +L0201FB LDA #$000E + STA $52 + BRL L020208 +L020203 LDA #$0001 + STA $52 +L020208 LDA $50 + PHA + LDA $52 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _SetPenPat + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _FrameRect + STA L014E87 + _PenNormal + STA L014E87 + PHA + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $54 + PLA + STA $56 + LDA L014E87 + BEQ L020282 + BRL L0202F5 +L020282 LDX $56 + LDA $54 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0034 + PHA + JSL L020000 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + LDY #$0002 + LDA [$54],Y + PHA + LDA [$54] + PHA + PEA $000A + JSL L014B1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0035 + PHA + JSL L020000 + BRL L02030E +L0202F5 LDA #$0000 + STA $46 + LDA #$0F0F + STA $48 + LDA #$0000 + STA $4A + LDA #$F0FF + STA $4C + LDA #$00F0 + STA $4E +L02030E PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030000 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L020334 + BRL L020344 +L020334 PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030B90 + BRL L020439 +L020344 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L02035D + BRL L0203C9 +L02035D PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L0300B1 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030171 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030255 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L0303C5 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L0304C5 +L0203C9 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0203E2 + BRL L020413 +L0203E2 PEA $0000 + TDC + CLC + ADC #$0046 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + JSL L030903 +L020413 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L02042C + BRL L020439 +L02042C PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030A61 +L020439 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L020452 + BRL L020470 +L020452 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L02052D +L020470 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0204A4 + BRL L0204B4 +L0204A4 LDA #$0001 + PHA + LDA $1E + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $1E +L0204B4 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0204CD + BRL L0204EB +L0204CD LDA #$0001 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1E + SEC + SBC $01,S + PLX + STA $1E +L0204EB LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L020504 + BRL L02050C +L020504 LDA $24 + SEC + SBC #$0018 + STA $24 +L02050C LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L020525 + BRL L02052D +L020525 LDA $22 + SEC + SBC #$000C + STA $22 +L02052D PHA + _GetArcRot + STA L014E87 + PLA + STA $52 + LDA $52 + AND #$8000 + BNE L020545 + BRL L020555 +L020545 LDA $52 + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L020555 PEA $0000 + TDC + CLC + ADC #$001E + PHA + _SetPortRect + STA L014E87 + LDX $18 + LDA $16 + PHX + PHA + _DrawControls + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$005A + PHA + _SetPortRect + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0205A4 + BRL L0205C7 +L0205A4 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + PHX + PHA + _DrawOneCtl + STA L014E87 +L0205C7 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0205E0 + BRL L020603 +L0205E0 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + PHX + PHA + _DrawOneCtl + STA L014E87 +L020603 LDA $52 + PHA + _SetArcRot + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + BNE L020626 + BRL L020661 +L020626 PHA + PHA + _GetTick + STA L014E87 + LDA #$0001 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + LDX $18 + LDA $16 + PHX + PHA + LDX L0106FA + LDA L0106F8 + PHX + PHA + JSL L010419 +L020661 LDA $58 + PHA + _SetCurResourceFile + STA L014E87 + LDA L014E87 + PHA + LDA #$0041 + PHA + JSL L020000 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0062 + TCS + RTL + +L020687 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L01068E + PLB + PLB + LDA $17 + STA $23 + LDA $16 + STA $22 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L0206AF ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + PHA + PHA + LDX $1F + LDA $1D + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + BNE L0206E6 + BRL L0208CC +L0206E6 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0060 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _CheckHandle + STA L014E87 + LDA L014E87 + BEQ L020752 + BRL L0208A2 +L020752 PHA + PHA + _GetTick + STA L014E87 + LDA #$0002 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + LDX $1F + LDA $1D + PHX + PHA + LDX L0106FA + LDA L0106F8 + PHX + PHA + JSL L010419 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _InvalRgn + STA L014E87 + LDX $1F + LDA $1D + PHX + PHA + _BeginUpdate + STA L014E87 + JSL L0200F2 + LDX $1F + LDA $1D + PHX + PHA + _EndUpdate + STA L014E87 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _DisposeRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0003 + PHA + JSL L020000 + PHA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _FindHandle + STA L014E87 + _DisposeHandle + STA L014E87 + LDA L014E87 + PHA + LDA #$0004 + PHA + JSL L020000 +L0208A2 LDA #$0000 + LDX #$0000 + TAY + BPL L0208AC + DEX +L0208AC PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0072 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L0208CC LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L0208DC ENT + TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $31 + PEI $2F + PEA $0008 + JSL L014B1E + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$0060 + STA $00 + STX $02 + LDA $2D + STA [$00] + LDA $2D + LDX #$0001 + SEC + SBC #$0008 + BVS L020931 + EOR #$8000 +L020931 BMI L020934 + DEX +L020934 TXA + PHA + LDA $2D + LDX #$0000 + CMP #$000A + BNE L020941 + INX +L020941 TXA + ORA $01,S + PLX + TAX + BNE L02094B + BRL L020971 +L02094B PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + BRL L02098C +L020971 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 +L02098C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$006A + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + PHA + PHA + LDA #$000C + LDX #$0000 + TAY + BPL L0209C1 + DEX +L0209C1 PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0209E1 + DEX +L0209E1 PHX + PHA + _NewHandle + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005C + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0009 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$000A + PHA + JSL L020000 + PHA + PHA + _NewRgn + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$000B + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _RectRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$000C + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA #$0003 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$0002 + STA $00 + STX $02 + LDA #$0001 + STA [$00] + PHA + PHA + _NewRgn + STA L014E87 + PLA + STA $1E + PLA + STA $20 + LDA L014E87 + PHA + LDA #$000D + PHA + JSL L020000 + LDA $2D + CMP #$0007 + BEQ L020BC6 + BRL L020CC5 +L020BC6 LDA $1C + SEC + SBC #$0018 + STA $24 + LDA $1A + SEC + SBC #$000C + STA $22 + LDA $24 + CLC + ADC #$001E + STA $28 + LDA $22 + CLC + ADC #$000F + STA $26 + LDX $20 + LDA $1E + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + _RectRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$000E + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _DiffRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$000F + PHA + JSL L020000 +L020CC5 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + _CopyRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0010 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRgn + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + _DiffRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0011 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _InvalRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0013 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _DisposeRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0014 + PHA + JSL L020000 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _BeginUpdate + STA L014E87 + JSL L0200F2 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _EndUpdate + STA L014E87 + LDA $2B + STA $31 + LDA $2A + STA $30 + PLD + TSC + CLC + ADC #$0030 + TCS + RTL + +L020E29 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PEI $1B + PEI $19 + _GetPortRect + STA L014E87 + PEI $1B + PEI $19 + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L020E66 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + PHA + LDA #$000A + LDX #$0000 + TAY + BPL L020E7B + DEX +L020E7B PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L020E9B + DEX +L020E9B PHX + PHA + _NewHandle + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$0049 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0050 + PHA + JSL L020000 + LDX $1C + LDA $1A + STX $18 + STA $16 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STX $08 + STA $06 + LDA #$0000 + STA [$06] + LDY #$0002 + LDA #$0F0F + STA [$06],Y + LDY #$0004 + LDA #$0000 + STA [$06],Y + LDY #$0006 + LDA #$F0FF + STA [$06],Y + LDY #$0008 + LDA #$00F0 + STA [$06],Y + PHA + PHA + LDA #$FFFF + PHA + LDA #$8010 + PHA + _UniqueResourceID + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0020 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0051 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005A + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX $1C + LDA $1A + PHX + PHA + LDA #$0000 + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _AddResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0052 + PHA + JSL L020000 + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0053 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0054 + PHA + JSL L020000 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L02108E TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA #$0050 + STA L0106A8 + LDA #$0080 + CLC + ADC #$0020 + STA L0106AA + LDA #$0000 + LDX #$0000 + TAY + BPL L0210B1 + DEX +L0210B1 STX L0106AE + STA L0106AC + LDA #$0000 + LDX #$0000 + TAY + BPL L0210C1 + DEX +L0210C1 STX L0106B2 + STA L0106B0 + LDA #$0000 + STA L0106B6 + LDA #$0000 + STA L0106B4 + LDA #$0000 + STA L0106BA + LDA #$0000 + STA L0106B8 + LDA #$0000 + LDX #$0000 + TAY + BPL L0210E9 + DEX +L0210E9 STX L0106BE + STA L0106BC + LDA #$0000 + STA L0106C0 + LDA #$0000 + STA L0106C2 + LDA #$0000 + STA L0106C4 + LDA #$0000 + STA L0106C6 + LDA #$0000 + STA L0106C8 + LDA #$0000 + STA L0106CA + LDA #$0000 + STA L0106CC + LDA #$0000 + STA L0106CE + LDA #$0000 + STA L0106D0 + LDA #$0000 + STA L0106D2 + LDA #$0000 + LDX #$0000 + TAY + BPL L021135 + DEX +L021135 STX L0106D6 + STA L0106D4 + LDA #$0000 + STA L0106D8 + STZ L0106DC + STZ L0106DA + STZ L0106E0 + STZ L0106DE + STZ L0106E4 + STZ L0106E2 + LDA #$0028 + STA L0106E8 + LDA #$001E + STA L0106E6 + LDA #$01B8 + STA L0106EC + LDA #$0082 + STA L0106EA + LDA #$FFFF + LDX #$0000 + TAY + BPL L021175 + DEX +L021175 STX L0106F0 + STA L0106EE + LDA #$0000 + LDX #$0000 + TAY + BPL L021185 + DEX +L021185 STX L0106F4 + STA L0106F2 + LDA #$0000 + STA L0106F6 + PHA + PHA + LDA L0106A8 + LDX #$0000 + TAY + BPL L02119D + DEX +L02119D PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0211BD + DEX +L0211BD PHX + PHA + _NewHandle + STA L014E87 + PLA + STA L010706 + PLA + STA L010706+2 + LDA L014E87 + PHA + LDA #$0055 + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0056 + PHA + JSL L020000 + LDX #^L0106A8 + LDA #L0106A8 + PHX + PHA + LDX L010706+2 + LDA L010706 + PHX + PHA + LDA L0106A8 + LDX #$0000 + TAY + BPL L021215 + DEX +L021215 PHX + PHA + _PtrToHand + STA L014E87 + LDA L014E87 + PHA + LDA #$0057 + PHA + JSL L020000 + PHA + PHA + LDA #$FFFF + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + _UniqueResourceID + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0058 + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + LDA #$0000 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _AddResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0059 + PHA + JSL L020000 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0060 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0061 + PHA + JSL L020000 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L021371 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA L010706 + PLA + STA L010706+2 + LDA L014E87 + PHA + LDA #$0065 + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0066 + PHA + JSL L020000 + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L0213E7 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + LDA $21 + BEQ L0213F7 + BRL L021490 +L0213F7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + PHX + PHA + _DisposeControl + STA L014E87 + LDA #$0000 + PHA + LDA #$080B + PHA + _CheckMItem + STA L014E87 + BRL L02163D +L021490 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0214C0 + BRL L0214D0 +L0214C0 LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $16 +L0214D0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0214F3 + BRL L02151B +L0214F3 LDA #$0001 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L02151B LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + LDX #$0000 + CMP #$0000 + BEQ L021542 + INX +L021542 TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02156B + INX +L02156B TXA + ORA $01,S + PLX + TAX + BNE L021575 + BRL L021592 +L021575 LDA $1A + SEC + SBC #$000C + STA $1A + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L0215A4 +L021592 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L0215A4 LDA $1C + SEC + SBC #$001A + STA $18 + PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + PEA $0600 + PEA $0000 + LDA #$0000 + LDX #$0000 + TAY + BPL L0215E5 + DEX +L0215E5 PHX + PHA + PEA $0000 + PEA $0000 + _NewControl + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0062 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0071 + PHA + JSL L020000 + LDA #$0001 + PHA + LDA #$080B + PHA + _CheckMItem + STA L014E87 +L02163D PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDA $1F + STA $21 + LDA $1E + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L021660 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + LDA $21 + BEQ L021670 + BRL L021709 +L021670 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + PHX + PHA + _DisposeControl + STA L014E87 + LDA #$0000 + PHA + LDA #$080C + PHA + _CheckMItem + STA L014E87 + BRL L021838 +L021709 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDA $1A + SEC + SBC #$000D + STA $16 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + LDX #$0000 + CMP #$0000 + BEQ L021745 + INX +L021745 TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02176E + INX +L02176E TXA + ORA $01,S + PLX + TAX + BNE L021778 + BRL L021795 +L021778 LDA $1C + SEC + SBC #$0018 + STA $1C + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L0217A7 +L021795 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L0217A7 PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0000 + PEA $0000 + LDA #$001C + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + PEA $0600 + PEA $0000 + LDA #$0000 + LDX #$0000 + TAY + BPL L0217E0 + DEX +L0217E0 PHX + PHA + PEA $0000 + PEA $0000 + _NewControl + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0066 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0076 + PHA + JSL L020000 + pea $0001 + pea $080C + _CheckMItem +L021838 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + LDA $1F + STA $21 + LDA $1E + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L02185B TSC + SEC + SBC #$006E + TCS + PHD + INC + TCD + _WaitCursor + JSL L021371 + LDX L010706+2 + LDA L010706 + STX $18 + STA $16 + PHA + PHA + LDA #$007A + LDX #$0000 + TAY + BPL L021888 + DEX +L021888 PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + CLC + ADC #$4000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0218AC + DEX +L0218AC PHX + PHA + _NewHandle + STA L014E87 + PLA + STA L010702 + PLA + STA L010702+2 + LDA L014E87 + PHA + LDA #$0079 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + PHX + PHA + _HLock + PHA + LDA #$0080 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $08 + STA $06 + PEI $08 + PEI $06 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + 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 + LDY #$0008 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDY #$0060 + LDA #$0000 + STA [$06],Y + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + LDA #$0050 + LDX #$0000 + TAY + BPL L021980 + DEX +L021980 PHX + PHA + _BlockMove + LDA #$0000 + LDX #$0000 + TAY + BPL L021996 + DEX +L021996 PHX + PHA + LDY #$0072 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDA #$0050 + STA $1A + LDA #$0080 + STA $1C + LDA #$0000 + LDX #$0000 + TAY + BPL L0219B7 + DEX +L0219B7 STX $20 + STA $1E + LDA #$0000 + LDX #$0000 + TAY + BPL L0219C5 + DEX +L0219C5 STX $24 + STA $22 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$000C + PHA + LDA #$0282 + PHA + LDA #$00C9 + PHA + _SetRect + LDA #$0000 + LDX #$0000 + TAY + BPL L0219FA + DEX +L0219FA STX $30 + STA $2E + LDA #$0000 + STA $32 + LDA #$0000 + STA $34 + LDA #$0000 + STA $36 + LDA #$0000 + STA $38 + LDA #$7D00 + STA $3A + LDA #$7D00 + STA $3C + LDA #$0000 + STA $3E + LDA #$0000 + STA $40 + LDA #$0000 + STA $42 + LDA #$0000 + STA $44 + LDA #$0000 + LDX #$0000 + TAY + BPL L021A3A + DEX +L021A3A STX $48 + STA $46 + LDA #$0000 + STA $4A + LDA #$0000 + STA $4C + LDA #$0000 + STA $4E + LDA #$0000 + STA $50 + LDA #$0000 + STA $52 + LDA #$0000 + STA $54 + LDA #$0000 + STA $56 + PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$003E + PHA + PEA $0008 + JSL L014B1E + LDA $5A + AND #$0001 + BNE L021A8A + BRL L021AA9 +L021A8A PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$0000 + PHA + _OffsetRect + STA L014E87 +L021AA9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$2000 + BNE L021AC2 + BRL L021AE8 +L021AC2 PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDA #$000E + EOR #$FFFF + INC + PHA + LDA #$0006 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + BRL L021BA9 +L021AE8 PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$8000 + BNE L021B24 + BRL L021B30 +L021B24 LDA $58 + SEC + SBC #$000D + CLC + ADC #$0001 + STA $58 +L021B30 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$0010 + BNE L021B49 + BRL L021B67 +L021B49 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0030 + LDA [$00],Y + PHA + LDA $58 + SEC + SBC $01,S + PLX + CLC + ADC #$0001 + STA $58 +L021B67 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$1000 + BNE L021B80 + BRL L021B88 +L021B80 LDA $5E + CLC + ADC #$0018 + STA $5E +L021B88 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$0800 + BNE L021BA1 + BRL L021BA9 +L021BA1 LDA $5C + CLC + ADC #$000C + STA $5C +L021BA9 LDA #$FFFF + LDX #$0000 + TAY + BPL L021BB3 + DEX +L021BB3 STX $62 + STA $60 + LDA #$0000 + LDX #$0000 + TAY + BPL L021BC1 + DEX +L021BC1 STX $66 + STA $64 + LDA #$0000 + STA $68 + LDA #$0000 + STA $6A + LDA #$0000 + STA $6C + PHA + PHA + PEA $0000 + TDC + CLC + ADC #$006A + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L021BE9 + DEX +L021BE9 PHX + PHA + LDX #^L0200F2 + LDA #L0200F2 + PHX + PHA + PEA $0000 + PEA $0000 + LDA #$0000 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$800E + PHA + _NewWindow2 + STA L014E87 + PLA + STA L01070A + PLA + STA L01070A+2 + LDA L014E87 + PHA + LDA #$0083 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0084 + PHA + JSL L020000 + JSL L01000E + LDA L0106A6 + CLC + ADC #$0001 + STA L0106A6 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + LDA L01070A+2 + PHA + LDA L01070A + PHA + PLA + CLC + ADC #$00A0 + PHA + LDX L01070A+2 + LDA L01070A + STA $00 + STX $02 + LDY #$00A0 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0004 + PHA + _SetFontFlags + STA L014E87 + LDX L010702+2 + LDA L010702 + PHX + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetWRefCon + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L021D00 + BRL L021D08 +L021D00 LDA #$0001 + PHA + JSL L0213E7 +L021D08 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L021D2B + BRL L021D33 +L021D2B LDA #$0001 + PHA + JSL L021660 +L021D33 LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _ShowWindow + STA L014E87 + _InitCursor + STA L014E87 + PLD + TSC + CLC + ADC #$006E + TCS + RTL + +L021D6B TSC + SEC + SBC #$002E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _GetMouse + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $20 + CLC + ADC #$0004 + STA $24 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + beq L021DF6 + LDA L010700 + CMP #$0002 + beq L021DED + JSL L010202 ; LOGO - resize cursor +L021DED LDA #$0002 + STA L010700 + BRL L022179 +L021DF6 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$0004 + STA $20 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L021E3A + BRL L021E52 +L021E3A LDA L010700 + CMP #$0001 + BNE L021E45 + BRL L021E49 +L021E45 JSL L010210 +L021E49 LDA #$0001 + STA L010700 + BRL L022179 +L021E52 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $1E + CLC + ADC #$0003 + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + beq L021EAE + LDA L010700 + CMP #$0002 + beq L021EA5 + JSL L010202 ; LOGO - resize cursor +L021EA5 LDA #$0002 + STA L010700 + BRL L022179 +L021EAE PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$0003 + STA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L021EF2 + BRL L021F0A +L021EF2 LDA L010700 + CMP #$0001 + BNE L021EFD + BRL L021F01 +L021EFD JSL L010210 +L021F01 LDA #$0001 + STA L010700 + BRL L022179 +L021F0A LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L021F2D + BRL L021FC5 +L021F2D PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L020E29 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L021F5D + BRL L021F7C +L021F5D PEA $0000 + TDC + CLC + ADC #$001E + PHA + pea $0000 + pea $000c +* LDA #$000D +* SEC +* SBC #$0001 +* PHA + _OffsetRect +L021F7C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1E + SEC + SBC #$0001 +* STA $22 +* LDA $26 +* CMP $22 + cmp $26 + bne L021FC5 + LDA L010700 + CMP #$0003 + beq L021FBC + JSL L01021E +L021FBC LDA #$0003 + STA L010700 + BRL L022179 +L021FC5 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + SEC + SBC #$0008 + BVS L021FE9 + EOR #$8000 +L021FE9 BMI L021FEE + BRL L022161 +L021FEE PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$006A + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$0004 + STA $20 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + CMP #$000E + BNE L022076 + BRL L02210D +L022076 PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + PLA + beq L0220B1 + LDA L010700 + CMP #$0001 + beq L0220A8 + JSL L010210 +L0220A8 LDA #$0001 + STA L010700 + BRL L022179 +L0220B1 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$0003 + STA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + PLA + beq L02210D + LDA L010700 + CMP #$0001 + beq L022104 + JSL L010210 +L022104 LDA #$0001 + STA L010700 + bra L022179 +L02210D PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + PLA + beq L022161 + LDA L010700 + CMP #$0002 + beq L022158 + JSL L010202 ; LOGO - resize cursor +L022158 LDA #$0002 + STA L010700 + bra L022179 +L022161 LDA L010700 + beq L022179 + _InitCursor + stz L010700 +L022179 PLD + TSC + CLC + ADC #$002E + TCS + RTL + +L022181 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + _FrontWindow + STA L014E87 + PLA + STA L01070A + PLA + STA L01070A+2 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA L010702 + PLA + STA L010702+2 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + PHA + LDY #$0002 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022213 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$8000 + BNE L022233 + BRL L022494 +L022233 LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDA [$00] + STA $1A + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + STX $1E + STA $1C + PHA + PHA + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA L010706 + PLA + STA L010706+2 + LDA L014E87 + PHA + LDA #$009B + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$009C + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + STX $18 + STA $16 + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$000C + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA #$0050 + LDX #$0000 + TAY + BPL L0222D1 + DEX +L0222D1 PHX + PHA + _BlockMove + STA L014E87 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STX $08 + STA $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + _GetPortRect + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + _LocalToGlobal + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0042 + PHA + _LocalToGlobal + STA L014E87 + LDY #$0002 + LDA [$06],Y + AND #$2000 + BNE L022332 + BRL L022351 +L022332 PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L02242B +L022351 PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$06],Y + AND #$8000 + BNE L02237A + BRL L02239D +L02237A PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$0001 + PHA + LDY #$003E + LDA [$06],Y + CLC + ADC #$000D + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02239D LDY #$0002 + LDA [$06],Y + AND #$0010 + BNE L0223AA + BRL L0223D3 +L0223AA PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$0001 + PHA + LDY #$003E + LDA [$06],Y + PHA + LDY #$0030 + LDA [$06],Y + CLC + ADC $01,S + PLX + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0223D3 LDY #$0002 + LDA [$06],Y + AND #$1000 + BNE L0223E0 + BRL L0223FF +L0223E0 PEI $08 + PEI $06 + PLA + CLC + ADC #$0044 + PHA + LDA #$0018 + PHA + LDY #$0044 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0223FF LDY #$0002 + LDA [$06],Y + AND #$0800 + BNE L02240C + BRL L02242B +L02240C PEI $08 + PEI $06 + PLA + CLC + ADC #$0042 + PHA + LDA #$000C + PHA + LDY #$0042 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02242B LDA #$0001 + PHA + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$0098 + PHA + JSL L020000 + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0099 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$009A + PHA + JSL L020000 +L022494 LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L0224A4 TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$0100 + BNE L0224D0 + BRL L0224F8 +L0224D0 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0224F8 LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022213 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$0101 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0434E2 + PHA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _FindHandle + tax + PLA + STA $16 + PLA + STA $18 + phx + pea $0104 + JSL L020000 + LDX $18 + LDA $16 + PHX + PHA + _DisposeHandle + PHA + pea $0105 + JSL L020000 + LDA L0106A6 + SEC + SBC #$0001 + STA L0106A6 + LDA L010700 + beq L0225B0 +L0225A0 _InitCursor + stz L010700 +L0225B0 PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L0225B8 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0050 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + 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 + +L022649 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$0002 + PHA + _SetPenMode + STA L014E87 + JSL L01060C + LDA $18 + PHA + LDA $25 + PHA + _MoveTo + STA L014E87 + LDA $1C + PHA + LDA $25 + PHA + _LineTo + STA L014E87 + _PenNormal + STA L014E87 + LDA [$21] + BNE L0226C3 + BRL L0226CB +L0226C3 LDA #$0000 + STA [$21] + BRL L0226D0 +L0226CB LDA #$0001 + STA [$21] +L0226D0 LDA #$0000 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + JSL L0103D4 + LDA $1F + STA $25 + LDA $1E + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L02271B TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $2F + PEI $2D + PEA $0008 + JSL L014B1E + LDA #$0000 + STA $28 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetMouse + STA L014E87 + LDA $1E + STA $22 + PHA + PHA + LDA $20 + PHA + LDA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _PinRect + STA L014E87 + PLA + STA $24 + PLA + STA $26 + LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L022785 PHA + LDA #$0000 + PHA + _StillDown + STA L014E87 + PLA + BNE L02279A + BRL L02289E +L02279A PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetMouse + STA L014E87 + LDA $22 + CMP $1E + BNE L0227B6 + BRL L02289B +L0227B6 PHA + PHA + LDA $20 + PHA + LDA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _PinRect + STA L014E87 + PLA + STA $24 + PLA + STA $26 + LDA $28 + BNE L0227DE + BRL L0227EE +L0227DE LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L0227EE PHA + LDX $26 + LDA $24 + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $22 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$003C + STA $00 + STX $02 + LDA $22 + CLC + ADC #$0001 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L022847 + BRL L02288B +L022847 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$003C + PHA + LDA #$000D + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02288B LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L02289B BRL L022785 +L02289E LDA $28 + BNE L0228A5 + BRL L0228B5 +L0228A5 LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L0228B5 LDA $2B + STA $2F + LDA $2A + STA $2E + PLD + TSC + CLC + ADC #$002E + TCS + RTL + +L0228C5 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDA $1C + SEC + SBC #$001A + STA $18 + LDA $1A + SEC + SBC #$000D + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L022919 TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0040 + PHA + PEA $0004 + JSL L014B1E + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0042 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0040 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0229B7 + BRL L0229D2 +L0229B7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0000 + PHA + LDA #$000D + PHA + _OffsetRect + STA L014E87 +L0229D2 LDA $1A + SEC + SBC #$0003 + STA $1A + LDA $16 + CLC + ADC #$0003 + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L02271B + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _KillControls + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L022A6B + BRL L022A73 +L022A6B LDA #$0001 + PHA + JSL L0213E7 +L022A73 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L022A96 + BRL L022A9E +L022A96 LDA #$0001 + PHA + JSL L021660 +L022A9E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L022AC1 + BRL L022ADA +L022AC1 JSL L0228C5 + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L022AEC +L022ADA LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L022AEC LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0040 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0004 + JSL L014B1E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L022B3A TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L022B66 + BRL L022B76 +L022B66 LDA #$0000 + PHA + JSL L0213E7 + LDA #$0001 + PHA + JSL L0213E7 +L022B76 PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022B7E TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L022BAA + BRL L022BBA +L022BAA LDA #$0000 + PHA + JSL L021660 + LDA #$0001 + PHA + JSL L021660 +L022BBA PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022BC2 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetRect + STA L014E87 + PHA + LDY #$0002 + LDA [$21],Y + PHA + LDA [$21] + PHA + PLA + CLC + ADC #$0018 + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EqualRect + STA L014E87 + PLA + BNE L022C17 + BRL L022C4F +L022C17 LDA #$0806 + PHA + _DisableMItem + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$000C + PHA + LDA #$0282 + PHA + LDA #$00C9 + PHA + _SetRect + STA L014E87 + BRL L022D02 +L022C4F LDA #$0806 + PHA + _EnableMItem + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$21],Y + PHA + LDA [$21] + PHA + PLA + CLC + ADC #$0018 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L022CB8 + BRL L022CC0 +L022CB8 LDA $16 + SEC + SBC #$000D + STA $16 +L022CC0 LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L022CD9 + BRL L022CE1 +L022CD9 LDA $1C + CLC + ADC #$0018 + STA $1C +L022CE1 LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L022CFA + BRL L022D02 +L022CFA LDA $1A + CLC + ADC #$000D + STA $1A +L022D02 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX $27 + LDA $25 + PHX + PHA + _SetZoomRect + STA L014E87 + LDA $1F + STA $27 + LDA $1E + STA $26 + PLD + TSC + CLC + ADC #$0026 + TCS + RTL + +L022D2B TSC + SEC + SBC #$0056 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $1E + PLA + STA $20 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _SetPort + STA L014E87 + PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0001 + BEQ L022DA7 + BRL L022F12 +L022DA7 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L0206AF + LDX $24 + LDA $22 + PHX + PHA + JSL L022213 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L010700 + BNE L022DFC + BRL L022E06 +L022DFC _InitCursor + STA L014E87 +L022E06 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L022E1F + BRL L022F0F +L022E1F PHA + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $34 + PLA + STA $36 + LDA L014E87 + BEQ L022E56 + BRL L022EB1 +L022E56 LDX $36 + LDA $34 + PHX + PHA + _HLock + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$34],Y + PHA + LDA [$34] + PHA + PEA $000A + JSL L014B1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + BRL L022ECA +L022EB1 LDA #$0000 + STA $26 + LDA #$0F0F + STA $28 + LDA #$0000 + STA $2A + LDA #$F0FF + STA $2C + LDA #$00F0 + STA $2E +L022ECA PEA $0000 + TDC + CLC + ADC #$0026 + PHA + JSL L030171 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L0304C5 +L022F0F BRL L02382B +L022F12 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003E + LDA [$00],Y + CMP #$0006 + BNE L022F5E + BRL L022F8C +L022F5E PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $1A + BRL L023614 +L022F8C LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0050 + LDA [$00],Y + LDX #$0000 + CMP #$8004 + BNE L022FA4 + INX +L022FA4 TXA + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L022FB0 + DEX +L022FB0 LDY #$0000 + CMP L0106FC + BNE L022FBB + CPX L0106FE +L022FBB BNE L022FBE + INY +L022FBE TYA + AND $01,S + PLX + TAX + BNE L022FC8 + BRL L0232AD +L022FC8 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0030 + LDA [$00],Y + PHA + LDY #$002E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L022FE8 + DEX +L022FE8 LDY #$0001 + CMP $01,S + BEQ L022FF0 + DEY +L022FF0 TXA + CMP $03,S + BEQ L022FF8 + LDY #$0000 +L022FF8 PLA + PLA + TYA + BEQ L023000 + BRL L0232AA +L023000 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L04116F + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L023098 + BRL L0230B6 +L023098 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$000B + PHA + LDA #$0005 + PHA + _InsetRect + STA L014E87 + BRL L0230FA +L0230B6 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0230EA + BRL L0230FA +L0230EA LDA #$0001 + PHA + LDA $42 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $42 +L0230FA PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _SetPortRect + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $52 + PLA + STA $54 + LDA #$8004 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L023185 + DEY +L023185 TXA + CMP $03,S + BEQ L02318D + LDY #$0000 +L02318D PLA + PLA + TYA + BNE L023195 + BRL L02321D +L023195 LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L0231C3 + DEX +L0231C3 LDY #$0001 + CMP $01,S + BEQ L0231CB + DEY +L0231CB TXA + CMP $03,S + BEQ L0231D3 + LDY #$0000 +L0231D3 PLA + PLA + TYA + BNE L0231DB + BRL L02321D +L0231DB LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$52],Y + PHA + LDA [$52] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L02321D PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + LDA #$0001 + PHA + LDX $54 + LDA $52 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $30 + PLA + STA $32 + LDX $32 + LDA $30 + PHX + PHA + _HideControl + STA L014E87 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + LDX $32 + LDA $30 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $32 + LDA $30 + PHX + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L0409AD ; LOGO - called when new control is added + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _SetPortRect + STA L014E87 +L0232AA BRL L0235C8 +L0232AD LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0050 + LDA [$00],Y + CMP #$8010 + BEQ L0232C4 + BRL L0232C7 +L0232C4 BRL L0235C8 +L0232C7 PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L0232E4 + INX +L0232E4 TXA + PHA + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023303 + INX +L023303 TXA + AND $01,S + PLX + TAX + BNE L02330D + BRL L023310 +L02330D BRL L023614 +L023310 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L02334F + BRL L02336D +L02334F PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$000B + PHA + LDA #$0005 + PHA + _InsetRect + STA L014E87 + BRL L0233B1 +L02336D PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0233A1 + BRL L0233B1 +L0233A1 LDA #$0001 + PHA + LDA $42 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $42 +L0233B1 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _SetPortRect + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $4A + PLA + STA $4C + LDX $4C + LDA $4A + PHX + PHA + _HLock + STA L014E87 + PHA + PHA + PEA $0000 + PEA $0000 + LDY #$0002 + LDA [$4A],Y + TAX + LDA [$4A] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _HideControl + STA L014E87 + PHA + PHA + PEA $0000 + PEA $0000 + LDY #$0002 + LDA [$4A],Y + TAX + LDA [$4A] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _DisposeControl + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $52 + PLA + STA $54 + LDA #$8004 + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L0234B6 + DEY +L0234B6 TXA + CMP $03,S + BEQ L0234BE + LDY #$0000 +L0234BE PLA + PLA + TYA + BNE L0234C6 + BRL L02354E +L0234C6 LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L0234F4 + DEX +L0234F4 LDY #$0001 + CMP $01,S + BEQ L0234FC + DEY +L0234FC TXA + CMP $03,S + BEQ L023504 + LDY #$0000 +L023504 PLA + PLA + TYA + BNE L02350C + BRL L02354E +L02350C LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$52],Y + PHA + LDA [$52] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L02354E PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + LDA #$0001 + PHA + LDX $54 + LDA $52 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $30 + PLA + STA $32 + LDA L014E87 + PHA + LDA #$0125 + PHA + JSL L020000 + LDX L0106FE + LDA L0106FC + PHX + PHA + LDX $32 + LDA $30 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $32 + LDA $30 + PHX + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L0409AD + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _SetPortRect + STA L014E87 +L0235C8 LDA #$0000 + LDX #$0000 + TAY + BPL L0235D2 + DEX +L0235D2 STX L0106FE + STA L0106FC + LDA #$0000 + LDX #$0000 + TAY + BPL L0235E2 + DEX +L0235E2 PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L023614 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L023640 + BRL L0236C1 +L023640 LDA #$0807 + PHA + _DisableMItem + STA L014E87 + LDA #$0808 + PHA + _DisableMItem + STA L014E87 + LDA #$0809 + PHA + _DisableMItem + STA L014E87 + LDA #$080A + PHA + _DisableMItem + STA L014E87 + LDA #$080B + PHA + _DisableMItem + STA L014E87 + LDA #$080C + PHA + _DisableMItem + STA L014E87 + LDA #$080D + PHA + _DisableMItem + STA L014E87 + LDA #$0805 + PHA + _DisableMItem + STA L014E87 + LDA #$0806 + PHA + _DisableMItem + STA L014E87 + BRL L02380A +L0236C1 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0236DA + BRL L02375E +L0236DA LDA #$0001 + PHA + LDA #$0807 + PHA + _CheckMItem + STA L014E87 + LDA #$0808 + PHA + _EnableMItem + STA L014E87 + LDA #$0809 + PHA + _EnableMItem + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L023721 + BRL L023733 +L023721 LDA #$0001 + PHA + LDA #$0808 + PHA + _CheckMItem + STA L014E87 +L023733 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L02374C + BRL L02375E +L02374C LDA #$0001 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 +L02375E LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L023777 + BRL L023789 +L023777 LDA #$0001 + PHA + LDA #$080A + PHA + _CheckMItem + STA L014E87 +L023789 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0237A2 + BRL L0237B4 +L0237A2 LDA #$0001 + PHA + LDA #$080B + PHA + _CheckMItem + STA L014E87 +L0237B4 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0237CD + BRL L0237DF +L0237CD LDA #$0001 + PHA + LDA #$080C + PHA + _CheckMItem + STA L014E87 +L0237DF LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L0237F8 + BRL L02380A +L0237F8 LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L02380A LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L022BC2 +L02382B LDX $20 + LDA $1E + PHX + PHA + _SetPort + STA L014E87 + PLD + TSC + CLC + ADC #$0056 + TCS + RTL + +L023843 TSC + SEC + SBC #$0044 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEI $49 + PEI $47 + PEA $0008 + JSL L014B1E + LDA #$0000 + STA $16 + LDA #$0001 + STA $28 + PEA $0000 + TDC + CLC + ADC #$002E + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$003A + PHA + PHA + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PEA $000A + JSL L014B1E + LDA L014E87 + BNE L0238D1 + BRL L0238EA +L0238D1 LDA #$0000 + STA $3A + LDA #$0F0F + STA $3C + LDA #$0000 + STA $3E + LDA #$F0FF + STA $40 + LDA #$00F0 + STA $42 +L0238EA LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA $3C + PHA + JSL L0104A0 + PHA + _SetForeColor + STA L014E87 + LDA $3E + PHA + JSL L0104A0 + PHA + _SetBackColor + STA L014E87 + PHA + PHA + _GetFont + STA L014E87 + PLA + STA $36 + PLA + STA $38 + PHA + PHA + LDA #$0001 + EOR #$FFFF + INC + LDX #$0000 + TAY + BPL L023969 + DEX +L023969 PHX + PHA + _SetWindowIcons + STA L014E87 + _SetFont + STA L014E87 + LDA $4B + BEQ L023986 + BRL L0239A1 +L023986 LDA $30 + CLC + ADC #$000A + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + BRL L0239B9 +L0239A1 LDA $34 + SEC + SBC #$001E + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 +L0239B9 LDA #$0001 + PHA + _DrawChar + STA L014E87 +L0239C7 PHA + LDA #$0000 + PHA + _Button + STA L014E87 + PLA + BNE L0239DC + BRL L023A85 +L0239DC PEA $0000 + TDC + CLC + ADC #$002A + PHA + _GetMouse + STA L014E87 + LDA $4B + BEQ L0239F6 + BRL L023A11 +L0239F6 LDA $30 + CLC + ADC #$000A + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + BRL L023A29 +L023A11 LDA $34 + SEC + SBC #$001E + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 +L023A29 PHA + PEA $0000 + TDC + CLC + ADC #$002A + PHA + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _PtInRect + STA L014E87 + PLA + BEQ L023A4C + BRL L023A68 +L023A4C LDA $28 + BNE L023A53 + BRL L023A60 +L023A53 LDA $4B + PHA + _DrawChar + STA L014E87 +L023A60 LDA #$0000 + STA $28 + BRL L023A82 +L023A68 LDA $28 + BEQ L023A6F + BRL L023A7D +L023A6F LDA #$0001 + PHA + _DrawChar + STA L014E87 +L023A7D LDA #$0001 + STA $28 +L023A82 BRL L0239C7 +L023A85 PEA $0000 + TDC + CLC + ADC #$002A + PHA + _GetMouse + STA L014E87 + PHA + PEA $0000 + TDC + CLC + ADC #$002A + PHA + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _PtInRect + STA L014E87 + PLA + BNE L023ABB + BRL L023B11 +L023ABB LDA $28 + CMP #$0001 + BEQ L023AC5 + BRL L023B0C +L023AC5 LDA $4B + BEQ L023ACC + BRL L023AE7 +L023ACC LDA $30 + CLC + ADC #$000A + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + BRL L023AFF +L023AE7 LDA $34 + SEC + SBC #$001E + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 +L023AFF LDA $4B + PHA + _DrawChar + STA L014E87 +L023B0C LDA #$0001 + STA $16 +L023B11 LDX $38 + LDA $36 + PHX + PHA + _SetFont + STA L014E87 + LDA L014E87 + PHA + LDA #$0136 + PHA + JSL L020000 + LDA #$0000 + PHA + _SetForeColor + STA L014E87 + LDA #$FFFF + PHA + _SetBackColor + STA L014E87 + LDA $45 + STA $4B + LDA $44 + STA $4A + LDX $16 + PLD + TSC + CLC + ADC #$004A + TCS + TXA + RTL + +L023B5C TSC + SEC + SBC #$0036 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + PEA $0004 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _GlobalToLocal + STA L014E87 + LDX L01070A+2 + LDA L01070A + STA $00 + STX $02 + LDY #$00C8 + LDA [$00],Y + TAX + LDY #$00C6 + LDA [$00],Y + STX $34 + STA $32 +L023BBC LDA $32 + ORA $34 + BNE L023BC5 + BRL L023F5C +L023BC5 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L023C07 + BRL L023F41 +L023C07 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + CMP $32 + BNE L023C2E + CPX $34 +L023C2E BEQ L023C33 + BRL L023C36 +L023C33 BRL L023F5C +L023C36 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + CMP $32 + BNE L023C5D + CPX $34 +L023C5D BEQ L023C62 + BRL L023C65 +L023C62 BRL L023F5C +L023C65 PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $2A + PLA + STA $2C + PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$00E0 + BEQ L023C97 + BRL L023CFF +L023C97 LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + STX $30 + STA $2E + PHA + LDX $30 + LDA $2E + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0600 + BEQ L023CCD + INX +L023CCD TXA + PHA + PHA + LDX $30 + LDA $2E + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BEQ L023CEA + INX +L023CEA TXA + AND $01,S + PLX + TAX + BNE L023CF4 + BRL L023CF7 +L023CF4 BRL L023F5C +L023CF7 LDX $2C + LDA $2A + STX $34 + STA $32 +L023CFF PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023D1A + INX +L023D1A TXA + PHA + PHA + LDX $2C + LDA $2A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023D37 + INX +L023D37 TXA + AND $01,S + PLX + TAX + BNE L023D41 + BRL L023D44 +L023D41 BRL L023F5C +L023D44 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L023D5B + BRL L023E6A +L023D5B PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $2A + PLA + STA $2C + PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023D8E + INX +L023D8E TXA + PHA + PHA + LDX $2C + LDA $2A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023DAB + INX +L023DAB TXA + AND $01,S + PLX + TAX + BNE L023DB5 + BRL L023DB8 +L023DB5 BRL L024B7D +L023DB8 PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA L0106FC + PLA + STA L0106FE + LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + PHA + LDY #$0014 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L0106FE + PHA + LDA L0106FC + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8004 + STA [$00] + BRL L023F3E +L023E6A LDX $34 + LDA $32 + STX $2C + STA $2A + PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023E8D + INX +L023E8D TXA + PHA + PHA + LDX $2C + LDA $2A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023EAA + INX +L023EAA TXA + AND $01,S + PLX + TAX + BNE L023EB4 + BRL L023EB7 +L023EB4 BRL L023F5C +L023EB7 PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlID + STA L014E87 + PLA + STA $2A + PLA + STA $2C + LDA L014E87 + BNE L023ED7 + BRL L023EDA +L023ED7 BRL L023F5C +L023EDA LDX $34 + LDA $32 + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDA L010700 + PHA + JSL L041C02 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023F3E BRL L024B7D +L023F41 LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $34 + STA $32 + BRL L023BBC +L023F5C PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + PEA $0004 + JSL L014B1E + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDA L010700 + BRL L024B5D +L023F8C PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _GlobalToLocal + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L023FC2 + BRL L0242BE +L023FC2 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L023FE5 + BRL L02407D +L023FE5 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $20 + CLC + ADC #$000E + STA $20 + LDA $20 + CLC + ADC #$000C + STA $24 + LDA #$0005 + STA $1E + LDA #$000A + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L02403B + BRL L02407D +L02403B LDA #$0000 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L023843 + TAX + BNE L024052 + BRL L02407A +L024052 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02407A BRL L024B7D +L02407D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L0240A0 + BRL L02412E +L0240A0 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$000E + STA $24 + LDA $24 + SEC + SBC #$000C + STA $20 + LDA #$0005 + STA $1E + LDA #$000A + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0240F6 + BRL L02412E +L0240F6 LDA #$0002 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L023843 + TAX + BNE L02410D + BRL L02412B +L02410D LDX L01070A+2 + LDA L01070A + PHX + PHA + _ZoomWindow + STA L014E87 + JSL L022B3A + JSL L022B7E + JSL L0228C5 +L02412B BRL L024B7D +L02412E PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $1E + CLC + ADC #$000D + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L024172 + BRL L0242AE +L024172 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L024189 + BRL L024250 +L024189 LDX L010702+2 + LDA L010702 + PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + JSL L010C92 + TAX + BNE L0241AB + BRL L02424D +L0241AB LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8006 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02424D BRL L0242AB +L024250 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0403A5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0001 + PHA + JSL L0208DC +L0242AB BRL L024B7D +L0242AE LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $16 +L0242BE LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0242E1 + BRL L0243CD +L0242E1 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1E + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L02433D + BRL L0243A5 +L02433D LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L024354 + BRL L024391 +L024354 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0114EF + TAX + BNE L024366 + BRL L02438E +L024366 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02438E BRL L0243A2 +L024391 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0002 + PHA + JSL L0208DC +L0243A2 BRL L024B7D +L0243A5 LDA #$0001 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L0243CD PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _PtInRect + STA L014E87 + PLA + BNE L0243F0 + BRL L024A81 +L0243F0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L024413 + BRL L024521 +L024413 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$001A + STA $20 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02445B + INX +L02445B TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + LDX #$0000 + CMP #$0000 + BEQ L024484 + INX +L024484 TXA + ORA $01,S + PLX + TAX + BNE L02448E + BRL L024496 +L02448E LDA $22 + SEC + SBC #$000C + STA $22 +L024496 PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0244B9 + BRL L024521 +L0244B9 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L0244D0 + BRL L02450D +L0244D0 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L01240E + TAX + BNE L0244E2 + BRL L02450A +L0244E2 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02450A BRL L02451E +L02450D PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0004 + PHA + JSL L0208DC +L02451E BRL L024B7D +L024521 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L024544 + BRL L024652 +L024544 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$000D + STA $1E + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02458C + INX +L02458C TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + LDX #$0000 + CMP #$0000 + BEQ L0245B5 + INX +L0245B5 TXA + ORA $01,S + PLX + TAX + BNE L0245BF + BRL L0245C7 +L0245BF LDA $24 + SEC + SBC #$0018 + STA $24 +L0245C7 PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0245EA + BRL L024652 +L0245EA LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L024601 + BRL L02463E +L024601 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L012A14 + TAX + BNE L024613 + BRL L02463B +L024613 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02463B BRL L02464F +L02463E PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0005 + PHA + JSL L0208DC +L02464F BRL L024B7D +L024652 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L024675 + BRL L02479C +L024675 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$000D + STA $1E + LDA $24 + SEC + SBC #$001A + STA $20 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0246C1 + BRL L02479C +L0246C1 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L0246D8 + BRL L024715 +L0246D8 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L013002 + TAX + BNE L0246EA + BRL L024712 +L0246EA LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024712 BRL L024799 +L024715 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L04067F + JSL L022B3A + JSL L022B7E + JSL L0228C5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L020E29 + LDA $22 + SEC + SBC #$000D + STA $1E + LDA $24 + SEC + SBC #$001A + STA $20 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0006 + PHA + JSL L0208DC +L024799 BRL L024B7D +L02479C LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L0247B3 + BRL L024953 +L0247B3 LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0117D4 + TAX + BNE L0247D1 + BRL L0247F9 +L0247D1 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0247F9 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L02481C + BRL L024950 +L02481C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L02483F + BRL L0248B6 +L02483F LDA #$0000 + PHA + JSL L0213E7 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$1000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0248B6 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0248D9 + BRL L024950 +L0248D9 LDA #$0000 + PHA + JSL L021660 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0800 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024950 BRL L024A81 +L024953 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0403A5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L0249C0 + BRL L024A1A +L0249C0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BEQ L0249E3 + BRL L024A1A +L0249E3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BEQ L024A06 + BRL L024A1A +L024A06 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0007 + PHA + JSL L0208DC + BRL L024B7D +L024A1A LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L024A3D + BRL L024A45 +L024A3D LDA $1C + SEC + SBC #$0018 + STA $1C +L024A45 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L024A68 + BRL L024A70 +L024A68 LDA $1A + SEC + SBC #$000C + STA $1A +L024A70 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0003 + PHA + JSL L0208DC +L024A81 BRL L024B7D +L024A84 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0403A5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B7D +L024AD1 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L04067F + JSL L022B3A + JSL L022B7E + JSL L0228C5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B7D +L024B2A JSL L022919 + JSL L022B3A + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B7D +L024B5D CMP #$0004 + BCC L024B65 + LDA #$0004 +L024B65 ASL + TAX + LDAL L024B73,X + BEQ L024B6F + PHA + RTS + +L024B6F JSL L014F19 +L024B73 DA L023F8C-1 + DA L024AD1-1 + DA L024A84-1 + DA L024B2A-1 + DW $0000 + +L024B7D PLD + TSC + CLC + ADC #$0036 + TCS + RTL + +L024B85 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L01068E + PLB + PLB + PHA + PHA + _GetPort + STA L014E87 + _DrawControls + STA L014E87 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L024BBB TSC + SEC + SBC #$005C + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022213 + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $16 + PLA + STA $18 + PHA + PHA + LDA #$800E + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA L010698 + PLA + STA L010698+2 + LDX L010698+2 + LDA L010698 + PHX + PHA + _HLock + STA L014E87 + PEA ^L020687 + PEA L020687 + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0036 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + LDA #$8010 + PHA + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $58 + PLA + STA $5A + LDA L014E87 + BNE L024C92 + BRL L024CB3 +L024C92 LDA #$0000 + STA L01068E + LDA #$0F0F + STA L010690 + LDA #$0000 + STA L010692 + LDA #$F0FF + STA L010694 + LDA #$00F0 + STA L010696 + bra L024CD9 +L024CB3 pei $5A + pei $58 + _HLock + PEA ^L01068E + PEA L01068E + LDY #$0002 + LDA [$58],Y + PHA + LDA [$58] + PHA + PEA $000A + JSL L014B1E +L024CD9 LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + AND #$0800 + BNE L024CFC + BRL L024D3B +L024CFC LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$004E + PHA + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + EOR #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024D3B PEA ^L01068E + PEA L01068E + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0014 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + JSL L01063D + pea $0004 + _SetFontFlags + LDX L01069C+2 + LDA L01069C + PHX + PHA + _ShowWindow + pei $18 + pei $16 + _HideWindow +L024D9D LDA #$B706 + STA $32 + LDA #$001F + STA $34 + PHA + pea $0002 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _EventAvail + PLA + beq L024E03 +L024DC5 PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + pei $2A + pei $28 + _FindWindow + PLA + CMP #$001B + BEQ L024DE8 + BRL L024E03 +L024DE8 LDX L01069C+2 + LDA L01069C + CMP $1A + BNE L024DF4 + CPX $1C +L024DF4 BEQ L024DF9 + BRL L024E03 +L024DF9 LDA #$7FFF + STA $32 + LDA #$001F + STA $34 +L024E03 LDA #$0000 + STA $4C + PHA + pea $FFFF + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _TaskMaster + PLA + STA $4E + bra L024E80 +L024E28 LDA #$0001 + STA $4C + BRL L024EAA +L024E30 PEA $0000 + TDC + CLC + ADC #$0050 + PHA + pea $0000 + pea $0000 + pea $0280 + pea $00C8 + _SetRect + pea $0000 + pei $2A + pei $28 + pea $0008 + PEA $0000 + TDC + CLC + ADC #$0050 + PHA + pei $30 + pei $2E + _DragWindow +L024E7D bra L024EAA +L024E80 SEC + SBC #$0010 + CMP #$0007 + BCC L024E8C + LDA #$0007 +L024E8C ASL + TAX + LDAL L024E9A,X + BEQ L024E96 + PHA + RTS + +L024E96 JSL L014F19 +L024E9A DA L024E28-1 + DA L024E28-1 + DA L024E7D-1 + DA L024E7D-1 + DA L024E30-1 + DA L024E7D-1 + DA L024E28-1 + DA L024E7D-1 + +L024EAA LDA $4C + BNE L024EB1 + BRL L024D9D +L024EB1 pei $18 + pei $16 + _ShowWindow + LDX L01069C+2 + LDA L01069C + PHX + PHA + _CloseWindow + pei $18 + pei $16 + _SelectWindow + pei $18 + pei $16 + _SetPort + PLD + TSC + CLC + ADC #$005C + TCS + RTL + +L024EFB TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0074 + LDA [$00],Y + TAX + LDY #$0072 + LDA [$00],Y + STX $20 + STA $1E + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _LoWord + STA L014E87 + PLA + BRL L026153 + +* 804 Zoom window + +L024F68 LDX L01070A+2 + LDA L01070A + PHX + PHA + _ZoomWindow + JSL L022B3A + JSL L022B7E + JSL L0228C5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 807 Title bar + +L024FB1 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BEQ L025013 + BRL L0252B2 +L025013 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L025036 + BRL L025087 +L025036 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$4000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + PHA + LDA #$0808 + PHA + _CheckMItem + STA L014E87 +L025087 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L0250AA + BRL L0250FB +L0250AA LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 +L0250FB LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L025127 + DEX +L025127 LDY #$0001 + CMP $01,S + BEQ L02512F + DEY +L02512F TXA + CMP $03,S + BEQ L025137 + LDY #$0000 +L025137 PLA + PLA + TYA + BEQ L02513F + BRL L02525D +L02513F LDA #$8006 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _RemoveResource + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8006 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA #$0000 + LDX #$0000 + TAY + BPL L0251F4 + DEX +L0251F4 PHX + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0010 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005A + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02525D LDA #$0000 + PHA + LDA #$0807 + PHA + _CheckMItem + STA L014E87 + LDA #$0000 + PHA + LDA #$0808 + PHA + _CheckMItem + STA L014E87 + LDA #$0000 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 + LDA #$0808 + PHA + _DisableMItem + STA L014E87 + LDA #$0809 + PHA + _DisableMItem + STA L014E87 + BRL L02537C +L0252B2 LDX L010702+2 + LDA L010702 + PHX + PHA + PEA ^L026F9F + PEA L026F9F + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + JSL L010A0E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8006 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA #$0001 + PHA + LDA #$0807 + PHA + _CheckMItem + STA L014E87 + LDA #$0808 + PHA + _EnableMItem + STA L014E87 + LDA #$0809 + PHA + _EnableMItem + STA L014E87 +L02537C PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _KillControls + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0253EB + BRL L0253F3 +L0253EB LDA #$0001 + PHA + JSL L0213E7 +L0253F3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025416 + BRL L02541E +L025416 LDA #$0001 + PHA + JSL L021660 +L02541E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L025441 + BRL L02545A +L025441 JSL L0228C5 + pea $0001 + pea $080D + _CheckMItem + bra L02546C +L02545A pea $0000 + pea $080D + _CheckMItem +L02546C LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80A Info bar + +L025497 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0010 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0254F9 + BRL L02552D +L0254F9 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$003C + STA $00 + STX $02 + LDA #$000D + STA [$00] + LDA #$0001 + PHA + LDA #$080A + PHA + _CheckMItem + STA L014E87 + BRL L02555E +L02552D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$003C + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDA #$0000 + PHA + LDA #$080A + PHA + _CheckMItem + STA L014E87 +L02555E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L025581 + BRL L025589 +L025581 LDA $16 + CLC + ADC #$000D + STA $16 +L025589 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _KillControls + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0255F8 + BRL L025600 +L0255F8 LDA #$0001 + PHA + JSL L0213E7 +L025600 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025623 + BRL L02562B +L025623 LDA #$0001 + PHA + JSL L021660 +L02562B LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L02564E + BRL L025667 +L02564E JSL L0228C5 + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L025679 +L025667 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L025679 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80B Right scroll bar + +L0256A4 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L025706 + BRL L0257B6 +L025706 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025729 + BRL L0257B6 +L025729 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BEQ L02574C + BRL L0257A4 +L02574C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0228C5 + LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L0257B6 +L0257A4 LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L0257B6 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + PHA + JSL L0213E7 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0257FC + BRL L025800 +L0257FC JSL L022B7E +L025800 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80C Bottom scroll bar + +L02582B LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L02588D + BRL L02593D +L02588D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0258B0 + BRL L02593D +L0258B0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BEQ L0258D3 + BRL L02592B +L0258D3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0228C5 + LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L02593D +L02592B LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L02593D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + PHA + JSL L021660 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L025983 + BRL L025987 +L025983 JSL L022B3A +L025987 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80D Size box + +L0259B2 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0228C5 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BEQ L025A18 + BRL L025B15 +L025A18 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + LDX #$0000 + CMP #$0000 + BEQ L025A3F + INX +L025A3F TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + LDX #$0000 + CMP #$0000 + BEQ L025A68 + INX +L025A68 TXA + AND $01,S + PLX + TAX + BNE L025A72 + BRL L025B00 +L025A72 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + PHA + JSL L0213E7 + LDA #$0000 + PHA + JSL L021660 +L025B00 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L025B27 +L025B15 LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L025B27 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L025B4A + BRL L025B4E +L025B4A JSL L022B3A +L025B4E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025B71 + BRL L025B75 +L025B71 JSL L022B7E +L025B75 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 802 Edit colors + +L025BA0 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + PHA + LDY #$0020 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L025BF4 + DEX +L025BF4 LDY #$0001 + CMP $01,S + BEQ L025BFC + DEY +L025BFC TXA + CMP $03,S + BEQ L025C04 + LDY #$0000 +L025C04 PLA + PLA + TYA + BNE L025C0C + BRL L025C10 +L025C0C JSL L020E66 +L025C10 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + PHA + LDY #$0020 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8010 + STA [$00] + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 803 Add control + +L025C8D LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L025CBF + DEX +L025CBF PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8004 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L025CFB + DEX +L025CFB STX L0106FE + STA L0106FC +L025D04 BRL L026F97 +L025D07 pei $20 + pei $1E + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L042E6F + LDA #$0000 + LDX #$0000 + TAY + BPL L025D23 + DEX +L025D23 PHX + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] +* PHA +* PLA + CLC + ADC #$0072 +* PHA +* PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 +* PHA +* PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L025D92 + DEX +L025D92 PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 +* PHA +* PLA + CLC + ADC #$0052 +* PHA +* PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 +* PHA +* PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 808 Close box + +L025DDC LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$4000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L025E3E + BRL L025E53 +L025E3E pea $0001 + pea $0808 + _CheckMItem + bra L025E65 +L025E53 pea $0000 + pea $0808 + _CheckMItem +L025E65 LDA $18 + CLC + ADC #$0023 + STA $1C + LDA $16 + CLC + ADC #$000A + STA $1A + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 809 Zoom box + +L025EB3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L025F15 + BRL L025F2A +L025F15 LDA #$0001 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 + BRL L025F3C +L025F2A LDA #$0000 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 +L025F3C LDA $1C + SEC + SBC #$0023 + STA $18 + LDA $16 + CLC + ADC #$000A + STA $1A + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 805 Set zoom rect + +L025F8A LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$000C + STX $08 + STA $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + _GetPortRect + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$06],Y + AND #$8000 + BNE L025FE1 + BRL L025FFC +L025FE1 PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + LDY #$000C + LDA [$06],Y + CLC + ADC #$000D + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025FFC LDY #$0002 + LDA [$06],Y + AND #$1000 + BNE L026009 + BRL L026028 +L026009 PEI $08 + PEI $06 + PLA + CLC + ADC #$0012 + PHA + LDA #$0018 + PHA + LDY #$0012 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L026028 LDY #$0002 + LDA [$06],Y + AND #$0800 + BNE L026035 + BRL L026054 +L026035 PEI $08 + PEI $06 + PLA + CLC + ADC #$0010 + PHA + LDA #$000D + PHA + LDY #$0010 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L026054 PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + _LocalToGlobal + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0010 + PHA + _LocalToGlobal + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0806 + PHA + _EnableMItem + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022BC2 + BRL L026F97 + +* 806 Clear zoom rect + +L0260C9 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0018 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetRect + STA L014E87 + LDA #$0806 + PHA + _DisableMItem + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022BC2 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80E Test window + +L026149 JSL L024BBB + +L026150 BRL L026F97 + +L026153 SEC + SBC #$00FB + CMP #$0714 + BCC L02615F + LDA #$0714 +L02615F ASL + TAX + LDAL L02616D,X + BEQ L026169 + PHA + RTS + +L026169 JSL L014F19 + +L02616D DA L025D04-1 + DA L025D04-1 + DA L025D04-1 + DA L025D07-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L025BA0-1 ; 802 Edit colors + DA L025C8D-1 ; 803 Add control + DA L024F68-1 ; 804 Zoom window + DA L025F8A-1 ; 805 Set zoom rect + DA L0260C9-1 ; 806 Clear zoom rect + DA L024FB1-1 ; 807 Title bar + DA L025DDC-1 ; 808 Close box + DA L025EB3-1 ; 809 Zoom box + DA L025497-1 ; 80A Info bar + DA L0256A4-1 ; 80B Right scroll bar + DA L02582B-1 ; 80C Bottom scroll bar + DA L0259B2-1 ; 80D Size box + DA L026149-1 ; 80E Test window + DA L026150-1 ; 80F + +L026F97 PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L026F9F STR ' Title ' + DB $00 +L026FA8 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $16 + LDA $16 + CMP #$001B + BEQ L026FE0 + BRL L026FEC +L026FE0 LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF +L026FEC LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L027003 + BRL L0271ED +L027003 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + BRL L0271C5 +L027021 BRL L0271ED +L027024 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0018 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0018 + PHA + _LocalToGlobal + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001C + PHA + _LocalToGlobal + STA L014E87 + LDA $16 + CMP #$0008 + BEQ L02708F + BRL L0270C3 +L02708F LDA #$0004 + SEC + SBC $1E + BEQ L02709E + BVS L02709C + EOR #$8000 +L02709C BMI L0270A1 +L02709E BRL L0270A4 +L0270A1 BRL L0271ED +L0270A4 LDA $1A + SEC + SBC #$0002 + PHA + LDA $18 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L0270C3 LDA $16 + CMP #$000A + BEQ L0270CD + BRL L027101 +L0270CD LDA $18 + SEC + SBC #$00C6 + BEQ L0270DC + BVS L0270DA + EOR #$8000 +L0270DA BMI L0270DF +L0270DC BRL L0270E2 +L0270DF BRL L0271ED +L0270E2 LDA $1A + PHA + LDA $18 + CLC + ADC #$0001 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L027101 LDA $16 + CMP #$000B + BEQ L02710B + BRL L02713F +L02710B LDA #$0011 + SEC + SBC $1C + BEQ L02711A + BVS L027118 + EOR #$8000 +L027118 BMI L02711D +L02711A BRL L027120 +L02711D BRL L0271ED +L027120 LDA $1A + PHA + LDA $18 + SEC + SBC #$0001 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L02713F LDA $16 + CMP #$0015 + BEQ L027149 + BRL L02717D +L027149 LDA $1A + SEC + SBC #$027C + BEQ L027158 + BVS L027156 + EOR #$8000 +L027156 BMI L02715B +L027158 BRL L02715E +L02715B BRL L0271ED +L02715E LDA $1A + CLC + ADC #$0002 + PHA + LDA $18 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L02717D BRL L0271ED +L027180 BRL L0271ED +L027183 LDX L010702+2 + LDA L010702 + PHX + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDA $16 + PHA + JSL L042683 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0271ED +L0271C5 CMP #$0008 + BCC L0271CD + LDA #$0008 +L0271CD ASL + TAX + LDAL L0271DB,X + BEQ L0271D7 + PHA + RTS + +L0271D7 JSL L014F19 +L0271DB DA L027021-1 + DA L027021-1 + DA L027021-1 + DA L027024-1 + DA L027021-1 + DA L027021-1 + DA L027021-1 + DA L027024-1 + DA L027183-1 + +L0271ED PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L0271F5 ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + STA L0106A4 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003E + LDA [$00],Y + BRL L027539 +L027222 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L02726A + DEX +L02726A LDY #$0001 + CMP $01,S + BEQ L027272 + DEY +L027272 TXA + CMP $03,S + BEQ L02727A + LDY #$0000 +L02727A PLA + PLA + TYA + BNE L027282 + BRL L0272B2 +L027282 JSL L02108E + JSL L0225B8 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0272B2 JSL L02185B + BRL L027561 +L0272B9 LDX #^L01070E + LDA #L01070E + PHX + PHA + LDA #$FF01 + PHA + PEA ^L027571 + PEA L027571 + LDA #$0012 + PHA + JSL L014B68 + PEA ^L01070E + PEA L01070E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L027561 +L0272F9 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + CMP #$0008 + BEQ L027310 + BRL L027317 +L027310 JSL L022D2B + BRL L027396 +L027317 JSL L022181 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + BRL L02734C +L02732D JSL L0224A4 + BRL L027396 +L027334 JSL L023B5C + BRL L027396 +L02733B JSL L024EFB + BRL L027396 +L027342 JSL L026FA8 + BRL L027396 +L027349 BRL L027396 +L02734C SEC + SBC #$0003 + CMP #$0017 + BCC L027358 + LDA #$0017 +L027358 ASL + TAX + LDAL L027366,X + BEQ L027362 + PHA + RTS + +L027362 JSL L014F19 +L027366 DA L027342-1 + DA L027349-1 + DA L027342-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L02733B-1 + DA L027349-1 + DA L027334-1 + DA L027349-1 + DA L027349-1 + DA L02732D-1 + DA L027349-1 + DA L027349-1 + DA L02733B-1 + DA L027349-1 + +L027396 BRL L027561 +L027399 LDA #$0000 + STA L0106A6 + LDA #$0000 + STA L010700 + LDX #^L01070E + LDA #L01070E + PHX + PHA + LDA #$FF01 + PHA + PEA ^L027583 + PEA L027583 + LDA #$0006 + PHA + JSL L014B68 + PEA ^L01070E + PEA L01070E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$800E + STA [$00] + JSL L01004E + PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0032 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$005C + LDA [$00],Y + TAX + LDY #$005A + LDA [$00],Y + STX L0106FA + STA L0106F8 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + JSL L040000 + BRL L027561 +L027451 JSL L022181 + JSL L0224A4 + BRL L027561 +L02745C PHA + PHA + _FrontWindow + STA L014E87 + PLA + STA L01070A + PLA + STA L01070A+2 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA L010702 + PLA + STA L010702+2 + JSL L021D6B + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + beq L027514 +L0274C2 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0008 + LDA [$00],Y + TAX + LDY #$0006 + LDA [$00],Y + PHX + PHA + LDA #$0000 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L0106FA + LDA L0106F8 + PHX + PHA + JSL L010419 +L027514 BRL L027561 +L027517 JSL L022181 + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022213 +L027536 BRL L027561 +L027539 CMP #$0008 + BCC L027541 + LDA #$0008 +L027541 ASL + TAX + LDAL L02754F,X + BEQ L02754B + PHA + RTS + +L02754B JSL L014F19 + +L02754F DA L027222-1 + DA L0272B9-1 + DA L0272F9-1 + DA L027399-1 + DA L027451-1 + DA L02745C-1 + DA L0272F9-1 + DA L027517-1 + DA L027536-1 + +L027561 LDA #$0000 + STA $16 + LDX $16 + PLD + TSC + CLC + ADC #$0020 + TCS + TXA + RTL + +L027571 ASC 'Window editor v1.2' +L027583 ASC 'Window'