* * SynthLAB - MAIN * * (c) 1990, Apple Computer, Inc. * (s) 2023, Antoine Vignau * mx %00 rel lst off *----------------------------------- INCBUSYFLG EQU $E10064 DECBUSYFLG EQU $E10068 GSOS EQU $E100A8 TickCount EQU $E100DC use MAIN.X use 4/Ctl.Macs use 4/Desk.Macs use 4/Dialog.Macs use 4/Event.Macs use 4/Int.Macs use 4/Line.Macs use 4/Load.Macs use 4/Locator.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/MIDI.Macs use 4/MIDISyn.Macs use 4/Misc.Macs use 4/QD.Macs use 4/QDAux.Macs use 4/Sound.Macs use 4/Std.Macs use 4/Text.Macs use 4/Util.Macs use 4/Window.Macs *----------------------------------- JMP L020065 L020003 DW $0000 ; event code L020005 ADRL $00000000 ; event message L020009 ADRL $00000000 ; tick count L02000D DW $0000 ; mouse location L02000F DW $0000 L020011 DW $0000 ; modifiers L020013 DW $0000 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02001B DB $00 DB $00 L02001D DB $00 DB $00 L02001F DB $00 DB $00 L020021 ADRL $00000000 L020025 ADRL $00000000 L020029 DB $00 DB $00 L02002B DW $0000 L02002D DB $00 DB $00 L02002F DA L025500 L020031 DB $00 L020032 DW $0000 ; version number L020034 ADRL L02742C ADRL L02761A ADRL L020064 ADRL L02743F ADRL L02A0F2 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DW $0000 DB $00 DB $00 DB $00 DB $00 L020064 RTL *----------------------------------- L020065 PHK PLB TDC STA L02002B STZ $76 PHK PHK PLA AND #$00FF STA $5E LDA #^L040AE0 STA L02002D JSR L0209BC JSL GSOS DW $002A ; GetVersion ADRL L020032 LDA L020032 AND #$7FFF CMP #$0301 BCS L020099 LDX #L020938 JMP L02910D L020099 PHA PHA _TotalMem PLA PLA AND #$FFF0 BNE L0200AF LDX #L020838 JMP L02910D L0200AF JSL GSOS DW $2009 ; SetPrefix ADRL L02029E PHA _GetIRQEnable LDA $01,S AND #$0020 BEQ L0200CB JSR L02BC14 L0200CB JSR L020A5A PLA AND #$0010 BEQ L0200DA LDX #L020898 JMP L02910D L0200DA PHA PHA PEA $0000 PEA $8000 LDA L02095E PHA PEA $C000 PEA $0000 PEA $0000 _NewHandle PLA STA L020970 PLA STA L020970+2 BCC L020106 LDX #L0208D0 JMP L02910D L020106 LDA L020970 STA $00 LDA L020970+2 STA $02 LDY #$0002 LDA [$00] STA L020025 LDA [$00],Y STA L020025+2 PHA PHA PEA $0000 PEA $2000 LDA L02095E PHA PEA $C000 PEA $0000 PEA $0000 _NewHandle PLA STA $00 PLA STA $02 BCC L020147 LDX #L0208F4 JMP L02910D L020147 LDY #$0002 LDA [$00] STA L0205B1 LDA [$00],Y STA L0205B1+2 JSR L020597 PHA PHA PEA $0002 PEA $0000 LDA L02095E PHA PEA $C004 PEA $0000 PEA $0000 _NewHandle PLA STA L02096C PLA STA L02096C+2 BCC L020183 LDX #L020915 JMP L02910D L020183 LDA L02096C STA $00 LDA L02096C+2 STA $02 LDY #$0002 LDA [$00] STA L027412 STA $3E LDA [$00],Y STA L027414 STA $40 LDA #$FFFF STA [$3E] PHA PHA PEA $0000 PEA $0004 _GetWAP PLA STA L0255B2 PLX CLC ADC #$0100 STA L0255B0 LDA #$0001 STA L027637 STA L027639 JSR L020589 JSR L028BA6 STZ L0212D9 STZ L021270 STZ L0212DF JSR L021272 PEA $0000 PEA $0000 _GetDblTime PLA STA L0275E8 PLA LDA #$0001 STA L02B992 JSR L02B980 LDA #$0000 STA L0210FF LDA #$0004 STA L021103 LDA #$0060 STA L021107 PHA _SetBeat LDA #$0001 STA L021105 PEA $006E _SetTempo LDA #$003C STA L021101 STZ L026A87 STZ L026A85 PEA $0000 PEA $0000 PEA $0000 PEA $0000 _GetMSData PLA STA $70 PLA STA $72 PLA PLA _ShowPen JSR L0292DB JSR L023997 JSR L02B277 JSR L0292E2 _InitCursor PEA ^L020034 PEA L020034 _SetCallBack JSR L0270AD LDA L02001B BEQ L020277 JSR L029633 L020277 JSR L0202B7 L02027A JSR L020D82 SEP #$20 LDAL $E1C034 AND #$F0 ORA L020031 STAL $E1C034 REP #$20 L02028E JSL GSOS DW $0029 ; Quit ADRL L020298 L020298 ADRL $00000000 ; path name DW $0000 ; flags L02029E DW $0002 ; Parms for SetPrefix DW $0000 ; prefix num ADRL L0202A6 ; prefix ptr L0202A6 STRL '0:Seq.and.Instr' L0202B7 LDA #L0202F5 STA $6E PEA $0001 PEA L020354 JSR L02055B STZ L02001F L0202C8 LDA L02001F BNE L0202F4 LDX #$0000 JSR (L02002F,X) JSR L02A100 PEA $0000 PEA $044F PEA ^L020003 PEA L020003 _GetNextEvent PLA LDA L020003 ASL TAX JSR (L0202F5,X) BRA L0202C8 L0202F4 RTS L0202F5 DA L020588 DA L020588 DA L020588 DA L02045C DA L020588 DA L02045C DA L02032F DA L020588 DA L020588 DA L020588 DA L0203B1 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020383 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 L02032F LDA L020005+2 PHA LDA L020005 PHA _BeginUpdate LDA L020005+2 PHA LDA L020005 PHA _EndUpdate LDX #$0000 JSR (L02001D,X) RTS L020354 STZ $10 LDA $50 PHA LDA $4E PHA PEA $0004 JSR L025483 LDA $10 BNE L020382 PHA PEA ^L0203A9 PEA L0203A9 LDA L02000F PHA LDA L02000D PHA _FindWindow PLA ASL TAX JSR (L0202F5,X) L020382 RTS L020383 PEA $0000 PEA ^L0203AD PEA L0203AD LDA L02000F PHA LDA L02000D PHA LDA L020021+2 PHA LDA L020021 PHA _FindControl PLA BNE L0203DD RTS DB $00 DB $00 L0203A9 DB $00 DB $00 DB $00 DB $00 L0203AD DB $00 DB $00 L0203AF DB $00 DB $00 L0203B1 LDA #$0001 STA $76 PEA $0000 PEA $040F PEA ^L020003 PEA L020003 _GetNextEvent PLA STZ $76 SEP #$20 LDAL $E1C034 AND #$F0 ORA #$0A STAL $E1C034 REP #$20 RTS L0203DD PHA LDA L02000F PHA LDA L02000D PHA PEA $FFFF PEA $FFFF LDA L0203AF PHA LDA L0203AD PHA _TrackControl PLA BNE L0203FF RTS L0203FF PHA PHA LDA L0203AF PHA LDA L0203AD PHA _GetCtlRefCon PLA PLX DEC ASL TAX JSR (L020419,X) RTS L020419 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 LDA L020021+2 PHA LDA L020021 PHA _KillControls RTS LDA #$000F STA L020029 L02044F LDA L020029 PHA JSR L02057C DEC L020029 BPL L02044F RTS L02045C LDA L020011 AND #$0100 BEQ L02046D LDA L020005 AND #$00FF JSR L02954D L02046D RTS L02046E STA L020013 SEC SBC #$00FA ASL TAX JSR (L02047B,X) RTS L02047B DA L020588 DA L020588 DA L020588 DA L029876 DA L020588 DA L020588 DA L02B250 DA L020519 DA L0282AB DA L020588 DA L02855C DA L027883 DA L028761 DA L028813 DA L0266E8 DA L028AAB DA L026233 DA L020520 L02049F DA L025C3B DA L02A192 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L0294D3 DA L02BE2D DA L029752 DA L0297B6 DA L0297EC DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L02951E DA L02951E DA L02951E DA L02951E DA L02951E DA L02951E DA L02951E DA L02951E DA L025EB7 DA L02B866 DA L020588 DA L0257A7 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 DA L020588 L020519 LDA #$8000 STA L02001F RTS L020520 _KillAllNotes RTS L020528 PHA PHA PEA ^L020DF2 PEA L020DF2 _NewWindow PLA STA L020021 PLA STA L020021+2 LDA L020021+2 PHA LDA L020021 PHA _SetPort RTS L02054F RTL L020550 PLX PLA PHX ASL TAX LDA L0202F5,X STA $03,S RTS L02055B PLX PLY PLA PHX ASL TAX TYA TXY STA ($6E),Y L020565 RTS PLX PLA PHX ASL TAY LDA #L020565 STA ($6E),Y RTS PLX PLY PLA PHX ASL TAX TYA STA L020419,X RTS L02057C PLX PLA PHX ASL TAX LDA #L020565 STA L020419,X RTS L020588 RTS L020589 PEA $0000 PEA $0000 _SetMIDIPort RTS L020597 LDA L0205B1 STA $3E LDA L0205B1+2 STA $40 LDY #$0000 LDA #$FFFF L0205A7 STA [$3E],Y INY INY CPY #$2000 BNE L0205A7 RTS L0205B1 ADRL $00000000 L0205B5 JSL INCBUSYFLG JSR L02B20D _HideCursor LDA #$28C0 STA $16 LDAL L020966 STA $18 LDA L020025 STA $1C LDA L020025+2 STA $1E LDA #$00A0 STA $2E STA $20 LDA #$00BA STA $2C LDA #$00A0 STA $1A JSR L025501 _ShowCursor RTS L0205F4 _HideCursor LDA #$28C0 STA $1C LDAL L020966 STA $1E LDA L020025 STA $16 LDA L020025+2 STA $18 LDA #$00A0 STA $2E STA $1A LDA #$00BA STA $2C LDA #$00A0 STA $20 JSR L025501 _ShowCursor JSR L02B226 JSL DECBUSYFLG RTS L020633 JSR L02B20D _HideCursor LDA #$2000 STA $16 LDAL L020966 STA $18 LDA L020025 STA $1C LDA L020025+2 STA $1E LDA #$00A0 STA $2E STA $20 LDA #$00C8 STA $2C LDA #$00A0 STA $1A JSR L025501 _ShowCursor RTS L02066E _HideCursor LDA #$2000 STA $1C LDAL L020966 STA $1E LDA L020025 STA $16 LDA L020025+2 STA $18 LDA #$00A0 STA $2E STA $1A LDA #$00C8 STA $2C LDA #$00A0 STA $20 JSR L025501 _ShowCursor JSR L02B226 RTS L0206A9 LDAL L020966 STA $1E LDA #$2992 STA $30 LDA #$006E STA $2E LDA #$0022 STA $2C LDA #$FFFF STA $32 JSR L0213AA LDA #$3EA0 STA $30 LDA #$00A0 STA $2E LDA #$0097 STA $2C LDA #$FFFF STA $32 JSR L0213AA RTS L0206DE LDAL L020966 STA $1E LDA #$2000 STA $30 LDA #$00A0 STA $2E LDA #$00C8 STA $2C LDA #$FFFF STA $32 JSR L0213AA RTS L0206FC LDAL L020966 STA $1E LDA #$2820 STA $30 LDA #$00A0 STA $2E LDA #$00BB STA $2C LDA #$FFFF STA $32 JSR L0213AA RTS JSR L020729 JMP L02028E L020720 JSR L020729 JSR L020D82 JMP L02028E L020729 STX L020836 PEA $0000 PEA $0000 PEA $0003 _SetOutputDevice PEA $007F PEA $0080 _SetOutGlobals PEA $0001 _InitTextDev SEP #$20 LDAL $E0C029 AND #$7F STAL $E0C029 REP #$20 JSR L020819 JSR L020820 BRA L020786 L020769 STR 'Sorry, can'27't start synthLAB.' L020786 PEA ^L020769 PEA L020769 _WriteLine JSR L02080E JSR L020820 BRA L0207A0 L02079B STR '--> ' L0207A0 PEA ^L02079B PEA L02079B _WriteString LDA $5E PHA LDA L020836 PHA _WriteLine JSR L02080E JSR L020819 JSR L020820 BRA L0207F1 L0207C6 STR 'Press any key to return back to Finder....' L0207F1 PEA ^L0207C6 PEA L0207C6 _WriteLine CLI PEA $0000 PEA $0001 _ReadChar PLA RTS L02080E PEA $000D _WriteChar RTS L020819 JSR L02080E JSR L02080E RTS L020820 BRA L020828 L020822 STR ' ' L020828 PEA ^L020822 PEA L020822 _WriteString RTS L020836 DW $0000 L020838 STR 'System needs at least 1 MEG of memory.' STR 'Not enough free memory available.' STR 'Serial ports are busy.' L020898 STR '1 second IRQs must be OFF' STR 'AppleTalk must be turned OFF.' L0208D0 STR 'Memory is too fragmented. (Scratch)' L0208F4 STR 'Memory is too fragmented. (List)' L020915 STR 'Memory is too fragmented. (SeqBuf)' L020938 STR 'GS/OS must be version 3.01 or greater' L02095E DW $0000 DB $00 DB $00 L020962 DB $00 DB $00 L020964 DB $00 DB $00 L020966 DB $00 DB $00 L020968 ADRL $00000000 L02096C ADRL $00000000 L020970 ADRL $00000000 L020974 DW $0000 DW $0080 DW $0000 DW $0000 DW $0000 DW $000D ; number of tools DW $0003 ; misc tool set DW $0300 DW $0004 ; quickdraw II DW $0301 DW $0006 ; event manager DW $0300 DW $0008 ; sound tool set DW $0300 DW $000B ; int math tool set DW $0300 DW $000E ; window manager DW $0301 DW $000F ; menu manager DW $0301 DW $0010 ; control manager DW $0301 DW $0012 ; quickdraw II aux DW $0301 DW $0014 ; lineedit tool set DW $0301 DW $0015 ; dialog manager DW $0302 DW $0017 ; std file tool set DW $0301 DW $001C ; list manager DW $0301 L0209B4 BCS L0209B7 RTS L0209B7 PLA PLA JMP L020720 L0209BC _TLStartUp PHA _MMStartUp PLA ORA #$0100 STA L02095E _MTStartUp PHA PHA LDA L02095E PHA PEA $0000 PEA ^L020974 PEA L020974 _StartUpTools TAX PLA STA L020968 PLA STA L020968+2 TXA LDX #L020D5A JSR L0209B4 _HideMenuBar PHA PHA _GetPort PHD TSC TCD LDY #$0004 LDA [$03],Y AND #$00FF STAL L020966 PLD PLA STA L020962 PLA STA L020964 PEA $0000 PEA ^L020F55 PEA L020F55 _SetColorTable JSR L020528 JSL L030000 SEP #$20 LDAL $E1C034 STA L020031 AND #$F0 ORA #$0A STAL $E1C034 LDA L020031 AND #$0F STA L020031 REP #$20 RTS L020A5A SEI JSR L020A81 BCC L020A67 PLA LDX #L020CE1 JMP L02910D L020A67 _MSStartUp BCC L020A77 PLA LDX #L020CBD JMP L02910D L020A77 LDA L02001B BNE L020A7F JSR L020ACE L020A7F CLI RTS L020A81 STZ L020C27 PEA $0023 PEA $0000 _LoadOneTool BCC L020ACD PHA PHA PHA PHA PHA * PEA $0FB7 pea $0000 ; 202303 - Ask for a userID PEA ^L020C46 PEA L020C46 PEA $0001 _InitialLoad PLA sta userID ; 202303 - Assigned userID PLA STA L020C26 PLA STA L020C28 PLA PLA BCS L020ACD PEA $0000 PEA $0023 LDA L020C28 PHA LDA L020C26 PHA _SetTSPtr L020ACD RTS userID ds 2 ; 202303 - Room for the userID L020ACE JSL GSOS DW $0010 ; Open ADRL L020BE7 BCC L020ADD BRL L020B62 L020ADD LDA L020BE7 STA L020BF1 STA L020BFF JSL GSOS DW $0012 ; Read ADRL L020BF1 BCC L020AF5 BRL L020B62 L020AF5 JSL GSOS DW $0014 ; Close ADRL L020BFF SEP #$30 LDA L020C05 TAX CLC ADC L020C50 STA L020C50 L020B0C DEX BMI L020B17 LDA L020C06,X STA L020C62,X BRA L020B0C L020B17 REP #$30 PHA PHA PHA PHA PHA LDA L02095E PHA PEA ^L020C50 PEA L020C50 PEA $0001 _InitialLoad PLA PLA STA L020C83 PLA STA L020C85 PLA PLA BCS L020B7B LDA L020C03 PHA LDA L020C01 PHA LDA L02095E PHA LDA L020C85 PHA LDA L020C83 PHA _InitMIDIDriver BCS L020B80 LDA #$FFFF STA $7A RTS L020B62 JSL GSOS DW $0014 ; Close ADRL L020BFF LDA #L020B85 L020B6F STA L02BA61 STZ $7A LDA #L02BACA STA L02049F RTS L020B7B LDA #L020BA3 BRA L020B6F L020B80 LDA #L020BC4 BRA L020B6F L020B85 STR 'Can'D5't find 'D2'Midi.Setup'D3' file.' L020BA3 STR 'Can'D5't find the MIDI driver file.' L020BC4 STR 'Error in starting the MIDI driver.' L020BE7 DW $0000 ; ref num ADRL L020C2A ; path name ADRL $00000000 ; reserved L020BF1 DW $0000 ; ref num ADRL L020C01 ; buffer ptr ADRL $00000025 ; request count ADRL $00000000 ; transfer count L020BFF DW $0000 ; ref num L020C01 DB $00 DB $00 L020C03 DB $00 DB $00 L020C05 DB $00 L020C06 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L020C26 DB $00 L020C27 DB $00 L020C28 DB $00 DB $00 L020C2A STR '*/System/Drivers/MIDI.Setup' L020C46 STR '9/Tool035' L020C50 STR '*/System/Drivers/' L020C62 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L020C83 DB $00 DB $00 L020C85 DB $00 DB $00 STR 'Initializing SynthLAB...' STR 'Sound Manager startup ERROR.' L020CBD STR 'MIDI Synth (Tool035) startup ERROR.' L020CE1 STR 'Can'D5't find MIDI Synth (Tool035).' STR 'ProDOS Error #0000.' STR 'Tool00 not found in Tools Dir.' STR 'Can'D5't find -Apple.Midi- driver file.' L020D5A STR 'Error occurred while starting up tools.' L020D82 JSL L030033 _MSShutDown LDA L020C27 BEQ L020DA1 PHA * PEA $4023 lda userID ; 202303 - Shutdown assigned userID pha PEA $0000 _UserShutDown PLA L020DA1 _HideMenuBar _ShowMenuBar PEA $0000 LDA L020968+2 PHA LDA L020968 PHA _ShutDownTools LDA L020970+2 PHA LDA L020970 PHA _DisposeHandle LDA L02096C+2 PHA LDA L02096C PHA _DisposeHandle LDA L02095E PHA _MMShutDown _TLShutDown RTS L020DF2 DW $004E DW $0020 ; frame bits ADRL L020E40 ; title ptr ADRL $00000000 ; refcon DW $0000 ; zoom rect DW $0000 DW $0000 DW $0000 ADRL L020E4D ; color table ptr DW $0000 ; origin DW $0000 DW $0000 ; data size DW $0000 DW $00C8 ; max size DW $0280 DW $0000 ; scroll size DW $0000 DW $0000 ; page size DW $0000 ADRL $00000000 ; info bar refcon DW $0000 ; info bar hite ADRL $00000000 ; window defproc ADRL $00000000 ; info bar defproc ADRL L02054F ; content defproc DW $0000 ; content rect DW $0000 DW $00C8 DW $0280 ADRL $FFFFFFFF ; starting plane ADRL $00000000 ; storage ptr L020E40 STR ' Synth Edit ' L020E4D DB $00 DB $00 DB $00 DB $0F DB $09 DB $02 DB $00 DB $00 DB $00 DB $00 DB $DF DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $DF DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $DF DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $DF DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $89 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $89 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $89 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $89 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $79 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $79 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $79 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $79 DB $05 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $68 DB $04 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $68 DB $04 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $68 DB $04 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $68 DB $04 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $78 DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $78 DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $78 DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $78 DB $0A DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $8A DB $07 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $8A DB $07 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $8A DB $07 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $8A DB $07 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $9A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $9A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $9A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $9A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $7A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $7A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $7A DB $00 DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $7A DB $00 DB $FF DB $0F DB $AA DB $0A L020F55 DB $00 DB $00 DB $DB DB $0E DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $DB DB $0E DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $DB DB $0E DB $FF DB $0F DB $AA DB $0A DB $00 DB $00 DB $DB DB $0E DB $FF DB $0F DB $AA DB $0A L020F75 DB $D2 DB $01 L020F77 DB $4D DB $53 L020F79 DB $45 DB $51 L020F7B DB $00 DB $01 L020F7D DB $D2 DB $01 STR 'SynthLAB' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L020F8F STR 'Synth.bnk' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L020F9F STR 'Track 1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 3' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 4' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 6' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 7' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 8' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 9' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 10' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 11' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 12' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 13' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 14' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 15' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Track 16' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02109F HEX 7F007F007F007F007F007F007F007F00 HEX 7F007F007F007F007F007F007F007F00 L0210BF HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF L0210DF HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 L0210FF DW $0000 L021101 DW $003C L021103 DW $0001 L021105 DW $0000 L021107 DW $0060 L021109 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L021149 LDA #$000F STA L0211C2 L02114F PEA $0000 PEA $0002 LDA #$00B0 ORA L0211C2 PHA LDA #$0007 PHA LDA L0211C2 ASL TAX LDA L02109F,X PHA _MIDIMessage LDA L0211C2 PHA ASL TAX LDA L0210BF,X PHA _TrackToChannel LDA L0211C2 PHA ASL TAX LDA L0210DF,X PHA _SetPlayTrack LDA L0211C2 PHA ASL TAX LDA L021109,X PHA _SetTrackOut DEC L0211C2 BPL L02114F LDA L0210FF PHA _SetRecTrack JSR L027153 LDA L021107 PHA _SetBeat RTS L0211C2 DB $00 DB $00 L0211C4 DB $00 DB $00 L0211C6 DB $00 DB $00 L0211C8 DB $00 DB $00 L0211CA DB $00 DB $00 L0211CC DB $00 DB $00 L0211CE DB $00 DB $00 L0211D0 DB $00 DB $00 L0211D2 DB $00 DB $00 L0211D4 LDY #$0010 LDA ($00),Y CMP L02121F BNE L0211DF RTS L0211DF STA L02121F LDA $00 PHA LDA L021221 STA $00 LDX #$0000 JSR L0212F6 PLA STA $00 STA L021221 JSR L0212E1 LDA L02121F ASL TAX JSR (L021202,X) RTS L021202 DA L0270AD DA L027CC1 DA L028CB4 L021208 LDY #$0010 LDA ($00),Y CMP L02121F BNE L02121B JSR L0212E1 LDA $00 STA L021221 RTS L02121B JSR L0212F6 RTS L02121F DW $0000 L021221 DW $0000 L021223 LDY #$0010 LDA ($00),Y CMP L021270 BNE L02122E RTS L02122E STA L021270 LDA $00 PHA LDA L02126E STA $00 JSR L0212F6 PLA STA $00 STA L02126E JSR L0212E1 JSR L021272 LDX #$0000 JSR (L02126C,X) RTS L02124F LDY #$0010 LDA ($00),Y CMP L021270 BNE L021265 JSR L0212E1 LDA $00 STA L02126E JSR L021272 RTS L021265 JSR L0212F6 JSR L021272 RTS L02126C DW $0000 L02126E DW $0000 L021270 DW $0000 L021272 PEA $0000 LDA L0212DF ASL PHA PEA $0090 JSR L021342 PLA CLC ADC #L022797 STA $3A STA $54 CLC ADC #$0090 STA $56 LDX L021270 BNE L021296 LDA $54 L021296 STA $3A ADC #$0010 STA $3C STA $52 LDA L0212D9 ASL ASL ASL ASL CLC ADC $52 STA $3C LDA $54 ADC #$0010 STA $78 RTS L0212B3 CMP L0212D9 BEQ L0212D8 STA L0212D9 ASL ASL ASL ASL CLC ADC $52 STA $3C LDA L02126C CMP #L027D0E BNE L0212D8 LDA $50 PHA LDA $4E PHA PEA $0000 JSR L025483 L0212D8 RTS L0212D9 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0212DF DB $00 DB $00 L0212E1 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$0006 LDA [$6A],Y BRA L021309 L0212F6 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$0004 LDA [$6A],Y L021309 STA $16 LDA L02002D STA $18 LDY #$0002 LDA [$6A],Y LSR LSR STA $2E STA $1A LDY #$0000 LDA [$6A],Y STA $2C LDY #$0006 LDA ($00),Y STA $06 LDY #$0004 LDA ($00),Y STA $04 _HideCursor JSR L0254E3 _ShowCursor RTS L021342 PLX PLA STA $4A PLA STA $46 PLA STA $42 L02134C LDA $46 BEQ L021363 LSR STA $46 BCC L02135C LDA $42 CLC ADC $4A STA $42 L02135C LDA $4A ASL STA $4A BRA L02134C L021363 PEI $42 PHX RTS STA $00 ASL ASL ASL ASL ORA $00 SEP #$20 LDX #$0020 L021374 STA L021389,X DEX BNE L021374 REP #$20 PEA ^L02138A PEA L02138A _SetPenPat L021389 RTS L02138A HEX 05050505050505050505050505050505 HEX 05050505050505050505050505050505 L0213AA PEA $0000 BRA L0213BC PEA $0002 BRA L0213BC PEA $0004 BRA L0213BC PEA $0006 L0213BC _HideCursor PLX LDA $30 STA $36 LDAL L020966 STA $38 BRA L0213D8 L0213D0 LDA $36 CLC ADC #$00A0 STA $36 L0213D8 LDY $2E DEY DEY BMI L0213E1 JSR (L0213ED,X) L0213E1 DEC $2C BNE L0213D0 _ShowCursor RTS L0213ED DA L0213F5 DA L0213FE DA L021409 DA L021414 L0213F5 LDA $32 L0213F7 STA [$36],Y DEY DEY BPL L0213F7 RTS L0213FE LDA [$36],Y EOR $32 STA [$36],Y DEY DEY BPL L0213FE RTS L021409 LDA [$36],Y ORA $32 STA [$36],Y DEY DEY BPL L021409 RTS L021414 LDA [$36],Y AND $32 STA [$36],Y DEY DEY BPL L021414 RTS L02141F DB $F0 DB $0F DB $CF DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $3F DB $00 DB $FF DB $00 DB $00 DB $F0 DB $FF DB $00 DB $FF DB $F0 DB $FF DB $F0 DB $FF DB $F0 DB $FF DB $F0 DB $FF DB $00 DB $0F DB $00 DB $00 DB $C0 DB $3F DB $0F DB $0F DB $FF DB $0F DB $FC DB $3F DB $F0 DB $FF DB $C3 DB $FF DB $00 DB $0F DB $00 DB $00 DB $C0 DB $3F DB $0F DB $0F DB $FF DB $0F DB $F0 DB $3F DB $FF DB $0F DB $0F DB $0F DB $C0 DB $3F DB $00 DB $00 DB $0F DB $FF DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $00 DB $0F DB $FF DB $0F DB $FF DB $0F DB $00 DB $00 DB $00 DB $3F DB $0F DB $FF DB $00 DB $3F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $C0 DB $3F DB $00 DB $00 DB $C0 DB $3F DB $0F DB $FF DB $00 DB $3F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $C0 DB $3F DB $00 DB $00 DB $00 DB $0F DB $FF DB $0F DB $FC DB $3F DB $F0 DB $FF DB $F0 DB $FF DB $C3 DB $FF DB $C3 DB $FF DB $00 DB $00 DB $C0 DB $3F DB $0F DB $0F DB $0F DB $0F DB $C0 DB $3F DB $0F DB $0F DB $0F DB $0F DB $C0 DB $3F DB $00 DB $00 DB $C0 DB $3F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $C0 DB $0F DB $FF DB $0F DB $C0 DB $3F DB $00 DB $00 DB $C0 DB $3F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $00 DB $0F DB $0F DB $0F DB $0F DB $0F DB $00 DB $00 DB $00 DB $3F DB $0F DB $0F DB $0F DB $0F DB $00 DB $3F DB $0F DB $0F DB $0F DB $0F DB $00 DB $3F DB $00 DB $00 DB $C0 DB $3F DB $0F DB $0F DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $0F DB $C0 DB $3F DB $00 DB $00 DB $00 DB $3F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $0F DB $00 DB $3F DB $00 DB $00 DB $00 DB $3F DB $0F DB $FF DB $0F DB $FF DB $00 DB $FF DB $0F DB $FF DB $0F DB $FF DB $00 DB $3F DB $00 DB $00 DB $00 DB $3F DB $0F DB $FF DB $0F DB $FF DB $00 DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $00 DB $00 L02151F DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $FF DB $00 DB $00 L02152F DB $00 DB $00 DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $0F DB $FF DB $2A DB $AA L021549 DB $00 DB $02 DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $FF DB $FA DB $AA DB $AA L021563 DW $0000 DW $0001 DW $0002 DW $0003 DW $0004 DW $0005 DW $0006 DW $0007 DW $0008 DW $0009 DW $0010 DW $0011 DW $0012 DW $0013 DW $0014 DW $0015 DW $0016 DW $0017 DW $0018 DW $0019 DW $0020 DW $0021 DW $0022 DW $0023 DW $0024 DW $0025 DW $0026 DW $0027 DW $0028 DW $0029 DW $0030 DW $0031 DW $0032 DW $0033 DW $0034 DW $0035 DW $0036 DW $0037 DW $0038 DW $0039 DW $0040 DW $0041 DW $0042 DW $0043 DW $0044 DW $0045 DW $0046 DW $0047 DW $0048 DW $0049 DW $0050 DW $0051 DW $0052 DW $0053 DW $0054 DW $0055 DW $0056 DW $0057 DW $0058 DW $0059 DW $0060 DW $0061 DW $0062 DW $0063 DW $0064 DW $0065 DW $0066 DW $0067 DW $0068 DW $0069 DW $0070 DW $0071 DW $0072 DW $0073 DW $0074 DW $0075 DW $0076 DW $0077 DW $0078 DW $0079 DW $0080 DW $0081 DW $0082 DW $0083 DW $0084 DW $0085 DW $0086 DW $0087 DW $0088 DW $0089 DW $0090 DW $0091 DW $0092 DW $0093 DW $0094 DW $0095 DW $0096 DW $0097 DW $0098 DW $0099 L02162B PHA LDY #$0012 LDA ($00),Y STA $1C LDA #L02152F JSR L02165A PLA PHA AND #$00F0 BNE L021645 JSR L021691 BRA L021648 L021645 JSR L021696 L021648 PLA ASL ASL ASL ASL AND #$00F0 JSR L021696 LDA #L021549 JSR L02165A RTS L02165A STA $16 LDA $1C STA $3E LDAL L020966 STA $40 LDX #$000D LDY #$0000 L02166C LDA ($16),Y STA [$3E] LDA $3E CLC ADC #$00A0 STA $3E INY INY DEX BNE L02166C BRA L02168C L02167F LDA $3E CLC ADC #$00A0 STA $3E LDA #$AAAA STA [$3E] L02168C INC $1C INC $1C RTS L021691 LDA #L02151F BRA L02169A L021696 CLC ADC #L02141F L02169A STA $16 LDA $1C STA $3E LDAL L020966 STA $40 LDA #$0000 STA [$3E] JSR L0216CA LDX #$0007 LDY #$0000 L0216B4 LDA $3E CLC ADC #$00A0 STA $3E LDA ($16),Y STA [$3E] INY INY DEX BNE L0216B4 JSR L0216CA BRA L02167F L0216CA LDA $3E CLC ADC #$00A0 STA $3E LDA #$FFFF STA [$3E] LDA $3E CLC ADC #$00A0 STA $3E LDA #$FFFF STA [$3E] RTS DW $0000 DW $0006 DW $000C DW $0012 DW $0018 DW $001E DW $0024 DW $002A DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L021701 DW $0000 L021703 DW $0000 L021705 DW $0000 L021707 STZ L021703 LDA L027639 STA L021701 L021710 CMP #$0063 BCC L021723 BEQ L021723 INC L021703 SEC SBC #$0064 STA L021701 BRA L021710 L021723 ASL TAX LDA L021563,X STA L021701 LDA #$494D STA L021705 LDA L021703 BNE L021746 JSR L021788 LDA L021701 AND #$00F0 BNE L02174F JSR L021788 BRA L021756 L021746 JSR L0217AC LDA L021701 AND #$00F0 L02174F LSR LSR LSR LSR JSR L0217AC L021756 LDA L021701 AND #$000F JSR L0217AC JSR L0217A7 LDA L027637 ASL TAX LDA L021563,X STA L021701 AND #$00F0 BNE L021777 JSR L021788 BRA L02177E L021777 LSR LSR LSR LSR JSR L0217AC L02177E LDA L021701 AND #$000F JSR L0217AC RTS L021788 LDAL L020966 STA $1E LDA L021705 STA $30 LDA #$0004 STA $2E LDA #$0009 STA $2C LDA #$FFFF STA $32 JSR L0213AA BRA L0217D8 L0217A7 LDA #L043D6A BRA L0217B2 L0217AC ASL TAX LDAL L043BEE,X L0217B2 STA $16 LDA L02002D STA $18 LDA #$0004 STA $2E STA $1A LDA #$0009 STA $2C LDA L021705 STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 JSR L025501 L0217D8 LDA L021705 CLC ADC #$0004 STA L021705 RTS L0217E3 DW $0005 DW $0000 DW $0018 DW $0014 DA L0211D4 DA L021208 ADRL L042846 DW $0000 L0217F5 DW $0005 DW $0000 DW $0018 DW $004C DA L0211D4 DA L021208 ADRL L04284E DW $0001 L021807 DW $0005 DW $0000 DW $0018 DW $0084 DA L0211D4 DA L021208 ADRL L042856 DW $0002 L021819 DW $0005 DW $0000 DW $0064 DW $0054 DA L021223 DA L02124F ADRL L04303E DW $0000 L02182B DW $0005 DW $0000 DW $0064 DW $0084 DA L021223 DA L02124F ADRL L043046 DW $0001 L02183D DW $0000 L02183F ADRL $00000000 L021843 DB $00 DB $00 DB $00 DB $00 L021847 DB $00 DB $00 L021849 DB $00 DB $00 L02184B DB $00 DB $00 DB $00 DB $00 L02184F DW $0000 L021851 DW $0000 L021853 ADRL $00000000 L021857 DW $0000 L021859 DW $0000 L02185B DW $0000 L02185D DA L025500 L02185F STZ L02183D L021862 LDA L02183D BNE L0218A4 JSR L02A100 STZ $76 PEA $0000 PEA $044F PEA ^L020003 PEA L020003 _GetNextEvent PLA LDA L020003 ASL TAX JSR (L0218A8,X) LDX #$0000 JSR (L02185D,X) LDA L021851 BEQ L021862 LDA L021853+2 PHA LDA L021853 PHA _LEIdle BRA L021862 L0218A4 STZ L0218F2 RTS L0218A8 DA L025500 DA L0218F4 DA L025500 DA L02198C DA L025500 DA L02198C DA L0218C8 DA L025500 DA L025500 DA L025500 DA L0203B1 DA L025500 DA L025500 DA L025500 DA L025500 DA L025500 L0218C8 LDA L020005+2 PHA LDA L020005 PHA _BeginUpdate LDA L020005+2 PHA LDA L020005 PHA _EndUpdate LDA L0218F2 BEQ L0218F1 LDX #$0000 JSR (L0218F2,X) L0218F1 RTS L0218F2 DA $0000 L0218F4 PHA PEA ^L021843 PEA L021843 LDA L02000F PHA LDA L02000D PHA _FindWindow PLA STA L02184F STZ $10 LDA $50 PHA LDA $4E PHA PEA $0004 JSR L025483 LDA $10 BEQ L021921 RTS L021921 PEA $0000 PEA ^L02184B PEA L02184B LDA L02000F PHA LDA L02000D PHA LDA L02183F+2 PHA LDA L02183F PHA _FindControl PLA STA L021857 BNE L02194A JSR L02194B L02194A RTS L02194B LDA L021851 BEQ L02198B LDA L02185B STA $42 LDY #$0000 LDA ($42),Y STA $08 LDY #$0004 LDA ($42),Y STA $0C LDY #$0002 LDA ($42),Y STA $0A LDY #$0006 LDA ($42),Y STA $0E JSR L02555A BCC L02198B PEA ^L020003 PEA L020003 LDA L021853+2 PHA LDA L021853 PHA _LEClick L02198B RTS L02198C LDA L020011 AND #$0100 BNE L0219A8 LDA L020005 AND #$00FF CMP #$000D BNE L0219A8 LDX #$0000 JSR (L0219F8,X) JMP L0219F7 L0219A8 LDA L021851 BNE L0219B0 JMP L0219F7 L0219B0 LDA L020011 AND #$0100 BNE L0219CA LDA L020005 AND #$00FF CMP #$007F BEQ L0219C5 BCS L0219DA L0219C5 CMP #$0020 BCS L0219DD L0219CA LDA L020005 AND #$00FF CMP #$0008 BEQ L0219DD CMP #$0015 BEQ L0219DD L0219DA BRL L0219F7 L0219DD LDA L020005 AND #$00FF PHA LDA L020011 PHA LDA L021853+2 PHA LDA L021853 PHA _LEKey L0219F7 RTS L0219F8 DA L021AC7 L0219FA LDA $50 STA L021849 LDA $4E STA L021847 LDA $00 STA L021859 RTS L021A0A LDA L021849 STA $50 LDA L021847 STA $4E LDA L021859 STA $00 RTS L021A1A STA $3E LDY #$0006 L021A1F LDA ($3E),Y STA L021AB9,Y STA L021AB1,Y DEY DEY BPL L021A1F PEA $0003 _SetSolidPenPat PEA ^L021AB1 PEA L021AB1 _PaintRect PEA $0000 _SetSolidPenPat PEA $0003 PEA $0001 _SetPenSize PEA ^L021AB1 PEA L021AB1 _FrameRect PEA $0005 PEA $0002 _SetPenSize PEA ^L021AB9 PEA L021AB9 PEA $0008 PEA $0003 _InsetRect PEA ^L021AB9 PEA L021AB9 _FrameRect PEA $0001 PEA $0001 _SetPenSize LDA $6E STA L021AC1 LDA #L0218A8 STA $6E RTS L021AAB LDA L021AC1 STA $6E RTS L021AB1 DW $0000 DW $0000 DW $0000 DW $0000 L021AB9 DW $0000 DW $0000 DW $0000 DW $0000 L021AC1 DW $0000 L021AC3 DW $0000 L021AC5 DW $0000 L021AC7 LDA L021AC5 STA $00 JSR L021AD6 JSR L021B04 JSR L021AEC RTS L021AD6 JSR L0212E1 LDA #$FFFF STA L021AC3 RTS L021AE0 JSR L0212F6 STZ L021AC3 LDA $00 STA L021AC5 RTS L021AEC LDA L021AC3 STA L02183D RTS L021AF3 JSR L025353 BCS L021AFE LDA L021AC3 BNE L021AE0 RTS L021AFE LDA L021AC3 BEQ L021AD6 RTS L021B04 PHA PHA _GetTick PLA CLC ADC #$0014 STA L021B38 PLA ADC #$0000 STA L021B3A L021B1C PHA PHA _GetTick PLA STA L021B3C PLA CMP L021B3A BCC L021B1C LDA L021B3C CMP L021B38 BCC L021B1C RTS L021B38 DW $0000 L021B3A DW $0000 L021B3C DW $0000 L021B3E DW $0000 L021B40 DW $0000 L021B42 LDA L021B40 STA $00 JSR L021B51 JSR L021B04 JSR L021B67 RTS L021B51 JSR L0212E1 LDA #$FFFF STA L021B3E RTS L021B5B JSR L0212F6 STZ L021B3E LDA $00 STA L021B40 RTS L021B67 LDA L021B3E STA L02183D RTS L021B6E JSR L025353 BCS L021B79 LDA L021B3E BNE L021B5B RTS L021B79 LDA L021B3E BEQ L021B51 RTS L021B7F DW $0000 L021B81 DW $0000 LDA L021B81 STA $00 JSR L021B92 JSR L021B04 JSR L021BA8 RTS L021B92 JSR L0212E1 LDA #$FFFF STA L021B7F RTS L021B9C JSR L0212F6 STZ L021B7F LDA $00 STA L021B81 RTS L021BA8 LDA L021B7F STA L02183D RTS L021BAF JSR L025353 BCS L021BBA LDA L021B7F BNE L021B9C RTS L021BBA LDA L021B7F BEQ L021B92 RTS L021BC0 LDA $14 CMP #$0000 BNE L021BC9 BRA L021BD3 L021BC9 CMP #$0004 BNE L021BD1 JMP L021BF3 L021BD1 CLC RTS L021BD3 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$000A LDA ($00),Y BEQ L021BF1 STA L021C7A LDX #$0000 JSR (L021C7A,X) L021BF1 CLC RTS L021BF3 JSR L025353 BCS L021BF9 RTS L021BF9 INC $10 PEA L021C16 PEA L021C25 JSR L021C37 LDY #$0008 LDA ($00),Y BEQ L021C14 STA L021C7A LDX #$0000 JSR (L021C7A,X) L021C14 SEC RTS L021C16 LDY #$0010 LDA ($00),Y STA L021C7A LDX #$0000 JSR (L021C7A,X) RTS L021C25 LDY #$0012 LDA ($00),Y STA L021C7A LDX #$0000 JSR (L021C7A,X) JSR L021C65 RTS L021C37 PEA $0000 PEA $0000 JSR L021C86 PLA STA L021C7E PEA $0000 PEA $0002 JSR L021C86 PLA STA L021C82 PLX PLY PLA PHX PEA $0002 PHY PEA $0000 PHA JSR L021C91 JSR L021C91 SEC RTS L021C65 PEA $0000 LDA L021C7E PHA JSR L021C91 PEA $0002 LDA L021C82 PHA JSR L021C91 RTS L021C7A DA $0000 DA $0000 L021C7E DA $0000 DA $0000 L021C82 DA $0000 DA $0000 L021C86 PLX PLA PHX ASL TAX LDA L0218A8,X STA $03,S RTS L021C91 PLX PLY PLA PHX ASL TAX TYA STA L0218A8,X RTS L021C9C PHB PHD PHK PLB LDA L02002B TCD LDA $07,S STA $3E LDA $09,S STA $40 LDY #$0002 LDA [$3E] STA $66 LDA [$3E],Y STA $68 LDA $0F,S STA L021CE9 LDA $0B,S STA L021CEB LDA $0D,S STA L021CED STZ L021CEF STZ L021CF1 JSR L021CF3 LDA L021CEF STA $11,S LDA L021CF1 STA $13,S PLD PLB LDA $02,S STA $0C,S PLA STA $09,S TSC CLC ADC #$0008 TCS RTL L021CE9 DW $0000 L021CEB DW $0000 L021CED DW $0000 L021CEF DW $0000 L021CF1 DW $0000 L021CF3 LDA L021CE9 CMP #$000D BCS L021D1D ASL TAX LDAL L021D03,X PHA RTS L021D03 DA L021D2E DA L021D1B+1 DA L021D27 DA L021D26 DA L021D1D+1 DA L021D2E DA L021D1B+1 DA L021D1B+1 DA L021D1B+1 DA L021D2E DA L021D1B+1 DA L021D1B+1 L021D1B DA L021D1F L021D1D DW $0000 L021D1F RTS LDA #$0028 STA L021CEF L021D26 RTS L021D27 RTS LDA #$0002 STA L021CEF L021D2E RTS LDY #$0008 LDA [$66],Y STA L021DB7 INY INY LDA [$66],Y STA L021DB9 PEA ^L021DB7 PEA L021DB7 _LocalToGlobal LDY #$001C LDA [$66],Y STA $6A INY INY LDA [$66],Y STA $6C STZ L021DBB LDY #$0011 LDA [$66],Y LDY #$0004 AND #$00FF BEQ L021D78 CMP #$00FF BNE L021D72 LDY #$0008 BRA L021D78 L021D72 LDY #$0006 STY L021DBB L021D78 LDA [$6A],Y STA $16 LDA L02002D STA $18 LDY #$0002 LDA [$6A],Y LSR LSR STA $2E STA $1A LDY #$0000 LDA [$6A],Y STA $2C LDA L021DB9 STA $06 LDA L021DB7 STA $04 _HideCursor JSR L0254E3 _ShowCursor LDA L021DBB BEQ L021DB6 JSR L021B04 L021DB6 RTS L021DB7 DW $0000 L021DB9 DW $0000 L021DBB DW $0000 L021DBD DW $0000 ; dtBoundsRect DW $0000 DW $0075 DW $0180 DW $FFFF ; dtVisible ADRL $00000000 ; dtRefCon ADRL L021DEF ; itemPtr ADRL L021E17 ; itemPtr ADRL L021E3F ; itemPtr ADRL L021E67 ; itemPtr ADRL L021E8F ; itemPtr ADRL L021EB7 ; itemPtr ADRL L021ECF ; itemPtr ADRL L021EE7 ; itemPtr ADRL $00000000 ; Terminator L021DEF DW $0001 ; Item ID DW $003D ; Item rect DW $0118 DW $004A DW $0160 DW $0015 ; User item ADRL L021E07 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021E07 ADRL L021C9C ADRL L0464B4 DW $0000 DW $0000 DW $0000 DW $0000 L021E17 DW $0002 ; Item ID DW $004F ; Item rect DW $0118 DW $005C DW $0160 DW $0015 ; User item ADRL L021E2F ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021E2F ADRL L021C9C ADRL L0464C8 DW $0000 DW $0000 DW $0000 DW $0000 L021E3F DW $0003 ; Item ID DW $0019 ; Item rect DW $0118 DW $0026 DW $0160 DW $0015 ; User item ADRL L021E57 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021E57 ADRL L021C9C ADRL L0464D2 DW $0000 DW $0000 DW $0000 DW $0000 L021E67 DW $0004 ; Item ID DW $0061 ; Item rect DW $0118 DW $006E DW $0160 DW $0015 ; User item ADRL L021E7F ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021E7F ADRL L021C9C ADRL L0464E6 DW $0000 DW $0000 DW $0000 DW $0000 L021E8F DW $0005 ; Item ID DW $002B ; Item rect DW $0118 DW $0038 DW $0160 DW $0015 ; User item ADRL L021EA7 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021EA7 ADRL L021C9C ADRL L0464E6 DW $0000 DW $0000 DW $0000 DW $0000 L021EB7 DW $0006 ; Item ID DW $000C ; Item rect DW $000F DW $0018 DW $018B DW $0014 ; User item ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021ECF DW $0007 ; Item ID DW $0019 ; Item rect DW $0012 DW $006B DW $00D7 DW $8014 ; User item ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021EE7 DW $0008 ; Item ID DW $0003 ; Item rect DW $000F DW $000C DW $018B DW $800F ; Static text ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table STR '???' L021F03 STR '^0 free of ^1 k.' STR 'Untitled' L021F1D DW $0000 ; dtBoundsRect DW $0000 DW $007B DW $0140 DW $FFFF ; dtVisible ADRL $00000000 ; dtRefCon ADRL L021F77 ; itemPtr ADRL L021FB7 ; itemPtr ADRL L021F9F ; itemPtr ADRL L022007 ; itemPtr ADRL L021F5F ; itemPtr ADRL L02201F ; itemPtr ADRL L022037 ; itemPtr ADRL L02204F ; itemPtr ADRL L022067 ; itemPtr ADRL L02207F ; itemPtr ADRL L022097 ; itemPtr ADRL L021FDF ; itemPtr ADRL $00000000 ; Terminator L021F5F DW $0005 ; Item ID DW $0068 ; Item rect DW $00DC DW $0075 DW $0124 DW $0015 ; User item ADRL L021E7F ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021F77 DW $0001 ; Item ID DW $0056 ; Item rect DW $00DC DW $0063 DW $0124 DW $0015 ; User item ADRL L021F8F ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021F8F ADRL L021C9C ADRL L0464AA DW $0000 DW $0000 DW $0000 DW $0000 L021F9F DW $0003 ; Item ID DW $0044 ; Item rect DW $00DC DW $0051 DW $0124 DW $0015 ; User item ADRL L021E2F ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021FB7 DW $0002 ; Item ID DW $0032 ; Item rect DW $00DC DW $003F DW $0124 DW $0015 ; User item ADRL L021FCF ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021FCF ADRL L021C9C ADRL L0464BE DW $0000 DW $0000 DW $0000 DW $0000 L021FDF DW $000C ; Item ID DW $0020 ; Item rect DW $00DC DW $002D DW $0124 DW $0015 ; User item ADRL L021FF7 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L021FF7 ADRL L021C9C ADRL L0464DC DW $0000 DW $0000 DW $0000 DW $0000 L022007 DW $0004 ; Item ID DW $000E ; Item rect DW $00DC DW $001B DW $0124 DW $0015 ; User item ADRL L021E57 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L02201F DW $0006 ; Item ID DW $0000 ; Item rect DW $0000 DW $0000 DW $0000 DW $0014 ; User item ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L022037 DW $0007 ; Item ID DW $0000 ; Item rect DW $000A DW $000C DW $013B DW $0014 ; User item ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L02204F DW $0008 ; Item ID DW $001A ; Item rect DW $000A DW $0058 DW $00AA DW $8014 ; User item ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L022067 DW $0009 ; Item ID DW $0058 ; Item rect DW $000A DW $0064 DW $00C8 DW $800F ; Static text ADRL $00000000 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L02207F DW $000A ; Item ID DW $0064 ; Item rect DW $000A DW $0076 DW $00C2 DW $8011 ; Editable text ADRL $00000000 ; Item descriptor DW $003F ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L022097 DW $000B ; Item ID DW $000C ; Item rect DW $000A DW $0016 DW $00C8 DW $800F ; Static text ADRL L021F03 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L0220AF DW $0003 DW $0000 L0220B3 LDA $14 CMP #$0000 BNE L0220BD JMP L022205 L0220BD CMP #$0004 BNE L0220C4 BRA L0220C6 L0220C4 CLC RTS L0220C6 JSR L022112 BCC L0220E9 JSR L02213F LDA L0221FB STA L022221 LDA L0221FD STA L0221FF JSR L0221AA INC $10 PEA L0220F1 PEA L0220EA JSR L025129 SEC L0220E9 RTS L0220EA JSR L0221D7 JSR L025157 RTS L0220F1 JSR L022112 JSR L02213F LDA L0221FB CMP L022221 BEQ L022111 JSR L0221D7 LDA L0221FB STA L022221 LDA L0221FD STA L0221FF JSR L0221AA L022111 RTS L022112 LDA L02000D SEC SBC #$003C STA L02213B LDA L02000F SEC SBC #$0014 STA L02213D BMI L022139 CMP #$00E0 BPL L022139 LDA L02213B BMI L022139 CMP #$001D BPL L022139 SEC RTS L022139 CLC RTS L02213B DW $0000 L02213D DW $0000 L02213F LDA L02213B BMI L02214B CMP #$0010 BEQ L02214B BCS L022186 L02214B STZ L02221D L02214E LDA L02221D CMP #$0009 BEQ L022158 BCS L022186 L022158 ASL TAX LDA L022223,X ASL ASL ADC #$0002 CMP L02213D BCS L022186 ADC #$000C CMP L02213D BCS L022174 INC L02221D BRA L02214E L022174 LDA L02221D ORA #$8000 STA L0221FD ASL TAX LDA L0222C3,X STA L0221FB RTS L022186 LDA L02213D BPL L022190 LDA #$0000 BRA L02219E L022190 LSR LSR LSR LSR CMP #$000D BCC L02219E BEQ L02219E LDA #$000D L02219E STA L0221FD ASL TAX LDA L0222A7,X STA L0221FB RTS L0221AA LDA L0221FF BMI L0221CF LDA L0221FF JSR L0222E5 L0221B5 LDA L022221 CLC ADC L022201 STA L02235A LDA L022203 STA L02235C LDA L0212DF STA L022358 JSR L02237A RTS L0221CF AND #$000F JSR L0222FB BRA L0221B5 L0221D7 LDA L0221FF BMI L0221F3 JSR L0222D7 L0221DF LDA L022221 CLC ADC L022201 STA L02235A LDA L0212DF STA L022358 JSR L02235E RTS L0221F3 AND #$000F JSR L0222ED BRA L0221DF L0221FB DW $0000 L0221FD DW $0000 L0221FF DW $0000 L022201 DW $0030 L022203 DW $007F L022205 LDA #$0000 STA L02221D L02220B JSR L0222D7 INC L02221D LDA L02221D CMP #$000E BNE L02220B CLC RTS DW $0000 L02221D DW $0000 DW $0000 L022221 DW $0000 L022223 DW $0002 DW $0006 DW $000E DW $0012 DW $0016 DW $001E DW $0022 DW $002A DW $002E DW $0032 L022237 DA L046172 DW $0000 DA L0461E6 DW $0004 DA L04625A DW $0008 DA L046172 DW $000C DA L0461E6 DW $0010 DA L0461E6 DW $0014 DA L04625A DW $0018 DA L046172 DW $001C DA L0461E6 DW $0020 DA L04625A DW $0024 DA L046172 DW $0028 DA L0461E6 DW $002C DA L0461E6 DW $0030 DA L04625A DW $0034 L02226F DA L0462CE DW $0000 DA L046342 DW $0004 DA L0463B6 DW $0008 DA L0462CE DW $000C DA L046342 DW $0010 DA L046342 DW $0014 DA L0463B6 DW $0018 DA L0462CE DW $001C DA L046342 DW $0020 DA L0463B6 DW $0024 DA L0462CE DW $0028 DA L046342 DW $002C DA L046342 DW $0030 DA L0463B6 DW $0034 L0222A7 DW $0000 DW $0002 DW $0004 DW $0005 DW $0007 DW $0009 DW $000B DW $000C DW $000E DW $0010 DW $0011 DW $0013 DW $0015 DW $0017 L0222C3 DW $0001 DW $0003 DW $0006 DW $0008 DW $000A DW $000D DW $000F DW $0012 DW $0014 DW $0016 L0222D7 PHA LDA #L022237 STA $3E L0222DD PLA JSR L022303 JSR L02231D RTS L0222E5 PHA LDA #L02226F STA $3E BRA L0222DD L0222ED PHA LDA #L04646A STA $16 L0222F3 PLA JSR L022316 JSR L022351 RTS L0222FB PHA LDA #L04642A STA $16 BRA L0222F3 L022303 ASL ASL TAY LDA ($3E),Y STA $16 INY INY LDA ($3E),Y L02230E STA $06 LDA L02002D STA $18 RTS L022316 ASL TAX LDA L022223,X BRA L02230E L02231D LDA #$001D L022320 STA $2C LDAL L020966 STA $1E LDA L022356 CLC ADC $06 STA $1C LDA #$0004 STA $1A LDA #$00A0 STA $20 LDA #$0004 STA $2E _HideCursor JSR L025501 _ShowCursor RTS L022351 LDA #$0010 BRA L022320 L022356 DW $4585 L022358 DW $0000 L02235A DW $0000 L02235C DW $0000 L02235E PEA $0001 PEA $0002 LDA #$0080 ORA L022358 PHA LDA L02235A PHA PEA $0000 _MIDIMessage RTS L02237A PEA $0001 PEA $0002 LDA #$0090 ORA L022358 PHA LDA L02235A PHA LDA L02235C PHA _MIDIMessage RTS L022397 DB $49 DB $4E DB $53 DB $54 DB $00 DB $01 DB $00 DB $04 DB $53 DB $79 DB $6E DB $74 DB $68 DB $4C DB $41 DB $42 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0223AF DB $0C DB $53 DB $61 DB $6D DB $70 DB $6C DB $65 DB $72 DB $2E DB $77 DB $61 DB $76 DB $65 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $0F DB $10 DB $00 DB $00 DB $00 L0223C7 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0223CF DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L022697 STR 'Inst 1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 3' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 4' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 6' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 7' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 8' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 9' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 10' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 11' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 12' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 13' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 14' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 15' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 STR 'Inst 16' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L022797 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L0228B7 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L0229D7 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L022AF7 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L022C17 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L022D37 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L022E57 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L022F77 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L023097 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L0231B7 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L0232D7 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L0233F7 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L023517 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L023637 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L023757 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L023877 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $00 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $03 DB $00 DB $06 DB $28 DB $02 DB $40 DB $02 DB $00 DB $07 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $7F DB $18 DB $7F DB $1F DB $7F DB $1F DB $7F DB $1F DB $00 DB $0B DB $00 DB $1F DB $1F DB $00 DB $00 DB $00 DB $59 DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $05 DB $00 DB $04 DB $28 DB $02 DB $40 DB $04 DB $00 DB $06 DB $7F DB $00 DB $00 DB $00 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $28 DB $02 DB $40 DB $04 DB $00 DB $08 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 DB $59 DB $01 DB $00 DB $00 DB $28 DB $02 DB $1F DB $03 DB $00 DB $00 DB $28 DB $02 DB $1F DB $02 DB $00 DB $02 L023997 LDA #$0001 JSR L0239F1 PHA PHA PEA $0000 PEA ^L023B8D PEA L023B8D _NewMenu2 PLA STA L023B89 PLA STA L023B89+2 JSR L023A2A RTS L0239BB LDA L023B89+2 PHA LDA L023B89 PHA _DisposeMenu JSR L023A11 LDA L024034 AND #$003F JSR L0239F1 PHA PHA PEA $0000 PEA ^L023B8D PEA L023B8D _NewMenu2 PLA STA L023B89 PLA STA L023B89+2 RTS L0239F1 ASL ASL CLC ADC #L023B97 STA $42 STA L023A24 LDY #$0002 LDA ($42) STA L023A26 LDA ($42),Y STA L023A28 LDA #$0000 STA ($42) STA ($42),Y RTS L023A11 LDA L023A24 STA $42 LDY #$0002 LDA L023A26 STA ($42) LDA L023A28 STA ($42),Y RTS L023A24 DW $0000 L023A26 DW $0000 L023A28 DW $0000 L023A2A SEI PEA ^L0486D6 PEA L0486D6 PEA $2800 PEA $0400 _WriteRamBlock CLI PEA $0000 PEA $0000 PEA $0000 PEA $0000 _SetMetro RTS L023A53 STA L023B7F JSR L023B0E LDX L023B81 LDA L0223C7,X AND #$007F JSR L023B4B RTS L023A66 STA L023B7F JSR L023B0E LDX L023B81 LDA L0223C7,X AND #$007F CLC ADC #$0149 STA L023B87 PHA LDA L023B87 PHA PEA $0190 LDA L023B7F BNE L023A8E PEA $001D BRA L023A91 L023A8E PEA $003D L023A91 LDA #$0040 PHA LDA L023B89+2 PHA LDA L023B89 PHA _PopUpMenuSelect PLA BEQ L023AFF SEC SBC #$0149 STA L023B00 JSR L0212F6 LDA L023B00 JSR L023B4B LDA L023B00 JSR L023B02 JSR L023B0E LDA L023B00 LDX L023B81 SEP #$20 STA L0223C7,X LDA L023B7F BNE L023AE6 LDY #$0011 LDA ($3E),Y LDY #$0004 STA ($3C),Y LDY #$0013 LDA ($3E),Y LDY #$0005 STA ($3C),Y BRA L023AFA L023AE6 LDY #$0011 LDA ($3E),Y LDY #$000A STA ($3C),Y LDY #$0013 LDA ($3E),Y LDY #$000B STA ($3C),Y L023AFA REP #$20 JSR L028C34 L023AFF RTS L023B00 DW $0000 L023B02 ASL ASL ASL ASL ASL CLC ADC #L02411C STA $3E RTS L023B0E LDA L0212DF ASL ASL ASL ASL ASL STA L023B81 STA L023B83 STA L023B85 LDA L021270 BEQ L023B31 LDA #$0010 CLC ADC L023B81 STA L023B81 STA L023B85 L023B31 LDA L023B7F BEQ L023B40 LDA #$0008 CLC ADC L023B81 STA L023B81 L023B40 LDA L0212D9 CLC ADC L023B81 STA L023B81 RTS L023B4B ASL ASL ASL ASL ASL CLC ADC #L02411C STA L023B7D PEA $0198 LDA L023B7F BNE L023B64 PEA $0026 BRA L023B67 L023B64 PEA $0046 L023B67 _MoveTo LDA $5E PHA LDA L023B7D PHA _DrawString RTS L023B7D DB $00 DB $00 L023B7F DB $00 DB $00 L023B81 DB $00 DB $00 L023B83 DB $00 DB $00 L023B85 DB $00 DB $00 L023B87 DB $49 DB $01 L023B89 ADRL $00000000 L023B8D DB $00 DB $00 DB $0F DB $00 DB $28 DB $00 ADRL L023C9B L023B97 ADRL L023C9C ADRL L023CAA ADRL L023CB8 ADRL L023CC6 ADRL L023CD4 ADRL L023CE2 ADRL L023CF0 ADRL L023CFE ADRL L023D0C ADRL L023D1A ADRL L023D28 ADRL L023D36 ADRL L023D44 ADRL L023D52 ADRL L023D60 ADRL L023D6E ADRL L023D7C ADRL L023D8A ADRL L023D98 ADRL L023DA6 ADRL L023DB4 ADRL L023DC2 ADRL L023DD0 ADRL L023DDE ADRL L023DEC ADRL L023DFA ADRL L023E08 ADRL L023E16 ADRL L023E24 ADRL L023E32 ADRL L023E40 ADRL L023E4E ADRL L023E5C ADRL L023E6A ADRL L023E78 ADRL L023E86 ADRL L023E94 ADRL L023EA2 ADRL L023EB0 ADRL L023EBE ADRL L023ECC ADRL L023EDA ADRL L023EE8 ADRL L023EF6 ADRL L023F04 ADRL L023F12 ADRL L023F20 ADRL L023F2E ADRL L023F3C ADRL L023F4A ADRL L023F58 ADRL L023F66 ADRL L023F74 ADRL L023F82 ADRL L023F90 ADRL L023F9E ADRL L023FAC ADRL L023FBA ADRL L023FC8 ADRL L023FD6 ADRL L023FE4 ADRL L023FF2 ADRL L024000 ADRL L02400E DB $00 DB $00 DB $00 DB $00 L023C9B DB $00 L023C9C DB $00 DB $00 DB $49 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02411C L023CAA DB $00 DB $00 DB $4A DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02413C L023CB8 DB $00 DB $00 DB $4B DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02415C L023CC6 DB $00 DB $00 DB $4C DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02417C L023CD4 DB $00 DB $00 DB $4D DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02419C L023CE2 DB $00 DB $00 DB $4E DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0241BC L023CF0 DB $00 DB $00 DB $4F DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0241DC L023CFE DB $00 DB $00 DB $50 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0241FC L023D0C DB $00 DB $00 DB $51 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02421C L023D1A DB $00 DB $00 DB $52 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02423C L023D28 DB $00 DB $00 DB $53 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02425C L023D36 DB $00 DB $00 DB $54 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02427C L023D44 DB $00 DB $00 DB $55 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02429C L023D52 DB $00 DB $00 DB $56 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0242BC L023D60 DB $00 DB $00 DB $57 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0242DC L023D6E DB $00 DB $00 DB $58 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0242FC L023D7C DB $00 DB $00 DB $59 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02431C L023D8A DB $00 DB $00 DB $5A DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02433C L023D98 DB $00 DB $00 DB $5B DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02435C L023DA6 DB $00 DB $00 DB $5C DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02437C L023DB4 DB $00 DB $00 DB $5D DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02439C L023DC2 DB $00 DB $00 DB $5E DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0243BC L023DD0 DB $00 DB $00 DB $5F DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0243DC L023DDE DB $00 DB $00 DB $60 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0243FC L023DEC DB $00 DB $00 DB $61 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02441C L023DFA DB $00 DB $00 DB $62 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02443C L023E08 DB $00 DB $00 DB $63 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02445C L023E16 DB $00 DB $00 DB $64 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02447C L023E24 DB $00 DB $00 DB $65 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02449C L023E32 DB $00 DB $00 DB $66 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0244BC L023E40 DB $00 DB $00 DB $67 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0244DC L023E4E DB $00 DB $00 DB $68 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0244FC L023E5C DB $00 DB $00 DB $69 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02451C L023E6A DB $00 DB $00 DB $6A DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02453C L023E78 DB $00 DB $00 DB $6B DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02455C L023E86 DB $00 DB $00 DB $6C DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02457C L023E94 DB $00 DB $00 DB $6D DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02459C L023EA2 DB $00 DB $00 DB $6E DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0245BC L023EB0 DB $00 DB $00 DB $6F DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0245DC L023EBE DB $00 DB $00 DB $70 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0245FC L023ECC DB $00 DB $00 DB $71 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02461C L023EDA DB $00 DB $00 DB $72 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02463C L023EE8 DB $00 DB $00 DB $73 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02465C L023EF6 DB $00 DB $00 DB $74 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02467C L023F04 DB $00 DB $00 DB $75 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02469C L023F12 DB $00 DB $00 DB $76 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0246BC L023F20 DB $00 DB $00 DB $77 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0246DC L023F2E DB $00 DB $00 DB $78 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0246FC L023F3C DB $00 DB $00 DB $79 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02471C L023F4A DB $00 DB $00 DB $7A DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02473C L023F58 DB $00 DB $00 DB $7B DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02475C L023F66 DB $00 DB $00 DB $7C DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02477C L023F74 DB $00 DB $00 DB $7D DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02479C L023F82 DB $00 DB $00 DB $7E DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0247BC L023F90 DB $00 DB $00 DB $7F DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0247DC L023F9E DB $00 DB $00 DB $80 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0247FC L023FAC DB $00 DB $00 DB $81 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02481C L023FBA DB $00 DB $00 DB $82 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02483C L023FC8 DB $00 DB $00 DB $83 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02485C L023FD6 DB $00 DB $00 DB $84 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02487C L023FE4 DB $00 DB $00 DB $85 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L02489C L023FF2 DB $00 DB $00 DB $86 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0248BC L024000 DB $00 DB $00 DB $87 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0248DC L02400E DB $00 DB $00 DB $88 DB $01 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 ADRL L0248FC L02401C ASC 'WAVE' DB $00 DB $01 DB $00 STR 'SynthLAB'00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L024034 DB $28 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02411C STR '~Organ 1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $28 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02413C STR '~Ahh C1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02415C STR '~Ahh E2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $03 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02417C STR '~Ahh C3' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02419C STR '~Ahh G3' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $05 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0241BC STR '~Ahh E4' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $06 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0241DC STR '~Ahh D5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $07 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0241FC STR 'Metal' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $D0 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02421C STR '~Metal' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $2C DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02423C STR '~HpsdA C1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $0C DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02425C STR '~HpsdB C1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $0C DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02427C STR '~HpsdA E5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $0C DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02429C STR '~HpsdB E5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $44 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0242BC STR '~HpsdC E5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $48 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0242DC STR 'Breath' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $60 DB $00 DB $05 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0242FC STR '~Sine Wave' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $F8 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02431C STR '~Sawtooth 1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $24 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02433C STR '~Sawtooth 2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $26 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02435C STR 'Lead Guitar' DB $00 DB $00 DB $00 DB $00 DB $00 DB $80 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02437C STR '~Lead Guitar' DB $00 DB $00 DB $00 DB $00 DB $4C DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02439C STR '~Bell' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $1C DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0243BC STR '~E Organ 1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $30 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0243DC STR '~Clarinet' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $38 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0243FC STR 'Pluck' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $50 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02441C STR '~Pluck' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $4A DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02443C STR 'E Organ2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $E0 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02445C STR '~E Organ2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $20 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02447C STR '~Triangle' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $4E DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02449C STR 'Bass Pluck' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $90 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0244BC STR '~Bass Pluck' DB $00 DB $00 DB $00 DB $00 DB $00 DB $40 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0244DC STR 'Fifths' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $A0 DB $00 DB $05 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0244FC STR '~Fifths' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $3C DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02451C STR '~Harmonica' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $10 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02453C STR 'Trumpet' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $C0 DB $00 DB $04 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02455C STR '~Trumpet' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $14 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02457C STR '~Hpschrd 1' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $08 DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02459C STR '~Hpschrd 2' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $0C DB $00 DB $02 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0245BC STR '~Hpschrd 3' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $18 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0245DC STR '~Hpschrd 4' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $34 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0245FC STR '~Hpschrd 5' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $44 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02461C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02463C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02465C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02467C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02469C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0246BC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0246DC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0246FC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02471C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02473C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02475C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02477C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02479C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0247BC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0247DC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0247FC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02481C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02483C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02485C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02487C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02489C STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0248BC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0248DC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0248FC STR '~Apple' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02491C STZ L024A58 BRA L024927 L024921 LDA #$FFFF STA L024A58 L024927 LDA $14 CMP #$0004 BNE L024931 BRL L024A5A L024931 LDA $14 CMP #$0000 BNE L02493A BRA L024946 L02493A CMP #$0003 BNE L024944 JSR L024A18 CLC RTS L024944 CLC RTS L024946 JSR L02494E JSR L024D50 CLC RTS L02494E LDY #$0004 LDA ($00),Y STA $04 LDY #$0006 LDA ($00),Y STA $06 LDY #$0010 LDA ($00),Y STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 LDA #$0008 STA $2E STA $1A JSR L025598 LDA #L0484F6 STA $16 LDA L02002D STA $18 LDA #$000C STA $2C JSR L025501 LDY #$0008 LDA ($00),Y SEC SBC #$0018 LDY #$0016 STA ($00),Y STA $12 L02499A LDA $12 BMI L0249BA LDA #L048626 STA $16 LDA L02002D STA $18 LDA $12 SEC SBC #$0008 STA $12 LDA #$0008 STA $2C JSR L025501 BRA L02499A L0249BA LDA #L04848E STA $16 LDA L02002D STA $18 LDA #$000C STA $2C JSR L025501 LDY #$000E LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) BIT L024A58 BMI L0249E7 JSR L025574 DEC L024A58 CLC RTS L0249E7 LDY #$000C LDA ($00),Y LDY #$000A STA ($00),Y CLC LDY #$0004 ADC ($00),Y ADC #$000C STA $04 LDA #L048666 LDY #$0002 STA ($00),Y STA $16 LDA L02002D STA $18 LDA #$0008 STA $2C JSR L0254E3 JSR L025574 CLC RTS L024A18 LDY #$000A LDA ($00),Y CLC LDY #$0004 ADC ($00),Y ADC #$000C STA $04 LDY #$0006 LDA ($00),Y STA $06 LDA #L048626 STA $16 LDA L02002D STA $18 LDA #$0008 STA $2C LDA #$0008 STA $2E STA $1A JSR L025598 JSR L0254E3 BIT L024A58 BMI L0249E7 JSR L025574 DEC L024A58 CLC RTS L024A58 DW $FFFF L024A5A LDY #$0004 LDA ($00),Y STA $08 STA $04 CLC LDY #$0008 ADC ($00),Y ADC #$0008 STA $0C STA $06 LDY #$0006 LDA ($00),Y STA $0A CLC ADC #$0020 STA $0E JSR L02555A BCS L024A83 RTS L024A83 LDY #$000A LDA ($00),Y CLC ADC $08 ADC #$000C STA $08 CLC ADC #$0008 STA $0C JSR L02555A BCC L024AA8 LDA L024A58 BMI L024AA5 DEC L024A58 SEC RTS L024AA5 BRL L024AF5 L024AA8 JMP L024BE5 LDA $0A CLC ADC #$0006 STA $0A LDA $0E SEC SBC #$0006 STA $0E LDX $08 LDA $04 STA $08 LDA $0C STA $04 STX $0C JSR L02555A BCC L024ACF BRL L024AE9 L024ACF LDA $04 STA $08 LDA $06 STA $0C JSR L02555A BCS L024ADD RTS L024ADD INC $10 PEA L024B0A PEA L024B28 JSR L021C37 RTS L024AE9 INC $10 PEA L024B3F PEA L024B5A JSR L021C37 RTS L024AF5 INC $10 PEA L024B71 PEA L024B92 JSR L021C37 LDA L02000D SEC SBC $08 STA $64 SEC RTS L024B0A JSR L02555A BCS L024B10 RTS L024B10 LDA #$0001 JSR L024BA9 LDY #$000A LDA ($00),Y CLC LDY #$0004 ADC ($00),Y CLC ADC #$0007 STA $08 RTS L024B28 JSR L024B0A JSR L021C65 LDY #$0020 LDA ($00),Y BEQ L024B3E STA L02516C LDX #$0000 JSR (L02516C,X) L024B3E RTS L024B3F JSR L02555A BCS L024B45 RTS L024B45 LDA #$FFFF JSR L024BA9 LDY #$000A LDA ($00),Y CLC ADC $08 INC INC INC INC STA $0C RTS L024B5A JSR L024B3F JSR L021C65 LDY #$0020 LDA ($00),Y BEQ L024B70 STA L02516C LDX #$0000 JSR (L02516C,X) L024B70 RTS L024B71 SEC LDA L02000D SBC $64 SEC SBC $08 BNE L024B7D RTS L024B7D JSR L024BA9 LDY #$000A LDA ($00),Y CLC LDY #$0004 ADC ($00),Y CLC ADC #$000C STA $08 RTS L024B92 JSR L024B71 JSR L021C65 LDY #$0020 LDA ($00),Y BEQ L024BA8 STA L02516C LDX #$0000 JSR (L02516C,X) L024BA8 RTS L024BA9 STA $3E LDY #$000A LDA ($00),Y CLC ADC $3E BPL L024BC0 LDA ($00),Y BNE L024BBA RTS L024BBA EOR #$FFFF INC BRA L024BD2 L024BC0 LDY #$0016 CMP ($00),Y BMI L024BD4 LDA ($00),Y LDY #$000A SEC SBC ($00),Y BNE L024BD2 RTS L024BD2 STA $3E L024BD4 LDA $3E CLC LDY #$000A ADC ($00),Y LDY #$000C STA ($00),Y JSR L024A18 RTS L024BE5 JSR L024CD0 BCS L024BF0 JSR L024CF1 BCS L024C16 RTS L024BF0 INC $10 INC L024D1B PEA L024C3C PEA L024C7C JSR L021C37 JSR L024D27 JSR L024E42 LDY #$001C LDA ($00),Y BEQ L024C14 STA L02516C LDX #$0000 JSR (L02516C,X) L024C14 SEC RTS L024C16 INC $10 INC L024D1B PEA L024C8A PEA L024CC9 JSR L021C37 JSR L024D1D JSR L024E42 LDY #$0018 LDA ($00),Y BEQ L024C3A STA L02516C LDX #$0000 JSR (L02516C,X) L024C3A SEC RTS L024C3C JSR L024CD0 BCS L024C4D LDA L024D1B BEQ L024C4C JSR L024D2E STZ L024D1B L024C4C RTS L024C4D LDA L024D1B BNE L024C58 JSR L024D27 INC L024D1B L024C58 JSR L0252C3 BCC L024C7A LDA #$0003 STA L02517A LDAL TickCount STA L025178 LDY #$001C LDA ($00),Y BEQ L024C7A STA L02516C LDX #$0000 JSR (L02516C,X) L024C7A RTS RTS L024C7C JSR L021C65 LDY #$0004 LDA ($00),Y STA $04 JSR L024D2E RTS L024C8A JSR L024CF1 BCS L024C9B LDA L024D1B BEQ L024C9A JSR L024D22 STZ L024D1B L024C9A RTS L024C9B LDA L024D1B BNE L024CA6 JSR L024D1D INC L024D1B L024CA6 JSR L0252C3 BCC L024CC8 LDA #$0003 STA L02517A LDAL TickCount STA L025178 LDY #$0018 LDA ($00),Y BEQ L024CC8 STA L02516C LDX #$0000 JSR (L02516C,X) L024CC8 RTS L024CC9 JSR L021C65 JSR L024D22 RTS L024CD0 LDY #$0004 LDA ($00),Y STA $08 STA $04 CLC ADC #$000C STA $0C LDY #$0006 LDA ($00),Y STA $0A STA $06 CLC ADC #$0020 STA $0E JMP L02555A L024CF1 LDY #$0004 LDA ($00),Y CLC LDY #$0008 ADC ($00),Y ADC #$0008 STA $0C SEC SBC #$000C STA $08 STA $04 LDY #$0006 LDA ($00),Y STA $0A STA $06 CLC ADC #$0020 STA $0E JMP L02555A L024D1B DW $0000 L024D1D LDA #L0485BE BRA L024D33 L024D22 LDA #L04848E BRA L024D33 L024D27 LDA #L048556 DEC $04 BRA L024D33 L024D2E LDA #L048426 DEC $04 L024D33 STA $16 LDA L02002D STA $18 LDA #$000D STA $2C LDA #$0008 STA $2E STA $1A JSR L025598 JSR L0254E3 JSR L025574 RTS L024D50 LDY #$0008 LDA ($00),Y SEC SBC #$0008 STA $12 LDY #$0004 LDA ($00),Y STA $04 STA L024E09 LDY #$0006 LDA ($00),Y LDY #$0012 SEC SBC ($00),Y STA $06 LDA #L0486A6 JSR L024E0F L024D78 LDA $04 CLC ADC #$0008 STA $04 LDA #L0486C6 JSR L024E0F LDA $12 SEC SBC #$0008 STA $12 BNE L024D78 LDA $04 CLC ADC #$0008 STA $04 LDA #L0486B6 JSR L024E0F LDA $04 CLC ADC #$0006 STA $04 LDA $06 CLC ADC #$0008 STA L024E0B STA $06 LDY #$0012 LDA ($00),Y SEC SBC #$0008 LSR LSR STA $2E STA L024E0D LDA #$0000 STA $32 JSR L024E26 LDA L024E0B STA $06 INC $04 LDA L024E0D STA $2E LDA #$BBBB STA $32 JSR L024E26 LDA L024E0B STA $06 LDA L024E09 STA $04 LDA L024E0D STA $2E LDA #$0000 STA $32 JSR L024E26 LDA L024E0B STA $06 INC $04 LDA L024E0D STA $2E LDA #$BBBB STA $32 JSR L024E26 RTS L024E09 DW $0000 L024E0B DW $0000 L024E0D DW $0000 L024E0F STA $16 LDA L02002D STA $18 LDA #$0008 STA $2C LDA #$0002 STA $2E STA $1A JSR L0254E3 RTS L024E26 LDA $04 ASL TAX LDA $06 LSR LSR CLC ADC L025617,X STA $30 LDA #$00A0 STA $20 LDA #$0001 STA $2C JSR L0213AA RTS L024E42 LDAL TickCount STA L025178 LDA #$000F STA L02517A RTS L024E50 LDA $14 CMP #$0004 BNE L024E5A JMP L024F7E L024E5A LDA $14 CMP #$0000 BNE L024E63 BRA L024E6D L024E63 CMP #$0003 BNE L024E6B JSR L024F49 L024E6B CLC RTS L024E6D JSR L024E9A LDY #$001A LDA ($00),Y PHA LDY #$001C LDA ($00),Y PHA _MoveTo LDY #$0018 LDA ($00),Y PHA DEY DEY LDA ($00),Y PHA _DrawString JSR L025117 CLC RTS L024E9A LDY #$0004 LDA ($00),Y STA $04 LDY #$0006 LDA ($00),Y STA $06 LDY #$0010 LDA ($00),Y STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 LDA #$0008 STA $2E STA $1A JSR L025598 LDA #L0460B2 STA $16 LDA L02002D STA $18 LDA #$0004 STA $2C JSR L025501 LDY #$0008 LDA ($00),Y STA $12 L024EDD LDA $12 BMI L024EFD LDA #L0460F2 STA $16 LDA L02002D STA $18 LDA $12 SEC SBC #$0008 STA $12 LDA #$0008 STA $2C JSR L025501 BRA L024EDD L024EFD LDA #L0460D2 STA $16 LDA L02002D STA $18 LDA #$0004 STA $2C JSR L025501 LDY #$000E LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) L024F1D LDY #$000C LDA ($00),Y LDY #$000A STA ($00),Y CLC LDY #$0004 ADC ($00),Y ADC #$0004 STA $04 LDA #L046132 STA $16 LDA L02002D STA $18 LDA #$0008 STA $2C JSR L0254E3 JSR L025574 CLC RTS L024F49 LDY #$000A LDA ($00),Y CLC LDY #$0004 ADC ($00),Y ADC #$0004 STA $04 LDY #$0006 LDA ($00),Y STA $06 LDA #L0460F2 STA $16 LDA L02002D STA $18 LDA #$0008 STA $2C LDA #$0008 STA $2E STA $1A JSR L025598 JSR L0254E3 BRA L024F1D L024F7E LDY #$0004 LDA ($00),Y STA $08 STA $04 CLC LDY #$0008 ADC ($00),Y ADC #$000E STA $0C STA $06 LDY #$0006 LDA ($00),Y STA $0A CLC ADC #$0020 STA $0E JSR L02555A BCS L024FA7 RTS L024FA7 LDY #$000A LDA ($00),Y CLC ADC $08 ADC #$0004 STA $08 CLC ADC #$0008 STA $0C JSR L02555A BCC L024FC2 BRL L025009 L024FC2 LDX $08 LDA $04 STA $08 LDA $0C STA $04 STX $0C JSR L02555A BCC L024FD6 BRL L024FEF L024FD6 LDA $04 STA $08 LDA $06 STA $0C JSR L02555A BCS L024FE5 CLC RTS L024FE5 INC $10 PEA L02501E PEA L02504E BRA L024FF5 L024FEF PEA L025063 PEA L025090 L024FF5 JSR L025129 LDA #$0001 STA L02517A LDAL TickCount STA L025178 INC $10 SEC RTS L025009 INC $10 PEA L0250A5 PEA L0250C6 JSR L025129 LDA L02000D SEC SBC $08 STA $64 SEC RTS L02501E JSR L0252C3 BCC L025028 JSR L02555A BCS L025029 L025028 RTS L025029 LDA #$0001 JSR L0250DB LDY #$000A LDA ($00),Y CLC LDY #$0004 ADC ($00),Y CLC ADC #$0007 STA $08 LDA #$0001 STA L02517A LDAL TickCount STA L025178 RTS L02504E JSR L02501E JSR L025157 LDY #$0020 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L025063 JSR L0252C3 BCC L02506D JSR L02555A BCS L02506E L02506D RTS L02506E LDA #$FFFF JSR L0250DB LDY #$000A LDA ($00),Y CLC ADC $08 INC INC INC INC STA $0C LDA #$0001 STA L02517A LDAL TickCount STA L025178 RTS L025090 JSR L025063 JSR L025157 LDY #$0020 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L0250A5 SEC LDA L02000D SBC $64 SEC SBC $08 BNE L0250B1 RTS L0250B1 JSR L0250DB LDY #$000A LDA ($00),Y CLC LDY #$0004 ADC ($00),Y CLC ADC #$0004 STA $08 RTS L0250C6 JSR L0250A5 JSR L025157 LDY #$0020 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L0250DB STA $3E LDY #$000A LDA ($00),Y CLC ADC $3E BPL L0250F2 LDA ($00),Y BNE L0250EC RTS L0250EC EOR #$FFFF INC BRA L025105 L0250F2 LDY #$0008 CMP ($00),Y BMI L025107 LDA ($00),Y SEC LDY #$000A SBC ($00),Y DEC BNE L025105 RTS L025105 STA $3E L025107 LDA $3E CLC LDY #$000A ADC ($00),Y LDY #$000C STA ($00),Y JSR L024F49 L025117 LDY #$0014 LDA ($00),Y BEQ L025128 STA L02516C LDX #$0000 JSR (L02516C,X) RTS L025128 RTS L025129 PEA $0000 PEA $0000 JSR L020550 PLA STA L025170 PEA $0000 PEA $0002 JSR L020550 PLA STA L025174 PLX PLY PLA PHX PEA $0002 PHY PEA $0000 PHA JSR L02055B JSR L02055B SEC RTS L025157 PEA $0000 LDA L025170 PHA JSR L02055B PEA $0002 LDA L025174 PHA JSR L02055B RTS L02516C DA $0000 DA $0000 L025170 DA $0000 DA $0000 L025174 DA $0000 DA $0000 L025178 DA $0000 L02517A DA $0000 L02517C LDA $14 CMP #$0000 BEQ L02518A CMP #$0004 BEQ L0251CA CLC RTS L02518A LDA #L045E32 JSR L0252CF LDY #$001A LDA ($00),Y PHA LDY #$001C LDA ($00),Y PHA _MoveTo LDY #$0018 LDA ($00),Y BEQ L0251B7 PHA DEY DEY LDA ($00),Y PHA _DrawString L0251B7 LDY #$000E LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) JSR L025117 CLC RTS L0251CA LDY #$0004 LDA ($00),Y STA $08 CLC ADC #$000A STA $0C STA $06 LDY #$0006 LDA ($00),Y STA $0A CLC ADC #$0020 STA $0E JSR L02555A BCS L0251FB LDA $06 STA $08 CLC ADC #$000A STA $0C JSR L02555A BCS L02521E RTS L0251FB INC $10 PEA L025241 PEA L0252AB JSR L025129 LDA #L045ED2 JSR L0252CF JSR L025260 LDAL TickCount STA L025178 LDA #$001E STA L02517A SEC RTS L02521E INC $10 PEA L025276 PEA L0252AB JSR L025129 LDA #L045F72 JSR L0252CF JSR L025295 LDAL TickCount STA L025178 LDA #$001E STA L02517A SEC RTS L025241 JSR L02555A BCS L02524E LDAL TickCount STA L025178 RTS L02524E JSR L0252C3 BCC L025275 LDA #$0003 STA L02517A LDAL TickCount STA L025178 L025260 LDY #$000C LDA ($00),Y LDY #$000A CMP ($00),Y BEQ L0252A4 INC L02526D LDY #$000C STA ($00),Y JSR L025117 L025275 RTS L025276 JSR L02555A BCS L025283 LDAL TickCount STA L025178 RTS L025283 JSR L0252C3 BCC L025275 LDA #$0003 STA L02517A LDAL TickCount STA L025178 L025295 LDY #$000C LDA ($00),Y LDY #$0008 CMP ($00),Y BEQ L0252A4 DEC BRA L02526D L0252A4 LDA #L046012 JSR L0252CF RTS L0252AB LDA #L045E32 JSR L0252CF JSR L025157 LDY #$001E LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L0252C3 LDAL TickCount SEC SBC L025178 CMP L02517A RTS L0252CF STA $16 LDA L02002D STA $18 LDY #$0010 LDA ($00),Y STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 LDA #$0008 STA $2E STA $1A LDA #$0014 STA $2C _HideCursor JSR L025501 _ShowCursor RTS L025306 LDA $14 CMP #$0000 BNE L02530F BRA L025319 L02530F CMP #$0004 BNE L025317 JMP L025339 L025317 CLC RTS L025319 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$000A LDA ($00),Y BEQ L025337 STA L02516C LDX #$0000 JSR (L02516C,X) L025337 CLC RTS L025339 JSR L025353 BCS L02533F RTS L02533F LDY #$0008 LDA ($00),Y BEQ L02534F STA L02516C LDX #$0000 JSR (L02516C,X) L02534F SEC INC $10 RTS L025353 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$0004 LDA ($00),Y STA $08 LDY #$0000 LDA [$6A],Y CLC ADC $08 STA $0C LDY #$0006 LDA ($00),Y STA $0A LDY #$0002 LDA [$6A],Y CLC ADC $0A STA $0E JSR L02555A RTS L025387 LDA $14 CMP #$0000 BNE L025390 BRA L02539A L025390 CMP #$0004 BNE L025398 JMP L0253AC L025398 CLC RTS L02539A LDY #$000A LDA ($00),Y BEQ L0253AA STA L02516C LDX #$0000 JSR (L02516C,X) L0253AA CLC RTS L0253AC LDY #$0004 LDA ($00),Y STA $08 LDY #$000C LDA ($00),Y STA $0C LDY #$0006 LDA ($00),Y STA $0A LDY #$000E LDA ($00),Y STA $0E JSR L02555A BCS L0253CE RTS L0253CE LDY #$0008 LDA ($00),Y BEQ L0253DE STA L02516C LDX #$0000 JSR (L02516C,X) L0253DE SEC RTS L0253E0 LDA $14 CMP #$0000 BNE L0253E9 BRA L0253F3 L0253E9 CMP #$0004 BNE L0253F1 JMP L025411 L0253F1 CLC RTS L0253F3 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$000A LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) CLC RTS L025411 LDY #$000C LDA ($00),Y STA $6A LDY #$000E LDA ($00),Y STA $6C LDY #$0004 LDA ($00),Y STA $08 LDY #$0000 LDA [$6A],Y CLC ADC $08 STA $0C LDY #$0006 LDA ($00),Y STA $0A LDY #$0002 LDA [$6A],Y CLC ADC $0A STA $0E JSR L02555A BCS L025447 RTS L025447 INC $10 PEA L025462 PEA L025471 JSR L025129 LDY #$0008 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) SEC RTS L025462 LDY #$0010 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L025471 LDY #$0012 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) JSR L025157 RTS L025483 PLX PLA STA $14 PLA STA $22 PLA STA $24 PHX LDA [$22] ASL INC INC STA $2A LDA #$0002 STA $28 PEI $14 L02549C LDY $28 CPY $2A BPL L0254B9 LDA [$22],Y INY INY STY $28 STA $00 LDA ($00) ASL TAX LDA $01,S STA $14 JSR (L0254BB,X) BCS L0254B9 BRA L02549C L0254B9 PLA RTS L0254BB DA L025500 DA L024E50 DA L02517C DA L0220B3 DA L025500 DA L025306 DA L0253E0 DA L021BC0 DA L025387 DA L024921 DA L02AB36 DA L02491C PLX PLA STA $14 PLA STA $00 PHX LDA ($00) ASL TAX JSR (L0254BB,X) RTS L0254E3 LDA $04 ASL TAX LDA $06 LSR LSR CLC ADC L025617,X STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 JSR L025501 RTS L025500 RTS L025501 BRA L02551E L025503 LDA $16 CLC ADC $1A STA $16 BCC L02550E INC $18 L02550E LDA $1C CLC ADC $20 STA $1C BCC L025519 INC $1E L025519 DEC $2C BNE L02551E RTS L02551E LDY $2E DEY DEY L025522 LDA [$16],Y STA [$1C],Y DEY DEY BPL L025522 BRA L025503 L02552C BRA L02554A L02552E LDA $16 CLC ADC $1A STA $16 BCC L025539 INC $18 L025539 LDA $1C CLC ADC #$00A0 STA $1C BCC L025545 INC $1E L025545 DEC $2C BNE L02554A RTS L02554A SEP #$30 LDY $2E DEY L02554F LDA [$16],Y STA [$1C],Y DEY BPL L02554F REP #$30 BRA L02552E L02555A LDA L02000D CMP $08 BMI L025572 CMP $0C BPL L025572 LDA L02000F CMP $0A BMI L025572 CMP $0E BPL L025572 SEC RTS L025572 CLC RTS L025574 PHD LDA L0255B0 TCD PHP SEI BIT $CE BPL L025587 STZ $CE LDA $CC BMI L025587 DEC $CC L025587 INC $CC BMI L025595 LDA $CC BNE L025593 JSL $E01FCC L025593 STZ $CC L025595 PLP PLD RTS L025598 PHD LDA L0255B0 TCD PHP SEI LDA $CC BMI L0255AB BIT $CE BMI L0255AB JSL $E01FD0 L0255AB DEC $CC PLP PLD RTS L0255B0 DW $0000 L0255B2 DW $0000 L0255B4 DW $0000 L0255B6 DW $0000 L0255B8 DW $0000 L0255BA DW $0000 L0255BC PHD LDA L0255B0 TCD BIT $EE BVS L025603 BIT $CC BMI L025603 LDA L0255B4 CMP $F8 BPL L0255D2 LDA $F8 L0255D2 STA $F0 LDA L0255B8 CMP $FC BMI L0255DD LDA $FC L0255DD CMP $F0 BMI L025603 LDA L0255B6 CMP $FA BPL L0255EA LDA $FA L0255EA STA $F0 LDA L0255BA CMP $FE BMI L0255F5 LDA $FE L0255F5 CMP $F0 BMI L025603 LDA #$C000 STA $EE PLD JSR L025598 RTS L025603 PLD RTS L025605 PHD LDA L0255B0 TCD BIT $EE BVC L025615 STZ $EE PLD JSR L025574 RTS L025615 PLD RTS L025617 DW $2000 DW $20A0 DW $2140 DW $21E0 DW $2280 DW $2320 DW $23C0 DW $2460 DW $2500 DW $25A0 DW $2640 DW $26E0 DW $2780 DW $2820 DW $28C0 DW $2960 DW $2A00 DW $2AA0 DW $2B40 DW $2BE0 DW $2C80 DW $2D20 DW $2DC0 DW $2E60 DW $2F00 DW $2FA0 DW $3040 DW $30E0 DW $3180 DW $3220 DW $32C0 DW $3360 DW $3400 DW $34A0 DW $3540 DW $35E0 DW $3680 DW $3720 DW $37C0 DW $3860 DW $3900 DW $39A0 DW $3A40 DW $3AE0 DW $3B80 DW $3C20 DW $3CC0 DW $3D60 DW $3E00 DW $3EA0 DW $3F40 DW $3FE0 DW $4080 DW $4120 DW $41C0 DW $4260 DW $4300 DW $43A0 DW $4440 DW $44E0 DW $4580 DW $4620 DW $46C0 DW $4760 DW $4800 DW $48A0 DW $4940 DW $49E0 DW $4A80 DW $4B20 DW $4BC0 DW $4C60 DW $4D00 DW $4DA0 DW $4E40 DW $4EE0 DW $4F80 DW $5020 DW $50C0 DW $5160 DW $5200 DW $52A0 DW $5340 DW $53E0 DW $5480 DW $5520 DW $55C0 DW $5660 DW $5700 DW $57A0 DW $5840 DW $58E0 DW $5980 DW $5A20 DW $5AC0 DW $5B60 DW $5C00 DW $5CA0 DW $5D40 DW $5DE0 DW $5E80 DW $5F20 DW $5FC0 DW $6060 DW $6100 DW $61A0 DW $6240 DW $62E0 DW $6380 DW $6420 DW $64C0 DW $6560 DW $6600 DW $66A0 DW $6740 DW $67E0 DW $6880 DW $6920 DW $69C0 DW $6A60 DW $6B00 DW $6BA0 DW $6C40 DW $6CE0 DW $6D80 DW $6E20 DW $6EC0 DW $6F60 DW $7000 DW $70A0 DW $7140 DW $71E0 DW $7280 DW $7320 DW $73C0 DW $7460 DW $7500 DW $75A0 DW $7640 DW $76E0 DW $7780 DW $7820 DW $78C0 DW $7960 DW $7A00 DW $7AA0 DW $7B40 DW $7BE0 DW $7C80 DW $7D20 DW $7DC0 DW $7E60 DW $7F00 DW $7FA0 DW $8040 DW $80E0 DW $8180 DW $8220 DW $82C0 DW $8360 DW $8400 DW $84A0 DW $8540 DW $85E0 DW $8680 DW $8720 DW $87C0 DW $8860 DW $8900 DW $89A0 DW $8A40 DW $8AE0 DW $8B80 DW $8C20 DW $8CC0 DW $8D60 DW $8E00 DW $8EA0 DW $8F40 DW $8FE0 DW $9080 DW $9120 DW $91C0 DW $9260 DW $9300 DW $93A0 DW $9440 DW $94E0 DW $9580 DW $9620 DW $96C0 DW $9760 DW $9800 DW $98A0 DW $9940 DW $99E0 DW $9A80 DW $9B20 DW $9BC0 DW $9C60 L0257A7 JSR L0205B5 JSR L0219FA LDA #L0257C9 JSR L021A1A JSR L0257D1 LDA #L021B42 STA L0219F8 JSR L02185F JSR L0205F4 JSR L021A0A JSR L021AAB RTS L0257C9 DW $0027 DW $002A DW $00B3 DW $0244 L0257D1 PEA $0049 PEA $0039 _MoveTo PEA $01B6 PEA $0039 _LineTo PEA $00B2 PEA $003C _MoveTo PEA ^L025851 PEA L025851 _DrawString PEA $01E4 PEA $003D _MoveTo PEA ^L025867 PEA L025867 _DrawString L02581F LDA L025951 BNE L02582F LDA #^L025955 STA $50 PHA LDA #L025955 BRA L025838 L02582F LDA #^L02596F STA $50 PHA LDA #L02596F L025838 STA $4E PHA PEA $0000 LDA #$FFFF STA L0258B7 JSR L025598 JSR L025483 JSR L025574 STZ L0258B7 RTS L025851 STR ' Instrument Volume ' L025867 STR 'Sys Vol' L02586F LDY #$000C LDA #$001F SEC SBC ($00),Y ASL PHA ASL STA L0258B9 LDY #$001E LDA ($00),Y STA L0258BB ASL TAX LDA L0258B9 STA L02109F,X PLX LDA L021563,X JSR L02162B LDA L0258B7 BNE L0258B6 PEA $0000 PEA $0002 LDA #$00B0 ORA L0258BB PHA LDA #$0007 PHA LDA L0258B9 PHA _MIDIMessage L0258B6 RTS L0258B7 DW $0000 L0258B9 DW $007F L0258BB DW $000F L0258BD LDY #$001E LDA ($00),Y ASL TAX LDA L02109F,X LSR LSR STA L0258D9 LDA #$001F SEC SBC L0258D9 LDY #$000C STA ($00),Y RTS L0258D9 DW $0000 L0258DB LDY #$000C LDA #$000F SEC SBC ($00),Y SEP #$20 STAL $E100CA REP #$20 ASL TAX LDA L021563,X JSR L02162B RTS L0258F5 SEP #$20 LDAL $E100CA REP #$20 AND #$000F STA L025910 LDA #$000F SEC SBC L025910 LDY #$000C STA ($00),Y RTS L025910 DW $0000 DW $0000 L025914 LDY #$0010 LDA ($00),Y CMP L025951 BNE L02591F RTS L02591F STA L025951 LDA $00 PHA LDA L025953 STA $00 JSR L0212F6 PLA STA $00 STA L025953 JSR L0212E1 JSR L02581F RTS L02593A LDY #$0010 LDA ($00),Y CMP L025951 BNE L02594D JSR L0212E1 LDA $00 STA L025953 RTS L02594D JSR L0212F6 RTS L025951 DW $0000 L025953 DW $0000 L025955 DW $000C DA L025989 DA L0259AE DA L0259D4 DA L0259FA DA L025A20 DA L025A46 DA L025A6C DA L025A92 DA L025BE0 DA L025C03 DA L025C17 DA L025C29 L02596F DW $000C DA L025AB8 DA L025ADD DA L025B02 DA L025B27 DA L025B4C DA L025B71 DA L025B96 DA L025BBB DA L025BE0 DA L025C03 DA L025C17 DA L025C29 L025989 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $48 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $D2 DB $55 DB $32 DB $4B DA L02586F ADRL L0259AB DB $56 DB $00 DB $90 DB $00 DB $00 DB $00 DA L025500 L0259AB DB $02 DB $31 DB $20 L0259AE DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $78 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $DE DB $55 DB $3E DB $4B DA L02586F ADRL L0259D0 DB $82 DB $00 DB $90 DB $00 DB $01 DB $00 DA L025500 L0259D0 DB $03 DB $20 DB $32 DB $20 L0259D4 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $A8 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $EA DB $55 DB $4A DB $4B DA L02586F ADRL L0259F6 DB $B2 DB $00 DB $90 DB $00 DB $02 DB $00 DA L025500 L0259F6 DB $03 DB $20 DB $33 DB $20 L0259FA DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $D8 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $F6 DB $55 DB $56 DB $4B DA L02586F ADRL L025A1C DB $E2 DB $00 DB $90 DB $00 DB $03 DB $00 DA L025500 L025A1C DB $03 DB $20 DB $34 DB $20 L025A20 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $08 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $02 DB $56 DB $62 DB $4B DA L02586F ADRL L025A42 DB $12 DB $01 DB $90 DB $00 DB $04 DB $00 DA L025500 L025A42 DB $03 DB $20 DB $35 DB $20 L025A46 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $38 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $0E DB $56 DB $6E DB $4B DA L02586F ADRL L025A68 DB $42 DB $01 DB $90 DB $00 DB $05 DB $00 DA L025500 L025A68 DB $03 DB $20 DB $36 DB $20 L025A6C DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $68 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $1A DB $56 DB $7A DB $4B DA L02586F ADRL L025A8E DB $72 DB $01 DB $90 DB $00 DB $06 DB $00 DA L025500 L025A8E DB $03 DB $20 DB $37 DB $20 L025A92 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $98 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $26 DB $56 DB $86 DB $4B DA L02586F ADRL L025AB4 DB $A2 DB $01 DB $90 DB $00 DB $07 DB $00 DA L025500 L025AB4 DB $03 DB $20 DB $38 DB $20 L025AB8 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $48 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $D2 DB $55 DB $32 DB $4B DA L02586F ADRL L025ADA DB $52 DB $00 DB $90 DB $00 DB $08 DB $00 DA L025500 L025ADA DB $02 DB $20 DB $39 L025ADD DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $78 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $DE DB $55 DB $3E DB $4B DA L02586F ADRL L025AFF DB $82 DB $00 DB $90 DB $00 DB $09 DB $00 DA L025500 L025AFF DB $02 DB $31 DB $30 L025B02 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $A8 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $EA DB $55 DB $4A DB $4B DA L02586F ADRL L025B24 DB $B2 DB $00 DB $90 DB $00 DB $0A DB $00 DA L025500 L025B24 DB $02 DB $31 DB $31 L025B27 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $D8 DB $00 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $F6 DB $55 DB $56 DB $4B DA L02586F ADRL L025B49 DB $E2 DB $00 DB $90 DB $00 DB $0B DB $00 DA L025500 L025B49 DB $02 DB $31 DB $32 L025B4C DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $08 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $02 DB $56 DB $62 DB $4B DA L02586F ADRL L025B6E DB $12 DB $01 DB $90 DB $00 DB $0C DB $00 DA L025500 L025B6E DB $02 DB $31 DB $33 L025B71 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $38 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $0E DB $56 DB $6E DB $4B DA L02586F ADRL L025B93 DB $42 DB $01 DB $90 DB $00 DB $0D DB $00 DA L025500 L025B93 DB $02 DB $31 DB $34 L025B96 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $68 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $1A DB $56 DB $7A DB $4B DA L02586F ADRL L025BB8 DB $72 DB $01 DB $90 DB $00 DB $0E DB $00 DA L025500 L025BB8 DB $02 DB $31 DB $35 L025BBB DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $98 DB $01 DB $20 DB $00 DB $1E DB $00 DB $1E DB $00 DA L0258BD DB $26 DB $56 DB $86 DB $4B DA L02586F ADRL L025BDD DB $A2 DB $01 DB $90 DB $00 DB $0F DB $00 DA L025500 L025BDD DB $02 DB $31 DB $36 L025BE0 DB $01 DB $00 DB $00 DB $00 DB $56 DB $00 DB $F0 DB $01 DB $10 DB $00 DB $0E DB $00 DB $0E DB $00 DA L0258F5 DB $3C DB $56 DB $9C DB $4B DA L0258DB ADRL L025C02 DB $F4 DB $01 DB $80 DB $00 DB $00 DB $00 DA L025500 L025C02 DB $00 L025C03 DB $07 DB $00 DB $00 DB $00 DB $9C DB $00 DB $E0 DB $01 DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L025C17 DB $05 DB $00 DB $00 DB $00 DB $99 DB $00 DB $BC DB $00 DA L025914 DA L02593A ADRL L046FE8 DB $00 DB $00 L025C29 DB $05 DB $00 DB $00 DB $00 DB $99 DB $00 DB $04 DB $01 DA L025914 DA L02593A ADRL L046FF0 DB $01 DB $00 L025C3B JSR L0205B5 JSR L0219FA LDA #L025CB3 JSR L021A1A PEA $009E PEA $0034 _MoveTo PEA ^L025CBB PEA L025CBB _DrawString PEA $012C PEA $0034 _MoveTo PEA ^L025CC5 PEA L025CC5 _DrawString LDA #^L025DE0 STA $50 PHA LDA #L025DE0 STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA #L021B42 STA L0219F8 JSR L02185F LDA L021B3E BEQ L025CA9 L025CA9 JSR L0205F4 JSR L021A0A JSR L021AAB RTS L025CB3 DW $001E DW $0074 DW $00BC DW $01C8 L025CBB STR 'MIDI Mode' L025CC5 STR 'In/Out Select' L025CD3 DW $0000 L025CD5 DW $0000 L025CD7 LDA L025CD3 PHA LDA L025CD5 PHA _SetMIDIPort RTS L025CE7 LDA L025CD3 BEQ L025CFC JSR L0212F6 STZ L025CD3 JSR L025CD7 STZ L0211C8 JSR L02A132 RTS L025CFC JSR L0212E1 LDA #$FFFF STA L025CD3 JSR L025CD7 LDA #$0001 STA L0211C8 JSR L02A132 RTS L025D12 LDA L025CD3 BEQ L025D1B JSR L0212E1 RTS L025D1B JSR L0212F6 RTS L025D1F LDA L025CD5 BEQ L025D2E JSR L0212F6 STZ L025CD5 JSR L025CD7 RTS L025D2E JSR L0212E1 LDA #$FFFF STA L025CD5 JSR L025CD7 RTS L025D3B LDA L025CD5 BEQ L025D44 JSR L0212E1 RTS L025D44 JSR L0212F6 RTS L025D48 LDY #$0010 LDA ($00),Y CMP L0211C4 BNE L025D53 RTS L025D53 STA L0211C4 LDA $00 PHA LDA L025D90 STA $00 LDX #$0000 JSR L0212F6 PLA STA $00 STA L025D90 JSR L0212E1 LDA L0211C4 PHA _SetMIDIMode RTS L025D79 LDY #$0010 LDA ($00),Y CMP L0211C4 BNE L025D8C JSR L0212E1 LDA $00 STA L025D90 RTS L025D8C JSR L0212F6 RTS L025D90 DW $0000 L025D92 LDY #$000C LDA ($00),Y STA L0211C6 DEC L0211C6 ASL TAX LDA L021563,X JSR L02162B LDA L0211C6 PHA _SetBasicChannel RTS L025DB1 LDA L0211C6 INC LDY #$000C STA ($00),Y RTS L025DBB LDY #$000C LDA ($00),Y STA L0211CA ASL TAX LDA L021563,X JSR L02162B LDA L0211CA PHA _SetVelComp RTS L025DD7 LDA L0211CA LDY #$000C STA ($00),Y RTS L025DE0 DW $0008 DA L025E4C DA L025DF2 DA L025E04 DA L025E16 DA L025E28 DA L025E3A DA L025E7A DA L025EA3 L025DF2 DB $05 DB $00 DB $00 DB $00 DB $39 DB $00 DB $3C DB $01 DA L025CE7 DA L025D12 ADRL L044C88 DB $00 DB $00 L025E04 DB $05 DB $00 DB $00 DB $00 DB $56 DB $00 DB $3C DB $01 DA L025D1F DA L025D3B ADRL L044C90 DB $00 DB $00 L025E16 DB $05 DB $00 DB $00 DB $00 DB $39 DB $00 DB $A4 DB $00 DA L025D48 DA L025D79 ADRL L0432BE DB $00 DB $00 L025E28 DB $05 DB $00 DB $00 DB $00 DB $46 DB $00 DB $A4 DB $00 DA L025D48 DA L025D79 ADRL L0432C6 DB $01 DB $00 L025E3A DB $05 DB $00 DB $00 DB $00 DB $53 DB $00 DB $A4 DB $00 DA L025D48 DA L025D79 ADRL L0432CE DB $02 DB $00 L025E4C DB $02 DB $00 DB $00 DB $00 DB $78 DB $00 DB $CC DB $00 DB $01 DB $00 DB $10 DB $00 DB $00 DB $00 DA L025DB1 DB $33 DB $6B DB $A9 DB $6D DA L025D92 ADRL L025E6C DB $98 DB $00 DB $96 DB $00 DA L025500 L025E6C STR 'Basic Channel' L025E7A DB $02 DB $00 DB $00 DB $00 DB $78 DB $00 DB $64 DB $01 DB $00 DB $00 DB $3F DB $00 DB $00 DB $00 DA L025DD7 DB $59 DB $6B DB $CF DB $6D DA L025DBB ADRL L025E9A DB $40 DB $01 DB $96 DB $00 DA L025500 L025E9A STR 'Vel Comp' L025EA3 DB $07 DB $00 DB $00 DB $00 DB $A4 DB $00 DB $5C DB $01 DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L025EB7 JSR L0205B5 JSR L0219FA LDA #L025F97 JSR L021A1A PEA $007C PEA $0030 _MoveTo PEA ^L025FD8 PEA L025FD8 _DrawString PEA $00DC PEA $0030 _MoveTo PEA ^L025F9F PEA L025F9F _DrawString PEA $013C PEA $0030 _MoveTo PEA ^L025FB3 PEA L025FB3 _DrawString PEA $0198 PEA $0030 _MoveTo PEA ^L025FA9 PEA L025FA9 _DrawString PEA $0064 PEA $006C _MoveTo PEA ^L025FC6 PEA L025FC6 _DrawString PEA $015C PEA $006C _MoveTo PEA ^L025FBD PEA L025FBD _DrawString LDA #^L026130 STA $50 PHA LDA #L026130 STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA #L021B42 STA L0219F8 JSR L02185F LDA L021B3E BEQ L025F8D L025F8D JSR L0205F4 JSR L021A0A JSR L021AAB RTS L025F97 DW $001D DW $003C DW $00B1 DW $0212 L025F9F STR 'Metronome' L025FA9 STR 'Key Start' L025FB3 STR 'Count Off' L025FBD STR 'Beat To:' L025FC6 STR 'Beats Per Measure' L025FD8 STR 'Clock' L025FDE LDA L0211CC BNE L025FE7 JSR L0212F6 RTS L025FE7 JSR L0212E1 RTS L025FEB LDA L0211CC BEQ L026000 STZ L0211CC JSR L0212F6 LDA L027426 AND #$F7FF STA L027426 RTS L026000 INC L0211CC JSR L0212E1 LDA L027426 ORA #$0800 STA L027426 RTS L026010 LDA L0211D0 BNE L026019 JSR L0212F6 RTS L026019 JSR L0212E1 RTS L02601D LDA L0211D0 BEQ L026032 STZ L0211D0 LDA L027426 AND #$FF80 STA L027426 JSR L0212F6 RTS L026032 INC L0211D0 LDA L027426 ORA L021103 STA L027426 JSR L0212E1 RTS L026042 LDA L0211CE BNE L02604B JSR L0212F6 RTS L02604B JSR L0212E1 RTS L02604F LDA L0211CE BEQ L026064 STZ L0211CE LDA L027426 AND #$EFFF STA L027426 JSR L0212F6 RTS L026064 INC L0211CE LDA L027426 ORA #$1000 STA L027426 JSR L0212E1 RTS RTS L026075 LDY #$0010 LDA ($00),Y CMP L021105 BNE L026080 RTS L026080 STA L021105 LDA $00 PHA LDA L0260C2 STA $00 JSR L0212F6 PLA STA $00 STA L0260C2 JSR L0212E1 LDA L021105 ASL TAY LDA L0260C4,Y STA L021107 PHA _SetBeat RTS L0260AB LDY #$0010 LDA ($00),Y CMP L021105 BNE L0260BE JSR L0212E1 LDA $00 STA L0260C2 RTS L0260BE JSR L0212F6 RTS L0260C2 DW $0000 L0260C4 DW $0090 DW $0060 DW $0030 DW $0018 DW $000C L0260CE LDY #$0010 LDA ($00),Y CMP L0211D2 BNE L0260D9 RTS L0260D9 STA L0211D2 LDA $00 PHA LDA L026114 STA $00 JSR L0212F6 PLA STA $00 STA L026114 JSR L0212E1 LDA L027426 AND #$FBFF ORA L0211D2 STA L027426 RTS L0260FD LDY #$0010 LDA ($00),Y CMP L0211D2 BNE L026110 JSR L0212E1 LDA $00 STA L026114 RTS L026110 JSR L0212F6 RTS L026114 DW $0000 L026116 LDY #$000C LDA ($00),Y STA L021103 ASL TAX LDA L021563,X JSR L02162B RTS L026127 LDA L021103 LDY #$000C STA ($00),Y RTS L026130 DW $000C DA L0261FB DA L02620D DA L02614A DA L02616E DA L02615C DA L0261DA DA L026180 DA L026192 DA L0261A4 DA L0261B6 DA L0261C8 DA L02621F L02614A DW $0005 DW $0000 DW $0035 DW $00E0 DA L025FEB DA L025FDE ADRL L043D8E DW $0000 L02615C DW $0005 DW $0000 DW $0035 DW $013C DA L02601D DA L026010 ADRL L044840 DW $0000 L02616E DW $0005 DW $0000 DW $0035 DW $0198 DA L02604F DA L026042 ADRL L0441D6 DW $0000 L026180 DW $0005 DW $0000 DW $0071 DW $0114 DA L026075 DA L0260AB ADRL L0473A0 DW $0000 L026192 DW $0005 DW $0000 DW $0071 DW $013C DA L026075 DA L0260AB ADRL L0473A8 DW $0001 L0261A4 DW $0005 DW $0000 DW $0071 DW $0164 DA L026075 DA L0260AB ADRL L0473B0 DW $0002 L0261B6 DW $0005 DW $0000 DW $0071 DW $018C DA L026075 DA L0260AB ADRL L0473B8 DW $0003 L0261C8 DW $0005 DW $0000 DW $0071 DW $01B4 DA L026075 DA L0260AB ADRL L0473C0 DW $0004 L0261DA DW $0002 DW $0000 DW $0072 DW $00AC DW $0001 DW $0063 DW $0000 DA L026127 DW $676B DW $69E1 DA L026116 ADRL L0261FA DW $008C DW $008F DA L025500 L0261FA DB $00 L0261FB DW $0005 DW $0000 DW $0038 DW $0068 DA L0260CE DA L0260FD ADRL L047E78 DW $0000 L02620D DW $0005 DW $0000 DW $0045 DW $0068 DA L0260CE DA L0260FD ADRL L047E80 DW $0400 L02621F DW $0007 DW $0000 DW $0099 DW $0194 DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L026233 JSR L0205B5 JSR L0219FA JSR L0263DC STA L026417 STA $42 STA L026417+2 PEA $0000 PEA $0000 PEA ^L0263F1 PEA L0263F1 _GetNewModalDialog PLA STA L02183F PLA STA L02183F+2 LDA L02183F+2 PHA LDA L02183F PHA _DrawDialog JSR L0263A0 LDA L02183F+2 PHA LDA L02183F PHA _SetPort PHA PHA PEA ^L02640F PEA L02640F PEA ^L02640F PEA L02640F PEA $000F _LENew PLA STA L021853 PLA STA L021853+2 LDA $5E PHA LDA L026417 INC PHA LDA ($42) AND #$00FF PHA LDA L021853+2 PHA LDA L021853 PHA _LESetText LDA #^L026479 STA $50 PHA LDA #L026479 STA $4E PHA PEA $0000 JSR L025483 LDA L021853+2 PHA LDA L021853 PHA _LEActivate PEA $0000 PEA $000E LDA L021853+2 PHA LDA L021853 PHA _LESetSelect LDA L021853+2 PHA LDA L021853 PHA _LEUpdate LDA #L026407 STA L02185B LDA #$FFFF STA L021851 LDA #L021B42 STA L0219F8 JSR L02185F STZ L021851 LDA L021B3E BEQ L02636C LDA L0263EB STA $4A PHA LDA L021853+2 PHA LDA L021853 PHA _LEGetTextLen PLA STA ($4A) PHA PHA LDA L021853+2 PHA LDA L021853 PHA _LEGetTextHand PLA STA $3E PLA STA $40 LDA [$3E] STA $42 LDY #$0002 LDA [$3E],Y STA $44 INC $4A SEP #$20 LDY #$000E L026360 LDA [$42],Y STA ($4A),Y DEY BPL L026360 REP #$20 JSR L029467 L02636C LDA L021853+2 PHA LDA L021853 PHA _LEDispose LDA L02183F+2 PHA LDA L02183F PHA _CloseDialog JSR L0205F4 JSR L021A0A LDA L020021+2 PHA LDA L020021 PHA _SetPort RTS L0263A0 LDAL L045B7C STA $16 LDA L02002D STA $18 LDA #$000F STA $2C LDAL L020966 STA $1E LDA #$5422 STA $1C LDA #$0026 STA $1A LDA #$00A0 STA $20 LDA #$0026 STA $2E _HideCursor JSR L025501 _ShowCursor RTS L0263DC LDA L0212DF ASL ASL ASL ASL CLC ADC #L022697 STA L0263EB RTS L0263EB DW $0000 DW $0004 DW $0000 L0263F1 DW $003C ; dtBoundsRect DW $00DA DW $0084 DW $01CF DW $FFFF ; dtVisible ADRL $00000000 ; dtRefCon ADRL L02642C ; itemPtr ADRL $00000000 ; Terminator L026407 DW $0053 DW $010A DW $0062 DW $019E L02640F DW $001A DW $0038 DW $0029 DW $00C4 L026417 ADRL L022697 L02641B STR 'Instrument Name:' L02642C DW $0004 ; Item ID DW $0005 ; Item rect DW $0038 DW $000F DW $00F0 DW $800F ; Static text ADRL L02641B ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table JSR L0263DC LDA #$0001 PHA _SetForeColor PEA $01F4 PEA $0013 _MoveTo LDA $5E PHA LDA L0263EB PHA _DrawString LDA #$0000 PHA _SetForeColor RTS L026479 DW $0002 DA L02647F DA L026493 L02647F DW $0007 DW $0000 DW $0071 DW $016E DA L021B51 DA L021B5B ADRL L045444 DA L021B6E DA L021B67 L026493 DW $0007 DW $0000 DW $0071 DW $00F6 DA L021B92 DA L021B9C ADRL L04543C DA L021BAF DA L021BA8 L0264A7 JSR L0205B5 JSR L0219FA JSR L02665B STA L026690 STA $42 STA L026690+2 PEA $0000 PEA $0000 PEA ^L02666A PEA L02666A _GetNewModalDialog PLA STA L02183F PLA STA L02183F+2 LDA L02183F+2 PHA LDA L02183F PHA _DrawDialog JSR L02661F LDA L02183F+2 PHA LDA L02183F PHA _SetPort PHA PHA PEA ^L026680 PEA L026680 PEA ^L026680 PEA L026680 PEA $000F _LENew PLA STA L021853 PLA STA L021853+2 LDA $5E PHA LDA L026690 INC PHA LDA ($42) AND #$00FF PHA LDA L021853+2 PHA LDA L021853 PHA _LESetText LDA #^L0266BA STA $50 PHA LDA #L0266BA STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA L021853+2 PHA LDA L021853 PHA _LEActivate PEA $0000 PEA $000E LDA L021853+2 PHA LDA L021853 PHA _LESetSelect LDA L021853+2 PHA LDA L021853 PHA _LEUpdate LDA #L026688 STA L02185B LDA #$FFFF STA L021851 LDA #L021B42 STA L0219F8 JSR L02185F STZ L021851 LDA L021B3E BEQ L0265EB LDA L026694 STA $4A PHA LDA L021853+2 PHA LDA L021853 PHA _LEGetTextLen PLA STA ($4A) PHA PHA LDA L021853+2 PHA LDA L021853 PHA _LEGetTextHand PLA STA $3E PLA STA $40 LDA [$3E] STA $42 LDY #$0002 LDA [$3E],Y STA $44 INC $4A SEP #$20 LDY #$000E L0265E2 LDA [$42],Y STA ($4A),Y DEY BPL L0265E2 REP #$20 L0265EB LDA L021853+2 PHA LDA L021853 PHA _LEDispose LDA L02183F+2 PHA LDA L02183F PHA _CloseDialog JSR L0205F4 JSR L021A0A LDA L020021+2 PHA LDA L020021 PHA _SetPort RTS L02661F LDAL L045B7C STA $16 LDA L02002D STA $18 LDA #$000F STA $2C LDAL L020966 STA $1E LDA #$5422 STA $1C LDA #$0026 STA $1A LDA #$00A0 STA $20 LDA #$0026 STA $2E _HideCursor JSR L025501 _ShowCursor RTS L02665B LDA L027871 ASL ASL ASL ASL CLC ADC #L020F9F STA L026694 RTS L02666A DW $003C ; dtBoundsRect DW $00DA DW $0084 DW $01CF DW $FFFF ; dtVisible ADRL $00000000 ; dtRefCon ADRL L0266A2 ; itemPtr ADRL $00000000 ; Terminator L026680 DW $001A DW $0038 DW $0029 DW $00C4 L026688 DW $0053 DW $010A DW $0062 DW $019E L026690 ADRL L020F9F L026694 DW $0000 L026696 STR 'Track Name:' L0266A2 DW $0004 ; Item ID DW $0005 ; Item rect DW $0050 DW $000F DW $0108 DW $800F ; Static text ADRL L026696 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L0266BA DW $0002 DA L0266C0 DA L0266D4 L0266C0 DW $0007 DW $0000 DW $0071 DW $016E DA L021B51 DA L021B5B ADRL L045444 DA L021B6E DA L021B67 L0266D4 DW $0007 DW $0000 DW $0071 DW $00F6 DA L021B92 DA L021B9C ADRL L04543C DA L021BAF DA L021BA8 L0266E8 JSR L0205B5 JSR L0219FA LDA #L02672D JSR L021A1A JSR L026B41 LDA #^L026FBF STA $50 PHA LDA #L026FBF STA $4E PHA PEA $0000 _HideCursor JSR L025483 LDA #L021B42 STA L0219F8 JSR L026735 _ShowCursor JSR L02185F JSR L0205F4 JSR L021A0A JSR L021AAB RTS L02672D DW $001B DW $002C DW $00BC DW $026C L026735 LDA #$0060 STA L026A81 LDA #$0036 STA L026A83 LDA #$000A STA L026A89 LDA L026DED STA L026A85 STA L026A9B STZ L026A87 L026753 JSR L026776 BCS L02676C DEC L026A89 BEQ L02676F LDA L026A83 CLC ADC #$000C STA L026A83 INC L026A85 BRA L026753 L02676C INC L026A87 L02676F LDA L026A85 STA L026A9D RTS L026776 JSR L026A9F LDA [$3E] BMI L026794 LDA L026A81 STA L026A8B JSR L0267B2 JSR L0267DC JSR L026824 JSR L026841 JSR L0268D0 CLC RTS L026794 LDA L026A81 PHA LDA L026A83 PHA _MoveTo PEA ^L026A8D PEA L026A8D _DrawString SEC RTS L0267B2 JSR L026AB4 LDA L026A8B PHA LDA L026A83 PHA _MoveTo PEA ^L026B28 PEA L026B28 _DrawString LDA L026A8B CLC ADC #$0050 STA L026A8B RTS L0267DC LDY #$0005 LDA [$3E],Y AND #$000F INC PHA PEA ^L026A72 PEA L026A72 LDA #$0002 PHA STA L026A71 PEA $0000 _Int2Dec LDA L026A8B PHA LDA L026A83 PHA _MoveTo PEA ^L026A71 PEA L026A71 _DrawString LDA L026A8B CLC ADC #$001C STA L026A8B RTS L026824 LDY #$0005 LDA [$3E],Y AND #$0070 STA L026A99 LSR LSR LSR TAY JSR L026922 LDA L026A8B CLC ADC #$0024 STA L026A8B RTS L026841 LDY #$0004 LDA [$3E],Y AND #$000F BNE L02684E BRL L0268CF L02684E LDA L026A99 CMP #$0020 BCS L026889 LDA L026A8B PHA LDA L026A83 PHA _MoveTo LDA $5E PHA LDY #$0006 LDA [$3E],Y AND #$007F SEC SBC #$0018 BCS L026879 ADC #$0018 L026879 ASL ASL CLC ADC #L026DEF PHA _DrawString BRA L0268C5 L026889 LDY #$0006 LDA [$3E],Y AND #$007F PHA PEA ^L026A72 PEA L026A72 LDA #$0003 PHA STA L026A71 PEA $0000 _Int2Dec LDA L026A8B PHA LDA L026A83 PHA _MoveTo PEA ^L026A71 PEA L026A71 _DrawString L0268C5 LDA L026A8B CLC ADC #$0020 STA L026A8B L0268CF RTS L0268D0 LDY #$0004 LDA [$3E],Y AND #$000F DEC BEQ L026921 LDY #$0007 LDA [$3E],Y AND #$007F PHA PEA ^L026A72 PEA L026A72 LDA #$0003 PHA STA L026A71 PEA $0000 _Int2Dec LDA L026A8B PHA LDA L026A83 PHA _MoveTo PEA ^L026A71 PEA L026A71 _DrawString LDA L026A8B CLC ADC #$0019 STA L026A8B L026921 RTS L026922 LDA #L048298 STA $6A LDA L02002D STA $6C LDA [$6A],Y STA $16 LDA L02002D STA $18 LDA #$0006 STA $2E STA $1A LDA #$0008 STA $2C LDA $06 PHA LDA $04 PHA LDA L026A8B STA $06 LDA L026A83 SEC SBC #$0008 STA $04 JSR L0254E3 PLA STA $04 PLA STA $06 RTS L02695F LDA L026A87 BEQ L026965 RTS L026965 LDA #$4458 STA $16 LDAL L020966 STA $18 LDA L0205B1 STA $1C LDA L0205B1+2 STA $1E LDA #$0068 STA $2C LDA #$0036 STA $2E STA $20 LDA #$00A0 STA $1A JSR L025501 LDA #$3CD8 STA $1C LDAL L020966 STA $1E LDA L0205B1 STA $16 LDA L0205B1+2 STA $18 LDA #$0074 STA $2C LDA #$0036 STA $2E STA $1A LDA #$00A0 STA $20 JSR L025501 LDA #$00A2 STA L026A83 LDA #$0060 STA L026A81 INC L026A9D INC L026A9B LDA L026A9D STA L026A85 JSR L026776 BCC L0269D7 INC L026A87 L0269D7 RTS L0269D8 LDA L026A9B BNE L0269DE RTS L0269DE LDA #$3CD8 STA $16 LDAL L020966 STA $18 LDA L0205B1 STA $1C LDA L0205B1+2 STA $1E LDA #$0068 STA $2C LDA #$0036 STA $2E STA $20 LDA #$00A0 STA $1A JSR L025501 LDA #$4458 STA $1C LDAL L020966 STA $1E LDA L0205B1 STA $16 LDA L0205B1+2 STA $18 LDA #$0068 STA $2C LDA #$0036 STA $2E STA $1A LDA #$00A0 STA $20 JSR L025501 LDA #$3CD8 JSR L026A55 LDA #$0036 STA L026A83 LDA #$0060 STA L026A81 DEC L026A9D DEC L026A9B STZ L026A87 LDA L026A9B STA L026A85 JSR L026776 RTS L026A55 STA $30 LDA #$0008 STA $2C LDA #$0036 STA $2E STA $1A LDA #$00A0 STA $20 LDA #$FFFF STA $32 JSR L0213AA RTS L026A71 DB $00 L026A72 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L026A81 DB $00 DB $00 L026A83 DB $00 DB $00 L026A85 DB $00 DB $00 L026A87 DB $00 DB $00 L026A89 DB $0A DB $00 L026A8B DB $00 DB $00 L026A8D STR '*** EOS ***' L026A99 DB $00 DB $00 L026A9B DB $00 DB $00 L026A9D DB $00 DB $00 L026A9F LDA L026A85 ASL ASL ASL CLC ADC L027412 STA $3E LDA L027414 ADC #$0000 STA $40 RTS L026AB4 PHA PHA PHA LDA L021107 PHA LDA L021103 PHA LDY #$0001 LDA [$3E],Y AND #$00FF PHA INY LDA [$3E],Y PHA _ConvertToMeasure PLA STA L026B33 PLA STA L026B35 PLA STA L026B37 LDA L026B33 PHA PEA ^L026B29 PEA L026B29 LDA #$0003 PHA PEA $0000 _Int2Dec LDA L026B35 PHA PEA ^L026B2D PEA L026B2D LDA #$0002 PHA PEA $0000 _Int2Dec LDA L026B37 PHA PEA ^L026B30 PEA L026B30 LDA #$0003 PHA PEA $0000 _Int2Dec RTS L026B28 DB $0A L026B29 ASC '123' ASC ':' L026B2D ASC '12' ASC ':' L026B30 ASC '123' L026B33 DW $0000 L026B35 DW $0000 L026B37 DW $0000 L026B39 DW $0029 DW $0178 DW $0096 DW $0244 L026B41 JSR L026D27 PEA $0002 PEA $0001 _SetPenSize PEA $0000 _SetSolidPenPat PEA ^L026B39 PEA L026B39 PEA $0018 PEA $000A _FrameRRect PEA $0001 PEA $0001 _SetPenSize PEA $0190 PEA $0038 _MoveTo PEA ^L026D00 PEA L026D00 _DrawString LDA #$0001 PHA _SetForeColor PEA $01CC PEA $0038 _MoveTo PEA ^L028B08 PEA L028B08 _DrawString LDA #$0000 PHA _SetForeColor PEA $0190 PEA $0044 _MoveTo PEA ^L026D06 PEA L026D06 _DrawString LDA L026DE7 PHA LDA L026DE5 PHA PEA ^L026D21 PEA L026D21 LDA #$0006 PHA STA L026D20 PEA $0000 _Long2Dec PEA $01CC PEA $0044 _MoveTo PEA ^L026D20 PEA L026D20 _DrawString PEA $0190 PEA $0050 _MoveTo PEA ^L026D0E PEA L026D0E _DrawString LDA L026DEB PHA LDA L026DE9 PHA PEA ^L026D21 PEA L026D21 LDA #$0006 PHA STA L026D20 PEA $0000 _Long2Dec PEA $01CC PEA $0050 _MoveTo PEA ^L026D20 PEA L026D20 _DrawString PEA $0190 PEA $0074 _MoveTo PEA ^L026D14 PEA L026D14 _DrawString LDA #$0001 PHA _SetForeColor PEA $01CC PEA $0074 _MoveTo PEA ^L028C64 PEA L028C64 _DrawString LDA #$0000 PHA _SetForeColor PEA $0190 PEA $0080 _MoveTo PEA ^L026D1A PEA L026D1A _DrawString LDA #$0001 PHA _SetForeColor PEA $01CC PEA $0080 _MoveTo PEA ^L028C74 PEA L028C74 _DrawString LDA #$0000 PHA _SetForeColor RTS L026D00 STR 'Name:' L026D06 STR 'Length:' L026D0E STR 'Free:' L026D14 STR 'Bank:' L026D1A STR 'Wave:' L026D20 DB $06 L026D21 ASC 000000000000 L026D27 PHA PHA LDA L02763F PHA LDA L02763D PHA LDA L027414 PHA LDA L027412 PHA _Locate PLA STA L026DDD PLA STA L026DDF SEC LDA L026DDD SBC L027412 STA L026DDD LDA L026DDF SBC L027414 STA L026DDF LSR L026DDF ROR L026DDD LSR L026DDF ROR L026DDD LSR L026DDF ROR L026DDD LDA L026DDD STA L026DED PHA PHA LDA L027414 PHA LDA L027412 PHA _LocateEnd PLA STA L026DDD PLA STA L026DDF LDA L026DDD SEC SBC L027412 STA L026DE5 LDA L026DDF SBC L027414 STA L026DE7 LDA L026DE5 SEC SBC #$0002 STA L026DE5 LDA L026DE7 SBC #$0000 STA L026DE7 LDA L027412 CLC ADC #$0000 STA L026DE1 LDA L027414 ADC #$0002 STA L026DE3 LDA L026DE1 SEC SBC L026DDD STA L026DE9 LDA L026DE3 SBC L026DDF LSR STA L026DEB ROR L026DE9 RTS L026DDD DB $00 DB $00 L026DDF DB $00 DB $00 L026DE1 DB $00 DB $00 L026DE3 DB $00 DB $00 L026DE5 DB $00 DB $00 L026DE7 DB $00 DB $00 L026DE9 DB $00 DB $00 L026DEB DB $00 DB $00 L026DED DB $00 DB $00 L026DEF STR 'C0 ' STR 'C#0' STR 'D0 ' STR 'D#0' STR 'E0 ' STR 'F0 ' STR 'F#0' STR 'G0 ' STR 'G#0' STR 'A0 ' STR 'A#0' STR 'B0 ' STR 'C1 ' STR 'C#1' STR 'D1 ' STR 'D#1' STR 'E1 ' STR 'F1 ' STR 'F#1' STR 'G1 ' STR 'G#1' STR 'A1 ' STR 'A#1' STR 'B1 ' STR 'C2 ' STR 'C#2' STR 'D2 ' STR 'D#2' STR 'E2 ' STR 'F2 ' STR 'F#2' STR 'G2 ' STR 'G#2' STR 'A2 ' STR 'A#2' STR 'B2 ' STR 'C3 ' STR 'C#3' STR 'D3 ' STR 'D#3' STR 'E3 ' STR 'F3 ' STR 'F#3' STR 'G3 ' STR 'G#3' STR 'A3 ' STR 'A#3' STR 'B3 ' STR 'C4 ' STR 'C#4' STR 'D4 ' STR 'D#4' STR 'E4 ' STR 'F4 ' STR 'F#4' STR 'G4 ' STR 'G#4' STR 'A4 ' STR 'A#4' STR 'B4 ' STR 'C5 ' STR 'C#5' STR 'D5 ' STR 'D#5' STR 'E5 ' STR 'F5 ' STR 'F#5' STR 'G5 ' STR 'G#5' STR 'A5 ' STR 'A#5' STR 'B5 ' STR 'C6 ' STR 'C#6' STR 'D6 ' STR 'D#6' STR 'E6 ' STR 'F6 ' STR 'F#6' STR 'G6 ' STR 'G#6' STR 'A6 ' STR 'A#6' STR 'B6 ' STR 'C7 ' STR 'C#7' STR 'D7 ' STR 'D#7' STR 'E7 ' STR 'F7 ' STR 'F#7' STR 'G7 ' STR 'G#7' STR 'A7 ' STR 'A#7' STR 'B7 ' STR 'C8 ' STR 'C#8' STR 'D8 ' STR 'D#8' STR 'E8 ' STR 'F8 ' STR 'F#8' STR 'G8 ' STR 'G#8' STR 'A8 ' STR 'A#8' STR 'B8 ' STR 'C9 ' STR 'C#9' STR 'D9 ' STR 'D#9' STR 'E9 ' STR 'F9 ' STR 'F#9' STR 'G9 ' L026FBF DW $0002 DA L026FC5 DA L026FE7 L026FC5 DW $000B DW $0000 DW $0028 DW $0138 DW $0078 DW $003C DW $003C DA L025500 DW $394E DW $00E8 DA L025500 DW $0000 ADRL L02695F ADRL L0269D8 DA L025500 L026FE7 DW $0007 DW $0000 DW $00A1 DW $01C0 DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L026FFB JSR L0205B5 JSR L0219FA LDA #L027049 JSR L021A1A LDA #^L02706B STA $50 PHA LDA #L02706B STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA #L021B42 STA L0219F8 JSR L02185F LDA L021B3E BEQ L02703F LDX L027804 LDA L027806 DEC STA L0210BF,X L02703F JSR L0205F4 JSR L021A0A JSR L021AAB RTS L027049 DW $002E DW $012C DW $0084 DW $01BC L027051 LDY #$000C LDA ($00),Y STA L027806 ASL TAX LDA L021563,X JSR L02162B RTS L027062 LDA L027806 LDY #$000C STA ($00),Y RTS L02706B DW $0002 DA L027071 DA L027099 L027071 DW $0002 DW $0000 DW $003C DW $0178 DW $0000 DW $0010 DW $0000 DA L027062 DW $45DE DW $4854 DA L027051 ADRL L027091 DW $0158 DW $0059 DA L025500 L027091 STR 'Channel' L027099 DW $0007 DW $0000 DW $0068 DW $0152 DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L0270AD JSR L0206A9 L0270B0 JSR L0270E3 LDA #L0270E3 STA L02126C LDA #L0270B0 STA L02001D LDA #L0275F2 STA L02002F JSR L0270FE PEA $0040 PEA $00A6 _MoveTo PEA ^L0270FC PEA L0270FC _DrawString RTS L0270E3 JSR L025598 LDA #^L027963 STA $50 PHA LDA #L027963 STA $4E PHA PEA $0000 JSR L025483 JSR L025574 RTS L0270FC STR '=' L0270FE LDA #L027107 STA $3E JSR L028050 RTS L027107 ADRL L042648 DW $0009 DW $0008 DW $2F3F ADRL L042690 DW $000C DW $000E DW $2F4E ADRL L042738 DW $0009 DW $000C DW $2F62 ADRL L0427A4 DW $0009 DW $0012 DW $2F79 DW $0000 L027131 JSR L0212F6 JSR L021707 RTS L027138 RTS L027139 LDY #$000C LDA ($00),Y STA L021101 ASL TAX LDA L021563,X JSR L02162B RTS L02714A LDA L021101 LDY #$000C STA ($00),Y RTS L027153 LDA L021101 SEC SBC #$0005 ASL PHA _SetTempo RTS L027164 JSR L0212E1 RTS L027168 LDY #$0010 LDA ($00),Y CMP L0271C4 BEQ L027176 JSR L0212F6 RTS L027176 LDA $00 STA L0271C8 JSR L0212E1 RTS L02717F LDY #$0010 LDA ($00),Y CMP L0271C4 BNE L02718A RTS L02718A STA L0271C6 LDA L0271C4 BEQ L027198 LDA L0271C6 BEQ L02719B RTS L027198 LDA L0271C6 L02719B STA L0271C4 JSR L02AFCD LDA $00 PHA LDA L0271C8 STA $00 JSR L0212F6 PLA STA $00 STA L0271C8 JSR L0212E1 LDA L0271C4 ASL TAX JSR (L0271BE,X) RTS L0271BE DA L0271CA DA L02721B DA L027244 L0271C4 DW $0000 L0271C6 DW $0000 L0271C8 DW $0000 L0271CA LDA L027426 AND #$FCFF STA L027426 PEA ^L027416 PEA L027416 _SeqPlayer _KillAllNotes JSR L0272DD STZ L027643 LDA L02728E BEQ L02721A _WaitCursor LDA L027420 PHA LDA L02741E PHA LDA L027414 PHA LDA L027412 PHA _Merge STZ L02728E _InitCursor L02721A RTS L02721B JSR L02AF76 JSR L02732A JSR L02737E LDA L027426 AND #$FDFF ORA #$0100 STA L027426 JSR L021707 PEA ^L027416 PEA L027416 _SeqPlayer STZ L02728E RTS L027244 LDA L0210FF BMI L02726E PHA PHA PHA PHA PHA LDA L02763F PHA LDA L02763D PHA LDA L027414 PHA LDA L027412 PHA _Locate _DeleteTrack PLA PLA L02726E JSR L02732A JSR L02737E LDA L027426 ORA #$0300 STA L027426 PEA ^L027416 PEA L027416 _SeqPlayer INC L02728E RTS L02728E DW $0000 L027290 JSR L02737E LDA L027426 AND #$FDFF ORA #$0100 STA L027426 PEA ^L027416 PEA L027416 _SeqPlayer RTS L0272AD LDA L027426 AND #$FCFF STA L027426 PEA ^L027416 PEA L027416 _SeqPlayer _KillAllNotes RTS L0272CB JSR L0272DD LDA $00 PHA LDA #L027A23 STA $00 JSR L02717F PLA STA $00 RTS L0272DD LDA #$000F STA L027310 L0272E3 PEA $0000 PEA $0002 LDA #$00B0 ORA L027310 PHA LDA #$0007 PHA LDA L027310 ASL TAY LDA L02109F,Y PHA _MIDIMessage DEC L027310 BPL L0272E3 JSR L027312 JSR L02965B RTS L027310 DW $000F L027312 LDA L027589 BEQ L027329 STZ L02763D STZ L02763F LDA #$0001 STA L027637 STA L027639 JSR L021707 L027329 RTS L02732A LDA #$0001 STA L027643 LDA L027426 AND #$007F STA L027641 LDA L027637 CMP #$0001 BEQ L027346 LDA #$0180 BRA L027349 L027346 LDA #$01A0 L027349 LDY #$00E4 STA [$70],Y LDA #$000F STA L027310 L027354 PEA $0000 PEA $0002 LDA #$00B0 ORA L027310 PHA LDA #$0007 PHA LDA L027310 ASL TAY LDA L02109F,Y PHA _MIDIMessage DEC L027310 BPL L027354 JSR L029619 RTS L02737E LDA L027412 STA L027422 LDA L027414 CLC ADC #$0002 STA L027424 JSR L02739E LDA L02763D STA L027428 LDA L02763F STA L02742A RTS L02739E PHA PHA LDA L02763F PHA LDA L02763D PHA LDA L027414 PHA LDA L027412 PHA _Locate PLA STA L027416 PLA STA L027418 PHA PHA LDA L027414 PHA LDA L027412 PHA _LocateEnd PLA STA L02741E PLA STA L027420 LDA L027422 SEC SBC L02741E STA L02740C LDA L027424 SBC L027420 LSR STA L02740E ROR L02740C CLC LDA L02740C ADC L02741E STA L02741E STA $3E LDA L02740E ADC L027420 STA L027420 STA $40 LDA #$FFFF STA [$3E] RTS L02740C DB $00 DB $00 L02740E DB $00 DB $00 L027410 DB $00 DB $00 L027412 DB $00 DB $00 L027414 DB $00 DB $00 L027416 DB $00 DB $00 L027418 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02741E DB $00 DB $00 L027420 DB $00 DB $00 L027422 DB $00 DB $00 L027424 DB $00 DB $00 L027426 DB $00 DB $00 L027428 DB $00 DB $00 L02742A DB $00 DB $00 L02742C PHB PHK PLB LDA L0271C4 CMP #$0001 BNE L02743D LDA #$0001 STA L027410 L02743D PLB RTL L02743F PHB PHK PLB LDA #$0001 STA L027410 PLB RTL L02744A JSR L0212F6 RTS L02744E LDA L0271C4 BEQ L02747D CMP #$0001 BEQ L027459 RTS L027459 STA L0274CA JSR L0212E1 LDA L021101 STA L0274CC ASL CMP #$0084 BCC L027470 BEQ L027470 LDA #$0084 L027470 STA L021101 JSR L027153 LDA #$0001 STA L02755E RTS L02747D STA L0274CA STZ L027560 JMP L02750F L027486 LDA L0274CA BNE L027491 STZ L027560 JMP L027522 L027491 JSR L025353 BCS L0274A2 LDA L02755E BEQ L0274AD JSR L0274BD STZ L02755E RTS L0274A2 LDA L02755E BNE L0274AD LDA L0274CA JSR L027459 L0274AD RTS L0274AE LDA L0274CA BEQ L0274B9 CMP #$0001 BEQ L0274BD RTS L0274B9 JSR L0212F6 RTS L0274BD JSR L0212F6 LDA L0274CC STA L021101 JSR L027153 RTS L0274CA DW $0000 L0274CC DW $0000 L0274CE JSR L0212F6 RTS L0274D2 LDA L0271C4 BEQ L0274D8 RTS L0274D8 LDA #$0002 STA L027560 JSR L027599 BCC L0274F5 LDA #$0001 STA L027639 STA L027637 STA L02763B STZ L02763D STZ L02763F L0274F5 BRA L02750F L0274F7 LDA L0271C4 BEQ L0274FD RTS L0274FD LDA #$0002 STA L027560 BRA L027522 L027505 LDA L0271C4 BEQ L02750B RTS L02750B JSR L0212F6 RTS L02750F JSR L0212E1 LDA #$0001 STA L02755E JSR L02758B LDX L027560 JSR (L027562,X) L027521 RTS L027522 JSR L025353 BCS L027533 LDA L02755E BEQ L027521 JSR L0212F6 STZ L02755E RTS L027533 LDA L02755E BNE L027545 JSR L0212E1 INC L02755E LDAL TickCount STA L025178 L027545 JSR L0252C3 BCC L027521 LDA #$0003 STA L02517A LDAL TickCount STA L025178 LDX L027560 JSR (L027562,X) RTS L02755E DW $0000 L027560 DW $0000 L027562 DA L027645 DA L027696 L027566 LDA L027589 BEQ L02756F JSR L0212E1 RTS L02756F JSR L0212F6 RTS L027573 LDA L027589 BNE L027582 LDA #$FFFF STA L027589 JSR L0212E1 RTS L027582 STZ L027589 JSR L0212F6 RTS L027589 DW $FFFF L02758B LDAL TickCount STA L025178 LDA #$001E STA L02517A RTS L027599 LDA L02000D CMP L0275EA BNE L0275CE LDA L02000F CMP L0275EC BNE L0275CE LDA L020009 SEC SBC L0275EE TAX INY INY LDA L020009+2 SBC L0275F0 BNE L0275CE CPX L0275E8 BCS L0275CE STZ L0275EA STZ L0275EC STZ L0275EE STZ L0275F0 SEC RTS L0275CE LDA L02000D STA L0275EA LDA L02000F STA L0275EC LDA L020009 STA L0275EE LDA L020009+2 STA L0275F0 CLC RTS L0275E8 DB $00 DB $00 L0275EA DB $00 DB $00 L0275EC DB $00 DB $00 L0275EE DB $00 DB $00 L0275F0 DB $00 DB $00 L0275F2 LDA L02763B BEQ L0275FD STZ L02763B JSR L021707 L0275FD LDA L027410 BEQ L027609 STZ L027410 JSR L0272CB RTS L027609 LDA L0271C4 BEQ L027619 LDA L02126C CMP #L0270E3 BNE L027619 JSR L02AF60 L027619 RTS L02761A PHB PHD PHK PLB LDA L02002B TCD LDA L027643 BEQ L027631 DEC L027641 BPL L027634 STZ L027643 BRA L027634 L027631 JSR L027645 L027634 PLD PLB RTL L027637 DW $0001 L027639 DW $0001 L02763B DW $0000 L02763D DW $0000 L02763F DW $0000 L027641 DW $0000 L027643 DW $0000 L027645 INC L027637 LDA L027637 CMP L021103 BCC L027678 BEQ L027678 LDA #$0001 STA L027637 LDY #$00E4 LDA #$01A0 STA [$70],Y INC L027639 LDA L027639 CMP #$03E8 BNE L027680 LDA #$03E7 STA L027639 LDA L021103 STA L027637 RTS L027678 LDY #$00E4 LDA #$0180 STA [$70],Y L027680 LDA L02763D CLC ADC L021107 STA L02763D BCC L02768F INC L02763F L02768F LDA #$0001 STA L02763B RTS L027696 DEC L027637 LDA L027637 BNE L0276B3 LDA L021103 STA L027637 DEC L027639 BNE L0276B3 LDA #$0001 STA L027639 STA L027637 RTS L0276B3 LDA L02763D SEC SBC L021107 STA L02763D BCS L0276C2 DEC L02763F L0276C2 LDA #$0001 STA L02763B RTS L0276C9 STZ L02763D STZ L02763F LDA #$0001 STA L027637 STA L027639 LDA L02126C CMP #L0270E3 BNE L0276E3 JSR L021707 L0276E3 RTS L0276E4 LDY #$0010 LDA ($00),Y ASL TAX LDA L0210DF,X BNE L0276F4 JSR L0212F6 RTS L0276F4 LDA #$FFFF STA L0210DF,X JSR L0212E1 RTS L0276FE LDY #$0010 LDA ($00),Y STA L027737 ASL TAX LDA L0210DF,X EOR #$FFFF STA L0210DF,X BNE L027725 JSR L0212F6 LDA L027737 PHA PEA $0000 _SetPlayTrack RTS L027725 JSR L0212E1 LDA L027737 PHA PEA $0001 _SetPlayTrack RTS L027737 DW $0000 L027739 LDY #$0010 LDA ($00),Y CMP L0210FF BEQ L027747 JSR L0212F6 RTS L027747 LDA $00 STA L02779D JSR L0212E1 RTS L027750 LDY #$0010 LDA ($00),Y CMP L0210FF BNE L02776E LDA #$FFFF STA L0210FF JSR L0212F6 PEA $FFFF _SetRecTrack RTS L02776E LDA L0210FF BMI L027781 LDA $00 PHA LDA L02779D STA $00 JSR L0212F6 PLA STA $00 L027781 LDY #$0010 LDA ($00),Y STA L0210FF LDA $00 STA L02779D JSR L0212E1 LDA L0210FF PHA _SetRecTrack RTS L02779D DW $0000 L02779F LDY #$0010 LDA ($00),Y ASL TAX LDA L0210BF,X INC STA L027806 ASL TAX LDAL L0417CE,X LDY #$000C STA ($00),Y JMP L0212F6 L0277BB LDY #$0010 LDA ($00),Y ASL TAX STX L027804 LDA L0210BF,X INC STA L027806 ASL TAX LDAL L0417CE,X LDY #$000C STA ($00),Y JSR L0212E1 JSR L026FFB LDX L027804 LDA L0210BF,X INC ASL TAX LDAL L0417CE,X LDY #$000C STA ($00),Y JSR L0212F6 LDA L027804 TAX LSR PHA LDA L0210BF,X PHA _TrackToChannel RTS L027804 DW $0000 L027806 DW $0000 L027808 JSR L0212F6 LDY #$0010 LDA ($00),Y STA L027871 JSR L02783E RTS L027817 LDY #$0010 LDA ($00),Y STA L027871 LDA #$0001 PHA _SetForeColor JSR L02783E LDA #$0000 PHA _SetForeColor JSR L0264A7 JMP L027808 L02783E LDA L027871 ASL ASL ASL ASL CLC ADC #L020F9F STA L02786F LDA #$01D8 PHA LDA L027871 ASL TAX LDA L027873,X PHA _MoveTo LDA $5E PHA LDA L02786F PHA _DrawString RTS L02786F DW $0000 L027871 DW $0000 L027873 DW $0033 DW $0047 DW $005B DW $006F DW $0083 DW $0097 DW $00AB DW $00BF L027883 LDX #$0000 L027886 LDA L0278E3,X STA L020F9F,X INX INX CPX #$0080 BNE L027886 LDX #$0000 L027896 LDA #$007F STA L02109F,X LDA #$0000 STA L0210DF,X LDA #$FFFF STA L0210BF,X INX INX CPX #$0020 BNE L027896 LDA #$0000 STA L0210FF LDA #$0001 STA L0210DF LDA L027412 STA $3E LDA L027414 STA $40 LDA #$FFFF STA [$3E] STZ L02763D STZ L02763F LDA #$0001 STA L027637 STA L027639 JSR L021149 LDX #$0000 JSR (L02126C,X) RTS L0278E3 STR 'Track 1' HEX 0000000000000000 STR 'Track 2' HEX 0000000000000000 STR 'Track 3' HEX 0000000000000000 STR 'Track 4' HEX 0000000000000000 STR 'Track 5' HEX 0000000000000000 STR 'Track 6' HEX 0000000000000000 STR 'Track 7' HEX 0000000000000000 STR 'Track 8' HEX 0000000000000000 L027963 DW $0032 DA L027B11 DA L027B23 DA L027B35 DA L027B47 DA L027B59 DA L027B6B DA L027B7D DA L027B8F DA L027BA1 DA L027BB3 DA L027BC5 DA L027BD7 DA L027BE9 DA L027BFB DA L027C0D DA L027C1F DA L027C31 DA L027C43 DA L027C55 DA L027C67 DA L027C79 DA L027C8B DA L027C9D DA L027CAF DA L027A81 DA L027A93 DA L027AA5 DA L027AB7 DA L027AC9 DA L027ADB DA L027AED DA L027AFF DA L027A23 DA L027A35 DA L027A11 DA L027A47 DA L027A5B DA L027A6F DA L0279C9 DA L0279DB DA L0217E3 DA L0217F5 DA L021807 DA L0279FF DA L0296A2 DA L0296B8 DA L0296CE DA L0296E4 DA L0296FA DA L029710 L0279C9 DW $0005 DW $0000 DW $003E DW $002C DA L027138 DA L027131 ADRL L045258 DW $0000 L0279DB DW $0002 DW $0000 DW $0099 DW $0080 DW $0005 DW $0063 DW $003C DA L02714A DW $7FC0 DW $8236 DA L027139 ADRL L0279FB DW $005C DW $00B6 DA L027153 L0279FB STR 'BPM' L0279FF DW $0005 DW $0000 DW $009B DW $0024 DA L025500 DA L027164 ADRL L047DF8 DW $0000 L027A11 DW $0005 DW $0000 DW $005B DW $0014 DA L02717F DA L027168 ADRL L040010 DW $0002 L027A23 DW $0005 DW $0000 DW $005B DW $004C DA L02717F DA L027168 ADRL L040000 DW $0000 L027A35 DW $0005 DW $0000 DW $005B DW $0084 DA L02717F DA L027168 ADRL L040008 DW $0001 L027A47 DW $0006 DW $0000 DW $0074 DW $0084 DA L02744E DA L02744A ADRL L040020 DA L027486 DA L0274AE L027A5B DW $0006 DW $0000 DW $0074 DW $004C DA L0274D2 DA L0274CE ADRL L040018 DA L0274F7 DA L027505 L027A6F DW $0005 DW $0000 DW $0074 DW $0014 DA L027573 DA L027566 ADRL L040910 DW $0000 L027A81 DW $0005 DW $0000 DW $0028 DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0000 L027A93 DW $0005 DW $0000 DW $003C DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0001 L027AA5 DW $0005 DW $0000 DW $0050 DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0002 L027AB7 DW $0005 DW $0000 DW $0064 DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0003 L027AC9 DW $0005 DW $0000 DW $0078 DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0004 L027ADB DW $0005 DW $0000 DW $008C DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0005 L027AED DW $0005 DW $0000 DW $00A0 DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0006 L027AFF DW $0005 DW $0000 DW $00B4 DW $00FC DA L0277BB DA L02779F ADRL L0417F0 DW $0007 L027B11 DW $0005 DW $0000 DW $0028 DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0000 L027B23 DW $0005 DW $0000 DW $003C DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0001 L027B35 DW $0005 DW $0000 DW $0050 DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0002 L027B47 DW $0005 DW $0000 DW $0064 DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0003 L027B59 DW $0005 DW $0000 DW $0078 DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0004 L027B6B DW $0005 DW $0000 DW $008C DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0005 L027B7D DW $0005 DW $0000 DW $00A0 DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0006 L027B8F DW $0005 DW $0000 DW $00B4 DW $0144 DA L0276FE DA L0276E4 ADRL L043A3E DW $0007 L027BA1 DW $0005 DW $0000 DW $0028 DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0000 L027BB3 DW $0005 DW $0000 DW $003C DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0001 L027BC5 DW $0005 DW $0000 DW $0050 DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0002 L027BD7 DW $0005 DW $0000 DW $0064 DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0003 L027BE9 DW $0005 DW $0000 DW $0078 DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0004 L027BFB DW $0005 DW $0000 DW $008C DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0005 L027C0D DW $0005 DW $0000 DW $00A0 DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0006 L027C1F DW $0005 DW $0000 DW $00B4 DW $018C DA L027750 DA L027739 ADRL L043A46 DW $0007 L027C31 DW $0005 DW $0000 DW $0028 DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0000 L027C43 DW $0005 DW $0000 DW $003C DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0001 L027C55 DW $0005 DW $0000 DW $0050 DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0002 L027C67 DW $0005 DW $0000 DW $0064 DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0003 L027C79 DW $0005 DW $0000 DW $0078 DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0004 L027C8B DW $0005 DW $0000 DW $008C DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0005 L027C9D DW $0005 DW $0000 DW $00A0 DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0006 L027CAF DW $0005 DW $0000 DW $00B4 DW $01C4 DA L027817 DA L027808 ADRL L045B78 DW $0007 L027CC1 JSR L0206A9 L027CC4 JSR L027D0E LDA #L027D0E STA L02126C LDA #L027CC4 STA L02001D PEA $01BC PEA $0035 _MoveTo PEA ^L027D27 PEA L027D27 _DrawString PEA $01BC PEA $0055 _MoveTo PEA ^L027D2E PEA L027D2E _DrawString LDA #L027D0D STA L02002F L027D0D RTS L027D0E JSR L025598 LDA #^L02808F STA $50 PHA LDA #L02808F STA $4E PHA PEA $0000 JSR L025483 JSR L025574 RTS L027D27 STR 'Wave A' L027D2E STR 'Wave B' L027D35 SEP #$20 LDY #$0003 LDA ($3C),Y REP #$20 AND #$00FF LDY #$000C STA ($00),Y RTS L027D47 LDY #$000C LDA ($00),Y SEP #$20 LDY #$0003 STA ($3C),Y REP #$20 ASL TAX LDA L021563,X JSR L02162B RTS L027D5E LDY #$0009 LDA ($3C),Y AND #$003F LDY #$000C STA ($00),Y RTS L027D6C LDY #$000F LDA ($3C),Y AND #$003F LDY #$000C STA ($00),Y RTS L027D7A LDY #$0008 LDA ($3C),Y AND #$000F LDY #$000C STA ($00),Y RTS L027D88 LDY #$000E LDA ($3C),Y AND #$000F LDY #$000C STA ($00),Y RTS L027D96 LDY #$0007 LDA ($3C),Y AND #$000F LDY #$000C STA ($00),Y RTS L027DA4 LDY #$000D LDA ($3C),Y AND #$000F LDY #$000C STA ($00),Y RTS L027DB2 LDY #$000C LDA ($00),Y SEP #$30 LDY #$09 STA ($3C),Y L027DBD REP #$30 ASL TAX LDA L021563,X JSR L02162B RTS L027DC8 LDY #$000C LDA ($00),Y SEP #$30 LDY #$0F STA ($3C),Y BRA L027DBD MX %00 L027DD5 LDY #$000C LDA ($00),Y SEP #$30 LDY #$08 STA ($3C),Y BRA L027DBD MX %00 L027DE2 LDY #$000C LDA ($00),Y SEP #$30 LDY #$0E STA ($3C),Y BRA L027DBD MX %00 L027DEF LDY #$000C LDA ($00),Y SEP #$30 LDY #$07 STA ($3C),Y BRA L027DBD MX %00 L027DFC LDY #$000C LDA ($00),Y SEP #$30 LDY #$0D STA ($3C),Y BRA L027DBD MX %00 L027E09 SEP #$20 LDY #$0006 LDA ($3C),Y LSR LSR STA L027E78 LDA #$1F SEC SBC L027E78 REP #$20 AND #$001F LDY #$000C STA ($00),Y RTS MX %00 L027E26 LDY #$000C LDA #$001F SEC SBC ($00),Y ASL TAX SEP #$30 ASL LDY #$06 STA ($3C),Y REP #$30 LDA L021563,X JSR L02162B RTS MX %00 L027E41 SEP #$30 LDY #$0C LDA ($3C),Y LSR LSR STA L027E78 LDA #$1F SEC SBC L027E78 REP #$30 AND #$001F LDY #$000C STA ($00),Y RTS MX %00 L027E5D LDY #$000C LDA #$001F SEC SBC ($00),Y ASL TAX SEP #$30 ASL LDY #$0C STA ($3C),Y REP #$30 LDA L021563,X JSR L02162B RTS MX %00 L027E78 DW $0000 L027E7A LDY #$0002 LDA ($3C),Y AND #$0007 LDY #$000C STA ($00),Y RTS L027E88 LDY #$000C LDA ($00),Y PHA SEP #$30 LDY #$02 STA ($3C),Y REP #$30 PLA ASL TAX LDA L021563,X JSR L02162B RTS L027EA0 JSR L0212F6 LDA #$0000 JSR L023A53 RTS L027EAA LDA #$0000 JSR L023A66 RTS L027EB1 JSR L0212F6 LDA #$0001 JSR L023A53 RTS L027EBB LDA #$0001 JSR L023A66 RTS L027EC2 LDY #$0001 LDA ($3C),Y AND #$000F ASL TAX LDA L027EFA,X STA $3E JSR L02802C RTS L027ED5 LDY #$0001 SEP #$20 LDA ($3C),Y INC CMP #$05 BCC L027EE5 BEQ L027EE5 LDA #$00 L027EE5 STA ($3C),Y REP #$20 AND #$000F ASL TAX LDA L027EFA,X STA $3E JSR L02802C JSR L028C34 RTS L027EFA DA L027F06 DA L027F32 DA L027F5C DA L027F86 DA L027FBA DA L027FEE L027F06 ADRL L0414D8 DW $0017 DW $0016 DW $6F7F ADRL L0414D8 DW $0017 DW $0016 DW $841F ADRL L04171A DW $0009 DW $000A DW $76F3 ADRL L041774 DW $0009 DW $000A DW $8B93 DW $0000 DW $0000 L027F32 ADRL L0413DC DW $0015 DW $000C DW $7345 ADRL L0414D8 DW $0017 DW $0016 DW $84BF ADRL L04171A DW $0009 DW $000A DW $7653 ADRL L041774 DW $0009 DW $000A DW $8AF3 DW $0000 L027F5C ADRL L0413DC DW $0015 DW $000C DW $73E6 ADRL L0413DC DW $0015 DW $000C DW $84C6 ADRL L04171A DW $0009 DW $000A DW $7513 ADRL L041774 DW $0009 DW $000A DW $8693 DW $0000 L027F86 ADRL L0413DC DW $0015 DW $000C DW $78CE ADRL L0414D8 DW $0017 DW $0016 DW $7345 ADRL L0416D2 DW $0009 DW $0008 DW $7ABD ADRL L04171A DW $0009 DW $000A DW $8A4F ADRL L041774 DW $0009 DW $000A DW $8A6C DW $0000 L027FBA ADRL L0413DC DW $0015 DW $000C DW $78D0 ADRL L0413DC DW $0015 DW $000C DW $78E9 ADRL L0416D2 DW $0009 DW $0008 DW $7ABF ADRL L04171A DW $0009 DW $000A DW $8A51 ADRL L041774 DW $0009 DW $000A DW $8A6A DW $0000 L027FEE ADRL L0413DC HEX 15000C DB $00 DB $CE DB $78 ADRL L0413DC DW $0015 DW $000C DW $78E5 ADRL L0416D2 DW $0009 DW $0008 DW $7ABC ADRL L04171A DW $0009 DW $000A DW $8A4F ADRL L041774 DW $0009 DW $000A DW $8A66 ADRL L0416D2 DW $0009 DW $0008 DW $7AD3 DW $0000 L02802C _HideCursor LDA #$003A STA $2C LDAL L020966 STA $1E LDA #$6F6E STA $30 LDA #$002C STA $2E LDA #$FFFF STA $32 JSR L0213AA L028050 LDY #$0000 LDA ($3E),Y L028055 STA $16 INY INY LDA ($3E),Y STA $18 INY INY LDA ($3E),Y STA $2C LDAL L020966 STA $1E INY INY LDA ($3E),Y STA $2E STA $1A INY INY LDA ($3E),Y STA $1C LDA #$00A0 STA $20 PHY JSR L025501 PLY INY INY LDA ($3E),Y BNE L028055 _ShowCursor RTS L02808F DW $001A DA L0220AF DA L021819 DA L02182B DA L0280C5 DA L0280D7 DA L0281B0 DA L028162 DA L02813B DA L028189 DA L0280E9 DA L028112 DA L028285 DA L0281D7 DA L0281FE DA L028275 DA L028225 DA L02824D DA L0217E3 DA L0217F5 DA L021807 DA L0296A2 DA L0296B8 DA L0296CE DA L0296E4 DA L0296FA DA L029710 L0280C5 DW $0005 DW $0000 DW $001B DW $0184 DA L027EAA DA L027EA0 ADRL L045B78 DW $0000 L0280D7 DW $0005 DW $0000 DW $003B DW $0184 DA L027EBB DA L027EB1 ADRL L045B78 DW $0001 L0280E9 DW $0002 DW $0000 DW $001B DW $0150 DW $0000 DW $0006 DW $0003 DA L027D96 DW $3134 DW $33AA DA L027DEF ADRL L028109 DW $012C DW $0038 DA L028C34 L028109 STR 'Octave A' L028112 DW $0002 DW $0000 DW $001B DW $0258 DW $0000 DW $0006 DW $0003 DA L027DA4 DW $3176 DW $33EC DA L027DFC ADRL L028132 DW $0234 DW $0038 DA L028C34 L028132 STR 'Octave B' L02813B DW $0002 DW $0000 DW $0041 DW $0150 DW $0000 DW $000B DW $0000 DA L027D7A DW $48F4 DW $4B6A DA L027DD5 ADRL L02815B DW $013C DW $005E DA L028C34 L02815B STR 'Semi A' L028162 DW $0002 DW $0000 DW $0041 DW $0258 DW $0000 DW $000B DW $0000 DA L027D88 DW $4936 DW $4BAC DA L027DE2 ADRL L028182 DW $0244 DW $005E DA L028C34 L028182 STR 'Semi B' L028189 DW $0002 DW $0000 DW $0067 DW $0150 DW $0000 DW $003F DW $0000 DA L027D5E DW $60B4 DW $632A DA L027DB2 ADRL L0281A9 DW $013C DW $0084 DA L028C34 L0281A9 STR 'Fine A' L0281B0 DW $0002 DW $0000 DW $0067 DW $0258 DW $0000 DW $003F DW $0000 DA L027D6C DW $60F6 DW $636C DA L027DC8 ADRL L0281D0 DW $0244 DW $0084 DA L028C34 L0281D0 STR 'Fine B' L0281D7 DW $0002 DW $0000 DW $00A3 DW $0258 DW $0000 DW $0007 DW $0000 DA L027E7A DW $8676 DW $88EC DA L027E88 ADRL L0281F7 DW $023C DW $00C0 DA L028C34 L0281F7 STR 'Stereo' L0281FE DW $0002 DW $0000 DW $00A3 DW $0150 DW $0000 DW $0063 DW $0063 DA L027D35 DW $8634 DW $88AA DA L027D47 ADRL L02821E DW $0130 DW $00C0 DA L028C34 L02821E STR 'Detune' L028225 DW $0001 DW $0000 DW $006D DW $0190 DW $0020 DW $001E DW $001E DA L027E09 DW $6484 DW $59E4 DA L027E26 ADRL L028247 DW $0190 DW $00A7 DW $0000 DA L028C34 L028247 STR 'Vol A' L02824D DW $0001 DW $0000 DW $006D DW $01F4 DW $0020 DW $001E DW $001E DA L027E41 DW $649D DW $59FD DA L027E5D ADRL L02826F DW $01F4 DW $00A7 DW $0000 DA L028C34 L02826F STR 'Vol B' L028275 DW $0008 DW $0000 DW $007F DW $0038 DA L027ED5 DA L027EC2 DW $00B9 DW $00E8 L028285 DW $0005 DW $0000 DW $00AF DW $01B4 DA L028297 DA L0282A7 ADRL L04A59A DW $0000 L028297 JSR L0212E1 JSR L021B04 JSR L02A38E JSR L021B04 JSR L0212F6 RTS L0282A7 JSR L0212F6 RTS L0282AB JSR L0205B5 PEA $0078 PEA $0028 PEA $0000 PEA $0000 PEA $0000 PEA ^L028404 PEA L028404 PEA $0000 PEA $0000 PEA ^L028414 PEA L028414 PEA ^L021DBD PEA L021DBD PEA $0000 PEA $0000 PEA ^L028339 PEA L028339 _SFPGetFile2 JSR L0205F4 LDA L028339 BEQ L028338 _WaitCursor LDA L02834F XBA STA L02834F LDA L0283D9 XBA STA L0283D9 LDA #L028350 STA L028544 JSR L02841E BCC L028322 _InitCursor LDX #L02852C LDY #L0283DA JSR L0291C6 BRA L028332 L028322 LDX #L0283DA LDY #L028C74 JSR L028C54 _InitCursor L028332 LDX #$0000 JSR (L02126C,X) L028338 RTS L028339 DW $0000 DW $0000 ADRL $00000000 DW $0000 ADRL L0283D7 DW $0000 ADRL L02834D L02834D DW $007F L02834F DB $00 L028350 STR 'Synth.wav' HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000 L0283D7 DW $0000 L0283D9 DB $00 L0283DA STR 'Synth.wav' HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 L028404 STR 'Load Wave File:' L028414 DW $0001 DW $0000 DW $00D8 ADRL $00000004 L02841E JSL GSOS DW $0010 ; Open ADRL L028542 BCC L02842D BRL L0284F7 L02842D LDA L028542 STA L02854C STA L02855A LDA #L02401C STA L02854E LDA #^L02401C STA L02854E+2 LDA #$0900 STA L028552 STZ L028552+2 JSL GSOS DW $0012 ; Read ADRL L02854C BCC L02845A BRL L0284F8 L02845A LDA L028552 CMP L028556 BEQ L028465 BRL L0284F8 L028465 LDA L020025 STA L02854E LDA L020025+2 STA L02854E+2 LDA #$8000 STA L028552 STZ L028552+2 JSL GSOS DW $0012 ; Read ADRL L02854C BCC L028489 BRL L0284F8 L028489 LDA L028552 CMP L028556 BNE L0284F8 SEI LDA L02854E+2 PHA LDA L02854E PHA PEA $0000 PEA $8000 _WriteRamBlock CLI JSL GSOS DW $0012 ; Read ADRL L02854C BCC L0284B7 BRL L0284F8 L0284B7 LDA L028552 CMP L028556 BNE L0284F8 SEI LDA L02854E+2 PHA LDA L02854E PHA PEA $8000 PEA $8000 _WriteRamBlock CLI JSL GSOS DW $0014 ; Close ADRL L02855A PEA $0000 PEA $0000 PEA $0000 PEA $0000 _SetMetro JSR L0239BB CLC L0284F7 RTS L0284F8 JSL GSOS DW $0014 ; Close ADRL L02855A SEC RTS L028504 LDA #L0223AF STA L028544 JSR L02841E BCS L02851A LDX #L0223AF LDY #L028C74 JSR L028C54 CLC RTS L02851A _InitCursor LDX #L02852C LDY #L0223AF JSR L0291C6 SEC RTS L02852C STR 'Can'D5't load Wave File:' L028542 DW $0000 ; ref num L028544 ADRL L028350 ; path name ADRL $00000000 ; reserved L02854C DW $0000 ; ref num L02854E ADRL $00000000 ; buffer ptr L028552 ADRL $00000000 ; request count L028556 ADRL $00000000 ; transfer count L02855A DW $0000 ; ref num L02855C JSR L0205B5 PEA $0078 PEA $0028 PEA ^L028679 PEA L028679 PEA $0000 PEA $0000 PEA ^L028677 PEA L028677 PEA ^L021DBD PEA L021DBD PEA $0000 PEA $0000 PEA ^L0285D6 PEA L0285D6 _SFPGetFile JSR L0205F4 LDA L0285D6 BEQ L0285D5 _WaitCursor LDA #L0285EC STA L028729 JSR L02868F BCC L0285BC _InitCursor LDX #L02870B LDY #L0285DC JSR L0291C6 BRA L0285CF L0285BC LDX #L0285DC LDY #L028C64 JSR L028C54 JSR L028504 _InitCursor L0285CF LDX #$0000 JSR (L02126C,X) L0285D5 RTS L0285D6 DW $0000 DW $0000 DW $0000 L0285DC DS $10 L0285EC STR 'Synth.bnk' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L028677 HEX 01D6 L028679 STR 'Load Instrument File:' L02868F LDA #$1600 STA L028737 STZ L028737+2 LDA #L022397 STA L028733 LDA #^L022397 STA L028733+2 JSL GSOS DW $0010 ; Open ADRL L028727 BCS L0286D6 LDA L028727 STA L028731 STA L02873F JSL GSOS DW $0012 ; Read ADRL L028731 BCS L0286D7 JSL GSOS DW $0014 ; Close ADRL L02873F JSR L029467 JSR L028BA6 CLC L0286D6 RTS L0286D7 JSL GSOS DW $0014 ; Close ADRL L02873F SEC RTS L0286E3 LDA #L020F8F STA L028729 JSR L02868F BCS L0286F9 LDX #L020F8F LDY #L028C64 JSR L028C54 CLC RTS L0286F9 _InitCursor LDX #L02870B LDY #L020F8F JSR L0291C6 SEC RTS L02870B STR 'Can'D5't load Instrument File:' L028727 DW $0000 ; ref num L028729 ADRL L0285EC ; path name ADRL $00000000 ; reserved L028731 DW $0000 ; ref num L028733 ADRL $00000000 ; buffer ptr L028737 ADRL $00000000 ; request count ADRL $00000000 ; transfer count L02873F DW $0000 ; ref num L028741 ADRL L0285EC ; file name DW $00E3 ; access DW $00D6 ; file type ADRL $00000001 ; aux type DW $0001 ; storage DS 4 ; creation date L028753 DW $0000 ; ref num L028755 ADRL L022397 ; buffer ptr L028759 ADRL $00001600 ; request count ADRL $00000000 ; transfer count L028761 JSR L0205B5 PEA $0078 PEA $0028 PEA ^L0287B6 PEA L0287B6 PEA ^L028C64 PEA L028C64 PEA $000E PEA ^L021F1D PEA L021F1D PEA $0000 PEA $0000 PEA ^L0285D6 PEA L0285D6 _SFPPutFile JSR L0205F4 LDA L0285D6 BEQ L0287B5 LDA #L0285EC STA L028729 LDX #L0285DC LDY #L028C64 JSR L028C54 LDX #L028C74 LDY #L0223AF JSR L028C54 JSR L0287CC L0287B5 RTS L0287B6 STR 'Save Instrument File:' L0287CC LDA #$1600 STA L028759 STZ L028759+2 LDA #L022397 STA L028755 LDA #^L022397 STA L028755+2 JSL GSOS DW $0001 ; Create ADRL L028741 JSL GSOS DW $0010 ; Open ADRL L028727 LDA L028727 STA L028753 STA L02873F JSL GSOS DW $0013 ; Write ADRL L028753 JSL GSOS DW $0014 ; Close ADRL L02873F RTS L028813 JSR L0205B5 PEA $0078 PEA $0028 PEA ^L02896A PEA L02896A PEA $0000 PEA $0000 PEA ^L028968 PEA L028968 PEA ^L021DBD PEA L021DBD PEA $0000 PEA $0000 PEA ^L0288C7 PEA L0288C7 _SFPGetFile JSR L0205F4 LDA L0288C7 BEQ L028882 _WaitCursor LDA #L0288DD STA L028A10 JSR L02897E BCS L028883 JSR L0276C9 JSR L028B9C LDA #$FFFF STA L0210FF JSR L0286E3 BCS L02887C JSR L028504 _InitCursor L02887C LDX #$0000 JSR (L02126C,X) L028882 RTS L028883 _InitCursor LDX #L028894 LDY #L0288B0 JSR L0291C6 RTS L028894 STR 'Problem with Sequence file.' L0288B0 STR 'Try another file . . .' L0288C7 DW $0000 DW $0000 DW $0000 L0288CD STR 'Synth.seq' DS 6 L0288DD STR 'Synth.seq' DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L028968 HEX 01D5 L02896A STR 'Open Sequence file:' L02897E JSL GSOS DW $0010 ; Open ADRL L028A0E BCS L028A01 LDA L028A0E STA L028A18 STA L028A26 STA L028A48 JSR L028A56 BCS L028A02 LDA #L020F77 STA L028A1A LDA #^L020F77 STA L028A1A+2 LDA L020F75 STA L028A1E STZ L028A1E+2 JSL GSOS DW $0012 ; Read ADRL L028A18 BCS L028A02 LDA L020F7D STA L028A4A STZ L028A4A+2 JSL GSOS DW $0016 ; SetMark ADRL L028A48 LDA L027412 STA L028A1A LDA L027414 STA L028A1A+2 LDA #$0000 STA L028A1E LDA #$0002 STA L028A1E+2 JSL GSOS DW $0012 ; Read ADRL L028A18 BCS L028A02 JSL GSOS DW $0014 ; Close ADRL L028A26 JSR L021149 CLC L028A01 RTS L028A02 JSL GSOS DW $0014 ; Close ADRL L028A26 SEC RTS L028A0E DW $0000 ; ref num L028A10 ADRL L0288DD ; path name ADRL $00000000 ; reserved L028A18 DW $0000 ; ref num L028A1A ADRL $00000000 ; buffer ptr L028A1E ADRL $00020000 ; request count ADRL $00000000 ; transfer count L028A26 DW $0000 ; ref num L028A28 ADRL L0288DD ; file name DW $00E3 ; access DW $00D5 ; file type ADRL $00000001 ; aux type DW $0001 ; storage DS 4 ; creation date L028A3A DW $0000 ; ref num L028A3C ADRL $00000000 ; buffer ptr L028A40 ADRL $00020000 ; request count ADRL $00000000 ; transfer count L028A48 DW $0000 ; ref num L028A4A ADRL $00000000 ; position L028A4E DB $00 DB $00 L028A50 DB $00 DB $00 L028A52 DB $00 DB $00 L028A54 DB $00 DB $00 L028A56 LDA #L028A4E STA L028A1A LDA #^L028A4E STA L028A1A+2 LDA #$0008 STA L028A1E STZ L028A1E+2 JSL GSOS DW $0012 ; Read ADRL L028A18 BCS L028AA9 LDA L028A4E CMP L020F77 BNE L028AA9 LDA L028A50 CMP L020F79 BNE L028AA9 LDA L028A52 CMP L020F7B BNE L028AA9 LDA L028A54 CMP L020F75 BCC L028AA9 STZ L028A4A STZ L028A4A+2 JSL GSOS DW $0016 ; SetMark ADRL L028A48 CLC RTS L028AA9 SEC RTS L028AAB JSR L0205B5 PEA $0078 PEA $0028 PEA ^L028AF4 PEA L028AF4 PEA ^L028B08 PEA L028B08 PEA $000E PEA ^L021F1D PEA L021F1D PEA $0000 PEA $0000 PEA ^L0288C7 PEA L0288C7 _SFPPutFile JSR L0205F4 LDA L0288C7 BEQ L028AF3 LDX #L028C64 LDY #L020F8F JSR L028C54 JSR L028B1C JSR L028B9C L028AF3 RTS L028AF4 STR 'Save Sequence file:' L028B08 STR 'Synth.seq' DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 L028B1C JSL GSOS DW $0001 ; Create ADRL L028A28 JSL GSOS DW $0010 ; Open ADRL L028A0E LDA L028A0E STA L028A3A STA L028A26 LDA #L020F77 STA L028A3C LDA #^L020F77 STA L028A3C+2 LDA L020F75 STA L028A40 STA L020F7D STZ L028A40+2 JSL GSOS DW $0013 ; Write ADRL L028A3A PHA PHA LDA L027414 PHA LDA L027412 PHA _LocateEnd PLA SEC SBC L027412 STA L028A40 PLA SBC L027414 STA L028A40+2 LDA L027412 STA L028A3C LDA L027414 STA L028A3C+2 JSL GSOS DW $0013 ; Write ADRL L028A3A JSL GSOS DW $0014 ; Close ADRL L028A26 RTS L028B9C LDX #L0288CD LDY #L028B08 JSR L028C54 RTS L028BA6 LDA #L022797 STA L028BDC STZ L028BDE L028BAF LDA $5E PHA LDA L028BDC PHA LDA L028BDE PHA _SetInstrument BCC L028BC6 JSR L028BE0 L028BC6 LDA L028BDC CLC ADC #$0120 STA L028BDC INC L028BDE LDA L028BDE CMP #$0010 BNE L028BAF RTS L028BDC DW $0000 L028BDE DW $0000 L028BE0 LDA L028BDE INC PHA PEA ^L028C02+$18 PEA L028C02+$18 PEA $0002 PEA $0000 _Int2Dec LDX #L028C02 LDY #L028C1C JSR L0291C6 RTS L028C02 STR 'Can'D5't play Instrument #01' L028C1C STR 'Parameter out of range.' L028C34 LDA $5E PHA LDA L0212DF STA L028BDE ASL TAX LDA L028C92,X PHA LDA L0212DF PHA _SetInstrument BCC L028C53 JSR L028BE0 L028C53 RTS L028C54 STX $42 STY $46 LDY #$000E L028C5B LDA ($42),Y STA ($46),Y DEY DEY BPL L028C5B RTS L028C64 STR 'None' HEX 0000000000000000000000 L028C74 STR 'None' HEX 0000000000000000000000 L028C84 JSR L02897E BCS L028C91 JSR L0286E3 BCS L028C91 JSR L028504 L028C91 RTS L028C92 DA L022797 DA L0228B7 DA L0229D7 DA L022AF7 DA L022C17 DA L022D37 DA L022E57 DA L022F77 DA L023097 DA L0231B7 DA L0232D7 DA L0233F7 DA L023517 DA L023637 DA L023757 DA L023877 DA L023997 L028CB4 JSR L0206A9 L028CB7 JSR L028CCD LDA #L028CCD STA L02126C LDA #L028CB7 STA L02001D LDA #L028CCC STA L02002F L028CCC RTS L028CCD JSR L025598 LDA L021270 BEQ L028CE3 JSR L028CF9 LDA #^L028E66 STA $50 PHA LDA #L028E66 BRA L028CEC L028CE3 LDA #^L028E2C STA $50 PHA LDA #L028E2C L028CEC STA $4E PHA PEA $0000 JSR L025483 JSR L025574 RTS L028CF9 LDAL L020966 STA $1E LDA #$8408 STA $30 LDA #$0014 STA $2E LDA #$001F STA $2C LDA #$FFFF STA $32 JSR L0213AA LDAL L020966 STA $1E LDA #$6C66 STA $30 LDA #$0014 STA $2E LDA #$001F STA $2C LDA #$FFFF STA $32 JSR L0213AA RTS L028D34 LDY #$001E LDA ($00),Y TAY SEP #$20 LDA ($3A),Y LSR LSR STA L028D79 LDA #$1F SEC SBC L028D79 REP #$20 AND #$001F LDY #$000C STA ($00),Y RTS L028D54 LDY #$000C LDA #$001F SEC SBC ($00),Y STA L028D79 ASL TAX LDA L021563,X JSR L02162B SEP #$30 LDY #$1E LDA ($00),Y TAY LDA L028D79 ASL ASL STA ($3A),Y REP #$30 RTS L028D79 DW $0000 L028D7B SEP #$30 LDY #$1E LDA ($00),Y TAY LDA #$1F SEC SBC ($3A),Y REP #$30 AND #$001F LDY #$000C STA ($00),Y RTS L028D92 LDY #$000C LDA #$001F SEC SBC ($00),Y STA L028D79 ASL TAX LDA L021563,X JSR L02162B SEP #$30 LDY #$1E LDA ($00),Y TAY LDA L028D79 STA ($3A),Y REP #$30 RTS L028DB5 LDY #$000F LDA ($3A),Y AND #$00FF LDY #$000C STA ($00),Y RTS L028DC3 LDY #$000C LDA ($00),Y SEP #$30 LDY #$0F STA ($3A),Y REP #$30 ASL TAX LDA L021563,X JSR L02162B RTS L028DD9 SEP #$30 LDY #$0E LDA ($3A),Y REP #$30 AND #$00FF LDY #$000C STA ($00),Y RTS L028DEA LDY #$000C LDA ($00),Y SEP #$30 LDY #$0E STA ($3A),Y REP #$30 ASL TAX LDA L021563,X JSR L02162B RTS L028E00 LDY #$000D LDA ($3A),Y AND #$000F CMP #$000A BCC L028E10 LDA #$0000 L028E10 LDY #$000C STA ($00),Y RTS L028E16 LDY #$000C LDA ($00),Y SEP #$30 LDY #$0D STA ($3A),Y REP #$30 ASL TAX LDA L021563,X JSR L02162B RTS L028E2C DW $001C DA L0220AF DA L021819 DA L02182B DA L028E9C DA L028F81 DA L028EC3 DA L028FA7 DA L028EE9 DA L028FCD DA L028F0F DA L028FF3 DA L028F35 DA L029019 DA L028F5B DA L029040 DA L029067 DA L02908E DA L0290B9 DA L0290E2 DA L0217E3 DA L0217F5 DA L021807 DA L0296A2 DA L0296B8 DA L0296CE DA L0296E4 DA L0296FA DA L029710 L028E66 DW $001A DA L0220AF DA L021819 DA L02182B DA L028E9C DA L028F81 DA L028EC3 DA L028FA7 DA L028EE9 DA L028FCD DA L028F0F DA L028FF3 DA L028F35 DA L029019 DA L028F5B DA L029040 DA L029067 DA L0290E2 DA L0217E3 DA L0217F5 DA L021807 DA L0296A2 DA L0296B8 DA L0296CE DA L0296E4 DA L0296FA DA L029710 L028E9C DW $0001 DW $0000 DW $002D DW $0128 DW $0020 DW $001E DW $001E DA L028D34 DW $3C6A DW $31CA DA L028D54 ADRL L028EBE DW $0128 DW $0067 DW $0000 DA L028C34 L028EBE STR 'Vatk' L028EC3 DW $0001 DW $0000 DW $002D DW $0158 DW $0020 DW $000E DW $000E DA L028D34 DW $3C76 DW $31D6 DA L028D54 ADRL L028EE5 DW $015C DW $0067 DW $0002 DA L028C34 L028EE5 STR 'VD1' L028EE9 DW $0001 DW $0000 DW $002D DW $0188 DW $0020 DW $0004 DW $0004 DA L028D34 DW $3C82 DW $31E2 DA L028D54 ADRL L028F0B DW $018C DW $0067 DW $0004 DA L028C34 L028F0B STR 'VD2' L028F0F DW $0001 DW $0000 DW $002D DW $01B8 DW $0020 DW $000C DW $000C DA L028D34 DW $3C8E DW $31EE DA L028D54 ADRL L028F31 DW $01BC DW $0067 DW $0006 DA L028C34 L028F31 STR 'Sus' L028F35 DW $0001 DW $0000 DW $002D DW $01E8 DW $0020 DW $0010 DW $0010 DA L028D34 DW $3C9A DW $31FA DA L028D54 ADRL L028F57 DW $01EC DW $0067 DW $0008 DA L028C34 L028F57 STR 'VR1' L028F5B DW $0001 DW $0000 DW $002D DW $0218 DW $0020 DW $0014 DW $0014 DA L028D34 DW $3CA6 DW $3206 DA L028D54 ADRL L028F7D DW $021C DW $0067 DW $000A DA L028C34 L028F7D STR 'VR2' L028F81 DW $0001 DW $0000 DW $0083 DW $0128 DW $0020 DW $0009 DW $0009 DA L028D7B DW $722A DW $678A DA L028D92 ADRL L028FA3 DW $012C DW $00BD DW $0001 DA L028C34 L028FA3 STR 'Atk' L028FA7 DW $0001 DW $0000 DW $0083 DW $0158 DW $0020 DW $0019 DW $0019 DA L028D7B DW $7236 DW $6796 DA L028D92 ADRL L028FC9 DW $015C DW $00BD DW $0003 DA L028C34 L028FC9 STR 'Dk1' L028FCD DW $0001 DW $0000 DW $0083 DW $0188 DW $0020 DW $0010 DW $0010 DA L028D7B DW $7242 DW $67A2 DA L028D92 ADRL L028FEF DW $018C DW $00BD DW $0005 DA L028C34 L028FEF STR 'Dk2' L028FF3 DW $0001 DW $0000 DW $0083 DW $01B8 DW $0020 DW $001B DW $001B DA L028D7B DW $724E DW $67AE DA L028D92 ADRL L029015 DW $01BC DW $00BD DW $0007 DA L028C34 L029015 STR 'Dk3' L029019 DW $0001 DW $0000 DW $0083 DW $01E8 DW $0020 DW $001B DW $001B DA L028D7B DW $725A DW $67BA DA L028D92 ADRL L02903B DW $01E8 DW $00BD DW $0009 DA L028C34 L02903B STR 'Rel1' L029040 DW $0001 DW $0000 DW $0083 DW $0218 DW $0020 DW $0006 DW $0006 DA L028D7B DW $7266 DW $67C6 DA L028D92 ADRL L029062 DW $0218 DW $00BD DW $000B DA L028C34 L029062 STR 'Rel2' L029067 DW $0001 DW $0000 DW $0083 DW $0248 DW $0020 DW $0010 DW $0010 DA L028D7B DW $7272 DW $67D2 DA L028D92 ADRL L029089 DW $0248 DW $00BD DW $000C DA L028C34 L029089 STR 'Rel3' L02908E DW $0002 DW $0000 DW $00A0 DW $004C DW $0000 DW $000C DW $0000 DA L028DB5 DW $8413 DW $8689 DA L028DC3 ADRL L0290AE DW $0024 DW $00BD DA L028C34 L0290AE STR 'Pitch Pend' L0290B9 DW $0002 DW $0000 DW $007B DW $00C4 DW $0000 DW $000A DW $0000 DA L028DD9 DW $6D11 DW $6F87 DA L028DEA ADRL L0290D9 DW $00A0 DW $0098 DA L028C34 L0290D9 STR 'Vel Gain' L0290E2 DW $0002 DW $0000 DW $00A0 DW $00C4 DW $0000 DW $0009 DW $0000 DA L028E00 DW $8431 DW $86A7 DA L028E16 ADRL L029102 DW $009C DW $00BD DA L028C34 L029102 STR 'Decay Gain' MX %00 L02910D STX L029198 CLI LDA #$0000 PHA _SetForeColor LDA #L0291BE JSR L021A1A PEA $0100 PEA $0046 _MoveTo PEA ^L02919C PEA L02919C _DrawString LDA #$0001 PHA _SetForeColor PEA $0100 PEA $0055 _MoveTo LDA $5E PHA LDA L029198 PHA _DrawString LDA #$0000 PHA _SetForeColor LDA #^L0292AF STA $50 PHA LDA #L0292AF STA $4E PHA PEA $0000 JSR L025483 LDA #L021AC7 STA L0219F8 LDA #L029280 STA L02185D _InitCursor JSR L02185F JMP L02027A L029198 DW $0000 L02919A DW $0000 L02919C STR 'Sorry, can'D5't start synthLAB . . .' L0291BE DW $001B DW $0084 DW $009B DW $0228 L0291C6 STX L029198 STY L02919A JSR L0205B5 JSR L0219FA LDA #$0000 PHA _SetForeColor LDA #L0291BE JSR L021A1A PEA $0100 PEA $0046 _MoveTo LDA $5E PHA LDA L029198 PHA _DrawString LDA #$0001 PHA _SetForeColor PEA $0100 PEA $0055 _MoveTo LDA $5E PHA LDA L02919A PHA _DrawString LDA #$0000 PHA _SetForeColor LDA #^L0292AF STA $50 PHA LDA #L0292AF STA $4E PHA PEA $0000 JSR L025483 LDA #L021AC7 STA L0219F8 LDA #L029280 STA L02185D _InitCursor JSR L02185F LDA #L02927F STA L02185D JSR L0205F4 JSR L021A0A JSR L021AAB RTS L029267 JSR L0212F6 STZ L0292AB LDA #$0028 STA L02517A LDAL TickCount STA L025178 LDA $00 STA L0292AD L02927F RTS L029280 JSR L0252C3 BCC L0292AA LDA $00 PHA LDA L0292AD STA $00 LDA L0292AB BEQ L02929A JSR L0212F6 STZ L0292AB BRA L0292A0 L02929A JSR L0212E1 INC L0292AB L0292A0 LDAL TickCount STA L025178 PLA STA $00 L0292AA RTS L0292AB DW $0000 L0292AD DW $0000 L0292AF DW $0002 DA L0292C9 DA L0292B5 L0292B5 DW $0007 DW $0000 DW $007A DW $01C0 DA L021AD6 DA L021AE0 ADRL L048AD6 DA L021AF3 DA L021AEC L0292C9 DW $0005 DW $0000 DW $003E DW $00A8 DA L02927F DA L029267 ADRL L048ADE DW $0000 L0292DB JSR L0206DE JSR L029450 RTS L0292E2 JSR L029450 JSR L0292EF JSR L029467 JSR L02A132 RTS L0292EF PHA PHA PEA $0000 PEA ^L029A7A PEA L029A7A _NewMenu2 PLA STA L0296B4 PLA STA L0296B6 LDA L0296B6 PHA LDA L0296B4 PHA PEA $0000 _InsertMenu PHA PHA PEA $0000 PEA ^L029C71 PEA L029C71 _NewMenu2 PLA STA L0296CA PLA STA L0296CC LDA L0296CC PHA LDA L0296CA PHA PEA $0000 _InsertMenu PHA PHA PEA ^L029ADB PEA L029ADB _NewMenu PLA STA L0296E0 PLA STA L0296E0+2 LDA L0296E0+2 PHA LDA L0296E0 PHA PEA $0000 _InsertMenu PHA PHA PEA $0000 PEA ^L029B8C PEA L029B8C _NewMenu2 PLA STA L0296F6 PLA STA L0296F6+2 LDA L0296F6+2 PHA LDA L0296F6 PHA PEA $0000 _InsertMenu PHA PHA PEA $0000 PEA ^L029D78 PEA L029D78 _NewMenu2 PLA STA L02970C PLA STA L02970C+2 LDA L02970C+2 PHA LDA L02970C PHA PEA $0000 _InsertMenu PEA $0001 PEA $0113 _CheckMItem PHA PHA PEA $0000 PEA ^L029FE7 PEA L029FE7 _NewMenu2 PLA STA L029722 PLA STA L029724 LDA L029724 PHA LDA L029722 PHA PEA $0000 _InsertMenu PEA $0001 PEA $012C _CheckMItem RTS L02940F JSR L0212F6 RTS L029413 JSR L0212E1 PHA LDY #$0010 LDA ($00),Y PHA LDY #$0006 LDA ($00),Y PHA LDY #$0004 LDA ($00),Y CLC ADC #$000D PHA PEA $0040 LDY #$0014 LDA ($00),Y PHA LDY #$0012 LDA ($00),Y PHA _PopUpMenuSelect JSR L029731 PLA BEQ L02944C JSR L02046E L02944C JSR L0212F6 RTS L029450 LDA #$0010 STA $3E L029455 LDA $3E PHA PEA $0080 _SetSCB DEC $3E BPL L029455 RTS L029467 LDA #$0113 STA L0294D1 LDA #L022697 STA $3E LDA #L029EA7 STA L029489+1 STA $46 L02947A SEP #$30 LDA ($3E) CLC ADC #$04 STA ($46) LDX #$13 LDY #$0F L029487 LDA ($3E),Y L029489 STA L029EA7,X DEX DEY BNE L029487 REP #$30 LDA $5E PHA LDA L029489+1 PHA LDA L0294D1 PHA _SetMItemName LDA L029489+1 CLC ADC #$0014 STA L029489+1 STA $46 INC L0294D1 LDA $3E CLC ADC #$0010 STA $3E CMP #L022797 BNE L02947A PEA $0000 PEA $0000 PEA $0004 _CalcMenuSize RTS L0294D1 DW $0000 L0294D3 LDA L020013 SEC SBC #$0113 STA L0212DF JSR L021272 LDA L0211C4 BNE L0294F3 LDA L0212DF STA L0211C6 PHA _SetBasicChannel L0294F3 PEA $0000 LDA L02951C PHA _CheckMItem PEA $0001 LDA L020013 PHA _CheckMItem LDA L020013 STA L02951C LDX #$0000 JSR (L02126C,X) RTS L02951C DW $0113 L02951E LDA L020013 SEC SBC #$012C JSR L0212B3 PEA $0000 LDA L02954B PHA _CheckMItem PEA $0001 LDA L020013 PHA _CheckMItem LDA L020013 STA L02954B RTS L02954B DW $012C L02954D STA $42 LDA #L029581 STA $3E LDY #$0002 L029557 LDA ($3E) CMP $42 BEQ L029571 LDA ($3E),Y CMP $42 BEQ L029571 LDA $3E CLC ADC #$0008 STA $3E CMP #L029601 BNE L029557 RTS L029571 INY INY LDA ($3E),Y STA L020013 INY INY LDA ($3E),Y TAX JSR L029601 RTS L029581 DW $0031 DW $0031 DW $012C DA L029710 DW $0032 DW $0032 DW $012D DA L029710 DW $0033 DW $0033 DW $012E DA L029710 DW $0034 DW $0034 DW $012F DA L029710 DW $0035 DW $0035 DW $0130 DA L029710 DW $0036 DW $0036 DW $0131 DA L029710 DW $0037 DW $0037 DW $0132 DA L029710 DW $0038 DW $0038 DW $0133 DA L029710 DW $004E DW $006E DW $0105 DA L0296B8 DW $004F DW $006F DW $0107 DA L0296B8 DW $0053 DW $0073 DW $0109 DA L0296B8 DW $0045 DW $0065 DW $0108 DA L0296CE DW $0049 DW $0069 DW $010A DA L0296CE DW $0051 DW $0071 DW $0101 DA L0296B8 DW $005A DW $007A DW $010B DA L0296E4 DW $0056 DW $0076 DW $00FD DA L0296CE L029601 LDA $00 PHA STX $00 JSR L0212E1 JSR L021B04 LDA L020013 JSR L02046E JSR L0212F6 PLA STA $00 RTS L029619 PEA $0080 PEA $0002 _SetMenuFlag PEA $0080 PEA $0100 _SetMItemFlag L029633 PEA $0080 PEA $010C _SetMItemFlag PEA $0080 PEA $0134 _SetMItemFlag PEA $0080 PEA $0123 _SetMItemFlag RTS L02965B PEA $FF7F PEA $0002 _SetMenuFlag PEA $FF7F PEA $0100 _SetMItemFlag LDA L02001B BNE L0296A1 PEA $FF7F PEA $010C _SetMItemFlag PEA $FF7F PEA $0134 _SetMItemFlag PEA $FF7F PEA $0123 _SetMItemFlag L0296A1 RTS L0296A2 DW $0005 DW $0000 DW $0000 DW $0000 DA L029413 DA L02940F ADRL L049422 DW $0100 L0296B4 DW $0000 L0296B6 DW $0000 L0296B8 DW $0005 DW $0000 DW $0000 DW $0038 DA L029413 DA L02940F ADRL L04942A DW $0105 L0296CA DW $0000 L0296CC DW $0000 L0296CE DW $0005 DW $0000 DW $0000 DW $0070 DA L029413 DA L02940F ADRL L049432 DW $0108 L0296E0 ADRL $00000000 L0296E4 DW $0005 DW $0000 DW $0000 DW $00A8 DA L029413 DA L02940F ADRL L04943A DW $010C L0296F6 ADRL $00000000 L0296FA DW $0005 DW $0000 DW $0000 DW $00E8 DA L029413 DA L02940F ADRL L049442 DW $0113 L02970C ADRL $00000000 L029710 DW $0005 DW $0000 DW $0000 DW $0158 DA L029726 DA L02940F ADRL L04944A DW $012C L029722 DW $0000 L029724 DW $0000 L029726 LDA #$0000 STA $32 JSR L02973A JMP L029413 L029731 LDA #$FFFF STA $32 JSR L02973A RTS L02973A LDAL L020966 STA $1E LDA #$27EE STA $30 LDA #$0008 STA $2E LDA #$0001 STA $2C JMP L0213AA L029752 LDY #$0000 L029755 LDA ($3C),Y STA L02992A,Y INY INY CPY #$0010 BCC L029755 PHY JSR L023B0E PLY LDA L023B85 CLC ADC L0212D9 TAX LDA L0223C7,X AND #$007F STA L02992A,Y INY INY LDA L0223CF,X AND #$007F STA L02992A,Y LDA #L029886 STA L029928 PEA ^L029843 PEA L029843 L02978E PEA $00FD _SetMItemName PEA $FF7F PEA $00FD _SetMItemFlag PEA $0000 PEA $0000 PEA $0003 _CalcMenuSize RTS L0297B6 LDY #$0000 L0297B9 LDA ($3A),Y STA L02992A,Y INY INY CPY #$0090 BCC L0297B9 PHY JSR L023B0E PLY LDX L023B85 SEP #$20 L0297CF LDA L0223C7,X STA L02992A,Y INX INY CPY #$00A0 BCC L0297CF REP #$20 LDA #L0298B5 STA L029928 PEA ^L029853 PEA L029853 BRA L02978E L0297EC LDY #$0000 L0297EF LDA ($54),Y STA L02992A,Y INY INY CPY #$0120 BCC L0297EF PHY JSR L023B0E PLX LDY L023B83 SEP #$20 L029805 LDA L0223C7,Y AND #$7F STA L02992A,X INY INX CPX #$0140 BCC L029805 REP #$20 LDA L0212DF ASL ASL ASL ASL CLC ADC #L022697 STA $3E LDY #$0000 L029826 LDA ($3E),Y STA L02992A,X INY INY INX INX CPX #$0150 BCC L029826 LDA #L0298DE STA L029928 PEA ^L029864 PEA L029864 JMP L02978E L029843 STR ' Paste WaveList' L029853 STR ' Paste Generator' L029864 STR ' Paste Instrument' L029876 LDX #$0000 JSR (L029928,X) JSR L028C34 LDX #$0000 JSR (L02126C,X) RTS L029886 LDY #$0000 L029889 LDA L02992A,Y STA ($3C),Y INY INY CPY #$0010 BCC L029889 PHY JSR L023B0E PLY LDA L023B85 CLC ADC L0212D9 TAX SEP #$20 LDA L02992A,Y STA L0223C7,X INY INY LDA L02992A,Y STA L0223CF,X REP #$20 RTS L0298B5 LDY #$0000 L0298B8 LDA L02992A,Y STA ($3A),Y INY INY CPY #$0090 BCC L0298B8 PHY JSR L023B0E PLY LDX L023B85 SEP #$20 L0298CE LDA L02992A,Y STA L0223C7,X INX INY CPY #$00A0 BCC L0298CE REP #$20 RTS L0298DE LDY #$0000 L0298E1 LDA L02992A,Y STA ($54),Y INY INY CPY #$0120 BCC L0298E1 PHY JSR L023B0E PLX LDY L023B83 SEP #$20 L0298F7 LDA L02992A,X STA L0223C7,Y INY INX CPX #$0140 BCC L0298F7 REP #$20 LDA L0212DF ASL ASL ASL ASL CLC ADC #L022697 STA $3E LDY #$0000 L029916 LDA L02992A,X STA ($3E),Y INY INY INX INX CPX #$0150 BCC L029916 JSR L029467 RTS L029928 DB $00 DB $00 L02992A DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L029A7A DW $0000 DW $0001 DW $0028 ADRL L029DC6 ADRL L029A94 ADRL L029AA2 ADRL L029AB0 ADRL $00000000 L029A94 DW $0000 DW $0100 DW $0000 DW $0000 DW $0020 ADRL L029ABE L029AA2 DW $0000 DW $01FF DW $0000 DW $0000 DW $00A0 ADRL L029C6F L029AB0 DW $0000 DW $010D DW $0000 DW $0000 DW $0020 ADRL L029AD1 L029ABE STR ' About SynthLAB...' L029AD1 STR ' Clock...' L029ADB ASC '%% \H'03000D ASC '>> View Sequence... \*EeH'08010D ASC '>> Name Instrument... \*IiH'0A010D ASC '>>-\N511D'0D ASC '>> Copy WaveList \H$'010D ASC '>> Copy Generator \H%'010D ASC '>> Copy Instrument \H&'010D ASC '>>-\N511D'0D ASC '>> Paste \D*VvH' ASC "}"000D ASC '.' L029B8C DB $00 DB $00 DB $05 DB $00 DB $28 DB $00 ADRL L029DC6 ADRL L029BB6 ADRL L029BC4 ADRL L029BEE ADRL L029BD2 ADRL L029BE0 ADRL L029BFC ADRL L029C0A ADRL $00000000 L029BB6 DW $0000 DW $010C DW $0000 DW $0000 DW $0020 ADRL L029C18 L029BC4 DW $0000 DW $0134 DW $0000 DW $0000 DW $0020 ADRL L029C21 L029BD2 DW $0000 DW $0135 DW $0000 DW $0000 DW $0020 ADRL L029C2F L029BE0 DW $0000 DW $0137 DW $0000 DW $0000 DW $0020 ADRL L029C43 L029BEE DW $0000 DW $0123 DW $0000 DW $0000 DW $0020 ADRL L029C4E L029BFC DW $0000 DW $01FF DW $0000 DW $0000 DW $00A0 ADRL L029C6F L029C0A DW $0000 DW $010B DW $7A5A DW $0000 DW $0020 ADRL L029C5F L029C18 STR ' MIDI...' L029C21 STR ' Sequencer...' L029C2F STR ' System Controls...' L029C43 STR ' Volume...' L029C4E STR ' Track Output...' L029C5F STR ' All Notes Off ' L029C6F STR '-' L029C71 DW $0000 DW $0002 DW $0028 ADRL L029DC6 ADRL L029CA7 ADRL L029CB5 ADRL L029CC3 ADRL L029BFC ADRL L029CD1 ADRL L029CDF ADRL L029BFC ADRL L029CED ADRL L029BFC ADRL L029CFB ADRL $00000000 L029CA7 DW $0000 DW $0105 ASC 'Nn' DW $0000 DW $0020 ADRL L029D09 L029CB5 DW $0000 DW $0107 ASC 'Oo' DW $0000 DW $0020 ADRL L029D17 L029CC3 DW $0000 DW $0109 ASC 'Ss' DW $0000 DW $0020 ADRL L029D29 L029CD1 DW $0000 DW $0104 DW $0000 DW $0000 DW $0020 ADRL L029D3B L029CDF DW $0000 DW $0106 DW $0000 DW $0000 DW $0020 ADRL L029D4F L029CED DW $0000 DW $0102 DW $0000 DW $0000 DW $0020 ADRL L029D63 L029CFB DW $0000 DW $0101 DW $7151 DW $0000 DW $0020 ADRL L029D72 L029D09 STR ' New Sequence' L029D17 STR ' Open Sequence...' L029D29 STR ' Save Sequence...' L029D3B STR ' Load Instrument...' L029D4F STR ' Save Instrument...' L029D63 STR ' Load Waves...' L029D72 STR ' Quit' L029D78 DW $0000 DW $0004 DW $0028 ADRL L029DC6 ADRL L029DC7 ADRL L029DD5 ADRL L029DE3 ADRL L029DF1 ADRL L029DFF ADRL L029E0D ADRL L029E1B ADRL L029E29 ADRL L029E37 ADRL L029E45 ADRL L029E53 ADRL L029E61 ADRL L029E6F ADRL L029E7D ADRL L029E8B ADRL L029E99 ADRL $00000000 L029DC6 DB $00 L029DC7 DW $0000 DW $0113 DW $0000 DW $0000 DW $0020 ADRL L029EA7 L029DD5 DW $0000 DW $0114 DW $0000 DW $0000 DW $0020 ADRL L029EBB L029DE3 DW $0000 DW $0115 DW $0000 DW $0000 DW $0020 ADRL L029ECF L029DF1 DW $0000 DW $0116 DW $0000 DW $0000 DW $0020 ADRL L029EE3 L029DFF DW $0000 DW $0117 DW $0000 DW $0000 DW $0020 ADRL L029EF7 L029E0D DW $0000 DW $0118 DW $0000 DW $0000 DW $0020 ADRL L029F0B L029E1B DW $0000 DW $0119 DW $0000 DW $0000 DW $0020 ADRL L029F1F L029E29 DW $0000 DW $011A DW $0000 DW $0000 DW $0020 ADRL L029F33 L029E37 DW $0000 DW $011B DW $0000 DW $0000 DW $0020 ADRL L029F47 L029E45 DW $0000 DW $011C DW $0000 DW $0000 DW $0020 ADRL L029F5B L029E53 DW $0000 DW $011D DW $0000 DW $0000 DW $0020 ADRL L029F6F L029E61 DW $0000 DW $011E DW $0000 DW $0000 DW $0020 ADRL L029F83 L029E6F DW $0000 DW $011F DW $0000 DW $0000 DW $0020 ADRL L029F97 L029E7D DW $0000 DW $0120 DW $0000 DW $0000 DW $0020 ADRL L029FAB L029E8B DW $0000 DW $0121 DW $0000 DW $0000 DW $0020 ADRL L029FBF L029E99 DW $0000 DW $0122 DW $0000 DW $0000 DW $0020 ADRL L029FD3 L029EA7 STR ' 1 Inst 1' HEX 000000000000000000 L029EBB STR ' 2 Inst 2' HEX 000000000000000000 L029ECF STR ' 3 Inst 3' HEX 000000000000000000 L029EE3 STR ' 4 Inst 4' HEX 000000000000000000 L029EF7 STR ' 5 Inst 5' HEX 000000000000000000 L029F0B STR ' 6 Inst 6' HEX 000000000000000000 L029F1F STR ' 7 Inst 7' HEX 000000000000000000 L029F33 STR ' 8 Inst 8' HEX 000000000000000000 L029F47 STR ' 9 Inst 9' HEX 000000000000000000 L029F5B STR '10 Inst 10' HEX 0000000000000000 L029F6F STR '11 Inst 11' HEX 0000000000000000 L029F83 STR '12 Inst 12' HEX 0000000000000000 L029F97 STR '13 Inst 13' HEX 0000000000000000 L029FAB STR '14 Inst 14' HEX 0000000000000000 L029FBF STR '15 Inst 15' HEX 0000000000000000 L029FD3 STR '16 Inst 16' HEX 0000000000000000 L029FE7 DW $0000 DW $0007 DW $0028 ADRL L029DC6 ADRL L02A015 ADRL L02A023 ADRL L02A031 ADRL L02A03F ADRL L02A04D ADRL L02A05B ADRL L02A069 ADRL L02A077 ADRL $00000000 L02A015 DW $0000 DW $012C ASC '1'00 DW $0000 DW $0020 ADRL L02A085 L02A023 DW $0000 DW $012D ASC '2'00 DW $0000 DW $0020 ADRL L02A092 L02A031 DW $0000 DW $012E ASC '3'00 DW $0000 DW $0020 ADRL L02A09F L02A03F DW $0000 DW $012F ASC '4'00 DW $0000 DW $0020 ADRL L02A0AC L02A04D DW $0000 DW $0130 ASC '5'00 DW $0000 DW $0020 ADRL L02A0B9 L02A05B DW $0000 DW $0131 ASC '6'00 DW $0000 DW $0020 ADRL L02A0C6 L02A069 DW $0000 DW $0132 ASC '7'00 DW $0000 DW $0020 ADRL L02A0D3 L02A077 DW $0000 DW $0133 ASC '8'00 DW $0000 DW $0020 ADRL L02A0E0 L02A085 STR ' WaveList 1 ' L02A092 STR ' WaveList 2 ' L02A09F STR ' WaveList 3 ' L02A0AC STR ' WaveList 4 ' L02A0B9 STR ' WaveList 5 ' L02A0C6 STR ' WaveList 6 ' L02A0D3 STR ' WaveList 7 ' L02A0E0 STR ' WaveList 8 ' ASC '.' L02A0EE DW $0000 L02A0F0 DW $0000 L02A0F2 LDAL TickCount STAL L02A190 STAL L02A0EE CLC RTL L02A100 LDA L0211C8 BEQ L02A131 LDA L02A0EE BEQ L02A131 LDA L02A0F0 BNE L02A120 LDA #L04A2FA JSR L02A149 LDAL TickCount STA L02A190 STA L02A0F0 RTS L02A120 JSR L02A184 BCC L02A131 LDA #L04A22A JSR L02A149 STZ L02A0EE STZ L02A0F0 L02A131 RTS L02A132 LDA L0211C8 BEQ L02A146 LDA L02A0EE BEQ L02A141 LDA #L04A2FA BRA L02A149 L02A141 LDA #L04A22A BRA L02A149 L02A146 LDA #L04A15A L02A149 STA $16 LDA L02002D STA $18 LDA #$2085 STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 LDA #$0010 STA $2E STA $1A LDA #$000D STA $2C LDA L02000D CMP #$000C BEQ L02A176 BCS L02A180 L02A176 JSR L025598 JSR L025501 JSR L025574 RTS L02A180 JSR L025501 RTS L02A184 LDAL TickCount SEC SBC L02A190 CMP #$000A RTS L02A190 DW $0000 L02A192 JSR L0205B5 JSR L0219FA LDA #L02A1E0 JSR L021A1A JSR L02A203 LDA #^L02A290 STA $50 PHA LDA #L02A290 STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA #L021B42 STA L0219F8 LDA #L02A203 STA L02185D JSR L02185F LDA #L025500 STA L02185D JSR L0205F4 JSR L021A0A JSR L021AAB RTS L02A1E0 DW $0023 DW $0064 DW $0065 DW $00F4 L02A1E8 ASC 'MM/DD/YY' L02A1F0 ASC ' 12:00:00 am ' L02A203 PEA ^L02A1E8 PEA L02A1E8 _ReadAsciiTime LDA L02A1F0 AND #$7F7F STA L02A1F0 LDA L02A1F0+2 AND #$7F7F STA L02A1F0+2 LDA L02A1F0+4 AND #$7F7F STA L02A1F0+4 LDA L02A1F0+6 AND #$7F7F STA L02A1F0+6 LDA L02A1F0+8 AND #$7F7F STA L02A1F0+8 LDA L02A1F0+$A AND #$7F7F ORA #$2020 STA L02A1F0+$A PEA $0001 _SetForeColor PEA $0003 _SetBackColor LDA #$0088 PHA LDA #$003C PHA _MoveTo LDA L02A1F0 AND #$FF00 ORA #$000F STA L02A1F0 PEA ^L02A1F0 PEA L02A1F0 _DrawString PEA $0000 _SetForeColor RTS L02A290 DW $0001 DA L02A294 L02A294 DW $0007 DW $0000 DW $004C DW $008A DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 *--- DEAD CODE LDA L02A353 BEQ L02A2B0 BRL L02A327 L02A2B0 PHA PHA PEA $0003 PEA $0000 LDA L02095E PHA PEA $C000 PEA $0000 PEA $0000 _NewHandle PLA STA $3E PLA STA $40 BCC L02A2D6 * BRK $13 ; LOGO - There's a BREAK dec L02A353 ; 202303 - no more crash clc rts L02A2D6 LDY #$0002 LDA [$3E] STA L02A355 LDA [$3E],Y STA L02A355+2 JSL GSOS DW $0010 ; Open ADRL L02A367 BCC L02A2F2 BRL L02A351 L02A2F2 LDA L02A367 STA L02A371 STA L02A37F LDA L02A355 STA L02A373 LDA L02A355+2 STA L02A373+2 LDA #$0003 STA L02A377+2 STZ L02A377 JSL GSOS DW $0012 ; Read ADRL L02A371 JSL GSOS DW $0014 ; Close ADRL L02A37F DEC L02A353 L02A327 PEA $0701 PEA ^L02A355 PEA L02A355 _FFStartSound L02A337 PHA PEA $0007 _FFSoundDoneStatus PLA BEQ L02A337 PEA $0080 _FFStopSound CLC RTS L02A351 DB $00 DB $14 L02A353 DW $0000 L02A355 ADRL $00000000 DW $0271 DW $0100 DW $0000 DW $0000 ADRL $00000000 DW $00FF L02A367 DW $0000 ; ref num ADRL L02A381 ; path name ADRL $00000000 ; reserved L02A371 DW $0000 ; ref num L02A373 ADRL $00000000 ; buffer ptr L02A377 ADRL $00000000 ; request count ADRL $00000000 ; transfer count L02A37F DW $0000 ; ref num L02A381 STR 'gunshots.raw' L02A38E JSR L0205B5 JSR L0206FC JSR L0219FA LDA #L02A3D1 JSR L021A1A JSR L02A578 LDA #^L02A3D9 STA $50 PHA LDA #L02A3D9 STA $4E PHA PEA $0000 JSR L025483 LDA #L021B42 STA L0219F8 LDA #L02A4E2 STA L02185D JSR L02185F LDA #L025500 STA L02185D JSR L0205F4 JSR L021A0A JSR L021AAB RTS L02A3D1 DW $0012 DW $0000 DW $00C7 DW $027F L02A3D9 DW $000A L02A3DB DA L02A403 DA L02A41B DA L02A433 DA L02A44B DA L02A463 DA L02A47B DA L02A493 DA L02A4AB DA L02A4C3 DA L02A3EF L02A3EF DW $0007 DW $0000 DW $00B0 DW $021C DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L02A403 DW $000A DW $0000 DW $003F DW $001C DA L02AAC7 DA L02AA8C DW $4767 DW $000C DA L02AADB DA L02AAFD DW $0000 DW $0000 L02A41B DW $000A DW $0000 DW $004D DW $001C DA L02AAC7 DA L02AA8C DW $5027 DW $0018 DA L02AADB DA L02AAFD DW $0000 DW $0001 L02A433 DW $000A DW $0000 DW $005B DW $001C DA L02AAC7 DA L02AA8C DW $58E7 DW $0000 DA L02AADB DA L02AAFD DW $0000 DW $0002 L02A44B DW $000A DW $0000 DW $0069 DW $001C DA L02AAC7 DA L02AA8C DW $61A7 DW $0024 DA L02AADB DA L02AAFD DW $0000 DW $0003 L02A463 DW $000A DW $0000 DW $0077 DW $001C DA L02AAC7 DA L02AA8C DW $6A67 DW $0030 DA L02AADB DA L02AAFD DW $0000 DW $0004 L02A47B DW $000A DW $0000 DW $0085 DW $001C DA L02AAC7 DA L02AA8C DW $7327 DW $0038 DA L02AADB DA L02AAFD DW $0000 DW $0005 L02A493 DW $000A DW $0000 DW $0093 DW $001C DA L02AAC7 DA L02AA8C DW $7BE7 DW $000C DA L02AADB DA L02AAFD DW $0000 DW $0006 L02A4AB DW $000A DW $0000 DW $00A1 DW $001C DA L02AAC7 DA L02AA8C DW $84A7 DW $003B DA L02AADB DA L02AAFD DW $0000 DW $0007 L02A4C3 DW $0005 DW $0000 DW $00AF DW $00FC DA L025500 DA L02A4D5 ADRL L04A8A6 DW $0000 L02A4D5 JSR L0212E1 LDA #$FFFF STA L02A572 STZ L02A576 RTS L02A4E2 LDA L02A576 BEQ L02A4EA BRL L02A56F L02A4EA STZ L02A570 L02A4ED LDA L02A570 CMP #$0010 BNE L02A509 LDA L02A572 BPL L02A4FD BRL L02A56F L02A4FD LDA #$FFFF STA L02A572 LDA #L04AB0A JMP L02A548 L02A509 STA L02A574 TAX LDA L02A3DB,X STA $42 INC L02A570 INC L02A570 LDY #$0004 LDA ($42),Y STA $08 CLC ADC #$0008 STA $0C LDY #$0006 LDA ($42),Y STA $0A CLC ADC #$0248 STA $0E JSR L02555A BCS L02A539 BRA L02A4ED L02A539 LDX L02A574 CPX L02A572 BEQ L02A56F STX L02A572 LDAL L04AA52,X L02A548 STA $16 LDA L02002D STA $18 LDA #$0007 STA $2C LDAL L020966 STA $1E LDA #$9036 STA $1C LDA #$0003 STA $1A STA $2E JSR L025598 JSR L02552C JSR L025574 L02A56F RTS L02A570 DW $0000 L02A572 DW $0000 L02A574 DW $0000 L02A576 DW $0000 L02A578 LDA #$0000 STA L02A590 L02A57E JSR L02AA75 INC L02A590 LDA L02A590 CMP #$003C BNE L02A57E CLC RTS DW $0000 L02A590 DW $0000 DW $0000 DW $0000 L02A596 DW $0002 DW $0006 DW $000E DW $0012 DW $0016 DW $001E DW $0022 DW $002A DW $002E DW $0032 DW $003A DW $003E DW $0046 DW $004A DW $004E DW $0056 DW $005A DW $0062 DW $0066 DW $006A DW $0072 DW $0076 DW $007E DW $0082 DW $0086 L02A5C8 DA L02A965 DW $0000 DA L02A9AB DW $0004 DA L02A9F5 DW $0008 DA L02A965 DW $000C DA L02A9AB DW $0010 DA L02A9AB DW $0014 DA L02A9F5 DW $0018 DA L02A965 DW $001C DA L02A9AB DW $0020 DA L02A9F5 DW $0024 DA L02A965 DW $0028 DA L02A9AB DW $002C DA L02A9AB DW $0030 DA L02A9F5 DW $0034 DA L02A965 DW $0038 DA L02A9AB DW $003C DA L02A9F5 DW $0040 DA L02A965 DW $0044 DA L02A9AB DW $0048 DA L02A9AB DW $004C DA L02A9F5 DW $0050 DA L02A965 DW $0054 DA L02A9AB DW $0058 DA L02A9F5 DW $005C DA L02A965 DW $0060 DA L02A9AB DW $0064 DA L02A9AB DW $0068 DA L02A9F5 DW $006C DA L02A965 DW $0070 DA L02A9AB DW $0074 DA L02A9F5 DW $0078 DA L02A965 DW $007C DA L02A9AB DW $0080 DA L02A9AB DW $0084 DA L02A9F5 DW $0088 L02A654 DA L02A9A6 DW $0000 DA L02A9F0 DW $0004 DA L02AA3A DW $0008 DA L02A9A6 DW $000C DA L02A9F0 DW $0010 DA L02A9F0 DW $0014 DA L02AA3A DW $0018 DA L02A9A6 DW $001C DA L02A9F0 DW $0020 DA L02AA3A DW $0024 DA L02A9A6 DW $0028 DA L02A9F0 DW $002C DA L02A9F0 DW $0030 DA L02AA3A DW $0034 DA L02A9A6 DW $0038 DA L02A9F0 DW $003C DA L02AA3A DW $0040 DA L02A9A6 DW $0044 DA L02A9F0 DW $0048 DA L02A9F0 DW $004C DA L02AA3A DW $0050 DA L02A9A6 DW $0054 DA L02A9F0 DW $0058 DA L02AA3A DW $005C DA L02A9A6 DW $0060 DA L02A9F0 DW $0064 DA L02A9F0 DW $0068 DA L02AA3A DW $006C DA L02A9A6 DW $0070 DA L02A9F0 DW $0074 DA L02AA3A DW $0078 DA L02A9A6 DW $007C DA L02A9F0 DW $0080 DA L02A9F0 DW $0084 DA L02AA3A DW $0088 DW $0000 DW $0002 DW $0004 DW $0005 DW $0007 DW $0009 DW $000B DW $000C DW $000E DW $0010 DW $0011 DW $0013 DW $0015 DW $0017 DW $0018 DW $001A DW $001C DW $001D DW $001F DW $0021 DW $0023 DW $0024 DW $0026 DW $0028 DW $0029 DW $002B DW $002D DW $002F DW $0030 DW $0032 DW $0034 DW $0035 DW $0037 DW $0039 DW $003B DW $0001 DW $0003 DW $0006 DW $0008 DW $000A DW $000D DW $000F DW $0012 DW $0014 DW $0016 DW $0019 DW $001B DW $001E DW $0020 DW $0022 DW $0025 DW $0027 DW $002A DW $002C DW $002E DW $0031 DW $0033 DW $0036 DW $0038 DW $003A L02A758 DW $0000 DW $0001 DW $0002 DW $0003 DW $0004 DW $0006 DW $0007 DW $0008 DW $0009 DW $000A DW $000B DW $000C DW $000E DW $000F DW $0010 DW $0011 DW $0012 DW $0014 DW $0015 DW $0016 DW $0017 DW $0018 DW $0019 DW $001A DW $001C DW $001D DW $001E DW $001F DW $0020 DW $0022 DW $0023 DW $0024 DW $0025 DW $0026 DW $0027 DW $0028 DW $002A DW $002B DW $002C DW $002D DW $002E DW $0030 DW $0031 DW $0032 DW $0033 DW $0034 DW $0035 DW $0036 DW $0038 DW $0039 DW $003A DW $003B DW $003C DW $003E DW $003F DW $0040 DW $0041 DW $0042 DW $0043 DW $0044 L02A7D0 DW $0000 DW $0001 DW $0002 DW $0003 DW $0004 DW $0004 DW $0005 DW $0006 DW $0007 DW $0008 DW $0009 DW $000A DW $000B DW $000B DW $000C DW $000D DW $000E DW $000F DW $0010 DW $0010 DW $0011 DW $0012 DW $0013 DW $0014 DW $0015 DW $0016 DW $0017 DW $0017 DW $0018 DW $0019 DW $001A DW $001B DW $001C DW $001C DW $001D DW $001E DW $001F DW $0020 DW $0021 DW $0022 DW $0023 DW $0023 DW $0024 DW $0025 DW $0026 DW $0027 DW $0028 DW $0028 DW $0029 DW $002A DW $002B DW $002C DW $002D DW $002E DW $002F DW $002F DW $0030 DW $0031 DW $0032 DW $0033 DW $0034 DW $0034 DW $0035 DW $0036 DW $0037 DW $0038 DW $0039 DW $003A DW $003B DW $003B L02A85C DW $0000 DW $8000 DW $0001 DW $8001 DW $0002 DW $0003 DW $8002 DW $0004 DW $8003 DW $0005 DW $8004 DW $0006 DW $0007 DW $8005 DW $0008 DW $8006 DW $0009 DW $000A DW $8007 DW $000B DW $8008 DW $000C DW $8009 DW $000D DW $000E DW $800A DW $000F DW $800B DW $0010 DW $0011 DW $800C DW $0012 DW $800D DW $0013 DW $800E DW $0014 DW $0015 DW $800F DW $0016 DW $8010 DW $0017 DW $0018 DW $8011 DW $0019 DW $8012 DW $001A DW $8013 DW $001B DW $001C DW $8014 DW $001D DW $8015 DW $001E DW $001F DW $8016 DW $0020 DW $8017 DW $0021 DW $8018 DW $0022 L02A8D4 PHA LDA #L02A5C8 STA $3E L02A8DA PLA JSR L02A905 LDX #$0000 JSR (L02A8E5,X) RTS L02A8E5 DA $0000 L02A8E7 PHA LDA #L02A654 STA $3E BRA L02A8DA L02A8EF PHA LDA #L04646A STA $16 L02A8F5 PLA JSR L02A919 JSR L02A920 RTS L02A8FD PHA LDA #L04642A STA $16 BRA L02A8F5 L02A905 ASL ASL TAY LDA ($3E),Y STA L02A8E5 INY INY LDA ($3E),Y L02A911 STA $06 LDA L02002D STA $18 RTS L02A919 ASL TAX LDA L02A596,X BRA L02A911 L02A920 LDA #$0010 STA $2C LDAL L020966 STA $1E LDA L02AA5E CLC ADC $06 STA $1C LDA #$0004 STA $1A LDA #$0003 STA $2E LDA #$001C STA L0255B4 CLC ADC #$0010 STA L0255B8 LDA $06 ASL ASL CLC ADC #$0024 STA L0255B6 ADC #$000C STA L0255BA JSR L0255BC JSR L02552C JSR L025605 RTS L02A965 LDA #L046172 L02A968 STA $16 LDA #$0002 STA $2E LDA #$0010 STA $2C LDAL L020966 STA $1E LDA L02AA5E CLC ADC $06 STA $1C LDA #$0004 STA $1A LDA #$00A0 STA $20 JSR L02AA3F JSR L0255BC JSR L025501 LDA #$000D STA $2C LDA #$0004 STA $2E JSR L025501 JSR L025605 RTS L02A9A6 LDA #L0462CE BRA L02A968 L02A9AB LDA #L0461E7 L02A9AE STA $16 LDA #$0001 STA $2E LDA #$0010 STA $2C LDAL L020966 STA $1E LDA L02AA5E SEC ADC $06 STA $1C LDA #$0004 STA $1A LDA #$00A0 STA $20 JSR L02AA3F JSR L0255BC JSR L02552C LDA #$000D STA $2C LDA #$0004 STA $2E DEC $16 DEC $1C JSR L025501 JSR L025605 RTS L02A9F0 LDA #L046343 BRA L02A9AE L02A9F5 LDA #L04625B L02A9F8 STA $16 LDA #$0003 STA $2E LDA #$0010 STA $2C LDAL L020966 STA $1E LDA L02AA5E SEC ADC $06 STA $1C LDA #$0004 STA $1A LDA #$00A0 STA $20 JSR L02AA3F JSR L0255BC JSR L02552C LDA #$000D STA $2C LDA #$0004 STA $2E DEC $16 DEC $1C JSR L025501 JSR L025605 RTS L02AA3A LDA #L0463B7 BRA L02A9F8 L02AA3F LDA #$001C STA L0255B4 CLC ADC #$001D STA L0255B8 LDA $06 ASL ASL CLC ADC #$0024 STA L0255B6 ADC #$0010 STA L0255BA RTS L02AA5E DW $3189 L02AA60 ASL TAX LDA L02A85C,X STA L02AA8A BMI L02AA6E JSR L02A8E7 RTS L02AA6E AND #$00FF JSR L02A8FD RTS L02AA75 ASL TAX LDA L02A85C,X STA L02AA8A BMI L02AA83 JSR L02A8D4 RTS L02AA83 AND #$00FF JSR L02A8EF RTS L02AA8A DW $0000 L02AA8C LDY #$0016 LDA ($00),Y ASL ASL ASL ASL ADC $78 STA $42 SEP #$20 LDY #$0000 LDA ($42),Y SEC SBC #$25 BCS L02AAA7 LDA #$00 L02AAA7 CMP #$3B BCC L02AAAF BEQ L02AAAF LDA #$3B L02AAAF REP #$20 AND #$007F LDY #$000E STA ($00),Y ASL TAX LDA L02A758,X ASL ASL ASL LDY #$0014 STA ($00),Y RTS L02AAC7 LDY #$000E LDA ($00),Y STA L02AAD9 JSR L02AA60 LDA #$0001 STA L02A576 RTS L02AAD9 DW $0000 L02AADB LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE TAX LDA L02A7D0,X CMP L02AAD9 BEQ L02AAFC PHA LDA L02AAD9 JSR L02AA75 PLA STA L02AAD9 JSR L02AA60 L02AAFC RTS L02AAFD LDA L02AAD9 JSR L02AA75 LDY #$0016 LDA ($00),Y ASL ASL ASL ASL ADC $78 STA $42 LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE TAX LDA L02A7D0,X LDY #$000E STA ($00),Y SEP #$20 CLC ADC #$25 LDY #$0000 STA ($42),Y REP #$20 JSR L028C34 STZ L02A576 RTS L02AB36 LDA $14 CMP #$0000 BEQ L02AB47 CMP #$0004 BNE L02AB45 BRL L02AC2D L02AB45 CLC RTS L02AB47 LDY #$000A LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) LDA #L04A55A STA $16 LDA L02002D STA $18 LDA #$0002 STA $2E STA $1A LDA #$0008 STA $2C LDY #$000C LDA ($00),Y STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 JSR L025501 LDAL L020966 STA $1E LDY #$000C LDA ($00),Y CLC ADC #$0002 STA $30 PHA LDA #$008E STA $2E LDA #$0001 STA $2C LDA #$0000 STA $32 JSR L0213AA PLA CLC ADC #$0460 STA $30 LDA #$0001 STA $2C LDA #$AAAA STA $32 JSR L0213AA LDA #L04A56A STA $16 LDA L02002D STA $18 LDA #$0002 STA $2E STA $1A LDA #$0008 STA $2C LDY #$000C LDA ($00),Y CLC ADC #$0090 STA $1C LDAL L020966 STA $1E LDA #$00A0 STA $20 JSR L025501 LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE STA $2E PHA LDY #$000C LDA ($00),Y CLC ADC #$0002 STA $30 LDA #$0007 STA $2C LDA #$0000 STA $32 JSR L0213AA LDAL L04A3CA STA $16 LDA L02002D STA $18 LDA #$0006 STA $2E STA $1A LDA #$0008 STA $2C PLA CLC ADC $30 STA $1C JSR L025501 RTS L02AC2D LDY #$0004 LDA ($00),Y STA $08 CLC ADC #$0008 STA $0C LDY #$0006 LDA ($00),Y STA $0A STA $06 CLC ADC #$0248 STA $0E JSR L02555A BCS L02AC4F RTS L02AC4F LDA $06 CLC ADC #$0008 LDY #$0014 ADC ($00),Y STA $0A STA $04 CLC ADC #$0010 STA $0E JSR L02555A BCC L02AC6C BRL L02AD3C L02AC6C LDA $06 STA $0A LDA $04 STA $0E JSR L02555A BCS L02AC91 LDA $04 CLC ADC #$0010 STA $0A LDA $06 CLC ADC #$0248 STA $0E PEA L02ACB9 PEA L02ACE5 BRA L02AC97 L02AC91 PEA L02ACFA PEA L02AD27 L02AC97 JSR L021C37 LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE STA L02AEF6 LDY #$0008 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) INC $10 SEC RTS L02ACB9 JSR L02555A BCS L02ACBF RTS L02ACBF LDA #$0001 JSR L02ADB0 LDY #$0014 LDA ($00),Y CLC LDY #$0006 ADC ($00),Y CLC ADC #$0010 STA $0A LDY #$0010 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L02ACE5 JSR L02ACB9 JSR L021C65 LDY #$0012 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L02ACFA JSR L02555A BCS L02AD00 RTS L02AD00 LDA #$FFFF JSR L02ADB0 LDY #$0014 LDA ($00),Y CLC LDY #$0006 ADC ($00),Y CLC ADC #$0010 STA $0E LDY #$0010 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS RTS L02AD27 JSR L02ACFA JSR L021C65 LDY #$0012 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L02AD3C INC $10 PEA L02AD6C PEA L02AD9B JSR L021C37 LDA L02000F SEC SBC $0A STA $64 LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE STA L02AEF6 LDY #$0008 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) SEC RTS L02AD6C SEC LDA L02000F SBC $64 SEC SBC $0A BNE L02AD78 RTS L02AD78 JSR L02ADB0 LDY #$0014 LDA ($00),Y CLC LDY #$0006 ADC ($00),Y CLC ADC #$0008 STA $0A LDY #$0010 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L02AD9B JSR L02AD6C JSR L021C65 LDY #$0012 LDA ($00),Y STA L02516C LDX #$0000 JSR (L02516C,X) RTS L02ADB0 BPL L02ADB5 BRL L02AE66 L02ADB5 STA $3E LDY #$0014 LDA ($00),Y CLC ADC $3E CMP #$0224 BMI L02ADD3 LDA #$0224 SEC LDY #$0014 SBC ($00),Y DEC BNE L02ADD1 RTS L02ADD1 STA $3E L02ADD3 LDA $3E CLC LDY #$0014 ADC ($00),Y STA ($00),Y LDA L02002D STA $18 LDY #$000C LDA ($00),Y CLC ADC #$0002 STA L02AEFC LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE STA L02AEF8 JSR L02AEFE JSR L0255BC LDA L02AEF8 CMP L02AEF6 BEQ L02AE35 L02AE09 LDA #L04A58A STA $16 LDA #$0002 STA $2E STA $1A LDA #$0008 STA $2C LDA L02AEF6 CLC ADC L02AEFC STA $1C JSR L025501 LDA L02AEF6 CLC ADC #$0002 STA L02AEF6 CMP L02AEF8 BNE L02AE09 L02AE35 LDY #$0014 LDA ($00),Y AND #$0007 ASL TAX LDAL L04A3CA,X STA $16 LDA #$0006 STA $2E STA $1A LDA #$0008 STA $2C LDA L02AEF8 ADC L02AEFC STA $1C JSR L025501 JSR L025605 LDA L02AEF8 STA L02AEF6 RTS L02AE66 STA $3E LDY #$0014 LDA ($00),Y CLC ADC $3E BPL L02AE7D LDA ($00),Y BNE L02AE77 RTS L02AE77 EOR #$FFFF INC STA $3E L02AE7D LDA $3E CLC LDY #$0014 ADC ($00),Y STA ($00),Y LDA L02002D STA $18 LDY #$000C LDA ($00),Y CLC ADC #$0002 STA L02AEFC LDA L02AEF6 CLC ADC #$0004 STA L02AEF6 LDY #$0014 LDA ($00),Y LSR LSR AND #$FFFE STA L02AEF8 CLC ADC #$0004 STA L02AEFA JSR L02AF2F JSR L0255BC LDA L02AEFA CMP L02AEF6 BNE L02AEC7 BRL L02AE35 L02AEC7 LDA #L04A57A STA $16 LDA #$0002 STA $2E STA $1A LDA #$0008 STA $2C LDA L02AEF6 CLC ADC L02AEFC STA $1C JSR L025501 LDA L02AEF6 SEC SBC #$0002 STA L02AEF6 CMP L02AEFA BNE L02AEC7 JMP L02AE35 L02AEF6 DW $0000 L02AEF8 DW $0000 L02AEFA DW $0000 L02AEFC DW $0000 L02AEFE LDY #$0004 LDA ($00),Y STA L0255B4 CLC ADC #$0008 STA L0255B8 LDA L02AEF6 ASL ASL CLC LDY #$0006 ADC ($00),Y STA L0255B6 LDA L02AEF8 SEC SBC L02AEF6 ASL ASL CLC ADC L0255B6 ADC #$0018 STA L0255BA RTS L02AF2F LDY #$0004 LDA ($00),Y STA L0255B4 CLC ADC #$0008 STA L0255B8 LDA L02AEFA ASL ASL CLC LDY #$0006 ADC ($00),Y STA L0255B6 LDA L02AEF6 SEC SBC L02AEFA ASL ASL CLC ADC L0255B6 ADC #$0018 STA L0255BA RTS L02AF60 JSR L02B240 BCC L02AF75 JSR L02AFDF LDA #$0007 STA L02B24E LDAL TickCount STA L02B24C L02AF75 RTS L02AF76 JSR L02AFFB JSR L02AF8A LDA #$0007 STA L02B24E LDAL TickCount STA L02B24C RTS L02AF8A JSR L02AF8E RTS L02AF8E SEP #$20 LDX #$005D LDY #$0000 L02AF96 LDA L02AFA7,Y STAL $E19D00,X INX INY CPY #$0007 BNE L02AF96 REP #$20 RTS L02AFA7 HEX 87 L02AFA8 HEX 88898A8B8C8D8E8F8F8E8D8C8B8A8988 HEX 87868788898A8B8C8D8E8F8F8E8D8C8B HEX 8A89888786 L02AFCD SEP #$30 LDX #$5D LDA #$80 L02AFD3 STAL $E19D00,X INX CPX #$64 BNE L02AFD3 REP #$30 RTS L02AFDF SEP #$30 LDX #$00 LDA L02AFA7 L02AFE6 LDY L02AFA8,X STA L02AFA8,X TYA INX CPX #$11 BNE L02AFE6 STA L02AFA7 REP #$30 JSR L02AF8E RTS L02AFFB LDX #$0000 L02AFFE LDA L02B00D,X STAL $E19E00,X INX INX CPX #$0200 BNE L02AFFE RTS L02B00D HEX 0000DB0EFF0FAA0A0000DB0EFF0FAA0A HEX 0000DB0EFF0FAA0A0000DB0EFF0FAA0A HEX 00000000FF0FAA0A00000000FF0FAA0A HEX 00000000FF0FAA0A00000000FF0FAA0A HEX 00001100FF0FAA0A00001100FF0FAA0A HEX 00001100FF0FAA0A00001100FF0FAA0A HEX 00002200FF0FAA0A00002200FF0FAA0A HEX 00002200FF0FAA0A00002200FF0FAA0A HEX 00003300FF0FAA0A00003300FF0FAA0A HEX 00003300FF0FAA0A00003300FF0FAA0A HEX 00004400FF0FAA0A00004400FF0FAA0A HEX 00004400FF0FAA0A00004400FF0FAA0A HEX 00005500FF0FAA0A00005500FF0FAA0A HEX 00005500FF0FAA0A00005500FF0FAA0A HEX 00006600FF0FAA0A00006600FF0FAA0A HEX 00006600FF0FAA0A00006600FF0FAA0A HEX 00007700FF0FAA0A00007700FF0FAA0A HEX 00007700FF0FAA0A00007700FF0FAA0A HEX 00008800FF0FAA0A00008800FF0FAA0A HEX 00008800FF0FAA0A00008800FF0FAA0A HEX 00009900FF0FAA0A00009900FF0FAA0A HEX 00009900FF0FAA0A00009900FF0FAA0A HEX 0000AA00FF0FAA0A0000AA00FF0FAA0A HEX 0000AA00FF0FAA0A0000AA00FF0FAA0A HEX 0000BB00FF0FAA0A0000BB00FF0FAA0A HEX 0000BB00FF0FAA0A0000BB00FF0FAA0A HEX 0000CB00FF0FAA0A0000CB00FF0FAA0A HEX 0000CB00FF0FAA0A0000CB00FF0FAA0A HEX 0000DB00FF0FAA0A0000DB00FF0FAA0A HEX 0000DB00FF0FAA0A0000DB00FF0FAA0A HEX 0000EB00FF0FAA0A0000EB00FF0FAA0A HEX 0000EB00FF0FAA0A0000EB00FF0FAA0A L02B20D SEP #$30 LDX #$00 L02B211 LDAL $E19D5D,X STA L02B239,X LDA #$80 STAL $E19D5D,X INX CPX #$07 BNE L02B211 REP #$30 RTS L02B226 SEP #$30 LDX #$00 L02B22A LDA L02B239,X STAL $E19D5D,X INX CPX #$07 BNE L02B22A REP #$30 RTS L02B239 HEX 00000000000000 L02B240 LDAL TickCount SEC SBC L02B24C CMP L02B24E RTS L02B24C DW $0000 L02B24E DW $0000 L02B250 STZ L02B82C LDA L027412 STA $3E LDA L027414 STA $40 LDA [$3E] CMP #$FFFF BEQ L02B26A INC L02B82C JSR L02B6DF L02B26A JSR L020633 JSR L02B2C4 JSR L02066E JSR L029450 RTS L02B277 JSR L0206DE JSR L0219FA _HideMenuBar LDA L020021+2 PHA LDA L020021 PHA _BeginUpdate LDA L020021+2 PHA LDA L020021 PHA _EndUpdate JSR L02B39B LDA #L02B39B STA L0218F2 _WaitCursor STZ L02B82C JSR L028C84 BCS L02B2C0 INC L02B82C JSR L02B6DF L02B2C0 JSR L02B2F8 RTS L02B2C4 JSR L0206DE JSR L0219FA _HideMenuBar LDA L020021+2 PHA LDA L020021 PHA _BeginUpdate LDA L020021+2 PHA LDA L020021 PHA _EndUpdate JSR L02B39B LDA #L02B39B STA L0218F2 L02B2F8 JSR L02B454 _InitCursor LDA #L021AC7 STA L0219F8 LDA #L02B703 STA L02185D LDA L02B82C BEQ L02B316 JSR L027290 L02B316 LDA #$0004 STA L02B854 LDAL TickCount STA L02B852 JSR L02185F JSR L0272AD LDA #L025500 STA L02185D JSR L02B499 JSR L02AFFB JSR L021A0A JSR L021AAB PEA ^L020034 PEA L020034 _SetCallBack _ShowMenuBar JSR L0206DE RTS *L02B353 STR 'v1.1 Copyright 1989 - 92 Apple Computer, Inc' L02B353 STR 'v1.1 Copyright 1989 - 2023 Apple Computer, Inc' L02B393 DW $000A DW $0000 DW $00C6 DW $027F L02B39B LDA #L02B393 JSR L021A1A JSR L02A578 JSR L02B3D4 PEA $0020 PEA $00B7 _MoveTo PEA ^L02B353 PEA L02B353 _DrawString LDA #^L02B82E STA $50 PHA LDA #L02B82E STA $4E PHA PEA $0000 JSR L025483 RTS L02B3D4 LDA #L040AE0 STA $16 LDA L02002D STA $18 LDA #$0032 STA $2C LDAL L020966 STA $1E LDA #$4C90 STA $1C LDA #$002E STA $1A STA $2E LDA #$00A0 STA $20 _HideCursor JSR L025501 LDA #L04A87A STA $16 LDA #$000B STA $2C LDA #$6BDE STA $1C LDA #$0004 STA $1A STA $2E JSR L025501 LDA #L04A742 STA $16 LDA #$000D STA $2C LDA #$753E STA $1C LDA #$0018 STA $1A STA $2E JSR L025501 _ShowCursor RTS L02B43E JSR L02B846 BCC L02B453 JSR L02B4AB LDA #$0004 STA L02B854 LDAL TickCount STA L02B852 L02B453 RTS L02B454 JSR L02B4CD JSR L02B45B RTS L02B45B LDX #$004C JSR L02B465 JSR L02B465 RTS L02B465 SEP #$20 LDY #$0000 L02B46A LDA L02B47B,Y STAL $E19D00,X INX INY CPY #$001E BNE L02B46A REP #$20 RTS L02B47B HEX 8182838485868788898A8B8C8D8E8F8F HEX 8E8D8C8B8A898887868584838281 L02B499 SEP #$30 LDX #$4C LDA #$80 L02B49F STAL $E19D00,X INX CPX #$88 BNE L02B49F REP #$30 RTS L02B4AB PHB PEA $E1E1 PLB PLB SEP #$30 LDX #$4C LDA $9D00,X L02B4B8 LDY $9D01,X AND #$8F STA $9D01,X TYA INX CPX #$87 BNE L02B4B8 STA $9D4C REP #$30 PLB RTS L02B4CD LDX #$0000 L02B4D0 LDA L02B4DF,X STAL $E19E00,X INX INX CPX #$0200 BNE L02B4D0 RTS L02B4DF HEX 0000DB0EFF0FAA0A0000DB0EFF0FAA0A HEX 0000DB0EFF0FAA0A0000DB0EFF0FAA0A HEX 00000B00FF0FAA0A00000B00FF0FAA0A HEX 00000B00FF0FAA0A00000B00FF0FAA0A HEX 00001B00FF0FAA0A00001B00FF0FAA0A HEX 00001B00FF0FAA0A00001B00FF0FAA0A HEX 00002B00FF0FAA0A00002B00FF0FAA0A HEX 00002B00FF0FAA0A00002B00FF0FAA0A HEX 00003B00FF0FAA0A00003B00FF0FAA0A HEX 00003B00FF0FAA0A00003B00FF0FAA0A HEX 00004B00FF0FAA0A00004B00FF0FAA0A HEX 00004B00FF0FAA0A00004B00FF0FAA0A HEX 00005B00FF0FAA0A00005B00FF0FAA0A HEX 00005B00FF0FAA0A00005B00FF0FAA0A HEX 00006B00FF0FAA0A00006B00FF0FAA0A HEX 00006B00FF0FAA0A00006B00FF0FAA0A HEX 00007B00FF0FAA0A00007B00FF0FAA0A HEX 00007B00FF0FAA0A00007B00FF0FAA0A HEX 00008B00FF0FAA0A00008B00FF0FAA0A HEX 00008B00FF0FAA0A00008B00FF0FAA0A HEX 00009B00FF0FAA0A00009B00FF0FAA0A HEX 00009B00FF0FAA0A00009B00FF0FAA0A HEX 0000AB00FF0FAA0A0000AB00FF0FAA0A HEX 0000AB00FF0FAA0A0000AB00FF0FAA0A HEX 0000BB00FF0FAA0A0000BB00FF0FAA0A HEX 0000BB00FF0FAA0A0000BB00FF0FAA0A HEX 0000CB00FF0FAA0A0000CB00FF0FAA0A HEX 0000CB00FF0FAA0A0000CB00FF0FAA0A HEX 0000DB00FF0FAA0A0000DB00FF0FAA0A HEX 0000DB00FF0FAA0A0000DB00FF0FAA0A HEX 0000EB00FF0FAA0A0000EB00FF0FAA0A HEX 0000EB00FF0FAA0A0000EB00FF0FAA0A L02B6DF SEP #$20 STZ $74 STZ $75 REP #$20 STZ L02B7E8 STZ L02B7EA PEA ^L02B7B7 PEA L02B7B7 _SetCallBack RTS L02B6FB LDA #$0001 STAL L02B7E8 RTL L02B703 LDA L02B7EA BEQ L02B716 JSR L02B856 BCS L02B710 BRL L02B758 L02B710 STZ L02B7EA JSR L027290 L02B716 SEP #$30 L02B718 LDX $75 CPX $74 BEQ L02B756 LDA L02B7EC,X BMI L02B741 REP #$30 AND #$007F SEC SBC #$0024 BCC L02B736 CMP #$003C BCS L02B736 JSR L02AA60 L02B736 SEP #$30 LDA $75 INC AND #$3F STA $75 BRA L02B718 L02B741 REP #$30 AND #$007F SEC SBC #$0024 BCC L02B736 CMP #$003C BCS L02B736 JSR L02AA75 BRA L02B736 L02B756 REP #$30 L02B758 JSR L02B43E LDA L02B7E8 BEQ L02B776 STZ L02B7E8 JSR L0272AD INC L02B7EA LDA #$00C8 STA L02B864 LDAL TickCount STA L02B862 L02B776 RTS L02B777 PHB PHD PHK PLB LDA L02002B TCD LDA $76 BNE L02B7B2 SEP #$30 LDY #$31 LDA [$70],Y AND #$F0 CMP #$80 BNE L02B7A1 INY L02B790 LDA [$70],Y ORA #$80 L02B794 LDX $74 STA L02B7EC,X TXA INC AND #$3F STA $74 BRA L02B7B2 L02B7A1 CMP #$90 BNE L02B7B2 INY INY LDA [$70],Y DEY CMP #$00 BEQ L02B790 LDA [$70],Y BRA L02B794 L02B7B2 REP #$30 PLD PLB RTL L02B7B7 ADRL L02B6FB ADRL $00000000 ADRL $00000000 ADRL $00000000 ADRL $00000000 ADRL L02B777 ADRL $00000000 ADRL $00000000 ADRL $00000000 ADRL $00000000 ADRL $00000000 ADRL $00000000 DB $6B L02B7E8 DB $00 DB $00 L02B7EA DB $00 DB $00 L02B7EC DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L02B82C DB $00 DB $00 L02B82E DW $0001 DA L02B832 L02B832 DW $0007 DW $0000 DW $00A3 DW $0214 DA L021AD6 DA L021AE0 ADRL L048AD6 DA L021AF3 DA L021AEC L02B846 LDAL TickCount SEC SBC L02B852 CMP L02B854 RTS L02B852 DW $0000 L02B854 DW $0000 L02B856 LDAL TickCount SEC SBC L02B862 CMP L02B864 RTS L02B862 DW $0000 L02B864 DW $0000 L02B866 JSR L0205B5 JSR L0219FA LDA #L02B8F3 JSR L021A1A PEA $009C PEA $0064 _MoveTo PEA $01A0 PEA $0064 _LineTo PEA $00E0 PEA $0067 _MoveTo PEA ^L02B901 PEA L02B901 _DrawString PEA $0140 PEA $008B _MoveTo PEA ^L02B8FB PEA L02B8FB _DrawString LDA #^L02B9B2 STA $50 PHA LDA #L02B9B2 STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA #L021B42 STA L0219F8 JSR L02185F JSR L0205F4 JSR L021A0A JSR L021AAB RTS L02B8F3 DW $001E DW $0074 DW $00BC DW $01C8 L02B8FB STR 'Range' L02B901 STR ' Local Keyboard ' L02B912 LDY #$000C LDA #$000F SEC SBC ($00),Y PHA ASL ASL ASL STA L022203 PLA INC ASL TAX LDA L021563,X JSR L02162B RTS L02B92D LDA L022203 LSR LSR LSR STA L02B943 LDA #$000F SEC SBC L02B943 LDY #$000C STA ($00),Y RTS L02B943 DW $0000 L02B945 LDY #$0010 LDA ($00),Y CMP L02B992 BNE L02B958 JSR L0212E1 LDA $00 STA L02B994 RTS L02B958 JSR L0212F6 L02B95B RTS L02B95C LDY #$0010 LDA ($00),Y CMP L02B992 BEQ L02B95B STA L02B992 LDA $00 PHA LDA L02B994 STA $00 LDX #$0000 JSR L0212F6 PLA STA $00 STA L02B994 JSR L0212E1 L02B980 LDA L02B992 ASL TAX LDA L02B98C,X STA L022201 RTS L02B98C DW $0024 DW $0030 DW $003C L02B992 DW $0001 L02B994 DW $0000 L02B996 LDY #$000C LDA ($00),Y STA L02B9B0 ASL TAX LDA L021563,X JSR L02162B RTS L02B9A7 LDA L02B9B0 LDY #$000C STA ($00),Y RTS L02B9B0 DW $0020 L02B9B2 DW $0006 DA L02B9C0 DA L02B9E9 DA L02B9FB DA L02BA0D DA L02BA1F DA L02BA4D L02B9C0 DW $0001 DW $0000 DW $0080 DW $00BC DW $0010 DW $000E DW $000E DA L02B92D DW $702F DW $658F DA L02B912 ADRL L02B9E2 DW $00B4 DW $00AA DW $0000 DW $5500 L02B9E2 STR 'Volume' L02B9E9 DW $0005 DW $0000 DW $0074 DW $0114 DA L02B95C DA L02B945 ADRL L04371A DW $0000 L02B9FB DW $0005 DW $0000 DW $0074 DW $013C DA L02B95C DA L02B945 ADRL L043722 DW $0001 L02BA0D DW $0005 DW $0000 DW $0074 DW $0164 DA L02B95C DA L02B945 ADRL L04372A DW $0002 L02BA1F DW $0002 DW $0000 DW $002F DW $011C DW $0000 DW $003F DW $0020 DA L02B9A7 DW $3DA7 DW $401D DA L02B996 ADRL L02BA3F DW $00E8 DW $004D DA L025500 L02BA3F STR 'Master Tuning' L02BA4D DW $0007 DW $0000 DW $00A4 DW $015C DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L02BA61 DW $0000 L02BA63 STR 'Sorry, unable to start MIDI.' L02BA80 STR 'Make sure that MIDI is set correctly' L02BAA5 STR 'in the Finder Control Panel.' L02BAC2 DW $001B DW $0084 DW $009B DW $0228 MX %00 L02BACA JSR L0205B5 JSR L0219FA LDA #$0000 PHA _SetForeColor LDA #L02BAC2 JSR L021A1A PEA $0100 PEA $003B _MoveTo LDA $5E PHA PEA L02BA63 _DrawString PEA $0100 PEA $0046 _MoveTo LDA $5E PHA PEA L02BA80 _DrawString PEA $0100 PEA $0051 _MoveTo LDA $5E PHA PEA L02BAA5 _DrawString LDA #$0001 PHA _SetForeColor PEA $0100 PEA $0067 _MoveTo LDA $5E PHA LDA L02BA61 PHA _DrawString LDA #$0000 PHA _SetForeColor LDA #^L02BBE0 STA $50 PHA LDA #L02BBE0 STA $4E PHA PEA $0000 JSR L025483 LDA #L021AC7 STA L0219F8 LDA #L02BBB1 STA L02185D _InitCursor JSR L02185F LDA #L02BBB0 STA L02185D JSR L0205F4 JSR L021A0A JSR L021AAB RTS L02BB98 JSR L0212F6 STZ L02BBDC LDA #$0028 STA L02517A LDAL TickCount STA L025178 LDA $00 STA L02BBDE L02BBB0 RTS L02BBB1 JSR L0252C3 BCC L02BBDB LDA $00 PHA LDA L02BBDE STA $00 LDA L02BBDC BEQ L02BBCB JSR L0212F6 STZ L02BBDC BRA L02BBD1 L02BBCB JSR L0212E1 INC L02BBDC L02BBD1 LDAL TickCount STA L025178 PLA STA $00 L02BBDB RTS L02BBDC DW $0000 L02BBDE DW $0000 L02BBE0 DW $0002 DA L02BBFA DA L02BBE6 L02BBE6 DW $0007 DW $0000 DW $007A DW $01C0 DA L021AD6 DA L021AE0 ADRL L048AD6 DA L021AF3 DA L021AEC L02BBFA DW $0005 DW $0000 DW $003E DW $00A8 DA L02BBB0 DA L02BB98 ADRL L048ADE DW $0000 L02BC0C DW $001B DW $005A DW $00A7 DW $0230 L02BC14 LDA #$0000 PHA _SetForeColor LDA #L02BC0C JSR L021A1A PEA ^L02BCC1 PEA L02BCC1 PEA $0126 PEA ^L02BCB9 PEA L02BCB9 PEA $0000 _LETextBox2 LDA #^L02BDEB STA $50 PHA LDA #L02BDEB STA $4E PHA PEA $0000 JSR L025483 LDA #L02BC8E STA L02185D _InitCursor JSR L02185F LDA L021AC3 BNE L02BC6E LDA #L02BC8D STA L02185D JMP L02027A L02BC6E LDA #$0001 STA L02001B RTS L02BC75 JSR L0212F6 STZ L02BDE7 LDA #$0028 STA L02517A LDAL TickCount STA L025178 LDA $00 STA L02BDE9 L02BC8D RTS L02BC8E JSR L0252C3 BCC L02BCB8 LDA $00 PHA LDA L02BDE9 STA $00 LDA L02BDE7 BEQ L02BCA8 JSR L0212F6 STZ L02BDE7 BRA L02BCAE L02BCA8 JSR L0212E1 INC L02BDE7 L02BCAE LDAL TickCount STA L025178 PLA STA $00 L02BCB8 RTS L02BCB9 ASC '-'00 ASC "T" HEX 0081000A02 L02BCC1 ASC 'synthLAB' ASC "U" ASC 's MIDI (Musical Instrument Digital Interface) functions and AppleTalk cannot be used at the same time. Press ' ASC "T" ASC 'Continue' ASC "U" ASC ' to run synthLAB with MIDI disabled. To access the MIDI functions, quit synthLAB, turn off AppleTalk and restart the system.' HEX 0D0D0158FCFF ASC 'Press ' ASC "T" ASC 'Quit' ASC "U" ASC ' to exit this program.' L02BDE7 DW $0000 L02BDE9 DW $0000 L02BDEB DW $0003 DA L02BE1B DA L02BDF3 DA L02BE07 L02BDF3 DW $0007 DW $0000 DW $0089 DW $01C2 DA L021AD6 DA L021AE0 ADRL L04544C DA L021AF3 DA L021AEC L02BE07 DW $0007 DW $0000 DW $0089 DW $014F DA L021B92 DA L021B9C ADRL L045454 DA L021BAF DA L021BA8 L02BE1B DW $0005 DW $0000 DW $003E DW $007E DA L02BC8D DA L02BC75 ADRL L048ADE DW $0000 L02BE2D JSR L0205B5 JSR L0219FA LDA #L02BE6C JSR L021A1A LDA #^L02BF3C STA $50 PHA LDA #L02BF3C STA $4E PHA PEA $0000 _HideCursor JSR L025483 _ShowCursor LDA #L021B42 STA L0219F8 JSR L02185F JSR L0205F4 JSR L021A0A JSR L021AAB RTS L02BE6C DW $0012 DW $0000 DW $00C7 DW $027F L02BE74 JSR L02BED0 BCS L02BEA2 LDA L02BF14 BEQ L02BE8F LDA $00 PHA LDX L02BF12 LDA L02BF16,X STA $00 JSR L0212F6 PLA STA $00 L02BE8F JSR L0212E1 LDX L02BF12 LDA $00 STA L02BF16,X LDA L02BF10 STA L021109,X BRA L02BEAB L02BEA2 JSR L0212F6 LDX L02BF12 STZ L021109,X L02BEAB LDA L02BF36 PHA LDA L021109,X PHA _SetTrackOut RTS L02BEBB JSR L02BED0 BCS L02BEC4 JSR L0212F6 RTS L02BEC4 JSR L0212E1 LDX L02BF12 LDA $00 STA L02BF16,X RTS L02BED0 LDY #$0010 LDA ($00),Y BMI L02BEF2 STA L02BF36 ASL TAX LDA L021109,X STA L02BF14 STX L02BF12 LDA #$0001 STA L02BF10 AND L02BF14 BEQ L02BF0E L02BEF0 SEC RTS L02BEF2 AND #$0007 STA L02BF36 ASL TAX LDA L021109,X STA L02BF14 STX L02BF12 LDA #$0002 STA L02BF10 AND L02BF14 BNE L02BEF0 L02BF0E CLC RTS L02BF10 DW $0000 L02BF12 DW $0000 L02BF14 DW $0000 L02BF16 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L02BF36 DW $0000 L02BF38 JSR L0212F6 RTS L02BF3C DW $001A DA L02BF72 DA L02BF84 DA L02BF96 DA L02BFA8 DA L02BFBA DA L02BFCC DA L02BFDE DA L02BFF0 DA L02C002 DA L02C014 DA L02C026 DA L02C038 DA L02C04A DA L02C05C DA L02C06E DA L02C080 DA L02C0A6 DA L02C0B8 DA L02C0CA DA L02C0DC DA L02C0EE DA L02C100 DA L02C112 DA L02C124 DA L02C136 DA L02C092 L02BF72 DW $0005 DW $0000 DW $0030 DW $0020 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0000 L02BF84 DW $0005 DW $0000 DW $0030 DW $00A0 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8000 L02BF96 DW $0005 DW $0000 DW $0050 DW $0020 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0001 L02BFA8 DW $0005 DW $0000 DW $0050 DW $00A0 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8001 L02BFBA DW $0005 DW $0000 DW $0070 DW $0020 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0002 L02BFCC DW $0005 DW $0000 DW $0070 DW $00A0 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8002 L02BFDE DW $0005 DW $0000 DW $0090 DW $0020 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0003 L02BFF0 DW $0005 DW $0000 DW $0090 DW $00A0 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8003 L02C002 DW $0005 DW $0000 DW $0030 DW $0180 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0004 L02C014 DW $0005 DW $0000 DW $0030 DW $0200 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8004 L02C026 DW $0005 DW $0000 DW $0050 DW $0180 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0005 L02C038 DW $0005 DW $0000 DW $0050 DW $0200 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8005 L02C04A DW $0005 DW $0000 DW $0070 DW $0180 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0006 L02C05C DW $0005 DW $0000 DW $0070 DW $0200 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8006 L02C06E DW $0005 DW $0000 DW $0090 DW $0180 DA L02BE74 DA L02BEBB ADRL L04AB1F DW $0007 L02C080 DW $0005 DW $0000 DW $0090 DW $0200 DA L02BE74 DA L02BEBB ADRL L04AB27 DW $8007 L02C092 DW $0007 DW $0000 DW $00B0 DW $021C DA L021B51 DA L021B5B ADRL L049452 DA L021B6E DA L021B67 L02C0A6 DW $0005 DW $0000 DW $001F DW $011C DA L025500 DA L02BF38 ADRL L04B3EF DW $0000 L02C0B8 DW $0005 DW $0000 DW $0036 DW $0110 DA L025500 DA L02BF38 ADRL L04B3F5 DW $0000 L02C0CA DW $0005 DW $0000 DW $0056 DW $0110 DA L025500 DA L02BF38 ADRL L04B3FB DW $0000 L02C0DC DW $0005 DW $0000 DW $0076 DW $0110 DA L025500 DA L02BF38 ADRL L04B401 DW $0000 L02C0EE DW $0005 DW $0000 DW $0096 DW $0110 DA L025500 DA L02BF38 ADRL L04B407 DW $0000 L02C100 DW $0005 DW $0000 DW $0036 DW $0160 DA L025500 DA L02BF38 ADRL L04B40D DW $0000 L02C112 DW $0005 DW $0000 DW $0056 DW $0160 DA L025500 DA L02BF38 ADRL L04B413 DW $0000 L02C124 DW $0005 DW $0000 DW $0076 DW $0160 DA L025500 DA L02BF38 ADRL L04B419 DW $0000 L02C136 DW $0005 DW $0000 DW $0096 DW $0160 DA L025500 DA L02BF38 ADRL L04B41F DW $0000