diff --git a/rsounder/ARRAYS.S b/rsounder/ARRAYS.S new file mode 100644 index 0000000..1a6456f --- /dev/null +++ b/rsounder/ARRAYS.S @@ -0,0 +1,461 @@ +* +* rSounder +* (c) 1995, Paul Benson +* (s) 2024, Brutal Deluxe Software +* + + mx %00 + rel + +*----------------------------------- + +L040000 ENT +* ASC 00'RSounder3 Copyright 1995 Paul Benson BaJa Software'00 + ds 256 ; an empty page + ; we fill until the end of a page in the sound +L040034 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 +L04007A ENT + DB $00 + DB $00 + DB $84 + DB $00 + DW $018C + DW $039C + DW $07BC + DW $0FFC + DW $207C + DW $417C +L04008A 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 +L04009A ENT + DB $00 + DB $00 +L04009C ENT + DB $00 + DB $00 +L04009E ENT + DB $00 + DB $00 +L0400A0 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 +L0400B0 ENT + DB $00 + DB $00 +L0400B2 ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0400B8 ENT + DB $00 + DB $00 +L0400BA ENT + DB $00 + DB $00 +L0400BC ENT + DB $00 + DB $00 +L0400BE ENT + DB $00 + DB $00 +L0400C0 ENT + DB $00 + DB $00 +L0400C2 ENT + DB $00 + DB $00 + DB $00 + DB $00 +L0400C6 ENT + DB $00 + DB $00 +L0400C8 ENT + DB $00 + DB $00 +L0400CA 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 +L0400E2 ENT + DB $00 + DB $00 +L0400E4 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 +L0400F2 ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0400FA ENT + DB $00 + DB $00 +L0400FC ENT + DB $00 + DB $00 +L0400FE ENT + DB $00 + DB $00 +L040100 ENT + DB $00 + DB $00 +L040102 ENT + DB $00 + DB $00 +L040104 ENT + DB $00 + DB $00 +L040106 ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $72 + DB $00 + DB $90 + DB $01 + DB $FF + DB $FF + DB $00 + DB $00 + DB $00 + DB $00 + ADRL L040198 + ADRL L040138 + ADRL L040180 + ADRL L040168 + ADRL L0401C8 + ADRL L0401B0 + ADRL L040150 + ADRL L0401E0 + DB $00 + DB $00 + DB $00 + DB $00 +L040138 DB $02 + DB $00 + DB $4F + DB $00 + DB $09 + DB $01 + DB $5B + DB $00 + DB $77 + DB $01 + DB $0A + DB $00 + ADRL L0401F8 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L040150 DB $07 + DB $00 + DB $19 + DB $00 + DB $12 + DB $00 + DB $6B + DB $00 + DB $D7 + DB $00 + DB $14 + DB $80 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L040168 DB $04 + DB $00 + DB $61 + DB $00 + DB $09 + DB $01 + DB $6D + DB $00 + DB $77 + DB $01 + DB $0A + DB $00 + ADRL L0401FF + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L040180 DB $03 + DB $00 + DB $19 + DB $00 + DB $09 + DB $01 + DB $25 + DB $00 + DB $77 + DB $01 + DB $0A + DB $00 + ADRL L040207 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L040198 DB $01 + DB $00 + DB $3D + DB $00 + DB $09 + DB $01 + DB $49 + DB $00 + DB $77 + DB $01 + DB $0A + DB $00 + ADRL L04020F + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0401B0 DB $06 + DB $00 + DB $0C + DB $00 + DB $0F + DB $00 + DB $18 + DB $00 + DB $8B + DB $01 + DB $14 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0401C8 DB $05 + DB $00 + DB $2B + DB $00 + DB $09 + DB $01 + DB $37 + DB $00 + DB $77 + DB $01 + DB $0A + DB $00 + ADRL L040217 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0401E0 DB $08 + DB $00 + DB $03 + DB $00 + DB $0F + DB $00 + DB $0C + DB $00 + DB $8B + DB $01 + DB $0F + DB $80 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0401F8 STR 'Close' + DB $00 +L0401FF STR 'Cancel' + DB $00 +L040207 STR 'Volume' + DB $00 +L04020F STR 'Append' + DB $00 +L040217 STR 'Accept' + DB $00 + diff --git a/rsounder/GLOBALS.S b/rsounder/GLOBALS.S new file mode 100644 index 0000000..db97076 --- /dev/null +++ b/rsounder/GLOBALS.S @@ -0,0 +1,134 @@ +* +* rSounder +* (c) 1995, Paul Benson +* (s) 2024, Brutal Deluxe Software +* + + mx %00 + rel + +*----------------------------------- + +L030000 ENT + DB $00 +L030001 ENT + DB $00 + DB $00 +L030003 ENT + DB $00 + DB $00 +L030005 ENT + DB $00 + DB $00 +L030007 ENT + DB $00 + DB $00 +L030009 ENT + DB $00 + DB $00 +L03000B ENT + DB $00 + DB $00 +L03000D ENT + DB $00 + DB $00 +L03000F ENT + DB $00 + DB $00 +L030011 ENT + DB $00 + DB $00 +L030013 ENT + DB $00 + DB $00 +L030015 ENT + DB $00 + DB $00 +L030017 ENT + DB $00 + DB $00 +L030019 ENT + DB $00 + DB $00 +L03001B ENT + DB $00 + DB $00 +L03001D ENT + DB $00 + DB $00 +L03001F ENT + DB $00 + DB $00 +L030021 ENT + DB $00 + DB $00 +L030023 ENT + DB $00 + DB $00 +L030025 ENT + DB $00 + DB $00 +L030027 ENT + DB $00 + DB $00 +L030029 ENT + DB $00 + DB $00 +L03002B ENT + DB $00 + DB $00 +L03002D ENT + DB $00 + DB $00 +L03002F ENT + DB $00 + DB $00 +L030031 ENT + DB $00 + DB $00 +L030033 ENT + DB $00 + DB $00 +L030035 ENT + DB $00 + DB $00 +L030037 ENT + DB $00 + DB $00 +L030039 ENT + DB $00 + DB $00 +L03003B ENT + DB $00 + DB $00 +L03003D ENT + DB $00 +L03003E ENT + DB $03 + DB $00 +L030040 ENT + DB $00 + DB $00 +L030042 ENT + DB $00 + DB $00 +L030044 ENT + DB $00 + DB $00 +L030046 ENT + DB $00 + DB $00 +L030048 ENT + DB $00 + DB $00 +L03004A ENT + DB $00 + DB $00 +L03004C ENT + DB $00 + DB $00 +L03004E ENT + DB $00 + DB $00 + DB $00 + diff --git a/rsounder/MAKE.S b/rsounder/MAKE.S new file mode 100644 index 0000000..8fbe360 --- /dev/null +++ b/rsounder/MAKE.S @@ -0,0 +1,25 @@ + +* Expansion linker file + + + DSK rSounder31 + TYP $B3 + AUX $DB00 + + XPL + +* Assemble files + + ASM RSOUNDER.S + KND $0000 + SNA RSOUNDER + + ASM GLOBALS.S + KND $0000 + SNA GLOBALS + + ASM ARRAYS.S + KND $0000 + SNA ARRAYS + +* END diff --git a/rsounder/RSOUNDER.S b/rsounder/RSOUNDER.S new file mode 100644 index 0000000..c3e1f93 --- /dev/null +++ b/rsounder/RSOUNDER.S @@ -0,0 +1,24831 @@ +* +* rSounder +* (c) 1995, Paul Benson +* (s) 2024, Brutal Deluxe Software +* +* +* v3.1: align a sound on a page +* removed (c) suffix on sound data + + mx %00 + rel + +*----------------------------------- + + use 4/Ctl.Macs + use 4/Desk.Macs + use 4/Event.Macs + use 4/Font.Macs + use 4/Int.Macs + use 4/Line.Macs + use 4/List.Macs + use 4/Locator.Macs + use 4/Mem.Macs + use 4/Menu.Macs + use 4/MIDISyn.Macs + use 4/Misc.Macs + use 4/Print.Macs + use 4/Qd.Macs + use 4/QdAux.Macs + use 4/Resource.Macs + use 4/Sane.Macs + use 4/Scrap.Macs + use 4/Sound.Macs + use 4/Std.Macs + use 4/TextEdit.Macs + use 4/Util.Macs + use 4/Window.Macs + + use RSOUNDER.X.S + +*----------------------------------- + +GSOS EQU $E100A8 + +*----------------------------------- + + JSL L02CBA4 + PEA >L030000 + PLB + PLB + JSL L02AE9C + JSL L0246A5 + JSL L02AE93 +L020015 TSC + SEC + SBC #$0004 + TCS + PHD + TCD + LDA #$8000 + STAL L03001B + LDA #$0000 + STAL L030019 + STAL L03000D + STAL L030015 + PHA + PHA + _SetMenuBar + STAL L02B111 + _InitCursor + STAL L02B111 + PEA $00FF + _DisableMItem + STAL L02B111 + PEA $0104 + _DisableMItem + STAL L02B111 + PEA $0112 + _DisableMItem + STAL L02B111 + PEA $0115 + _DisableMItem + STAL L02B111 + PEA $0113 + _DisableMItem + STAL L02B111 + PEA $0114 + _DisableMItem + STAL L02B111 + PEA $010E + _DisableMItem + STAL L02B111 + PEA $0109 + _DisableMItem + STAL L02B111 + PEA $010A + _DisableMItem + STAL L02B111 + PEA $0108 + _DisableMItem + STAL L02B111 + PEA $010B + _DisableMItem + STAL L02B111 + PEA $0119 + _DisableMItem + STAL L02B111 + PEA $010C + _DisableMItem + STAL L02B111 + PEA $010D + _DisableMItem + STAL L02B111 + PHA + PHA + PEA $0001 + PEA $0001 + PEA $0000 + _LoadResource + STAL L02B111 + PLA + STAL L030031 + PLA + STAL L030033 + LDAL L030033 + PHA + LDAL L030031 + PHA + _HLock + STAL L02B111 + LDAL L030033 + TAX + LDAL L030031 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L03000F + TXA + STAL L030011 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDA [$01] + LDX #$0000 + TAY + BPL L020178 + DEX +L020178 STAL L030039 + TXA + STAL L03003B + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + STAL L03000D + PHA + PHA + PEA $8024 + PEA $0000 + PEA $0001 + _LoadResource + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L020201 + LDAL L03002B + LDX #$0000 + CMP #$0201 + BNE L0201CF + INX +L0201CF TXA + CMP #$0000 + BEQ L0201DA + LDA #$0001 + BRA L0201F0 +L0201DA LDAL L03002B + LDX #$0000 + CMP #$1E06 + BNE L0201E7 + INX +L0201E7 TXA + CMP #$0000 + BEQ L0201F0 + LDA #$0001 +L0201F0 TAX + BEQ L0201F6 + LDA #$0001 +L0201F6 EOR #$0001 + BEQ L0201FF + JSL L0250E2 +L0201FF BRA L020251 +L020201 PEA $0006 + PEA $0001 + PEA ^L020259 + PEA L020259 + LDAL L03002F + PHA + LDAL L03002D + PHA + PEA $0000 + PEA $0000 + _SendRequest + STAL L02B111 + PEA $8024 + PEA $0000 + PEA $0001 + _DetachResource + STAL L02B111 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 +L020251 PLD + TSC + CLC + ADC #$0004 + TCS + RTL + +L020259 STR 'Apple~SoundCP~' + DB $00 +L020269 TSC + SEC + SBC #$012C + TCS + PHD + TCD + LDAL L030019 + AND #$0010 + BNE L0202D2 + LDAL L030019 + ORA #$0010 + STAL L030019 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FF8 + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STAL L03001D + PLA + STAL L03001F + JSL L02AE36 + STAL L03002B + TAX + BEQ L0202D2 + PEA $0028 + JSL L024DB6 +L0202D2 LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0006 + BCC L0202E2 + INX +L0202E2 STA $17 + STX $19 + LDA [$17] + XBA + AND #$FF00 + STA [$17] + LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0006 + BCC L0202FE + INX +L0202FE STA $05 + STX $07 + INC $05 + BNE L020308 + INC $07 +L020308 LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $0010 + PEI $07 + PEI $05 + _SetLETextByID + STAL L02B111 + LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0006 + BCC L020337 + INX +L020337 STA $17 + STX $19 + LDA [$17] + XBA + AND #$00FF + STA [$17] + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDA [$01] + PHA + PEA ^L020904 + PEA L020904 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02AA15 + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $0011 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02A628 + PHX + PHA + _SetLETextByID + STAL L02B111 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + PHA + PEA ^L020907 + PEA L020907 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02AA15 + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $0012 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02A628 + PHX + PHA + _SetLETextByID + STAL L02B111 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDY #$0004 + LDA [$01],Y + BEQ L02044E + LDA #$0000 + PHA + PHA + PHA + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $000E + _GetCtlHandleFromID + STAL L02B111 + _SetCtlValue + STAL L02B111 + LDA #$0001 + PHA + PHA + PHA + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $000F + _GetCtlHandleFromID + STAL L02B111 + _SetCtlValue + STAL L02B111 + BRA L0204A6 +L02044E LDA #$0001 + PHA + PHA + PHA + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $000E + _GetCtlHandleFromID + STAL L02B111 + _SetCtlValue + STAL L02B111 + LDA #$0000 + PHA + PHA + PHA + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $000F + _GetCtlHandleFromID + STAL L02B111 + _SetCtlValue + STAL L02B111 +L0204A6 LDAL L03001F + PHA + LDAL L03001D + PHA + _ShowWindow + STAL L02B111 + LDAL L03001F + PHA + LDAL L03001D + PHA + _SelectWindow + STAL L02B111 +L0204D0 LDA #$0000 + STA $0D + STA $0F +L0204D7 PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0018 + _DoModalWindow + STAL L02B111 + PLA + STA $0D + PLA + STA $0F + PEI $0F + PEI $0D + LDA #$0013 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L020517 + DEY +L020517 TXA + CMP $03,S + BEQ L02051F + LDY #$0000 +L02051F PLA + PLA + TYA + BNE L020543 + PEI $0F + PEI $0D + LDA #$0014 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L020536 + DEY +L020536 TXA + CMP $03,S + BEQ L02053E + LDY #$0000 +L02053E PLA + PLA + TYA + BEQ L0204D7 +L020543 PEI $0F + PEI $0D + LDA #$0013 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L020555 + DEY +L020555 TXA + CMP $03,S + BEQ L02055D + LDY #$0000 +L02055D PLA + PLA + TYA + BNE L020565 + BRL L0208C8 +L020565 STZ $07 + TDC + CLC + ADC #$0022 + STA $05 + INC $05 + BNE L020574 + INC $07 +L020574 LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $0010 + PEI $07 + PEI $05 + _GetLETextByID + STAL L02B111 + LDA [$05] + AND #$00FF + LDX #$0000 + CLC + ADC $05 + STA $09 + TXA + ADC $07 + STA $0B +L0205A5 LDA [$09] + AND #$00FF + CMP #$002F + BEQ L0205B9 + LDA [$09] + AND #$00FF + CMP #$003A + BNE L0205C3 +L0205B9 LDA $09 + BNE L0205BF + DEC $0B +L0205BF DEC $09 + BRA L0205A5 +L0205C3 INC $09 + BNE L0205C9 + INC $0B +L0205C9 SEP #$20 + LDA #$00 + STA [$09] + REP #$20 + LDX $07 + LDA $05 + INC + BNE L0205D9 + INX +L0205D9 STA $09 + STX $0B +L0205DD LDA [$09] + AND #$00FF + TAX + BEQ L0205FF + LDA [$09] + AND #$00FF + CMP #$002F + BNE L0205F7 + SEP #$20 + LDA #$3A + STA [$09] + REP #$20 +L0205F7 INC $09 + BNE L0205FD + INC $0B +L0205FD BRA L0205DD +L0205FF LDX $0B + LDA $09 + SEC + SBC $05 + TAY + TXA + SBC $07 + TAX + TYA + DEC + STA $22 + LDX #$0125 + TDC + CLC + ADC #$0022 + STA $00,X + STZ $02,X + LDA #$0003 + LDX #$0123 + STA $00,X + PEA $2006 + PEA $0000 + TDC + CLC + ADC #$0123 + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + LDAL L03002B + BEQ L02064F + JSL L0250E2 + LDA #$0000 + STA $0D + STA $0F + BRL L0208C8 +L02064F LDX #$012B + LDA $00,X + CMP #$000F + BEQ L020684 + PEA $0000 + PEA $0000 + PEA ^L02090A + PEA L02090A + PEA $0000 + PEA $0004 + JSL L024AEF + LDX #$0000 + TAY + BPL L020676 + DEX +L020676 STX $0F + STA $0D + LDA #$0000 + STA $0D + STA $0F + BRL L0208C8 +L020684 PEA $0000 + TDC + CLC + ADC #$0024 + PHA + LDAL L030011 + PHA + LDAL L03000F + CLC + ADC #$0008 + BCC L02069F + PLX + INX + PHX +L02069F PHA + JSL L02AB57 + LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0006 + BCC L0206B4 + INX +L0206B4 STA $01 + STX $03 + LDA $22 + STA [$01] + STZ $07 + TDC + CLC + ADC #$001B + STA $05 + INC $05 + BNE L0206CB + INC $07 +L0206CB LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $0012 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + _GetLETextByID + STAL L02B111 + PEI $07 + PEI $05 + JSL L02A60A + AND #$000F + STAL L03000D + PHA + LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0002 + BCC L02070F + INX +L02070F STA $01 + STX $03 + PLA + STA [$01] + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + PEA $0011 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + _GetLETextByID + STAL L02B111 + PEI $07 + PEI $05 + JSL L02A60A + STAL L030039 + TXA + STAL L03003B + LDA L030039 + ORA L03003B + BNE L02076A + CLC + LDAL L030039 + ADC #$0001 + STAL L030039 + BCC L02076A + LDAL L03003B + INC + STAL L03003B +L02076A PEA $0000 + PEA $FFFA + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L020785 + TYA + CMP $01,S +L020785 BEQ L020789 + BCS L02078A +L020789 DEX +L02078A PLA + PLA + TXA + BEQ L02079D + LDA #$0000 + STAL L03003B + LDA #$FFFA + STAL L030039 +L02079D LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDAL L030039 + STA [$01] + PHA + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0000 + _FindRadioButton + STAL L02B111 + PLA + CMP #$0000 + BEQ L0207D4 + LDA #$0001 + BRA L020804 +L0207D4 PHA + LDAL L03001F + PHA + LDAL L03001D + PHA + PEA $0001 + _FindRadioButton + STAL L02B111 + PLA + STA $01 + LDA #$0001 + TAX + CMP $01 + BEQ L0207FA + BCS L0207FB +L0207FA DEX +L0207FB TXA + CMP #$0000 + BEQ L020804 + LDA #$0001 +L020804 PHA + LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0004 + BCC L020815 + INX +L020815 STA $01 + STX $03 + PLA + STA [$01] + PEA $0001 + PEA $0001 + PEA $0001 + PEA $0000 + _MarkResourceChange + STAL L02B111 + LDAL L030019 + AND #$0004 + BNE L02083F + BRL L0208C8 +L02083F LDAL L03003B + PHA + LDAL L030039 + PHA + PEA ^L02091E + PEA L02091E + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02AA15 + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0009 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02A628 + PHX + PHA + _SetLETextByID + STAL L02B111 + LDAL L03000D + PHA + PEA ^L020922 + PEA L020922 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02AA15 + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0006 + PEA $0000 + TDC + CLC + ADC #$001B + PHA + JSL L02A628 + PHX + PHA + _SetLETextByID + STAL L02B111 +L0208C8 LDA $0D + ORA $0F + BNE L0208D1 + BRL L0204D0 +L0208D1 LDAL L03001F + PHA + LDAL L03001D + PHA + _HideWindow + STAL L02B111 + _InitCursor + STAL L02B111 + LDAL L030019 + ORA #$0010 + STAL L030019 + PLD + TSC + CLC + ADC #$012C + TCS + RTL + +L020904 ASC '%d'00 +L020907 ASC '%d'00 +L02090A ASC 'Must Specify A Path'00 +L02091E ASC '%ld'00 +L020922 ASC '%d'00 +L020925 TSC + SEC + SBC #$0008 + TCS + PHD + TCD + LDA #L040034 + STA $05 + LDA #^L040034 + STA $07 + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0009 + PEA ^L040034 + PEA L040034 + _GetLETextByID + STAL L02B111 + INC $05 + BNE L02095E + INC $07 +L02095E PEI $07 + PEI $05 + JSL L02A60A + STAL L030039 + TXA + STAL L03003B + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0006 + PEA ^L040034 + PEA L040034 + _GetLETextByID + STAL L02B111 + PEI $07 + PEI $05 + JSL L02A60A + AND #$000F + STAL L03000D + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0002 + PEA ^L040034 + PEA L040034 + _GetLETextByID + STAL L02B111 + LDAL L040034 + AND #$00FF + STAL L030037 + LDA $05 + BNE L0209D1 + DEC $07 +L0209D1 DEC $05 +L0209D3 LDA [$05] + AND #$00FF + TAX + BEQ L0209F1 + LDY #$0001 + LDA [$05],Y + AND #$00FF + SEP #$20 + STA [$05] + REP #$20 + INC $05 + BNE L0209EF + INC $07 +L0209EF BRA L0209D3 +L0209F1 PLD + TSC + CLC + ADC #$0008 + TCS + RTL + +L0209F9 TSC + SEC + SBC #$014D + TCS + PHD + TCD + LDA #$0001 + STA $07 + STZ $09 + LDA #$0003 + STAL L0400FA + STAL L040100 + PEA ^L040034 + PEA L040034 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02AB57 + LDX #$0151 + LDA $00,X + CMP #$0003 + BEQ L020A43 + PEA ^L020FC6 + PEA L020FC6 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02AB0B +L020A43 PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02AB8B + STA $23 + STZ $05 +L020A54 LDA $23 + CMP $05 + BEQ L020A5C + BCS L020A5E +L020A5C BRA L020ABC +L020A5E PEA $0000 + TDC + CLC + ADC #$0025 + PHA + LDX #$0000 + LDA $05 + BPL L020A6F + DEX +L020A6F PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + CMP #$0020 + BNE L020AB8 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + LDX #$0000 + LDA $05 + BPL L020A9D + DEX +L020A9D PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$2E + STA [$01] + REP #$20 +L020AB8 INC $05 + BRA L020A54 +L020ABC LDX #$0151 + LDA $00,X + LDX #$0000 + CMP #$0003 + BNE L020ACA + INX +L020ACA TXA + STA $15 + PEA ^L020FC9 + LDA #L020FC9 + STA $17 + PLA + STA $19 + TDC + CLC + ADC #$0023 + LDX #$0000 + STX $1D + STA $1B + PEA ^L020FD7 + LDA #L020FD7 + STA $1F + PLA + STA $21 +L020AEF LDA $07 + BNE L020AF6 + BRL L020E34 +L020AF6 LDX #$0151 + LDA $00,X + BNE L020B3B + PEA $004B + PEA $0028 + PEA $0000 + PEA $0000 + PEA $0000 + PEI $21 + PEI $1F + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L040106 + PEA L040106 + PEA ^L02479D + PEA L02479D + PEA ^L0400F2 + PEA L0400F2 + _SFPGetFile2 + STAL L02B111 + BRA L020B60 +L020B3B PEA $004B + PEA $0028 + PEA $0000 + PEI $19 + PEI $17 + PEA $0000 + PEI $1D + PEI $1B + PEA ^L0400F2 + PEA L0400F2 + _SFPutFile2 + STAL L02B111 +L020B60 LDAL L0400F2 + BNE L020B69 + BRL L020E2E +L020B69 LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + LDA $15 + BNE L020BA0 + BRL L020D5B +L020BA0 LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDA #$0001 + LDX #$0124 + STA $00,X + LDAL L03000B + TAX + LDAL L030009 + CLC + ADC #$0002 + BCC L020BE2 + INX +L020BE2 TXY + LDX #$0126 + STA $00,X + TYA + STA $02,X + LDA #$00C3 + LDX #$012A + STA $00,X + LDA #$0006 + LDX #$012C + STA $00,X + LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + PEA $3FF9 + PEA $9F5B + PEA $A979 + PEA $3B31 + PEA $F000 + JSL L02BF65 + JSL L02BBB7 + TXY + LDX #$012E + STA $00,X + STY $02,X + PEA $2002 + PEA $0000 + TDC + CLC + ADC #$0124 + PHA + JSL L02A4D6 + LDA #$0004 + LDX #$0124 + STA $00,X + PEA $2001 + PEA $0000 + TDC + CLC + ADC #$0124 + PHA + JSL L02A4D6 + LDA #$0004 + LDX #$0132 + STA $00,X + LDAL L03000B + TAX + LDAL L030009 + CLC + ADC #$0002 + BCC L020C67 + INX +L020C67 TXY + LDX #$0136 + STA $00,X + TYA + STA $02,X + LDA #$0002 + LDX #$013A + STA $00,X + LDX #$013C + STZ $00,X + PEA $2010 + PEA $0000 + TDC + CLC + ADC #$0132 + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020C9F + JSL L0250E2 + BRL L020FB0 +L020C9F LDA #$0004 + LDX #$013E + STA $00,X + LDX #$0134 + LDA $00,X + LDX #$0140 + STA $00,X + LDAL L030029 + TAX + LDAL L030027 + TXY + LDX #$0142 + STA $00,X + STY $02,X + LDAL L030023 + TAX + LDAL L030021 + TXY + LDX #$0146 + STA $00,X + STY $02,X + PEA $2013 + PEA $0000 + TDC + CLC + ADC #$013E + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020D0D + JSL L0250E2 + LDA #$0001 + LDX #$013E + STA $00,X + PEA $2014 + PEA $0000 + TDC + CLC + ADC #$013E + PHA + JSL L02A4D6 + BRL L020FB0 +L020D0D LDX #$0142 ; write suffix + LDA #L040000 + STA $00,X + LDA #^L040000 + STA $02,X + + LDX #$0146 +* LDA #$0033 +* STA $00,X + lda L030021 + and #$ff + sta $00,x + lda #256 + sec + sbc $00,x + sta $00,x + + LDA #$0000 + STA $02,X + PEA $2013 + PHA + TDC + CLC + ADC #$013E + PHA + JSL L02A4D6 + LDA #$0001 + LDX #$013E + STA $00,X + PEA $2014 + PEA $0000 + TDC + CLC + ADC #$013E + PHA + JSL L02A4D6 + LDAL L030019 + AND #$00FE + STAL L030019 + BRL L020FB0 + +L020D5B PEA $0000 + PEA $0003 + PEA $00D8 + PEA $00C3 + LDAL L03000B + PHA + LDAL L030009 + CLC + ADC #$0002 + BCC L020D79 + PLX + INX + PHX +L020D79 PHA + _CreateResourceFile + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BNE L020D93 + BRL L020E2A +L020D93 LDAL L03002B + CMP #$0070 + BEQ L020DD6 + LDAL L03002B + CMP #$1E01 + BEQ L020DD6 + JSL L0250E2 + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + BRL L020FB0 +L020DD6 LDX #$0151 + LDA $00,X + BEQ L020E26 + PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0005 + _AlertWindow + STAL L02B111 + PLA + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + BRL L020FB0 +L020E26 STZ $07 + BRA L020E2C +L020E2A STZ $07 +L020E2C BRA L020E31 +L020E2E BRL L020FB0 +L020E31 BRL L020AEF +L020E34 PHA + PEA $8003 + PEA $0000 + PEA $0000 + LDAL L03000B + PHA + LDAL L030009 + CLC + ADC #$0002 + BCC L020E50 + PLX + INX + PHX +L020E50 PHA + _OpenResourceFile + STAL L02B111 + PLA + STA $13 + PHA + PHA + PEA $FFFF + PEA $8024 + _UniqueResourceID + STAL L02B111 + PLA + STA $0F + PLA + STA $11 + LDAL L03002F + PHA + LDAL L03002D + PHA + PEA $0000 + PEA $8024 + PEI $11 + PEI $0F + _AddResource + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020EE4 + JSL L0250E2 + PEA $8024 + PEI $11 + PEI $0F + _DetachResource + STAL L02B111 + PEI $13 + _CloseResourceFile + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020EE1 + LDA $13 + ORA #$8000 + PHA + _CloseResourceFile + STAL L02B111 +L020EE1 BRL L020F86 +L020EE4 PEA $8024 + PEI $11 + PEI $0F + PEA ^L040034 + PEA L040034 + JSL L02A628 + PHX + PHA + _RMSetResourceName + STAL L02B111 + PEI $13 + _UpdateResourceFile + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020F21 + PEA $0003 + JSL L024DB6 +L020F21 PEA $8024 + PEI $11 + PEI $0F + _DetachResource + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020F45 + PEA $0004 + JSL L024DB6 +L020F45 PEI $13 + _CloseResourceFile + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L020F64 + PEA $0005 + JSL L024DB6 +L020F64 LDAL L03000B + PHA + LDAL L030009 + CLC + ADC #$0002 + BCC L020F76 + PLX + INX + PHX +L020F76 PHA + JSL L0251FD + LDAL L030019 + AND #$00FE + STAL L030019 +L020F86 LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 +L020FB0 LDX #$014E + LDA $00,X + LDY $01,X + LDX #$0150 + STA $00,X + STY $01,X + PLD + TSC + CLC + ADC #$014F + TCS + RTL + +L020FC6 ASC '.r'00 +L020FC9 STR 'Save Where? ' + DB $00 +L020FD7 STR 'Append to what file?' + DB $00 + +L020FED TSC + SEC + SBC #$0004 + TCS + PHD + TCD + LDAL L030019 + AND #$0001 + BEQ L021001 + BRL L0210DD +L021001 LDAL L030019 + AND #$0002 + BNE L02100D + BRL L0210DD +L02100D LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + LDAL L030019 + AND #$00FC + STAL L030019 + PEA $0115 + _DisableMItem + STAL L02B111 + PEA $0113 + _DisableMItem + STAL L02B111 + PEA $0114 + _DisableMItem + STAL L02B111 + PEA $0112 + _DisableMItem + STAL L02B111 + PEA $0104 + _DisableMItem + STAL L02B111 + PEA $010E + _DisableMItem + STAL L02B111 + PEA $010A + _DisableMItem + STAL L02B111 + PEA $010B + _DisableMItem + STAL L02B111 + PEA $0119 + _DisableMItem + STAL L02B111 + PEA $010C + _DisableMItem + STAL L02B111 + PEA $010D + _DisableMItem + STAL L02B111 + PEA $0109 + _DisableMItem + STAL L02B111 + LDA #$0001 + STA $01 + BRL L0211FC +L0210DD LDAL L030019 + AND #$0002 + BNE L0210E9 + BRL L0211F7 +L0210E9 PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0003 + _AlertWindow + STAL L02B111 + PLA + STA $03 + LDA $03 + BNE L021110 + STZ $01 + BRL L0211FC +L021110 LDA $03 + CMP #$0001 + BEQ L02111A + BRL L0211E9 +L02111A LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + LDAL L030019 + AND #$00FC + STAL L030019 + PEA $0115 + _DisableMItem + STAL L02B111 + PEA $0113 + _DisableMItem + STAL L02B111 + PEA $0114 + _DisableMItem + STAL L02B111 + PEA $0112 + _DisableMItem + STAL L02B111 + PEA $0104 + _DisableMItem + STAL L02B111 + PEA $010E + _DisableMItem + STAL L02B111 + PEA $010A + _DisableMItem + STAL L02B111 + PEA $010B + _DisableMItem + STAL L02B111 + PEA $0119 + _DisableMItem + STAL L02B111 + PEA $010C + _DisableMItem + STAL L02B111 + PEA $010D + _DisableMItem + STAL L02B111 + PEA $0109 + _DisableMItem + STAL L02B111 + LDA #$0002 + STA $01 + BRA L0211FC +L0211E9 PEA $0001 + JSL L0209F9 + LDA #$0001 + STA $01 + BRA L0211FC +L0211F7 LDA #$0001 + STA $01 +L0211FC LDY $01 + PLD + TSC + CLC + ADC #$0004 + TCS + TYA + RTL + +L021207 TSC + SEC + SBC #$0076 + TCS + PHD + TCD + JSL L020FED + TAX + BEQ L021219 + LDA #$0001 +L021219 EOR #$0001 + BEQ L021221 + BRL L021688 +L021221 STZ $09 + PEA ^L021690 + LDA #L021690 + STA $0D + PLA + STA $0F +L02122E LDA #$0003 + STAL L0400FA + STAL L040100 + PEA $004B + PEA $0028 + PEA $0000 + PEI $0F + PEI $0D + PEA ^L024836 + PEA L024836 + PEA $0000 + PEA $0000 + PEA ^L0400F2 + PEA L0400F2 + _SFGetFile2 + STAL L02B111 + LDAL L0400F2 + BNE L02126C + BRL L021681 +L02126C LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + LDA #$0007 + STAL L0400B8 + LDAL L03000B + TAX + LDAL L030009 + CLC + ADC #$0002 + BCC L0212B3 + INX +L0212B3 STA $13 + STX $15 + LDX $15 + LDA $13 + STAL L0400BC + TXA + STAL L0400BE + LDA [$13] + STA $11 + LDX #$0000 + CMP #$0045 + BCC L0212D3 + BEQ L0212D3 + INX +L0212D3 TXA + BNE L0212DA + LDA $11 + BRA L0212DD +L0212DA LDA #$0045 +L0212DD STA $0B + LDX #$0000 + TAY + BPL L0212E6 + DEX +L0212E6 PHX + PHA + LDAL L03000B + PHA + LDAL L030009 + CLC + ADC #$0004 + BCC L0212FA + PLX + INX + PHX +L0212FA PHA + PEA $0000 + TDC + CLC + ADC #$0031 + PHA + JSL L02AC0F + PEA $0000 + TDC + CLC + ADC #$0031 + PHA + LDX #$0000 + LDA $0B + BPL L021319 + DEX +L021319 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDA #$0001 + STAL L0400C0 + DEC + STAL L0400C2 + PEA $2010 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L02135F + PEA $0019 + JSL L024DB6 +L02135F LDAL L0400C6 + CMP #$0006 + BNE L021395 + LDAL L0400CA + TAX + LDAL L0400C8 + JSL L02BB54 + PEA $4004 + PEA $CD9F + PEA $F972 + PEA $4745 + PEA $3800 + JSL L02BF65 + JSL L02BBB7 + STAL L030039 + TXA + STAL L03003B +L021395 LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$0190 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L0213AF + TYA + CMP $01,S +L0213AF BEQ L0213B3 + BCS L0213B4 +L0213B3 DEX +L0213B4 PLA + PLA + TXA + BEQ L0213D8 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDA [$01] + LDX #$0000 + TAY + BPL L0213CF + DEX +L0213CF STAL L030039 + TXA + STAL L03003B +L0213D8 LDA #$0002 + STA $17 + LDAL L0400BA + STA $19 + STA $21 + PEA $2019 + PEA $0000 + TDC + CLC + ADC #$0017 + PHA + JSL L02A4D6 + PEI $1D + PEI $1B + LDA $01,S + STAL L0400E2 + LDA $03,S + STAL L0400E4 + LDA $01,S + STA $27 + LDA $03,S + STA $29 + PLA + STAL L030021 + PLA + STAL L030023 + LDAL L030019 + AND #$0008 + TAX + BEQ L021424 + LDA #$0001 +L021424 EOR #$0001 + BEQ L021437 + PEA $0109 + _EnableMItem + STAL L02B111 +L021437 PEA $010A + _EnableMItem + STAL L02B111 + PEA $010B + _EnableMItem + STAL L02B111 + PEA $0119 + _EnableMItem + STAL L02B111 + PEA $010C + _EnableMItem + STAL L02B111 + PEA $010D + _EnableMItem + STAL L02B111 + PHA + PHA + LDAL L0400E4 + PHA + LDAL L0400E2 + CLC + ADC #$000A + BCC L021491 + PLX + INX + PHX +L021491 PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L0214EB + LDAL L03002B + CMP #$0201 + BNE L0214D0 + LDA #$0086 + STAL L03002B +L0214D0 JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + BRL L021688 +L0214EB LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + PEA $0000 + DEY + PLA + SEP #$20 + STA [$05],Y + REP #$20 + AND #$00FF + SEP #$20 + STA [$05] + REP #$20 + PEI $07 + LDA $05 + CLC + ADC #$000A + BCC L021525 + PLX + INX + PHX +L021525 PHA + LDA $01,S + STA $23 + LDA $03,S + STA $25 + PLA + STAL L030027 + PLA + STAL L030029 + LDAL L0400E4 + PHA + LDAL L0400E2 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L021568 + LDA #$0001 +L021568 EOR #$0001 + BEQ L021574 + LDA #$0001 + STAL L030025 +L021574 LDA #$0004 + STA $1F + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$001F + PHA + JSL L02A4D6 + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L0215A2 + LDA $03,S + DEC + STA $03,S +L0215A2 LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + JSL L02AE36 + STAL L03002B + TAX + BEQ L0215D7 + PEA $001A + JSL L024DB6 +L0215D7 LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L030019 + AND #$0004 + TAX + BEQ L021622 + LDA #$0001 +L021622 EOR #$0001 + BEQ L021674 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FFA + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STAL L030001 + PLA + STAL L030003 + JSL L02AE36 + STAL L03002B + TAX + BEQ L021674 + PEA $001B + JSL L024DB6 +L021674 PEA $0000 + TDC + CLC + ADC #$0031 + PHA + JSL L025455 +L021681 LDA $09 + BEQ L021688 + BRL L02122E +L021688 PLD + TSC + CLC + ADC #$0076 + TCS + RTL + +L021690 STR 'Whadya Want? ' + DB $00 + +L02169F TSC + SEC + SBC #$00CA + TCS + PHD + TCD + JSL L020FED + TAX + BEQ L0216B1 + LDA #$0001 +L0216B1 EOR #$0001 + BEQ L0216B9 + BRL L022009 +L0216B9 LDA #$0061 + SEP #$20 + STA $61 + REP #$20 + AND #$00FF + SEP #$20 + STA $2A + REP #$20 + PEA ^L022011 + LDA #L022011 + STA $2B + PLA + STA $2D +L0216D6 LDA #$0003 + STAL L0400FA + STAL L040100 + SEP #$20 + LDA $2A + STA $59 + REP #$20 + STZ $12 + PEA $004B + PEA $0028 + PEA $0000 + PEI $2D + PEI $2B + PEA ^L024836 + PEA L024836 + PEA $0000 + PEA $0000 + PEA ^L0400F2 + PEA L0400F2 + _SFGetFile2 + STAL L02B111 + LDAL L0400F2 + BNE L02171E + BRL L021FCD +L02171E LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + LDA #$0007 + STAL L0400B8 + LDAL L03000B + TAX + LDAL L030009 + CLC + ADC #$0002 + BCC L021765 + INX +L021765 STA $31 + STX $33 + LDX $33 + LDA $31 + STAL L0400BC + TXA + STAL L0400BE + LDA [$31] + STA $2F + LDX #$0000 + CMP #$0045 + BCC L021785 + BEQ L021785 + INX +L021785 TXA + BNE L02178C + LDA $2F + BRA L02178F +L02178C LDA #$0045 +L02178F STA $14 + PEA $0000 + PHA + LDAL L03000B + PHA + LDAL L030009 + CLC + ADC #$0004 + BCC L0217A7 + PLX + INX + PHX +L0217A7 PHA + PEA $0000 + TDC + CLC + ADC #$0085 + PHA + JSL L02AC0F + PEA $0000 + TDC + CLC + ADC #$0085 + PHA + LDX #$0000 + LDA $14 + BPL L0217C6 + DEX +L0217C6 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDA #$0001 + STAL L0400C0 + DEC + STAL L0400C2 + PEA $2010 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L02180C + PEA $012D + JSL L024DB6 +L02180C LDAL L0400BA + STA $49 + LDA #$0004 + STA $47 + STZ $4D + TDC + CLC + ADC #$0059 + STA $4B + LDA #$0008 + STA $4F + LDA #$0000 + STA $51 + PEA $2012 + PHA + TDC + CLC + ADC #$0047 + PHA + JSL L02A4D6 + STZ $4D + TDC + CLC + ADC #$0061 + STA $4B + LDA #$0024 + STA $4F + LDA #$0000 + STA $51 + PEA $2012 + PHA + TDC + CLC + ADC #$0047 + PHA + JSL L02A4D6 + PEA $0000 + PEA $0004 + PEA ^L022020 + PEA L022020 + PEA $0000 + TDC + CLC + ADC #$0059 + PHA + JSL L02ABAF + TAX + BNE L0218D0 + PEA $0000 + PEA $0004 + PEA ^L022025 + PEA L022025 + PEA $0000 + TDC + CLC + ADC #$0061 + PHA + JSL L02ABAF + TAX + BNE L0218D0 + PEA $0000 + PEA $0004 + PEA ^L02202A + PEA L02202A + PEA $0000 + TDC + CLC + ADC #$0065 + PHA + JSL L02ABAF + TAX + BNE L0218D0 + PEA $0000 + PEA $0004 + PEA ^L02202F + PEA L02202F + PEA $0000 + TDC + CLC + ADC #$007D + PHA + JSL L02ABAF + TAX + BNE L0218D0 + LDA $6D + CMP #$0001 + BEQ L0218F1 +L0218D0 PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0008 + _AlertWindow + STAL L02B111 + PLA + STA $12 + BRL L022002 +L0218F1 LDX $73 + LDA $71 + STAL L030039 + TXA + STAL L03003B + LDA $79 + CMP #$0001 + BEQ L021908 + BRL L021A86 +L021908 PEI $83 + PEI $81 + LDA $01,S + STA $4F + LDA $03,S + STA $51 + PLA + STAL L030021 + PLA + STAL L030023 + PHA + PHA + LDAL L030023 + PHA + LDAL L030021 + CLC + ADC #$000A + BCC L021932 + PLX + INX + PHX +L021932 PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L02198C + LDAL L03002B + CMP #$0201 + BNE L021971 + LDA #$0086 + STAL L03002B +L021971 JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + BRL L022009 +L02198C _WaitCursor + STAL L02B111 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + PEA $0000 + DEY + PLA + SEP #$20 + STA [$05],Y + REP #$20 + AND #$00FF + SEP #$20 + STA [$05] + REP #$20 + PEI $07 + LDA $05 + CLC + ADC #$000A + BCC L0219D1 + PLX + INX + PHX +L0219D1 PHA + LDA $01,S + STA $4B + LDA $03,S + STA $4D + PLA + STAL L030027 + PLA + STAL L030029 + LDAL L030023 + PHA + LDAL L030021 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L021A14 + LDA #$0001 +L021A14 EOR #$0001 + BEQ L021A20 + LDA #$0001 + STAL L030025 +L021A20 LDA #$0004 + STA $47 + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$0047 + PHA + JSL L02A4D6 + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L021A4E + LDA $03,S + DEC + STA $03,S +L021A4E LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + JSL L02AE36 + STAL L03002B + TAX + BEQ L021A83 + PEA $012C + JSL L024DB6 +L021A83 BRL L021ED8 +L021A86 LDA $6F + CMP #$0002 + BNE L021AAD + PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0007 + _AlertWindow + STAL L02B111 + PLA + STA $12 + BRA L021AB2 +L021AAD LDA #$0004 + STA $12 +L021AB2 LDA $79 + CMP #$0002 + BNE L021AD3 + PEI $83 + PEI $81 + PEA $0000 + PEA $0001 + JSL L02B0CB + PLA + STAL L030021 + PLA + STAL L030023 + BRA L021AEB +L021AD3 PEI $83 + PEI $81 + PEA $0000 + PEA $0002 + JSL L02B0CB + PLA + STAL L030021 + PLA + STAL L030023 +L021AEB PHA + PHA + PEA $0000 + PEA $1000 + LDA $01,S + STA $1E + LDA $03,S + STA $20 + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STA $26 + PLA + STA $28 + PHA + PHA + LDAL L030023 + PHA + LDAL L030021 + CLC + ADC #$000A + BCC L021B2E + PLX + INX + PHX +L021B2E PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L021B9F + LDAL L03002B + CMP #$0201 + BNE L021B6D + LDA #$0086 + STAL L03002B +L021B6D JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + STZ $12 + BRL L022009 +L021B9F _WaitCursor + STAL L02B111 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + PEA $0000 + DEY + PLA + SEP #$20 + STA [$05],Y + REP #$20 + AND #$00FF + SEP #$20 + STA [$05] + REP #$20 + LDY #$000A + LDX $07 + TYA + CLC + ADC $05 + BCC L021BE3 + INX +L021BE3 STAL L030027 + PHA + TXA + STAL L030029 + PLA + STX $0B + STA $09 + LDAL L030023 + PHA + LDAL L030021 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L021C22 + LDA #$0001 +L021C22 EOR #$0001 + BEQ L021C2E + LDA #$0001 + STAL L030025 +L021C2E PEA $0000 + PEA $0000 + LDA $01,S + STA $1A + LDA $03,S + STA $1C + LDA $01,S + STA $22 + LDA $03,S + STA $24 + PLA + PLX + STA $18 + LDA #$0001 + STA $16 + LDA #$0004 + STA $47 + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STX $37 + STA $35 +L021C5E PEI $83 + PEI $81 + SEC + PLA + SBC $22 + PHA + LDA $03,S + SBC $24 + STA $03,S + LDA #$1000 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L021C7D + TYA + CMP $01,S +L021C7D BCS L021C80 + DEX +L021C80 PLA + PLA + TXA + BEQ L021C94 + SEC + LDA $81 + SBC $22 + STA $1E + LDA $83 + SBC $24 + STA $20 + INC $18 +L021C94 PEI $37 + PEI $35 + LDA $01,S + STA $0D + LDA $03,S + STA $0F + PLA + STA $4B + PLA + STA $4D + LDA $1E + LDX $20 + STA $4F + STX $51 + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$0047 + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + LDAL L03002B + CMP #$004C + BNE L021CD4 + STZ $16 + BRL L021E9A +L021CD4 LDAL L03002B + BEQ L021D19 + JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + PEI $28 + PEI $26 + _DisposeHandle + STAL L02B111 + BRL L022009 +L021D19 CLC + LDA $1E + ADC $22 + STA $22 + LDA $20 + ADC $24 + STA $24 + LDA $12 + LDX #$0000 + CMP #$0004 + BNE L021D31 + INX +L021D31 TXA + STA $39 + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STX $3D + STA $3B + LDA $12 + LDX #$0000 + CMP #$0002 + BNE L021D4B + INX +L021D4B TXA + STA $3F + LDA $12 + LDX #$0000 + CMP #$0001 + BNE L021D59 + INX +L021D59 TXA + STA $41 + LDA $12 + LDX #$0000 + CMP #$0001 + BNE L021D67 + INX +L021D67 TXA + STA $43 + LDA $12 + TAX + BEQ L021D72 + LDA #$0001 +L021D72 EOR #$0001 + STA $45 +L021D77 INC $1A + BNE L021D7D + INC $1C +L021D7D LDA $39 + BEQ L021D92 + LDY #$0001 + LDA [$0D],Y + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRL L021E2C +L021D92 LDA $79 + CMP #$0002 + BNE L021DDA + LDA $45 + BEQ L021DAA + LDA [$0D] + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRA L021DD8 +L021DAA LDA $43 + BEQ L021DBE + LDY #$0001 + LDA [$0D],Y + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRA L021DD8 +L021DBE LDA [$0D] + AND #$00FF + LSR + PHA + LDY #$0001 + LDA [$0D],Y + AND #$00FF + LSR + CLC + ADC $01,S + PLX + SEP #$20 + STA $11 + REP #$20 +L021DD8 BRA L021E2C +L021DDA LDY #$0001 + LDA [$0D],Y + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + CLC + LDA $0D + ADC #$0002 + STA $0D + BCC L021DF4 + INC $0F +L021DF4 INC $1A + BNE L021DFA + INC $1C +L021DFA LDA $41 + BEQ L021E0E + LDY #$0001 + LDA [$0D],Y + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRA L021E2C +L021E0E LDA $3F + BEQ L021E2C + LDA $11 + AND #$00FF + LSR + PHA + LDY #$0001 + LDA [$0D],Y + AND #$00FF + LSR + CLC + ADC $01,S + PLX + SEP #$20 + STA $11 + REP #$20 +L021E2C CLC + LDA $0D + ADC #$0002 + STA $0D + BCC L021E38 + INC $0F +L021E38 LDA $11 + AND #$00FF + TAX + BEQ L021E43 + LDA #$0001 +L021E43 EOR #$0001 + BEQ L021E4E + SEP #$20 + INC $11 + REP #$20 +L021E4E SEP #$20 + LDA $11 + STA [$09] + REP #$20 + INC $09 + BNE L021E5C + INC $0B +L021E5C PEA $0000 + PEA $1000 + PEI $0F + PEI $0D + SEC + PLA + SBC $3B + PHA + LDA $03,S + SBC $3D + STA $03,S + JSL L02C444 + BEQ L021E7A + BRL L021D77 +L021E7A LDA $18 + TAX + BEQ L021E82 + LDA #$0001 +L021E82 EOR #$0001 + CMP #$0000 + BEQ L021E94 + LDA $16 + CMP #$0000 + BEQ L021E94 + LDA #$0001 +L021E94 TAX + BEQ L021E9A + BRL L021C5E +L021E9A STZ $12 + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L021EB5 + LDA $03,S + DEC + STA $03,S +L021EB5 LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 +L021ED8 LDAL L030019 + AND #$0008 + TAX + BEQ L021EE5 + LDA #$0001 +L021EE5 EOR #$0001 + BEQ L021EF8 + PEA $0109 + _EnableMItem + STAL L02B111 +L021EF8 PEA $010A + _EnableMItem + STAL L02B111 + PEA $010B + _EnableMItem + STAL L02B111 + PEA $0119 + _EnableMItem + STAL L02B111 + PEA $010C + _EnableMItem + STAL L02B111 + PEA $010D + _EnableMItem + STAL L02B111 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L030019 + AND #$0004 + TAX + BEQ L021F5F + LDA #$0001 +L021F5F EOR #$0001 + BEQ L021FB1 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FFA + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STAL L030001 + PLA + STAL L030003 + JSL L02AE36 + STAL L03002B + TAX + BEQ L021FB1 + PEA $001B + JSL L024DB6 +L021FB1 PEA $0000 + TDC + CLC + ADC #$0085 + PHA + JSL L025455 + PEI $28 + PEI $26 + _DisposeHandle + STAL L02B111 +L021FCD LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + _InitCursor + STAL L02B111 +L022002 LDA $12 + BEQ L022009 + BRL L0216D6 +L022009 PLD + TSC + CLC + ADC #$00CA + TCS + RTL + +L022011 STR 'Whadya Want? ' + DB $00 + +L022020 ASC 'RIFF'00 +L022025 ASC 'WAVE'00 +L02202A ASC 'fmt '00 +L02202F ASC 'data'00 + +L022034 TSC + SEC + SBC #$0004 + TCS + PHD + TCD + PEI $0A + PEI $08 + PEA $0000 + PEA $0018 + JSL L02B0CB + PEI $0A + PEI $08 + PEA $0000 + PEA $0018 + JSL L02C9F7 + PLA + ORA $03,S + STA $03,S + PLA + ORA $03,S + STA $03,S + PEI $0A + LDA $08 + AND #$FF00 + PHA + LDA $03,S + AND #$0000 + STA $03,S + PEA $0000 + PEA $0008 + JSL L02C9F7 + PLA + ORA $03,S + STA $03,S + PLA + ORA $03,S + STA $03,S + PEI $0A + LDA $08 + AND #$0000 + PHA + LDA $03,S + AND #$00FF + STA $03,S + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + ORA $03,S + STA $03,S + PLA + ORA $03,S + STA $03,S + PLA + STA $01 + PLA + STA $03 + LDA $06 + STA $0A + LDA $05 + STA $09 + LDX $03 + LDY $01 + PLD + TSC + CLC + ADC #$0008 + TCS + TYA + RTL + +L0220C3 TSC + SEC + SBC #$05DF + TCS + PHD + TCD + LDA #$0009 + LDX #$04FE + STA $00,X + LDX #$0500 + LDA #$0003 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$006D + LDX #$0504 + STA $00,X + LDA #$0028 + LDX #$0506 + STA $00,X + LDA #$007B + LDX #$0508 + STA $00,X + LDA #$006E + LDX #$050A + STA $00,X + LDX #$050C + LDA #$0000 + STA $00,X + LDA #$8000 + STA $02,X + LDA #$0001 + LDX #$0510 + STA $00,X + LDA #$3000 + LDX #$0512 + STA $00,X + LDX #$0514 + LDA #$0000 + STA $00,X + STA $02,X + PEA ^L022DA3 + PEA L022DA3 + LDX #$0518 + PLA + STA $00,X + PLA + STA $02,X + LDX #$051C + LDA #$0000 + STA $00,X + STA $02,X + SEP #$20 + LDA #$0D + LDX #$0520 + STA $00,X + LDA #$8D + INX + STA $00,X + REP #$20 + LDX #$0522 + STZ $00,X + LDX #$0524 + STZ $00,X + LDA #$0009 + LDX #$0526 + STA $00,X + LDX #$0528 + LDA #$0001 + STA $00,X + DEC + STA $02,X + LDA #$006C + LDX #$052C + STA $00,X + LDA #$015E + LDX #$052E + STA $00,X + LDA #$007C + LDX #$0530 + STA $00,X + LDA #$01A4 + LDX #$0532 + STA $00,X + LDX #$0534 + LDA #$0000 + STA $00,X + LDA #$8000 + STA $02,X + LDX #$0538 + STZ $00,X + LDA #$3000 + LDX #$053A + STA $00,X + LDX #$053C + LDA #$0001 + STA $00,X + DEC + STA $02,X + PEA ^L022DA9 + PEA L022DA9 + LDX #$0540 + PLA + STA $00,X + PLA + STA $02,X + LDX #$0544 + LDA #$0000 + STA $00,X + STA $02,X + SEP #$20 + LDA #$9B + LDX #$0548 + STA $00,X + LDA #$1B + INX + STA $00,X + REP #$20 + LDX #$054A + STZ $00,X + LDX #$054C + STZ $00,X + LDA #$000E + LDX #$054E + STA $00,X + LDX #$0550 + LDA #$0002 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$0014 + LDX #$0554 + STA $00,X + LDX #$0556 + STA $00,X + LDA #$0064 + LDX #$0558 + STA $00,X + LDA #$019A + LDX #$055A + STA $00,X + LDX #$055C + LDA #$0000 + STA $00,X + LDA #$8900 + STA $02,X + LDX #$0560 + STZ $00,X + LDA #$7400 + LDX #$0562 + STA $00,X + LDX #$0564 + LDA #$0042 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$0568 + STZ $00,X + LDA #$0008 + LDX #$056A + STA $00,X + LDA #$0003 + LDX #$056C + STA $00,X + LDA #$0001 + LDX #$056E + STA $00,X + LDX #$0570 + DEC + STA $00,X + STA $02,X + LDA #$000A + LDX #$0574 + STA $00,X + LDA #$0006 + LDX #$0576 + STA $00,X + LDX #$0578 + LDA #$0000 + STA $00,X + STA $02,X + LDX #$057C + STA $00,X + STA $02,X + LDX #$0580 + TDC + CLC + ADC #$04FE + STA $00,X + STZ $02,X + LDX #$0584 + TDC + CLC + ADC #$0526 + STA $00,X + STZ $02,X + LDX #$0588 + TDC + CLC + ADC #$054E + STA $00,X + STZ $02,X + LDX #$058C + LDA #$0000 + STA $00,X + STA $02,X + LDA #$0050 + LDX #$0590 + STA $00,X + LDA #$0060 + LDX #$0592 + STA $00,X + LDX #$0594 + LDA #$0000 + STA $00,X + STA $02,X + LDX #$0598 + LDA #$002A + STA $00,X + LDA #$0000 + STA $02,X + LDA #$000A + LDX #$059C + STA $00,X + LDA #$0014 + LDX #$059E + STA $00,X + LDA #$0244 + LDX #$05A0 + STA $00,X + LDA #$00B4 + LDX #$05A2 + STA $00,X + LDX #$05A4 + LDA #$0000 + STA $00,X + STA $02,X + LDX #$05A8 + STZ $00,X + LDX #$05AA + STZ $00,X + LDX #$05AC + STZ $00,X + LDX #$05AE + STZ $00,X + LDX #$05B0 + STZ $00,X + LDX #$05B2 + STZ $00,X + LDX #$05B4 + STZ $00,X + LDX #$05B6 + STZ $00,X + LDX #$05B8 + STZ $00,X + LDX #$05BA + STZ $00,X + LDX #$05BC + STA $00,X + STA $02,X + LDX #$05C0 + STZ $00,X + LDX #$05C2 + STA $00,X + STA $02,X + LDX #$05C6 + STA $00,X + STA $02,X + LDX #$05CA + STA $00,X + STA $02,X + LDA #$001E + LDX #$05CE + STA $00,X + LDA #$002D + LDX #$05D0 + STA $00,X + LDA #$00AA + LDX #$05D2 + STA $00,X + LDA #$020D + LDX #$05D4 + STA $00,X + LDX #$05D6 + LDA #$FFFF + STA $00,X + STA $02,X + TDC + CLC + ADC #$0580 + LDX #$0000 + TXY + LDX #$05DA + STA $00,X + STY $02,X + LDA #$0003 + LDX #$05DE + STA $00,X + JSL L020FED + TAX + BNE L0223A2 + BRL L022D9B +L0223A2 LDA #$0003 + STAL L0400FA + STAL L040100 + STZ $0F + PEA $004B + PEA $0028 + PEA $0000 + PEA ^L022DB1 + PEA L022DB1 + PEA ^L024836 + PEA L024836 + PEA $0000 + PEA $0000 + PEA ^L0400F2 + PEA L0400F2 + _SFGetFile2 + STAL L02B111 + LDAL L0400F2 + BNE L0223E4 + BRL L022D66 +L0223E4 LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + LDA #$0007 + STAL L0400B8 + LDAL L03000B + TAX + LDAL L030009 + CLC + ADC #$0002 + BCC L02242B + INX +L02242B STA $3C + STX $3E + LDX $3E + LDA $3C + STAL L0400BC + TXA + STAL L0400BE + LDA [$3C] + STA $3A + LDX #$0000 + CMP #$0045 + BCC L02244B + BEQ L02244B + INX +L02244B TXA + BNE L022452 + LDA $3A + BRA L022455 +L022452 LDA #$0045 +L022455 STA $0D + LDA #$0001 + STAL L0400C0 + DEC + STAL L0400C2 + PEA $2010 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L022482 + PEA $01F5 + JSL L024DB6 +L022482 LDAL L0400BA + LDX #$03F6 + STA $00,X + LDX #$03E4 + STA $00,X + LDA #$0004 + LDX #$03E2 + STA $00,X + LDX #$03E6 + TDC + CLC + ADC #$03FE + STA $00,X + STZ $02,X + LDX #$03EA + LDA #$0014 + STA $00,X + LDA #$0000 + STA $02,X + PEA $2012 + PHA + TDC + CLC + ADC #$03E2 + PHA + JSL L02A4D6 + LDX #$03E6 + TDC + CLC + ADC #$0040 + STA $00,X + STZ $02,X + LDX #$03EA + LDA #$03A2 + STA $00,X + LDA #$0000 + STA $02,X + PEA $2012 + PHA + TDC + CLC + ADC #$03E2 + PHA + JSL L02A4D6 + LDA #$0003 + LDX #$03F4 + STA $00,X + LDX #$03FA + LDA #$0438 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$03F8 + STZ $00,X + PEA $2016 + PHA + TDC + CLC + ADC #$03F4 + PHA + JSL L02A4D6 + LDX #$03E6 + TDC + CLC + ADC #$0019 + STA $00,X + STZ $02,X + LDX #$03EA + LDA #$0004 + STA $00,X + LDA #$0000 + STA $02,X + PEA $2012 + PHA + TDC + CLC + ADC #$03E2 + PHA + JSL L02A4D6 + PEI $1B + PEI $19 + LDA #$2E4D + LDX #$2E4B + LDY #$0001 + CMP $01,S + BEQ L022547 + DEY +L022547 TXA + CMP $03,S + BEQ L02254F + LDY #$0000 +L02254F PLA + PLA + TYA + BNE L022573 + PEI $1B + PEI $19 + LDA #$4C46 + LDX #$3454 + LDY #$0001 + CMP $01,S + BEQ L022566 + DEY +L022566 TXA + CMP $03,S + BEQ L02256E + LDY #$0000 +L02256E PLA + PLA + TYA + BEQ L02258D +L022573 PEA $0000 + PEA $0000 + PEA ^L022DC0 + PEA L022DC0 + PEA $0000 + PEA $000A + JSL L024AEF + STA $0F + BRA L0225A5 +L02258D PEA $0000 + PEA $0000 + PEA ^L022DC3 + PEA L022DC3 + PEA $0000 + PEA $000A + JSL L024AEF + STA $0F +L0225A5 LDA $0F + BEQ L0225B0 + LDA #$001F + STA $13 + BRA L0225B5 +L0225B0 LDA #$000F + STA $13 +L0225B5 STZ $15 + PEA $0000 + TDC + CLC + ADC #$0040 + PHA + LDA $01,S + STA $05 + LDA $03,S + STA $07 + PLA + PLA +L0225CA LDA $13 + SEC + SBC $15 + BEQ L0225D8 + BVS L0225D6 + EOR #$8000 +L0225D6 BMI L0225DB +L0225D8 BRL L0226D9 +L0225DB PEA $0000 + PEA $0000 + LDA $01,S + STA $19 + LDA $03,S + STA $1B + PLA + PLX + STA $17 +L0225ED PEI $1B + PEI $19 + LDA #$0016 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L022601 + TYA + CMP $01,S +L022601 BEQ L022605 + BCS L022606 +L022605 DEX +L022606 PLA + PLA + TXA + BEQ L02267A + LDA $17 + BNE L02267A + PEA ^L02A50A + PEA L02A50A + LDX $1B + LDA $19 + CLC + ADC $05 + TAY + TXA + ADC $07 + TAX + STY $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + TAY + BPL L022631 + DEX +L022631 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$0080 + BNE L022671 + LDX $1B + LDA $19 + CLC + ADC $05 + TAY + TXA + ADC $07 + TAX + STY $01 + STX $03 + LDA [$01] + AND #$00FF + TAX + BNE L02266D + LDA $19 + ORA $1B + BNE L02266B + INC $17 +L02266B BRA L02267A +L02266D INC $17 + BRA L02267A +L022671 INC $19 + BNE L022677 + INC $1B +L022677 BRL L0225ED +L02267A LDA $17 + BEQ L0226A5 + LDY #$0016 + LDA [$05],Y + BEQ L022697 + PEI $15 + PEA ^L022DC6 + PEA L022DC6 + PEI $07 + PEI $05 + JSL L02AA15 + BRA L0226A5 +L022697 PEA ^L022DD4 + PEA L022DD4 + PEI $07 + PEI $05 + JSL L02AA15 +L0226A5 LDY #$0016 + LDA [$05],Y + STA $3A + XBA + AND #$00FF + PHA + LDA $3A + XBA + AND #$FF00 + ORA $01,S + PLX + TAX + PHA + LDY #$0016 + PLA + STA [$05],Y + INC $15 + PEI $07 + PEI $05 + CLC + LDA $05 + ADC #$001E + STA $05 + BCC L0226D4 + INC $07 +L0226D4 PLA + PLA + BRL L0225CA +L0226D9 LDX #$0000 + LDA $13 + BPL L0226E1 + DEX +L0226E1 PHX + PHA + PEA $0000 + PEA $0006 + JSL L02C5AD + JSL L02C21D + STX $1F + STA $1D + LDA #$0098 + STAL L030042 + STZ $15 + PEI $1F + PEI $1D + LDA $01,S + STA $21 + LDA $03,S + STA $23 + PLA + PLA +L02270C LDA $13 + SEC + SBC $15 + BEQ L02271A + BVS L022718 + EOR #$8000 +L022718 BMI L02271C +L02271A BRA L02276B +L02271C LDX #$0000 + LDA $15 + BPL L022724 + DEX +L022724 PHX + PHA + PEA $0000 + PEA $001E + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0040 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA [$21] + LDY #$0002 + PLA + STA [$21],Y + LDY #$0004 + LDA #$0000 + STA [$21],Y + INC $15 + PEI $23 + PEI $21 + CLC + LDA $21 + ADC #$0006 + STA $21 + BCC L022767 + INC $23 +L022767 PLA + PLA + BRA L02270C +L02276B LDY #$0004 + LDA #$0080 + STA [$1D],Y + LDA $13 + LDX #$0568 + STA $00,X + LDX #$0578 + LDA $1D + STA $00,X + LDA $1F + STA $02,X + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0043 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$0590 + LDX #$0000 + PHX + PHA + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STA $09 + PLA + STA $0B + JSL L02AE36 + STAL L03002B + TAX + BEQ L0227D2 + PEA $000D + JSL L024DB6 +L0227D2 PEI $0B + PEI $09 + _SetPort + STAL L02B111 + PEA $0013 + PEA $0010 + _MoveTo + STAL L02B111 + PEA ^L022DE5 + PEA L022DE5 + _DrawCString + STAL L02B111 + PEA $0000 + TDC + CLC + ADC #$03FE + PHA + _DrawCString + STAL L02B111 + PEA ^L022E00 + PEA L022E00 + _DrawCString + STAL L02B111 + PHA + PHA + PEI $0B + PEI $09 + PEA $0000 + PEA $0002 + _GetCtlHandleFromID + STAL L02B111 + PLA + STA $2A + PLA + STA $2C + JSL L02AE36 + STAL L03002B + TAX + BEQ L022857 + PEA $000E + JSL L024DB6 +L022857 STZ $0F +L022859 PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA ^L0248A8 + PEA L0248A8 + PEA $0000 + PEA $0000 + PEA $0010 + _DoModalWindow + STAL L02B111 + PLA + STA $19 + PLA + STA $1B + LDAL L04008A + CMP #$0001 + BNE L0228B2 + PEI $1B + PEI $19 + LDA #$0001 + LDX #$0000 + TAY + CMP $01,S + BEQ L0228A0 + DEY +L0228A0 TXA + CMP $03,S + BEQ L0228A8 + LDY #$0000 +L0228A8 PLA + PLA + TYA + BEQ L0228B2 + LDA #$FFFF + STA $0F +L0228B2 PEI $1B + PEI $19 + LDA #$0003 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L0228C4 + DEY +L0228C4 TXA + CMP $03,S + BEQ L0228CC + LDY #$0000 +L0228CC PLA + PLA + TYA + BEQ L0228F9 + PHA + PEA $0000 + PEI $2C + PEI $2A + _NextMember2 + STAL L02B111 + PLA + STA $0F + JSL L02AE36 + STAL L03002B + TAX + BEQ L0228F9 + PEA $0203 + JSL L024DB6 +L0228F9 LDA $0F + BNE L022900 + BRL L022859 +L022900 PEI $1F + PEI $1D + JSL L02C1EF + PEI $0B + PEI $09 + _CloseWindow + STAL L02B111 + LDA $0F + CMP #$FFFF + BNE L02295F + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + BRL L022D9B +L02295F DEC $0F + LDX #$0000 + LDA $0F + BPL L022969 + DEX +L022969 PHX + PHA + PEA $0000 + PEA $001E + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0040 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PEA $0000 + TDC + CLC + ADC #$03FE + PHA + JSL L02AB57 + _WaitCursor + STAL L02B111 + LDA #$0000 + STAL L03003B + LDA #$2AF8 + STAL L030039 + LDX #$03FA + LDA #$0000 + STA $00,X + STA $02,X + INC + LDX #$03F8 + STA $00,X + PEA $2016 + PEA $0000 + TDC + CLC + ADC #$03F4 + PHA + JSL L02A4D6 + LDA #$0003 + LDX #$03F8 + STA $00,X + LDA $13 + DEC + STA $15 +L0229DC LDA $15 + SEC + SBC $0F + BVS L0229E6 + EOR #$8000 +L0229E6 BPL L022A39 + LDX #$0000 + LDA $15 + BPL L0229F0 + DEX +L0229F0 PHX + PHA + PEA $0000 + PEA $001E + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0040 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDY #$0016 + LDA [$01],Y + ASL + LDX #$0000 + TXY + LDX #$03FA + STA $00,X + STY $02,X + PEA $2016 + PHY + TDC + CLC + ADC #$03F4 + PHA + JSL L02A4D6 + DEC $15 + BRA L0229DC +L022A39 LDX #$0000 + LDA $0F + BPL L022A41 + DEX +L022A41 PHX + PHA + PEA $0000 + PEA $001E + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0040 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDY #$0016 + LDA [$01],Y + ASL + PEA $0000 + PHA + LDA $01,S + LDX #$03EA + STA $00,X + LDA $03,S + LDX #$03EC + STA $00,X + PLA + STAL L030021 + PLA + STAL L030023 + PHA + PHA + LDAL L030023 + PHA + LDAL L030021 + CLC + ADC #$000A + BCC L022A9D + PLX + INX + PHX +L022A9D PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L022B21 + LDAL L03002B + CMP #$0201 + BNE L022ADC + LDA #$0086 + STAL L03002B +L022ADC JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + BRL L022D9B +L022B21 LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $28 + STA $26 + PEA $0000 + DEY + PLA + SEP #$20 + STA [$26],Y + REP #$20 + AND #$00FF + SEP #$20 + STA [$26] + REP #$20 + PEI $28 + LDA $26 + CLC + ADC #$000A + BCC L022B5B + PLX + INX + PHX +L022B5B PHA + LDA $01,S + LDX #$03E6 + STA $00,X + LDA $03,S + LDX #$03E8 + STA $00,X + PLA + STAL L030027 + PLA + STAL L030029 + LDAL L030023 + PHA + LDAL L030021 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + BNE L022BA7 + LDA #$0001 + STAL L030025 +L022BA7 LDA #$0004 + LDX #$03E2 + STA $00,X + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$03E2 + PHA + JSL L02A4D6 + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L022BD8 + LDA $03,S + DEC + STA $03,S +L022BD8 LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $28 + STA $26 + CLC + LDA $26 + ADC #$000A + STA $26 + BCC L022C20 + INC $28 +L022C20 PEA $0000 + PEA $0000 + LDA $01,S + STA $19 + LDA $03,S + STA $1B + PLA + PLX + AND #$00FF + SEP #$20 + STA $25 + REP #$20 + INC $19 + BNE L022C3F + INC $1B +L022C3F INC $19 + BNE L022C45 + INC $1B +L022C45 LDA [$26] + AND #$00FF + CLC + ADC #$0080 + SEP #$20 + STA $25 + REP #$20 + LDA $25 + AND #$00FF + BNE L022C61 + SEP #$20 + INC $25 + REP #$20 +L022C61 SEP #$20 + LDA $25 + STA [$26] + REP #$20 + INC $26 + BNE L022C6F + INC $28 +L022C6F PEI $1B + PEI $19 + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L022C88 + TYA + CMP $01,S +L022C88 BEQ L022C8C + BCS L022C8D +L022C8C DEX +L022C8D PLA + PLA + TXA + BNE L022C3F + LDAL L030019 + AND #$0008 + BNE L022CA9 + PEA $0109 + _EnableMItem + STAL L02B111 +L022CA9 PEA $010A + _EnableMItem + STAL L02B111 + PEA $010B + _EnableMItem + STAL L02B111 + PEA $0119 + _EnableMItem + STAL L02B111 + PEA $010C + _EnableMItem + STAL L02B111 + PEA $010D + _EnableMItem + STAL L02B111 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L030019 + AND #$0004 + BNE L022D59 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FFA + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STAL L030001 + PLA + STAL L030003 + JSL L02AE36 + STAL L03002B + TAX + BEQ L022D59 + PEA $001B + JSL L024DB6 +L022D59 PEA $0000 + TDC + CLC + ADC #$03FE + PHA + JSL L025455 +L022D66 _InitCursor + STAL L02B111 + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 +L022D9B PLD + TSC + CLC + ADC #$05DF + TCS + RTL + +L022DA3 STR 'Okay' + DB $00 +L022DA9 STR 'Cancel' + DB $00 +L022DB1 STR 'Whadya Want? ' + DB $00 + +L022DC0 ASC '31'00 +L022DC3 ASC '15'00 +L022DC6 ASC 'Instrument %d'00 +L022DD4 ASC 'Empty Instrument'00 +L022DE5 ASC 'Choose an instrument from '00 +L022E00 ASC ':'00 +L022E02 TSC + SEC + SBC #$00C8 + TCS + PHD + TCD + JSL L020FED + TAX + BEQ L022E14 + LDA #$0001 +L022E14 EOR #$0001 + BEQ L022E1C + BRL L023965 +L022E1C PEA ^L02396D + LDA #L02396D + STA $33 + PLA + STA $35 +L022E27 LDA #$0003 + STAL L0400FA + STAL L040100 + LDA #$0000 + STA $6B + STA $6D + STZ $13 + PEA $004B + PEA $0028 + PHA + PEI $35 + PEI $33 + PEA ^L024836 + PEA L024836 + PHA + PHA + PEA ^L0400F2 + PEA L0400F2 + _SFGetFile2 + STAL L02B111 + LDAL L0400F2 + BNE L022E68 + BRL L023929 +L022E68 LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + LDA #$0007 + STAL L0400B8 + LDAL L03000B + TAX + LDAL L030009 + CLC + ADC #$0002 + BCC L022EAF + INX +L022EAF STA $39 + STX $3B + LDX $3B + LDA $39 + STAL L0400BC + TXA + STAL L0400BE + LDA [$39] + STA $37 + LDX #$0000 + CMP #$0045 + BCC L022ECF + BEQ L022ECF + INX +L022ECF TXA + BNE L022ED6 + LDA $37 + BRA L022ED9 +L022ED6 LDA #$0045 +L022ED9 STA $15 + PEA $0000 + PHA + LDAL L03000B + PHA + LDAL L030009 + CLC + ADC #$0004 + BCC L022EF1 + PLX + INX + PHX +L022EF1 PHA + PEA $0000 + TDC + CLC + ADC #$0083 + PHA + JSL L02AC0F + PEA $0000 + TDC + CLC + ADC #$0083 + PHA + LDX #$0000 + LDA $15 + BPL L022F10 + DEX +L022F10 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDA #$0001 + STAL L0400C0 + DEC + STAL L0400C2 + PEA $2010 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L022F56 + PEA $012D + JSL L024DB6 +L022F56 LDAL L0400BA + STA $63 + STA $51 + LDA #$0004 + STA $4F + STZ $55 + TDC + CLC + ADC #$006B + STA $53 + LDA #$0018 + STA $57 + LDA #$0000 + STA $59 + PEA $2012 + PHA + TDC + CLC + ADC #$004F + PHA + JSL L02A4D6 + PEI $6D + PEI $6B + LDA #$732E + LDX #$646E + LDY #$0001 + CMP $01,S + BEQ L022F96 + DEY +L022F96 TXA + CMP $03,S + BEQ L022F9E + LDY #$0000 +L022F9E PLA + PLA + TYA + BNE L022FC4 + PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0008 + _AlertWindow + STAL L02B111 + PLA + STA $13 + BRL L02395E +L022FC4 PEI $81 + PEI $7F + JSL L022034 + STX $81 + STA $7F + PEI $79 + PEI $77 + JSL L022034 + STX $79 + STA $77 + PEI $75 + PEI $73 + JSL L022034 + STX $75 + STA $73 + PEI $71 + PEI $6F + JSL L022034 + PHX + PHA + LDA $01,S + STA $6F + LDA $03,S + STA $71 + PLA + STA $67 + PLA + STA $69 + PEI $7D + PEI $7B + JSL L022034 + STAL L030039 + TXA + STAL L03003B + LDA #$0003 + STA $61 + STZ $65 + PEA $2016 + PEA $0000 + TDC + CLC + ADC #$0061 + PHA + JSL L02A4D6 + PEA $0000 + PEA $0002 + LDX $81 + LDA $7F + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L02303E + TYA + CMP $01,S +L02303E BEQ L023042 + BCS L023043 +L023042 DEX +L023043 PLA + PLA + TXA + BNE L023086 + PEA $0000 + PEA $0003 + LDX $79 + LDA $77 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L02305E + TYA + CMP $01,S +L02305E BEQ L023062 + BCS L023063 +L023062 DEX +L023063 PLA + PLA + TXA + BNE L023086 + PEI $79 + PEI $77 + LDA #$0001 + LDX #$0000 + TAY + TXA + TYX + CMP $03,S + BNE L02307C + TYA + CMP $01,S +L02307C BEQ L023080 + BCS L023081 +L023080 DEX +L023081 PLA + PLA + TXA + BEQ L0230A5 +L023086 PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0009 + _AlertWindow + STAL L02B111 + PLA + BRL L023965 +L0230A5 PEI $81 + PEI $7F + LDA #$0001 + LDX #$0000 + TAY + CMP $01,S + BEQ L0230B5 + DEY +L0230B5 TXA + CMP $03,S + BEQ L0230BD + LDY #$0000 +L0230BD PLA + PLA + TYA + BNE L0230C5 + BRL L023216 +L0230C5 PEI $79 + PEI $77 + LDA #$0003 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L0230D9 + TYA + CMP $01,S +L0230D9 BEQ L0230DD + BCS L0230DE +L0230DD DEX +L0230DE PLA + PLA + TXA + BNE L0230E6 + BRL L023216 +L0230E6 PEI $75 + PEI $73 + LDA $01,S + STA $57 + LDA $03,S + STA $59 + PLA + STAL L030021 + PLA + STAL L030023 + PHA + PHA + LDAL L030023 + PHA + LDAL L030021 + CLC + ADC #$000A + BCC L023110 + PLX + INX + PHX +L023110 PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L02316A + LDAL L03002B + CMP #$0201 + BNE L02314F + LDA #$0086 + STAL L03002B +L02314F JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + BRL L023965 +L02316A _WaitCursor + STAL L02B111 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + PEA $0000 + DEY + PLA + SEP #$20 + STA [$05],Y + REP #$20 + AND #$00FF + SEP #$20 + STA [$05] + REP #$20 + PEI $07 + LDA $05 + CLC + ADC #$000A + BCC L0231AF + PLX + INX + PHX +L0231AF PHA + LDA $01,S + STA $53 + LDA $03,S + STA $55 + PLA + STAL L030027 + PLA + STAL L030029 + LDAL L030023 + PHA + LDAL L030021 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L0231F2 + LDA #$0001 +L0231F2 EOR #$0001 + BEQ L0231FE + LDA #$0001 + STAL L030025 +L0231FE LDA #$0004 + STA $4F + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$004F + PHA + JSL L02A4D6 + BRL L0236C2 +L023216 PEI $81 + PEI $7F + LDA #$0002 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L023228 + DEY +L023228 TXA + CMP $03,S + BEQ L023230 + LDY #$0000 +L023230 PLA + PLA + TYA + BEQ L023255 + PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0007 + _AlertWindow + STAL L02B111 + PLA + STA $13 + BRA L02325A +L023255 LDA #$0004 + STA $13 +L02325A _WaitCursor + STAL L02B111 + PEI $81 + PEI $7F + LDA #$0002 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L023277 + DEY +L023277 TXA + CMP $03,S + BEQ L02327F + LDY #$0000 +L02327F PLA + PLA + TYA + BEQ L02329E + PEI $75 + PEI $73 + PEA $0000 + PEA $0001 + JSL L02B0CB + PLA + STAL L030021 + PLA + STAL L030023 + BRA L0232B6 +L02329E PEI $75 + PEI $73 + PEA $0000 + PEA $0002 + JSL L02B0CB + PLA + STAL L030021 + PLA + STAL L030023 +L0232B6 PHA + PHA + PEA $0000 + PEA $1000 + LDA $01,S + STA $1F + LDA $03,S + STA $21 + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STA $27 + PLA + STA $29 + PHA + PHA + LDAL L030023 + PHA + LDAL L030021 + CLC + ADC #$000A + BCC L0232F9 + PLX + INX + PHX +L0232F9 PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L02336A + LDAL L03002B + CMP #$0201 + BNE L023338 + LDA #$0086 + STAL L03002B +L023338 JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + STZ $13 + BRL L023965 +L02336A LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + PEA $0000 + DEY + PLA + SEP #$20 + STA [$05],Y + REP #$20 + AND #$00FF + SEP #$20 + STA [$05] + REP #$20 + LDY #$000A + LDX $07 + TYA + CLC + ADC $05 + BCC L0233A3 + INX +L0233A3 STAL L030027 + PHA + TXA + STAL L030029 + PLA + STX $0B + STA $09 + LDAL L030023 + PHA + LDAL L030021 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L0233E2 + LDA #$0001 +L0233E2 EOR #$0001 + BEQ L0233EE + LDA #$0001 + STAL L030025 +L0233EE PEA $0000 + PEA $0000 + LDA $01,S + STA $1B + LDA $03,S + STA $1D + LDA $01,S + STA $23 + LDA $03,S + STA $25 + PLA + PLX + STA $19 + LDA #$0001 + STA $17 + LDA #$0004 + STA $4F + LDY #$0002 + LDA [$27],Y + TAX + LDA [$27] + STX $3F + STA $3D +L02341E PEI $75 + PEI $73 + SEC + PLA + SBC $23 + PHA + LDA $03,S + SBC $25 + STA $03,S + LDA #$1000 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L02343D + TYA + CMP $01,S +L02343D BCS L023440 + DEX +L023440 PLA + PLA + TXA + BEQ L023454 + SEC + LDA $73 + SBC $23 + STA $1F + LDA $75 + SBC $25 + STA $21 + INC $19 +L023454 PEI $3F + PEI $3D + LDA $01,S + STA $0D + LDA $03,S + STA $0F + PLA + STA $53 + PLA + STA $55 + LDA $1F + LDX $21 + STA $57 + STX $59 + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$004F + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + LDAL L03002B + CMP #$004C + BNE L023494 + STZ $17 + BRL L023684 +L023494 LDAL L03002B + BEQ L0234D9 + JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + PEI $29 + PEI $27 + _DisposeHandle + STAL L02B111 + BRL L023965 +L0234D9 CLC + LDA $1F + ADC $23 + STA $23 + LDA $21 + ADC $25 + STA $25 + LDA $13 + LDX #$0000 + CMP #$0004 + BNE L0234F1 + INX +L0234F1 TXA + STA $41 + LDY #$0002 + LDA [$27],Y + TAX + LDA [$27] + STX $45 + STA $43 + LDA $13 + LDX #$0000 + CMP #$0002 + BNE L02350B + INX +L02350B TXA + STA $47 + LDA $13 + LDX #$0000 + CMP #$0001 + BNE L023519 + INX +L023519 TXA + STA $49 + LDA $13 + TAX + BEQ L023524 + LDA #$0001 +L023524 EOR #$0001 + STA $4B + LDA $13 + LDX #$0000 + CMP #$0001 + BNE L023534 + INX +L023534 TXA + STA $4D +L023537 INC $1B + BNE L02353D + INC $1D +L02353D LDA $41 + BEQ L02354F + LDA [$0D] + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRL L023616 +L02354F PEI $81 + PEI $7F + LDA #$0002 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L023561 + DEY +L023561 TXA + CMP $03,S + BEQ L023569 + LDY #$0000 +L023569 PLA + PLA + TYA + BEQ L0235CD + PEI $79 + PEI $77 + LDA #$0003 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L023582 + TYA + CMP $01,S +L023582 BEQ L023586 + BCS L023587 +L023586 DEX +L023587 PLA + PLA + TXA + BEQ L0235CD + LDA $4B + BEQ L0235A0 + LDY #$0001 + LDA [$0D],Y + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRA L0235CB +L0235A0 LDA $4D + BEQ L0235B1 + LDA [$0D] + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRA L0235CB +L0235B1 LDA [$0D] + AND #$00FF + LSR + PHA + LDY #$0001 + LDA [$0D],Y + AND #$00FF + LSR + CLC + ADC $01,S + PLX + SEP #$20 + STA $11 + REP #$20 +L0235CB BRA L023616 +L0235CD LDA [$0D] + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + CLC + LDA $0D + ADC #$0002 + STA $0D + BCC L0235E4 + INC $0F +L0235E4 INC $1B + BNE L0235EA + INC $1D +L0235EA LDA $49 + BEQ L0235FB + LDA [$0D] + AND #$00FF + SEP #$20 + STA $11 + REP #$20 + BRA L023616 +L0235FB LDA $47 + BEQ L023616 + LDA $11 + AND #$00FF + LSR + PHA + LDA [$0D] + AND #$00FF + LSR + CLC + ADC $01,S + PLX + SEP #$20 + STA $11 + REP #$20 +L023616 CLC + LDA $0D + ADC #$0002 + STA $0D + BCC L023622 + INC $0F +L023622 LDA $11 + AND #$00FF + TAX + BEQ L02362D + LDA #$0001 +L02362D EOR #$0001 + BEQ L023638 + SEP #$20 + INC $11 + REP #$20 +L023638 SEP #$20 + LDA $11 + STA [$09] + REP #$20 + INC $09 + BNE L023646 + INC $0B +L023646 PEA $0000 + PEA $1000 + PEI $0F + PEI $0D + SEC + PLA + SBC $43 + PHA + LDA $03,S + SBC $45 + STA $03,S + JSL L02C444 + BEQ L023664 + BRL L023537 +L023664 LDA $19 + TAX + BEQ L02366C + LDA #$0001 +L02366C EOR #$0001 + CMP #$0000 + BEQ L02367E + LDA $17 + CMP #$0000 + BEQ L02367E + LDA #$0001 +L02367E TAX + BEQ L023684 + BRL L02341E +L023684 STZ $13 + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L02369F + LDA $03,S + DEC + STA $03,S +L02369F LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 +L0236C2 LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L0236DB + LDA $03,S + DEC + STA $03,S +L0236DB LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + CLC + LDA $05 + ADC #$000A + STA $05 + BCC L023723 + INC $07 +L023723 PEA $0000 + PEA $0000 + LDA $01,S + STA $1B + LDA $03,S + STA $1D + PLA + PLX + AND #$00FF + SEP #$20 + STA $12 + REP #$20 + INC $1B + BNE L023742 + INC $1D +L023742 INC $1B + BNE L023748 + INC $1D +L023748 PEI $79 + PEI $77 + LDA #$0001 + LDX #$0000 + TAY + CMP $01,S + BEQ L023758 + DEY +L023758 TXA + CMP $03,S + BEQ L023760 + LDY #$0000 +L023760 PLA + PLA + TYA + BEQ L0237DB + LDA [$05] + AND #$00FF + EOR #$FFFF + STA $2B + AND #$0080 + STA $2D + LDA $2B + LDX #$0004 + JSL L02CA73 + AND #$0007 + STA $2F + PEA ^L04007A + PEA L04007A + LDA $2F + ASL + LDX #$0000 + TAY + BPL L023792 + DEX +L023792 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + PHA + LDA $2B + AND #$000F + PHA + LDA $2F + CLC + ADC #$0003 + TAX + PLA + JSL L02C9E7 + CLC + ADC $01,S + PLX + STA $31 + LDA $2D + BEQ L0237CC + LDA $31 + EOR #$FFFF + INC + STA $31 +L0237CC LDA $31 + LDX #$0008 + JSL L02CA73 + SEP #$20 + STA [$05] + REP #$20 +L0237DB LDA [$05] + AND #$00FF + CLC + ADC #$0080 + SEP #$20 + STA $12 + REP #$20 + LDA $12 + AND #$00FF + TAX + BEQ L0237F5 + LDA #$0001 +L0237F5 EOR #$0001 + BEQ L023800 + SEP #$20 + INC $12 + REP #$20 +L023800 SEP #$20 + LDA $12 + STA [$05] + REP #$20 + INC $05 + BNE L02380E + INC $07 +L02380E PEI $1D + PEI $1B + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L023827 + TYA + CMP $01,S +L023827 BEQ L02382B + BCS L02382C +L02382B DEX +L02382C PLA + PLA + TXA + BEQ L023834 + BRL L023742 +L023834 LDAL L030019 + AND #$0008 + TAX + BEQ L023841 + LDA #$0001 +L023841 EOR #$0001 + BEQ L023854 + PEA $0109 + _EnableMItem + STAL L02B111 +L023854 PEA $010A + _EnableMItem + STAL L02B111 + PEA $010B + _EnableMItem + STAL L02B111 + PEA $0119 + _EnableMItem + STAL L02B111 + PEA $010C + _EnableMItem + STAL L02B111 + PEA $010D + _EnableMItem + STAL L02B111 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L030019 + AND #$0004 + TAX + BEQ L0238BB + LDA #$0001 +L0238BB EOR #$0001 + BEQ L02390D + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FFA + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STAL L030001 + PLA + STAL L030003 + JSL L02AE36 + STAL L03002B + TAX + BEQ L02390D + PEA $001B + JSL L024DB6 +L02390D PEA $0000 + TDC + CLC + ADC #$0083 + PHA + JSL L025455 + PEI $29 + PEI $27 + _DisposeHandle + STAL L02B111 +L023929 _InitCursor + STAL L02B111 + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 +L02395E LDA $13 + BEQ L023965 + BRL L022E27 +L023965 PLD + TSC + CLC + ADC #$00C8 + TCS + RTL + +L02396D STR 'Whadya Want? ' + DB $00 + +L02397C TSC + SEC + SBC #$0256 + TCS + PHD + TCD + JSL L020FED + TAX + BEQ L02398E + LDA #$0001 +L02398E EOR #$0001 + BEQ L023996 + BRL L024183 +L023996 PHA + _GetPenMode + STAL L02B111 + PLA + STA $0D + PEA $004B + PEA $0028 + PEA $0000 + PEA ^L02418B + PEA L02418B + PEA ^L024836 + PEA L024836 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$002B + PHA + _SFMultiGet2 + STAL L02B111 + LDA $2B + TAX + BEQ L0239DC + LDA #$0001 +L0239DC EOR #$0001 + BEQ L0239E4 + BRL L024183 +L0239E4 _WaitCursor + STAL L02B111 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0050 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + PEA $0002 + PEA $0000 + PEA $0FF7 + PEA $800E + _NewWindow2 + STAL L02B111 + PLA + STA $1F + PLA + STA $21 + PEI $21 + PEI $1F + _SetPort + STAL L02B111 + JSL L024766 + PEA $0002 + _SetPenMode + STAL L02B111 + LDY #$0002 + LDA [$2D],Y + TAX + LDA [$2D] + CLC + ADC #$0002 + BCC L023A56 + INX +L023A56 STA $17 + STX $19 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + STAL L03000D + STZ $05 +L023A72 LDA $2B + CMP $05 + BEQ L023A7A + BCS L023A7D +L023A7A BRL L02413F +L023A7D LDA $17 + LDX $19 + STA $07 + STX $09 + CLC + ADC #$0008 + BCC L023A8C + INX +L023A8C STA $13 + STX $15 + CLC + LDA $17 + ADC #$0006 + STA $17 + BCC L023A9C + INC $19 +L023A9C PEA $0023 + PEA $001E + _MoveTo + STAL L02B111 + PEI $19 + PEI $17 + _DrawString + STAL L02B111 + LDA [$17] + AND #$00FF + LDX #$0156 + STA $00,X + PEA $0000 + PEA $00FF + PEI $19 + PEI $17 + JSL L02A73C + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0158 + PHA + JSL L02AC0F + LDA [$07] + CMP #$000F + BNE L023AED + BRL L02413A +L023AED LDA [$07] + CMP #$0006 + BNE L023B65 + LDY #$0002 + LDA [$13],Y + TAX + LDA [$13] + JSL L02BB54 + PEA $4004 + PEA $CD9F + PEA $F972 + PEA $4745 + PEA $3800 + JSL L02BF65 + JSL L02BBB7 + STAL L030039 + TXA + STAL L03003B + LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$0190 + LDX #$0000 + TAY + TXA + INX + CMP $03,S + BNE L023B3A + TYA + CMP $01,S +L023B3A BEQ L023B3E + BCS L023B3F +L023B3E DEX +L023B3F PLA + PLA + TXA + BEQ L023B63 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDA [$01] + LDX #$0000 + TAY + BPL L023B5A + DEX +L023B5A STAL L030039 + TXA + STAL L03003B +L023B63 BRA L023B84 +L023B65 LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDA [$01] + LDX #$0000 + TAY + BPL L023B7B + DEX +L023B7B STAL L030039 + TXA + STAL L03003B +L023B84 LDA #$0004 + STAL L0400B8 + LDA #$0000 + STAL L0400BE + TDC + CLC + ADC #$0156 + STAL L0400BC + LDA #$0001 + STAL L0400C0 + DEC + STAL L0400C2 + PEA $2010 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L023BC6 + JSL L0250E2 + BRL L02413F +L023BC6 LDX #$0156 + LDA $00,X + CMP #$00FD + BEQ L023BD2 + BCS L023BD4 +L023BD2 BRA L023BE6 +L023BD4 SEP #$20 + LDA #$2E + LDX #$0255 + STA $00,X + LDA #$72 + INX + STA $00,X + REP #$20 + BRA L023C50 +L023BE6 PEA $0000 + TDC + CLC + ADC #$0158 + PHA + LDX #$0156 + LDA $00,X + LDX #$0000 + TAY + BPL L023BFB + DEX +L023BFB PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$2E + STA [$01] + REP #$20 + PEA $0000 + TDC + CLC + ADC #$0158 + PHA + LDX #$0156 + LDA $00,X + INC + LDX #$0000 + TAY + BPL L023C2C + DEX +L023C2C PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$72 + STA [$01] + REP #$20 + LDX #$0156 + LDA $00,X + INC + INC + STA $00,X +L023C50 LDAL L0400BA + STA $33 + STA $3B + LDA #$0002 + STA $31 + PEA $2019 + PEA $0000 + TDC + CLC + ADC #$0031 + PHA + JSL L02A4D6 + PEI $37 + PEI $35 + LDA $01,S + STAL L0400E2 + LDA $03,S + STAL L0400E4 + LDA $01,S + STA $41 + LDA $03,S + STA $43 + PLA + STAL L030021 + PLA + STAL L030023 + PHA + PHA + LDAL L0400E4 + PHA + LDAL L0400E2 + CLC + ADC #$000A + BCC L023CA3 + PLX + INX + PHX +L023CA3 PHA + LDAL L030035 + PHA + PEA $C000 + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + JSL L02AE36 + STAL L03002B + TAX + BEQ L023CFD + LDAL L03002B + CMP #$0201 + BNE L023CE2 + LDA #$0086 + STAL L03002B +L023CE2 JSL L0250E2 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + BRL L02413A +L023CFD LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $1D + STA $1B + PEI $1D + LDA $1B + CLC + ADC #$000A + BCC L023D23 + PLX + INX + PHX +L023D23 PHA + LDA $01,S + STA $3D + LDA $03,S + STA $3F + PLA + STAL L030027 + PLA + STAL L030029 + LDA $1B + LDX $1D + STA $07 + STX $09 + LDAL L0400E4 + PHA + LDAL L0400E2 + PHA + PEA $0000 + PEA $0008 + JSL L02B0CB + PLA + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L023D6E + LDA #$0001 +L023D6E EOR #$0001 + BEQ L023D76 + INC L030025 +L023D76 JSL L026CEE + LDA #$0000 + STA [$07] + LDY #$0002 + LDAL L030025 + STA [$07],Y + LDY #$0004 + LDAL L030017 + STA [$07],Y + LDY #$0006 + LDAL L03000D + STA [$07],Y + LDY #$0008 + LDAL L030039 + STA [$07],Y + LDA #$0004 + STA $39 + PEA $2012 + PEA $0000 + TDC + CLC + ADC #$0039 + PHA + JSL L02A4D6 + LDA #$0001 + STAL L0400B8 + PEA $2014 + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L023DE5 + LDA $03,S + DEC + STA $03,S +L023DE5 LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDY #$0004 + LDA [$01],Y + BEQ L023E8C + LDA #$0002 + STA $4B + LDA #$0008 + STA $4D + STZ $51 + TDC + CLC + ADC #$0053 + STA $4F + LDA #$00FF + STA [$4F] + PEA $200A + PEA $0000 + TDC + CLC + ADC #$004B + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L023E56 + PEA $00EB + JSL L024DB6 +L023E56 LDAL L030011 + TAX + LDAL L03000F + CLC + ADC #$0006 + BCC L023E66 + INX +L023E66 STA $4F + STX $51 + PEA $2009 + PEA $0000 + TDC + CLC + ADC #$004B + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L023E8C + PEA $00EC + JSL L024DB6 +L023E8C PEA $0000 + PEA $0003 + PEA $00D8 + PEA $00C3 + PEA $0000 + TDC + CLC + ADC #$0156 + PHA + _CreateResourceFile + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L023F0C + LDAL L03002B + LDX #$0000 + CMP #$0070 + BNE L023EC4 + INX +L023EC4 TXA + CMP #$0000 + BEQ L023ECF + LDA #$0001 + BRA L023EE5 +L023ECF LDAL L03002B + LDX #$0000 + CMP #$1E01 + BNE L023EDC + INX +L023EDC TXA + CMP #$0000 + BEQ L023EE5 + LDA #$0001 +L023EE5 TAX + BEQ L023EEB + LDA #$0001 +L023EEB EOR #$0001 + BEQ L023F0C + JSL L0250E2 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + BRL L02413F +L023F0C PHA + PEA $8003 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$0156 + PHA + _OpenResourceFile + STAL L02B111 + PLA + STA $0B + JSL L02AE36 + STAL L03002B + TAX + BEQ L023F54 + JSL L0250E2 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + BRL L02413F +L023F54 PHA + PHA + PEA $FFFF + PEA $8024 + _UniqueResourceID + STAL L02B111 + PLA + STA $0F + PLA + STA $11 + LDAL L03002F + PHA + LDAL L03002D + PHA + PEA $0000 + PEA $8024 + PEI $11 + PEI $0F + _AddResource + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L023FC4 + LDA $0B + ORA #$8000 + PHA + _CloseResourceFile + STAL L02B111 + JSL L0250E2 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + BRL L02413F +L023FC4 LDX $19 + LDA $17 + CLC + ADC #$0002 + BCC L023FCF + INX +L023FCF STA $27 + STX $29 + LDA [$17] + AND #$00FF + DEC + DEC + SEP #$20 + STA [$27] + REP #$20 + PEA $8024 + PEI $11 + PEI $0F + PEI $29 + PEI $27 + _RMSetResourceName + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L02402E + LDA $0B + ORA #$8000 + PHA + _CloseResourceFile + STAL L02B111 + JSL L0250E2 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + BRL L02413F +L02402E SEP #$20 + LDY #$0002 + LDA #$3A + STA [$17],Y + REP #$20 + PEA $000F + _SetForeColor + STAL L02B111 + PEA $0023 + PEA $001E + _MoveTo + STAL L02B111 + PEI $19 + PEI $17 + _DrawString + STAL L02B111 + PEA $0000 + _SetForeColor + STAL L02B111 + PEI $0B + _UpdateResourceFile + STAL L02B111 + PEI $0B + _CloseResourceFile + STAL L02B111 + JSL L02AE36 + STAL L03002B + TAX + BEQ L0240C6 + LDA $0B + ORA #$8000 + PHA + _CloseResourceFile + STAL L02B111 + JSL L0250E2 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + BRA L02413F +L0240C6 PEA $0000 + TDC + CLC + ADC #$0156 + PHA + JSL L0251FD + LDAL L030011 + TAX + LDAL L03000F + STA $01 + STX $03 + LDY #$0004 + LDA [$01],Y + BEQ L024112 + STZ $51 + TDC + CLC + ADC #$0055 + STA $4F + PEA $2009 + PEA $0000 + TDC + CLC + ADC #$004B + PHA + JSL L02A4D6 + JSL L02AE36 + STAL L03002B + TAX + BEQ L024112 + PEA $00F6 + JSL L024DB6 +L024112 LDA [$17] + AND #$00FF + INC + LDX #$0000 + CLC + ADC $17 + STA $17 + TXA + ADC $19 + STA $19 + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 +L02413A INC $05 + BRL L023A72 +L02413F PEI $2F + PEI $2D + _DisposeHandle + STAL L02B111 + PEI $0D + _SetPenMode + STAL L02B111 + _InitCursor + STAL L02B111 + PEI $21 + PEI $1F + _CloseWindow + STAL L02B111 + PEA $0108 + _DisableMItem + STAL L02B111 +L024183 PLD + TSC + CLC + ADC #$0256 + TCS + RTL + +L02418B STR 'Whadya Want? ' + DB $00 + +L02419A PHA + TSC + PHD + TCD + PEI $08 + LDA $06 + AND #$FFFF + PHA + LDA $03,S + AND #$0000 + STA $03,S + PLA + PLX + STA $01 +L0241B1 BRL L024295 +L0241B4 BRL L0242ED + JSL L027A23 +L0241BB BRL L0242ED + JSL L027AD9 +L0241C2 BRL L0242ED + JSL L027B8F +L0241C9 BRL L0242ED + JSL L027C28 +L0241D0 BRL L0242ED +L0241D3 BRL L0242ED + JSL L0268A6 +L0241DA BRL L0242ED + JSL L02537D +L0241E1 BRL L0242ED + JSL L021207 +L0241E8 BRL L0242ED + JSL L0257DE +L0241EF BRL L0242ED + PEA $0001 + JSL L0209F9 +L0241F9 BRL L0242ED + PEA $0000 + JSL L0209F9 +L024203 BRL L0242ED + PEA $0003 + JSL L0209F9 +L02420D BRL L0242ED + PHA + PEA $0005 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + _AlertWindow + STAL L02B111 + PLA + STAL L030013 +L024230 BRL L0242ED + JSL L026715 +L024237 BRL L0242ED + JSL L024F8A +L02423E BRL L0242ED + JSL L024EF2 +L024245 BRL L0242ED + JSL L020269 +L02424C BRL L0242ED + JSL L02397C +L024253 BRL L0242ED + JSL L027850 +L02425A BRL L0242ED + JSL L0272F3 +L024261 BRL L0242ED + JSL L026D7A +L024268 BRL L0242ED + JSL L02169F +L02426F BRA L0242ED + JSL L0220C3 +L024275 BRA L0242ED + JSL L022E02 +L02427B BRA L0242ED + JSL L027CB6 +L024281 BRA L0242ED + JSL L02884B +L024287 BRA L0242ED + JSL L029245 +L02428D BRA L0242ED + JSL L02A31B + BRA L0242ED +L024295 LDA $01 + SEC + SBC #$00FA + CMP #$0020 + BCC L0242A3 + LDA #$0020 +L0242A3 ASL + TAX + LDAL L0242AB,X + PHA + RTS + +L0242AB DA L0241B1+2 + DA L0241B4+2 + DA L0241BB+2 + DA L0241C2+2 + DA L0241C9+2 + DA L0241D0+2 + DA L0241D3+2 + DA L0241DA+2 + DA L0242ED-1 + DA L0241E1+2 + DA L0241EF+2 + DA L0242ED-1 + DA L0242ED-1 + DA L02420D+2 + DA L024237+2 + DA L024230+2 + DA L02423E+2 + DA L024261+2 + DA L024253+2 + DA L02425A+2 + DA L0241F9+2 + DA L02424C+2 + DA L024245+2 + DA L0241E8+2 + DA L024203+2 + DA L02427B+1 + DA L024287+1 + DA L024281+1 + DA L024268+2 + DA L02426F+1 + DA L024275+1 + DA L02428D+1 + DA L0242ED-1 + +L0242ED PEA $0000 + PEI $08 + PEI $06 + PEA $0000 + PEA $0010 + JSL L02C248 + PLA + STA $01,S + _HiliteMenu + STAL L02B111 + LDA $04 + STA $08 + LDA $03 + STA $07 + PLD + TSC + CLC + ADC #$0006 + TCS + RTL + +L02431C TSC + SEC + SBC #$0004 + TCS + PHD + TCD + PHA + PHA + _FrontWindow + STAL L02B111 + PLA + STA $01 + PLA + STA $03 + PHA + PEI $03 + PEI $01 + _GetWKind + STAL L02B111 + PLA + CMPL L03001B + BNE L024351 + BRL L02440F +L024351 LDAL L03001B + EOR #$8000 + STAL L03001B + LDAL L03001B + AND #$8000 + BEQ L0243BB + PEA $00FA + _EnableMItem + STAL L02B111 + PEA $00FB + _EnableMItem + STAL L02B111 + PEA $00FC + _EnableMItem + STAL L02B111 + PEA $00FD + _EnableMItem + STAL L02B111 + PEA $00FE + _EnableMItem + STAL L02B111 + PEA $00FF + _EnableMItem + STAL L02B111 + BRA L02440F +L0243BB PEA $00FA + _DisableMItem + STAL L02B111 + PEA $00FB + _DisableMItem + STAL L02B111 + PEA $00FC + _DisableMItem + STAL L02B111 + PEA $00FD + _DisableMItem + STAL L02B111 + PEA $00FE + _DisableMItem + STAL L02B111 + PEA $00FF + _DisableMItem + STAL L02B111 +L02440F PLD + TSC + CLC + ADC #$0004 + TCS + RTL + +L024417 TSC + SEC + SBC #$0008 + TCS + PHD + TCD + LDAL L0400B2 + PHA + LDAL L0400B0 + PHA + LDA #$0001 + LDX #$0000 + TAY + CMP $01,S + BEQ L024435 + DEY +L024435 TXA + CMP $03,S + BEQ L02443D + LDY #$0000 +L02443D PLA + PLA + TYA + BNE L02446A + LDAL L0400B2 + PHA + LDAL L0400B0 + PHA + LDA #$0004 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L02445A + DEY +L02445A TXA + CMP $03,S + BEQ L024462 + LDY #$0000 +L024462 PLA + PLA + TYA + BNE L02446A + BRL L0245D6 +L02446A JSL L020925 + LDA L030039 + ORA L03003B + BNE L02448D + CLC + LDAL L030039 + ADC #$0001 + STAL L030039 + BCC L02448D + LDAL L03003B + INC + STAL L03003B +L02448D PEA $0000 + PEA $FFFA + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L0244A8 + TYA + CMP $01,S +L0244A8 BEQ L0244AC + BCS L0244AD +L0244AC DEX +L0244AD PLA + PLA + TXA + BEQ L0244C0 + LDA #$0000 + STAL L03003B + LDA #$FFFA + STAL L030039 +L0244C0 JSL L026CEE + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $07 + STA $05 + LDA #$0000 + STA [$05] + LDAL L030025 + STA [$05],Y + LDY #$0004 + LDAL L030017 + STA [$05],Y + LDY #$0006 + LDAL L03000D + STA [$05],Y + LDY #$0008 + LDAL L030039 + STA [$05],Y + LDAL L0400B2 + PHA + LDAL L0400B0 + PHA + LDA #$0001 + LDX #$0000 + TAY + CMP $01,S + BEQ L024519 + DEY +L024519 TXA + CMP $03,S + BEQ L024521 + LDY #$0000 +L024521 PLA + PLA + TYA + BNE L024529 + BRL L0245D2 +L024529 LDAL L030019 + AND #$00F7 + STAL L030019 + LDAL L030003 + PHA + LDAL L030001 + PHA + _HideWindow + STAL L02B111 + LDAL L030019 + AND #$0002 + BEQ L0245D0 + PEA $0115 + _EnableMItem + STAL L02B111 + PEA $0113 + _EnableMItem + STAL L02B111 + PEA $0114 + _EnableMItem + STAL L02B111 + PEA $0112 + _EnableMItem + STAL L02B111 + PEA $0104 + _EnableMItem + STAL L02B111 + PEA $010E + _EnableMItem + STAL L02B111 + PEA $0109 + _EnableMItem + STAL L02B111 + PEA $0108 + _EnableMItem + STAL L02B111 + PEA $010F + _EnableMItem + STAL L02B111 +L0245D0 BRA L0245D6 +L0245D2 JSL L026715 +L0245D6 PLD + TSC + CLC + ADC #$0008 + TCS + RTL + +L0245DE TSC + SEC + SBC #$0008 + TCS + PHD + TCD + LDA #$001F + STAL L0400A0 + LDA #$FFFF + STAL L04009E +L0245F4 JSL L02431C + PHA + PHA + PEA $C000 + PEA $0000 + _HandleDiskInsert + STAL L02B111 + PLA + STA $03 + PLA + STA $05 + PHA + PEA $FFFF + PEA ^L04008A + PEA L04008A + _TaskMaster + STAL L02B111 + PLA + STA $01 + STA $07 +L02462B BRA L02465A + LDAL L04009C + PHA + LDAL L04009A + PHA + JSL L02419A +L02463B BRA L024694 + JSL L024417 +L024641 BRA L024694 + LDAL L04009C + PHA + LDAL L04009A + PHA + _CloseWindow + STAL L02B111 + BRA L024694 +L02465A LDA $07 + SEC + SBC #$0011 + CMP #$0011 + BCC L024668 + LDA #$0011 +L024668 ASL + TAX + LDAL L024670,X + PHA + RTS + +L024670 DA L02462B+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L024641+1 + DA L024692+1 + DA L024692+1 + DA L02462B+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L024692+1 + DA L02463B+1 +L024692 DA L024692+1 +L024694 LDAL L030015 + BNE L02469D + BRL L0245F4 +L02469D PLD + TSC + CLC + ADC #$0008 + TCS + RTL + +L0246A5 JSL L024E9F + JSL L020015 + _ShowCursor + STAL L02B111 + JSL L0245DE + JSL L024ACF + RTL + +L0246C1 TSC + SEC + SBC #$000A + TCS + PHD + TCD + PHA + PHA + LDA #$0002 + PHA + PEI $10 + PEI $0E + PEI $14 + PEI $12 + _NewMenuBar2 + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + LDA $12 + ORA $14 + BEQ L0246F1 + BRL L02473E +L0246F1 PEI $09 + PEI $07 + _SetSysBar + STAL L02B111 + PEA $0000 + PEA $0000 + _SetMenuBar + STAL L02B111 + PEA $0000 + PEA $0000 + _RefreshDesktop + STAL L02B111 + LDA #$0001 + PHA + _FixAppleMenu + STAL L02B111 + PHA + _FixMenuBar + STAL L02B111 + PLA +L02473E _DrawMenuBar + STAL L02B111 + LDA $07 + LDX $09 + STA $01 + STX $03 + LDA $0C + STA $14 + LDA $0B + STA $13 + LDX $03 + LDY $01 + PLD + TSC + CLC + ADC #$0012 + TCS + TYA + RTL + +L024766 TSC + SEC + SBC #$0004 + TCS + PHD + TCD + PHB + PHB + PLA + STA $03 + PEA >L03003D + PLB + PLB + PHA + PHA + _GetPort + STAL L02B111 + _DrawControls + STAL L02B111 + LDA $03 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0004 + TCS + RTL + +L02479D TSC + SEC + SBC #$0004 + TCS + PHD + TCD + PHB + PHB + PLA + STA $03 + PEA >L03003D + PLB + PLB + LDA $06 + STA $0E + LDA $05 + STA $0D + LDA $03 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$000C + TCS + RTL + +L0247C4 TSC + SEC + SBC #$000A + TCS + PHD + TCD + PHB + PHB + PLA + STA $09 + PEA >L03003D + PLB + PLB + LDY #$0010 + LDA [$0E],Y + LDX #$0000 + CMP #$000F + BNE L0247E4 + INX +L0247E4 TXA + LDX #$0000 + TAY + BPL L0247EC + DEX +L0247EC STX $03 + ORA $03 + BEQ L0247F8 + LDA #$0001 + BRL L02480C +L0247F8 LDY #$0038 + LDA [$0E],Y + TAX + LDY #$0036 + LDA [$0E],Y + STX $03 + ORA $03 + BEQ L02480C + LDA #$0001 +L02480C TAX + BNE L024812 + BRL L02481A +L024812 LDA #$0002 + STA $01 + BRL L02481C +L02481A STZ $01 +L02481C LDA $0C + STA $10 + LDA $0B + STA $0F + LDY $01 + LDA $09 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$000E + TCS + TYA + STA $04,S + RTL + +L024836 TSC + SEC + SBC #$000A + TCS + PHD + TCD + PHB + PHB + PLA + STA $09 + PEA >L03003D + PLB + PLB + LDY #$0010 + LDA [$0E],Y + LDX #$0000 + CMP #$000F + BNE L024856 + INX +L024856 TXA + LDX #$0000 + TAY + BPL L02485E + DEX +L02485E STX $03 + ORA $03 + BEQ L02486A + LDA #$0001 + BRL L02487E +L02486A LDY #$0014 + LDA [$0E],Y + TAX + LDY #$0012 + LDA [$0E],Y + STX $03 + ORA $03 + BEQ L02487E + LDA #$0001 +L02487E TAX + BNE L024884 + BRL L02488C +L024884 LDA #$0002 + STA $01 + BRL L02488E +L02488C STZ $01 +L02488E LDA $0C + STA $10 + LDA $0B + STA $0F + LDY $01 + LDA $09 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$000E + TCS + TYA + STA $04,S + RTL + +L0248A8 TSC + SEC + SBC #$0008 + TCS + PHD + TCD + PHB + PHB + PLA + STA $07 + PEA >L03003D + PLB + PLB + LDA L03004C + ORA L03004E + BEQ L0248C5 + BRL L0248DC +L0248C5 PHA + PHA + _GetDblTime + STAL L02B111 + PLA + STAL L03004C + PLA + STAL L03004E +L0248DC LDA [$0C] + CMP #$0003 + BEQ L0248E6 + BRL L024958 +L0248E6 LDY #$0004 + LDA [$0C],Y + PHA + LDY #$0002 + LDA [$0C],Y + PHA + PLA + AND #$00FF + PHA + LDA $03,S + AND #$0000 + STA $03,S + LDA #$002E + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L02490C + DEY +L02490C TXA + CMP $03,S + BEQ L024914 + LDY #$0000 +L024914 PLA + PLA + TYA + BNE L02491C + BRL L024958 +L02491C LDY #$000E + LDA [$0C],Y + AND #$0100 + BNE L024929 + BRL L024958 +L024929 LDY #$0004 + LDA [$0C],Y + PHA + LDY #$0002 + LDA [$0C],Y + PHA + PLA + AND #$FF00 + PHA + LDA $03,S + AND #$FFFF + STA $03,S + PLA + ORA #$001B + PHA + LDA $03,S + ORA #$0000 + STA $03,S + LDY #$0002 + PLA + STA [$0C],Y + INY + INY + PLA + STA [$0C],Y +L024958 LDA [$0C] + CMP #$0001 + BEQ L024962 + BRL L024A45 +L024962 LDY #$000A + LDA [$0C],Y + STA $01 + LDAL L030042 + SEC + SBC $01 + BEQ L024979 + BVS L024977 + EOR #$8000 +L024977 BMI L02497C +L024979 BRL L024A45 +L02497C LDY #$000A + LDA [$0C],Y + BMI L02498A + CMP #$0032 + BEQ L02498A + BCS L02498D +L02498A BRL L024A45 +L02498D LDY #$000A + TYA + CLC + ADC #$0002 + TAY + LDA [$0C],Y + BMI L0249A2 + CMP #$01C7 + BCC L0249A2 + BRL L024A45 +L0249A2 LDY #$000A + TYA + CLC + ADC #$0002 + TAY + LDA [$0C],Y + BMI L0249B6 + CMP #$0041 + BEQ L0249B6 + BCS L0249B9 +L0249B6 BRL L024A45 +L0249B9 LDY #$0008 + LDA [$0C],Y + PHA + LDY #$0006 + LDA [$0C],Y + PHA + LDAL L03004E + PHA + LDAL L03004C + PHA + LDAL L030046 + PHA + LDAL L030044 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLY + PLA + LDX #$0001 + CMP $03,S + BNE L0249F0 + TYA + CMP $01,S +L0249F0 BEQ L0249F4 + BCS L0249F5 +L0249F4 DEX +L0249F5 PLA + PLA + TXA + BNE L0249FD + BRL L024A31 +L0249FD LDA #$0003 + STA [$0C] + LDY #$0004 + LDA [$0C],Y + PHA + LDY #$0002 + LDA [$0C],Y + PHA + PLA + AND #$FF00 + PHA + LDA $03,S + AND #$FFFF + STA $03,S + PLA + ORA #$000D + PHA + LDA $03,S + ORA #$0000 + STA $03,S + LDY #$0002 + PLA + STA [$0C],Y + INY + INY + PLA + STA [$0C],Y +L024A31 LDY #$0008 + LDA [$0C],Y + TAX + LDY #$0006 + LDA [$0C],Y + STAL L030044 + TXA + STAL L030046 +L024A45 LDA $0A + STA $0E + LDA $09 + STA $0D + LDA $07 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$000C + TCS + RTL + +L024A5A TSC + SEC + SBC #$0006 + TCS + PHD + TCD + LDX $03 + PHX + TSX + STX $03 + JSL L02AE55 + TAY + LDA $03 + TCS + PLA + STA $03 + TYA + STAL L030035 + PHA + PHA + LDAL L030035 + PHA + LDA #$000A + PHA + PEA $0000 + PEA $0001 + _StartUpTools + STAL L02B111 + PLA + STAL L030048 + PLA + STAL L03004A + LDX $03 + PHX + TSX + STX $03 + JSL L02AE36 + TAY + LDA $03 + TCS + PLA + STA $03 + TYA + TAX + BNE L024AB6 + BRL L024ABE +L024AB6 LDA #$FFFF + STA $05 + BRL L024AC0 +L024ABE STZ $05 +L024AC0 LDA $05 + STA $01 + LDY $01 + PLD + TSC + CLC + ADC #$0006 + TCS + TYA + RTL + +L024ACF PHA + TSC + PHD + TCD + LDA #$0001 + PHA + LDAL L03004A + PHA + LDAL L030048 + PHA + _ShutDownTools + STAL L02B111 + PLD + PLY + RTL + +L024AEF TSC + SEC + SBC #$0040 + TCS + PHD + TCD + LDA #$0000 + STA $0B + LDA #$0001 + LDX #$0000 + TAY + BPL L024B06 + DEX +L024B06 PHX + PHA + PEA $0000 + PEA $0004 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0044 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDA #$0001 + LDX #$0000 + TAY + BPL L024B30 + DEX +L024B30 PHX + PHA + PEA $0000 + PEA $0004 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0039 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $03 + PLA + STA $05 + LDA $01,S + STA [$03] + LDY #$0002 + LDA $03,S + STA [$03],Y + LDA #$0000 + LDX #$0000 + TAY + BPL L024B6B + DEX +L024B6B PHX + PHA + PEA $0000 + PEA $0004 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0039 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $03 + PLA + STA $05 + LDA $01,S + STA [$03] + LDY #$0002 + LDA $03,S + STA [$03],Y + PLA + PLA +L024B9E LDA #$FFFF + LDX #$0000 + TAY + BPL L024BA8 + DEX +L024BA8 PHX + PHA + PEA $0000 + PEA $0004 + JSL L02C5AD + LDA #$0000 + LDX #$0000 + TAY + BPL L024BBE + DEX +L024BBE PHX + PHA + PEA $0000 + PEA $0004 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0039 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $0D + PLA + STA $0F + PEA $0000 + PEA $0004 + PEA $0000 + PEA $0001 + JSL L02C5AD + LDY #$0002 + LDA [$0D],Y + PHA + LDA [$0D] + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDA $01,S + STA [$0D] + LDY #$0002 + LDA $03,S + STA [$0D],Y + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $03 + STX $05 + LDY #$0002 + LDA [$03],Y + PHA + LDA [$03] + PHA + LDA $01,S + STA $07 + LDA $03,S + STA $09 + PLA + STA $03 + PLA + ORA $03 + BNE L024C40 + BRL L024C64 +L024C40 LDA #$000A + LDX #$0001 + SEC + SBC $0B + BEQ L024C52 + BVS L024C50 + EOR #$8000 +L024C50 BMI L024C53 +L024C52 DEX +L024C53 TXA + LDX #$0000 + TAY + BPL L024C5B + DEX +L024C5B STX $03 + ORA $03 + BEQ L024C64 + LDA #$0001 +L024C64 TAY + BNE L024C6A + BRL L024CAF +L024C6A PEI $09 + PEI $07 + LDA $0B + INC $0B + LDX #$0000 + TAY + BPL L024C79 + DEX +L024C79 PHX + PHA + PEA $0000 + PEA $0004 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0011 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + STA $03 + PLA + STA $05 + LDA $01,S + STA [$03] + LDY #$0002 + LDA $03,S + STA [$03],Y + PLA + PLA + BRL L024B9E +L024CAF PEA $0000 + TDC + CLC + ADC #$0039 + PHA + JSL L02AE5A + PHA + LDA #$0004 + PHA + PEA $0000 + TDC + CLC + ADC #$0011 + PHA + PEI $46 + PEI $44 + _AlertWindow + STAL L02B111 + PLA + STA $01 + BRL L024CDF +L024CDF LDA $42 + STA $46 + LDA $41 + STA $45 + LDY $01 + PLD + TSC + CLC + ADC #$0044 + TCS + TYA + RTL + +L024CF2 TSC + SEC + SBC #$000E + TCS + PHD + TCD + PHA + PHA + _FindTargetCtl + STAL L02B111 + PLA + STA $0B + PLA + STA $0D + LDX $09 + PHX + TSX + STX $09 + JSL L02AE36 + TAY + LDA $09 + TCS + PLA + STA $09 + TYA + TAX + BNE L024D25 + BRL L024D32 +L024D25 LDA #$0000 + STA $01 + LDA #$0000 + STA $03 + BRL L024DA9 +L024D32 PHA + PEI $0D + PEI $0B + _GetCtlMoreFlags + STAL L02B111 + PLA + AND #$1000 + BNE L024D4B + BRL L024D9F +L024D4B LDY #$0002 + LDA [$0B],Y + TAX + LDA [$0B] + STA $05 + STX $07 + LDY #$0016 + LDA [$05],Y + PHA + LDY #$0014 + LDA [$05],Y + PHA + LDA #$0000 + LDX #$8300 + LDY #$0001 + CMP $01,S + BEQ L024D71 + DEY +L024D71 TXA + CMP $03,S + BEQ L024D79 + LDY #$0000 +L024D79 PLA + PLA + TYA + BNE L024D81 + BRL L024D9F +L024D81 LDY #$0002 + LDA [$0B],Y + TAX + LDA [$0B] + STA $05 + STX $07 + LDY #$001E + LDA [$05],Y + TAX + LDY #$001C + LDA [$05],Y + STX $03 + STA $01 + BRL L024DA9 +L024D9F LDA #$0000 + STA $01 + LDA #$0000 + STA $03 +L024DA9 LDX $03 + LDY $01 + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L024DB6 PHA + TSC + PHD + TCD + _GrafOff + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + PEA ^L024E5C + PEA L024E5C + JSL L02A80B + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDX $01 + PHX + TSX + STX $01 + LDAL L03002B + PHA + LDA $06 + PHA + PEA ^L024E8F + PEA L024E8F + JSL L02A77E + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDX $01 + PHX + TSX + STX $01 + JSL L02A66F + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L024ACF + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDX $01 + PHX + TSX + STX $01 + LDA #$0001 + PHA + JSL L02A667 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDA $04 + STA $06 + LDA $03 + STA $05 + PLD + TSC + CLC + ADC #$0004 + TCS + RTL + +L024E5C ASC 'A fatal error has occurred. Press any k' + ASC 'ey to exit.'00 +L024E8F ASC 'Location %d: %X'00 +L024E9F PHA + TSC + PHD + TCD + LDX $01 + PHX + TSX + STX $01 + JSL L024A5A + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + TAX + BNE L024EBB + BRL L024ED1 +L024EBB LDX $01 + PHX + TSX + STX $01 + LDA #$0001 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L024ED1 LDX $01 + PHX + TSX + STX $01 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0001 + JSL L0246C1 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + PLD + PLY + RTL + +L024EF2 TSC + SEC + SBC #$0012 + TCS + PHD + TCD + LDAL L030023 + TAX + LDAL L030021 + SEC + SBC #$0001 + BCS L024F0A + DEX +L024F0A STX $0D + STA $0B + LDAL L030019 + AND #$0002 + BNE L024F1A + BRL L024F82 +L024F1A LDA #$0000 + STA $07 + LDA #$0000 + STA $09 + LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $0F + LDA $03,S + STA $11 + PLA + PLA +L024F38 PEI $09 + PEI $07 + LDX $0D + LDA $0B + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L024F4C + TYA + CMP $01,S +L024F4C BEQ L024F50 + BCS L024F51 +L024F50 DEX +L024F51 PLA + PLA + TXA + BNE L024F59 + BRL L024F82 +L024F59 LDA [$0F] + AND #$00FF + TAX + BEQ L024F64 + BRL L024F6D +L024F64 SEP #$20 + LDA [$0F] + INC + STA [$0F] + REP #$20 +L024F6D INC $07 + BNE L024F73 + INC $09 +L024F73 PEI $11 + PEI $0F + INC $0F + BNE L024F7D + INC $11 +L024F7D PLA + PLA + BRL L024F38 +L024F82 PLD + TSC + CLC + ADC #$0012 + TCS + RTL + +L024F8A PHA + TSC + PHD + TCD + LDAL L030019 + AND #$0004 + BEQ L024F9A + BRL L025009 +L024F9A PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FFA + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STAL L030001 + PLA + STAL L030003 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L024FF3 + BRL L025009 +L024FF3 LDX $01 + PHX + TSX + STX $01 + LDA #$001F + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L025009 LDAL L030019 + AND #$0008 + BEQ L025015 + BRL L0250DF +L025015 LDAL L030003 + PHA + LDAL L030001 + PHA + _ShowWindow + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L025046 + BRL L02505C +L025046 LDX $01 + PHX + TSX + STX $01 + LDA #$0020 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L02505C LDA #$0109 + PHA + _DisableMItem + STAL L02B111 + LDA #$0115 + PHA + _DisableMItem + STAL L02B111 + LDA #$0113 + PHA + _DisableMItem + STAL L02B111 + LDA #$0114 + PHA + _DisableMItem + STAL L02B111 + LDA #$0112 + PHA + _DisableMItem + STAL L02B111 + LDA #$0104 + PHA + _DisableMItem + STAL L02B111 + LDA #$010E + PHA + _DisableMItem + STAL L02B111 + LDA #$010F + PHA + _DisableMItem + STAL L02B111 + LDAL L030019 + ORA #$000C + STAL L030019 +L0250DF PLD + PLY + RTL + +L0250E2 TSC + SEC + SBC #$0014 + TCS + PHD + TCD + LDAL L03002B + BMI L0250F8 + CMP #$0072 + BCC L0250F8 + BRL L025119 +L0250F8 PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDAL L03002B + PHA + _ErrorWindow + STAL L02B111 + PLA + STA $07 + BRL L0251EE +L025119 LDAL L03002B + CMP #$0086 + BEQ L025125 + BRL L0251A8 +L025125 PHA + PHA + LDAL L03002F + PHA + LDAL L03002D + PHA + _GetHandleSize + STAL L02B111 + PEA $0000 + PEA $000A + JSL L02B0CB + PLA + STA $09 + PLA + STA $0B + LDA $09 + ORA $0B + BEQ L025155 + BRL L02515F +L025155 LDA #$0001 + STA $09 + LDA #$0000 + STA $0B +L02515F LDX $05 + PHX + TSX + STX $05 + PEI $0B + PEI $09 + PEA ^L0251F6 + PEA L0251F6 + PEA $0000 + TDC + CLC + ADC #$000D + PHA + JSL L02AA15 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHA + LDA #$0000 + PHA + PEA $0000 + TDC + CLC + ADC #$000D + PHA + LDAL L03002B + PHA + _ErrorWindow + STAL L02B111 + PLA + STA $07 + BRL L0251EE +L0251A8 LDX $05 + PHX + TSX + STX $05 + LDAL L03002B + PHA + PEA ^L0251FA + PEA L0251FA + PEA $0000 + TDC + CLC + ADC #$000D + PHA + JSL L02AA15 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHA + LDA #$0000 + PHA + PEA $0000 + TDC + CLC + ADC #$000D + PHA + LDA #$0072 + PHA + _ErrorWindow + STAL L02B111 + PLA + STA $07 +L0251EE PLD + TSC + CLC + ADC #$0014 + TCS + RTL + +L0251F6 ASC '%ld'00 +L0251FA ASC '%X'00 + +L0251FD TSC + SEC + SBC #$0022 + TCS + PHD + TCD + LDA #$0004 + STAL L0400B8 + LDX $28 + LDA $26 + STAL L0400BC + TXA + STAL L0400BE + LDA #$0002 + STAL L0400C0 + LDA #$0001 + STAL L0400C2 + LDX $05 + PHX + TSX + STX $05 + LDA #$2010 + PHA + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L02525F + BRL L025274 +L02525F LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L02536D +L025274 LDA #$0003 + STA $19 + LDAL L0400BA + PHA + PLA + STA $1B + STA $09 + STZ $1D + LDA #$000C + STA $1F + LDA #$0000 + STA $21 + LDX $05 + PHX + TSX + STX $05 + LDA #$2016 + PHA + PEA $0000 + TDC + CLC + ADC #$0019 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0252CA + BRL L0252E0 +L0252CA LDX $05 + PHX + TSX + STX $05 + LDA #$0006 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0252E0 LDA #$0004 ; write suffix + STA $07 + LDA #L040000 + STA $0B + LDA #^L040000 + STA $0D + +* LDA #$0033 +* STA $0F + lda L030021 + and #$ff + sta $0f + lda #256 + sec + sbc $0f + sta $0f + + LDA #$0000 + STA $11 + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0007 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025334 + BRL L02534A +L025334 LDX $05 + PHX + TSX + STX $05 + LDA #$0007 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02534A LDA #$0001 + STAL L0400B8 + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA ^L0400B8 + PEA L0400B8 + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02536D LDA $24 + STA $28 + LDA $23 + STA $27 + PLD + TSC + CLC + ADC #$0026 + TCS + RTL + +L02537D TSC + SEC + SBC #$0004 + TCS + PHD + TCD + LDAL L030019 + AND #$0001 + BNE L025391 + BRL L0253E3 +L025391 PHA + LDA #$0005 + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0002 + _AlertWindow + STAL L02B111 + PLA + STA $03 + LDA $03 + TAX + BEQ L0253B8 + LDA #$0001 +L0253B8 EOR #$0001 + BNE L0253C0 + BRL L0253C3 +L0253C0 BRL L02544D +L0253C3 LDA $03 + CMP #$0002 + BEQ L0253CD + BRL L0253E3 +L0253CD LDX $01 + PHX + TSX + STX $01 + LDA #$0001 + PHA + JSL L0209F9 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L0253E3 LDA #$FFFF + STAL L030015 + LDAL L030019 + AND #$0002 + BNE L0253F6 + BRL L02540B +L0253F6 LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 +L02540B LDAL L030019 + AND #$0004 + BNE L025417 + BRL L02542C +L025417 LDAL L030003 + PHA + LDAL L030001 + PHA + _CloseWindow + STAL L02B111 +L02542C LDAL L030019 + AND #$0010 + BNE L025438 + BRL L02544D +L025438 LDAL L03001F + PHA + LDAL L03001D + PHA + _CloseWindow + STAL L02B111 +L02544D PLD + TSC + CLC + ADC #$0004 + TCS + RTL + +L025455 PHA + TSC + PHD + TCD + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0002 + LDX $01 + PHX + TSX + STX $01 + PEI $08 + PEI $06 + JSL L02A628 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + PHX + PHA + _SetLETextByID + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L0254A8 + BRL L0254BE +L0254A8 LDX $01 + PHX + TSX + STX $01 + LDA #$00E7 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L0254BE LDX $01 + PHX + TSX + STX $01 + LDAL L03003B + PHA + LDAL L030039 + PHA + PEA ^L0256B4 + PEA L0256B4 + PEI $08 + PEI $06 + JSL L02AA15 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0009 + LDX $01 + PHX + TSX + STX $01 + PEI $08 + PEI $06 + JSL L02A628 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + PHX + PHA + _SetLETextByID + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L025533 + BRL L025549 +L025533 LDX $01 + PHX + TSX + STX $01 + LDA #$00E8 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L025549 LDX $01 + PHX + TSX + STX $01 + LDAL L03000D + PHA + PEA ^L0256B8 + PEA L0256B8 + PEI $08 + PEI $06 + JSL L02AA15 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0006 + LDX $01 + PHX + TSX + STX $01 + PEI $08 + PEI $06 + JSL L02A628 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + PHX + PHA + _SetLETextByID + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L0255B9 + BRL L0255CF +L0255B9 LDX $01 + PHX + TSX + STX $01 + LDA #$00E9 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L0255CF LDAL L030003 + PHA + LDAL L030001 + PHA + _ShowWindow + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L025600 + BRL L025616 +L025600 LDX $01 + PHX + TSX + STX $01 + LDA #$0018 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L025616 LDA #$0109 + PHA + _DisableMItem + STAL L02B111 + LDA #$0112 + PHA + _DisableMItem + STAL L02B111 + LDA #$0115 + PHA + _DisableMItem + STAL L02B111 + LDA #$0113 + PHA + _DisableMItem + STAL L02B111 + LDA #$0114 + PHA + _DisableMItem + STAL L02B111 + LDA #$0104 + PHA + _DisableMItem + STAL L02B111 + LDA #$010E + PHA + _DisableMItem + STAL L02B111 + LDA #$010F + PHA + _DisableMItem + STAL L02B111 + LDAL L030019 + ORA #$000F + STAL L030019 + LDAL L030019 + AND #$FFBF + STAL L030019 + LDA $04 + STA $08 + LDA $03 + STA $07 + PLD + TSC + CLC + ADC #$0006 + TCS + RTL + +L0256B4 AND $6C + STZ $00 +L0256B8 AND $64 +L0256BA BRK $3B + SEC + SBC #$0010 + TCS + PHD + TCD + LDA $14 + LDX $16 + STA $09 + STX $0B + LDA $18 + LDX $1A + STA $0D + STX $0F +L0256D3 LDX $07 + PHX + TSX + STX $07 + LDA [$09] + AND #$00FF + PHA + JSL L02AE3B + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + PHA + LDX $07 + PHX + TSX + STX $07 + LDA [$0D] + AND #$00FF + PHA + JSL L02AE3B + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + SEC + SBC $01,S + PLX + TAX + BEQ L02570E + BRL L025733 +L02570E LDA [$09] + AND #$00FF + TAX + BNE L025719 + BRL L025733 +L025719 LDA [$0D] + AND #$00FF + TAX + BNE L025724 + BRL L025733 +L025724 INC $09 + BNE L02572A + INC $0B +L02572A INC $0D + BNE L025730 + INC $0F +L025730 BRL L0256D3 +L025733 LDX $07 + PHX + TSX + STX $07 + LDA [$09] + AND #$00FF + PHA + JSL L02AE3B + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + PHA + LDX $07 + PHX + TSX + STX $07 + LDA [$0D] + AND #$00FF + PHA + JSL L02AE3B + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + PLY + STY $03 + SEC + SBC $03 + BEQ L025773 + BVS L025771 + EOR #$8000 +L025771 BMI L025776 +L025773 BRL L02577E +L025776 LDA #$FFFF + STA $01 + BRL L0257CB +L02577E LDX $07 + PHX + TSX + STX $07 + LDA [$0D] + AND #$00FF + PHA + JSL L02AE3B + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + PHA + LDX $07 + PHX + TSX + STX $07 + LDA [$09] + AND #$00FF + PHA + JSL L02AE3B + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + PLY + STY $03 + SEC + SBC $03 + BEQ L0257BE + BVS L0257BC + EOR #$8000 +L0257BC BMI L0257C1 +L0257BE BRL L0257C9 +L0257C1 LDA #$0001 + STA $01 + BRL L0257CB +L0257C9 STZ $01 +L0257CB LDA $12 + STA $1A + LDA $11 + STA $19 + LDY $01 + PLD + TSC + CLC + ADC #$0018 + TCS + TYA + RTL + +L0257DE TSC + SEC + SBC #$021D + TCS + PHD + TCD + LDA #$0009 + LDX #$013C + STA $00,X + LDX #$013E + LDA #$0003 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$006D + LDX #$0142 + STA $00,X + LDA #$0028 + LDX #$0144 + STA $00,X + LDA #$007B + LDX #$0146 + STA $00,X + LDA #$006E + LDX #$0148 + STA $00,X + LDX #$014A + LDA #$0000 + STA $00,X + LDA #$8000 + STA $02,X + LDA #$0001 + LDX #$014E + STA $00,X + LDA #$3000 + LDX #$0150 + STA $00,X + LDX #$0152 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + PEA ^L0266D0 + PEA L0266D0 + LDX #$0156 + PLA + STA $00,X + PLA + STA $02,X + LDX #$015A + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + SEP #$20 + LDA #$0D + LDX #$015E + STA $00,X + REP #$20 + SEP #$20 + LDA #$8D + LDX #$015F + STA $00,X + REP #$20 + LDX #$0160 + STZ $00,X + LDX #$0162 + STZ $00,X + LDA #$0009 + LDX #$0164 + STA $00,X + LDX #$0166 + LDA #$0001 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$006C + LDX #$016A + STA $00,X + LDA #$015E + LDX #$016C + STA $00,X + LDA #$007C + LDX #$016E + STA $00,X + LDA #$01A4 + LDX #$0170 + STA $00,X + LDX #$0172 + LDA #$0000 + STA $00,X + LDA #$8000 + STA $02,X + LDX #$0176 + STZ $00,X + LDA #$3000 + LDX #$0178 + STA $00,X + LDX #$017A + LDA #$0001 + STA $00,X + LDA #$0000 + STA $02,X + PEA ^L0266D6 + PEA L0266D6 + LDX #$017E + PLA + STA $00,X + PLA + STA $02,X + LDX #$0182 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + SEP #$20 + LDA #$9B + LDX #$0186 + STA $00,X + REP #$20 + SEP #$20 + LDA #$1B + LDX #$0187 + STA $00,X + REP #$20 + LDX #$0188 + STZ $00,X + LDX #$018A + STZ $00,X + LDA #$000E + LDX #$018C + STA $00,X + LDX #$018E + LDA #$0002 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$0014 + LDX #$0192 + STA $00,X + LDA #$0014 + LDX #$0194 + STA $00,X + LDA #$0064 + LDX #$0196 + STA $00,X + LDA #$019A + LDX #$0198 + STA $00,X + LDX #$019A + LDA #$0000 + STA $00,X + LDA #$8900 + STA $02,X + LDX #$019E + STZ $00,X + LDA #$7400 + LDX #$01A0 + STA $00,X + LDX #$01A2 + LDA #$0042 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$01A6 + STZ $00,X + LDA #$0008 + LDX #$01A8 + STA $00,X + LDA #$0003 + LDX #$01AA + STA $00,X + LDA #$0001 + LDX #$01AC + STA $00,X + LDX #$01AE + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$000A + LDX #$01B2 + STA $00,X + LDA #$0006 + LDX #$01B4 + STA $00,X + LDX #$01B6 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$01BA + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$01BE + TDC + CLC + ADC #$013C + STA $00,X + STZ $02,X + LDX #$01C2 + TDC + CLC + ADC #$0164 + STA $00,X + STZ $02,X + LDX #$01C6 + TDC + CLC + ADC #$018C + STA $00,X + STZ $02,X + LDX #$01CA + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$0050 + LDX #$01CE + STA $00,X + LDA #$0060 + LDX #$01D0 + STA $00,X + LDX #$01D2 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$01D6 + LDA #$002A + STA $00,X + LDA #$0000 + STA $02,X + LDA #$000A + LDX #$01DA + STA $00,X + LDA #$0014 + LDX #$01DC + STA $00,X + LDA #$0244 + LDX #$01DE + STA $00,X + LDA #$00B4 + LDX #$01E0 + STA $00,X + LDX #$01E2 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$01E6 + STZ $00,X + LDX #$01E8 + STZ $00,X + LDX #$01EA + STZ $00,X + LDX #$01EC + STZ $00,X + LDX #$01EE + STZ $00,X + LDX #$01F0 + STZ $00,X + LDX #$01F2 + STZ $00,X + LDX #$01F4 + STZ $00,X + LDX #$01F6 + STZ $00,X + LDX #$01F8 + STZ $00,X + LDX #$01FA + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$01FE + STZ $00,X + LDX #$0200 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$0204 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDX #$0208 + LDA #$0000 + STA $00,X + LDA #$0000 + STA $02,X + LDA #$001E + LDX #$020C + STA $00,X + LDA #$002D + LDX #$020E + STA $00,X + LDA #$00AA + LDX #$0210 + STA $00,X + LDA #$020D + LDX #$0212 + STA $00,X + LDX #$0214 + LDA #$FFFF + STA $00,X + LDA #$FFFF + STA $02,X + TDC + CLC + ADC #$01BE + LDX #$0000 + TXY + LDX #$0218 + STA $00,X + STY $02,X + LDA #$0003 + LDX #$021C + STA $00,X + LDX $05 + PHX + TSX + STX $05 + JSL L020FED + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + TAX + BEQ L025B19 + BRL L025B1C +L025B19 BRL L0266C8 +L025B1C LDA #$0003 + STAL L0400FA + LDA #$0003 + STAL L040100 + STZ $0B + LDA #$004B + PHA + LDA #$0028 + PHA + LDA #$0000 + PHA + PEA ^L0266DE + PEA L0266DE + PEA ^L0247C4 + PEA L0247C4 + PEA $0000 + PEA $0000 + PEA ^L0400F2 + PEA L0400F2 + _SFGetFile2 + STAL L02B111 + LDAL L0400F2 + BNE L025B64 + BRL L0266C8 +L025B64 LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + PHA + LDA #$8001 + PHA + PEA $0000 + PEA $0000 + LDAL L03000B + PHA + LDAL L030009 + PHA + PLA + CLC + ADC #$0002 + BCC L025BB3 + PLX + INX + PHX +L025BB3 PHA + _OpenResourceFile + STAL L02B111 + PLA + STA $0D + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025BDE + BRL L025C81 +L025BDE LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025C21 + BRL L025C37 +L025C21 LDX $05 + PHX + TSX + STX $05 + LDA #$0334 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L025C37 LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025C68 + BRL L025C7E +L025C68 LDX $05 + PHX + TSX + STX $05 + LDA #$0335 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L025C7E BRL L0266C8 +L025C81 PHA + LDA #$0001 + PHA + _SetResourceFileDepth + STAL L02B111 + PLA + STA $0F + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025CB0 + BRL L025CC6 +L025CB0 LDX $05 + PHX + TSX + STX $05 + LDA #$0009 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L025CC6 PHA + PHA + LDA #$8024 + PHA + _CountResources + STAL L02B111 + PLA + STA $23 + PLA + STA $25 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025CF9 + BRL L025D0F +L025CF9 LDX $05 + PHX + TSX + STX $05 + LDA #$000A + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L025D0F LDA $23 + ORA $25 + BEQ L025D18 + BRL L025D65 +L025D18 PHA + LDA $0F + PHA + _SetResourceFileDepth + STAL L02B111 + PLA + STA $0F + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDA $0D + PHA + _CloseResourceFile + STAL L02B111 + BRL L0266C8 +L025D65 LDX $05 + PHX + TSX + STX $05 + PEI $25 + PEI $23 + PEA $0000 + PEA $0006 + JSL L02C5AD + JSL L02C21D + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STX $19 + STA $17 + LDX $05 + PHX + TSX + STX $05 + PEI $25 + PEI $23 + PEA $0000 + PEA $0104 + JSL L02C5AD + JSL L02C21D + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STX $2D + STA $2B + PEA $0000 + PEA $000A + PEI $25 + PEI $23 + JSL L02C444 + BEQ L025DC0 + BRL L025DC9 +L025DC0 PEA $0000 + PEA $000A + BRL L025DCD +L025DC9 PEI $25 + PEI $23 +L025DCD PEA $0000 + PEA $000A + JSL L02C5AD + PLA + CLC + ADC #$0034 + BCC L025DE1 + PLX + INX + PHX +L025DE1 PHA + PLA + PLX + STAL L030042 + STZ $11 + PEA $0000 + PEA $0001 + LDA $01,S + STA $13 + LDA $03,S + STA $15 + PLA + PLA + PEI $19 + PEI $17 + LDA $01,S + STA $1B + LDA $03,S + STA $1D + PLA + PLA + PEI $2D + PEI $2B + LDA $01,S + STA $2F + LDA $03,S + STA $31 + PLA + PLA +L025E16 PEI $25 + PEI $23 + LDA $11 + LDX #$0000 + TAY + BPL L025E23 + DEX +L025E23 PHX + PHA + JSL L02C444 + BNE L025E2E + BRL L025F8E +L025E2E PHA + PHA + LDA #$8024 + PHA + PEI $15 + PEI $13 + _GetIndResource + STAL L02B111 + LDY #$0100 + PLA + STA [$2F],Y + INY + INY + PLA + STA [$2F],Y + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L025E6A + BRL L025E80 +L025E6A LDX $05 + PHX + TSX + STX $05 + LDA #$000B + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L025E80 LDA #$8024 + PHA + LDY #$0102 + LDA [$2F],Y + PHA + LDY #$0100 + LDA [$2F],Y + PHA + PEI $31 + PEI $2F + _RMGetResourceName + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + CMP #$1E10 + BNE L025EBD + BRL L025EC9 +L025EBD LDAL L03002B + CMP #$1E11 + BEQ L025EC9 + BRL L025EF4 +L025EC9 LDX $05 + PHX + TSX + STX $05 + LDY #$0102 + LDA [$2F],Y + PHA + LDY #$0100 + LDA [$2F],Y + PHA + PEA ^L0266ED + PEA L0266ED + PEI $31 + PEI $2F + JSL L02AA15 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L025F44 +L025EF4 LDAL L03002B + BNE L025EFD + BRL L025F16 +L025EFD LDX $05 + PHX + TSX + STX $05 + LDA #$000C + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L025F44 +L025F16 LDX $05 + PHX + TSX + STX $05 + LDX $05 + PHX + TSX + STX $05 + PEI $31 + PEI $2F + JSL L02A73C + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHX + PHA + PEI $31 + PEI $2F + JSL L02AB57 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L025F44 PEI $31 + PEI $2F + PLA + STA [$1B] + LDY #$0002 + PLA + STA [$1B],Y + LDY #$0004 + LDA #$0000 + STA [$1B],Y + INC $11 + PEI $15 + PEI $13 + INC $13 + BNE L025F65 + INC $15 +L025F65 PLA + PLA + PEI $1D + PEI $1B + CLC + LDA $1B + ADC #$0006 + STA $1B + BCC L025F77 + INC $1D +L025F77 PLA + PLA + PEI $31 + PEI $2F + CLC + LDA $2F + ADC #$0104 + STA $2F + BCC L025F89 + INC $31 +L025F89 PLA + PLA + BRL L025E16 +L025F8E LDX $05 + PHX + TSX + STX $05 + PEA ^L0256BA+1 + PEA L0256BA+1 + PEA $0000 + PEA $0104 + PEI $25 + PEI $23 + PEI $2D + PEI $2B + JSL L02A843 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDY #$0004 + LDA #$0080 + STA [$17],Y + LDA $23 + LDX #$01A6 + STA $00,X + LDX #$01B6 + LDA $17 + STA $00,X + LDA $19 + STA $02,X + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0043 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0000 + PHA + TDC + CLC + ADC #$01CE + LDX #$0000 + PHX + PHA + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026027 + BRL L02603D +L026027 LDX $05 + PHX + TSX + STX $05 + LDA #$000D + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02603D PEI $09 + PEI $07 + _SetPort + STAL L02B111 + LDA #$0013 + PHA + LDA #$0010 + PHA + _MoveTo + STAL L02B111 + PEA ^L0266F1 + PEA L0266F1 + _DrawCString + STAL L02B111 + PHA + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0002 + _GetCtlHandleFromID + STAL L02B111 + PLA + STA $1F + PLA + STA $21 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0260A9 + BRL L0260BF +L0260A9 LDX $05 + PHX + TSX + STX $05 + LDA #$000E + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0260BF STZ $0B +L0260C1 PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA ^L0248A8 + PEA L0248A8 + PEA $0000 + PEA $0000 + LDA #$0010 + PHA + _DoModalWindow + STAL L02B111 + PLA + STA $13 + PLA + STA $15 + LDAL L04008A + CMP #$0001 + BEQ L0260FC + BRL L026123 +L0260FC PEI $15 + PEI $13 + LDA #$0001 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L02610E + DEY +L02610E TXA + CMP $03,S + BEQ L026116 + LDY #$0000 +L026116 PLA + PLA + TYA + BNE L02611E + BRL L026123 +L02611E LDA #$FFFF + STA $0B +L026123 PEI $15 + PEI $13 + LDA #$0003 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L026135 + DEY +L026135 TXA + CMP $03,S + BEQ L02613D + LDY #$0000 +L02613D PLA + PLA + TYA + BNE L026145 + BRL L026316 +L026145 PHA + LDA #$0000 + PHA + PEI $21 + PEI $1F + _NextMember2 + STAL L02B111 + PLA + STA $0B + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026178 + BRL L02618E +L026178 LDX $05 + PHX + TSX + STX $05 + LDA #$000F + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02618E PHA + PHA + LDA #$8024 + PHA + LDA $0B + DEC + LDX #$0000 + TAY + BPL L02619E + DEX +L02619E PHX + PHA + PEA $0000 + PEA $0104 + JSL L02C5AD + CLC + PLA + ADC $2B + PHA + LDA $03,S + ADC $2D + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDY #$0102 + LDA [$01],Y + PHA + LDY #$0100 + LDA [$01],Y + PHA + _LoadResource + STAL L02B111 + PLA + STAL L03002D + PLA + STAL L03002F + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0261F8 + BRL L02625B +L0261F8 LDAL L03002B + CMP #$0201 + BEQ L026204 + BRL L02620B +L026204 LDA #$0086 + STAL L03002B +L02620B LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PEI $09 + PEI $07 + _CloseWindow + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + PEI $19 + PEI $17 + JSL L02C1EF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEI $2D + PEI $2B + JSL L02C1EF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L0266C8 +L02625B LDAL L03002F + PHA + LDAL L03002D + PHA + _HLock + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L02628C + BRL L0262A2 +L02628C LDX $05 + PHX + TSX + STX $05 + LDA #$0010 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0262A2 LDA #$8024 + PHA + LDA $0B + DEC + LDX #$0000 + TAY + BPL L0262B0 + DEX +L0262B0 PHX + PHA + PEA $0000 + PEA $0104 + JSL L02C5AD + CLC + PLA + ADC $2B + PHA + LDA $03,S + ADC $2D + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDY #$0102 + LDA [$01],Y + PHA + LDY #$0100 + LDA [$01],Y + PHA + _DetachResource + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026300 + BRL L026316 +L026300 LDX $05 + PHX + TSX + STX $05 + LDA #$0011 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026316 LDA $0B + BNE L02631D + BRL L0260C1 +L02631D PEI $09 + PEI $07 + _CloseWindow + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026348 + BRL L02635E +L026348 LDX $05 + PHX + TSX + STX $05 + LDA #$0012 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02635E LDX $05 + PHX + TSX + STX $05 + LDA $0B + DEC + LDX #$0000 + TAY + BPL L02636E + DEX +L02636E PHX + PHA + PEA $0000 + PEA $0104 + JSL L02C5AD + CLC + PLA + ADC $2B + PHA + LDA $03,S + ADC $2D + STA $03,S + PEA $0000 + TDC + CLC + ADC #$003C + PHA + JSL L02AB57 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEI $19 + PEI $17 + JSL L02C1EF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEI $2D + PEI $2B + JSL L02C1EF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHA + LDA $0F + PHA + _SetResourceFileDepth + STAL L02B111 + PLA + STA $0F + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0263F4 + BRL L02640A +L0263F4 LDX $05 + PHX + TSX + STX $05 + LDA #$0013 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02640A LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L02643B + BRL L026451 +L02643B LDX $05 + PHX + TSX + STX $05 + LDA #$0014 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026451 LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026482 + BRL L026498 +L026482 LDX $05 + PHX + TSX + STX $05 + LDA #$0015 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026498 LDA $0D + PHA + _CloseResourceFile + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0264C2 + BRL L0264D8 +L0264C2 LDX $05 + PHX + TSX + STX $05 + LDA #$0016 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0264D8 LDA $0B + CMP #$FFFF + BEQ L0264E2 + BRL L0264E5 +L0264E2 BRL L0266C8 +L0264E5 LDAL L030019 + AND #$0008 + BEQ L0264F1 + BRL L026500 +L0264F1 LDA #$010A + PHA + _EnableMItem + STAL L02B111 +L026500 LDA #$010B + PHA + _EnableMItem + STAL L02B111 + LDA #$0119 + PHA + _EnableMItem + STAL L02B111 + LDA #$010C + PHA + _EnableMItem + STAL L02B111 + LDA #$010D + PHA + _EnableMItem + STAL L02B111 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + CLC + ADC #$000A + BCC L026558 + INX +L026558 STAL L030027 + TXA + STAL L030029 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STX $29 + STA $27 + PHA + PHA + LDAL L03002F + PHA + LDAL L03002D + PHA + _GetHandleSize + STAL L02B111 + SEC + LDA $01,S + SBC #$000A + STA $01,S + BCS L0265A0 + LDA $03,S + DEC + STA $03,S +L0265A0 PLA + STAL L030021 + PLA + STAL L030023 + LDY #$0002 + LDA [$27],Y + STAL L030025 + LDY #$0008 + LDA [$27],Y + LDX #$0000 + STAL L030039 + TXA + STAL L03003B + LDY #$0006 + LDA [$27],Y + STAL L03000D + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + LDA $01,S + SBC #$0001 + STA $01,S + BCS L0265E6 + LDA $03,S + DEC + STA $03,S +L0265E6 LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + LDA #$0006 + PHA + LDA #$0001 + PHA + PEA ^L026705 + PEA L026705 + LDAL L03002F + PHA + LDAL L03002D + PHA + PEA $0000 + PEA $0000 + _SendRequest + STAL L02B111 + LDAL L030019 + AND #$0004 + BEQ L02663E + BRL L0266AD +L02663E PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FFA + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STAL L030001 + PLA + STAL L030003 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026697 + BRL L0266AD +L026697 LDX $05 + PHX + TSX + STX $05 + LDA #$0017 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0266AD LDX $05 + PHX + TSX + STX $05 + PEA $0000 + TDC + CLC + ADC #$003C + PHA + JSL L025455 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0266C8 PLD + TSC + CLC + ADC #$021D + TCS + RTL + +L0266D0 STR 'Okay' + DB $00 +L0266D6 STR 'Cancel' + DB $00 +L0266DE STR 'Whadya Want? ' + DB $00 + +L0266ED ASC '%lX'00 +L0266F1 ASC 'Choose your rSound:'00 +L026705 STR 'Apple~SoundCP~' + DB $00 +L026715 TSC + SEC + SBC #$001E + TCS + PHD + TCD + LDAL L030019 + AND #$0002 + BNE L026729 + BRL L02688E +L026729 LDA #$0006 + PHA + LDA #$0001 + PHA + PEA ^L026896 + PEA L026896 + LDAL L03002F + PHA + LDAL L03002D + PHA + PEA $0000 + PEA $0000 + _SendRequest + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + CMP #$0120 + BEQ L02676C + BRL L02688E +L02676C LDA #$0008 + PHA + LDA #$0100 + PHA + _LoadOneTool + STAL L02B111 + PHA + PHA + PEA $0000 + PEA $0100 + LDAL L030035 + PHA + LDA #$C005 + PHA + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + PLA + STA $09 + PLA + STA $0B + LDA [$09] + PHA + _SoundStartUp + STAL L02B111 + LDAL L03000D + XBA + AND #$FF00 + ASL + ASL + ASL + ASL + CLC + ADC #$0101 + STA $07 + LDAL L030029 + TAX + LDAL L030027 + STX $0F + STA $0D + LDAL L030025 + STA $11 + LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + PEA $3FF9 + PEA $9F5B + PEA $A979 + PEA $3B31 + PEA $F000 + JSL L02BF65 + JSL L02BBEC + STA $13 + LDA #$2000 + STA $15 + LDA #$0003 + STA $17 + LDA #$0000 + STA $19 + LDA #$0000 + STA $1B + LDA #$00FF + STA $1D + LDA $07 + PHA + PEA $0000 + TDC + CLC + ADC #$000D + PHA + _FFStartSound + STAL L02B111 +L026830 PHA + LDA #$0001 + PHA + _FFGeneratorStatus + STAL L02B111 + PLA + AND #$8000 + BEQ L026849 + BRL L02684C +L026849 BRL L026830 +L02684C PHA + LDA #$0001 + PHA + _FFSoundDoneStatus + STAL L02B111 + PLA + BEQ L026862 + BRL L026865 +L026862 BRL L02684C +L026865 LDA #$0002 + PHA + _FFStopSound + STAL L02B111 + _SoundShutDown + STAL L02B111 + PEI $0B + PEI $09 + _DisposeHandle + STAL L02B111 +L02688E PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L026896 STR 'Apple~SoundCP~' + DB $00 +L0268A6 TSC + SEC + SBC #$008C + TCS + PHD + TCD + SEP #$20 + STZ $65 + REP #$20 + SEP #$20 + STZ $66 + REP #$20 + SEP #$20 + STZ $67 + REP #$20 + SEP #$20 + STZ $68 + REP #$20 + SEP #$20 + STZ $69 + REP #$20 + SEP #$20 + STZ $6A + REP #$20 + SEP #$20 + STZ $6B + REP #$20 + SEP #$20 + STZ $6C + REP #$20 + SEP #$20 + STZ $6D + REP #$20 + SEP #$20 + STZ $6E + REP #$20 + SEP #$20 + STZ $6F + REP #$20 + SEP #$20 + LDA #$0C + STA $70 + REP #$20 + SEP #$20 + LDA #$07 + STA $71 + REP #$20 + SEP #$20 + STZ $72 + REP #$20 + SEP #$20 + STZ $73 + REP #$20 + SEP #$20 + STZ $74 + REP #$20 + SEP #$20 + LDA #$02 + STA $75 + REP #$20 + SEP #$20 + LDA #$0F + STA $76 + REP #$20 + SEP #$20 + LDA #$04 + STA $77 + REP #$20 + SEP #$20 + LDA #$0A + STA $78 + REP #$20 + SEP #$20 + LDA #$AE + STA $79 + REP #$20 + SEP #$20 + LDA #$04 + STA $7A + REP #$20 + SEP #$20 + LDA #$A0 + STA $7B + REP #$20 + SEP #$20 + LDA #$0F + STA $7C + REP #$20 + SEP #$20 + LDA #$C0 + STA $7D + REP #$20 + SEP #$20 + LDA #$0F + STA $7E + REP #$20 + SEP #$20 + LDA #$FA + STA $7F + REP #$20 + SEP #$20 + LDA #$0F + STA $80 + REP #$20 + SEP #$20 + LDA #$FF + STA $81 + REP #$20 + SEP #$20 + LDA #$0F + STA $82 + REP #$20 + SEP #$20 + LDA #$FF + STA $83 + REP #$20 + SEP #$20 + LDA #$0F + STA $84 + REP #$20 + LDAL L030040 + PHA + LDAL L03003E + PHA + PLA + EOR #$0001 + PHA + LDA $03,S + EOR #$0000 + STA $03,S + PLA + STAL L03003E + PLA + STAL L030040 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FF9 + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026A07 + BRL L026A1D +L026A07 LDX $05 + PHX + TSX + STX $05 + LDA #$001D + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026A1D PEI $09 + PEI $07 + _ShowWindow + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026A48 + BRL L026A5E +L026A48 LDX $05 + PHX + TSX + STX $05 + LDA #$001E + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026A5E STZ $15 +L026A60 LDA $15 + BMI L026A6C + CMP #$0004 + BCC L026A6C + BRL L026ABF +L026A6C PHA + LDA $15 + INC + PHA + _GetMenuFlag + STAL L02B111 + PLA + PHA + PEA $0000 + TDC + CLC + ADC #$0085 + PHA + LDA $15 + ASL + LDX #$0000 + TAY + BPL L026A91 + DEX +L026A91 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDA #$0080 + PHA + LDA $15 + INC + PHA + _SetMenuFlag + STAL L02B111 + INC $15 + BRL L026A60 +L026ABF _DrawMenuBar + STAL L02B111 + LDA #$000A + STA $2B + LDA #$0000 + STA $2D + PHA + LDA #$0064 + PHA + _GetSCB + STAL L02B111 + PLA + STA $11 + LDA #$003A + STA $15 +L026AEC LDA $15 + BMI L026AF8 + CMP #$009B + BCC L026AF8 + BRL L026B0F +L026AF8 LDA $15 + PHA + LDA #$000F + PHA + _SetSCB + STAL L02B111 + INC $15 + BRL L026AEC +L026B0F LDA #$000F + PHA + PEA $0000 + TDC + CLC + ADC #$0045 + PHA + _GetColorTable + STAL L02B111 + LDA #$000F + PHA + PEA $0000 + TDC + CLC + ADC #$0065 + PHA + _SetColorTable + STAL L02B111 + PHA + PHA + LDA #$8024 + PHA + LDAL L030040 + PHA + LDAL L03003E + PHA + _LoadResource + STAL L02B111 + PLA + STA $0B + PLA + STA $0D + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026B7C + BRL L026BAB +L026B7C LDAL L03002B + CMP #$0201 + BNE L026B88 + BRL L026BA6 +L026B88 LDAL L03002B + CMP #$1E06 + BNE L026B94 + BRL L026BA6 +L026B94 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026BA6 STZ $0F + BRL L026BD3 +L026BAB LDA #$0006 + PHA + LDA #$0001 + PHA + PEA ^L026CDE + PEA L026CDE + PEI $0D + PEI $0B + PEA $0000 + PEA $0000 + _SendRequest + STAL L02B111 + LDA #$0001 + STA $0F +L026BD3 PHA + LDA #$004A + PHA + PEA $0000 + TDC + CLC + ADC #$0017 + PHA + _TaskMaster + STAL L02B111 + PLA + STA $13 + LDA $13 + CMP #$0001 + BNE L026BF9 + BRL L026C03 +L026BF9 LDA $13 + CMP #$0003 + BEQ L026C03 + BRL L026BD3 +L026C03 LDA #$003A + STA $15 +L026C08 LDA $15 + BMI L026C14 + CMP #$009B + BCC L026C14 + BRL L026C2A +L026C14 LDA $15 + PHA + LDA $11 + PHA + _SetSCB + STAL L02B111 + INC $15 + BRL L026C08 +L026C2A LDA #$000F + PHA + PEA $0000 + TDC + CLC + ADC #$0045 + PHA + _SetColorTable + STAL L02B111 + PEI $09 + PEI $07 + _CloseWindow + STAL L02B111 + STZ $15 +L026C53 LDA $15 + BMI L026C5F + CMP #$0004 + BCC L026C5F + BRL L026C9C +L026C5F PEA $0000 + TDC + CLC + ADC #$0085 + PHA + LDA $15 + ASL + LDX #$0000 + TAY + BPL L026C72 + DEX +L026C72 PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + PHA + LDA $15 + INC + PHA + _SetMenuFlag + STAL L02B111 + INC $15 + BRL L026C53 +L026C9C LDA $0F + BNE L026CA3 + BRL L026CCB +L026CA3 LDA #$8024 + PHA + LDAL L030040 + PHA + LDAL L03003E + PHA + _DetachResource + STAL L02B111 + PEI $0D + PEI $0B + _DisposeHandle + STAL L02B111 +L026CCB _DrawMenuBar + STAL L02B111 + PLD + TSC + CLC + ADC #$008C + TCS + RTL + +L026CDE STR 'Apple~SoundCP~' + DB $00 +L026CEE TSC + SEC + SBC #$0006 + TCS + PHD + TCD + LDX $05 + PHX + TSX + STX $05 + LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + PEA $400D + PEA $CDA0 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02BC4A + JSL L02BABB + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + JSL L02BC73 + PEA $3FFE + PEA $B172 + PEA $17F9 + PEA $B5A7 + PEA $D800 + JSL L02BC4A + PEA $400A + PEA $C000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02BF65 + JSL L02BB85 + STAL L030017 + LDAL L030017 + BMI L026D63 + BRL L026D72 +L026D63 LDAL L030017 + EOR #$FFFF + INC + ORA #$8000 + STAL L030017 +L026D72 PLD + TSC + CLC + ADC #$0006 + TCS + RTL + +L026D7A TSC + SEC + SBC #$0027 + TCS + PHD + TCD + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FF4 + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STA $17 + PLA + STA $19 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L026DD7 + BRL L026DED +L026DD7 LDX $05 + PHX + TSX + STX $05 + LDA #$0258 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L026DED PEI $19 + PEI $17 + _ShowWindow + STAL L02B111 + PEI $19 + PEI $17 + _SelectWindow + STAL L02B111 +L026E0B PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + LDA #$0018 + PHA + _DoModalWindow + STAL L02B111 + PLA + PLX + STA $1B + LDA $1B + CMP #$0025 + BNE L026E42 + BRL L026E4C +L026E42 LDA $1B + CMP #$0026 + BEQ L026E4C + BRL L026E0B +L026E4C LDAL L030023 + TAX + LDAL L030021 + SEC + SBC #$0001 + BCS L026E5C + DEX +L026E5C STX $11 + STA $0F + _WaitCursor + STAL L02B111 + LDA $1B + CMP #$0026 + BEQ L026E75 + BRL L026FAB +L026E75 PEI $19 + PEI $17 + PEA $0000 + PEA $0029 + PEA $0000 + TDC + CLC + ADC #$0023 + PHA + _GetLETextByID + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + PEA $0000 + TDC + CLC + ADC #$0024 + PHA + JSL L02A60A + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STA $1B + LDA $1B + LDX #$0000 + JSL L02BB54 + PEA $4005 + PEA $C800 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02BC4A + PEA $0000 + TDC + CLC + ADC #$001F + PHA + JSL L02BFC2 + LDAL L030029 + TAX + LDAL L030027 + STX $0D + STA $0B + PEA $0000 + PEA $0000 + LDA $01,S + STA $13 + LDA $03,S + STA $15 + PLA + PLA +L026EF6 PEI $15 + PEI $13 + LDX $11 + LDA $0F + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L026F0A + TYA + CMP $01,S +L026F0A BEQ L026F0E + BCS L026F0F +L026F0E DEX +L026F0F PLA + PLA + TXA + BNE L026F17 + BRL L026FA8 +L026F17 LDA [$0B] + AND #$00FF + SEC + SBC #$0080 + STA $1D + LDA $1D + JSL L02BB2E + PEA $0000 + TDC + CLC + ADC #$001F + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0204 + _SANEFP816 + JSL L02BB85 + STA $1D + LDA $1D + BPL L026F53 + CMP #$FF81 + BCC L026F56 +L026F53 BRL L026F5B +L026F56 LDA #$FF81 + STA $1D +L026F5B LDA $1D + BMI L026F66 + CMP #$007F + BEQ L026F66 + BCS L026F69 +L026F66 BRL L026F6E +L026F69 LDA #$007F + STA $1D +L026F6E LDA $1D + AND #$00FF + CLC + ADC #$0080 + PHA + PLA + SEP #$20 + STA [$0B] + REP #$20 + LDA [$0B] + AND #$00FF + TAX + BEQ L026F8A + BRL L026F93 +L026F8A SEP #$20 + LDA [$0B] + INC + STA [$0B] + REP #$20 +L026F93 INC $13 + BNE L026F99 + INC $15 +L026F99 INC $0B + BNE L026F9F + INC $0D +L026F9F PEI $0D + PEI $0B + PLA + PLA + BRL L026EF6 +L026FA8 BRL L0270FA +L026FAB LDA #$0080 + SEP #$20 + STA $0A + REP #$20 + SEP #$20 + STA $09 + REP #$20 + LDAL L030029 + TAX + LDAL L030027 + STX $0D + STA $0B + PEA $0000 + PEA $0000 + LDA $01,S + STA $13 + LDA $03,S + STA $15 + PLA + PLA +L026FD7 PEI $15 + PEI $13 + LDX $11 + LDA $0F + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L026FEB + TYA + CMP $01,S +L026FEB BEQ L026FEF + BCS L026FF0 +L026FEF DEX +L026FF0 PLA + PLA + TXA + BNE L026FF8 + BRL L027051 +L026FF8 LDA $09 + AND #$00FF + PHA + LDA [$0B] + AND #$00FF + PLY + STY $01 + CMP $01 + BEQ L02700C + BCS L02700F +L02700C BRL L02701A +L02700F LDA [$0B] + AND #$00FF + SEP #$20 + STA $09 + REP #$20 +L02701A LDA [$0B] + AND #$00FF + PHA + LDA $0A + AND #$00FF + PLY + STY $01 + CMP $01 + BEQ L02702E + BCS L027031 +L02702E BRL L02703C +L027031 LDA [$0B] + AND #$00FF + SEP #$20 + STA $0A + REP #$20 +L02703C INC $13 + BNE L027042 + INC $15 +L027042 INC $0B + BNE L027048 + INC $0D +L027048 PEI $0D + PEI $0B + PLA + PLA + BRL L026FD7 +L027051 PEA $0000 + PEA $FFFF + LDA $0A + AND #$00FF + PHA + LDA $09 + AND #$00FF + SEC + SBC $01,S + PLX + PEA $0000 + PHA + JSL L02C850 + PLA + PLX + STA $07 + LDAL L030029 + TAX + LDAL L030027 + STX $0D + STA $0B + PEA $0000 + PEA $0000 + LDA $01,S + STA $13 + LDA $03,S + STA $15 + PLA + PLA +L02708F PEI $15 + PEI $13 + LDX $11 + LDA $0F + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L0270A3 + TYA + CMP $01,S +L0270A3 BEQ L0270A7 + BCS L0270A8 +L0270A7 DEX +L0270A8 PLA + PLA + TXA + BNE L0270B0 + BRL L0270FA +L0270B0 LDA $0A + AND #$00FF + PHA + LDA [$0B] + AND #$00FF + SEC + SBC $01,S + PLX + LDX $07 + JSL L02CABC + XBA + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0B] + REP #$20 + LDA [$0B] + AND #$00FF + TAX + BEQ L0270DC + BRL L0270E5 +L0270DC SEP #$20 + LDA [$0B] + INC + STA [$0B] + REP #$20 +L0270E5 INC $13 + BNE L0270EB + INC $15 +L0270EB INC $0B + BNE L0270F1 + INC $0D +L0270F1 PEI $0D + PEI $0B + PLA + PLA + BRL L02708F +L0270FA PEI $19 + PEI $17 + _CloseWindow + STAL L02B111 + LDAL L030019 + AND #$0008 + BNE L027115 + BRL L02713C +L027115 LDAL L030003 + PHA + LDAL L030001 + PHA + _BringToFront + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L024766 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02713C _InitCursor + STAL L02B111 + PLD + TSC + CLC + ADC #$0027 + TCS + RTL + +L02714F TSC + SEC + SBC #$0015 + TCS + PHD + TCD + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FF6 + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STA $09 + PLA + STA $0B + LDX $07 + PHX + TSX + STX $07 + JSL L02AE36 + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + STAL L03002B + TAX + BNE L0271AC + BRL L0271C2 +L0271AC LDX $07 + PHX + TSX + STX $07 + LDA #$0190 + PHA + JSL L024DB6 + TAY + LDA $07 + TCS + PLA + STA $07 + TYA +L0271C2 PEI $0B + PEI $09 + _ShowWindow + STAL L02B111 + PEI $0B + PEI $09 + _SelectWindow + STAL L02B111 +L0271E0 PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + LDA #$0018 + PHA + _DoModalWindow + STAL L02B111 + PLA + PLX + STA $0D + LDA $0D + CMP #$0018 + BNE L027217 + BRL L027221 +L027217 LDA $0D + CMP #$0019 + BEQ L027221 + BRL L0271E0 +L027221 LDA $0D + CMP #$0018 + BEQ L02722B + BRL L0272A0 +L02722B PEI $0B + PEI $09 + PEA $0000 + PEA $0017 + PEA $0000 + TDC + CLC + ADC #$000F + PHA + _GetLETextByID + STAL L02B111 + LDX $07 + PHX + TSX + STX $07 + PEA $0000 + TDC + CLC + ADC #$0010 + PHA + JSL L02A60A + TAY + LDA $07 + TCS + PLA + STA $07 + TYA + STA $0D + LDA $0D + BEQ L02726D + BRL L02726F +L02726D INC $0D +L02726F LDAL L03003B + PHA + LDAL L030039 + PHA + LDA $0D + LDX #$0000 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L02728A + TYA + CMP $01,S +L02728A BEQ L02728E + BCS L02728F +L02728E DEX +L02728F PLA + PLA + TXA + BNE L027297 + BRL L02729D +L027297 LDAL L030039 + STA $0D +L02729D BRL L0272A2 +L0272A0 STZ $0D +L0272A2 PEI $0B + PEI $09 + _CloseWindow + STAL L02B111 + LDAL L030019 + AND #$0008 + BNE L0272BD + BRL L0272E4 +L0272BD LDAL L030003 + PHA + LDAL L030001 + PHA + _BringToFront + STAL L02B111 + LDX $07 + PHX + TSX + STX $07 + JSL L024766 + TAY + LDA $07 + TCS + PLA + STA $07 + TYA +L0272E4 LDA $0D + STA $01 + LDY $01 + PLD + TSC + CLC + ADC #$0015 + TCS + TYA + RTL + +L0272F3 TSC + SEC + SBC #$0044 + TCS + PHD + TCD + LDX $05 + PHX + TSX + STX $05 + JSL L02714F + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STA $0F + TAX + BEQ L027315 + BRL L027318 +L027315 BRL L027848 +L027318 LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BC4A + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF8E + PEA $3FFF + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$002D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0100 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF8E + LDX $05 + PHX + TSX + STX $05 + PEA $4000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0104 + _SANEFP816 + JSL L02BBB7 + PHX + PHA + JSL L02C21D + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STX $1B + STA $19 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0273DA + BRL L0273FF +L0273DA LDAL L03002B + CMP #$0201 + BEQ L0273E6 + BRL L0273ED +L0273E6 LDA #$0086 + STAL L03002B +L0273ED LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0273FF LDX $05 + PHX + TSX + STX $05 + PEA $4002 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$002D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0104 + _SANEFP816 + JSL L02BBB7 + PHX + PHA + JSL L02C21D + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STX $0D + STA $0B + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L027462 + BRL L027487 +L027462 LDAL L03002B + CMP #$0201 + BEQ L02746E + BRL L027475 +L02746E LDA #$0086 + STAL L03002B +L027475 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L027487 _WaitCursor + STAL L02B111 + LDA $19 + LDX $1B + STA $15 + STX $17 + LDA #$0000 + STA $0F +L02749F PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BF05 + BNE L0274BE + BRL L0274D7 +L0274BE SEP #$20 + LDA #$80 + STA [$15] + REP #$20 + INC $0F + INC $15 + BNE L0274CE + INC $17 +L0274CE PEI $17 + PEI $15 + PLA + PLA + BRL L02749F +L0274D7 PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$003D + PHA + JSL L02BF8E + LDA $0B + LDX $0D + STA $07 + STX $09 + LDA #$0000 + STA $0F +L027500 PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BF05 + BNE L02751F + BRL L02759C +L02751F PEA $3FFF + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BFF6 + JSL L02BC4A + PEI $09 + PEI $07 + JSL L02BF8E + PEI $09 + PEI $07 + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$003D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0100 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$003D + PHA + JSL L02BF8E + INC $0F + CLC + LDA $07 + ADC #$0008 + STA $07 + BCC L027593 + INC $09 +L027593 PEI $09 + PEI $07 + PLA + PLA + BRL L027500 +L02759C LDA $0B + LDX $0D + STA $07 + STX $09 + LDA #$0000 + STA $0F +L0275A9 PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BF05 + BNE L0275C8 + BRL L027630 +L0275C8 PEA $3FFF + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BFF6 + JSL L02BC4A + PEA $0000 + TDC + CLC + ADC #$003D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0106 + _SANEFP816 + PEI $09 + PEI $07 + JSL L02BF8E + INC $0F + CLC + LDA $07 + ADC #$0008 + STA $07 + BCC L027627 + INC $09 +L027627 PEI $09 + PEI $07 + PLA + PLA + BRL L0275A9 +L027630 LDAL L030023 + TAX + LDAL L030021 + SEC + SBC #$0001 + BCS L027640 + DEX +L027640 STX $1F + STA $1D + LDA #$0000 + STA $21 + LDA #$0000 + STA $23 + LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $11 + LDA $03,S + STA $13 + PLA + PLA +L027662 PEI $23 + PEI $21 + LDX $1F + LDA $1D + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027676 + TYA + CMP $01,S +L027676 BEQ L02767A + BCS L02767B +L02767A DEX +L02767B PLA + PLA + TXA + BNE L027683 + BRL L0277F3 +L027683 LDX $1B + LDA $19 + INC + BNE L02768B + INX +L02768B STA $15 + STX $17 + LDA #$0001 + STA $0F +L027694 PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BF05 + BNE L0276B3 + BRL L0276DC +L0276B3 LDA [$15] + AND #$00FF + PHA + LDX $17 + LDA $15 + SEC + SBC #$0001 + BCS L0276C4 + DEX +L0276C4 STA $01 + STX $03 + PLA + SEP #$20 + STA [$01] + REP #$20 + INC $15 + BNE L0276D5 + INC $17 +L0276D5 INC $0F + LDA $0F + BRL L027694 +L0276DC LDA [$11] + AND #$00FF + PHA + LDX $17 + LDA $15 + SEC + SBC #$0001 + BCS L0276ED + DEX +L0276ED STA $01 + STX $03 + PLA + SEP #$20 + STA [$01] + REP #$20 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF8E + STZ $0F + PEI $1B + PEI $19 + LDA $01,S + STA $15 + LDA $03,S + STA $17 + PLA + PLA + PEI $0D + PEI $0B + LDA $01,S + STA $07 + LDA $03,S + STA $09 + PLA + PLA +L027732 PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BF05 + BNE L027751 + BRL L0277B1 +L027751 LDA [$15] + AND #$00FF + LDX #$0000 + JSL L02BB54 + PEI $09 + PEI $07 + JSL L02BF38 + JSL L02BF65 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0100 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF8E + CLC + LDA $07 + ADC #$0008 + STA $07 + BCC L02779E + INC $09 +L02779E INC $15 + BNE L0277A4 + INC $17 +L0277A4 PEI $17 + PEI $15 + PLA + PLA + INC $0F + LDA $0F + BRL L027732 +L0277B1 PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF38 + JSL L02BB85 + PHA + PLA + SEP #$20 + STA [$11] + REP #$20 + LDA [$11] + AND #$00FF + TAX + BEQ L0277D5 + BRL L0277DE +L0277D5 SEP #$20 + LDA [$11] + INC + STA [$11] + REP #$20 +L0277DE INC $21 + BNE L0277E4 + INC $23 +L0277E4 INC $11 + BNE L0277EA + INC $13 +L0277EA PEI $13 + PEI $11 + PLA + PLA + BRL L027662 +L0277F3 LDX $05 + PHX + TSX + STX $05 + PEI $1B + PEI $19 + JSL L02C1EF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEI $0D + PEI $0B + JSL L02C1EF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$010B + PHA + _EnableMItem + STAL L02B111 + LDA #$0119 + PHA + _EnableMItem + STAL L02B111 + _InitCursor + STAL L02B111 +L027848 PLD + TSC + CLC + ADC #$0044 + TCS + RTL + +L027850 TSC + SEC + SBC #$002C + TCS + PHD + TCD + LDX $05 + PHX + TSX + STX $05 + JSL L02714F + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STA $0F + TAX + BEQ L027872 + BRL L027875 +L027872 BRL L027A1B +L027875 LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + LDA $0F + LDX #$0000 + JSL L02BB54 + JSL L02BC4A + PEA $0000 + TDC + CLC + ADC #$0015 + PHA + JSL L02BF8E + LDAL L030023 + TAX + LDAL L030021 + SEC + SBC #$0001 + BCS L0278AC + DEX +L0278AC STX $0D + STA $0B + LDAL L030029 + TAX + LDAL L030027 + STX $13 + STA $11 + LDA [$11] + AND #$00FF + JSL L02BB2E + PEA $0000 + TDC + CLC + ADC #$001D + PHA + JSL L02BF8E + _WaitCursor + STAL L02B111 + LDA #$0000 + STA $07 + LDA #$0000 + STA $09 +L0278E8 PEI $09 + PEI $07 + LDX $0D + LDA $0B + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L0278FC + TYA + CMP $01,S +L0278FC BEQ L027900 + BCS L027901 +L027900 DEX +L027901 PLA + PLA + TXA + BNE L027909 + BRL L0279F2 +L027909 LDA [$11] + AND #$00FF + JSL L02BB2E + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF8E + PEA $0000 + TDC + CLC + ADC #$0025 + PHA + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0102 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$0015 + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0106 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0100 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$001D + PHA + JSL L02BF8E + PEA $0000 + TDC + CLC + ADC #$001D + PHA + JSL L02BF38 + LDA [$11] + AND #$00FF + LDX #$0000 + JSL L02BB54 + JSL L02BFF6 + PEA $4006 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02BB05 + JSL L02BB85 + PHA + PLA + SEP #$20 + STA [$11] + REP #$20 + LDA [$11] + AND #$00FF + TAX + BEQ L0279D4 + BRL L0279DD +L0279D4 SEP #$20 + LDA [$11] + INC + STA [$11] + REP #$20 +L0279DD INC $07 + BNE L0279E3 + INC $09 +L0279E3 INC $11 + BNE L0279E9 + INC $13 +L0279E9 PEI $13 + PEI $11 + PLA + PLA + BRL L0278E8 +L0279F2 LDA #$010B + PHA + _EnableMItem + STAL L02B111 + LDA #$0119 + PHA + _EnableMItem + STAL L02B111 + _InitCursor + STAL L02B111 +L027A1B PLD + TSC + CLC + ADC #$002C + TCS + RTL + +L027A23 TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDX $01 + PHX + TSX + STX $01 + JSL L024CF2 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STX $05 + STA $03 + LDA $03 + ORA $05 + BEQ L027A4A + BRL L027A4D +L027A4A BRL L027AD1 +L027A4D PHA + PHA + _GetPort + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + PHA + PHA + _FrontWindow + STAL L02B111 + _StartDrawing + STAL L02B111 + PEI $05 + PEI $03 + _LECut + STAL L02B111 + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetOrigin + STAL L02B111 + PEI $09 + PEI $07 + _SetPort + STAL L02B111 + _ZeroScrap + STAL L02B111 + PHA + _LEGetScrapLen + STAL L02B111 + PLA + BNE L027AC6 + BRL L027AD1 +L027AC6 _LEToScrap + STAL L02B111 +L027AD1 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L027AD9 TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDX $01 + PHX + TSX + STX $01 + JSL L024CF2 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STX $05 + STA $03 + LDA $03 + ORA $05 + BEQ L027B00 + BRL L027B03 +L027B00 BRL L027B87 +L027B03 PHA + PHA + _GetPort + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + PHA + PHA + _FrontWindow + STAL L02B111 + _StartDrawing + STAL L02B111 + PEI $05 + PEI $03 + _LECopy + STAL L02B111 + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetOrigin + STAL L02B111 + PEI $09 + PEI $07 + _SetPort + STAL L02B111 + _ZeroScrap + STAL L02B111 + PHA + _LEGetScrapLen + STAL L02B111 + PLA + BNE L027B7C + BRL L027B87 +L027B7C _LEToScrap + STAL L02B111 +L027B87 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L027B8F TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDX $01 + PHX + TSX + STX $01 + JSL L024CF2 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STX $05 + STA $03 + LDA $03 + ORA $05 + BEQ L027BB6 + BRL L027BB9 +L027BB6 BRL L027C20 +L027BB9 _LEFromScrap + STAL L02B111 + PHA + PHA + _GetPort + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + PHA + PHA + _FrontWindow + STAL L02B111 + _StartDrawing + STAL L02B111 + PEI $05 + PEI $03 + _LEPaste + STAL L02B111 + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetOrigin + STAL L02B111 + PEI $09 + PEI $07 + _SetPort + STAL L02B111 +L027C20 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L027C28 TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDX $01 + PHX + TSX + STX $01 + JSL L024CF2 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STX $05 + STA $03 + LDA $03 + ORA $05 + BEQ L027C4F + BRL L027C52 +L027C4F BRL L027CAE +L027C52 PHA + PHA + _GetPort + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + PHA + PHA + _FrontWindow + STAL L02B111 + _StartDrawing + STAL L02B111 + PEI $05 + PEI $03 + _LEDelete + STAL L02B111 + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetOrigin + STAL L02B111 + PEI $09 + PEI $07 + _SetPort + STAL L02B111 +L027CAE PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L027CB6 TSC + SEC + SBC #$0171 + TCS + PHD + TCD + SEP #$20 + LDA #$52 + STA $13 + REP #$20 + SEP #$20 + LDA #$49 + STA $14 + REP #$20 + SEP #$20 + LDA #$46 + STA $15 + REP #$20 + SEP #$20 + LDA #$46 + STA $16 + REP #$20 + LDA #$0000 + STA $17 + LDA #$0000 + STA $19 + SEP #$20 + LDA #$57 + STA $1B + REP #$20 + SEP #$20 + LDA #$41 + STA $1C + REP #$20 + SEP #$20 + LDA #$56 + STA $1D + REP #$20 + SEP #$20 + LDA #$45 + STA $1E + REP #$20 + SEP #$20 + LDA #$66 + STA $1F + REP #$20 + SEP #$20 + LDA #$6D + STA $20 + REP #$20 + SEP #$20 + LDA #$74 + STA $21 + REP #$20 + SEP #$20 + LDA #$20 + STA $22 + REP #$20 + LDA #$0010 + STA $23 + LDA #$0000 + STA $25 + LDA #$0001 + STA $27 + LDA #$0001 + STA $29 + LDA #$0000 + STA $2B + LDA #$0000 + STA $2D + LDA #$0000 + STA $2F + LDA #$0000 + STA $31 + LDA #$0001 + STA $33 + LDA #$0008 + STA $35 + SEP #$20 + LDA #$64 + STA $37 + REP #$20 + SEP #$20 + LDA #$61 + STA $38 + REP #$20 + SEP #$20 + LDA #$74 + STA $39 + REP #$20 + SEP #$20 + LDA #$61 + STA $3A + REP #$20 + LDA #$0000 + STA $3B + LDA #$0000 + STA $3D + SEP #$20 + LDA #$50 + STA $3F + REP #$20 + SEP #$20 + LDA #$48 + STA $40 + REP #$20 + SEP #$20 + LDA #$42 + STA $41 + REP #$20 + SEP #$20 + LDA #$34 + STA $42 + REP #$20 + LDA #$0033 + STA $43 + LDA #$0000 + STA $45 + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FF5 + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STA $07 + PLA + STA $09 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L027E03 + BRL L027E19 +L027E03 LDX $05 + PHX + TSX + STX $05 + LDA #$032A + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L027E19 LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$4650 + LDX #$0000 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027E35 + TYA + CMP $01,S +L027E35 BEQ L027E39 + BCS L027E3A +L027E39 DEX +L027E3A PLA + PLA + TXA + BNE L027E42 + BRL L027EE4 +L027E42 LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0021 + _SetCtlValueByID + STAL L02B111 + PEA $0000 + PEA $2A49 + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027E76 + TYA + CMP $01,S +L027E76 BEQ L027E7A + BCS L027E7B +L027E7A DEX +L027E7B PLA + PLA + TXA + BNE L027E83 + BRL L027EC8 +L027E83 LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$2BD9 + LDX #$0000 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027E9F + TYA + CMP $01,S +L027E9F BEQ L027EA3 + BCS L027EA4 +L027EA3 DEX +L027EA4 PLA + PLA + TXA + BNE L027EAC + BRL L027EC8 +L027EAC LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0020 + _SetCtlValueByID + STAL L02B111 + BRL L027EE1 +L027EC8 LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $001F + _SetCtlValueByID + STAL L02B111 +L027EE1 BRL L02804E +L027EE4 LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$80E8 + LDX #$0000 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027F00 + TYA + CMP $01,S +L027F00 BEQ L027F04 + BCS L027F05 +L027F04 DEX +L027F05 PLA + PLA + TXA + BNE L027F0D + BRL L027FAF +L027F0D LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0022 + _SetCtlValueByID + STAL L02B111 + PEA $0000 + PEA $5492 + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027F41 + TYA + CMP $01,S +L027F41 BEQ L027F45 + BCS L027F46 +L027F45 DEX +L027F46 PLA + PLA + TXA + BNE L027F4E + BRL L027F93 +L027F4E LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$57B2 + LDX #$0000 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027F6A + TYA + CMP $01,S +L027F6A BEQ L027F6E + BCS L027F6F +L027F6E DEX +L027F6F PLA + PLA + TXA + BNE L027F77 + BRL L027F93 +L027F77 LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0020 + _SetCtlValueByID + STAL L02B111 + BRL L027FAC +L027F93 LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $001F + _SetCtlValueByID + STAL L02B111 +L027FAC BRL L02804E +L027FAF LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0023 + _SetCtlValueByID + STAL L02B111 + PEA $0000 + PEA $A924 + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L027FE3 + TYA + CMP $01,S +L027FE3 BEQ L027FE7 + BCS L027FE8 +L027FE7 DEX +L027FE8 PLA + PLA + TXA + BNE L027FF0 + BRL L028035 +L027FF0 LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$AF64 + LDX #$0000 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L02800C + TYA + CMP $01,S +L02800C BEQ L028010 + BCS L028011 +L028010 DEX +L028011 PLA + PLA + TXA + BNE L028019 + BRL L028035 +L028019 LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $0020 + _SetCtlValueByID + STAL L02B111 + BRL L02804E +L028035 LDA #$0001 + PHA + PEI $09 + PEI $07 + PEA $0000 + PEA $001F + _SetCtlValueByID + STAL L02B111 +L02804E PEI $09 + PEI $07 + _ShowWindow + STAL L02B111 + PEI $09 + PEI $07 + _SelectWindow + STAL L02B111 +L02806C PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + LDA #$0018 + PHA + _DoModalWindow + STAL L02B111 + PLA + PLX + STA $0B + LDA $0B + PEA $0000 + PHA + LDA #$0024 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L0280AD + DEY +L0280AD TXA + CMP $03,S + BEQ L0280B5 + LDY #$0000 +L0280B5 PLA + PLA + TYA + BNE L0280BD + BRL L02806C +L0280BD PHA + PEI $09 + PEI $07 + LDA #$0002 + PHA + _FindRadioButton + STAL L02B111 + PLA + STA $0D + PHA + PEI $09 + PEI $07 + LDA #$0003 + PHA + _FindRadioButton + STAL L02B111 + PLA + LDX #$0000 + STX $11 + STA $0F + PEI $09 + PEI $07 + _CloseWindow + STAL L02B111 + LDA $0F + ORA $11 + BEQ L028108 + BRL L028115 +L028108 LDA #$2B11 + STA $0F + LDA #$0000 + STA $11 + BRL L02814E +L028115 PEI $11 + PEI $0F + LDA #$0001 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L028127 + DEY +L028127 TXA + CMP $03,S + BEQ L02812F + LDY #$0000 +L02812F PLA + PLA + TYA + BNE L028137 + BRL L028144 +L028137 LDA #$5622 + STA $0F + LDA #$0000 + STA $11 + BRL L02814E +L028144 LDA #$AC44 + STA $0F + LDA #$0000 + STA $11 +L02814E LDA $0D + BEQ L028155 + BRL L028181 +L028155 _WaitCursor + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + PEI $11 + PEI $0F + JSL L029889 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + _InitCursor + STAL L02B111 +L028181 LDA #$0001 + STA $0D +L028186 LDA $0D + PEA $0000 + PHA + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + TAX + BNE L0281C7 + BRL L0281CA +L0281C7 BRL L0281CF +L0281CA INC $0D + BRL L028186 +L0281CF DEC $0D + LDA $0D + PEA $0000 + PHA + LDAL L030023 + PHA + LDAL L030021 + PHA + PLA + CLC + ADC #$005F + BCC L0281EB + PLX + INX + PHX +L0281EB PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + PLA + STA $17 + PLA + STA $19 + LDA $0D + PEA $0000 + PHA + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + PLA + STA $3B + PLA + STA $3D + PEI $11 + PEI $0F + LDA $01,S + STA $2F + LDA $03,S + STA $31 + PLA + STA $2B + PLA + STA $2D + LDA #$0003 + STAL L0400FA + LDA #$0003 + STAL L040100 + LDX $05 + PHX + TSX + STX $05 + PEA ^L040034 + PEA L040034 + PEA $0000 + TDC + CLC + ADC #$0049 + PHA + JSL L02AB57 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEA ^L028838 + PEA L028838 + PEA $0000 + TDC + CLC + ADC #$0049 + PHA + JSL L02AB0B + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEA $0000 + TDC + CLC + ADC #$0049 + PHA + JSL L02AB8B + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STA $47 + STZ $0B +L02829F LDA $47 + CMP $0B + BEQ L0282A7 + BCS L0282AA +L0282A7 BRL L02830E +L0282AA PEA $0000 + TDC + CLC + ADC #$0049 + PHA + LDA $0B + LDX #$0000 + TAY + BPL L0282BC + DEX +L0282BC PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + CMP #$0020 + BEQ L0282DC + BRL L028309 +L0282DC PEA $0000 + TDC + CLC + ADC #$0049 + PHA + LDA $0B + LDX #$0000 + TAY + BPL L0282EE + DEX +L0282EE PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + SEP #$20 + LDA #$2E + STA [$01] + REP #$20 +L028309 INC $0B + BRL L02829F +L02830E LDA #$004B + PHA + LDA #$0028 + PHA + LDA #$0000 + PHA + PEA ^L02883D + PEA L02883D + LDA #$0000 + PHA + TDC + CLC + ADC #$0047 + LDX #$0000 + PHX + PHA + PEA ^L0400F2 + PEA L0400F2 + _SFPutFile2 + STAL L02B111 + LDAL L0400F2 + BNE L028348 + BRL L028830 +L028348 LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + TXA + STAL L030007 + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + TXA + STAL L03000B + LDA #$0001 + LDX #$0148 + STA $00,X + LDAL L03000B + PHA + LDAL L030009 + PHA + PLA + CLC + ADC #$0002 + BCC L028394 + PLX + INX + PHX +L028394 PHA + LDA $01,S + LDX #$014A + STA $00,X + LDA $03,S + LDX #$014C + STA $00,X + LDX #$015A + PLA + STA $00,X + PLA + STA $02,X + LDA #$00C3 + LDX #$014E + STA $00,X + LDA #$0006 + LDX #$0150 + STA $00,X + LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + PEA $3FF9 + PEA $9F5B + PEA $A979 + PEA $3B31 + PEA $F000 + JSL L02BF65 + JSL L02BBB7 + TXY + LDX #$0152 + STA $00,X + STY $02,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2002 + PHA + PEA $0000 + TDC + CLC + ADC #$0148 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0004 + LDX #$0148 + STA $00,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2001 + PHA + PEA $0000 + TDC + CLC + ADC #$0148 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0004 + LDX #$0156 + STA $00,X + LDA #$0002 + LDX #$015E + STA $00,X + LDX #$0160 + STZ $00,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2010 + PHA + PEA $0000 + TDC + CLC + ADC #$0156 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L02847E + BRL L0284BD +L02847E LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L028830 +L0284BD LDA #$0004 + LDX #$0162 + STA $00,X + LDX #$0158 + LDA $00,X + LDX #$0164 + STA $00,X + LDX #$0166 + TDC + CLC + ADC #$0013 + STA $00,X + STZ $02,X + LDX #$016A + LDA #$002C + STA $00,X + LDA #$0000 + STA $02,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L028523 + BRL L028643 ; BUG was L028644 +L028523 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0001 + LDX #$0162 + STA $00,X + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L028830 + LDAL L030029 + TAX + LDAL L030027 + TXY + LDX #$0166 + STA $00,X + STY $02,X + LDA $0D + PEA $0000 + PHA + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + LDX #$016A + PLA + STA $00,X + PLA + STA $02,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0285F9 + BRL L02865F +L0285F9 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0001 + LDX #$0162 + STA $00,X + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + +L028643 LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L028830 +L02865F LDX #$0166 + TDC + CLC + ADC #$003F + STA $00,X + STZ $02,X + LDX #$016A + LDA #$0008 + STA $00,X + LDA #$0000 + STA $02,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L0286B3 + BRL L028719 +L0286B3 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0001 + LDX #$0162 + STA $00,X + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L028830 +L028719 LDX #$0166 ; write suffix + LDA #L040000 + STA $00,X + LDA #^L040000 + STA $02,X + + LDX #$016A +* LDA #$0033 +* STA $00,X + lda L030021 + and #$ff + sta $00,x + lda #256 + sec + sbc $00,x + sta $00,x + + LDA #$0000 + STA $02,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAX + BNE L02876E + BRL L0287D4 +L02876E LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0001 + LDX #$0162 + STA $00,X + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L028830 +L0287D4 LDA #$0001 + LDX #$0162 + STA $00,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0162 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDAL L030019 + AND #$00FE + STAL L030019 + LDAL L0400FE + PHA + LDAL L0400FC + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + PHA + LDAL L040102 + PHA + _DisposeHandle + STAL L02B111 +L028830 PLD + TSC + CLC + ADC #$0171 + TCS + RTL + +L028838 ASC '.WAV'00 +L02883D STR 'Save Where? ' + DB $00 + +L02884B TSC + SEC + SBC #$0192 + TCS + PHD + TCD + SEP #$20 + LDA #$2E + STA $1D + REP #$20 + TDC + CLC + ADC #$001D + LDX #$0000 + INC + BNE L028867 + INX +L028867 STA $01 + STX $03 + SEP #$20 + LDA #$73 + STA [$01] + REP #$20 + TDC + CLC + ADC #$001D + LDX #$0000 + CLC + ADC #$0002 + BCC L028882 + INX +L028882 STA $01 + STX $03 + SEP #$20 + LDA #$6E + STA [$01] + REP #$20 + TDC + CLC + ADC #$001D + LDX #$0000 + CLC + ADC #$0003 + BCC L02889D + INX +L02889D STA $01 + STX $03 + SEP #$20 + LDA #$64 + STA [$01] + REP #$20 + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0004 + BCC L0288BC + PLX + INX + PHX +L0288BC PHA + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + LDA #$4B00 + STA [$01],Y + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0008 + BCC L0288E3 + PLX + INX + PHX +L0288E3 PHA + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + LDA #$0000 + STA [$01],Y + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$000C + BCC L02890A + PLX + INX + PHX +L02890A PHA + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + LDA #$0100 + STA [$01],Y + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0010 + BCC L028931 + PLX + INX + PHX +L028931 PHA + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + LDA #$0000 + STA [$01],Y + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0014 + BCC L028958 + PLX + INX + PHX +L028958 PHA + PLA + STA $01 + PLA + STA $03 + LDA #$0000 + STA [$01] + LDY #$0002 + LDA #$0100 + STA [$01],Y + LDX $05 + PHX + TSX + STX $05 + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0018 + BCC L028985 + PLX + INX + PHX +L028985 PHA + LDA #$0033 + PHA + JSL L02B180 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + LDAL L030023 + TAX + LDAL L030021 + PHX + PHA + JSL L022034 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0008 + BCC L0289C8 + PLX + INX + PHX +L0289C8 PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + LDAL L03003B + PHA + LDAL L030039 + PHA + JSL L022034 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0010 + BCC L028A0D + PLX + INX + PHX +L028A0D PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + LDA #$0001 + LDX #$0000 + TAY + BPL L028A31 + DEX +L028A31 PHX + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + PEA ^L040000 ; write suffix + PEA L040000 + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PLA + CLC + ADC #$0018 + BCC L028A61 + PLX + INX + PHX +L028A61 PHA + JSL L02AB57 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0003 + PHA + LDX #^L0400F2 + LDA #L0400F2 + CLC + ADC #$0008 + BCC L028A7F + INX +L028A7F STA $01 + STX $03 + PLA + STA [$01] + LDA #$0003 + PHA + LDX #^L0400F2 + LDA #L0400F2 + CLC + ADC #$000E + BCC L028A97 + INX +L028A97 STA $01 + STX $03 + PLA + STA [$01] + LDX $05 + PHX + TSX + STX $05 + PEA ^L040034 + PEA L040034 + PEA $0000 + TDC + CLC + ADC #$0068 + PHA + PLA + CLC + ADC #$0002 + BCC L028ABD + PLX + INX + PHX +L028ABD PHA + JSL L02AB57 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEA ^L029233 + PEA L029233 + PEA $0000 + TDC + CLC + ADC #$0068 + PHA + PLA + CLC + ADC #$0002 + BCC L028AE9 + PLX + INX + PHX +L028AE9 PHA + JSL L02AB0B + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + PEA $0000 + TDC + CLC + ADC #$0068 + PHA + PLA + CLC + ADC #$0002 + BCC L028B0F + PLX + INX + PHX +L028B0F PHA + JSL L02AB8B + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHA + PLA + STA $68 + LDA #$0000 + STA $17 +L028B25 LDA $68 + LDX #$0001 + CMP $17 + BEQ L028B30 + BCS L028B31 +L028B30 DEX +L028B31 TXA + BNE L028B37 + BRL L028BCB + +L028B37 LDA $17 + PEA $0000 + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0068 + PHA + PLA + CLC + ADC #$0002 + BCC L028B5A + PLX + INX + PHX +L028B5A PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + LDX #$0000 + CMP #$0020 + BNE L028B7A + INX +L028B7A TXA + BNE L028B80 + BRL L028BC6 +L028B80 LDA #$002E + AND #$00FF + PHA + LDA $17 + PEA $0000 + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + PEA $0000 + TDC + CLC + ADC #$0068 + PHA + PLA + CLC + ADC #$0002 + BCC L028BAA + PLX + INX + PHX +L028BAA PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + SEP #$20 + STA [$01] + REP #$20 + AND #$00FF +L028BC6 INC $17 + BRL L028B25 +L028BCB LDA #$004B + PHA + LDA #$0028 + PHA + LDA #$0000 + PHA + PEA ^L029237 + PEA L029237 + LDA #$0000 + PHA + TDC + CLC + ADC #$0068 + LDX #$0000 + PHX + PHA + PEA ^L0400F2 + PEA L0400F2 + _SFPutFile2 + STAL L02B111 + LDAL L0400F2 + BNE L028C05 + BRL L02922B +L028C05 _WaitCursor + STAL L02B111 + LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDA #$0000 + LDX #$0000 + TAY + BPL L028C2E + DEX +L028C2E PHX + PHA + LDA $01,S + STA $19 + LDA $03,S + STA $1B + PLA + PLA +L028C3A PEI $1B + PEI $19 + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L028C53 + TYA + CMP $01,S +L028C53 BEQ L028C57 + BCS L028C58 +L028C57 DEX +L028C58 PLA + PLA + TXA + BNE L028C60 + BRL L028D62 +L028C60 LDA #$0080 + PHA + LDA [$0B] + AND #$00FF + SEC + SBC $01,S + PLX + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0B] + REP #$20 + AND #$00FF + LDA [$0B] + AND #$00FF + XBA + AND #$FF00 + STA $0F + LDA [$0B] + AND #$00FF + AND #$0080 + STA $11 + LDA $11 + BNE L028C97 + BRL L028C9F +L028C97 LDA $0F + EOR #$FFFF + INC + STA $0F +L028C9F LDA $0F + CLC + ADC #$0084 + STA $0F + LDA $0F + LDX #$0007 + JSL L02CA73 + AND #$00FF + STA $17 + LDA #$0080 + STA $15 + LDA #$0007 + STA $13 +L028CBF LDA $13 + LDX #$0001 + SEC + SBC #$0000 + BEQ L028CD1 + BVS L028CCF + EOR #$8000 +L028CCF BMI L028CD2 +L028CD1 DEX +L028CD2 TXA + BNE L028CD8 + BRL L028CF6 +L028CD8 LDA $17 + AND $15 + BNE L028CE1 + BRL L028CE4 +L028CE1 BRL L028CF6 +L028CE4 LDA $15 + LDX #$0001 + JSL L02CA73 + STA $15 + LDA $13 + DEC $13 + BRL L028CBF +L028CF6 LDA $13 + STA $17 + LDA $0F + PHA + LDA $17 + CLC + ADC #$0003 + TAX + PLA + JSL L02CB94 + AND #$000F + STA $13 + LDA $17 + ASL + ASL + ASL + ASL + ORA $11 + ORA $13 + EOR #$FFFF + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0B] + REP #$20 + AND #$00FF + LDA [$0B] + AND #$00FF + TAX + BEQ L028D34 + LDA #$0001 +L028D34 EOR #$0001 + BNE L028D3C + BRL L028D4D +L028D3C LDA #$0002 + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0B] + REP #$20 + AND #$00FF +L028D4D INC $0B + BNE L028D53 + INC $0D +L028D53 PEI $1B + PEI $19 + INC $19 + BNE L028D5D + INC $1B +L028D5D PLA + PLA + BRL L028C3A +L028D62 _InitCursor + STAL L02B111 + LDAL L0400FE + TAX + LDAL L0400FC + STAL L030005 + PHA + TXA + STAL L030007 + PLA + LDAL L030007 + TAX + LDAL L030005 + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STAL L030009 + PHA + TXA + STAL L03000B + PLA + LDA #$0001 + PHA + PLA + LDX #$0169 + STA $00,X + LDAL L03000B + PHA + LDAL L030009 + PHA + PLA + CLC + ADC #$0002 + BCC L028DBF + PLX + INX + PHX +L028DBF PHA + PEA $0000 + TDC + CLC + ADC #$0169 + PHA + PLA + CLC + ADC #$0002 + BCC L028DD3 + PLX + INX + PHX +L028DD3 PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PEA $0000 + TDC + CLC + ADC #$0177 + PHA + PLA + CLC + ADC #$0004 + BCC L028DF8 + PLX + INX + PHX +L028DF8 PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + LDA #$00C3 + PHA + TDC + CLC + ADC #$0169 + LDX #$0000 + CLC + ADC #$0006 + BCC L028E1F + INX +L028E1F STA $01 + STX $03 + PLA + STA [$01] + LDA #$0006 + PHA + TDC + CLC + ADC #$0169 + LDX #$0000 + CLC + ADC #$0008 + BCC L028E39 + INX +L028E39 STA $01 + STX $03 + PLA + STA [$01] + LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + PEA $3FF9 + PEA $9F5B + PEA $A979 + PEA $3B31 + PEA $F000 + JSL L02BF65 + JSL L02BBB7 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0169 + PHA + PLA + CLC + ADC #$000A + BCC L028E79 + PLX + INX + PHX +L028E79 PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + LDA #$2002 + PHA + PEA $0000 + TDC + CLC + ADC #$0169 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0004 + PHA + PLA + LDX #$0169 + STA $00,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2001 + PHA + PEA $0000 + TDC + CLC + ADC #$0169 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0004 + PHA + PLA + LDX #$0177 + STA $00,X + LDA #$0002 + PHA + TDC + CLC + ADC #$0177 + LDX #$0000 + CLC + ADC #$0008 + BCC L028EF2 + INX +L028EF2 STA $01 + STX $03 + PLA + STA [$01] + LDA #$0000 + PHA + TDC + CLC + ADC #$0177 + LDX #$0000 + CLC + ADC #$000A + BCC L028F0C + INX +L028F0C STA $01 + STX $03 + PLA + STA [$01] + LDX $05 + PHX + TSX + STX $05 + LDA #$2010 + PHA + PEA $0000 + TDC + CLC + ADC #$0177 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L028F4E + BRL L028F8F +L028F4E LDAL L0400FE + TAX + LDAL L0400FC + PHX + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + TAX + LDAL L040102 + PHX + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L02922B +L028F8F LDA #$0004 + PHA + PLA + LDX #$0183 + STA $00,X + LDX #$0179 + LDA $00,X + PHA + TDC + CLC + ADC #$0183 + LDX #$0000 + CLC + ADC #$0002 + BCC L028FAE + INX +L028FAE STA $01 + STX $03 + PLA + STA [$01] + PEA $0000 + TDC + CLC + ADC #$001D + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + PLA + CLC + ADC #$0004 + BCC L028FD1 + PLX + INX + PHX +L028FD1 PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + PLA + CLC + ADC #$0008 + BCC L028FF8 + PLX + INX + PHX +L028FF8 PHA + PLA + STA $01 + PLA + STA $03 + LDA #$004B + STA [$01] + LDY #$0002 + LDA #$0000 + STA [$01],Y + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L029047 + BRL L0290B1 +L029047 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0001 + PHA + PLA + LDX #$0183 + STA $00,X + LDAL L0400FE + TAX + LDAL L0400FC + PHX + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + TAX + LDAL L040102 + PHX + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L02922B +L0290B1 LDAL L030029 + PHA + LDAL L030027 + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + PLA + CLC + ADC #$0004 + BCC L0290CE + PLX + INX + PHX +L0290CE PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + LDAL L030023 + TAX + LDAL L030021 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + PLA + CLC + ADC #$0008 + BCC L029100 + PLX + INX + PHX +L029100 PHA + PLA + STA $01 + PLA + STA $03 + LDA $01,S + STA [$01] + LDY #$0002 + LDA $03,S + STA [$01],Y + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + LDA #$2013 + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L02914F + BRL L0291B9 +L02914F LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0001 + PHA + PLA + LDX #$0183 + STA $00,X + LDAL L0400FE + TAX + LDAL L0400FC + PHX + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + TAX + LDAL L040102 + PHX + PHA + _DisposeHandle + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L02922B +L0291B9 LDA #$0001 + PHA + PLA + LDX #$0183 + STA $00,X + LDX $05 + PHX + TSX + STX $05 + LDA #$2014 + PHA + PEA $0000 + TDC + CLC + ADC #$0183 + PHA + JSL L02A4D6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDAL L030019 + AND #$00FE + STAL L030019 + LDX $05 + PHX + TSX + STX $05 + JSL L020FED + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDAL L0400FE + TAX + LDAL L0400FC + PHX + PHA + _DisposeHandle + STAL L02B111 + LDAL L040104 + TAX + LDAL L040102 + PHX + PHA + _DisposeHandle + STAL L02B111 +L02922B PLD + TSC + CLC + ADC #$0192 + TCS + RTL + +L029233 ASC '.AU'00 +L029237 STR 'Save Where? ' + DB $00 + +L029245 TSC + SEC + SBC #$0059 + TCS + PHD + TCD + PHA + PHA + LDA #$8006 + PHA + PEA $0000 + PEA $012D + _LoadResource + STAL L02B111 + PLA + PLX + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + PHA + LDA [$01] + PHA + LDA $01,S + STA $07 + LDA $03,S + STA $09 + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + LDA #$000E + LDX #$0000 + TAY + BPL L02928D + DEX +L02928D PHX + PHA + PEA ^L02987A + PEA L02987A + LDA #$0001 + LDX #$0000 + TAY + BPL L02929F + DEX +L02929F PHX + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + CLC + PLA + ADC $07 + PHA + LDA $03,S + ADC $09 + STA $03,S + JSL L02ABAF + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + TAY + BNE L0292C8 + BRL L0292E5 +L0292C8 LDA #$1E06 + STAL L03002B + LDX $05 + PHX + TSX + STX $05 + LDA #$0005 + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L0292E5 LDAL L03003B + PHA + LDAL L030039 + PHA + LDA #$0032 + LDX #$0000 + TAY + BPL L0292F9 + DEX +L0292F9 JSL L02B113 + LDA $01,S + STA $1C + LDA $03,S + STA $1E + PLA + PLA + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FF2 + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + LDA $01,S + STA $14 + LDA $03,S + STA $16 + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L029360 + BRL L029376 +L029360 LDX $05 + PHX + TSX + STX $05 + LDA #$01BC + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L029376 PEI $16 + PEI $14 + _ShowWindow + STAL L02B111 + PEI $16 + PEI $14 + _SelectWindow + STAL L02B111 +L029394 PHA + PHA + PEA $0000 + TDC + CLC + ADC #$002C + PHA + PEA $0000 + PEA $0000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + LDA #$0018 + PHA + _DoModalWindow + STAL L02B111 + LDA $01,S + STA $18 + LDA $03,S + STA $1A + PLA + PLA + LDA #$002F + LDX #$0000 + TAY + BPL L0293D4 + DEX +L0293D4 CMP $18 + BNE L0293DA + CPX $1A +L0293DA BEQ L0293E1 + LDA #$0001 + BRA L0293E4 +L0293E1 LDA #$0000 +L0293E4 BEQ L0293E9 + BRL L029394 +L0293E9 LDAL L030019 + AND #$0040 + BNE L0293F5 + BRL L029407 +L0293F5 PEI $16 + PEI $14 + _CloseWindow + STAL L02B111 + BRL L029872 +L029407 LDA $3A + AND #$0100 + BNE L029411 + BRL L0295CE +L029411 _WaitCursor + STAL L02B111 + PHA + PHA + PEI $16 + PEI $14 + PEA $0000 + PEA $0030 + _GetCtlHandleFromID + STAL L02B111 + _ShowControl + STAL L02B111 + LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $07 + LDA $03,S + STA $09 + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDA #$0000 + LDX #$0000 + TAY + BPL L029464 + DEX +L029464 PHX + PHA + LDA $01,S + STA $18 + LDA $03,S + STA $1A + LDA $01,S + STA $20 + LDA $03,S + STA $22 + PLA + PLX + AND #$00FF + SEP #$20 + STA $13 + REP #$20 +L029481 PEI $1A + PEI $18 + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L02949A + TYA + CMP $01,S +L02949A BEQ L02949E + BCS L02949F +L02949E DEX +L02949F PLA + PLA + TXA + BNE L0294A7 + BRL L0295C0 +L0294A7 LDA $13 + AND #$00FF + BNE L0294B1 + BRL L029502 +L0294B1 LDA [$0F] + AND #$00FF + PHA + PLA + SEP #$20 + STA [$07] + REP #$20 + AND #$00FF + INC $0F + BNE L0294C7 + INC $11 +L0294C7 LDX $1E + LDA $1C + CMP $20 + BNE L0294D1 + CPX $22 +L0294D1 BNE L0294D8 + LDA #$0001 + BRA L0294DB +L0294D8 LDA #$0000 +L0294DB BNE L0294E0 + BRL L0294FF +L0294E0 LDA #$0000 + LDX #$0000 + TAY + BPL L0294EA + DEX +L0294EA PHX + PHA + LDA $01,S + STA $20 + LDA $03,S + STA $22 + PLA + PLX + AND #$00FF + SEP #$20 + STA $13 + REP #$20 +L0294FF BRL L02959F +L029502 LDA [$0B] + AND #$00FF + PHA + PLA + SEP #$20 + STA [$07] + REP #$20 + AND #$00FF + LDA #$0002 + LDX #$0000 + TAY + BPL L02951C + DEX +L02951C PHX + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + CLC + PLA + ADC $0B + PHA + LDA $03,S + ADC $0D + STA $03,S + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDX $1E + LDA $1C + CMP $20 + BNE L029547 + CPX $22 +L029547 BNE L02954E + LDA #$0001 + BRA L029551 +L02954E LDA #$0000 +L029551 BNE L029556 + BRL L02959F +L029556 LDA #$0001 + AND #$00FF + SEP #$20 + STA $13 + REP #$20 + LDA #$0000 + LDX #$0000 + TAY + BPL L02956C + DEX +L02956C PHX + PHA + LDA $01,S + STA $20 + LDA $03,S + STA $22 + PLA + PLA + PEI $1E + PEI $1C + LDA #$0001 + LDX #$0000 + JSL L02CB25 + PEI $09 + PEI $07 + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + LDA $01,S + STA $0F + LDA $03,S + STA $11 + PLA + PLA +L02959F INC $07 + BNE L0295A5 + INC $09 +L0295A5 PEI $1A + PEI $18 + INC $18 + BNE L0295AF + INC $1A +L0295AF PLA + PLA + PEI $22 + PEI $20 + INC $20 + BNE L0295BB + INC $22 +L0295BB PLA + PLA + BRL L029481 +L0295C0 LDAL L030019 + ORA #$0040 + STAL L030019 + BRL L029858 +L0295CE LDA $3A + AND #$0800 + BNE L0295D8 + BRL L029858 +L0295D8 _WaitCursor + STAL L02B111 + PHA + PHA + PEI $16 + PEI $14 + PEA $0000 + PEA $0030 + _GetCtlHandleFromID + STAL L02B111 + _ShowControl + STAL L02B111 + PHA + PHA + PEI $1E + PEI $1C + LDA #$0002 + LDX #$0000 + TAY + BPL L029615 + DEX +L029615 JSL L02B113 + CLC + PLA + ADC #$0001 + PHA + LDA $03,S + ADC #$0000 + STA $03,S + LDAL L030035 + PHA + LDA #$C000 + PHA + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + LDA $01,S + STA $28 + LDA $03,S + STA $2A + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L029666 + BRL L029695 +L029666 LDAL L03002B + LDX #$0000 + CMP #$0201 + BNE L029673 + INX +L029673 TXA + BNE L029679 + BRL L029680 +L029679 LDA #$0086 + STAL L03002B +L029680 LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L029872 +L029695 LDY #$0002 + LDA [$28],Y + PHA + LDA [$28] + PHA + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $07 + LDA $03,S + STA $09 + LDA $01,S + STA $0F + LDA $03,S + STA $11 + PLA + PLA + PEI $1E + PEI $1C + LDA #$0001 + LDX #$0000 + TAY + BPL L0296D2 + DEX +L0296D2 PHX + PHA + JSL L02B0CB + LDA $01,S + STA $24 + LDA $03,S + STA $26 + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + PEI $26 + PEI $24 + PEI $09 + PEI $07 + PEI $0D + PEI $0B + JSL L02A6DB + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0000 + LDX #$0000 + TAY + BPL L02970A + DEX +L02970A PHX + PHA + LDA $01,S + STA $20 + LDA $03,S + STA $22 + LDA $01,S + STA $18 + LDA $03,S + STA $1A + PLA + PLX + AND #$00FF + SEP #$20 + STA $13 + REP #$20 +L029727 PEI $1A + PEI $18 + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L029740 + TYA + CMP $01,S +L029740 BEQ L029744 + BCS L029745 +L029744 DEX +L029745 PLA + PLA + TXA + BNE L02974D + BRL L02983E +L02974D LDX $26 + LDA $24 + CMP $20 + BNE L029757 + CPX $22 +L029757 BNE L02975E + LDA #$0001 + BRA L029761 +L02975E LDA #$0000 +L029761 BNE L029766 + BRL L0297D0 +L029766 PEI $1E + PEI $1C + LDA #$0001 + LDX #$0000 + JSL L02CB25 + CLC + PLA + ADC $0F + PHA + LDA $03,S + ADC $11 + STA $03,S + LDA $01,S + STA $0F + LDA $03,S + STA $11 + PLA + PLA + LDY #$0002 + LDA [$28],Y + PHA + LDA [$28] + PHA + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + PEI $26 + PEI $24 + PEI $11 + PEI $0F + PEI $0D + PEI $0B + JSL L02A6DB + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDA #$0000 + LDX #$0000 + TAY + BPL L0297C4 + DEX +L0297C4 PHX + PHA + LDA $01,S + STA $20 + LDA $03,S + STA $22 + PLA + PLA +L0297D0 LDA [$0B] + AND #$00FF + PHA + PLA + SEP #$20 + STA [$07] + REP #$20 + AND #$00FF + INC $07 + BNE L0297E6 + INC $09 +L0297E6 INC $18 + BNE L0297EC + INC $1A +L0297EC LDAL L030023 + TAX + LDAL L030021 + CMP $18 + BNE L0297FB + CPX $1A +L0297FB BNE L029802 + LDA #$0001 + BRA L029805 +L029802 LDA #$0000 +L029805 BNE L02980A + BRL L02980D +L02980A BRL L02983E +L02980D LDA [$0B] + AND #$00FF + PHA + PLA + SEP #$20 + STA [$07] + REP #$20 + AND #$00FF + INC $07 + BNE L029823 + INC $09 +L029823 INC $0B + BNE L029829 + INC $0D +L029829 INC $18 + BNE L02982F + INC $1A +L02982F PEI $22 + PEI $20 + INC $20 + BNE L029839 + INC $22 +L029839 PLA + PLA + BRL L029727 +L02983E PEI $2A + PEI $28 + _DisposeHandle + STAL L02B111 + LDAL L030019 + ORA #$0040 + STAL L030019 +L029858 PEI $16 + PEI $14 + _CloseWindow + STAL L02B111 + _InitCursor + STAL L02B111 +L029872 PLD + TSC + CLC + ADC #$0059 + TCS + RTL + +L02987A ASC 'Buy IBM Aptiva'00 + +L029889 TSC + SEC + SBC #$004C + TCS + PHD + TCD + LDX $52 + LDA $50 + JSL L02BB54 + LDAL L03003B + TAX + LDAL L030039 + JSL L02BB54 + JSL L02BC4A + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + PEA $3FFF + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + JSL L02BF05 + BNE L0298E2 + BRL L029E35 +L0298E2 PHA + PHA + LDAL L030023 + TAX + LDAL L030021 + JSL L02BB54 + PEA $0000 + TDC + CLC + ADC #$002D + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0104 + _SANEFP816 + LDA #$0014 + LDX #$0000 + JSL L02BB54 + JSL L02BB05 + JSL L02BBB7 + PHX + PHA + LDAL L030035 + PHA + LDA #$C000 + PHA + PEA $0000 + PEA $0000 + _NewHandle + STAL L02B111 + LDA $01,S + STA $07 + LDA $03,S + STA $09 + PLA + PLA + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L029961 + BRL L029990 +L029961 LDAL L03002B + LDX #$0000 + CMP #$0201 + BNE L02996E + INX +L02996E TXA + BNE L029974 + BRL L02997B +L029974 LDA #$0086 + STAL L03002B +L02997B LDX $05 + PHX + TSX + STX $05 + JSL L0250E2 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + BRL L02A307 +L029990 LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + PEA $0000 + PEA $000A + PEA $0000 + PEA $0001 + JSL L02C5AD + LDY #$0002 + LDA [$07],Y + PHA + LDA [$07] + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDA $01,S + STA $0F + LDA $03,S + STA $11 + PLA + PLA + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS + LDA #$0000 + LDX #$0000 + TAY + BPL L0299FC + DEX +L0299FC PHX + PHA + LDA $01,S + STA $13 + LDA $03,S + STA $15 + LDA $01,S + STA $17 + LDA $03,S + STA $19 + LDA $01,S + STA $1F + LDA $03,S + STA $21 + PLA + PLA +L029A18 PEI $15 + PEI $13 + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L029A31 + TYA + CMP $01,S +L029A31 BEQ L029A35 + BCS L029A36 +L029A35 DEX +L029A36 PLA + PLA + TXA + BNE L029A3E + BRL L029B82 +L029A3E PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF38 + LDX $21 + LDA $1F + JSL L02BB54 + JSL L02BFF6 + JSL L02BBEC + STA $23 + LDA [$0B] + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0F] + REP #$20 + AND #$00FF + INC $17 + BNE L029A73 + INC $19 +L029A73 INC $0F + BNE L029A79 + INC $11 +L029A79 LDA [$0B] + AND #$00FF + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L029A89 + DEX +L029A89 PHX + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + CLC + PLA + ADC $0B + PHA + LDA $03,S + ADC $0D + STA $03,S + PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + SEC + SBC $01,S + PLX + STA $27 + LDA #$0001 + STA $25 +L029AB6 LDA $23 + LDX #$0001 + CMP $25 + BEQ L029AC1 + BCS L029AC2 +L029AC1 DEX +L029AC2 TXA + BNE L029AC8 + BRL L029B14 +L029AC8 LDA [$0B] + AND #$00FF + PHA + LDA $27 + LDX $23 + JSL L02CA8E + LDX $25 + JSL L02CABC + CLC + ADC $01,S + PLX + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0F] + REP #$20 + AND #$00FF + INC $25 + PEI $11 + PEI $0F + INC $0F + BNE L029AFA + INC $11 +L029AFA PLA + PLX + STA $01 + STX $03 + LDA [$01] + AND #$00FF + PEI $19 + PEI $17 + INC $17 + BNE L029B0F + INC $19 +L029B0F PLA + PLA + BRL L029AB6 +L029B14 PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF38 + JSL L02BBB7 + PHX + PHA + LDA $01,S + STA $1F + LDA $03,S + STA $21 + PLA + PLA + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0100 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS + INC $13 + BNE L029B73 + INC $15 +L029B73 PEI $0D + PEI $0B + INC $0B + BNE L029B7D + INC $0D +L029B7D PLA + PLA + BRL L029A18 +L029B82 LDX $19 + LDA $17 + STAL L030021 + PHA + TXA + STAL L030023 + PLA + LDX $52 + LDA $50 + STAL L030039 + PHA + TXA + STAL L03003B + PLA + LDA L030039 + ORA L03003B + BNE L029BAD + LDA #$0001 + BRA L029BB0 +L029BAD LDA #$0000 +L029BB0 BNE L029BB5 + BRL L029BCC +L029BB5 CLC + LDAL L030039 + ADC #$0001 + STAL L030039 + BCC L029BCC + LDAL L03003B + INC + STAL L03003B +L029BCC PEA $0000 + PEA $FFFA + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L029BE7 + TYA + CMP $01,S +L029BE7 BEQ L029BEB + BCS L029BEC +L029BEB DEX +L029BEC PLA + PLA + TXA + BNE L029BF4 + BRL L029C08 +L029BF4 PEA $0000 + PEA $FFFA + LDA $01,S + STAL L030039 + LDA $03,S + STAL L03003B + PLA + PLA +L029C08 PEI $09 + PEI $07 + _HLock + STAL L02B111 + LDY #$0002 + LDA [$07],Y + PHA + LDA [$07] + PHA + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDA #$000A + LDX #$0000 + TAY + BPL L029C34 + DEX +L029C34 PHX + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + CLC + PLA + ADC $0B + PHA + LDA $03,S + ADC $0D + STA $03,S + LDA $01,S + STAL L030027 + LDA $03,S + STAL L030029 + PLA + PLA + LDAL L030023 + PHA + LDAL L030021 + PHA + LDA #$0008 + LDX #$0000 + TAY + BPL L029C6D + DEX +L029C6D PHX + PHA + JSL L02C248 + LDA #$FFFF + PEA $0000 + PHA + PLA + AND $03,S + STA $03,S + PLA + AND $03,S + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L029C94 + LDA #$0001 +L029C94 EOR #$0001 + BNE L029C9C + BRL L029CA3 +L029C9C LDA #$0001 + STAL L030025 +L029CA3 LDA #$0000 + AND #$00FF + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L029CB4 + DEX +L029CB4 PHX + PHA + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + PEA $0000 + PEA $0001 + JSL L02C5AD + LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + SEP #$20 + STA [$01] + REP #$20 + AND #$00FF + LDX $05 + PHX + TSX + STX $05 + JSL L026CEE + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDY #$0002 + LDA [$07],Y + PHA + LDA [$07] + PHA + LDA $01,S + STA $29 + LDA $03,S + STA $2B + PLA + PLA + LDA #$0000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L029D2D + DEX +L029D2D PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L030025 + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L029D5C + DEX +L029D5C PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L030017 + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L029D8B + DEX +L029D8B PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L03000D + PHA + LDA #$0003 + LDX #$0000 + TAY + BPL L029DBA + DEX +L029DBA PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L03003B + TAX + LDAL L030039 + PHA + LDA #$0004 + LDX #$0000 + TAY + BPL L029DEE + DEX +L029DEE PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L03002F + PHA + LDAL L03002D + PHA + _DisposeHandle + STAL L02B111 + LDX $09 + LDA $07 + STAL L03002D + PHA + TXA + STAL L03002F + PLA + BRL L02A266 +L029E35 LDAL L030029 + PHA + LDAL L030027 + PHA + LDA $01,S + STA $0F + LDA $03,S + STA $11 + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS + PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + JSL L02BBB7 + PHX + PHA + LDA $01,S + STA $1B + LDA $03,S + STA $1D + PLA + PLA + LDA #$0000 + LDX #$0000 + TAY + BPL L029E98 + DEX +L029E98 PHX + PHA + LDA $01,S + STA $17 + LDA $03,S + STA $19 + LDA $01,S + STA $13 + LDA $03,S + STA $15 + LDA $01,S + STA $1F + LDA $03,S + STA $21 + PLA + PLX + JSL L02BB54 + PEA $0000 + TDC + CLC + ADC #$003D + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS +L029ECB PEI $15 + PEI $13 + LDAL L030023 + TAX + LDAL L030021 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L029EE4 + TYA + CMP $01,S +L029EE4 BEQ L029EE8 + BCS L029EE9 +L029EE8 DEX +L029EE9 PLA + PLA + TXA + BNE L029EF1 + BRL L029FD6 +L029EF1 PEI $1D + PEI $1B + SEC + PLA + SBC $1F + PHA + LDA $03,S + SBC $21 + STA $03,S + LDA #$0000 + LDX #$0000 + LDY #$0001 + CMP $01,S + BEQ L029F0E + DEY +L029F0E TXA + CMP $03,S + BEQ L029F16 + LDY #$0000 +L029F16 PLA + PLA + TYA + BEQ L029F1E + BRL L029F68 +L029F1E LDA [$0B] + AND #$00FF + PHA + PLA + SEP #$20 + STA [$0F] + REP #$20 + AND #$00FF + INC $17 + BNE L029F34 + INC $19 +L029F34 INC $0F + BNE L029F3A + INC $11 +L029F3A PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$003D + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS + PEI $1D + PEI $1B + LDA $01,S + STA $1F + LDA $03,S + STA $21 + PLA + PLA +L029F68 PEA $0000 + TDC + CLC + ADC #$002D + PHA + JSL L02BF38 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + PEA $0000 + TSC + CLC + ADC #$0007 + PHA + PEA $0100 + _SANEFP816 + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BC1E + TSC + CLC + ADC #$000A + TCS + PEA $0000 + TDC + CLC + ADC #$0035 + PHA + JSL L02BF38 + JSL L02BBB7 + PHX + PHA + LDA $01,S + STA $1B + LDA $03,S + STA $1D + PLA + PLA + INC $13 + BNE L029FC7 + INC $15 +L029FC7 PEI $0D + PEI $0B + INC $0B + BNE L029FD1 + INC $0D +L029FD1 PLA + PLA + BRL L029ECB +L029FD6 LDX $19 + LDA $17 + STAL L030021 + PHA + TXA + STAL L030023 + PLA + LDX $52 + LDA $50 + STAL L030039 + PHA + TXA + STAL L03003B + PLA + LDA L030039 + ORA L03003B + BNE L02A001 + LDA #$0001 + BRA L02A004 +L02A001 LDA #$0000 +L02A004 BNE L02A009 + BRL L02A020 +L02A009 CLC + LDAL L030039 + ADC #$0001 + STAL L030039 + BCC L02A020 + LDAL L03003B + INC + STAL L03003B +L02A020 PEA $0000 + PEA $FFFA + LDAL L03003B + TAX + LDAL L030039 + TAY + TXA + LDX #$0001 + CMP $03,S + BNE L02A03B + TYA + CMP $01,S +L02A03B BEQ L02A03F + BCS L02A040 +L02A03F DEX +L02A040 PLA + PLA + TXA + BNE L02A048 + BRL L02A05C +L02A048 PEA $0000 + PEA $FFFA + LDA $01,S + STAL L030039 + LDA $03,S + STAL L03003B + PLA + PLA +L02A05C LDAL L030023 + PHA + LDAL L030021 + PHA + LDA #$0008 + LDX #$0000 + TAY + BPL L02A070 + DEX +L02A070 PHX + PHA + JSL L02C248 + LDA #$FFFF + PEA $0000 + PHA + PLA + AND $03,S + STA $03,S + PLA + AND $03,S + STA $03,S + PLA + PLX + STAL L030025 + LDAL L030025 + TAX + BEQ L02A097 + LDA #$0001 +L02A097 EOR #$0001 + BNE L02A09F + BRL L02A0A6 +L02A09F LDA #$0001 + STAL L030025 +L02A0A6 LDA #$0000 + AND #$00FF + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L02A0B7 + DEX +L02A0B7 PHX + PHA + LDAL L030023 + PHA + LDAL L030021 + PHA + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + PEA $0000 + PEA $0001 + JSL L02C5AD + LDAL L030029 + PHA + LDAL L030027 + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + SEP #$20 + STA [$01] + REP #$20 + AND #$00FF + LDX $05 + PHX + TSX + STX $05 + JSL L026CEE + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + PHA + LDA [$01] + PHA + LDA $01,S + STA $29 + LDA $03,S + STA $2B + PLA + PLA + LDAL L030025 + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L02A13E + DEX +L02A13E PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L030017 + PHA + LDA #$0002 + LDX #$0000 + TAY + BPL L02A16D + DEX +L02A16D PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L03003B + TAX + LDAL L030039 + PHA + LDA #$0004 + LDX #$0000 + TAY + BPL L02A1A1 + DEX +L02A1A1 PHX + PHA + PEA $0000 + PEA $0002 + JSL L02C5AD + CLC + PLA + ADC $29 + PHA + LDA $03,S + ADC $2B + STA $03,S + PLA + PLX + STA $01 + STX $03 + PLA + STA [$01] + LDAL L03002F + PHA + LDAL L03002D + PHA + _HUnlock + STAL L02B111 + LDAL L030023 + PHA + LDAL L030021 + PHA + CLC + PLA + ADC #$000A + PHA + LDA $03,S + ADC #$0000 + STA $03,S + LDAL L03002F + PHA + LDAL L03002D + PHA + _SetHandleSize + STAL L02B111 + LDAL L03002F + PHA + LDAL L03002D + PHA + _HLock + STAL L02B111 + LDAL L03002F + TAX + LDAL L03002D + STA $01 + STX $03 + LDY #$0002 + LDA [$01],Y + PHA + LDA [$01] + PHA + LDA $01,S + STA $0B + LDA $03,S + STA $0D + PLA + PLA + LDA #$000A + LDX #$0000 + TAY + BPL L02A241 + DEX +L02A241 PHX + PHA + PEA $0000 + PEA $0001 + JSL L02C5AD + CLC + PLA + ADC $0B + PHA + LDA $03,S + ADC $0D + STA $03,S + LDA $01,S + STAL L030027 + LDA $03,S + STAL L030029 + PLA + PLA +L02A266 LDAL L030019 + AND #$0004 + BNE L02A272 + BRL L02A307 +L02A272 LDX $05 + PHX + TSX + STX $05 + LDAL L03003B + PHA + LDAL L030039 + PHA + PEA ^L02A317 + PEA L02A317 + PEA $0000 + TDC + CLC + ADC #$0045 + PHA + JSL L02AA15 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + LDAL L030003 + PHA + LDAL L030001 + PHA + PEA $0000 + PEA $0009 + LDX $05 + PHX + TSX + STX $05 + PEA $0000 + TDC + CLC + ADC #$0045 + PHA + JSL L02A628 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + PHX + PHA + _SetLETextByID + STAL L02B111 + LDX $05 + PHX + TSX + STX $05 + JSL L02AE36 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA + STAL L03002B + TAY + BNE L02A2F1 + BRL L02A307 +L02A2F1 LDX $05 + PHX + TSX + STX $05 + LDA #$014C + PHA + JSL L024DB6 + TAY + LDA $05 + TCS + PLA + STA $05 + TYA +L02A307 LDA $4E + STA $52 + LDA $4D + STA $51 + PLD + TSC + CLC + ADC #$0050 + TCS + RTL + +L02A317 AND $6C + STZ $00 +L02A31B TSC + SEC + SBC #$0016 + TCS + PHD + TCD + PHA + PHA + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L024766 + PEA L024766 + PEA $0000 + PEA $0000 + LDA #$0002 + PHA + PEA $0000 + PEA $0FF3 + LDA #$800E + PHA + _NewWindow2 + STAL L02B111 + PLA + STA $03 + PLA + STA $05 + LDX $01 + PHX + TSX + STX $01 + JSL L02AE36 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STAL L03002B + TAX + BNE L02A378 + BRL L02A38E +L02A378 LDX $01 + PHX + TSX + STX $01 + LDA #$0320 + PHA + JSL L024DB6 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L02A38E PEI $05 + PEI $03 + _ShowWindow + STAL L02B111 + PEI $05 + PEI $03 + _SelectWindow + STAL L02B111 +L02A3AC PHA + PHA + PEA ^L04008A + PEA L04008A + PEA $0000 + PEA $0000 + PEA $8000 + PEA $0000 + PEA $0000 + PEA $0000 + LDA #$0018 + PHA + _DoModalWindow + STAL L02B111 + PLA + PLX + STA $07 + LDA $07 + LDX #$0000 + CMP #$002D + BEQ L02A3E4 + INX +L02A3E4 TXA + CMP #$0000 + BNE L02A3ED + BRL L02A401 +L02A3ED LDA $07 + LDX #$0000 + CMP #$002C + BEQ L02A3F8 + INX +L02A3F8 TXA + CMP #$0000 + BEQ L02A401 + LDA #$0001 +L02A401 TAX + BEQ L02A407 + BRL L02A3AC +L02A407 LDA $07 + CMP #$002D + BEQ L02A411 + BRL L02A423 +L02A411 PEI $05 + PEI $03 + _CloseWindow + STAL L02B111 + BRL L02A4CE +L02A423 _WaitCursor + STAL L02B111 + PEI $05 + PEI $03 + PEA $0000 + PEA $002B + PEA $0000 + TDC + CLC + ADC #$000F + PHA + _GetLETextByID + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + PEA $0000 + TDC + CLC + ADC #$0010 + PHA + JSL L02A60A + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + STX $0D + STA $0B + PEI $05 + PEI $03 + _CloseWindow + STAL L02B111 + LDAL L030019 + AND #$0008 + BNE L02A486 + BRL L02A4AD +L02A486 LDAL L030003 + PHA + LDAL L030001 + PHA + _BringToFront + STAL L02B111 + LDX $01 + PHX + TSX + STX $01 + JSL L024766 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA +L02A4AD LDX $01 + PHX + TSX + STX $01 + PEI $0D + PEI $0B + JSL L029889 + TAY + LDA $01 + TCS + PLA + STA $01 + TYA + _InitCursor + STAL L02B111 +L02A4CE PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L02A4D6 TSC + PHD + TCD + LDA $08 + STAL L02A4EF + LDA $04 + STAL L02A4F1 + LDA $06 + STAL L02A4F1+2 + JSL GSOS +L02A4EF DW $0000 +L02A4F1 ADRL $00000000 + STAL L02B111 + LDA $02 + STA $08 + LDA $01 + STA $07 + PLD + TSC + CLC + ADC #$0006 + TCS + RTL + + DB $00 +L02A50A DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $28 + DB $28 + DB $28 + DB $28 + DB $28 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $08 + DB $B0 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $C1 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $C2 + DB $C2 + DB $C2 + DB $C2 + DB $C2 + DB $C2 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $82 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $90 + DB $C4 + DB $C4 + DB $C4 + DB $C4 + DB $C4 + DB $C4 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $84 + DB $90 + DB $90 + DB $90 + DB $90 + DB $08 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02A60A PEA $000A + PEA $0000 + PEA $0000 + LDA $0C,S + PHA + LDA $0C,S + PHA + JSL L02AC65 + TAY + LDA $02,S + STA $06,S + PLA + STA $03,S + PLA + TYA + RTL + +L02A628 TSC + SEC + SBC #$0004 + TCS + PHD + TCD + PHB + PHK + PLB + SEP #$30 + LDY #$00 +L02A637 LDA [$08],Y + STA L02B3D1,Y + BEQ L02A642 + INY + BNE L02A637 + DEY +L02A642 STY L02B3D0 + REP #$30 + LDA #L02B3D0 + STA $01 + LDA #^L02B3D0 + STA $03 + PLB + LDX $03 + LDY $01 + LDA $06 + STA $0A + LDA $05 + STA $09 + PLD + TSC + CLC + ADC #$0008 + TCS + TYA + RTL + +L02A667 JSR L02B032 + LDA $04,S + JMP L02C95C + +L02A66F LDAL L02AA93 + CMP #L02AA97 + BNE L02A6CC + LDAL L02AA93+2 + CMP #^L02AA97 + BNE L02A6CC + LDAL L02AAB3 + CMP #$FFFF + BNE L02A6CC + LDAL L02AAAF + AND #$0080 + BNE L02A6AA + LDAL L02AAAF + AND #$00FF + TAX + LDAL L02AAAF + XBA + ORA #$FF00 + STAL L02AAAF + TXA + BRA L02A6C3 +L02A6AA JSL L02C0BB + TAX + BNE L02A6C3 + LDA #$0080 + ORAL L02AAB1 + STAL L02AAB1 + JSL L02C0BB + LDA #$FFFF +L02A6C3 CMP #$000D + BNE L02A6CB + LDA #$000A +L02A6CB RTL + +L02A6CC LDAL L02AA93+2 + PHA + LDAL L02AA93 + PHA + JSL L02B4D2 + RTL + +L02A6DB TSC + PHD + TCD + LDA $06 + PHA + LDA $04 + PHA + LDA $0C + LSR + BCC L02A6FF + SEP #$20 + LDA [$08] + STA [$04] + REP #$20 + DEC $0C + INC $04 + BNE L02A6F9 + INC $06 +L02A6F9 INC $08 + BNE L02A6FF + INC $0A +L02A6FF LDX $0E + BEQ L02A715 + LDY #$0000 +L02A706 LDA [$08],Y + STA [$04],Y + DEY + DEY + BNE L02A706 + INC $0A + INC $06 + DEX + BNE L02A706 +L02A715 LDY $0C + BEQ L02A729 + DEY + DEY + BEQ L02A725 +L02A71D LDA [$08],Y + STA [$04],Y + DEY + DEY + BNE L02A71D +L02A725 LDA [$08] + STA [$04] +L02A729 PLY + PLX + LDA $01 + STA $0D + LDA $02 + STA $0E + PLD + TSC + CLC + ADC #$000C + TCS + TYA + RTL + +L02A73C TSC + SEC + SBC #$0004 + TCS + PHD + TCD + PHB + PHK + PLB + SEP #$30 + LDA [$08] + TAY + LDA #$00 + STA L02B3D0,Y + TYX + BEQ L02A75C +L02A754 LDA [$08],Y + STA L02B3CF,Y + DEY + BNE L02A754 +L02A75C REP #$30 + LDA #L02B3D0 + STA $01 + LDA #^L02B3D0 + STA $03 + PLB + LDX $03 + LDY $01 + LDA $06 + STA $0A + LDA $05 + STA $09 + PLD + TSC + CLC + ADC #$0008 + TCS + TYA + RTL + +L02A77E LDA #L02A7C0 + STAL L02B33A+1 + LDA #>L02A7C0 + STAL L02B33A+2 + TSC + CLC + ADC #$0008 + STAL L02A7BE + PEA $0000 + PHA + JSL L02B1A5 + SEC + PLA + SBCL L02A7BE + CLC + ADC #$0004 + STAL L02A7BE + PLA + PHB + PLX + PLY + TSC + CLC + ADCL L02A7BE + TCS + PHY + PHX + PLB + LDAL L02B356 + RTL + +L02A7BE DW $0000 +L02A7C0 LDAL L02AACF + CMP #L02AAD3 + BNE L02A7F2 + LDAL L02AACF+1 + CMP #>L02AAD3 + BNE L02A7F2 + LDAL L02AAEF + CMP #$FFFE + BNE L02A7F2 + PHP + PLX + PLY + PLA + PHY + PHX + PLP + PHA + CMP #$000A + BNE L02A7EB + LDA #$000D +L02A7EB PHA + JSL L02C07B + PLA + RTL + +L02A7F2 LDAL L02AACF+2 + PHA + LDAL L02AACF + PHA + LDA $08,S + PHA + JSL $000000 + PHB + PLX + PLY + PLA + PHY + PHX + PLB + RTL + +L02A80B TSC + SEC + SBC #$0002 + TCS + PHD + TCD + STZ $01 +L02A815 LDA [$06] + AND #$00FF + BEQ L02A829 + PHA + JSL L02A7C0 + INC $06 + BNE L02A827 + INC $08 +L02A827 BRA L02A815 +L02A829 PEA $000A + JSL L02A7C0 + LDY $01 + LDA $04 + STA $08 + LDA $03 + STA $07 + PLD + TSC + CLC + ADC #$0006 + TCS + TYA + RTL + +L02A843 TSC + PHD + TCD + PHB + PHK + PLB + LDA $08 + BNE L02A84F + DEC $0A +L02A84F DEC $08 + LDA $0A + PHA + LDA $08 + PHA + LDA $0E + PHA + LDA $0C + PHA + JSL L02C5AD + PLA + STA $08 + PLA + STA $0A + CLC + LDA $08 + ADC $04 + STA $08 + LDA $0A + ADC $06 + STA $0A + LDA $0E + STA L02AA13 + LDA $0C + STA L02AA11 + LDA $10 + STA L02A906+1 + STA L02A934+1 + LDA $11 + STA L02A906+2 + STA L02A934+2 + LDA $0A + PHA + LDA $08 + PHA + LDA $06 + PHA + LDA $04 + PHA + JSL L02A8AF + PLB + LDA $02 + STA $12 + LDA $01 + STA $11 + PLD + TSC + CLC + ADC #$0010 + TCS + RTL + +L02A8AF TSC + SEC + SBC #$0008 + TCS + PHD + TCD + PHB + PHK + PLB +L02A8BA LDA $12 + CMP $0E + BNE L02A8C4 + LDA $10 + CMP $0C +L02A8C4 BEQ L02A8C8 + BCS L02A8D9 +L02A8C8 PLB + LDA $0A + STA $12 + LDA $09 + STA $11 + PLD + TSC + CLC + ADC #$0010 + TCS + RTL + +L02A8D9 LDA $12 + STA $07 + LDA $10 + STA $05 + LDA $0E + STA $03 + LDA $0C + STA $01 + BRA L02A8FA +L02A8EB CLC + LDA $01 + ADC L02AA11 + STA $01 + LDA $03 + ADC L02AA13 + STA $03 +L02A8FA LDA $12 + PHA + LDA $10 + PHA + LDA $03 + PHA + LDA $01 + PHA +L02A906 JSL L02A906 + TAX + BMI L02A8EB +L02A90D LDA $05 + CMP $0C + BNE L02A919 + LDA $07 + CMP $0E + BEQ L02A93B +L02A919 SEC + LDA $05 + SBC L02AA11 + STA $05 + LDA $07 + SBC L02AA13 + STA $07 + LDA $12 + PHA + LDA $10 + PHA + LDA $07 + PHA + LDA $05 + PHA +L02A934 JSL L02A934 + DEC + BPL L02A90D +L02A93B LDA $03 + PHA + LDA $01 + PHA + LDA $07 + PHA + LDA $05 + PHA + JSR L02A9A5 + LDA $03 + CMP $07 + BNE L02A954 + LDA $01 + CMP $05 +L02A954 BCC L02A8EB + LDA $07 + PHA + LDA $05 + PHA + LDA $03 + PHA + LDA $01 + PHA + JSR L02A9A5 + LDA $03 + PHA + LDA $01 + PHA + LDA $12 + PHA + LDA $10 + PHA + JSR L02A9A5 + SEC + LDA $01 + SBC L02AA11 + STA $05 + LDA $03 + SBC L02AA13 + STA $07 + LDA $07 + PHA + LDA $05 + PHA + LDA $0E + PHA + LDA $0C + PHA + JSL L02A8AF + CLC + LDA $01 + ADC L02AA11 + STA $0C + LDA $03 + ADC L02AA13 + STA $0E + BRL L02A8BA +L02A9A5 TSC + PHD + TCD + LDX L02AA13 + BEQ L02A9C5 + LDY #$0000 +L02A9B0 LDA [$03],Y + TAX + LDA [$07],Y + STA [$03],Y + TXA + STA [$07],Y + DEY + DEY + BNE L02A9B0 + INC $05 + INC $09 + DEX + BNE L02A9B0 +L02A9C5 LDA L02AA11 + LSR + BCC L02A9E9 + SEP #$20 + LDA [$03] + TAX + LDA [$07] + STA [$03] + TXA + STA [$07] + REP #$20 + INC $03 + BNE L02A9DF + INC $05 +L02A9DF INC $07 + BNE L02A9E5 + INC $09 +L02A9E5 LDA L02AA11 + LSR +L02A9E9 ASL + BEQ L02AA07 + TAY + BRA L02A9F9 +L02A9EF LDA [$03],Y + TAX + LDA [$07],Y + STA [$03],Y + TXA + STA [$07],Y +L02A9F9 DEY + DEY + BNE L02A9EF + LDA [$03] + TAX + LDA [$07] + STA [$03] + TXA + STA [$07] +L02AA07 PLD + PLX + TSC + CLC + ADC #$0008 + TCS + PHX + RTS + +L02AA11 DW $0000 +L02AA13 DW $0000 +L02AA15 PHB + PHK + PLB + PLX + PLY + PLA + STA L02AA8F + PLA + STA L02AA91 + PHY + PHX + PLB + LDA #L02AA65 + STAL L02B33A+1 + LDA #>L02AA65 + STAL L02B33A+2 + TSC + CLC + ADC #$0008 + STAL L02AA8D + PEA $0000 + PHA + JSL L02B1A5 + SEC + PLA + SBCL L02AA8D + CLC + ADC #$0004 + STAL L02AA8D + PLA + PHB + PLX + PLY + TSC + CLC + ADCL L02AA8D + TCS + PHY + PHX + PLB + LDAL L02B356 + RTL + +L02AA65 PHB + PLX + PLA + PLY + PHA + PHX + PLB + LDX L02AA91 + PHX + LDX L02AA8F + PHX + PHD + TSC + TCD + TYA + AND #$00FF + STA [$03] + PLD + PLA + PLA + PHB + PHK + PLB + INC L02AA8F + BNE L02AA8B + INC L02AA91 +L02AA8B PLB + RTL + +L02AA8D DB $00 + DB $00 +L02AA8F DB $00 + DB $00 +L02AA91 DB $00 + DB $00 +L02AA93 ADRL L02AA97 +L02AA97 ADRL L02AAD3 +L02AA9B DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02AAAF DB $FF + DB $FF +L02AAB1 DB $0A + DB $02 +L02AAB3 DB $FF + DB $FF +L02AAB5 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $0A + DB $02 + DB $FF + DB $FF +L02AACF ADRL L02AAD3 +L02AAD3 ADRL L02B6C4 +L02AAD7 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $12 + DB $02 +L02AAEF DB $FE + DB $FF +L02AAF1 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $12 + DB $02 + DB $FE + DB $FF +L02AB0B LDA $06,S + PHA + LDA $06,S + PHA + TSC + PHD + TCD + LDY #$0000 + SEP #$20 +L02AB19 LDA [$08],Y + BEQ L02AB24 + INY + BNE L02AB19 + INC $0A + BRA L02AB19 +L02AB24 REP #$20 + TYA + CLC + ADC $08 + STA $08 + SEP #$20 + LDY #$0000 +L02AB31 LDA [$0C],Y + STA [$08],Y + BEQ L02AB40 + INY + BNE L02AB31 + INC $0A + INC $0E + BRA L02AB31 +L02AB40 REP #$20 + LDA $05 + STA $0D + LDA $06 + STA $0E + LDX $03 + LDY $01 + PLD + TSC + CLC + ADC #$000C + TCS + TYA + RTL + +L02AB57 LDA $06,S + PHA + LDA $06,S + PHA + TSC + PHD + TCD + SEP #$20 + LDY #$0000 +L02AB65 LDA [$0C],Y + STA [$08],Y + BEQ L02AB74 + INY + BNE L02AB65 + INC $0A + INC $0E + BRA L02AB65 +L02AB74 REP #$20 + LDA $05 + STA $0D + LDA $06 + STA $0E + LDX $03 + LDY $01 + PLD + TSC + CLC + ADC #$000C + TCS + TYA + RTL + +L02AB8B TSC + PHD + TCD + LDY #$0000 + LDX #$0000 + SEP #$20 +L02AB96 LDA [$04],Y + BEQ L02ABA2 + INY + BNE L02AB96 + INX + INC $06 + BRA L02AB96 +L02ABA2 REP #$20 + PLD + LDA $02,S + STA $06,S + PLA + STA $03,S + PLA + TYA + RTL + +L02ABAF TSC + SEC + SBC #$0002 + TCS + PHD + TCD + LDY #$0000 + LDX $10 + BMI L02ABEE + BNE L02ABC4 + LDX $0E + BEQ L02ABEE +L02ABC4 LDX $0E + SEP #$20 +L02ABC8 LDA [$06],Y + BEQ L02ABE2 + CMP [$0A],Y + BNE L02ABF3 + DEX + BNE L02ABD9 + LDA $10 + BEQ L02ABEE + DEC $10 +L02ABD9 INY + BNE L02ABC8 + INC $08 + INC $0C + BRA L02ABC8 +L02ABE2 LDX #$0000 + LDA [$0A],Y + BEQ L02ABF8 +L02ABE9 LDX #$FFFF + BRA L02ABF8 +L02ABEE LDX #$0000 + BRA L02ABF8 +L02ABF3 BCC L02ABE9 + LDX #$0001 +L02ABF8 STX $01 + REP #$20 + LDY $01 + LDA $04 + STA $10 + LDA $03 + STA $0F + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L02AC0F TSC + SEC + SBC #$0004 + TCS + PHD + TCD + LDA $0A + STA $03 + LDA $08 + STA $01 + SEP #$20 + LDY #$0000 + LDX $12 + BMI L02AC4E + BNE L02AC2E + LDX $10 + BEQ L02AC4E +L02AC2E LDX $10 +L02AC30 LDA [$0C],Y + STA [$08],Y + BEQ L02AC4B + DEX + BNE L02AC3F + LDA $12 + BEQ L02AC4E + DEC $12 +L02AC3F INY + BNE L02AC30 + INC $0A + INC $0E + BRA L02AC30 +L02AC48 INY + STA [$08],Y +L02AC4B DEX + BNE L02AC48 +L02AC4E REP #$20 + LDX $03 + LDY $01 + LDA $06 + STA $12 + LDA $05 + STA $11 + PLD + TSC + CLC + ADC #$0010 + TCS + TYA + RTL + +L02AC65 PEA $0000 + PEA $0000 + PEA $0000 + TSC + PHD + TCD + LDA $0E + ORA $10 + BEQ L02AC82 + LDA $0A + STA [$0E] + LDY #$0002 + LDA $0C + STA [$0E],Y +L02AC82 LDA [$0A] + AND #$00FF + TAX + LDAL L02A50A,X + AND #$0020 + BEQ L02AC99 + INC $0A + BNE L02AC97 + INC $0C +L02AC97 BRA L02AC82 +L02AC99 LDA [$0A] + AND #$00FF + CMP #$002D + BNE L02ACA7 + INC $01 + BRA L02ACAC +L02ACA7 CMP #$002B + BNE L02ACB2 +L02ACAC INC $0A + BNE L02ACB2 + INC $0C +L02ACB2 LDA $0C + PHA + LDA $0A + PHA + LDA $12 + PHA + LDA $10 + PHA + LDA $0E + PHA + LDA $0C + PHA + LDA $0A + PHA + JSL L02AD14 + STX $05 + STA $03 + TXY + BPL L02ACEA + LDA #$0002 + STAL L02B10B + LDA $0E + ORA $10 + BNE L02ACEA + LDA $01,S + STA [$0E] + LDY #$0002 + LDA $03,S + STA [$0E],Y +L02ACEA PLA + PLA + LDA $01 + BEQ L02ACFF + SEC + LDA #$0000 + SBC $03 + STA $03 + LDA #$0000 + SBC $05 + STA $05 +L02ACFF LDX $05 + LDY $03 + LDA $07 + STA $11 + LDA $08 + STA $12 + PLD + TSC + CLC + ADC #$0010 + TCS + TYA + RTL + +L02AD14 PEA $0000 + PEA $0000 + PEA $0000 + TSC + PHD + TCD + LDA $0E + ORA $10 + BEQ L02AD31 + LDA $0A + STA [$0E] + LDY #$0002 + LDA $0C + STA [$0E],Y +L02AD31 LDA [$0A] + AND #$00FF + TAX + LDAL L02A50A,X + AND #$0020 + BEQ L02AD48 + INC $0A + BNE L02AD46 + INC $0C +L02AD46 BRA L02AD31 +L02AD48 LDA [$0A] + AND #$00FF + CMP #$002B + BNE L02AD58 + INC $0A + BNE L02AD58 + INC $0C +L02AD58 LDA $12 + BNE L02AD7F + LDA #$000A + STA $12 + LDA [$0A] + AND #$00FF + CMP #$0030 + BNE L02AD7F + LDA #$0008 + STA $12 + LDY #$0001 + LDA [$0A],Y + AND #$005F + CMP #$0058 + BNE L02AD7F + ASL $12 +L02AD7F LDA [$0A] + AND #$5F7F + CMP #$5830 + BNE L02AD9C + CLC + LDA $0A + ADC #$0002 + STA $0A + BCC L02AD95 + INC $0C +L02AD95 LDA $12 + CMP #$0010 + BNE L02AE07 +L02AD9C LDA [$0A] + AND #$00FF + CMP #$0030 + BCC L02AE03 + CMP #$003A + BCC L02ADBD + AND #$005F + CMP #$0041 + BCC L02AE03 + CMP #$005B + BCS L02AE03 + SBC #$0036 + BRA L02ADC0 +L02ADBD AND #$000F +L02ADC0 CMP $12 + BCS L02AE03 + LDX #$0001 + STX $01 + PHA + PHA + PHA + PHA + PHA + LDA $05 + PHA + LDA $03 + PHA + PEA $0000 + LDA $12 + PHA + _LongMul + PLA + STA $03 + PLA + STA $05 + PLA + ORA $01,S + PLX + PLY + TAX + BNE L02AE07 + CLC + TYA + ADC $03 + STA $03 + BCC L02ADFB + INC $05 + BEQ L02AE07 +L02ADFB INC $0A + BNE L02AE01 + INC $0C +L02AE01 BRA L02AD9C +L02AE03 LDA $01 + BNE L02AE10 +L02AE07 LDA #$0002 + STAL L02B10B + BRA L02AE21 +L02AE10 LDA $0E + ORA $10 + BEQ L02AE21 + LDA $0A + STA [$0E] + LDY #$0002 + LDA $0C + STA [$0E],Y +L02AE21 LDX $05 + LDY $03 + LDA $07 + STA $11 + LDA $08 + STA $12 + PLD + TSC + CLC + ADC #$0010 + TCS + TYA + RTL + +L02AE36 LDAL L02B111 + RTL + +L02AE3B LDA $04,S + TAX + LDA $02,S + STA $04,S + PLA + STA $01,S + LDAL L02A50A,X + AND #$0004 + BEQ L02AE53 + TXA + AND #$005F + RTL + +L02AE53 TXA + RTL + +L02AE55 LDAL L02B10D + RTL + +L02AE5A PHB + PHD + TSC + TCD + SEC + LDY #$0004 + LDA [$07] + SBC [$07],Y + STAL L02AE91 + CLC + ADC $01 + STA $01 + LDA [$07],Y + TAX + DEX + LDA [$07] + TAY + DEY + SEC + TSC + SBC [$07] + EOR #$FFFF + MVP $000000,$000000 + CLC + TSC + ADCL L02AE91 + TCS + PLD + PLX + PLY + PLA + PLA + PHY + PHX + PLB + RTL + +L02AE91 BRK $00 +L02AE93 PHA + JSR L02B032 + PLA + JMPL L02C95C + +L02AE9C PHB + PHK + PLB + PLX + PLY + PEA $0000 + PEA $0000 + PEA $0000 + PHY + PHX + LDA L02C28D + PHA + LDA L02C28B + PHA + TSC + PHD + TCD + STZ L02B089 + STZ L02B08B + JSL L02B08D + LDA $01 + ORA $03 + BNE L02AECA + BRL L02B027 +L02AECA CLC + LDA $01 + ADC #$0008 + STA $01 + BCC L02AED6 + INC $03 +L02AED6 LDX #$0000 + TXY + SEP #$20 +L02AEDC LDA [$01],Y + BEQ L02AF03 + CMP #$20 + BEQ L02AEEC + CMP #$22 + BEQ L02AEEC + CMP #$09 + BNE L02AEEF +L02AEEC INY + BRA L02AEDC +L02AEEF INX +L02AEF0 LDA [$01],Y + BEQ L02AF03 + CMP #$20 + BEQ L02AEDC + CMP #$22 + BEQ L02AEDC + CMP #$09 + BEQ L02AEDC + INY + BRA L02AEF0 +L02AF03 REP #$20 + TXA + INC + ASL + ASL + STA L02B030 + PHY + SEC + ADC $01,S + PLY + PHA + PHA + PEA $0000 + PHA + LDAL L02B10D + PHA + PEA $C008 + PEA $0000 + PEA $0000 + _NewHandle + BCC L02AF58 +L02AF2E BRA L02AF3E + +L02AF30 STR 'Out of memory' + +L02AF3E PEA ^L02AF30 + PEA L02AF30-1 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02C8DC + LDA #$FFFF + JMPL L02C95C + +L02AF58 PLA + STA $0B + PLA + STA $0D + LDY #$0002 + LDA [$0B],Y + TAX + LDA [$0B] + STA L02B02C + STX L02B02E + CLC + ADC L02B030 + BCC L02AF73 + INX +L02AF73 STA $0B + STX $0D + SEP #$20 + LDY #$0000 +L02AF7C LDA [$01],Y + STA [$0B],Y + BEQ L02AF85 + INY + BRA L02AF7C +L02AF85 REP #$20 + LDA $0D + STA $03 + LDA $0B + STA $01 + LDA L02B02E + STA $0D + LDA L02B02C + STA $0B +L02AF99 LDA [$01] + AND #$00FF + BEQ L02B013 + CMP #$0020 + BEQ L02AFAA + CMP #$0009 + BNE L02AFB2 +L02AFAA INC $01 + BNE L02AFB0 + INC $03 +L02AFB0 BRA L02AF99 +L02AFB2 TAX + CMP #$0022 + BNE L02AFBE + INC $01 + BNE L02AFBE + INC $03 +L02AFBE LDY #$0002 + LDA $01 + STA [$0B] + LDA $03 + STA [$0B],Y + CLC + LDA $0B + ADC #$0004 + STA $0B + BCC L02AFD5 + INC $0D +L02AFD5 INC $09 + CPX #$0022 + BNE L02AFF0 +L02AFDC LDA [$01] + AND #$00FF + BEQ L02B013 + CMP #$0022 + BEQ L02B009 + INC $01 + BNE L02AFEE + INC $03 +L02AFEE BRA L02AFDC +L02AFF0 LDA [$01] + AND #$00FF + BEQ L02B013 + CMP #$0020 + BEQ L02B009 + CMP #$0009 + BEQ L02B009 + INC $01 + BNE L02B007 + INC $03 +L02B007 BRA L02AFF0 +L02B009 SEP #$20 + LDA #$00 + STA [$01] + REP #$20 + BRA L02AFAA +L02B013 LDA #$0000 + STA [$0B] + LDY #$0002 + STA [$0B],Y + LDA L02B02E + STA $0D + LDA L02B02C + STA $0B +L02B027 PLD + PLA + PLA + PLB + RTL + +L02B02C DW $0000 +L02B02E DW $0000 +L02B030 DW $0000 +L02B032 PHB + PHK + PLB + LDA L02B08B + PHA + LDA L02B089 + PHA + PHD + TSC + TCD +L02B040 LDA $03 + ORA $05 + BEQ L02B06A + PEA >L02B05B + PEA L02B05B*$100 + PHB + PLA + LDY #$0005 + LDA [$03],Y + PHA + DEY + DEY + LDA [$03],Y + PHA + PHB + PLA +L02B05B RTL + + LDY #$0002 + LDA [$03],Y + TAX + LDA [$03] + STA $03 + STX $05 + BRA L02B040 +L02B06A LDAL L02B6C6 + ORAL L02B6C4 + BEQ L02B084 + LDAL L02B6C6 + PHA + LDAL L02B6C4 + PHA + JSL $000000 + BRA L02B06A +L02B084 PLD + PLA + PLA + PLB + RTS + +L02B089 DW $0000 +L02B08B DW $0000 +L02B08D LDX #$0018 +L02B090 LDA L02B6E2,X + STA L02B6C8,X + LDA L02AAB5,X + STA L02AA9B,X + LDA L02AAF1,X + STA L02AAD7,X + DEX + DEX + BPL L02B090 + LDA #L02B6C4 + STA L02B6C0 + LDA #^L02B6C4 + STA L02B6C0+2 + LDA #L02AA97 + STA L02AA93 + LDA #^L02AA97 + STA L02AA93+2 + LDA #L02AAD3 + STA L02AACF + LDA #^L02AAD3 + STA L02AACF+2 + RTL + +L02B0CB TSC + PHD + TCD + LDA $06 + BPL L02B0ED + CMP #$FFFF + BNE L02B0E7 + LDX $04 + CPX #$FFDE + BCC L02B0E7 +L02B0DE ASL $08 + ROL $0A + INX + BNE L02B0DE + BRA L02B0FF +L02B0E7 STZ $08 + STZ $0A + BRA L02B0FF +L02B0ED BNE L02B0E7 + LDX $04 + BEQ L02B0FF + CPX #$0021 + BCS L02B0E7 +L02B0F8 LSR $0A + ROR $08 + DEX + BNE L02B0F8 +L02B0FF LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L02B10B DW $0000 +L02B10D DW $0000 + DW $0006 +L02B111 DW $0000 +L02B113 TAY + PEA $0000 + PEA $0000 + LDA $0A,S + PHA + LDA $0A,S + PHA + TSC + PHD + TCD + STY $0C + STX $0E + TYA + ORA $0E + BEQ L02B178 + LDA $0E + ORA $03 + BEQ L02B154 + LDY #$0020 +L02B135 ASL $01 + ROL $03 + ROL $05 + ROL $07 + SEC + LDA $05 + SBC $0C + TAX + LDA $07 + SBC $0E + BCC L02B14F + STX $05 + STA $07 + INC $01 +L02B14F DEY + BNE L02B135 + BRA L02B170 +L02B154 LDA #$0000 + LDY #$0010 +L02B15A ASL $01 + ROL + SEC + SBC $0C + BCS L02B169 + ADC $0C + DEY + BNE L02B15A + BRA L02B16E +L02B169 INC $01 + DEY + BNE L02B15A +L02B16E STA $05 +L02B170 LDA $03 + STA $0E + LDA $01 + STA $0C +L02B178 PLD + TSC + CLC + ADC #$0008 + TCS + RTL + +L02B180 TSC + PHD + TCD + LDA #$0000 + STA [$06] + LDX $06 + TXY + INY + LDA $04 + DEC + DEC + PHB + MVN $000000,$000000 + PLB + LDA $02 + STA $08 + LDA $01 + STA $07 + PLD + TSC + CLC + ADC #$0006 + TCS + RTL + +L02B1A5 PHB + PHK + PLB + PHD + TSC + TCD +L02B1AB STZ L02B356 +L02B1AE LDA [$0E] + AND #$00FF + BEQ L02B1C7 + CMP #$0025 + BEQ L02B1D2 + PHA + JSL L02B337 + INC $0E + BNE L02B1C5 + INC $10 +L02B1C5 BRA L02B1AE +L02B1C7 LDA $0C + STA $10 + LDA $0B + STA $0F + PLD + PLB + RTL + +L02B1D2 INC $0E + BNE L02B1D8 + INC $10 +L02B1D8 STZ L02B34E + STZ L02B340 + STZ L02B34A + STZ L02B34C + STZ L02B344 + LDA #$0020 + STA L02B348 + STZ L02B346 + STZ L02B350 + STZ L02B33E +L02B1F6 JSR L02B25D + BCS L02B1F6 + JSR L02B2A5 + STA L02B340 + LDA [$0E] + AND #$00FF + CMP #$002E + BNE L02B21F + INC $0E + BNE L02B211 + INC $10 +L02B211 INC L02B34C + JSR L02B2A5 + STA L02B34A + LDA [$0E] + AND #$00FF +L02B21F CMP #$006C + BNE L02B229 + INC L02B344 + BRA L02B233 +L02B229 CMP #$004C + BEQ L02B233 + CMP #$0068 + BNE L02B23E +L02B233 INC $0E + BNE L02B239 + INC $10 +L02B239 LDA [$0E] + AND #$00FF +L02B23E INC $0E + BNE L02B244 + INC $10 +L02B244 LDX #$0040 +L02B247 CMP L02B2F3,X + BEQ L02B255 + DEX + DEX + DEX + DEX + BPL L02B247 + BRL L02B1AE +L02B255 PEA L02B1AB+2 + INX + INX + JMP (L02B2F3,X) + +L02B25D LDA [$0E] + AND #$00FF + CMP #$002D + BNE L02B26F + LDA #$0001 + STA L02B346 + BRA L02B29B +L02B26F CMP #$0030 + BNE L02B279 + STA L02B348 + BRA L02B29B +L02B279 CMP #$002B + BEQ L02B28B + CMP #$0020 + BNE L02B290 + LDX L02B350 + CPX #$002B + BEQ L02B29B +L02B28B STA L02B350 + BRA L02B29B +L02B290 CMP #$0023 + BNE L02B2A3 + LDA #$0001 + STA L02B33E +L02B29B INC $0E + BNE L02B2A1 + INC $10 +L02B2A1 SEC + RTS + +L02B2A3 CLC + RTS + +L02B2A5 STZ L02B2F1 + LDA [$0E] + AND #$00FF + CMP #$002A + BNE L02B2C5 + INC $0E + BNE L02B2B8 + INC $10 +L02B2B8 LDA [$07] + STA L02B2F1 + INC $07 + INC $07 +L02B2C1 LDA L02B2F1 + RTS + +L02B2C5 LDA [$0E] + AND #$00FF + CMP #$0030 + BCC L02B2C1 + CMP #$003A + BCS L02B2C1 + AND #$000F + PHA + ASL L02B2F1 + LDA L02B2F1 + ASL + ASL + ADC L02B2F1 + ADC $01,S + PLX + STA L02B2F1 + INC $0E + BNE L02B2EF + INC $10 +L02B2EF BRA L02B2C5 +L02B2F1 DA $0000 +L02B2F3 DA $0025 + DA L02B6FC + DA $006E + DA L02B99E + DA $0073 + DA L02B79C + DA $0062 + DA L02B7BD + DA $0070 + DA L02B714 + DA $0063 + DA L02B81E + DA $0058 + DA L02B71A + DA $0078 + DA L02B70C + DA $006F + DA L02B9CD + DA $0075 + DA L02B85F + DA $0064 + DA L02B832 + DA $0069 + DA L02B832 + DA $0066 + DA L02BCBB + DA $0065 + DA L02BCA8 + DA $0045 + DA L02BCAD + DA $0067 + DA L02BE7E + DA $0047 + DA L02BE83 +L02B337 INC L02B356 +L02B33A JMPL $000000 + +L02B33E DB $00 + DB $00 +L02B340 DB $00 + DB $00 +L02B342 DB $00 +L02B343 DB $00 +L02B344 DB $00 + DB $00 +L02B346 DB $00 + DB $00 +L02B348 DB $00 + DB $00 +L02B34A DB $00 + DB $00 +L02B34C DB $00 + DB $00 +L02B34E DB $00 + DB $00 +L02B350 DB $00 + DB $00 +L02B352 DB $00 +L02B353 DB $00 +L02B354 DB $00 +L02B355 DB $00 +L02B356 DB $00 + DB $00 +L02B358 DB $00 +L02B359 DB $00 +L02B35A DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02B3A9 DB $00 + DB $00 +L02B3AB DB $00 + DB $00 +L02B3AD DB $00 + DB $00 +L02B3AF DB $00 + DB $00 +L02B3B1 DB $00 + DB $00 +L02B3B3 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02B3CF DB $00 +L02B3D0 DB $00 +L02B3D1 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02B4D2 TSC + SEC + SBC #$0006 + TCS + PHD + TCD + PHB + PHK + PLB + LDA $0C + PHA + LDA $0A + PHA + JSL L02BA5F + BCS L02B4F3 + LDY #$001A + LDA [$0A],Y + AND #$0180 + BEQ L02B4FB +L02B4F3 LDA #$FFFF + STA $01 + BRL L02B684 +L02B4FB LDY #$0018 + LDA [$0A],Y + AND #$0080 + BNE L02B517 + LDA [$0A],Y + AND #$00FF + STA $01 + LDA [$0A],Y + XBA + ORA #$FF00 + STA [$0A],Y + BRL L02B684 +L02B517 LDY #$001C + LDA [$0A],Y + BPL L02B552 + CMP #$FFFF + BNE L02B541 + JSL L02C0BB + TAX + BNE L02B53C + LDA #$0080 + ORAL L02AAB1 + STAL L02AAB1 + JSL L02C0BB + LDA #$FFFF +L02B53C STA $01 + BRL L02B684 +L02B541 LDA $0C + PHA + LDA $0A + PHA + JSR L02BAA1 + LDA #$FFFF + STA $01 + BRL L02B684 +L02B552 LDY #$001A + LDA [$0A],Y + BIT #$0008 + BNE L02B563 + BIT #$0010 + BNE L02B541 + BRA L02B571 +L02B563 LDY #$0014 + LDA [$0A],Y + INY + INY + ORA [$0A],Y + BEQ L02B571 + BRL L02B632 +L02B571 LDY #$001A + LDA [$0A],Y + BIT #$0002 + BEQ L02B594 + STZ L02B6B2+2 + TDC + CLC + ADC #$0001 + STA L02B6B2 + LDA #$0001 + STA L02B6B6 + LDA #$0000 + STA L02B6B6+2 + BRA L02B5B2 +L02B594 LDY #$0008 + LDA [$0A],Y + STA L02B6B2 + INY + INY + LDA [$0A],Y + STA L02B6B2+2 + LDY #$0010 + LDA [$0A],Y + STA L02B6B6 + INY + INY + LDA [$0A],Y + STA L02B6B6+2 +L02B5B2 LDY #$001C + LDA [$0A],Y + STA L02B6B0 + JSL GSOS + DW $2012 ; Read + ADRL L02B6AE + BCC L02B5E2 + LDY #$001A + CMP #$004C + BNE L02B5D3 + LDA #$0080 + BRA L02B5D6 +L02B5D3 LDA #$0100 +L02B5D6 ORA [$0A],Y + STA [$0A],Y + LDA #$FFFF + STA $01 + BRL L02B684 +L02B5E2 LDY #$001A + LDA [$0A],Y + AND #$0002 + BEQ L02B5EF + BRL L02B684 +L02B5EF CLC + LDY #$000C + LDA L02B6B2 + ADC L02B6BA + STA [$0A],Y + INY + INY + LDA L02B6B2+2 + ADC L02B6BA+2 + STA [$0A],Y + LDY #$0008 + LDA [$0A],Y + TAX + INY + INY + LDA [$0A],Y + LDY #$0006 + STA [$0A],Y + DEY + DEY + TXA + STA [$0A],Y + LDY #$0014 + LDA L02B6BA + STA [$0A],Y + INY + INY + LDA L02B6BA+2 + STA [$0A],Y + LDY #$001A + LDA [$0A],Y + ORA #$0008 + STA [$0A],Y +L02B632 LDY #$0004 + LDA [$0A],Y + STA $03 + CLC + ADC #$0001 + STA [$0A],Y + INY + INY + LDA [$0A],Y + STA $05 + ADC #$0000 + STA [$0A],Y + LDA [$03] + AND #$00FF + STA $01 + LDY #$0014 + SEC + LDA [$0A],Y + SBC #$0001 + STA [$0A],Y + BCS L02B665 + INY + INY + LDA [$0A],Y + DEC + STA [$0A],Y +L02B665 LDY #$001A + LDA [$0A],Y + AND #$0020 + BEQ L02B684 + LDY #$0014 + LDA [$0A],Y + INY + INY + ORA [$0A],Y + BNE L02B684 + LDY #$001A + LDA [$0A],Y + EOR #$0008 + STA [$0A],Y +L02B684 LDA $01 + CMP #$000D + BNE L02B69A + LDY #$001A + LDA [$0A],Y + AND #$0200 + BEQ L02B69A + LDA #$000A + STA $01 +L02B69A PLB + LDY $01 + LDA $08 + STA $0C + LDA $07 + STA $0B + PLD + TSC + CLC + ADC #$000A + TCS + TYA + RTL + +L02B6AE DW $0004 ; Parms for Read +L02B6B0 DW $0000 ; ref num +L02B6B2 ADRL $00000000 ; buffer ptr +L02B6B6 ADRL $00000000 ; request count +L02B6BA ADRL $00000000 ; transfer count + DW $0001 +L02B6C0 ADRL L02B6C4 +L02B6C4 DB $00 + DB $00 +L02B6C6 DB $00 + DB $00 +L02B6C8 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $12 + DB $02 + DB $FD + DB $FF +L02B6E2 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $FF + DB $FF + DB $12 + DB $02 + DB $FD + DB $FF +L02B6FC DEC L02B340 + JSR L02BA46 + PEA $0025 + JSL L02B337 + BRL L02BA40 +L02B70C LDA #$0020 + STA L02B79A + BRA L02B71D +L02B714 LDA #$0001 + STA L02B344 +L02B71A STZ L02B79A +L02B71D STZ L02B350 + LDA #$2020 + STA L02B358 + LDA #$0051 + LDX #L02B358 + LDY #L02B359 + MVN L02B358,L02B359 + STZ L02B354 + LDA L02B344 + BEQ L02B742 + LDY #$0002 + LDA [$07],Y + STA L02B354 +L02B742 LDA [$07] + STA L02B352 + STZ L02B342 + SEP #$30 + LDY #$52 +L02B74E LDA #$00 + LDX #$04 +L02B752 LSR L02B355 + ROR L02B354 + ROR L02B353 + ROR L02B352 + ROR + DEX + BNE L02B752 + LSR + LSR + LSR + LSR + ORA #$30 + CMP #$3A + BCC L02B771 + ADC #$06 + ORA L02B79A +L02B771 STA L02B358,Y + DEY + LDA L02B355 + ORA L02B354 + ORA L02B353 + ORA L02B352 + BNE L02B74E + LDA L02B33E + BEQ L02B795 + LDA #$58 + ORA L02B79A + STA L02B343 + LDA #$30 + STA L02B342 +L02B795 REP #$30 + BRL L02B891 +L02B79A DW $0000 +L02B79C LDA $09 + PHA + LDA $07 + PHA + LDY #$0002 + LDA [$07],Y + TAX + LDA [$07] + STA $07 + STX $09 + SEP #$20 + LDY #$FFFF +L02B7B3 INY + LDA [$07],Y + BNE L02B7B3 + REP #$20 + TYA + BRA L02B7DA +L02B7BD LDA $09 + PHA + LDA $07 + PHA + LDY #$0002 + LDA [$07],Y + TAX + LDA [$07] + STA $07 + STX $09 + LDA [$07] + AND #$00FF + INC $07 + BNE L02B7DA + INC $09 +L02B7DA LDX L02B34C + BEQ L02B7E7 + CMP L02B34A + BCC L02B7E7 + LDA L02B34A +L02B7E7 STA L02B352 + SEC + LDA L02B340 + SBC L02B352 + STA L02B340 + JSR L02BA46 + LDX L02B352 + BEQ L02B811 + LDY #$0000 +L02B7FF PHY + LDA [$07],Y + AND #$00FF + PHA + JSL L02B337 + PLY + INY + DEC L02B352 + BNE L02B7FF +L02B811 CLC + PLA + ADC #$0004 + STA $07 + PLA + STA $09 + BRL L02BA40 +L02B81E DEC L02B340 + JSR L02BA46 + LDA [$07] + PHA + JSL L02B337 + INC $07 + INC $07 + BRL L02BA40 +L02B832 LDA L02B344 + BEQ L02B84F + LDY #$0002 + LDA [$07],Y + BPL L02B85F + SEC + LDA #$0000 + SBC [$07] + STA [$07] + LDA #$0000 + SBC [$07],Y + STA [$07],Y + BRA L02B859 +L02B84F LDA [$07] + BPL L02B85F + EOR #$FFFF + INC + STA [$07] +L02B859 LDA #$002D + STA L02B350 +L02B85F STZ L02B342 + LDA L02B344 + BEQ L02B86D + LDY #$0002 + LDA [$07],Y + PHA +L02B86D LDA [$07] + PHA + PEA ^L02B358 + PEA L02B358 + PEA $0053 + PEA $0000 + LDA L02B344 + BEQ L02B88A + _Long2Dec + BRA L02B891 +L02B88A _Int2Dec +L02B891 LDA L02B34C + BNE L02B89C + LDA #$0001 + STA L02B34A +L02B89C LDX L02B34A + BNE L02B8B1 + LDA L02B3A9 + CMP #$3020 + BNE L02B8D8 + LDA #$2020 + STA L02B3A9 + BRA L02B8D8 +L02B8B1 LDY #$0000 + SEP #$20 + LDA #$20 +L02B8B8 CMP L02B358,Y + BNE L02B8C5 + INY + CPY #$0053 + BNE L02B8B8 + BRA L02B8D6 +L02B8C5 CMP L02B358,Y + BEQ L02B8D3 + DEX + BEQ L02B8D3 + INY + CPY #$0053 + BNE L02B8C5 +L02B8D3 STX L02B34A +L02B8D6 REP #$20 +L02B8D8 SEC + LDA L02B340 + SBC L02B34A + STA L02B340 + LDA L02B350 + BEQ L02B8EA + DEC L02B340 +L02B8EA LDA L02B342 + BEQ L02B8F5 + DEC L02B340 + DEC L02B340 +L02B8F5 LDX #$0000 + LDY #$0052 + SEP #$20 + LDA #$20 +L02B8FF CMP L02B358,Y + BEQ L02B908 + INX + DEY + BPL L02B8FF +L02B908 REP #$20 + SEC + TXA + SBC L02B340 + EOR #$FFFF + INC + STA L02B340 + LDA L02B348 + CMP #$0030 + BEQ L02B921 + JSR L02BA46 +L02B921 LDA L02B350 + BEQ L02B92B + PHA + JSL L02B337 +L02B92B LDA L02B342 + BEQ L02B93D + PHA + JSL L02B337 + LDA L02B343 + PHA + JSL L02B337 +L02B93D LDA L02B348 + CMP #$0030 + BNE L02B959 + LDA L02B340 + BMI L02B959 + BEQ L02B959 +L02B94C LDA L02B348 + PHA + JSL L02B337 + DEC L02B340 + BNE L02B94C +L02B959 LDA L02B34A + BEQ L02B96A +L02B95E PEA $0030 + JSL L02B337 + DEC L02B34A + BNE L02B95E +L02B96A LDY #$FFFF +L02B96D INY + LDA L02B358,Y + AND #$00FF + CMP #$0020 + BEQ L02B96D +L02B979 CPY #$0053 + BEQ L02B98E + PHY + LDA L02B358,Y + AND #$00FF + PHA + JSL L02B337 + PLY + INY + BRA L02B979 +L02B98E LDA L02B344 + BEQ L02B997 + INC $07 + INC $07 +L02B997 INC $07 + INC $07 + BRL L02BA40 +L02B99E LDA $09 + PHA + LDA $07 + PHA + LDY #$0002 + LDA [$07],Y + TAX + LDA [$07] + STA $07 + STX $09 + LDA L02B356 + STA [$07] + LDA L02B344 + BEQ L02B9C2 + LDY #$0002 + LDA #$0000 + STA [$07],Y +L02B9C2 CLC + PLA + ADC #$0004 + STA $07 + PLA + STA $09 + RTS + +L02B9CD STZ L02B350 + LDA #$2020 + STA L02B358 + LDA #$0051 + LDX #L02B358 + LDY #L02B359 + MVN L02B358,L02B359 + STZ L02B354 + LDA L02B344 + BEQ L02B9F2 + LDY #$0002 + LDA [$07],Y + STA L02B354 +L02B9F2 LDA [$07] + STA L02B352 + SEP #$30 + LDY #$52 +L02B9FB LDA L02B355 + ORA L02B354 + ORA L02B353 + ORA L02B352 + BEQ L02BA2A + LDA #$00 + LDX #$03 +L02BA0D LSR L02B355 + ROR L02B354 + ROR L02B353 + ROR L02B352 + ROR + DEX + BNE L02BA0D + LSR + LSR + LSR + LSR + LSR + ORA #$30 + STA L02B358,Y + DEY + BRA L02B9FB +L02BA2A CPY #$52 + BEQ L02BA33 + LDA L02B33E + BEQ L02BA38 +L02BA33 LDA #$30 + STA L02B358,Y +L02BA38 REP #$30 + STZ L02B342 + BRL L02B891 +L02BA40 LDA L02B346 + BNE L02BA4B +L02BA45 RTS + +L02BA46 LDA L02B346 + BNE L02BA45 +L02BA4B LDA L02B340 + BMI L02BA45 + BEQ L02BA45 +L02BA52 PEA $0020 + JSL L02B337 + DEC L02B340 + BNE L02BA52 + RTS + +L02BA5F PHB + PHK + PLB + PEA ^L02AA97 + PEA L02AA97 + TSC + PHD + TCD +L02BA6B LDA $01 + ORA $03 + BEQ L02BA8B + LDA $01 + CMP $09 + BNE L02BA7D + LDA $03 + CMP $0B + BEQ L02BA95 +L02BA7D LDY #$0002 + LDA [$01],Y + TAX + LDA [$01] + STA $01 + STX $03 + BRA L02BA6B +L02BA8B LDA #$0005 + STAL L02B10B + SEC + BRA L02BA96 +L02BA95 CLC +L02BA96 PLD + PLA + PLA + PLX + PLY + PLA + PLA + PHY + PHX + PLB + RTL + +L02BAA1 TSC + PHD + TCD + LDY #$001A + LDA [$03],Y + ORA #$0100 + STA [$03],Y + LDA #$0005 + STAL L02B10B + PLD + PLA + PLY + PLY + PHA + RTS + +L02BABB PHB + PLX + PLY + PHK + PLB + PLA + STA L02C05B + PLA + STA L02C05D + PLA + STA L02C05F + PLA + STA L02C061 + PLA + STA L02C063 + PHY + PHX + PEA ^L02C05B + PEA L02C05B + PEA $0000 + _SANEElems816 + PEA $0003 + _SANEFP816 + TXA + AND #$0100 + BEQ L02BAFD + LDA #$0001 + STAL L02B10B +L02BAFD LDX #^L02C05B + LDA #L02C05B + PLB + RTL + +L02BB05 TSC + PEA $0000 + CLC + ADC #$0004 + PHA + PEA $0000 + ADC #$000A + PHA + PEA $0000 + _SANEFP816 + LDA $00,S + STA $0A,S + LDA $02,S + STA $0C,S + TSC + CLC + ADC #$000A + TCS + RTL + +L02BB2E PHB + PLX + PLY + PHA + PHA + PHA + PHA + PHA + PHY + PHX + PLB + PHA + TSC + INC + PEA $0000 + PHA + PEA $0000 + CLC + ADC #$0005 + PHA + PEA $040E + _SANEFP816 + PLA + RTL + +L02BB54 PHB + PHK + PLB + STA L02BB81 + STX L02BB83 + PLX + PLY + PHA + PHA + PHA + PHA + PHA + PHY + PHX + PLB + PEA ^L02BB81 + PEA L02BB81 + PEA $0000 + CLC + TSC + ADC #$000A + PHA + PEA $030E + _SANEFP816 + RTL + +L02BB81 DW $0000 +L02BB83 DW $0000 +L02BB85 TSC + CLC + ADC #$0004 + PEA $0000 + PHA + PEA $0000 + PHA + PEA $0000 + PHA + PEA $0016 + _SANEFP816 + PEA $0410 + _SANEFP816 + PHB + PLA + STA $09,S + PLA + STA $09,S + PLA + PLX + PLX + PLB + TAX + RTL + +L02BBB7 TSC + CLC + ADC #$0004 + PEA $0000 + PHA + PEA $0000 + PHA + PEA $0000 + PHA + PEA $0016 + _SANEFP816 + PEA $0310 + _SANEFP816 + PHB + PLA + STA $09,S + PLA + STA $09,S + PLA + PLX + PLY + PLB + TAY + BNE L02BBEB + TXY +L02BBEB RTL + +L02BBEC TSC + CLC + ADC #$0004 + PEA $0000 + PHA + PEA $0000 + PHA + PEA $0000 + PHA + PEA $0016 + _SANEFP816 + PEA $0310 + _SANEFP816 + PHB + PLA + STA $09,S + PLA + STA $09,S + PLA + PLX + PLX + PLB + TAX + RTL + +L02BC1E TSC + PHD + TCD + PEA $0000 + CLC + TDC + ADC #$0008 + PHA + LDA $06 + PHA + LDA $04 + PHA + PEA $0110 + _SANEFP816 + LDA $02 + STA $06 + LDA $01 + STA $05 + PLD + TSC + CLC + ADC #$0004 + TCS + RTL + +L02BC4A TSC + PEA $0000 + CLC + ADC #$0004 + PHA + PEA $0000 + ADC #$000A + PHA + PEA $0006 + _SANEFP816 + LDA $00,S + STA $0A,S + LDA $02,S + STA $0C,S + TSC + CLC + ADC #$000A + TCS + RTL + +L02BC73 PHB + PHK + PLB + STZ L02BC9B+2 + STA L02BC9B+1 + TXA + XBA + ORA L02BC9B+2 + STA L02BC9B+2 + PLX + PLY + TSC + SEC + SBC #$000A + TCS + PHY + PHX + PLB + CLC + TSC + ADC #$0004 + STAL L02BC9F+1 + LDX #$0008 +L02BC9B LDAL $000000,X +L02BC9F STAL $000000,X + DEX + DEX + BPL L02BC9B + RTL + +L02BCA8 STZ L02BE7C + BRA L02BCB3 +L02BCAD LDA #$0001 + STA L02BE7C +L02BCB3 STZ L02B3AB + INC L02B34A + BRA L02BCC4 +L02BCBB LDA #$0001 + STA L02B3AB + STZ L02BE7C +L02BCC4 LDY #$0008 + LDA [$07],Y + BPL L02BCD6 + EOR #$8000 + STA [$07],Y + LDA #$002D + STA L02B350 +L02BCD6 LDA L02B34C + BNE L02BCE4 + LDA #$0007 + SEC + SBC L02B3AB + BRA L02BCE7 +L02BCE4 LDA L02B34A +L02BCE7 STA L02B3AD + PEA ^L02B3AB + PEA L02B3AB + LDA $09 + PHA + LDA $07 + PHA + PEA ^L02B3AF + PEA L02B3AF + PEA $000B + _SANEFP816 + PEA ^L02B3AB + PEA L02B3AB + PEA ^L02B3AF + PEA L02B3AF + PEA ^L02B358 + PEA L02B358 + PEA $0001 + _SANEDecStr816 + LDA L02B3AB + BNE L02BD41 + SEP #$30 + LDX L02B358 + LDA L02B356,X + CMP #$65 + BNE L02BD41 + INC L02B358 + LDA L02B358,X + STA L02B359,X + LDA #$30 + STA L02B358,X +L02BD41 REP #$30 + LDA L02B34E + BEQ L02BD4D +L02BD48 JSR L02BE30 + BCS L02BD48 +L02BD4D LDA L02BE7C + BEQ L02BD68 + SEP #$30 + LDX L02B358 +L02BD57 LDA L02B358,X + CMP #$65 + BEQ L02BD61 + DEX + BNE L02BD57 +L02BD61 LDA #$45 + STA L02B358,X + REP #$30 +L02BD68 LDA L02B359 + AND #$00FF + CMP #$0020 + BNE L02BD82 + DEC L02B358 + LDA #$0050 + LDX #L02B35A + LDY #L02B359 + MVN L02B35A,L02B359 +L02BD82 LDA L02B3AD + BNE L02BDBD + LDA L02B33E + BEQ L02BDBD + SEP #$30 + INC L02B358 + LDX #$01 +L02BD93 LDA L02B358,X + CMP #$30 + BCC L02BDA4 + CMP #$3A + BCS L02BDA4 + INX + CPX L02B358 + BNE L02BD93 +L02BDA4 LDY L02B358,X + LDA #$2E + STA L02B358,X +L02BDAC CPX L02B358 + BEQ L02BDBB + INX + TYA + LDY L02B358,X + STA L02B358,X + BRA L02BDAC +L02BDBB REP #$30 +L02BDBD LDA L02B350 + BEQ L02BDC5 + DEC L02B340 +L02BDC5 LDA L02B358 + AND #$00FF + SEC + SBC L02B340 + EOR #$FFFF + INC + STA L02B340 + LDA L02B348 + CMP #$0030 + BEQ L02BDE1 + JSR L02BA46 +L02BDE1 LDA L02B350 + BEQ L02BDEB + PHA + JSL L02B337 +L02BDEB LDA L02B348 + CMP #$0030 + BNE L02BE06 + LDA L02B340 + BEQ L02BE06 + BMI L02BE06 +L02BDFA PEA $0030 + JSL L02B337 + DEC L02B340 + BNE L02BDFA +L02BE06 LDA L02B358 + AND #$00FF + TAY + BEQ L02BE25 + LDX #$0001 +L02BE12 LDA L02B358,X + PHX + PHY + AND #$00FF + PHA + JSL L02B337 + PLY + PLX + INX + DEY + BNE L02BE12 +L02BE25 CLC + LDA $07 + ADC #$000A + STA $07 + BRL L02BA40 +L02BE30 SEP #$30 + LDX #$00 +L02BE34 LDA L02B359,X + CMP #$2E + BEQ L02BE43 + INX + CPX L02B358 + BNE L02BE34 + BRA L02BE66 +L02BE43 CPX L02B358 + BEQ L02BE52 + LDA L02B359,X + CMP #$65 + BEQ L02BE52 + INX + BRA L02BE43 +L02BE52 LDA L02B358,X + CMP #$30 + BNE L02BE5F + JSR L02BE6A + SEC + BRA L02BE67 +L02BE5F CMP #$2E + BNE L02BE66 + JSR L02BE6A +L02BE66 CLC +L02BE67 REP #$30 + RTS + +L02BE6A CPX L02B358 + BEQ L02BE78 + LDA L02B359,X + STA L02B358,X + INX + BRA L02BE6A +L02BE78 DEC L02B358 + RTS + +L02BE7C DW $0000 +L02BE7E STZ L02BF01 + BRA L02BE89 +L02BE83 LDA #$0001 + STA L02BF01 +L02BE89 LDA L02B34C + BNE L02BE97 + LDA #$0006 + STA L02B34A + INC L02B34C +L02BE97 LDA L02B34A + STA L02B3AD + PEA ^L02B3AB + PEA L02B3AB + LDA $09 + PHA + LDA $07 + PHA + PEA ^L02B3AF + PEA L02B3AF + PEA $000B + _SANEFP816 + LDA L02B33E + EOR #$0001 + STA L02B34E + LDA #$0001 + STA L02B33E + LDA L02B3B3 + AND #$00FF + CLC + ADC L02B3B1 + DEC + STA L02BF03 + BPL L02BEDD + CMP #$FFFD + BCS L02BEF7 +L02BEDD CMP L02B34A + BCC L02BEF7 + BEQ L02BEF7 + DEC L02B34A + BPL L02BEEC + STZ L02B34A +L02BEEC LDA L02BF01 + BNE L02BEF4 + BRL L02BCA8 +L02BEF4 BRL L02BCAD +L02BEF7 SEC + LDA L02B34A + SBC L02BF03 + BRL L02BCBB +L02BF01 DW $0000 +L02BF03 DW $0000 +L02BF05 TSC + PEA $0000 + CLC + ADC #$000E + PHA + PEA $0000 + SEC + SBC #$000A + PHA + PEA $000A + _SANEFP816 + LDA $00,S + STA $14,S + LDA $02,S + STA $16,S + TSC + CLC + ADC #$0014 + TCS + TXA + AND #$0040 + BEQ L02BF37 + LDA #$0001 +L02BF37 RTL + +L02BF38 TSC + SEC + SBC #$000E + TCS + LDA $12,S + STA $05,S + LDA $14,S + STA $07,S + LDA $10,S + STA $0A,S + LDA $0E,S + STA $08,S + CLC + TSC + ADC #$000C + STA $01,S + LDA #$0000 + STA $03,S + PEA $010E + _SANEFP816 + RTL + +L02BF65 TSC + PEA $0000 + CLC + ADC #$0004 + PHA + PEA $0000 + ADC #$000A + PHA + PEA $0004 + _SANEFP816 + LDA $00,S + STA $0A,S + LDA $02,S + STA $0C,S + TSC + CLC + ADC #$000A + TCS + RTL + +L02BF8E TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + PEA $0000 + CLC + TDC + ADC #$0007 + PHA + LDA $05 + PHA + LDA $03 + PHA + PEA $0110 + _SANEFP816 + LDA $01 + STA $0F + LDA $00 + STA $0E + CLC + TDC + ADC #$000D + PLD + TCS + RTL + +L02BFC2 TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + PEA $0000 + CLC + TDC + ADC #$0007 + PHA + LDA $05 + PHA + LDA $03 + PHA + PEA $0210 + _SANEFP816 + LDA $01 + STA $0F + LDA $00 + STA $0E + CLC + TDC + ADC #$000D + PLD + TCS + RTL + +L02BFF6 TSC + PEA $0000 + CLC + ADC #$0004 + PHA + PEA $0000 + ADC #$000A + PHA + PEA $0002 + _SANEFP816 + LDA $00,S + STA $0A,S + LDA $02,S + STA $0C,S + TSC + CLC + ADC #$000A + TCS + RTL + + DB $35 + DB $C2 + DB $68 + DB $21 + DB $A2 + DB $DA + DB $0F + DB $C9 + DB $00 + DB $40 + DB $35 + DB $C2 + DB $68 + DB $21 + DB $A2 + DB $DA + DB $0F + DB $C9 + DB $FF + DB $3F + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $80 + DB $FD + DB $3F + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $80 + DB $FE + DB $3F + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $80 + DB $FF + DB $3F + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $80 + DB $00 + DB $40 +L02C05B DB $00 + DB $00 +L02C05D DB $00 + DB $00 +L02C05F DB $00 + DB $00 +L02C061 DB $00 + DB $00 +L02C063 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C07B JMP L02C07E + +L02C07E TSC + PHD + TCD + LDA $04 + STAL L02C0B9 + LDAL L02C576 + STAL L02C0AB + JSL GSOS + DW $2013 ; Write + ADRL L02C0A9 + LDA $02 + STA $04 + LDA $01 + STA $03 + PLD + TSC + CLC + ADC #$0002 + TCS + RTL + +L02C0A9 DW $0004 ; Parms for Write +L02C0AB DW $0000 ; ref num + ADRL L02C0B9 ; buffer ptr + ADRL $00000001 ; request count + ADRL $00000000 ; transfer count +L02C0B9 BRK $00 +L02C0BB PHB + PHK + PLB +L02C0BE LDA L02C572 + BEQ L02C0C8 + STZ L02C572 + PLB + RTL + +L02C0C8 LDX L02C56E + CPX L02C570 + BCS L02C0DD + LDA L02C46E,X + AND #$00FF + BEQ L02C0DB + INC L02C56E +L02C0DB PLB + RTL + +L02C0DD JSL L02C0E3 + BRA L02C0BE +L02C0E3 JMP L02C0E6 + +L02C0E6 PHB + PHK + PLB + LDA L02C580 + BEQ L02C0F3 + JSR L02C111 + PLB + RTL + +L02C0F3 LDA L02C574 + STA L02C1CD + STZ L02C56E + LDA #$0001 + STA L02C570 + STZ L02C46E + JSL GSOS + DW $2012 ; Read + ADRL L02C1CB + PLB + RTL + +L02C111 LDA L02C580 + STA L02C178 + STA L02C194 + STA L02C1AA + STA L02C1DD + JSL GSOS + DW $202E ; DControl + ADRL L02C176 + JSL GSOS + DW $202E ; DControl + ADRL L02C1DB + JSL GSOS + DW $202F ; DRead + ADRL L02C192 + JSL GSOS + DW $202D ; DStatus + ADRL L02C1A8 + LDX L02C1A4 + INX + STX L02C570 + SEP #$20 + LDA L02C1BA+8 + CMP #$2E + BNE L02C15C + LDA #$00 + BRA L02C16D +L02C15C CMP #$0D + BNE L02C16D + REP #$20 + PEA $000D + JSL L02C07B + SEP #$20 + LDA #$0D +L02C16D STA L02C46D,X + REP #$20 + STZ L02C56E + RTS + +L02C176 DW $0005 ; Parms for DControl +L02C178 DW $0000 ; device num + DW $8001 ; control code + ADRL L02C188 ; control list + ADRL $0000000A ; request count + ADRL $00000000 ; transfer count +L02C188 HEX 7F82030000022E800D00 +L02C192 DW $0006 ; Parms for DRead +L02C194 DW $0000 ; device num + ADRL L02C46E ; buffer ptr + ADRL $000000FF ; request count + ADRL $00000000 ; starting block + DW $0000 ; block size +L02C1A4 ADRL $00000000 ; transfer count +L02C1A8 DW $0005 ; Parms for DStatus +L02C1AA DW $0000 ; device num + DW $8001 ; status code + ADRL L02C1BA ; status list + ADRL $00000011 ; request count + ADRL $00000000 ; transfer count +L02C1BA HEX 00000000000000000000000000000000 + HEX 00 +L02C1CB DW $0004 ; Parms for Read +L02C1CD DW $0000 ; ref num + ADRL L02C46E ; buffer ptr + ADRL $00000001 ; request count + ADRL $00000000 ; transfer count +L02C1DB DW $0005 ; Parms for DControl +L02C1DD DW $0000 ; device num + DW $8003 ; control code + ADRL L02C1ED ; control list + ADRL $00000002 ; request count + ADRL $00000000 ; transfer count +L02C1ED HEX 0000 +L02C1EF TSC + PHD + TCD + LDY $04 + LDX $06 + SEC + TYA + SBC #$0002 + STA $04 + BCS L02C201 + DEC $06 +L02C201 LDA [$04] + BNE L02C20C + TYA + JSL L02C3D0 + BRA L02C211 +L02C20C TYA + JSL L02C2E3 +L02C211 LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L02C21D LDA $06,S + TAX + LDA $04,S + CPX #$0000 + BNE L02C237 + CMP #$0FFC + BCS L02C237 + CMP #$0000 + BEQ L02C23B + JSL L02C65E + BRA L02C23B +L02C237 JSL L02C775 +L02C23B TAY + LDA $00,S + STA $04,S + LDA $02,S + STA $06,S + PLA + PLA + TYA + RTL + +L02C248 TSC + PHD + TCD + LDA $06 + BPL L02C26A + CMP #$FFFF + BNE L02C264 + LDX $04 + CPX #$FFDE + BCC L02C264 +L02C25B ASL $08 + ROL $0A + INX + BNE L02C25B + BRA L02C27F +L02C264 STZ $08 + STZ $0A + BRA L02C27F +L02C26A BNE L02C264 + LDX $04 + BEQ L02C27F + CPX #$0021 + BCS L02C264 +L02C275 LDA $0A + ASL + ROR $0A + ROR $08 + DEX + BNE L02C275 +L02C27F LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L02C28B DB $00 + DB $00 +L02C28D DB $00 + DB $00 +L02C28F DB $00 + DB $00 +L02C291 DB $00 + DB $00 + ADRL L02C297 +L02C297 DB $00 + DB $00 + ADRL L02C29D +L02C29D DB $00 + DB $00 +L02C29F DB $00 + DB $00 + ADRL L02C2A5 +L02C2A5 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C2B1 DB $00 + DB $00 +L02C2B3 DB $00 + DB $00 +L02C2B5 DB $00 + DB $00 +L02C2B7 DB $00 + DB $00 +L02C2B9 DB $00 + DB $00 + DB $00 + DB $00 +L02C2BD DB $00 + DB $00 +L02C2BF DB $00 + DB $00 +L02C2C1 DB $00 +L02C2C2 DB $00 +L02C2C3 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C2E3 PHA + PHA + PHA + SEC + SBC #$0004 + BCS L02C2ED + DEX +L02C2ED PHX + PHA + TSC + PHD + TCD + LDA [$01] + BPL L02C2F9 + BRL L02C3C8 +L02C2F9 LDA [$01] + ORA #$8000 + STA [$01] + LDY #$0002 + LDA [$01],Y + STA $09 + TAY + LDA $01 + LDX $03 + JSL L02C582 +L02C310 LDA $09 + CMP #$1000 + BCC L02C31A + BRL L02C3B6 +L02C31A LDA [$01] + AND $09 + BEQ L02C371 + SEC + LDA $01 + SBC $09 + STA $05 + LDA $03 + SBC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BEQ L02C33A + BRL L02C3C8 +L02C33A LDA [$05] + BMI L02C341 + BRL L02C3C8 +L02C341 LDY $09 + LDX $03 + LDA $01 + JSL L02C97C + LDY $09 + LDX $07 + LDA $05 + JSL L02C97C + LDA $05 + STA $01 + LDA $07 + STA $03 + ASL $09 + LDA $09 + LDY #$0002 + STA [$01],Y + TAY + LDA $01 + LDX $03 + JSL L02C582 + BRA L02C310 +L02C371 CLC + LDA $01 + ADC $09 + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BNE L02C3C8 + LDA [$05] + BPL L02C3C8 + LDY $09 + LDX $03 + LDA $01 + JSL L02C97C + LDY $09 + LDX $07 + LDA $05 + JSL L02C97C + ASL $09 + LDY #$0002 + LDA $09 + STA [$01],Y + LDY $09 + LDA $01 + LDX $03 + JSL L02C582 + BRL L02C310 +L02C3B6 LDY $09 + LDA $01 + LDX $03 + JSL L02C97C + LDA $01 + LDX $03 + JSL L02C3D0 +L02C3C8 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L02C3D0 PHA + PHA + SEC + SBC #$000E + BCS L02C3D9 + DEX +L02C3D9 PHX + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$01],Y + ORA [$01] + BNE L02C3FA + LDY #$0004 + LDA [$01],Y + STAL L02CBBC + INY + INY + LDA [$01],Y + STAL L02CBBE + BRA L02C40F +L02C3FA 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 +L02C40F LDY #$0004 + LDA [$01],Y + TAX + INY + INY + ORA [$01],Y + BEQ L02C42C + LDA [$01],Y + STA $07 + STX $05 + LDY #$0002 + LDA [$01] + STA [$05] + LDA [$01],Y + STA [$05],Y +L02C42C LDY #$000A + LDA [$01],Y + PHA + DEY + DEY + LDA [$01],Y + PHA + _DisposeHandle + PLD + PLA + PLA + PLA + PLA + RTL + +L02C444 LDX #$0000 + LDA $0A,S + EOR $06,S + BPL L02C453 + LDA $06,S + CMP $0A,S + BRA L02C45D +L02C453 LDA $0A,S + CMP $06,S + BNE L02C45D + LDA $08,S + CMP $04,S +L02C45D BCC L02C462 + BEQ L02C462 + INX +L02C462 PHB + PLA + STA $07,S + PLA + STA $07,S + PLA + PLA + PLB + TXA +L02C46D RTL + +L02C46E DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C566 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02C56E DB $00 + DB $00 +L02C570 DB $00 + DB $00 +L02C572 DB $00 + DB $00 +L02C574 DB $00 + DB $00 +L02C576 DB $00 + DB $00 +L02C578 DB $00 + DB $00 +L02C57A DB $00 + DB $00 +L02C57C DB $00 + DB $00 +L02C57E DB $00 + DB $00 +L02C580 DB $00 + DB $00 +L02C582 PHX + PHA + TSC + PHD + TCD + TYA + JSL L02D03D + LDY #$0004 + LDAL L02CBC0,X + STA [$01],Y + INY + INY + LDAL L02CBC2,X + STA [$01],Y + LDA $01 + STAL L02CBC0,X + LDA $03 + STAL L02CBC2,X + PLD + PLA + PLA + RTL + +L02C5AD TSC + SEC + SBC #$000C + TCS + PHD + TCD + JSL L02CA3A + LDA $07 + BEQ L02C5E4 + LDY #$0020 + JSR L02C5C6 + BRL L02C615 +L02C5C6 LDA $05 + LSR + BCC L02C5D8 + CLC + LDA $09 + ADC $10 + STA $09 + LDA $0B + ADC $12 + STA $0B +L02C5D8 ROR $0B + ROR $09 + ROR $07 + ROR $05 + DEY + BNE L02C5C6 + RTS + +L02C5E4 ORA $12 + BEQ L02C5FF + LDY #$0010 + JSR L02C5C6 + LDA $07 + STA $05 + LDA $09 + STA $07 + LDA $0B + STA $09 + STZ $0B + BRL L02C615 +L02C5FF LDY #$0010 + LDX $05 + STX $07 +L02C606 LSR $07 + BCC L02C60D + CLC + ADC $10 +L02C60D ROR + ROR $05 + DEY + BNE L02C606 + STA $07 +L02C615 LDA $07 + AND #$8000 + ORA $09 + ORA $0B + BEQ L02C632 + LDA $0E + STA $12 + LDA $0C + STA $10 + PLD + TSC + CLC + ADC #$0010 + TCS + SEP #$40 + RTL + +L02C632 LDA $01 + BEQ L02C645 + SEC + LDA #$0000 + SBC $05 + STA $05 + LDA #$0000 + SBC $07 + STA $07 +L02C645 CLV + LDA $07 + STA $16 + LDA $05 + STA $14 + LDA $0E + STA $12 + LDA $0C + STA $10 + PLD + TSC + CLC + ADC #$0010 + TCS + RTL + +L02C65E PHA + CLC + ADC #$0004 + PHA + TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDA #$0008 +L02C66F CMP $0B + BCS L02C676 + ASL + BRA L02C66F +L02C676 STA $0D + JSL L02D03D + STX $09 + STX $0B +L02C680 LDX $0B + LDAL L02CBC0,X + ORAL L02CBC2,X + BNE L02C6DB + CPX #$0024 + BCC L02C6CF + LDA #$1000 + LDX #$0000 + JSL L02C775 + STA $01 + STAL L02CBE4 + STX $03 + TXA + STAL L02CBE6 + ORA $01 + BNE L02C6AF + BRL L02C75A +L02C6AF 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 L02C73B + BRA L02C730 +L02C6CF CLC + LDA $0B + ADC #$0004 + STA $0B + ASL $0D + BRA L02C730 +L02C6DB LDX $0B + CPX $09 + BCC L02C728 + BEQ L02C728 + LDAL L02CBC2,X + STA $03 + LDAL L02CBC0,X + STA $01 + LDY $0D + LDX $03 + JSL L02C97C + 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 L02C582 + LDY $0D + LDA $05 + LDX $07 + JSL L02C582 +L02C728 SEC + LDA $0B + SBC #$0004 + STA $0B +L02C730 LDA $0B + BMI L02C73B + CMP $09 + BCC L02C73B + BRL L02C680 +L02C73B LDX $09 + LDAL L02CBC0,X + STA $01 + LDAL L02CBC2,X + STA $03 + LDY $0D + LDX $03 + LDA $01 + JSL L02C97C + LDA [$01] + AND #$7FFF + STA [$01] +L02C75A LDA $01 + LDX $03 + ORA $03 + BEQ L02C76B + LDA $01 + CLC + ADC #$0004 + BCC L02C76B + INX +L02C76B TAY + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L02C775 CLC + ADC #$000E + BCC L02C77C + INX +L02C77C STAL L02C84C + TXA + STAL L02C84E + LDA #$0008 + STAL L02C84A +L02C78C PHA + PHA + LDAL L02C84E + PHA + LDAL L02C84C + PHA + LDAL L02B10D + PHA + LDAL L02C84E + BNE L02C7A8 + LDA #$4010 + BRA L02C7AB +L02C7A8 LDA #$4000 +L02C7AB ORAL L02C84A + PHA + PEA $0000 + PEA $0000 + _NewHandle + BCC L02C7D8 + PLA + PLA + LDAL L02C84A + AND #$0008 + BEQ L02C7D3 + LDA #$0000 + STAL L02C84A + BRA L02C78C +L02C7D3 LDA #$0000 + TAX + RTL + +L02C7D8 PHA + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$05] + STA $01 + LDA [$05],Y + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y + LDAL L02CBBC + INY + INY + STA [$01],Y + LDAL L02CBBE + 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 L02CBBC + STA $05 + LDAL L02CBBE + STA $07 + ORA $05 + BEQ L02C82D + LDY #$0002 + LDA $01 + STA [$05] + LDA $03 + STA [$05],Y +L02C82D LDA $01 + STAL L02CBBC + LDA $03 + STAL L02CBBE + CLC + LDA $01 + ADC #$000E + LDX $03 + BCC L02C844 + INX +L02C844 PLD + PLY + PLY + PLY + PLY + RTL + +L02C84A BRK $00 +L02C84C BRK $00 +L02C84E BRK $00 +L02C850 TSC + SEC + SBC #$000C + TCS + PHD + TCD + LDA $10 + ORA $12 + BNE L02C868 + PEA $0009 + JSL L02CD3D + BRL L02C8C3 +L02C868 JSL L02CA3A + LDA $16 + ORA $12 + BEQ L02C894 + LDY #$0020 +L02C875 ASL $05 + ROL $07 + ROL $09 + ROL $0B + SEC + LDA $09 + SBC $10 + TAX + LDA $0B + SBC $12 + BCC L02C88F + STX $09 + STA $0B + INC $05 +L02C88F DEY + BNE L02C875 + BEQ L02C8B0 +L02C894 LDA #$0000 + LDY #$0010 +L02C89A ASL $05 + ROL + SEC + SBC $10 + BCS L02C8A9 + ADC $10 + DEY + BNE L02C89A + BEQ L02C8AE +L02C8A9 INC $05 + DEY + BNE L02C89A +L02C8AE STA $09 +L02C8B0 LDA $01 + BEQ L02C8C3 + SEC + LDA #$0000 + SBC $05 + STA $05 + LDA #$0000 + SBC $07 + STA $07 +L02C8C3 LDA $05 + STA $14 + LDA $07 + STA $16 + LDA $0C + STA $10 + LDA $0E + STA $12 + CLV + PLD + TSC + CLC + ADC #$0010 + TCS + RTL + +L02C8DC TSC + PHD + TCD + INC $0A + BNE L02C8E5 + INC $0C +L02C8E5 LDA [$0A] + AND #$00FF + SEC + SBC $08 + BPL L02C8F9 + EOR #$FFFF + INC + LDY $04 + JSL L02D1B2 +L02C8F9 LDA [$0A] + AND #$00FF + BEQ L02C94C + STA $08 + INC $0A + BNE L02C908 + INC $0C +L02C908 LDA $04 + BEQ L02C92D +L02C90C LDA [$0A] + AND #$00FF + PHA + JSL L02CBE8 + INC $0A + BNE L02C91C + INC $0C +L02C91C DEC $08 + BNE L02C90C + LDA $06 + BEQ L02C94C + PEA $000D + JSL L02CBE8 + BRA L02C94C +L02C92D LDA [$0A] + AND #$00FF + PHA + JSL L02C07B + INC $0A + BNE L02C93D + INC $0C +L02C93D DEC $08 + BNE L02C92D + LDA $06 + BEQ L02C94C + PEA $000D + JSL L02C07B +L02C94C LDA $02 + STA $0C + LDA $00 + STA $0A + PLD + CLC + TSC + ADC #$000A + TCS + RTL + +L02C95C PHA + JSL L02CC28 + JSL L02D00F + JSL L02CE93 + PLA + JSL GSOS + DW $2029 ; Quit + ADRL L02C974 +L02C974 DW $0002 ; Parms for Quit + ADRL $00000000 ; path name + DW $0000 ; flags +L02C97C PHX + PHA + LDA #$0000 + PHA + PHA + PHA + PHA + TSC + PHD + TCD + TYA + JSL L02D03D + LDAL L02CBC0,X + STA $05 + LDAL L02CBC2,X + STA $07 +L02C999 LDA $05 + CMP $09 + BNE L02C9A5 + LDA $07 + CMP $0B + BEQ L02C9BC +L02C9A5 LDA $05 + STA $01 + LDA $07 + STA $03 + LDY #$0004 + LDA [$01],Y + STA $05 + INY + INY + LDA [$01],Y + STA $07 + BRA L02C999 +L02C9BC LDY #$0004 + LDA $01 + ORA $02 + BNE L02C9D5 + LDA [$05],Y + STAL L02CBC0,X + INY + INY + LDA [$05],Y + STAL L02CBC2,X + BRA L02C9DF +L02C9D5 LDA [$05],Y + STA [$01],Y + INY + INY + LDA [$05],Y + STA [$01],Y +L02C9DF PLD + TSC + CLC + ADC #$000C + TCS + RTL + +L02C9E7 TXY + BEQ L02C9F6 + BMI L02C9F2 +L02C9EC ASL + DEX + BNE L02C9EC + BRA L02C9F6 +L02C9F2 LSR + INX + BNE L02C9F2 +L02C9F6 RTL + +L02C9F7 TSC + PHD + TCD + LDA $06 + BPL L02CA1C + CMP #$FFFF + BNE L02CA16 + LDX $04 + CPX #$FFDE + BCC L02CA16 +L02CA0A LDA $0A + ASL + ROR $0A + ROR $08 + INX + BNE L02CA0A + BRA L02CA2E +L02CA16 STZ $08 + STZ $0A + BRA L02CA2E +L02CA1C BNE L02CA16 + LDX $04 + BEQ L02CA2E + CPX #$0021 + BCS L02CA16 +L02CA27 ASL $08 + ROL $0A + DEX + BNE L02CA27 +L02CA2E LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L02CA3A STZ $01 + LDA $16 + BPL L02CA53 + SEC + LDA #$0000 + SBC $14 + STA $05 + LDA #$0000 + SBC $16 + STA $07 + INC $01 + BRA L02CA59 +L02CA53 STA $07 + LDA $14 + STA $05 +L02CA59 STZ $09 + STZ $0B + LDA $12 + BPL L02CA72 + SEC + LDA #$0000 + SBC $10 + STA $10 + LDA #$0000 + SBC $12 + STA $12 + DEC $01 +L02CA72 RTL + +L02CA73 TXY + BEQ L02CA8D + BPL L02CA7E +L02CA78 ASL + INX + BNE L02CA78 + BRA L02CA8D +L02CA7E BIT #$8000 + BNE L02CA88 +L02CA83 LSR + DEX + BNE L02CA83 + RTL + +L02CA88 SEC + ROR + DEX + BNE L02CA88 +L02CA8D RTL + +L02CA8E TXY + BEQ L02CAB8 + PHA + PHX + TSC + PHD + TCD + LDA #$0000 + LDY #$0010 +L02CA9C ASL $03 + ROL + SEC + SBC $01 + BCS L02CAAB + ADC $01 + DEY + BNE L02CA9C + BRA L02CAB0 +L02CAAB INC $03 + DEY + BNE L02CA9C +L02CAB0 TAX + LDA $03 + CLV + PLD + PLY + PLY + RTL + +L02CAB8 PLA + SEP #$40 + RTL + +L02CABC PHX + PHA + PHD + TSC + TCD + CPX $03 + BCS L02CACB + LDA $03 + STX $03 + STA $05 +L02CACB LDA #$0000 + LSR $03 + BCC L02CAD5 + CLC + ADC $05 +L02CAD5 ASL $05 + LSR $03 + BCC L02CADE + CLC + ADC $05 +L02CADE ASL $05 + LSR $03 + BCC L02CAE7 + CLC + ADC $05 +L02CAE7 ASL $05 + LSR $03 + BEQ L02CB1C + BCC L02CAF2 + CLC + ADC $05 +L02CAF2 ASL $05 + LSR $03 + BCC L02CAFB + CLC + ADC $05 +L02CAFB ASL $05 + LSR $03 + BCC L02CB04 + CLC + ADC $05 +L02CB04 ASL $05 + LSR $03 + BCC L02CB0D + CLC + ADC $05 +L02CB0D ASL $05 + LSR $03 + BCC L02CB16 + CLC + ADC $05 +L02CB16 ASL $05 + PLD + PLX + PLX + RTL + +L02CB1C BCC L02CB21 + CLC + ADC $05 +L02CB21 PLD + PLX + PLX + RTL + +L02CB25 PEA $0000 + PEA $0000 + PHX + PHA + TSC + PHD + TCD + TXA + BEQ L02CB5A + LDY #$0020 + JSR L02CB3C + BRL L02CB84 +L02CB3C LDA $01 + LSR + BCC L02CB4E + CLC + LDA $05 + ADC $0C + STA $05 + LDA $07 + ADC $0E + STA $07 +L02CB4E ROR $07 + ROR $05 + ROR $03 + ROR $01 + DEY + BNE L02CB3C + RTS + +L02CB5A LDA $0E + BEQ L02CB6E + LDY #$0010 + JSR L02CB3C + LDA $05 + STA $0E + LDA $03 + STA $0C + BRA L02CB8C +L02CB6E LDY #$0010 + LDX $01 + STX $03 +L02CB75 LSR $03 + BCC L02CB7C + CLC + ADC $0C +L02CB7C ROR + ROR $01 + DEY + BNE L02CB75 + STA $03 +L02CB84 LDA $03 + STA $0E + LDA $01 + STA $0C +L02CB8C PLD + TSC + CLC + ADC #$0008 + TCS + RTL + +L02CB94 TXY + BEQ L02CBA3 + BPL L02CB9F +L02CB99 ASL + INX + BNE L02CB99 + BRA L02CBA3 +L02CB9F LSR + DEX + BNE L02CB9F +L02CBA3 RTL + +L02CBA4 PHA + PHX + PHY + JSL L02D024 + JSL L02CE78 + JSL L02CFE1 + JSL L02CD14 + JSL L02CC70 + RTL + +L02CBBC DB $00 + DB $00 +L02CBBE DB $00 + DB $00 +L02CBC0 DB $00 + DB $00 +L02CBC2 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02CBE4 DB $00 + DB $00 +L02CBE6 DB $00 + DB $00 +L02CBE8 JMP L02CBEB + +L02CBEB TSC + PHD + TCD + LDA $04 + STAL L02CC26 + LDAL L02C578 + STAL L02CC18 + JSL GSOS + DW $2013 ; Write + ADRL L02CC16 + LDA $02 + STA $04 + LDA $01 + STA $03 + PLD + TSC + CLC + ADC #$0002 + TCS + RTL + +L02CC16 DW $0004 ; Parms for Write +L02CC18 DW $0000 ; ref num + ADRL L02CC26 ; buffer ptr + ADRL $00000001 ; request count + ADRL $00000000 ; transfer count +L02CC26 DB $00 + DB $00 +L02CC28 PHB + PHK + PLB + LDA L02C57A + BEQ L02CC40 + LDA L02C574 + STA L02CC6E + JSL GSOS + DW $2014 ; Close + ADRL L02CC6C +L02CC40 LDA L02C57C + BEQ L02CC55 + LDA L02C576 + STA L02CC6E + JSL GSOS + DW $2014 ; Close + ADRL L02CC6C +L02CC55 LDA L02C57E + BEQ L02CC6A + LDA L02C578 + STA L02CC6E + JSL GSOS + DW $2014 ; Close + ADRL L02CC6C +L02CC6A PLB + RTL + +L02CC6C DW $0001 ; Parms for Close +L02CC6E DW $0000 ; ref num +L02CC70 PHB + PHK + PLB + STZ L02C46E + STZ L02C56E + STZ L02C570 + STZ L02C572 + PEA $000A + JSL L02D04E + STA L02C574 + STZ L02C580 + LDA L02C574 + STA L02CCED + JSL GSOS + DW $2039 ; GetRefInfo + ADRL L02CCEB + BCS L02CCD5 + LDA L02CCF7 + CMP #$0009 + BNE L02CCB4 + LDA L02CD01 + AND #$00FF + CMP #$003A + BNE L02CCD5 + DEC L02CCF7 +L02CCB4 LDY #$0008 +L02CCB7 LDA L02CCF7,Y + CMP L02CD0A,Y + BNE L02CCD5 + DEY + DEY + BPL L02CCB7 + JSL GSOS + DW $2020 ; GetDevNumber + ADRL L02CD02 + BCS L02CCD5 + LDA L02CD08 + STA L02C580 +L02CCD5 PEA $000B + JSL L02D04E + STA L02C576 + PEA $000C + JSL L02D04E + STA L02C578 + PLB + RTL + +L02CCEB DW $0003 ; Parms for GetRefInfo +L02CCED DW $0000 ; ref num + DW $0000 ; access + ADRL L02CCF5 ; path name +L02CCF5 DB $0D + DB $00 +L02CCF7 DB $00 + DB $00 + DB $20 + DB $20 + DB $20 + DB $20 + DB $20 + DB $20 + DB $20 + DB $20 +L02CD01 DB $20 +L02CD02 DW $0002 ; Parms for GetDevNumber + ADRL L02CD0A ; device name +L02CD08 DW $0000 ; device num +L02CD0A STRL '.CONSOLE' +L02CD14 PHB + PHK + PLB + LDA #$0020 + STA L02C29D + STZ L02C291 + STZ L02C28F + STZ L02C2C1 + STZ L02C2C3 + STZ L02C2BD + STZ L02C2BF + STZ L02C2B7 + STZ L02C2B9 + STZ L02C2B3 + STZ L02C2B5 + PLB + RTL + +L02CD3D LDA $04,S + PHA + JSL L02CEA4 + JMPL L02CD48 + +L02CD48 PHK + PLB + LDA L02C2C1 + BNE L02CD52 + BRL L02CE72 +L02CD52 BRA L02CD6C +L02CD54 STR 'Error occurred at line ' +L02CD6C PEA ^L02CD54 + PEA L02CD54-1 + PEA $0000 + PEA $0000 + PEA $0001 + JSL L02C8DC + LDA L02C2C1 + PHA + PEA $0001 + PEA $0000 + PEA $0001 + JSL L02D1D4 +L02CD90 BRA L02CDA1 +L02CD92 STR ' in procedure ' +L02CDA1 PEA ^L02CD92 + PEA L02CD92-1 + PEA $0000 + PEA $0000 + PEA $0001 + JSL L02C8DC + PEA ^L02C2C2 + PEA L02C2C2 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02C8DC + JSL L02D204 + LDA L02C2BD + ORA L02C2BF + BNE L02CDD6 + BRL L02CE72 +L02CDD6 PEA $000D + JSL L02CBE8 + PEA $000A + JSL L02CBE8 +L02CDE4 BRA L02CDF3 +L02CDE6 STR ' Line Name' +L02CDF3 PEA ^L02CDE6 + PEA L02CDE6-1 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02C8DC +L02CE06 BRA L02CE15 +L02CE08 STR ' ---- ----' +L02CE15 PEA ^L02CE08 + PEA L02CE08-1 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02C8DC +L02CE28 LDA L02C2BD + ORA L02C2BF + BEQ L02CE72 + LDA L02C2C1 + PHA + PEA $0006 + PEA $0000 + PEA $0001 + JSL L02D1D4 +L02CE41 BRA L02CE46 +L02CE43 STR ' ' +L02CE46 PEA ^L02CE43 + PEA L02CE43-1 + PEA $0000 + PEA $0000 + PEA $0001 + JSL L02C8DC + PEA ^L02C2C2 + PEA L02C2C2 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02C8DC + JSL L02D204 + BRA L02CE28 +L02CE72 LDA #$FFFF + BRL L02C95C +L02CE78 PHA + PHA + PEA $0000 + TSC + PHA + _FindHandle + PHD + TSC + TCD + LDA [$03] + PLD + STAL L02C29F + PLA + PLA + RTL + +L02CE93 JSL L02D19D + LDAL L02B10D + PHA + _DisposeAll + RTL + +L02CEA4 PHD + PEA ^L02CED6 + PEA L02CED6 + TSC + TCD + LDX $0A +L02CEAF DEX + BEQ L02CEBE + SEC + LDA [$01] + AND #$00FF + ADC $01 + STA $01 + BRA L02CEAF +L02CEBE DEC $01 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L02C8DC + PLD + LDA $02,S + STA $04,S + PLA + STA $01,S + RTL + +L02CED6 STR 'Subrange exceeded' + STR 'File is not open' + STR 'Read while at end of file' + STR 'I/O error' + STR 'Out of memory' + STR 'EOLN while at end of file' + STR 'Set overflow' + STR 'Jump to undefined case statement label' + STR 'Integer math error' + STR 'Real math error' + STR 'Underflow' + STR 'Overflow' + STR 'Divide by zero' + STR 'Inexact' + STR 'Stack overflow' + STR 'Stack error' +L02CFE1 LDA #$0000 + STAL L02C2B1 + PHA + _SANEStatus + PLA + BNE L02D00E + LDAL L02C29F + PHA + CLC + ADC #$0100 + STAL L02C29F + _SANEStartUp + LDA #$0001 + STAL L02C2B1 +L02D00E RTL + +L02D00F LDAL L02C2B1 + BEQ L02D023 + _SANEShutDown + LDA #$0000 + STAL L02C2B1 +L02D023 RTL + +L02D024 PHK + PLX + PLY + PLA + STAL L02C28B + PLA + STAL L02C28D + PLA + ORA #$0100 + STAL L02B10D + PHY + PHX + PLB + RTL + +L02D03D LDX #$0000 + DEC + LSR + LSR + LSR + BEQ L02D04D +L02D046 INX + INX + INX + INX + LSR + BNE L02D046 +L02D04D RTL + +L02D04E TSC + SEC + SBC #$000A + TCS + PHD + TCD + STZ $01 + LDA $0E + ASL + TAX + STZ L02C566,X + LDA $0E + STA L02D137 + JSL GSOS + DW $2037 ; GetStdRefNum + ADRL L02D135 + BCS L02D07A + LDA L02D139 + BEQ L02D07A + STA $01 + BRL L02D11A +L02D07A PHA + PHA + PEA $0000 + PEA $2000 + PHA + PEA $0000 + PHA + PHA + PEA ^L02D04E + PEA L02D04E + _FindHandle + _SetHandleID + PEA $C010 + PEA $0000 + PEA $0000 + _NewHandle + PLY + PLX + BCS L02D11A + STX $05 + STY $03 + LDY #$0002 + LDA [$03],Y + STA $09 + STA L02D131+2 + STA L02D13D+2 + STA L02D147+2 + LDA [$03] + STA $07 + STA L02D131 + INC + INC + STA L02D13D + STA L02D147 + LDA #$2000 + STA [$07] + LDA $0E + STA L02D12F + JSL GSOS + DW $200A ; GetPrefix + ADRL L02D12D + BCS L02D10D + JSL GSOS + DW $2038 ; GetRefNum + ADRL L02D13B + BCS L02D0FC + LDA L02D141 + STA $01 + BNE L02D10D +L02D0FC JSL GSOS + DW $2010 ; Open + ADRL L02D143 + BCS L02D10D + LDA L02D145 + STA $01 +L02D10D LDA $05 + PHA + LDA $03 + PHA + _DisposeHandle +L02D11A LDY $01 + LDA $0C + STA $0E + LDA $0B + STA $0D + PLD + TSC + CLC + ADC #$000C + TCS + TYA + RTL + +L02D12D DW $0002 ; Parms for GetPrefix +L02D12F DW $0000 ; prefix num +L02D131 ADRL $00000000 ; prefix ptr +L02D135 DW $0002 ; Parms for GetStdRefNum +L02D137 DW $0000 ; prefix num +L02D139 DW $0000 ; ref num +L02D13B DW $0002 ; Parms for GetRefNum +L02D13D ADRL $00000000 ; path name +L02D141 DW $0000 ; ref num +L02D143 DW $0002 ; Parms for Open +L02D145 DW $0000 ; ref num +L02D147 ADRL $00000000 ; path name +L02D14B DW $0028 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02D175 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L02D19D PHB + PHK + PLB + STZ L02CBBC + STZ L02CBBE + LDX #$0026 +L02D1A9 STZ L02CBC0,X + DEX + DEX + BPL L02D1A9 + PLB + RTL + +L02D1B2 PHA + PHD + TSC + TCD + TYA + BEQ L02D1C6 +L02D1B9 PEA $0020 + JSL L02CBE8 + DEC $03 + BNE L02D1B9 + BRA L02D1D1 +L02D1C6 PEA $0020 + JSL L02C07B + DEC $03 + BNE L02D1C6 +L02D1D1 PLD + PLA + RTL + +L02D1D4 TSC + PHD + TCD + PEA ^L02D14B + PEA L02D14B + LDA $0A + JSL L02D22D + PEA ^L02D14B + PEA L02D14B + LDA $08 + PHA + LDA $06 + PHA + LDA $04 + PHA + JSL L02C8DC + LDA $02 + STA $0A + LDA $00 + STA $08 + PLD + PLA + PLA + PLA + PLA + RTL + +L02D204 PHB + PHK + PLB + LDA L02C2BF + PHA + LDA L02C2BD + PHA + TSC + PHD + TCD + LDY #$0024 +L02D215 LDA [$01],Y + STA L02C2BD,Y + DEY + DEY + BPL L02D215 + LDA $03 + PHA + LDA $01 + PHA + JSL L02C1EF + PLD + PLA + PLA + PLB + RTL + +L02D22D PHA + PEA ^L02D175 + PEA L02D175 + PEA $0028 + PEA $0001 + _Int2Dec + JMP L02D244 + +L02D244 PHD + TSC + TCD + SEP #$20 + LDX #$0000 + LDA #$20 +L02D24E CMPL L02D175,X + BNE L02D257 + INX + BRA L02D24E +L02D257 REP #$20 + TXA + SEC + SBC #$0028 + EOR #$FFFF + INC + SEP #$20 + CMP [$06] + BEQ L02D26A + BCS L02D281 +L02D26A LDY #$0001 + STA [$06],Y +L02D26F LDAL L02D175,X + INY + STA [$06],Y + INX + CPX #$0028 + BCC L02D26F + REP #$20 + CLV + BRA L02D285 +L02D281 REP #$20 + SEP #$40 +L02D285 LDA $02,S + STA $06,S + LDA $04,S + STA $08,S + PLD + PLA + PLA + RTL + + diff --git a/rsounder/RSOUNDER.X.S b/rsounder/RSOUNDER.X.S new file mode 100644 index 0000000..5b685de --- /dev/null +++ b/rsounder/RSOUNDER.X.S @@ -0,0 +1,76 @@ + +* TFBD generated externals +* (c) PHC 1992,93 + + + EXT L030000 + EXT L03001B + EXT L030019 + EXT L03000D + EXT L030015 + EXT L030031 + EXT L030033 + EXT L03000F + EXT L030011 + EXT L030039 + EXT L03003B + EXT L03002D + EXT L03002F + EXT L03002B + EXT L03001D + EXT L03001F + EXT L030003 + EXT L030001 + EXT L040034 + EXT L030037 + EXT L0400FA + EXT L040100 + EXT L0400F2 + EXT L0400FE + EXT L0400FC + EXT L030005 + EXT L030007 + EXT L030009 + EXT L03000B + EXT L040104 + EXT L040102 + EXT L030029 + EXT L030027 + EXT L030023 + EXT L030021 + EXT L0400B8 + EXT L0400BC + EXT L0400BE + EXT L0400C0 + EXT L0400C2 + EXT L0400C6 + EXT L0400CA + EXT L0400C8 + EXT L0400BA + EXT L0400E2 + EXT L0400E4 + EXT L030035 + EXT L030025 + EXT L030042 + EXT L04008A + EXT L030017 + EXT L030013 + EXT L0400B2 + EXT L0400B0 + EXT L0400A0 + EXT L04009E + EXT L04009C + EXT L04009A + EXT L03004C + EXT L03004E + EXT L030046 + EXT L030044 + EXT L030048 + EXT L03004A + EXT L030040 + EXT L03003E + EXT L040106 + EXT L040000 + EXT L04007A + EXT L03003D + diff --git a/rsounder/_FileInformation.txt b/rsounder/_FileInformation.txt new file mode 100644 index 0000000..e69de29 diff --git a/rsounder/bajasoftware_rsounder31.2mg b/rsounder/bajasoftware_rsounder31.2mg new file mode 100644 index 0000000..4de0d4a Binary files /dev/null and b/rsounder/bajasoftware_rsounder31.2mg differ diff --git a/rsounder/rSounderDox b/rsounder/rSounderDox new file mode 100644 index 0000000..c9bf74a --- /dev/null +++ b/rsounder/rSounderDox @@ -0,0 +1 @@ + rSounder Version 3.1 by Paul Benson & Brutal Deluxe Software v3.1 - 27/Feb/2024 1. When a sound is saved, its size is aligned to a page boundary. That makes it easier to handle. 2. The (c) string added as a suffix to all sounds is removed. Okay, well it's is finally done! Of coures I'm expecting people to report any bugs discovered. First off, this program is still shareware and it is now $7. The reason for this is that many people said the original was worth $5, and the second was worth more than $5 (not to mention inflation), and this version does even more. If you are on GEnie, I accept payment to my GEnie account of P.BENSON1 via Gift of Time. Also, my address has changed to: Paul Benson 3300 Cobblestone Court Raleigh, NC 27607 If you paid for previous rSounders, you do _not_ owe any extra money. What's Changed? I've added some features to this version. I'll just list them in no real order. Support for opening WAV, AU, and MOD files has been added. For AU samples, I only support linear and mu-law. I could not find the valid code for A-law samples, so I don't think NeXT/SUN really supports it. The other types I don't think are possible for the GS (DSP stuff). I have an algorithm for A-law to 8-bit linear, so if anyone knows the AU code for A-law samples, I can easily add support. Support for saving as WAV and AU has been added. This is what got me motivated to work on rSounder again as I had some nice GS sounds I wanted to port to my PC. The AU samples are saved as mu-law. Change Frequency. This needed to be added to support WAVs since WAV files only handle a few set frequencies (unlike the GS). Since I had to add it, I figured I may as well let users play around with it. IT TAKES A LONG TIME due to floating point operations. The effect of this is to change the playback rate without changing how the sample sounds (i.e. no pitch change). The sound length will change accordingly. For example, if your sound sample is 10000 bytes long and is set to play at a frequency of 20000 (therefore a half second sound sample), you can convert it to play at 10000 and the sample will be reduced to 5000 bytes (to maintain the half second play length). This is a pretty good algorithm and can also be used to smooth a sound (by increasing the playback rate) or to reduce a sound's size with little loss to play quality. You can amplify the sound by railing it out or by a percentage. The first option will 'rail out' the sound, i.e. at least one value will be 255 or 1. If a 255 or 1 already exists, then the sound is not changed. The second option allows the sound to be railed outside of the valid ranges. There is a ceiling of 255 and a floor of 1 to prevent improper sound data. There is an added benefit to this in that the second option is by a percentage. So, you can actually 'muffle' the sound with values less than 100%. Easter Eggs! If you can find them, you should be pleasantly surprised. Be warned, they do mess with the sound sample currently loaded. Yes, the opening sound was created with rSounder. ;) Please include this document with any copy of rSounder version 3 that you share. Special thanks to the people who already paid there shareware fee. While it has yet to pay my rent, it is a nice perk. A special kudos to the people outside of the USA who took the time/effort/extra money to pay for the shareware fee. I must say I was pleasantly surprised to get payments from Canada, France, Germany, and other places. You can contact me at the above address, by GEnie as P.BENSON1, or the. net via baja@nando.net. Cheers, Pauley \ No newline at end of file