* * Your tour of the Apple IIgs * * (c) 1989, Apple Computer * (s) 2020, Antoine Vignau * mx %00 rel lst off *------------------------------- use SIX.X use 4/Event.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/Misc.Macs use 4/NoteSeq.Macs use 4/NoteSyn.Macs use 4/QD.Macs use 4/QDAux.Macs use 4/Util.Macs *------------------------------- L070000 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00BC TCS PEI $FF PEI $FD PEA ^L0C251F PEA L0C251F JSL L025330 PLY PLY PLY PLY PEI $FF PEI $FD PEA $0000 TDC CLC ADC #$00C0 PHA JSL L0110F7 PLY PLY PLY PLY PEA $0000 TDC CLC ADC #$00C0 PHA PEA ^L0C11EE PEA L0C11EE JSL L010DD9 PLY PLY PLY PLY TAY BEQ L070085 PEA $0000 TDC CLC ADC #$00C0 PHA JSL L040E53 PLY PLY STA $BE LDA $BE SEC SBC #$0000 BVS L070068 EOR #$8000 L070068 BPL L070083 PEI $BE JSL L070091 PLY PEI $FF PEI $FD PEA ^L0C11EE PEA L0C11EE JSL L0110F7 PLY PLY PLY PLY L070083 BRA L070089 L070085 JSL L071812 L070089 TSC CLC ADC #$003A TCS PLD RTL L070091 PHD TSC SEC SBC #$00F9 TCD ADC #$00E1 TCS STZ $F2 BRL L070122 L0700A1 LDA $F2 ASL ASL LDX #$0000 PHX PHA LDA #L0C1A52 LDX #^L0C1A52 JSL L010922 PLA PLX STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] STA $F4 STX $F6 LDA [$F4] PHA _DeleteMenu BCS L0700E1 LDA #$0000 L0700E1 STAL L0B0002 PEA $0320 JSL L021DFD PLY LDA $F2 ASL ASL LDX #$0000 PHX PHA LDA #L0C1A52 LDX #^L0C1A52 JSL L010922 PLA PLX STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] PHX PHA _DisposeHandle BCS L07011C LDA #$0000 L07011C STAL L0B0002 INC $F2 L070122 LDA $F2 SEC SBC L0B00B7 BVS L07012D EOR #$8000 L07012D BMI L070132 BRL L0700A1 L070132 PHX PHA LDA $FF PHA LDA #$0022 CLC JSL L010AAE PLA LDX #$0000 PHX PHA LDA #L0C1AB2 LDX #^L0C1AB2 JSL L010922 PLA PLX STA $F4 STX $F6 LDY #$0004 LDA [$F4],Y TAX LDY #$0002 LDA [$F4],Y PHX PHA _GetHandleSize BCS L07016E LDA #$0000 L07016E STAL L0B0002 PLA PLX STX $EE STA $EC PEA $0000 PEI $EE PEI $EC LDX L0B004C LDA L0B004A PHX PHA JSL L040000 PLY PLY PLY PLY PLY PEA $0321 JSL L021DFD PLY LDA $FF PHA LDA #$0022 CLC JSL L010AAE PLA LDX #$0000 PHX PHA LDA #L0C1AB2 LDX #^L0C1AB2 JSL L010922 PLA PLX STA $F4 STX $F6 LDY #$0004 LDA [$F4],Y TAX LDY #$0002 LDA [$F4],Y PHX PHA LDX L0B004C LDA L0B004A PHX PHA PEI $EE PEI $EC _HandToHand BCS L0701DE LDA #$0000 L0701DE STAL L0B0002 LDA $FF PHA LDA #$0022 CLC JSL L010AAE PLA LDX #$0000 PHX PHA LDA #L0C1AB2 LDX #^L0C1AB2 JSL L010922 PLA PLX STA $F4 STX $F6 LDA #$0032 STA [$F4] _CompactMem BCS L070214 LDA #$0000 L070214 STAL L0B0002 LDX L0B004C LDA L0B004A PHX PHA _HLock BCS L07022C LDA #$0000 L07022C STAL L0B0002 LDX L0B004C LDA L0B004A STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] STX $EA STA $E8 LDX L0B004C LDA L0B004A STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] STX $E6 STA $E4 STZ L0B00B7 LDA [$E8] SEP #$20 STA $E3 REP #$20 L070267 LDX $EA LDA $E8 CLC ADC $EC PHA TXA ADC $EE TAX PLA PHX PHA LDX $E6 LDA $E4 JSL L010B98 BNE L070283 BRL L070324 L070283 BVS L070288 EOR #$8000 L070288 BMI L07028D BRL L070324 L07028D PHX PHA PEI $E6 PEI $E4 _NewMenu BCS L07029F LDA #$0000 L07029F STAL L0B0002 LDA L0B00B7 ASL ASL LDX #$0000 PHX PHA LDA #L0C1A52 LDX #^L0C1A52 JSL L010922 PLA PLX STA $F4 STX $F6 PLA PLX LDY #$0002 PHA TXA STA [$F4],Y PLA STA [$F4] PEA $0323 JSL L021DFD PLY INC L0B00B7 LDX $E6 LDA $E4 CLC ADC #$0002 PHA TXA ADC #$0000 TAX PLA STX $E6 STA $E4 L0702E7 LDA [$E4] AND #$00FF PHA LDA $E3 AND #$00FF PLX STX $F4 CMP $F4 BEQ L070321 LDX $EA LDA $E8 CLC ADC $EC PHA TXA ADC $EE TAX PLA PHX PHA LDX $E6 LDA $E4 JSL L010B98 BEQ L070321 BVS L070317 EOR #$8000 L070317 BPL L070321 INC $E4 BNE L07031F INC $E6 L07031F BRA L0702E7 L070321 BRL L070267 L070324 LDA L0B00B7 SEC SBC #$0001 STA $F2 BRA L07036F L07032F LDA $F2 ASL ASL LDX #$0000 PHX PHA LDA #L0C1A52 LDX #^L0C1A52 JSL L010922 PLA PLX STA $F4 STX $F6 LDY #$0002 LDA [$F4],Y TAX LDA [$F4] PHX PHA PEA $0000 _InsertMenu BCS L070361 LDA #$0000 L070361 STAL L0B0002 PEA $0324 JSL L021DFD PLY DEC $F2 L07036F LDA $F2 SEC SBC #$0000 BVS L07037A EOR #$8000 L07037A BMI L07032F PHA _FixMenuBar BCS L070389 LDA #$0000 L070389 STAL L0B0002 PLA SEC SBC #$0001 STA L0B00B9 JSL L071812 TSC CLC ADC #$0017 TCS PLD RTL L0703A1 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E7 TCS PEA ^L0C2525 PEA L0C2525 PEI $FF PEI $FD JSL L010DD9 PLY PLY PLY PLY TAY BEQ L0703EE PEA ^L0C2529 PEA L0C2529 PEI $FF PEI $FD JSL L010DD9 PLY PLY PLY PLY TAY BEQ L0703EE PEA ^L0C2530 PEA L0C2530 PEI $FF PEI $FD JSL L010DD9 PLY PLY PLY PLY TAY BEQ L0703EE BRL L070435 L0703EE PHX PHA _GetSysFont BCS L0703FC LDA #$0000 L0703FC STAL L0B0002 _SetFont BCS L07040C LDA #$0000 L07040C STAL L0B0002 PEA ^L0B0070 PEA L0B0070 PEA ^L0B0072 PEA L0B0072 JSL L070547 PLY PLY PLY PLY LDX L0B0050 LDA L0B004E PHX PHA JSL L04023C PLY PLY BRL L07053F L070435 PEI $FF PEI $FD PEA ^L0C2538 PEA L0C2538 JSL L025330 PLY PLY PLY PLY PEI $FF PEI $FD JSL L040E53 PLY PLY STA $EB LDA $EB SEC SBC #$0000 BVS L07045E EOR #$8000 L07045E BMI L070463 BRL L07053F L070463 PHX PHA LDA $EB PHA LDA #$0022 CLC JSL L010AAE PLA LDX #$0000 PHX PHA LDA #L0C1AB2 LDX #^L0C1AB2 JSL L010922 PLA PLX STA $F2 STX $F4 LDY #$0004 LDA [$F2],Y TAX LDY #$0002 LDA [$F2],Y PHX PHA _GetHandleSize BCS L07049F LDA #$0000 L07049F STAL L0B0002 PLA PLX STX $EF STA $ED PEA $0000 PEI $EF PEI $ED LDX L0B0050 LDA L0B004E PHX PHA JSL L040000 PLY PLY PLY PLY PLY LDA $EB PHA LDA #$0022 CLC JSL L010AAE PLA LDX #$0000 PHX PHA LDA #L0C1AB2 LDX #^L0C1AB2 JSL L010922 PLA PLX STA $F2 STX $F4 LDY #$0004 LDA [$F2],Y TAX LDY #$0002 LDA [$F2],Y PHX PHA LDX L0B0050 LDA L0B004E PHX PHA PEI $EF PEI $ED _HandToHand BCS L070507 LDA #$0000 L070507 STAL L0B0002 PEA $02BC JSL L021DFD PLY LDX L0B0050 LDA L0B004E PHX PHA _SetFont BCS L070527 LDA #$0000 L070527 STAL L0B0002 PEA ^L0B0070 PEA L0B0070 PEA ^L0B0072 PEA L0B0072 JSL L070547 PLY PLY PLY PLY L07053F TSC CLC ADC #$000F TCS PLD RTL L070547 ENT PHD TSC SEC SBC #$00F3 TCD ADC #$00E4 TCS PEA $0000 TDC CLC ADC #$00E6 PHA _GetFontInfo BCS L070567 LDA #$0000 L070567 STAL L0B0002 LDA $EA STA [$F9] LDA $E6 CLC ADC $E8 CLC ADC $EC STA [$FD] TSC CLC ADC #$000E TCS PLD RTL L070581 ENT PHD TSC SEC SBC #$00E1 TCD ADC #$00DA TCS PEI $F5 PEI $F3 PEI $F7 PEI $F1 PEI $E9 PEI $E7 JSL L071136 TAY TSC CLC ADC #$000C TCS TYA JSL L0311DD PEI $FF PEI $FD PEI $FB PEI $F9 PEI $F5 PEI $F3 PEI $ED PEI $EF PEI $EB PEI $F7 PEI $F1 JSL L0705F6 TAY TSC CLC ADC #$0016 TCS TYA JSL L031208 LDA $F7 BEQ L0705EE LDX L0B0048 LDA L0B0046 PHX PHA JSL L04023C PLY PLY LDX L0B0044 LDA L0B0042 PHX PHA JSL L04023C PLY PLY L0705EE TSC CLC ADC #$0006 TCS PLD RTL L0705F6 ENT PHD TSC SEC SBC #$00E5 TCD ADC #$00A6 TCS STZ $D8 STZ $DE STZ $DA PEA $0000 TDC CLC ADC #$00A8 PHA PEA $0000 PEA $0000 _SetPt BCS L070622 LDA #$0000 L070622 STAL L0B0002 LDA #L0C0CDC LDX #^L0C0CDC STX $AE STA $AC LDA #L0C0E30 LDX #^L0C0E30 STX $B2 STA $B0 LDX #$0000 TDC CLC ADC #$00C2 STX $B6 STA $B4 LDX #$0000 TDC CLC ADC #$00A8 STX $BA STA $B8 LDA #$0000 STA $BC LDAL L0C0CF6 TAX LDAL L0C0CF4 STX $C0 STA $BE LDA #$0001 STA L0B00AE _StartInts BCS L070676 LDA #$0000 L070676 STAL L0B0002 PHA PEA $046E PEA $0000 _FlushEvents BCS L07068D LDA #$0000 L07068D STAL L0B0002 PLA L070692 STZ $DC BRL L0710E6 L070697 LDA $ED BNE L07069E BRL L070C34 L07069E LDA $DA BNE L0706A5 BRL L070828 L0706A5 LDA $F1 SEC SBC #$0000 BVS L0706B0 EOR #$8000 L0706B0 BMI L0706BF LDA $EB SEC SBC #$0001 CMP $DC BNE L0706BF BRL L070828 L0706BF PEA $0000 TDC CLC ADC #$00C2 PHA PEA $0000 PEA $0000 LDA $DC SEC SBC #$0001 LDX #$0000 TAY BPL L0706DB DEX L0706DB STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC SEC SBC #$0001 LDX #$0000 TAY BPL L07070B DEX L07070B STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0006 LDA [$E0],Y PLX STX $E4 SEC SBC $E4 PHA LDA $DC SEC SBC #$0001 LDX #$0000 TAY BPL L070741 DEX L070741 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA LDA $DC SEC SBC #$0001 LDX #$0000 TAY BPL L07076E DEX L07076E STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0004 LDA [$E0],Y PLX STX $E4 SEC SBC $E4 PHA _SetRect BCS L0707A3 LDA #$0000 L0707A3 STAL L0B0002 PEA ^L0C0E30 PEA L0C0E30 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC SEC SBC #$0001 LDX #$0000 TAY BPL L0707C3 DEX L0707C3 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC SEC SBC #$0001 LDX #$0000 TAY BPL L0707F0 DEX L0707F0 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA PEA $0000 _PPToPort BCS L07081C LDA #$0000 L07081C STAL L0B0002 PEA $07D3 JSL L021DFD PLY L070828 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L07083A DEX L07083A STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070863 DEX L070863 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA LDA $DC LDX #$0000 TAY BPL L070889 DEX L070889 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L0708B2 DEX L0708B2 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L0708DE DEX L0708DE STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0006 LDA [$E0],Y PLX STX $E4 SEC SBC $E4 PLX STX $E4 CLC ADC $E4 PHA LDA $DC LDX #$0000 TAY BPL L070916 DEX L070916 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA LDA $DC LDX #$0000 TAY BPL L07093C DEX L07093C STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA LDA $DC LDX #$0000 TAY BPL L070965 DEX L070965 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0004 LDA [$E0],Y PLX STX $E4 SEC SBC $E4 PLX STX $E4 CLC ADC $E4 PHA _SetRect BCS L0709A0 LDA #$0000 L0709A0 STAL L0B0002 JSL L03117F PEA $0000 TDC CLC ADC #$00AC PHA _PaintPixels BCS L0709BD LDA #$0000 L0709BD STAL L0B0002 JSL L0311AA LDA $ED CMP #$0002 BEQ L0709CF BRL L070B09 L0709CF PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L0709E1 DEX L0709E1 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070A0D DEX L070A0D STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA LDA $DC LDX #$0000 TAY BPL L070A36 DEX L070A36 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0006 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070A62 DEX L070A62 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0004 LDA [$E0],Y PHA _SetRect BCS L070A91 LDA #$0000 L070A91 STAL L0B0002 PEA ^L0C0C32 PEA L0C0C32 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L070AAD DEX L070AAD STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070AD6 DEX L070AD6 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA PEA $0000 _PPToPort BCS L070B02 LDA #$0000 L070B02 STAL L0B0002 BRL L070C2C L070B09 LDA $DC LDX #$0000 TAY BPL L070B12 DEX L070B12 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDA $E0 LDX $E2 PHX PHA PEA $0000 TDC CLC ADC #$00C2 PHA PEA $0008 JSL L010BC3 PLA PLA PLA PLA PLX PEA ^L0C0D86 PEA L0C0D86 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L070B62 DEX L070B62 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070B8B DEX L070B8B STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA PEA $0003 _PPToPort BCS L070BB7 LDA #$0000 L070BB7 STAL L0B0002 PEA ^L0C0C32 PEA L0C0C32 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L070BD3 DEX L070BD3 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070BFC DEX L070BFC STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA PEA $0001 _PPToPort BCS L070C28 LDA #$0000 L070C28 STAL L0B0002 L070C2C LDA #$0001 STA $DA BRL L070D6B L070C34 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L070C46 DEX L070C46 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070C72 DEX L070C72 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA LDA $DC LDX #$0000 TAY BPL L070C9B DEX L070C9B STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0006 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070CC7 DEX L070CC7 STX $E4 ASL ROL $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $F7 LDA $F5 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0004 LDA [$E0],Y PHA _SetRect BCS L070CF6 LDA #$0000 L070CF6 STAL L0B0002 PEA ^L0C0C32 PEA L0C0C32 PEA $0000 TDC CLC ADC #$00C2 PHA LDA $DC LDX #$0000 TAY BPL L070D12 DEX L070D12 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y PHA LDA $DC LDX #$0000 TAY BPL L070D3B DEX L070D3B STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FB LDA $F9 JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] PHA PEA $0000 _PPToPort BCS L070D67 LDA #$0000 L070D67 STAL L0B0002 L070D6B LDA $DC LDX #$0000 TAY BPL L070D74 DEX L070D74 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] AND #$007F TAY BNE L070D99 BRL L070F29 L070D99 PHA PEA $007F _AllocGen BCS L070DA9 LDA #$0000 L070DA9 STAL L0B0002 PLA STA $D6 PEI $D6 LDA $DC LDX #$0000 TAY BPL L070DBB DEX L070DBB STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] LSR LSR LSR LSR LSR LSR LSR LSR AND #$007F PHA LDA $DC LDX #$0000 TAY BPL L070DEC DEX L070DEC STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] AND #$007F PHA LDA $DC LDX #$0000 TAY BPL L070E15 DEX L070E15 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y XBA AND #$00FF LSR LSR LSR AND #$000F PHA LDA #$0040 CLC JSL L010AAE PLA LDX #$0000 PHX PHA LDA #L0C2156 LDX #^L0C2156 JSL L010922 _NoteOn BCS L070E63 LDA #$0000 L070E63 STAL L0B0002 PHX PHA _GetTick BCS L070E75 LDA #$0000 L070E75 STAL L0B0002 PLA PLX STX $D0 STA $CE STZ $CA STZ $CC L070E83 LDA $DC LDX #$0000 TAY BPL L070E8C DEX L070E8C STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $E0 STX $E2 LDY #$0002 LDA [$E0],Y AND #$07FF LDX #$0000 PHX PHA LDX $D0 LDA $CE JSL L010922 LDX $CC LDA $CA JSL L010B98 BEQ L070EE6 BVS L070ECA EOR #$8000 L070ECA BPL L070EE6 PHX PHA _GetTick BCS L070EDA LDA #$0000 L070EDA STAL L0B0002 PLA PLX STX $CC STA $CA BRA L070E83 L070EE6 PEI $D6 LDA $DC LDX #$0000 TAY BPL L070EF1 DEX L070EF1 STX $E4 ASL ROL $E4 ASL ROL $E4 LDX $E4 PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $E0 STX $E2 LDA [$E0] LSR LSR LSR LSR LSR LSR LSR LSR AND #$007F PHA _NoteOff BCS L070F25 LDA #$0000 L070F25 STAL L0B0002 L070F29 PHX PHA _TickCount BCS L070F37 LDA #$0000 L070F37 STAL L0B0002 PLA PLX STX $D4 STA $D2 L070F41 LDA $EF LDX #$0000 PHX PHA PHX PHA _TickCount BCS L070F56 LDA #$0000 L070F56 STAL L0B0002 PLA PLX SEC SBC $D2 PHA TXA SBC $D4 TAX PLA JSL L010B98 BEQ L070F6F BCC L070F6F BRA L070F41 L070F6F PHA PEA $046E PEA ^L0C1A7A PEA L0C1A7A _EventAvail BCS L070F85 LDA #$0000 L070F85 STAL L0B0002 PLA TAY BNE L070F90 BRL L0710D8 L070F90 LDA $F3 SEC SBC #$0005 BEQ L070FA2 BVS L070F9D EOR #$8000 L070F9D BPL L070FA2 BRL L0710D8 L070FA2 STZ L0B00CB LDA #L0C1A7A LDX #^L0C1A7A TAY TSC SEC SBC #$0010 TCS PHX PHY PEA $0000 INC PHA PEA $0010 JSL L010BC3 PLY PLY PLY PLY PLY JSL L061079 TAY TSC CLC ADC #$0010 TCS TYA LDA $F1 CMP #$001B BNE L070FEA LDA L0B00B2 AND #$00FF CMP #$001B BNE L070FEA LDA $F3 CMP #$0003 BEQ L070FF4 L070FEA PEA $0004 JSL L060851 PLY BRA L07100F L070FF4 PHA PEA $046E PEA ^L0C1A7A PEA L0C1A7A _GetNextEvent BCS L07100A LDA #$0000 L07100A STAL L0B0002 PLA L07100F LDA $F3 BRL L071088 L071014 LDAL L0C1A7A CMP #$0003 BNE L071033 LDA $F1 LDX #$0000 PHX PHA LDAL L0C1A7E TAX LDAL L0C1A7C JSL L010B98 BEQ L071038 L071033 LDA #$0000 BRA L07103B L071038 LDA #$0001 L07103B STA $D8 BRL L071096 L071040 LDAL L0C1A7A CMP #$0002 BEQ L07104E LDA #$0000 BRA L071051 L07104E LDA #$0001 L071051 STA $D8 BRL L071096 L071056 LDA L0B0078 SEC SBC #$0000 BEQ L071066 BVS L071064 EOR #$8000 L071064 BMI L07106B L071066 LDA #$0000 BRA L07106E L07106B LDA #$0001 L07106E STA $D8 BRL L071096 L071073 LDA #$0001 STA $D8 BRL L071096 L07107B BRL L071096 L07107E DA L071056 DA L071040 DA L071014 DA L071073 DA L07107B L071088 DEC CMP #$0004 BCC L071091 LDA #$0004 L071091 ASL TAX JMP (L07107E,X) L071096 LDA $D8 BNE L0710AA LDA L0B0078 CMP #$0001 BEQ L0710AA LDA L0B0078 CMP #$0002 BNE L0710B3 L0710AA LDA #$0001 STA $DE BRA L0710F9 BRA L0710D6 L0710B3 PEI $F3 JSL L06145F PLY JSL L0311DD PHA PEA $046E PEA $0000 _FlushEvents BCS L0710D1 LDA #$0000 L0710D1 STAL L0B0002 PLA L0710D6 BRA L0710E4 L0710D8 JSL L0612DE TAY BEQ L0710E4 LDA #$0001 STA $DE L0710E4 INC $DC L0710E6 LDA $EB SEC SBC #$0001 SEC SBC $DC BVS L0710F4 EOR #$8000 L0710F4 BPL L0710F9 BRL L070697 L0710F9 LDA $DE BNE L071104 LDA $F1 BEQ L071104 BRL L070692 L071104 JSL L0503D4 TAY BNE L07112B _AllNotesOff BCS L071117 LDA #$0000 L071117 STAL L0B0002 _StopInts BCS L071127 LDA #$0000 L071127 STAL L0B0002 L07112B STZ L0B00AE TSC CLC ADC #$003E TCS PLD RTL L071136 ENT PHD TSC SEC SBC #$00EF TCD ADC #$008A TCS LDX #$0000 TDC CLC ADC #$00E2 STX $DC STA $DA LDX #$0000 TDC CLC ADC #$00BE STX $C4 STA $C2 LDX $F7 LDA $F5 STX $A8 STA $A6 LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDA [$EA] AND #$00FF AND #$0080 CMP #$0000 BEQ L071181 LDA #$0004 STA $D2 BRA L071186 L071181 LDA #$0002 STA $D2 L071186 LDA $D2 PHA LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDY #$0002 LDA [$EA],Y SEC JSL L01092D PLY CLC ADC #$0001 STAL L0C0C38 LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDY #$0001 LDA [$EA],Y AND #$00FF CLC ADC #$0001 PHA LDAL L0C0C38 CLC JSL L010AAE PLA STA $CC LDX L0B0048 LDA L0B0046 PHX PHA JSL L04023C PLY PLY LDX L0B0044 LDA L0B0042 PHX PHA JSL L04023C PLY PLY PEA ^L0C0C32 PEA L0C0C32 PEA ^L0B002A PEA L0B002A JSL L030D54 PLY PLY PLY PLY _CompactMem BCS L071209 LDA #$0000 L071209 STAL L0B0002 PEI $CC PEA ^L0C0C32 PEA L0C0C32 PEA ^L0B002A PEA L0B002A JSL L030D03 PLY PLY PLY PLY PLY PEA ^L0C0CDC PEA L0C0CDC _SetPort BCS L071236 LDA #$0000 L071236 STAL L0B0002 LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDY #$0001 LDA [$EA],Y AND #$00FF CLC ADC #$0024 LDX #$0000 TAY BPL L071259 DEX L071259 STX $B8 STA $B6 STZ $E6 STZ $E0 BRA L07129D L071263 LDA $E0 LDX #$0000 PHX PHA LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDX $EC LDA #$0024 CLC ADC $EA BCC L071281 INX L071281 JSL L010922 PLA PLX STA $EA STX $EC LDA [$EA] AND #$00FF PHA LDA $E6 PLX STX $EE CLC ADC $EE STA $E6 INC $E0 L07129D LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDY #$0001 LDA [$EA],Y AND #$00FF SEC SBC $E0 BEQ L0712BD BVS L0712BB EOR #$8000 L0712BB BMI L071263 L0712BD LDA $CC CLC ADC #$00C8 STA [$DA] LDAL L0C0C36 TAX LDAL L0C0C34 LDY #$0002 PHA TXA STA [$C2],Y PLA STA [$C2] PEI $F7 PEI $F5 _HLock BCS L0712E8 LDA #$0000 L0712E8 STAL L0B0002 PHA LDY #$0002 LDA [$F5],Y TAX LDA [$F5] CLC ADC $B6 PHA TXA ADC $B8 TAX PLA PHX PHA PEI $E6 PEI $C4 PEI $C2 PEI $DC PEI $DA _UnPackBytes BCS L071316 LDA #$0000 L071316 STAL L0B0002 PLA STA $E4 PEI $F7 PEI $F5 _HUnlock BCS L07132D LDA #$0000 L07132D STAL L0B0002 LDA $FB BNE L071338 BRL L07157B L071338 PEI $F9 PEA $0000 TDC CLC ADC #$00D0 PHA PEI $FF PEI $FD JSL L071583 PLY PLY PLY PLY PLY LDA #L0C0CDC LDX #^L0C0CDC PHX PHA PEA ^L0C0E30 PEA L0C0E30 PEA $00AA JSL L010BC3 PLA PLA PLA PLA PLX LDA $D2 PHA LDA $D0 LDX #$0000 TAY BPL L071376 DEX L071376 STX $EE ASL ROL $EE ASL ROL $EE ASL ROL $EE LDX $EE PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $EA STX $EC LDY #$0002 LDA [$EA],Y PHA LDA $D0 LDX #$0000 TAY BPL L0713A2 DEX L0713A2 STX $EE ASL ROL $EE ASL ROL $EE ASL ROL $EE LDX $EE PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $EA STX $EC LDY #$0006 LDA [$EA],Y PLX STX $EE SEC SBC $EE SEC JSL L01092D PLY CLC ADC #$0002 STA $CE LDA $CE STAL L0C0E36 LDA $CE CLC ADC #$0001 PHA LDA $D0 LDX #$0000 TAY BPL L0713EC DEX L0713EC STX $EE ASL ROL $EE ASL ROL $EE ASL ROL $EE LDX $EE PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $EA STX $EC LDA [$EA] PHA LDA $D0 LDX #$0000 TAY BPL L071415 DEX L071415 STX $EE ASL ROL $EE ASL ROL $EE ASL ROL $EE LDX $EE PHX PHA LDX $FF LDA $FD JSL L010922 PLA PLX STA $EA STX $EC LDY #$0004 LDA [$EA],Y PLX STX $EE SEC SBC $EE SEC JSL L010AAE PLA STA $CA LDA #L0C0C32 LDX #^L0C0C32 PHX PHA PEA ^L0C0D86 PEA L0C0D86 PEA $00AA JSL L010BC3 PLA PLA PLA PLA PLX PEI $CA PEA ^L0C0E30 PEA L0C0E30 PEA ^L0B0046 PEA L0B0046 JSL L030D03 PLY PLY PLY PLY PLY PEI $CC PEA ^L0C0D86 PEA L0C0D86 PEA ^L0B0042 PEA L0B0042 JSL L030D03 PLY PLY PLY PLY PLY LDA $FB CMP #$0001 BEQ L071497 BRL L071565 L071497 LDA #$0000 STA $8E LDA #$0000 STA $8C PEA $0000 TDC CLC ADC #$00AA PHA PEA $0000 PEA $0000 LDA $D2 PHA LDA #$0004 SEC JSL L01092D PLY PHA LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDY #$0002 LDA [$EA],Y SEC SBC #$0001 SEC JSL L010AAE LDY #$0002 LDA [$A6],Y TAX LDA [$A6] STA $EA STX $EC LDY #$0001 LDA [$EA],Y AND #$00FF SEC SBC #$0001 PHA _SetRect BCS L0714FC LDA #$0000 L0714FC STAL L0B0002 LDX #$0000 TDC CLC ADC #$008C STX $9E STA $9C LDA #$0000 STA $A0 LDAL L0C0CF6 TAX LDAL L0C0CF4 STX $A4 STA $A2 LDA #L0C0C32 LDX #^L0C0C32 STX $92 STA $90 LDA #L0C0D86 LDX #^L0C0D86 STX $96 STA $94 LDX #$0000 TDC CLC ADC #$00AA STX $9A STA $98 PEA $0000 TDC CLC ADC #$0090 PHA _PaintPixels BCS L071553 LDA #$0000 L071553 STAL L0B0002 LDX L0B0044 LDA L0B0042 PHX PHA JSL L071684 PLY PLY L071565 PEA ^L0C0CDC PEA L0C0CDC _SetPort BCS L071577 LDA #$0000 L071577 STAL L0B0002 L07157B TSC CLC ADC #$0064 TCS PLD RTL L071583 PHD TSC SEC SBC #$00F1 TCD ADC #$00E6 TCS LDA #$0000 STA [$FB] LDA #$0001 STA $EA BRL L071647 L07159B LDA $EA LDX #$0000 TAY BPL L0715A4 DEX L0715A4 STX $F0 ASL ROL $F0 ASL ROL $F0 ASL ROL $F0 LDX $F0 PHX PHA LDX $F9 LDA $F7 JSL L010922 PLA PLX STA $EC STX $EE LDA $EC LDX $EE TAY TSC SEC SBC #$0008 TCS PHX PHY PEA $0000 INC PHA PEA $0008 JSL L010BC3 PLY PLY PLY PLY PLY JSL L07165E PLY PLY PLY PLY PHA LDA [$FB] LDX #$0000 TAY BPL L0715F1 DEX L0715F1 STX $F0 ASL ROL $F0 ASL ROL $F0 ASL ROL $F0 LDX $F0 PHX PHA LDX $F9 LDA $F7 JSL L010922 PLA PLX STA $EC STX $EE LDA $EC LDX $EE TAY TSC SEC SBC #$0008 TCS PHX PHY PEA $0000 INC PHA PEA $0008 JSL L010BC3 PLY PLY PLY PLY PLY JSL L07165E PLY PLY PLY PLY PLX STX $EC SEC SBC $EC BVS L07163F EOR #$8000 L07163F BMI L071645 LDA $EA STA [$FB] L071645 INC $EA L071647 LDA $EA SEC SBC $FF BVS L071651 EOR #$8000 L071651 BMI L071656 BRL L07159B L071656 TSC CLC ADC #$000A TCS PLD RTL L07165E PHD TSC SEC SBC #$00F3 TCD ADC #$00EC TCS LDA $FD SEC SBC $F9 PHA LDA $FF SEC SBC $FB SEC JSL L010AAE PLA TAY TSC CLC ADC #$0006 TCS TYA PLD RTL L071684 ENT PHD TSC SEC SBC #$00F7 TCD ADC #$00E8 TCS PEI $FF PEI $FD JSL L0401D9 PLY PLY TAY BNE L07169F BRL L07180A L07169F PEI $FF PEI $FD _HLock BCS L0716AF LDA #$0000 L0716AF STAL L0B0002 LDY #$0002 LDA [$FD],Y TAX LDA [$FD] STX $EC STA $EA PHX PHA PEI $FF PEI $FD _GetHandleSize BCS L0716D1 LDA #$0000 L0716D1 STAL L0B0002 PLA PLX STA $F0 STZ $EE BRL L0717FB L0716DE LDA $EE LDX #$0000 TAY BPL L0716E7 DEX L0716E7 PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF BNE L071701 BRL L0717F9 L071701 LDA $EE LDX #$0000 TAY BPL L07170A DEX L07170A PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF SEC SBC #$0010 BVS L071728 EOR #$8000 L071728 BMI L07176F LDA $EE LDX #$0000 TAY BPL L071733 DEX L071733 PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF ORA #$000F PHA LDA $EE LDX #$0000 TAY BPL L071755 DEX L071755 PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 BRL L0717F9 L07176F LDA $EE LDX #$0000 TAY BPL L071778 DEX L071778 PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF AND #$000F TAY BEQ L0717B7 LDA $EE LDX #$0000 TAY BPL L07179C DEX L07179C PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 LDA #$00FF SEP #$20 STA [$F2] REP #$20 BRA L0717F9 L0717B7 LDA $EE LDX #$0000 TAY BPL L0717C0 DEX L0717C0 PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 LDA [$F2] AND #$00FF ORA #$00F0 PHA LDA $EE LDX #$0000 TAY BPL L0717E2 DEX L0717E2 PHX PHA LDX $EC LDA $EA JSL L010922 PLA PLX STA $F2 STX $F4 PLA SEP #$20 STA [$F2] REP #$20 L0717F9 INC $EE L0717FB LDA $EE SEC SBC $F0 BVS L071805 EOR #$8000 L071805 BMI L07180A BRL L0716DE L07180A TSC CLC ADC #$000E TCS PLD RTL L071812 PHD TSC SEC SBC #$00FB TCD ADC #$00F0 TCS JSL L03117F PEA $0080 PEA $000C PEA $0000 JSL L0321FD PLY PLY PLY _DrawMenuBar BCS L07183D LDA #$0000 L07183D STAL L0B0002 _InitPalette BCS L07184D LDA #$0000 L07184D STAL L0B0002 STZ $F4 BRA L0718A5 L071855 STZ $F2 BRA L071894 L071859 PEI $F4 PEI $F2 PEA $0000 _SetColorEntry BCS L07186C LDA #$0000 L07186C STAL L0B0002 PEI $F4 LDA $F2 CLC ADC #$0003 PHA PEA $0FFF _SetColorEntry BCS L071888 LDA #$0000 L071888 STAL L0B0002 LDA $F2 CLC ADC #$0004 STA $F2 L071894 LDA $F2 SEC SBC #$000F BEQ L071859 BVS L0718A1 EOR #$8000 L0718A1 BPL L071859 INC $F4 L0718A5 LDA $F4 SEC SBC #$0006 BEQ L071855 BVS L0718B2 EOR #$8000 L0718B2 BPL L071855 JSL L0718C4 JSL L0311AA TSC CLC ADC #$000A TCS PLD RTL L0718C4 PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA #L0C0256 LDX #^L0C0256 STX L0B00DF STA L0B00DD LDA #L0C019E LDX #^L0C019E STX L0B00DB STA L0B00D9 JSL L031208 TSC CLC ADC #$0006 TCS PLD RTL L0718F3 ENT PHD TSC SEC SBC #$00FB TCD ADC #$00F4 TCS LDA #L0C00E6 LDX #^L0C00E6 STX L0B00DF STA L0B00DD LDA #L0C002E LDX #^L0C002E STX L0B00DB STA L0B00D9 JSL L031208 TSC CLC ADC #$0006 TCS PLD RTL