M6809 DIS-ASSEMBLER rev12hex Wed May 10 15:35:23 2000 C000 C101 KEY_ALG_00_00 FDB $C101 C002 C14D KEY_ALG_00_01 FDB $C14D C004 C1A9 KEY_ALG_00_02 FDB $C1A9 C006 C18E KEY_ALG_00_03 FDB $C18E C008 C1DC KEY_ALG_00_04 FDB $C1DC C00A C1C2 KEY_ALG_00_05 FDB $C1C2 C00C C100 KEY_ALG_00_06 FDB $C100 C00E C100 KEY_ALG_00_07 FDB $C100 C010 C207 KEY_ALG_01_00 FDB $C207 C012 C21D KEY_ALG_01_01 FDB $C21D C014 C1A9 KEY_ALG_01_02 FDB $C1A9 C016 C18E KEY_ALG_01_03 FDB $C18E C018 C307 KEY_ALG_01_04 FDB $C307 C01A C30B KEY_ALG_01_05 FDB $C30B C01C C100 KEY_ALG_01_06 FDB $C100 C01E C100 KEY_ALG_01_07 FDB $C100 C020 C30F KEY_ALG_02_00 FDB $C30F C022 C32E KEY_ALG_02_01 FDB $C32E C024 C354 KEY_ALG_02_02 FDB $C354 C026 C339 KEY_ALG_02_03 FDB $C339 C028 C3B0 KEY_ALG_02_04 FDB $C3B0 C02A C36D KEY_ALG_02_05 FDB $C36D C02C C100 KEY_ALG_02_06 FDB $C100 C02E C100 KEY_ALG_02_07 FDB $C100 C030 C3D4 KEY_ALG_03_00 FDB $C3D4 C032 C3F0 KEY_ALG_03_01 FDB $C3F0 C034 C1A9 KEY_ALG_03_02 FDB $C1A9 C036 C18E KEY_ALG_03_03 FDB $C18E C038 C516 KEY_ALG_03_04 FDB $C516 C03A C4EE KEY_ALG_03_05 FDB $C4EE C03C C100 KEY_ALG_03_06 FDB $C100 C03E C100 KEY_ALG_03_07 FDB $C100 C040 C52C KEY_ALG_04_00 FDB $C52C C042 C557 KEY_ALG_04_01 FDB $C557 C044 C1A9 KEY_ALG_04_02 FDB $C1A9 C046 C18E KEY_ALG_04_03 FDB $C18E C048 C1DC KEY_ALG_04_04 FDB $C1DC C04A C1C2 KEY_ALG_04_05 FDB $C1C2 C04C C100 KEY_ALG_04_06 FDB $C100 C04E C100 KEY_ALG_04_07 FDB $C100 C050 C582 KEY_ALG_05_00 FDB $C582 C052 C5DE KEY_ALG_05_01 FDB $C5DE C054 C621 KEY_ALG_05_02 FDB $C621 C056 C60A KEY_ALG_05_03 FDB $C60A C058 C649 KEY_ALG_05_04 FDB $C649 C05A C638 KEY_ALG_05_05 FDB $C638 C05C C100 KEY_ALG_05_06 FDB $C100 C05E C100 KEY_ALG_05_07 FDB $C100 C060 C5B2 KEY_ALG_06_00 FDB $C5B2 C062 C5DE KEY_ALG_06_01 FDB $C5DE C064 C621 KEY_ALG_06_02 FDB $C621 C066 C60A KEY_ALG_06_03 FDB $C60A C068 C649 KEY_ALG_06_04 FDB $C649 C06A C638 KEY_ALG_06_05 FDB $C638 C06C C100 KEY_ALG_06_06 FDB $C100 C06E C100 KEY_ALG_06_07 FDB $C100 C070 C662 KEY_ALG_07_00 FDB $C662 C072 C672 KEY_ALG_07_01 FDB $C672 C074 C621 KEY_ALG_07_02 FDB $C621 C076 C60A KEY_ALG_07_03 FDB $C60A C078 C649 KEY_ALG_07_04 FDB $C649 C07A C638 KEY_ALG_07_05 FDB $C638 C07C C100 KEY_ALG_07_06 FDB $C100 C07E C100 KEY_ALG_07_07 FDB $C100 C080 C67F KEY_ALG_08_00 FDB $C67F C082 C6B2 KEY_ALG_08_01 FDB $C6B2 C084 C621 KEY_ALG_08_02 FDB $C621 C086 C60A KEY_ALG_08_03 FDB $C60A C088 C649 KEY_ALG_08_04 FDB $C649 C08A C6B8 KEY_ALG_08_05 FDB $C6B8 C08C C100 KEY_ALG_08_06 FDB $C100 C08E C100 KEY_ALG_08_07 FDB $C100 C090 C68C KEY_ALG_09_00 FDB $C68C C092 C6B2 KEY_ALG_09_01 FDB $C6B2 C094 C621 KEY_ALG_09_02 FDB $C621 C096 C60A KEY_ALG_09_03 FDB $C60A C098 C649 KEY_ALG_09_04 FDB $C649 C09A C6B8 KEY_ALG_09_05 FDB $C6B8 C09C C100 KEY_ALG_09_06 FDB $C100 C09E C100 KEY_ALG_09_07 FDB $C100 C0A0 C732 KEY_ALG_10_00 FDB $C732 C0A2 C769 KEY_ALG_10_01 FDB $C769 C0A4 C7D8 KEY_ALG_10_02 FDB $C7D8 C0A6 C7D4 KEY_ALG_10_03 FDB $C7D4 C0A8 C800 KEY_ALG_10_04 FDB $C800 C0AA C30B KEY_ALG_10_05 FDB $C30B C0AC C798 KEY_ALG_10_06 FDB $C798 C0AE C7C7 KEY_ALG_10_07 FDB $C7C7 C0B0 C737 KEY_ALG_11_00 FDB $C737 C0B2 C769 KEY_ALG_11_01 FDB $C769 C0B4 C7D8 KEY_ALG_11_02 FDB $C7D8 C0B6 C7D4 KEY_ALG_11_03 FDB $C7D4 C0B8 C800 KEY_ALG_11_04 FDB $C800 C0BA C30B KEY_ALG_11_05 FDB $C30B C0BC C798 KEY_ALG_11_06 FDB $C798 C0BE C7C7 KEY_ALG_11_07 FDB $C7C7 C0C0 C732 KEY_ALG_12_00 FDB $C732 C0C2 C769 KEY_ALG_12_01 FDB $C769 C0C4 C7D8 KEY_ALG_12_02 FDB $C7D8 C0C6 C7D4 KEY_ALG_12_03 FDB $C7D4 C0C8 C800 KEY_ALG_12_04 FDB $C800 C0CA C30B KEY_ALG_12_05 FDB $C30B C0CC C79D KEY_ALG_12_06 FDB $C79D C0CE C7C7 KEY_ALG_12_07 FDB $C7C7 C0D0 C737 KEY_ALG_13_00 FDB $C737 C0D2 C769 KEY_ALG_13_01 FDB $C769 C0D4 C7D8 KEY_ALG_13_02 FDB $C7D8 C0D6 C7D4 KEY_ALG_13_03 FDB $C7D4 C0D8 C800 KEY_ALG_13_04 FDB $C800 C0DA C30B KEY_ALG_13_05 FDB $C30B C0DC C79D KEY_ALG_13_06 FDB $C79D C0DE C7C7 KEY_ALG_13_07 FDB $C7C7 C0E0 C73C KEY_ALG_14_00 FDB $C73C C0E2 C769 KEY_ALG_14_01 FDB $C769 C0E4 C7D8 KEY_ALG_14_02 FDB $C7D8 C0E6 C7D4 KEY_ALG_14_03 FDB $C7D4 C0E8 C800 KEY_ALG_14_04 FDB $C800 C0EA C30B KEY_ALG_14_05 FDB $C30B C0EC C798 KEY_ALG_14_06 FDB $C798 C0EE C7C7 KEY_ALG_14_07 FDB $C7C7 C0F0 C73C KEY_ALG_15_00 FDB $C73C C0F2 C769 KEY_ALG_15_01 FDB $C769 C0F4 C7D8 KEY_ALG_15_02 FDB $C7D8 C0F6 C7D4 KEY_ALG_15_03 FDB $C7D4 C0F8 C800 KEY_ALG_15_04 FDB $C800 C0FA C30B KEY_ALG_15_05 FDB $C30B C0FC C7A2 KEY_ALG_15_06 FDB $C7A2 C0FE C7C7 KEY_ALG_15_07 FDB $C7C7 C100 39 RTS C101 BDE116 JSR CHK_NGATE C104 3470 PSHS U,Y,X C106 A6A863 LDA $63,Y C109 970D STA 16_CHNL_MODE C10B 33A4 LEAU 0,Y C10D AEC4 ALG0_CHK_CHAN LDX 0,U C10F 2712 BEQ NO_CHNL_LST_PLAYD C111 A606 LDA $6,X C113 2E0E BGT NO_CHNL_LST_PLAYD C115 2708 BEQ ALG0_NEXT_CHAN C117 A608 LDA $8,X C119 915C CMPA CORR_NOTE C11B 2602 BNE ALG0_NEXT_CHAN C11D 31C4 LEAY 0,U C11F 3384 ALG0_NEXT_CHAN LEAU 0,X C121 20EA BRA ALG0_CHK_CHAN C123 3420 NO_CHNL_LST_PLAYD PSHS Y C125 11A3E1 CMPU ,S++ C128 2721 BEQ ALG_0_ATK_EXIT C12A AEA4 LDX 0,Y C12C 6F06 CLR $6,X C12E BDDE39 JSR CALC_VEL_PRES C131 A608 LDA $8,X C133 915C CMPA CORR_NOTE C135 2605 BNE NEW_NOTE_ALG_0 C137 BDDF4A JSR RESTRT_NOTE_ENV C13A 2003 BRA ENV_STARTED C13C BDDF62 NEW_NOTE_ALG_0 JSR START_NOTE_ENV C13F BDDED1 ENV_STARTED JSR STORE_NOTE2CHAN C142 BDDEF4 JSR DO_SWEEP_SETUP C145 BDE07E JSR PUT_S_H_TO_BRD C148 BDE142 JSR SET_NXT_LAST_DAT C14B 35F0 ALG_0_ATK_EXIT PULS X,Y,U,PC C14D 3470 PSHS U,Y,X C14F A6A863 LDA $63,Y C152 970D STA 16_CHNL_MODE C154 BDE129 JSR MASK_FSW C157 970C STA SWEEP_INDEX C159 AEA4 ALG_0_NEXT_CHAN LDX 0,Y C15B 272F BEQ ALG_0_REL_EXIT C15D A606 LDA $6,X C15F 2E2B BGT ALG_0_REL_EXIT C161 2704 BEQ REL_CUR_CHAN C163 3184 LEAY 0,X C165 20F2 BRA ALG_0_NEXT_CHAN C167 33A4 REL_CUR_CHAN LEAU 0,Y C169 A608 L2 LDA $8,X C16B 915C CMPA CORR_NOTE C16D 2613 BNE REL_DIF_NOTE C16F 6A06 DEC $6,X C171 BDE04F JSR CHK_REL_THRSH C174 960C LDA SWEEP_INDEX C176 2B03 BMI SKIP_REL C178 BDE061 JSR ACTIVATE_REL C17B BDE14A SKIP_REL JSR L1 C17E 3084 LEAX 0,X C180 2004 BRA CHK_NXT_CHAN C182 3184 REL_DIF_NOTE LEAY 0,X C184 AE84 LDX 0,X C186 2704 CHK_NXT_CHAN BEQ ALG_0_REL_EXIT C188 A606 LDA $6,X C18A 2FDD BLE L2 C18C 35F0 ALG_0_REL_EXIT PULS X,Y,U,PC C18E BDE0D9 JSR FSW1_ASSERT_OKCHK C191 3410 PSHS X C193 A6A863 LDA $63,Y C196 970D STA 16_CHNL_MODE C198 30A4 LEAX 0,Y C19A AE84 FSW1_0_NEXT_CHAN LDX 0,X C19C 2709 BEQ FSW1_1_ASRT_EXIT C19E A606 LDA $6,X C1A0 2CF8 BGE FSW1_0_NEXT_CHAN C1A2 BDE032 JSR ACTIVATE_ATK C1A5 20F3 BRA FSW1_0_NEXT_CHAN C1A7 3590 FSW1_1_ASRT_EXIT PULS X,PC C1A9 BDE0C7 JSR FSW1_DESERT_OKCHK C1AC 3410 PSHS X C1AE A6A863 LDA $63,Y C1B1 970D STA 16_CHNL_MODE C1B3 30A4 LEAX 0,Y C1B5 AE84 FSW1D_0134_LOOP LDX 0,X C1B7 27EE BEQ FSW1_1_ASRT_EXIT C1B9 A606 LDA $6,X C1BB 2CF8 BGE FSW1D_0134_LOOP C1BD BDE061 JSR ACTIVATE_REL C1C0 20F3 BRA FSW1D_0134_LOOP C1C2 BDE0FF JSR FSW2_ASSERT_OKCHK C1C5 3410 PSHS X C1C7 A6A863 LDA $63,Y C1CA 970D STA 16_CHNL_MODE C1CC 30A4 LEAX 0,Y C1CE AE84 FSW2A_04_LOOP LDX 0,X C1D0 27D5 BEQ FSW1_1_ASRT_EXIT C1D2 A606 LDA $6,X C1D4 2ED1 BGT FSW1_1_ASRT_EXIT C1D6 2DF6 BLT FSW2A_04_LOOP C1D8 6C06 INC $6,X C1DA 20F2 BRA FSW2A_04_LOOP C1DC BDE0EB JSR FSW2_DESERT_OKCHK C1DF 3470 PSHS U,Y,X C1E1 A6A863 LDA $63,Y C1E4 970D STA 16_CHNL_MODE C1E6 33A4 LEAU 0,Y C1E8 AEA4 FSW2D_04_LOOP LDX 0,Y C1EA 2719 BEQ FSW2D_04_EXIT C1EC A606 LDA $6,X C1EE 2E09 BGT FSW2D_04_MULTI C1F0 3184 LEAY 0,X C1F2 4D TSTA C1F3 27F3 BEQ FSW2D_04_LOOP C1F5 3384 LEAU 0,X C1F7 20EF BRA FSW2D_04_LOOP C1F9 6006 FSW2D_04_MULTI NEG $6,X C1FB BDE061 JSR ACTIVATE_REL C1FE BDE14A JSR L1 C201 3084 LEAX 0,X C203 26F4 BNE FSW2D_04_MULTI C205 35F0 FSW2D_04_EXIT PULS X,Y,U,PC C207 BDE116 JSR CHK_NGATE C20A 3410 PSHS X C20C AEA4 LDX 0,Y C20E 270B BEQ ALG_1_ATCK_EXIT C210 BDE19C JSR ORDER_STK_DESCND C213 2706 BEQ ALG_1_ATCK_EXIT C215 8EC271 LDX #$C271 C218 AFA866 STX $66,Y C21B 3590 ALG_1_ATCK_EXIT PULS X,PC C21D 3470 PSHS U,Y,X C21F A6A863 LDA $63,Y C222 970D STA 16_CHNL_MODE C224 BDE16C JSR TOP_BOT_RELEASE C227 33A4 LEAU 0,Y C229 AEC4 CHK_NEWCHAN_NOTE LDX 0,U C22B 2742 BEQ A1_CH_NOT_ASGND C22D A606 LDA $6,X C22F 2D3A BLT ALG1_GOTONXTCHAN C231 A608 LDA $8,X C233 915C CMPA CORR_NOTE C235 2634 BNE ALG1_GOTONXTCHAN C237 6A06 DEC $6,X C239 EC84 LDD 0,X C23B EDC4 STD 0,U C23D A6A862 LDA $62,Y C240 6CA862 INC $62,Y C243 3440 PSHS U C245 EEA4 ALG1_CHKNXT_CHAN LDU 0,Y C247 4D TSTA C248 270B BEQ L3 C24A E648 LDB 8,U $8 C24C D15C CMPB CORR_NOTE C24E 2D05 BLT L3 C250 4A DECA C251 31C4 LEAY 0,U C253 20F0 BRA ALG1_CHKNXT_CHAN C255 EF84 L3 STU 0,X C257 AFA4 STX 0,Y C259 3540 PULS U C25B 10AE62 LDY $2,S C25E BDE04F JSR CHK_REL_THRSH C261 BDE129 JSR MASK_FSW C264 2BC3 BMI CHK_NEWCHAN_NOTE C266 BDE061 JSR ACTIVATE_REL C269 20BE BRA CHK_NEWCHAN_NOTE C26B 3384 ALG1_GOTONXTCHAN LEAU 0,X C26D 20BA BRA CHK_NEWCHAN_NOTE C26F 3570 A1_CH_NOT_ASGND PULS X,Y,U C271 A6A861 LDA $61,Y C274 2606 BNE L4 C276 860A LDA #$A C278 A7A861 STA $61,Y C27B 39 L5 RTS C27C 4A L4 DECA C27D A7A861 STA $61,Y C280 26F9 BNE L5 C282 3476 PSHS U,Y,X,B,A C284 A6A863 LDA $63,Y C287 970D STA 16_CHNL_MODE C289 CCC100 LDD #$C100 C28C EDA866 STD $66,Y C28F EE22 LDU $2,Y C291 2772 BEQ L6 C293 BDE129 JSR MASK_FSW C296 8440 ANDA #$40 '@ C298 A7E4 STA 0,S C29A AEA4 L17 LDX 0,Y C29C 275A BEQ L7 C29E ECC4 LDD 0,U C2A0 975C STA CORR_NOTE C2A2 D75E STB PLAYED_VEL C2A4 EC84 LDD 0,X C2A6 EDA4 STD 0,Y C2A8 1F20 L8 TFR Y,D C2AA 10AEA4 LDY 0,Y C2AD 26F9 BNE L8 C2AF 10AF84 STY 0,X C2B2 1F02 TFR D,Y C2B4 AFA4 STX 0,Y C2B6 10AE64 LDY $4,S C2B9 6F06 CLR $6,X C2BB BDDE39 JSR CALC_VEL_PRES C2BE A6A862 LDA $62,Y C2C1 2614 BNE L9 C2C3 A6E4 LDA 0,S C2C5 2605 BNE L10 C2C7 BDDE85 JSR L11 C2CA 2006 BRA L12 C2CC E6A860 L10 LDB $60,Y C2CF BDDEA0 JSR L13 C2D2 BDDF62 L12 JSR START_NOTE_ENV C2D5 2017 BRA L14 C2D7 A608 L9 LDA $8,X C2D9 A7A860 STA $60,Y C2DC A6E4 LDA 0,S C2DE 2605 BNE L15 C2E0 BDDE85 JSR L11 C2E3 2003 BRA L16 C2E5 BDDED1 L15 JSR STORE_NOTE2CHAN C2E8 BDDF4A L16 JSR RESTRT_NOTE_ENV C2EB 6AA862 DEC $62,Y C2EE BDDEF4 L14 JSR DO_SWEEP_SETUP C2F1 BDE07E JSR PUT_S_H_TO_BRD C2F4 EE42 LDU 2,U $2 C2F6 26A2 BNE L17 C2F8 EE22 L7 LDU $2,Y C2FA BDD793 JSR GETNODEFROMHEAP C2FD CE0000 LDU #$0 C300 EF22 STU $2,Y C302 6FA862 CLR $62,Y C305 35F6 L6 PULS A,B,X,Y,U,PC C307 BDE0EB JSR FSW2_DESERT_OKCHK C30A 39 RTS C30B BDE0FF JSR FSW2_ASSERT_OKCHK C30E 39 RTS C30F BDE116 JSR CHK_NGATE C312 3460 PSHS U,Y C314 A6A860 LDA $60,Y C317 260A BNE L18 C319 EE22 LDU $2,Y C31B BDD793 JSR GETNODEFROMHEAP C31E CE0000 LDU #$0 C321 EF22 STU $2,Y C323 BDE19C L18 JSR ORDER_STK_DESCND C326 ABA860 ADDA $60,Y C329 A7A860 STA $60,Y C32C 35E0 PULS Y,U,PC C32E BDE1C4 JSR L19 C331 40 NEGA C332 ABA860 ADDA $60,Y C335 A7A860 STA $60,Y C338 39 RTS C339 BDE0D9 JSR FSW1_ASSERT_OKCHK C33C 3410 PSHS X C33E A6A863 LDA $63,Y C341 970D STA 16_CHNL_MODE C343 AEA4 LDX 0,Y C345 270B L21 BEQ L20 C347 A606 LDA $6,X C349 2C07 BGE L20 C34B BDE032 JSR ACTIVATE_ATK C34E AE84 LDX 0,X C350 20F3 BRA L21 C352 3590 L20 PULS X,PC C354 BDE0C7 JSR FSW1_DESERT_OKCHK C357 3410 PSHS X C359 A6A863 LDA $63,Y C35C 970D STA 16_CHNL_MODE C35E AEA4 LDX 0,Y C360 27F0 L22 BEQ L20 C362 A606 LDA $6,X C364 2CEC BGE L20 C366 BDE061 JSR ACTIVATE_REL C369 AE84 LDX 0,X C36B 20F3 BRA L22 C36D BDE0FF JSR FSW2_ASSERT_OKCHK C370 3450 PSHS U,X C372 A6A863 LDA $63,Y C375 970D STA 16_CHNL_MODE C377 EE22 LDU $2,Y C379 2733 L26 BEQ L23 C37B AEA4 LDX 0,Y C37D 272F BEQ L23 C37F A606 LDA $6,X C381 2C2B BGE L23 C383 ECC4 LDD 0,U C385 975C STA CORR_NOTE C387 D75E STB PLAYED_VEL C389 3410 L25 PSHS X C38B AE84 LDX 0,X C38D 2708 BEQ L24 C38F A606 LDA $6,X C391 2C04 BGE L24 C393 3262 LEAS $2,S C395 20F2 BRA L25 C397 3510 L24 PULS X C399 6C06 INC $6,X C39B BDDE39 JSR CALC_VEL_PRES C39E BDDED1 JSR STORE_NOTE2CHAN C3A1 BDDEF4 JSR DO_SWEEP_SETUP C3A4 BDDF4A JSR RESTRT_NOTE_ENV C3A7 BDE07E JSR PUT_S_H_TO_BRD C3AA EE42 LDU 2,U $2 C3AC 20CB BRA L26 C3AE 35D0 L23 PULS X,U,PC C3B0 BDE0EB JSR FSW2_DESERT_OKCHK C3B3 3410 PSHS X C3B5 A6A863 LDA $63,Y C3B8 970D STA 16_CHNL_MODE C3BA BDE129 JSR MASK_FSW C3BD 970C STA SWEEP_INDEX C3BF AEA4 LDX 0,Y C3C1 278F L28 BEQ L20 C3C3 A606 LDA $6,X C3C5 2609 BNE L27 C3C7 6A06 DEC $6,X C3C9 960C LDA SWEEP_INDEX C3CB 2B03 BMI L27 C3CD BDE061 JSR ACTIVATE_REL C3D0 AE84 L27 LDX 0,X C3D2 20ED BRA L28 C3D4 BDE116 JSR CHK_NGATE C3D7 3446 PSHS U,B,A C3D9 ECA4 LDD 0,Y C3DB 2711 BEQ KYBD_ALG3_EXIT C3DD BDE129 JSR MASK_FSW C3E0 48 ASLA C3E1 2B0B BMI KYBD_ALG3_EXIT C3E3 BDE19C JSR ORDER_STK_DESCND C3E6 2706 BEQ KYBD_ALG3_EXIT C3E8 CCC457 LDD #$C457 C3EB EDA866 STD $66,Y C3EE 35C6 KYBD_ALG3_EXIT PULS A,B,U,PC C3F0 3476 PSHS U,Y,X,B,A C3F2 BDE129 JSR MASK_FSW C3F5 8540 BITA #$40 '@ C3F7 2643 BNE ALG_3_REL_EXIT C3F9 A7E4 STA 0,S C3FB A6A863 LDA $63,Y C3FE 970D STA 16_CHNL_MODE C400 BDE16C JSR TOP_BOT_RELEASE C403 AEA4 ALG3_CHKNEWCHAN LDX 0,Y C405 2735 BEQ ALG_3_REL_EXIT C407 A606 LDA $6,X C409 2D31 BLT ALG_3_REL_EXIT C40B A608 LDA $8,X C40D 915C CMPA CORR_NOTE C40F 2627 BNE ALG3_GOTONXTCHAN C411 EC84 LDD 0,X C413 EDA4 STD 0,Y C415 33A4 LEAU 0,Y C417 ECC4 L30 LDD 0,U C419 2704 BEQ L29 C41B 1F03 TFR D,U C41D 20F8 BRA L30 C41F ED84 L29 STD 0,X C421 AFC4 STX 0,U C423 33A4 LEAU 0,Y C425 10AE64 LDY $4,S C428 BDE04F JSR CHK_REL_THRSH C42B A6E4 LDA 0,S C42D 2B03 BMI L31 C42F BDE061 JSR ACTIVATE_REL C432 31C4 L31 LEAY 0,U C434 6A06 DEC $6,X C436 20CB BRA ALG3_CHKNEWCHAN C438 3184 ALG3_GOTONXTCHAN LEAY 0,X C43A 20C7 BRA ALG3_CHKNEWCHAN C43C 35F6 ALG_3_REL_EXIT PULS A,B,X,Y,U,PC C43E ECC4 L37 LDD 0,U C440 975C STA CORR_NOTE C442 D75E STB PLAYED_VEL C444 EE42 LDU 2,U $2 C446 6F06 CLR $6,X C448 BDDE39 JSR CALC_VEL_PRES C44B BDDED1 JSR STORE_NOTE2CHAN C44E BDDEF4 JSR DO_SWEEP_SETUP C451 BDDF4A JSR RESTRT_NOTE_ENV C454 7EE07E JMP PUT_S_H_TO_BRD C457 A6A861 LDA $61,Y C45A 2606 BNE L32 C45C 860A LDA #$A C45E A7A861 STA $61,Y C461 39 L33 RTS C462 6AA861 L32 DEC $61,Y C465 26FA BNE L33 C467 3476 PSHS U,Y,X,B,A C469 CCC100 LDD #$C100 C46C EDA866 STD $66,Y C46F EE22 LDU $2,Y C471 2779 BEQ L34 C473 AEA4 LDX 0,Y C475 2768 BEQ L35 C477 A606 LDA $6,X C479 2710 BEQ L36 C47B 8DC1 L38 BSR L37 C47D AE84 LDX 0,X C47F 275E BEQ L35 C481 11830000 CMPU #$0 C485 26F4 BNE L38 C487 EE22 LDU $2,Y C489 20F0 BRA L38 C48B 6FE4 L36 CLR 0,S C48D 11830000 L45 CMPU #$0 C491 260E BNE L39 C493 A606 LDA $6,X C495 2648 BNE L35 C497 A6E4 LDA 0,S C499 2706 BEQ L39 C49B EE64 LDU $4,S C49D EE42 LDU 2,U $2 C49F 6FE4 CLR 0,S C4A1 11830000 L39 CMPU #$0 C4A5 2724 BEQ L40 C4A7 A6E4 LDA 0,S C4A9 2606 BNE L41 C4AB A6C4 LDA 0,U C4AD A108 CMPA $8,X C4AF 2F1A BLE L40 C4B1 3420 L41 PSHS Y C4B3 EC84 L43 LDD 0,X C4B5 2706 BEQ L42 C4B7 3184 LEAY 0,X C4B9 1F01 TFR D,X C4BB 20F6 BRA L43 C4BD EDA4 L42 STD 0,Y C4BF ECF4 LDD [0,S] C4C1 ED84 STD 0,X C4C3 AFF1 STX [,S++] C4C5 10AE64 LDY $4,S C4C8 BDC43E JSR L37 C4CB 3184 L40 LEAY 0,X C4CD AE84 LDX 0,X C4CF 270E BEQ L35 C4D1 A606 LDA $6,X C4D3 2D06 BLT L44 C4D5 A628 LDA $8,Y C4D7 A108 CMPA $8,X C4D9 2EB2 BGT L45 C4DB 6CE4 L44 INC 0,S C4DD 20AE BRA L45 C4DF 10AE64 L35 LDY $4,S C4E2 EE22 LDU $2,Y C4E4 BDD793 JSR GETNODEFROMHEAP C4E7 CE0000 LDU #$0 C4EA EF22 STU $2,Y C4EC 35F6 L34 PULS A,B,X,Y,U,PC C4EE BDE0FF JSR FSW2_ASSERT_OKCHK C4F1 3450 PSHS U,X C4F3 30A4 LEAX 0,Y C4F5 AE84 L47 LDX 0,X C4F7 2708 BEQ L46 C4F9 A606 LDA $6,X C4FB 26F8 BNE L47 C4FD 6C06 INC $6,X C4FF 20F4 BRA L47 C501 EE22 L46 LDU $2,Y C503 BDD793 JSR GETNODEFROMHEAP C506 CE0000 LDU #$0 C509 EF22 STU $2,Y C50B CEC100 LDU #$C100 C50E EFA866 STU $66,Y C511 6FA861 CLR $61,Y C514 35D0 PULS X,U,PC C516 BDE0EB JSR FSW2_DESERT_OKCHK C519 3410 PSHS X C51B 30A4 LEAX 0,Y C51D AE84 L49 LDX 0,X C51F 2709 BEQ L48 C521 86FF LDA #$FF C523 A706 STA $6,X C525 BDE061 JSR ACTIVATE_REL C528 20F3 BRA L49 C52A 3590 L48 PULS X,PC C52C BDE116 JSR CHK_NGATE C52F 3410 PSHS X C531 BDE129 JSR MASK_FSW C534 48 ASLA C535 2B1E BMI EXIT_ALG_4_ATK C537 AEA4 LDX 0,Y C539 271A BEQ EXIT_ALG_4_ATK C53B A6A863 LDA $63,Y C53E 970D STA 16_CHNL_MODE C540 6F06 ALG_4_MORE_CHANS CLR $6,X C542 BDDE39 JSR CALC_VEL_PRES C545 BDDED1 JSR STORE_NOTE2CHAN C548 BDDEF4 JSR DO_SWEEP_SETUP C54B BDDF4A JSR RESTRT_NOTE_ENV C54E BDE07E JSR PUT_S_H_TO_BRD C551 AE84 LDX 0,X C553 26EB BNE ALG_4_MORE_CHANS C555 3590 EXIT_ALG_4_ATK PULS X,PC C557 3410 PSHS X C559 BDE129 JSR MASK_FSW C55C 970C STA SWEEP_INDEX C55E 48 ASLA C55F 2B1F BMI EXIT_ALG_4_REL C561 AEA4 LDX 0,Y C563 271B BEQ EXIT_ALG_4_REL C565 A608 LDA $8,X C567 915C CMPA CORR_NOTE C569 2615 BNE EXIT_ALG_4_REL C56B A6A863 LDA $63,Y C56E 970D STA 16_CHNL_MODE C570 BDE04F ALG4_CHAN_LOOP JSR CHK_REL_THRSH C573 6A06 DEC $6,X C575 960C LDA SWEEP_INDEX C577 2B03 BMI ALG4_REL_NEXT_CHAN C579 BDE061 JSR ACTIVATE_REL C57C AE84 ALG4_REL_NEXT_CHAN LDX 0,X C57E 26F0 BNE ALG4_CHAN_LOOP C580 3590 EXIT_ALG_4_REL PULS X,PC C582 BDE116 KYBD_ALG_5_ATK JSR CHK_NGATE C585 BDE129 JSR MASK_FSW C588 48 ASLA C589 2A01 BPL SNGL_TRIG C58B 39 RTS C58C 3410 SNGL_TRIG PSHS X C58E AEA4 LDX 0,Y C590 271E BEQ DONT_SND_SNGL C592 A606 LDA $6,X C594 2E1A BGT DONT_SND_SNGL C596 A6A863 LDA $63,Y C599 970D STA 16_CHNL_MODE C59B A606 LDA $6,X C59D 2C08 BGE SNGL_REPRESS C59F 6F06 CLR $6,X C5A1 BDDEF4 JSR DO_SWEEP_SETUP C5A4 BDDF4A JSR RESTRT_NOTE_ENV C5A7 BDDE39 SNGL_REPRESS JSR CALC_VEL_PRES C5AA BDDED1 JSR STORE_NOTE2CHAN C5AD BDE07E JSR PUT_S_H_TO_BRD C5B0 3590 DONT_SND_SNGL PULS X,PC C5B2 BDE116 JSR CHK_NGATE C5B5 BDE129 JSR MASK_FSW C5B8 48 ASLA C5B9 2A01 BPL MTPL_TRIG C5BB 39 RTS C5BC 3410 MTPL_TRIG PSHS X C5BE AEA4 LDX 0,Y C5C0 271A BEQ DONT_SND_MTPL C5C2 A606 LDA $6,X C5C4 2E16 BGT DONT_SND_MTPL C5C6 A6A863 LDA $63,Y C5C9 970D STA 16_CHNL_MODE C5CB 6F06 CLR $6,X C5CD BDDEF4 JSR DO_SWEEP_SETUP C5D0 BDDF4A JSR RESTRT_NOTE_ENV C5D3 BDDE39 JSR CALC_VEL_PRES C5D6 BDDED1 JSR STORE_NOTE2CHAN C5D9 BDE07E JSR PUT_S_H_TO_BRD C5DC 3590 DONT_SND_MTPL PULS X,PC C5DE BDE129 LST_NOTE_REL JSR MASK_FSW C5E1 970C STA SWEEP_INDEX C5E3 48 ASLA C5E4 2A01 BPL ALG_5_6_REL_MAIN C5E6 39 RTS C5E7 3410 ALG_5_6_REL_MAIN PSHS X C5E9 AEA4 LDX 0,Y C5EB 271B BEQ ALG_5_6_REL_EXIT C5ED A606 LDA $6,X C5EF 2617 BNE ALG_5_6_REL_EXIT C5F1 A608 LDA $8,X C5F3 915C CMPA CORR_NOTE C5F5 2611 BNE ALG_5_6_REL_EXIT C5F7 A6A863 LDA $63,Y C5FA 970D STA 16_CHNL_MODE C5FC 6A06 DEC $6,X C5FE BDE04F JSR CHK_REL_THRSH C601 960C LDA SWEEP_INDEX C603 2B03 BMI ALG_5_6_REL_EXIT C605 BDE061 JSR ACTIVATE_REL C608 3590 ALG_5_6_REL_EXIT PULS X,PC C60A BDE0D9 JSR FSW1_ASSERT_OKCHK C60D 3410 PSHS X C60F AEA4 LDX 0,Y C611 270C BEQ FSW1A_56789_EXIT C613 A606 LDA $6,X C615 2C08 BGE FSW1A_56789_EXIT C617 A6A863 LDA $63,Y C61A 970D STA 16_CHNL_MODE C61C BDE032 JSR ACTIVATE_ATK C61F 3590 FSW1A_56789_EXIT PULS X,PC C621 BDE0C7 JSR FSW1_DESERT_OKCHK C624 3410 PSHS X C626 AEA4 LDX 0,Y C628 270C BEQ FSW1D_56789_EXIT C62A A606 LDA $6,X C62C 2C08 BGE FSW1D_56789_EXIT C62E A6A863 LDA $63,Y C631 970D STA 16_CHNL_MODE C633 BDE061 JSR ACTIVATE_REL C636 3590 FSW1D_56789_EXIT PULS X,PC C638 BDE0FF JSR FSW2_ASSERT_OKCHK C63B 3410 L50 PSHS X C63D AEA4 LDX 0,Y C63F 2706 BEQ FSW2A_567_EXIT C641 A606 LDA $6,X C643 2602 BNE FSW2A_567_EXIT C645 6C06 INC $6,X C647 3590 FSW2A_567_EXIT PULS X,PC C649 BDE0EB JSR FSW2_DESERT_OKCHK C64C 3410 PSHS X C64E AEA4 LDX 0,Y C650 270E BEQ FSW2D_56789_EXIT C652 A606 LDA $6,X C654 2F0A BLE FSW2D_56789_EXIT C656 A6A863 LDA $63,Y C659 970D STA 16_CHNL_MODE C65B 6006 NEG $6,X C65D BDE061 JSR ACTIVATE_REL C660 3590 FSW2D_56789_EXIT PULS X,PC C662 BDE116 JSR CHK_NGATE C665 A6A860 LDA $60,Y C668 4C INCA C669 A7A860 STA $60,Y C66C 4A DECA C66D 1027FF11 LBEQ KYBD_ALG_5_ATK C671 39 RTS C672 6AA860 DEC $60,Y C675 102AFF65 LBPL LST_NOTE_REL C679 6CA860 INC $60,Y C67C 7EC5DE JMP LST_NOTE_REL C67F BDE116 JSR CHK_NGATE C682 CCE18A LDD #$E18A C685 3406 PSHS B,A C687 CCC6D5 LDD #$C6D5 C68A 200B BRA ALG89_ATK_BODY C68C BDE116 JSR CHK_NGATE C68F CCE19C LDD #$E19C C692 3406 PSHS B,A C694 CCC6D8 LDD #$C6D8 C697 3406 ALG89_ATK_BODY PSHS B,A C699 BDE129 JSR MASK_FSW C69C 8540 BITA #$40 '@ C69E 2703 BEQ ALG89_ATK_CONT C6A0 3264 LEAS $4,S C6A2 39 RTS C6A3 3506 ALG89_ATK_CONT PULS A,B C6A5 6DA861 TST $61,Y C6A8 2606 BNE ALG89_ATK_EXIT C6AA EDA866 STD $66,Y C6AD ADB866 JSR [$66,Y] C6B0 6EF1 ALG89_ATK_EXIT JMP [,S++] C6B2 BDE16C JSR TOP_BOT_RELEASE C6B5 7EC5DE JMP LST_NOTE_REL C6B8 BDE0FF JSR FSW2_ASSERT_OKCHK C6BB 3450 PSHS U,X C6BD EE22 LDU $2,Y C6BF BDD793 JSR GETNODEFROMHEAP C6C2 CC0000 LDD #$0 C6C5 ED22 STD $2,Y C6C7 A7A861 STA $61,Y C6CA CCC100 LDD #$C100 C6CD EDA866 STD $66,Y C6D0 3550 PULS X,U C6D2 7EC63B JMP L50 C6D5 4F CLRA C6D6 2002 BRA L51 C6D8 86FF LDA #$FF C6DA 3402 L51 PSHS A C6DC A6A861 LDA $61,Y C6DF 2607 BNE L52 C6E1 860A LDA #$A C6E3 A7A861 STA $61,Y C6E6 3582 L53 PULS A,PC C6E8 4A L52 DECA C6E9 A7A861 STA $61,Y C6EC 26F8 BNE L53 C6EE 3502 PULS A C6F0 3456 PSHS U,X,B,A C6F2 CCC100 LDD #$C100 C6F5 EDA866 STD $66,Y C6F8 EE22 LDU $2,Y C6FA 2734 BEQ L54 C6FC ECC4 LDD 0,U C6FE 975C STA CORR_NOTE C700 D75E STB PLAYED_VEL C702 BDD793 JSR GETNODEFROMHEAP C705 CE0000 LDU #$0 C708 EF22 STU $2,Y C70A AEA4 LDX 0,Y C70C 2722 BEQ L54 C70E A606 LDA $6,X C710 2D08 BLT L55 C712 A608 LDA $8,X C714 905C SUBA CORR_NOTE C716 A8E4 EORA 0,S C718 2B16 BMI L54 C71A 6F06 L55 CLR $6,X C71C A6A863 LDA $63,Y C71F 970D STA 16_CHNL_MODE C721 BDDE39 JSR CALC_VEL_PRES C724 BDDED1 JSR STORE_NOTE2CHAN C727 BDDEF4 JSR DO_SWEEP_SETUP C72A BDDF4A JSR RESTRT_NOTE_ENV C72D BDE07E JSR PUT_S_H_TO_BRD C730 35D6 L54 PULS A,B,X,U,PC C732 CCE18A LDD #$E18A C735 2008 BRA ARP_ATTACK C737 CCE19C LDD #$E19C C73A 2003 BRA ARP_ATTACK C73C CCE1AE LDD #$E1AE C73F BDE116 ARP_ATTACK JSR CHK_NGATE C742 3446 PSHS U,B,A C744 BDE129 JSR MASK_FSW C747 48 ASLA C748 2A02 BPL PROCEED_W_ARP C74A 35C6 PULS A,B,U,PC C74C EE22 PROCEED_W_ARP LDU $2,Y C74E 260F BNE ADD_TO_NOTES C750 CCC826 LDD #$C826 C753 EDA866 STD $66,Y C756 6FA861 CLR $61,Y C759 BDC826 JSR L56 C75C 6FA860 CLR $60,Y C75F ADF1 ADD_TO_NOTES JSR [,S++] C761 ABA860 ADDA $60,Y C764 A7A860 STA $60,Y C767 35C0 PULS U,PC C769 3450 PSHS U,X C76B BDE129 JSR MASK_FSW C76E 970C STA SWEEP_INDEX C770 48 ASLA C771 2B23 BMI ALG10_15_EXIT C773 BDE1C4 JSR L19 C776 40 NEGA C777 ABA860 ADDA $60,Y C77A A7A860 STA $60,Y C77D 2617 BNE ALG10_15_EXIT C77F 960C LDA SWEEP_INDEX C781 2B13 BMI ALG10_15_EXIT C783 EE22 LDU $2,Y C785 BDD793 JSR GETNODEFROMHEAP C788 CE0000 LDU #$0 C78B EF22 STU $2,Y C78D CCC100 LDD #$C100 C790 EDA866 STD $66,Y C793 6FA861 CLR $61,Y C796 35D0 ALG10_15_EXIT PULS X,U,PC C798 CCC85D LDD #$C85D C79B 2008 BRA MAIN_ARP_BODY C79D CCC871 LDD #$C871 C7A0 2003 BRA MAIN_ARP_BODY C7A2 CCC896 LDD #$C896 C7A5 3446 MAIN_ARP_BODY PSHS U,B,A C7A7 ACA4 CMPX 0,Y C7A9 261A BNE MAIN_ARP_EXIT C7AB EE22 LDU $2,Y C7AD 2716 BEQ MAIN_ARP_EXIT C7AF ADF4 JSR [0,S] C7B1 ECC4 LDD 0,U C7B3 975C STA CORR_NOTE C7B5 D75E STB PLAYED_VEL C7B7 A6A863 LDA $63,Y C7BA 970D STA 16_CHNL_MODE C7BC BDDE39 JSR CALC_VEL_PRES C7BF BDDED1 JSR STORE_NOTE2CHAN C7C2 BDDF4A JSR RESTRT_NOTE_ENV C7C5 35C6 MAIN_ARP_EXIT PULS A,B,U,PC C7C7 ACA4 CMPX 0,Y C7C9 2608 BNE GEN_ARP_EXIT C7CB A6A863 LDA $63,Y C7CE 970D STA 16_CHNL_MODE C7D0 7EE061 JMP ACTIVATE_REL C7D3 39 GEN_ARP_EXIT RTS C7D4 BDE0D9 JSR FSW1_ASSERT_OKCHK C7D7 39 RTS C7D8 BDE0C7 JSR FSW1_DESERT_OKCHK C7DB 3450 PSHS U,X C7DD BDE129 JSR MASK_FSW C7E0 48 ASLA C7E1 2B1B BMI L57 C7E3 A6A860 LDA $60,Y C7E6 2616 BNE L57 C7E8 EE22 LDU $2,Y C7EA BDD793 JSR GETNODEFROMHEAP C7ED CE0000 LDU #$0 C7F0 EF22 STU $2,Y C7F2 AEA4 LDX 0,Y C7F4 2708 BEQ L57 C7F6 A6A863 LDA $63,Y C7F9 970D STA 16_CHNL_MODE C7FB BDE061 JSR ACTIVATE_REL C7FE 35D0 L57 PULS X,U,PC C800 BDE0EB JSR FSW2_DESERT_OKCHK C803 3450 PSHS U,X C805 EE22 LDU $2,Y C807 BDD793 JSR GETNODEFROMHEAP C80A CE0000 LDU #$0 C80D EF22 STU $2,Y C80F EFA860 STU $60,Y C812 CEC100 LDU #$C100 C815 EFA866 STU $66,Y C818 AEA4 LDX 0,Y C81A 2708 BEQ L58 C81C A6A863 LDA $63,Y C81F 970D STA 16_CHNL_MODE C821 BDE061 JSR ACTIVATE_REL C824 35D0 L58 PULS X,U,PC C826 3454 L56 PSHS U,X,B C828 A6A861 LDA $61,Y C82B 2613 BNE L59 C82D 860A LDA #$A C82F A7A861 STA $61,Y C832 AEA4 LDX 0,Y C834 2725 BEQ L60 C836 A6A863 LDA $63,Y C839 970D STA 16_CHNL_MODE C83B BDE061 JSR ACTIVATE_REL C83E 201B BRA L60 C840 6AA861 L59 DEC $61,Y C843 2616 BNE L60 C845 CCC100 LDD #$C100 C848 EDA866 STD $66,Y C84B 6FA862 CLR $62,Y C84E AEA4 LDX 0,Y C850 2709 BEQ L60 C852 CCFFFF LDD #$FFFF C855 ED881C STD $1C,X C858 BDE07E JSR PUT_S_H_TO_BRD C85B 35D4 L60 PULS B,X,U,PC C85D A6A862 LDA $62,Y C860 4C INCA C861 A7A862 STA $62,Y C864 BDE1DB JSR L61 C867 2607 BNE L62 C869 8601 LDA #$1 C86B A7A862 STA $62,Y C86E EE22 LDU $2,Y C870 39 L62 RTS C871 EE22 LDU $2,Y C873 EC42 LDD 2,U $2 C875 27F9 BEQ L62 C877 A6A862 LDA $62,Y C87A 4C INCA C87B 2602 BNE L63 C87D 8602 LDA #$2 C87F A7A862 L63 STA $62,Y C882 2A01 BPL STACK_INDEX_GT_0 C884 40 NEGA C885 BDE1DB STACK_INDEX_GT_0 JSR L61 C888 26E6 BNE L62 C88A 8602 LDA #$2 C88C A0A862 SUBA $62,Y C88F A7A862 STA $62,Y C892 40 NEGA C893 7EE1DB JMP L61 C896 33A4 LEAU 0,Y C898 5F CLRB C899 EE42 COUNT_ARP_NOTES LDU 2,U $2 C89B 2703 BEQ AT_ARP_STCK_END C89D 5C INCB C89E 20F9 BRA COUNT_ARP_NOTES C8A0 CED800 AT_ARP_STCK_END LDU #$D800 C8A3 6CA862 INC $62,Y C8A6 A6A862 LDA $62,Y C8A9 A6C6 LDA A,U C8AB 3D MUL C8AC 4C INCA C8AD EE22 LDU $2,Y C8AF 7EE1DB JMP L61 C8B2 BDCAD5 JSR TPE_LIGHTS_OUT C8B5 CC0800 LDD #$800 C8B8 BDCB32 JSR LONG_CASS_PAUSE C8BB 2701 BEQ CASS_MOTOR_OK C8BD 53 COMB C8BE 8612 CASS_MOTOR_OK LDA #$12 C8C0 BDCD8A JSR C_INF_OUT C8C3 1F98 TFR B,A C8C5 BDCD8A JSR C_INF_OUT C8C8 BDCB07 JSR CANCEL_CASS_OP C8CB 7ECDFC JMP PROCES_CHROMA_DAT C8CE BDCD49 JSR GET_A_FRM_BUF C8D1 1F89 TFR A,B C8D3 CE0BFF LDU #$BFF C8D6 BDCD49 MORE_DAT_FOR_CASS JSR GET_A_FRM_BUF C8D9 A7C0 STA ,U+ C8DB 5A DECB C8DC 26F8 BNE MORE_DAT_FOR_CASS C8DE BDCAD5 JSR TPE_LIGHTS_OUT C8E1 8606 LDA #$6 C8E3 B72003 STA RD_TIME_WR_TMOD C8E6 1F30 TFR U,D C8E8 830BFF SUBD #$BFF C8EB BDC9B2 JSR B_BYTES_2_TAPE C8EE 2603 BNE S_PKT_OP_FAIL C8F0 5F CLRB C8F1 2002 BRA S_PKT_OP_OK C8F3 C6FF S_PKT_OP_FAIL LDB #$FF C8F5 8605 S_PKT_OP_OK LDA #$5 C8F7 BDCD8A JSR C_INF_OUT C8FA 1F98 TFR B,A C8FC BDCD8A JSR C_INF_OUT C8FF BDCB07 JSR CANCEL_CASS_OP C902 7ECDFC JMP PROCES_CHROMA_DAT C905 BDCAD5 JSR TPE_LIGHTS_OUT C908 8603 LDA #$3 C90A B72003 STA RD_TIME_WR_TMOD C90D BDCA89 JSR L64 C910 280B BVC L65 C912 56 RORB C913 1D SEX C914 B70C00 STA L66 C917 CC0002 LDD #$2 C91A B70BFF STA L67 C91D 1CEF L65 ANDC #$EF C91F 8604 LDA #$4 C921 BDCD8A JSR C_INF_OUT C924 1F98 TFR B,A C926 BDCD8A JSR C_INF_OUT C929 CE0BFF LDU #$BFF C92C A6C0 OUT_NXT_CASS_BYTE LDA ,U+ C92E BDCD8A JSR C_INF_OUT C931 5A DECB C932 26F8 BNE OUT_NXT_CASS_BYTE C934 BDCB07 JSR CANCEL_CASS_OP C937 7ECDFC JMP PROCES_CHROMA_DAT C93A CC0301 LDD #$301 C93D 2010 BRA DO_STOP_PKT C93F 4F CLRA C940 2007 BRA SAVE_PKT_A C942 8601 LDA #$1 C944 2003 BRA SAVE_PKT_A C946 B61FF2 LDA CURR_PROG_NUM C949 B70C00 SAVE_PKT_A STA L66 C94C CC0202 LDD #$202 C94F B70BFF DO_STOP_PKT STA L67 C952 3404 PSHS B C954 BDCAD5 JSR TPE_LIGHTS_OUT C957 8606 LDA #$6 C959 B72003 STA RD_TIME_WR_TMOD C95C 8610 LDA #$10 C95E BDCB32 JSR LONG_CASS_PAUSE C961 3504 PULS B C963 102601A0 LBNE CANCEL_CASS_OP C967 BDC9B2 JSR B_BYTES_2_TAPE C96A 7ECB07 JMP CANCEL_CASS_OP C96D 3406 CASS_DATA_OUT PSHS B,A C96F D62F LDB WR_MSCO_IMG C971 4D TSTA C972 2702 BEQ TAPE_OUT_0 C974 C808 EORB #$8 C976 D72F TAPE_OUT_0 STB WR_MSCO_IMG C978 8608 LDA #$8 C97A B52001 TIMER_NOT_RDY BITA RD_MSCI_WR_MSCO C97D 26FB BNE TIMER_NOT_RDY C97F F72001 STB RD_MSCI_WR_MSCO C982 F62003 LDB RD_TIME_WR_TMOD C985 3586 PULS A,B,PC C987 3402 A_BIT_OUT_CASS PSHS A C989 8401 ANDA #$1 C98B 8DE0 BSR CASS_DATA_OUT C98D 4C INCA C98E 8DDD BSR CASS_DATA_OUT C990 3582 PULS A,PC C992 3406 SAVE_CASS_WORD_A PSHS B,A C994 9B68 ADDA L68 C996 9768 STA L68 C998 4F CLRA C999 8DEC BSR A_BIT_OUT_CASS C99B A6E4 LDA 0,S C99D C608 LDB #$8 C99F 8DE6 SHIFT_NEXT_BIT BSR A_BIT_OUT_CASS C9A1 44 LSRA C9A2 5A DECB C9A3 26FA BNE SHIFT_NEXT_BIT C9A5 962F LDA WR_MSCO_IMG C9A7 44 LSRA C9A8 44 LSRA C9A9 44 LSRA C9AA 8DDB BSR A_BIT_OUT_CASS C9AC 8601 LDA #$1 C9AE 8DD7 BSR A_BIT_OUT_CASS C9B0 3586 PULS A,B,PC C9B2 3446 B_BYTES_2_TAPE PSHS U,B,A C9B4 CC0000 LDD #$0 C9B7 8DCE START_GAP BSR A_BIT_OUT_CASS C9B9 5A DECB C9BA 26FB BNE START_GAP C9BC 4C INCA C9BD 8DC8 BSR A_BIT_OUT_CASS C9BF 0F68 CLR L68 C9C1 A661 LDA $1,S C9C3 8DCD BSR SAVE_CASS_WORD_A C9C5 CE0BFF LDU #$BFF C9C8 CCFFFF LDD #$FFFF C9CB FD2006 STD RD_NOTE_WR_LED C9CE E661 LDB $1,S C9D0 A6C0 CASS_SAVE_LOOP LDA ,U+ C9D2 8DBE BSR SAVE_CASS_WORD_A C9D4 8D10 BSR CHK_CASS_CMD C9D6 5A DECB C9D7 26F7 BNE CASS_SAVE_LOOP C9D9 4F CLRA C9DA FD2006 STD RD_NOTE_WR_LED C9DD 9668 LDA L68 C9DF 40 NEGA C9E0 8DB0 BSR SAVE_CASS_WORD_A C9E2 9669 LDA CASS_MOT_INFO C9E4 35C6 PULS A,B,U,PC C9E6 3416 CHK_CASS_CMD PSHS X,B,A C9E8 8E0014 LDX #$14 C9EB 8603 LDA #$3 C9ED B72005 C_NXT_ROW STA RD_SWB_WR_SDS C9F0 3402 PSHS A C9F2 B62005 LDA RD_SWB_WR_SDS C9F5 1F89 TFR A,B C9F7 53 COMB C9F8 E482 ANDB ,-X C9FA A784 STA 0,X C9FC 3502 PULS A C9FE C420 ANDB #$20 CA00 260D BNE NO_CASS_OP CA02 4A DECA CA03 2AE8 BPL C_NXT_ROW CA05 F62001 LDB RD_MSCI_WR_MSCO CA08 F41FF1 ANDB CASS_TYPE CA0B C404 ANDB #$4 CA0D 2004 BRA CASS_OP_CONT CA0F A79F1FF4 NO_CASS_OP STA [$1FF4] CA13 DA69 CASS_OP_CONT ORB CASS_MOT_INFO CA15 D769 STB CASS_MOT_INFO CA17 3596 PULS A,B,X,PC CA19 3410 L70 PSHS X CA1B 8608 LDA #$8 CA1D 8DC7 L69 BSR CHK_CASS_CMD CA1F 2704 BEQ CASS_CMD_0 CA21 86FF LDA #$FF CA23 3590 PULS X,PC CA25 B52001 CASS_CMD_0 BITA RD_MSCI_WR_MSCO CA28 26F3 BNE L69 CA2A BE2003 LDX RD_TIME_WR_TMOD CA2D 4F CLRA CA2E 8C01A0 CMPX #$1A0 CA31 250E BCS TIMER_LT_416 CA33 8C0820 CMPX #$820 CA36 2409 BCC TIMER_LT_416 CA38 4C INCA CA39 8C04E0 CMPX #$4E0 CA3C 2503 BCS TIMER_LT_416 CA3E 4C INCA CA3F 3590 PULS X,PC CA41 4D TIMER_LT_416 TSTA CA42 3590 PULS X,PC CA44 3402 L71 PSHS A CA46 8DD1 BSR L70 CA48 2F0A BLE OVR_FLOW CA4A 44 LSRA CA4B 240B BCC DATA_OK CA4D 8DCA BSR L70 CA4F 2F03 BLE OVR_FLOW CA51 44 LSRA CA52 2504 BCS DATA_OK CA54 8080 OVR_FLOW SUBA #$80 CA56 1A02 ORCC #$2 CA58 3582 DATA_OK PULS A,PC CA5A 3404 L80 PSHS B CA5C 8DE6 NEXT_BIT BSR L71 CA5E 2927 BVS ERROR_EXIT CA60 25FA BCS NEXT_BIT CA62 0F03 CLR MEM_03 CA64 C609 LDB #$9 CA66 8DDC L73 BSR L71 CA68 291D BVS ERROR_EXIT CA6A 2402 BCC L72 CA6C 0C03 INC MEM_03 CA6E 46 L72 RORA CA6F 5A DECB CA70 26F4 BNE L73 CA72 49 ROLA CA73 0403 LSR MEM_03 CA75 250E BCS L74 CA77 8DCB BSR L71 CA79 290C BVS ERROR_EXIT CA7B 2408 BCC L74 CA7D 1F89 TFR A,B CA7F DB68 ADDB L68 CA81 D768 STB L68 CA83 3584 PULS B,PC CA85 1A03 L74 ORCC #$3 CA87 3584 ERROR_EXIT PULS B,PC CA89 3446 L64 PSHS U,B,A CA8B 8DB7 L75 BSR L71 CA8D 25FC BCS L75 CA8F 293B BVS L76 CA91 C609 LDB #$9 CA93 8DAF L77 BSR L71 CA95 25F4 BCS L75 CA97 2933 BVS L76 CA99 5A DECB CA9A 26F7 BNE L77 CA9C 8DA6 L79 BSR L71 CA9E 2804 BVC L78 CAA0 25E9 BCS L75 CAA2 2028 BRA L76 CAA4 24F6 L78 BCC L79 CAA6 CCFFFF LDD #$FFFF CAA9 FD2006 STD RD_NOTE_WR_LED CAAC 0F68 CLR L68 CAAE 8DAA BSR L80 CAB0 291A BVS L76 CAB2 A761 STA $1,S CAB4 CE0BFF LDU #$BFF CAB7 E661 LDB $1,S CAB9 8D9F L81 BSR L80 CABB 290F BVS L76 CABD A7C0 STA ,U+ CABF 5A DECB CAC0 26F7 BNE L81 CAC2 8D96 BSR L80 CAC4 2906 BVS L76 CAC6 9668 LDA L68 CAC8 2702 BEQ L76 CACA 1A03 ORCC #$3 CACC 3401 L76 PSHS CC CACE 4F CLRA CACF 5F CLRB CAD0 FD2006 STD RD_NOTE_WR_LED CAD3 35C7 PULS CC,A,B,U,PC CAD5 7F2004 TPE_LIGHTS_OUT CLR RD_TIME1WR_SEGS CAD8 7F2006 CLR RD_NOTE_WR_LED CADB 7F2007 CLR RD_VEL_WR_LEDS1 CADE 0F69 CLR CASS_MOT_INFO CAE0 1A50 ORCC #$50 'P CAE2 962F LDA WR_MSCO_IMG CAE4 84DF ANDA #$DF CAE6 8A0D ORA #$D CAE8 972F STA WR_MSCO_IMG CAEA B72001 STA RD_MSCI_WR_MSCO CAED 1CAF ANDC #$AF CAEF 108E0600 LDY #$600 CAF3 EC26 CASS_MORE_INST LDD $6,Y CAF5 2705 BEQ GOTO_NXT_INST CAF7 BDD82E JSR INIT_BRD_4_INST CAFA ED26 STD $6,Y CAFC 31A900C0 GOTO_NXT_INST LEAY 192,Y CB00 108C0B40 CMPY #$B40 CB04 23ED BLS CASS_MORE_INST CB06 39 RTS CB07 BDDD31 CANCEL_CASS_OP JSR PNT_PANL CB0A FC1FF2 CASS_MOT_OFF_2 LDD CURR_PROG_NUM CB0D BDDC9D JSR OUTPUT_BIG_PROG CB10 BDD8EE JSR BOARD_ASSIGN CB13 1A50 ORCC #$50 'P CB15 962F LDA WR_MSCO_IMG CB17 84FA ANDA #$FA CB19 8A28 ORA #$28 '( CB1B 972F STA WR_MSCO_IMG CB1D B72001 STA RD_MSCI_WR_MSCO CB20 1CAF ANDC #$AF CB22 39 RTS CB23 3416 FAST_SLOW_SAVE PSHS X,B,A CB25 860C LDA #$C CB27 F62001 LDB RD_MSCI_WR_MSCO CB2A C420 ANDB #$20 CB2C 2702 BEQ MEM_LOCKED CB2E 8D02 BSR LONG_CASS_PAUSE CB30 3596 MEM_LOCKED PULS A,B,X,PC CB32 8E0000 LONG_CASS_PAUSE LDX #$0 CB35 3001 WAIT_FFFF LEAX $1,X CB37 26FC BNE WAIT_FFFF CB39 BDC9E6 JSR CHK_CASS_CMD CB3C 2603 BNE 2ND_CASS_KEY CB3E 4A DECA CB3F 26F1 BNE LONG_CASS_PAUSE CB41 39 2ND_CASS_KEY RTS CB42 A79F1FF4 STA [$1FF4] CB46 8D8D BSR TPE_LIGHTS_OUT CB48 8606 LDA #$6 CB4A B72003 STA RD_TIME_WR_TMOD CB4D 8610 LDA #$10 CB4F 8DE1 BSR LONG_CASS_PAUSE CB51 26B4 BNE CANCEL_CASS_OP CB53 4C INCA CB54 B70BFF STA L67 CB57 8E1400 LDX #$1400 CB5A CE0C00 LDU #$C00 CB5D BDD8C5 JSR CP_PROG_X_2_U CB60 C63C LDB #$3C '< CB62 BDC9B2 JSR B_BYTES_2_TAPE CB65 20A0 BRA CANCEL_CASS_OP CB67 A79F1FF4 STA [$1FF4] CB6B BDCAD5 JSR TPE_LIGHTS_OUT CB6E 8606 LDA #$6 CB70 B72003 STA RD_TIME_WR_TMOD CB73 8610 LDA #$10 CB75 8DBB BSR LONG_CASS_PAUSE CB77 268E BNE CANCEL_CASS_OP CB79 CC0201 LDD #$201 CB7C FD0BFF STD L67 CB7F 5C INCB CB80 BDC9B2 JSR B_BYTES_2_TAPE CB83 2682 BNE CANCEL_CASS_OP CB85 8E143B LDX #$143B CB88 CE0C00 LDU #$C00 CB8B 7A0BFF DEC L67 CB8E CC323C LDD #$323C CB91 8D90 MORE_PROG_TO_GO BSR FAST_SLOW_SAVE CB93 1026FF70 LBNE CANCEL_CASS_OP CB97 BDD8C5 JSR CP_PROG_X_2_U CB9A BDC9B2 JSR B_BYTES_2_TAPE CB9D 1026FF66 LBNE CANCEL_CASS_OP CBA1 30883B LEAX $3B,X CBA4 4A DECA CBA5 26EA BNE MORE_PROG_TO_GO CBA7 BDCB23 JSR FAST_SLOW_SAVE CBAA 1026FF59 LBNE CANCEL_CASS_OP CBAE CC0301 LDD #$301 CBB1 B70BFF STA L67 CBB4 BDC9B2 JSR B_BYTES_2_TAPE CBB7 7ECB07 JMP CANCEL_CASS_OP CBBA A79F1FF4 STA [$1FF4] CBBE BDCAD5 JSR TPE_LIGHTS_OUT CBC1 8603 LDA #$3 CBC3 B72003 STA RD_TIME_WR_TMOD CBC6 8608 LDA #$8 CBC8 BDCB32 JSR LONG_CASS_PAUSE CBCB 1026FF38 LBNE CANCEL_CASS_OP CBCF BDCA89 JSR L64 CBD2 2806 BVC L82 CBD4 1024FF2F LBCC CANCEL_CASS_OP CBD8 2057 BRA L83 CBDA B60BFF L82 LDA L67 CBDD 4A DECA CBDE 2615 BNE C_PROG_DISP CBE0 8E0C00 LDX #$C00 CBE3 CE1400 LDU #$1400 CBE6 BDD8C5 JSR CP_PROG_X_2_U CBE9 BDDC3C JSR PARAM_FIX CBEC BDCCC1 JSR ACT_ON_P0_LNK CBEF BDDC90 JSR PROG_MODIFIED CBF2 7ECB0A JMP CASS_MOT_OFF_2 CBF5 4A C_PROG_DISP DECA CBF6 2614 BNE C_STOP_DISP CBF8 B60C00 LDA L66 CBFB BDDCC3 JSR DISP_PARAM_VAL CBFE CC6705 LDD #$6705 CC01 DD20 STD LED_DIG0 CC03 0F22 CLR LED_DIG2 CC05 CC151D LDD #$151D CC08 DD23 STD LED_DIG3 CC0A 2028 BRA L84 CC0C 4A C_STOP_DISP DECA CC0D 260D BNE C_SUBR_DISP CC0F CC7E47 LDD #$7E47 CC12 DD20 STD LED_DIG0 CC14 D722 STB LED_DIG2 CC16 4F CLRA CC17 5F CLRB CC18 9723 STA LED_DIG3 CC1A 200F BRA CLEAR_LED_4_7 CC1C 4A C_SUBR_DISP DECA CC1D 2612 BNE L83 CC1F CC5B1C LDD #$5B1C CC22 DD20 STD LED_DIG0 CC24 CC1F05 LDD #$1F05 CC27 DD22 STD LED_DIG2 CC29 4F CLRA CC2A 5F CLRB CC2B DD24 CLEAR_LED_4_7 STD LED_DIG4 CC2D DD26 STD LED_DIG6 CC2F 2003 BRA L84 CC31 BDCD09 L83 JSR ERROR_MSG CC34 BDDDCB L84 JSR PAINT_LEDS CC37 7ECB0A JMP CASS_MOT_OFF_2 CC3A A79F1FF4 STA [$1FF4] CC3E 962F LDA WR_MSCO_IMG CC40 8404 ANDA #$4 CC42 2708 BEQ MOTOR_OFF CC44 7A1FF2 DEC CURR_PROG_NUM CC47 2603 BNE MOTOR_OFF CC49 7C1FF2 INC CURR_PROG_NUM CC4C BDCAD5 MOTOR_OFF JSR TPE_LIGHTS_OUT CC4F 8603 LDA #$3 CC51 B72003 STA RD_TIME_WR_TMOD CC54 8608 LDA #$8 CC56 BDCB32 JSR LONG_CASS_PAUSE CC59 1026FEAA LBNE CANCEL_CASS_OP CC5D 8E0C00 LDX #$C00 CC60 BDCA89 LOAD_ALL_LOOP JSR L64 CC63 2804 BVC L85 CC65 2438 BCC STOP_SUB_PKT CC67 204C BRA CASS_BUF_ERR CC69 FC0BFF L85 LDD L67 CC6C 4A DECA CC6D 2714 BEQ SINGLE_PACKET CC6F 4A DECA CC70 2708 BEQ PROG_PACKETS CC72 4A DECA CC73 272A BEQ STOP_SUB_PKT CC75 4A DECA CC76 2727 BEQ STOP_SUB_PKT CC78 203B BRA CASS_BUF_ERR CC7A C132 PROG_PACKETS CMPB #$32 '2 CC7C 2237 BHI CASS_BUF_ERR CC7E F71FF2 STB CURR_PROG_NUM CC81 20DD BRA LOAD_ALL_LOOP CC83 B62001 SINGLE_PACKET LDA RD_MSCI_WR_MSCO CC86 8420 ANDA #$20 CC88 2711 BEQ MEM_LOCK_ON CC8A B61FF2 LDA CURR_PROG_NUM CC8D C63B LDB #$3B '; CC8F 3D MUL CC90 CE1400 LDU #$1400 CC93 33CB LEAU D,U CC95 BDD8C5 JSR CP_PROG_X_2_U CC98 BDDC3C JSR PARAM_FIX CC9B 8D5E MEM_LOCK_ON BSR INC_CUR_PROG CC9D 20C1 BRA LOAD_ALL_LOOP CC9F B61FF2 STOP_SUB_PKT LDA CURR_PROG_NUM CCA2 2704 BEQ CURR_PROG_EQ0 CCA4 8132 CMPA #$32 '2 CCA6 2305 BLS USE_CURR_P_NO CCA8 8601 CURR_PROG_EQ0 LDA #$1 CCAA B71FF2 STA CURR_PROG_NUM CCAD 8D12 USE_CURR_P_NO BSR ACT_ON_P0_LNK CCAF BDDC90 JSR PROG_MODIFIED CCB2 7ECB0A JMP CASS_MOT_OFF_2 CCB5 8D44 CASS_BUF_ERR BSR INC_CUR_PROG CCB7 8D08 BSR ACT_ON_P0_LNK CCB9 8D4E BSR ERROR_MSG CCBB BDDC90 JSR PROG_MODIFIED CCBE 7ECB0A JMP CASS_MOT_OFF_2 CCC1 B61400 ACT_ON_P0_LNK LDA P0_LINK_VALS CCC4 85C0 BITA #$C0 CCC6 2608 BNE P0_HAS_LINK CCC8 CE0000 LDU #$0 CCCB FF06C6 STU L86 CCCE 200D BRA P0_HAS_NO_LNK CCD0 843F P0_HAS_LINK ANDA #$3F '? CCD2 C63B LDB #$3B '; CCD4 3D MUL CCD5 CE1400 LDU #$1400 CCD8 33CB LEAU D,U CCDA FF06C6 STU L86 CCDD 108E0600 P0_HAS_NO_LNK LDY #$600 CCE1 EE26 MORE_INST LDU $6,Y CCE3 2703 BEQ GOTO_NXT_INST CCE5 BDD7FA JSR INVOKE_PROG CCE8 31A900C0 GOTO_NXT_INST LEAY 192,Y CCEC 108C0B40 CMPY #$B40 CCF0 23EF BLS MORE_INST CCF2 BDE6E1 JSR PARAM_EDIT CCF5 BDE63F JSR SETUP_INST01_VOL CCF8 7ECB0A JMP CASS_MOT_OFF_2 CCFB B61FF2 INC_CUR_PROG LDA CURR_PROG_NUM CCFE 4C INCA CCFF 8132 CMPA #$32 '2 CD01 2302 BLS CURPROG_LT_50 CD03 8601 LDA #$1 CD05 B71FF2 CURPROG_LT_50 STA CURR_PROG_NUM CD08 39 RTS CD09 CC4F05 ERROR_MSG LDD #$4F05 CD0C DD20 STD LED_DIG0 CD0E CC051D LDD #$51D CD11 DD22 STD LED_DIG2 CD13 5F CLRB CD14 DD24 STD LED_DIG4 CD16 4F CLRA CD17 DD26 STD LED_DIG6 CD19 B70BFF STA L67 CD1C 39 RTS CD1D BDCAD5 JSR TPE_LIGHTS_OUT CD20 8606 LDA #$6 CD22 B72003 STA RD_TIME_WR_TMOD CD25 8610 LDA #$10 CD27 BDCB32 JSR LONG_CASS_PAUSE CD2A 1026FDD9 LBNE CANCEL_CASS_OP CD2E C630 LDB #$30 '0 CD30 8E1FC1 LDX #$1FC1 CD33 CE0C00 LDU #$C00 CD36 A680 LOOP_48 LDA ,X+ CD38 A7C0 STA ,U+ CD3A 5A DECB CD3B 26F9 BNE LOOP_48 CD3D CC0431 LDD #$431 CD40 B70BFF STA L67 CD43 BDC9B2 JSR B_BYTES_2_TAPE CD46 7ECB07 JMP CANCEL_CASS_OP CD49 D758 GET_A_FRM_BUF STB CI_OPCODE_NEW CD4B D643 LDB C_IN_BUF_HEAD2 CD4D 8610 LDA #$10 CD4F 4A CI_BUF_EMPTY DECA CD50 2720 BEQ LOADED_16_BYTES CD52 D141 CMPB C_IN_BUF_TAIL2 CD54 27F9 BEQ CI_BUF_EMPTY CD56 A69F0042 LDA [$42] CD5A 5C INCB CD5B C43F ANDB #$3F '? CD5D D743 STB C_IN_BUF_HEAD2 CD5F 1A50 ORCC #$50 'P CD61 D62F LDB WR_MSCO_IMG CD63 2B07 BMI XI_MASK_EQ_1 CD65 CA80 ORB #$80 CD67 D72F STB WR_MSCO_IMG CD69 F72001 STB RD_MSCI_WR_MSCO CD6C 1CAF XI_MASK_EQ_1 ANDC #$AF CD6E D658 LDB CI_OPCODE_NEW CD70 4D TSTA CD71 39 RTS CD72 DF52 LOADED_16_BYTES STU L87 CD74 9F54 STX CI_HNDLR_A1 CD76 109F56 STY L88 CD79 3506 PULS A,B CD7B DD50 STD CI_HNDLR_B1 CD7D 7ED607 JMP CHK_NOTE_BUF CD80 8DC7 BSR GET_A_FRM_BUF CD82 1F89 TFR A,B CD84 8DC3 BSR GET_A_FRM_BUF CD86 1E89 EXG A,B CD88 6E84 JMP 0,X CD8A 0D0F C_INF_OUT TST C_INTF_ECHO CD8C 2701 BEQ PRNT_C_INF_1_BYTE CD8E 39 RTS CD8F 3406 PRNT_C_INF_1_BYTE PSHS B,A CD91 D62F LDB WR_MSCO_IMG CD93 58 ASLB CD94 2B12 BMI C_FIFO_NOT_EMPTY CD96 8610 LDA #$10 CD98 C640 LDB #$40 '@ CD9A 4A WAIT_XO_FULL_CLR DECA CD9B 270B BEQ C_FIFO_NOT_EMPTY CD9D F52001 BITB RD_MSCI_WR_MSCO CDA0 27F8 BEQ WAIT_XO_FULL_CLR CDA2 3506 PULS A,B CDA4 B72002 STA RD_EXTI_WR_EXTO CDA7 39 RTS CDA8 D645 C_FIFO_NOT_EMPTY LDB C_OUT_BUF_TAIL2 CDAA 5C INCB CDAB CAC0 ORB #$C0 CDAD 4F CLRA CDAE D147 IS_EMPTY_DELAY CMPB C_OUT_BUF_HEAD2 CDB0 262B BNE C_BUF_NOT_EMPTY CDB2 4A DECA CDB3 26F9 BNE IS_EMPTY_DELAY CDB5 1A10 ORCC #$10 CDB7 0F09 CLR C_INTF_PANL CDB9 0F0A CLR C_INTF_PERF CDBB 0C0F INC C_INTF_ECHO CDBD 962F LDA WR_MSCO_IMG CDBF 84BF ANDA #$BF CDC1 972F STA WR_MSCO_IMG CDC3 B72001 STA RD_MSCI_WR_MSCO CDC6 CC01C0 LDD #$1C0 CDC9 DD44 STD C_OUT_BUF_TAIL1 CDCB DD46 STD C_OUT_BUF_HEAD1 CDCD CC0100 LDD #$100 CDD0 DD40 STD C_IN_BUF_TAIL1 CDD2 DD42 STD C_IN_BUF_HEAD1 CDD4 CCCDFF LDD #$CDFF CDD7 DD50 STD CI_HNDLR_B1 CDD9 1CEF ANDC #$EF CDDB 3586 PULS A,B,PC CDDD 3502 C_BUF_NOT_EMPTY PULS A CDDF A79F0044 STA [$44] CDE3 D745 STB C_OUT_BUF_TAIL2 CDE5 1A10 ORCC #$10 CDE7 D62F LDB WR_MSCO_IMG CDE9 CA40 ORB #$40 '@ CDEB D72F STB WR_MSCO_IMG CDED F72001 STB RD_MSCI_WR_MSCO CDF0 1CEF ANDC #$EF CDF2 3584 PULS B,PC CDF4 A6C0 PRNT_C_INF_N_BYTE LDA ,U+ CDF6 8D92 BSR C_INF_OUT CDF8 5A DECB CDF9 26F9 BNE PRNT_C_INF_N_BYTE CDFB 39 RTS CDFC BDCD49 PROCES_CHROMA_DAT JSR GET_A_FRM_BUF CDFF 8118 CMPA #$18 CE01 251C BCS OPCODE_LT_18 CE03 9759 STA CI_OPCODE_CUR CE05 D659 LDB CI_OPCODE_CUR CE07 C018 SUBB #$18 CE09 54 LSRB CE0A 54 LSRB CE0B C43E ANDB #$3E '> CE0D 8ECE55 LDX #$CE55 CE10 3085 LEAX B,X CE12 8407 ANDA #$7 CE14 C6C0 LDB #$C0 CE16 3D MUL CE17 108E0600 LDY #$600 CE1B 31AB LEAY D,Y CE1D 6E94 JMP [0,X] CE1F 48 OPCODE_LT_18 ASLA CE20 8ECE25 LDX #$CE25 CE23 6E96 JMP [A,X] CE25 CDFC C_PORT_00_VEC FDB $CDFC CE27 CE8F C_PORT_01_VEC FDB $CE8F CE29 CEA1 C_PORT_02_VEC FDB $CEA1 CE2B CEBE C_PORT_03_VEC FDB $CEBE CE2D C905 C_PORT_04_VEC FDB $C905 CE2F C8CE C_PORT_05_VEC FDB $C8CE CE31 CF05 C_PORT_06_VEC FDB $CF05 CE33 CF31 C_PORT_07_VEC FDB $CF31 CE35 CF55 C_PORT_08_VEC FDB $CF55 CE37 CF5B C_PORT_09_VEC FDB $CF5B CE39 CF63 C_PORT_0A_VEC FDB $CF63 CE3B CF69 C_PORT_0B_VEC FDB $CF69 CE3D CF71 C_PORT_0C_VEC FDB $CF71 CE3F CF8D C_PORT_0D_VEC FDB $CF8D CE41 CFA6 C_PORT_0E_VEC FDB $CFA6 CE43 CFC4 C_PORT_0F_VEC FDB $CFC4 CE45 CFDC C_PORT_10_VEC FDB $CFDC CE47 CFE3 C_PORT_11_VEC FDB $CFE3 CE49 C8B2 C_PORT_12_VEC FDB $C8B2 CE4B CFF5 C_PORT_13_VEC FDB $CFF5 CE4D CDFC C_PORT_14_VEC FDB $CDFC CE4F CDFC C_PORT_15_VEC FDB $CDFC CE51 CDFC C_PORT_16_VEC FDB $CDFC CE53 CDFC C_PORT_17_VEC FDB $CDFC CE55 CDFC C_PORT_18_VEC FDB $CDFC CE57 CDFC C_PORT_20_VEC FDB $CDFC CE59 CDFC C_PORT_28_VEC FDB $CDFC CE5B CDFC C_PORT_30_VEC FDB $CDFC CE5D CDFC C_PORT_38_VEC FDB $CDFC CE5F CDFC C_PORT_40_VEC FDB $CDFC CE61 CDFC C_PORT_48_VEC FDB $CDFC CE63 CDFC C_PORT_50_VEC FDB $CDFC CE65 CDFC C_PORT_58_VEC FDB $CDFC CE67 CDFC C_PORT_60_VEC FDB $CDFC CE69 CDFC C_PORT_68_VEC FDB $CDFC CE6B D04C C_PORT_70_VEC FDB $D04C CE6D D066 C_PORT_78_VEC FDB $D066 CE6F D06F C_PORT_80_VEC FDB $D06F CE71 D07B C_PORT_88_VEC FDB $D07B CE73 D087 C_PORT_90_VEC FDB $D087 CE75 D093 C_PORT_98_VEC FDB $D093 CE77 D09F C_PORT_A0_VEC FDB $D09F CE79 D0AB C_PORT_A8_VEC FDB $D0AB CE7B D0B7 C_PORT_B0_VEC FDB $D0B7 CE7D D0C3 C_PORT_B8_VEC FDB $D0C3 CE7F D0DE C_PORT_C0_VEC FDB $D0DE CE81 D0CF C_PORT_C8_VEC FDB $D0CF CE83 D132 C_PORT_D0_VEC FDB $D132 CE85 D157 C_PORT_D8_VEC FDB $D157 CE87 D173 C_PORT_E0_VEC FDB $D173 CE89 D1B6 C_PORT_E8_VEC FDB $D1B6 CE8B D1FD C_PORT_F0_VEC FDB $D1FD CE8D CDFC C_PORT_F8_VEC FDB $CDFC CE8F 8601 LDA #$1 CE91 BDCD8A JSR C_INF_OUT CE94 8601 LDA #$1 CE96 BDCD8A JSR C_INF_OUT CE99 8602 LDA #$2 CE9B BDCD8A JSR C_INF_OUT CE9E 7ECDFC JMP PROCES_CHROMA_DAT CEA1 BDCD49 JSR GET_A_FRM_BUF CEA4 8132 CMPA #$32 '2 CEA6 2301 BLS READ_PRG_NO_OK CEA8 4F CLRA CEA9 C63B READ_PRG_NO_OK LDB #$3B '; CEAB 3D MUL CEAC CE1400 LDU #$1400 CEAF 33CB LEAU D,U CEB1 8602 LDA #$2 CEB3 BDCD8A JSR C_INF_OUT CEB6 C63B LDB #$3B '; CEB8 BDCDF4 JSR PRNT_C_INF_N_BYTE CEBB 7ECDFC JMP PROCES_CHROMA_DAT CEBE BDCD49 JSR GET_A_FRM_BUF CEC1 8132 CMPA #$32 '2 CEC3 230B BLS READ_PRG_NO_OK CEC5 C63B LDB #$3B '; CEC7 BDCD49 STRIP_DAT_LOOP JSR GET_A_FRM_BUF CECA 5A DECB CECB 26FA BNE STRIP_DAT_LOOP CECD 7ECDFC JMP PROCES_CHROMA_DAT CED0 C63B READ_PRG_NO_OK LDB #$3B '; CED2 3D MUL CED3 CE1400 LDU #$1400 CED6 33CB LEAU D,U CED8 C63B LDB #$3B '; CEDA BDCD49 WRTE_MORE_DATA JSR GET_A_FRM_BUF CEDD A7C0 STA ,U+ CEDF 5A DECB CEE0 26F8 BNE WRTE_MORE_DATA CEE2 33C8C5 LEAU -59,U CEE5 BDDC3C JSR PARAM_FIX CEE8 BDF599 JSR MKE_PROG_CHNGE CEEB BDD8EE JSR BOARD_ASSIGN CEEE 11831400 CMPU #$1400 CEF2 1026FF06 LBNE PROCES_CHROMA_DAT CEF6 B6141E LDA P0_PANEL_EDIT CEF9 BDE6E1 JSR PARAM_EDIT CEFC BDE63F JSR SETUP_INST01_VOL CEFF BDDC90 JSR PROG_MODIFIED CF02 7ECDFC JMP PROCES_CHROMA_DAT CF05 8ECD80 LDX #$CD80 CF08 1E15 EXG X,PC CF0A C164 CMPB #$64 'd CF0C 230C BLS READ_DATA_OK CF0E 8606 LDA #$6 CF10 BDCD8A JSR C_INF_OUT CF13 4F CLRA CF14 BDCD8A JSR C_INF_OUT CF17 7ECDFC JMP PROCES_CHROMA_DAT CF1A D758 READ_DATA_OK STB CI_OPCODE_NEW CF1C C63B LDB #$3B '; CF1E 3D MUL CF1F CE1400 LDU #$1400 CF22 33CB LEAU D,U CF24 D658 LDB CI_OPCODE_NEW CF26 8606 LDA #$6 CF28 BDCD8A JSR C_INF_OUT CF2B BDDB02 JSR CHK_PARAM_DATA CF2E 7ECFA0 JMP ALT_C_INT_OUT CF31 8ECD80 LDX #$CD80 CF34 1E15 EXG X,PC CF36 C164 CMPB #$64 'd CF38 2306 BLS L89 CF3A BDCD49 JSR GET_A_FRM_BUF CF3D 7ECDFC JMP PROCES_CHROMA_DAT CF40 D758 L89 STB CI_OPCODE_NEW CF42 C63B LDB #$3B '; CF44 3D MUL CF45 CE1400 LDU #$1400 CF48 33CB LEAU D,U CF4A D658 LDB CI_OPCODE_NEW CF4C BDCD49 JSR GET_A_FRM_BUF CF4F BDDB47 JSR VALDTE_PARAM_2 CF52 7ECDFC JMP PROCES_CHROMA_DAT CF55 0F09 CLR C_INTF_PANL CF57 8608 LDA #$8 CF59 2045 BRA ALT_C_INT_OUT CF5B 8601 LDA #$1 CF5D 9709 STA C_INTF_PANL CF5F 8609 LDA #$9 CF61 203D BRA ALT_C_INT_OUT CF63 0F0A CLR C_INTF_PERF CF65 860A LDA #$A CF67 2037 BRA ALT_C_INT_OUT CF69 8601 LDA #$1 CF6B 970A STA C_INTF_PERF CF6D 860B LDA #$B CF6F 202F BRA ALT_C_INT_OUT CF71 8ECD80 LDX #$CD80 CF74 1E15 EXG X,PC CF76 1F03 TFR D,U CF78 BDCD49 JSR GET_A_FRM_BUF CF7B 1F89 TFR A,B CF7D 860C LDA #$C CF7F BDCD8A JSR C_INF_OUT CF82 1F98 TFR B,A CF84 BDCD8A JSR C_INF_OUT CF87 BDCDF4 JSR PRNT_C_INF_N_BYTE CF8A 7ECDFC JMP PROCES_CHROMA_DAT CF8D 8ECD80 LDX #$CD80 CF90 1E15 EXG X,PC CF92 1F03 TFR D,U CF94 860D LDA #$D CF96 BDCD8A JSR C_INF_OUT CF99 ECC4 LDD 0,U CF9B BDCD8A JSR C_INF_OUT CF9E 1F98 TFR B,A CFA0 BDCD8A ALT_C_INT_OUT JSR C_INF_OUT CFA3 7ECDFC JMP PROCES_CHROMA_DAT CFA6 8ECD80 LDX #$CD80 CFA9 1E15 EXG X,PC CFAB 1F03 TFR D,U CFAD 0D0E TST UNLCK_STATE CFAF 2603 BNE POKES_ALLOWED CFB1 CEFF00 LDU #$FF00 CFB4 BDCD49 POKES_ALLOWED JSR GET_A_FRM_BUF CFB7 1F89 TFR A,B CFB9 BDCD49 MORE_B_TO_POKE JSR GET_A_FRM_BUF CFBC A7C0 STA ,U+ CFBE 5A DECB CFBF 26F8 BNE MORE_B_TO_POKE CFC1 7ECDFC JMP PROCES_CHROMA_DAT CFC4 8ECD80 LDX #$CD80 CFC7 1E15 EXG X,PC CFC9 1F03 TFR D,U CFCB 0D0E TST UNLCK_STATE CFCD 2603 BNE POKE2_ALLOWED CFCF CEFFF0 LDU #$FFF0 CFD2 8ECD80 POKE2_ALLOWED LDX #$CD80 CFD5 1E15 EXG X,PC CFD7 EDC4 STD 0,U CFD9 7ECDFC JMP PROCES_CHROMA_DAT CFDC A79F1FF4 STA [$1FF4] CFE0 7ECDFC JMP PROCES_CHROMA_DAT CFE3 8ECD80 LDX #$CD80 CFE6 1E15 EXG X,PC CFE8 108300FF CMPD #$FF CFEC 1026FE0C LBNE PROCES_CHROMA_DAT CFF0 0C0E INC UNLCK_STATE CFF2 7ECDFC JMP PROCES_CHROMA_DAT CFF5 108E0600 LDY #$600 CFF9 BDD82E O13_INIT_NXTBRD JSR INIT_BRD_4_INST CFFC 31A900C0 LEAY 192,Y D000 108C0B40 CMPY #$B40 D004 23F3 BLS O13_INIT_NXTBRD D006 0F09 CLR C_INTF_PANL D008 0F0A CLR C_INTF_PERF D00A 8608 LDA #$8 D00C BDCD8A JSR C_INF_OUT D00F 860A LDA #$A D011 BDCD8A JSR C_INF_OUT D014 CE1400 LDU #$1400 D017 108E0600 LDY #$600 D01B EF26 STU $6,Y D01D BDD7FA JSR INVOKE_PROG D020 BDD866 JSR FINISH_PROG_DEF D023 B61400 LDA P0_LINK_VALS D026 85C0 BITA #$C0 D028 2713 BEQ 013_NO_LINK D02A 843F ANDA #$3F '? D02C C63B LDB #$3B '; D02E 3D MUL D02F 33CB LEAU D,U D031 31A900C0 LEAY 192,Y D035 EF26 STU $6,Y D037 BDD7FA JSR INVOKE_PROG D03A BDD866 JSR FINISH_PROG_DEF D03D BDD8EE 013_NO_LINK JSR BOARD_ASSIGN D040 FC1FF2 LDD CURR_PROG_NUM D043 BDDC9D JSR OUTPUT_BIG_PROG D046 BDE6E1 JSR PARAM_EDIT D049 7ECDFC JMP PROCES_CHROMA_DAT D04C 9659 LDA CI_OPCODE_CUR D04E BDCD8A JSR C_INF_OUT D051 AE24 LDX $4,Y D053 BDD8DB JSR COUNT_BRD_ASGN D056 BDCD8A JSR C_INF_OUT D059 4F CLRA D05A BDCD8A JSR C_INF_OUT D05D BDCD8A JSR C_INF_OUT D060 BDCD8A JSR C_INF_OUT D063 7ECDFC JMP PROCES_CHROMA_DAT D066 BDCD49 JSR GET_A_FRM_BUF D069 BDD8AC JSR SET_LNK_BAL D06C 7ECDFC JMP PROCES_CHROMA_DAT D06F BDCD49 JSR GET_A_FRM_BUF D072 A7A808 STA $8,Y D075 BDDAA0 JSR UPD_LEV1_IN_CHAN D078 7ECDFC JMP PROCES_CHROMA_DAT D07B BDCD49 JSR GET_A_FRM_BUF D07E A7A809 STA $9,Y D081 BDDAB1 JSR UPD_LEV2_IN_CHAN D084 7ECDFC JMP PROCES_CHROMA_DAT D087 BDCD49 JSR GET_A_FRM_BUF D08A A7A868 STA $68,Y D08D BDDAD7 JSR UPD_PED1_VAL D090 7ECDFC JMP PROCES_CHROMA_DAT D093 BDCD49 JSR GET_A_FRM_BUF D096 A7A869 STA $69,Y D099 BDDAE8 JSR UPD_PED2_VAL D09C 7ECDFC JMP PROCES_CHROMA_DAT D09F EE26 LDU $6,Y D0A1 1027FD57 LBEQ PROCES_CHROMA_DAT D0A5 ADB80E JSR [$E,Y] D0A8 7ECDFC JMP PROCES_CHROMA_DAT D0AB EE26 LDU $6,Y D0AD 1027FD4B LBEQ PROCES_CHROMA_DAT D0B1 ADB86E JSR [$6E,Y] D0B4 7ECDFC JMP PROCES_CHROMA_DAT D0B7 EE26 LDU $6,Y D0B9 1027FD3F LBEQ PROCES_CHROMA_DAT D0BD ADB810 JSR [$10,Y] D0C0 7ECDFC JMP PROCES_CHROMA_DAT D0C3 EE26 LDU $6,Y D0C5 1027FD33 LBEQ PROCES_CHROMA_DAT D0C9 ADB870 JSR [$70,Y] D0CC 7ECDFC JMP PROCES_CHROMA_DAT D0CF EE26 LDU $6,Y D0D1 1027FD27 LBEQ PROCES_CHROMA_DAT D0D5 BDD82E JSR INIT_BRD_4_INST D0D8 BDD8EE JSR BOARD_ASSIGN D0DB 7ECDFC JMP PROCES_CHROMA_DAT D0DE BDCD49 JSR GET_A_FRM_BUF D0E1 8132 CMPA #$32 '2 D0E3 230B BLS DEFINE_PROG_OK D0E5 C606 LD_DEF_BYTES LDB #$6 D0E7 BDCD49 JSR GET_A_FRM_BUF D0EA 5A DECB D0EB 26F8 BNE LD_DEF_BYTES D0ED 7ECDFC JMP PROCES_CHROMA_DAT D0F0 C63B DEFINE_PROG_OK LDB #$3B '; D0F2 3D MUL D0F3 CE1400 LDU #$1400 D0F6 33CB LEAU D,U D0F8 EC26 LDD $6,Y D0FA 2703 BEQ NEW_INST D0FC BDD82E JSR INIT_BRD_4_INST D0FF EF26 NEW_INST STU $6,Y D101 BDCD49 JSR GET_A_FRM_BUF D104 A7A808 STA $8,Y D107 BDCD49 JSR GET_A_FRM_BUF D10A A7A809 STA $9,Y D10D BDCD49 JSR GET_A_FRM_BUF D110 A7A868 STA $68,Y D113 BDCD49 JSR GET_A_FRM_BUF D116 A7A869 STA $69,Y D119 BDCD49 JSR GET_A_FRM_BUF D11C 1F89 TFR A,B D11E BDCD49 JSR GET_A_FRM_BUF D121 A7A865 STA $65,Y D124 BDD7FA JSR INVOKE_PROG D127 1F98 TFR B,A D129 BDD8AC JSR SET_LNK_BAL D12C BDD8EE JSR BOARD_ASSIGN D12F 7ECDFC JMP PROCES_CHROMA_DAT D132 BDCD49 JSR GET_A_FRM_BUF D135 48 ASLA D136 47 ASRA D137 1F89 TFR A,B D139 BDCD49 JSR GET_A_FRM_BUF D13C 841F ANDA #$1F D13E 1F03 TFR D,U D140 BDCD49 JSR GET_A_FRM_BUF D143 975F STA PLAYED_PRES D145 1F30 TFR U,D D147 975E STA PLAYED_VEL D149 D75C STB CORR_NOTE D14B EE26 LDU $6,Y D14D 1027FCAB LBEQ PROCES_CHROMA_DAT D151 ADB80C JSR [$C,Y] D154 7ECDFC JMP PROCES_CHROMA_DAT D157 BDCD49 JSR GET_A_FRM_BUF D15A 48 ASLA D15B 47 ASRA D15C 1F89 TFR A,B D15E BDCD49 JSR GET_A_FRM_BUF D161 841F ANDA #$1F D163 975E STA PLAYED_VEL D165 D75C STB CORR_NOTE D167 EE26 LDU $6,Y D169 1027FC8F LBEQ PROCES_CHROMA_DAT D16D ADB86C JSR [$6C,Y] D170 7ECDFC JMP PROCES_CHROMA_DAT D173 BDCD49 JSR GET_A_FRM_BUF D176 2710 BEQ OP_E0_NOP D178 EE26 LDU $6,Y D17A 270C BEQ OP_E0_NOP D17C 8132 CMPA #$32 '2 D17E 2313 BLS E0_PARM_VAL_OK D180 8137 CMPA #$37 '7 D182 2304 BLS OP_E0_NOP D184 8164 CMPA #$64 'd D186 2306 BLS B_PARAM_OK D188 BDCD49 OP_E0_NOP JSR GET_A_FRM_BUF D18B 7ECDFC JMP PROCES_CHROMA_DAT D18E 8032 B_PARAM_OK SUBA #$32 '2 D190 31A860 LEAY $60,Y D193 1F89 E0_PARM_VAL_OK TFR A,B D195 58 ASLB D196 58 ASLB D197 4F CLRA D198 8EE220 LDX #$E220 D19B 308B LEAX D,X D19D BDCD49 JSR GET_A_FRM_BUF D1A0 E603 LDB $3,X D1A2 C508 BITB #$8 D1A4 2704 BEQ NORM_PARAM D1A6 48 ASLA D1A7 47 ASRA D1A8 2007 BRA BIG_PARAM_VAL D1AA C407 NORM_PARAM ANDB #$7 D1AC CEF985 LDU #$F985 D1AF A4C5 ANDA B,U D1B1 AD94 BIG_PARAM_VAL JSR [0,X] D1B3 7ECDFC JMP PROCES_CHROMA_DAT D1B6 C6FF LDB #$FF D1B8 EE26 LDU $6,Y D1BA 11831400 NOT_AT_P0_YET CMPU #$1400 D1BE 2506 BCS NOW_AT_P0 D1C0 5C INCB D1C1 33C8C5 LEAU -59,U D1C4 20F4 BRA NOT_AT_P0_YET D1C6 5D NOW_AT_P0 TSTB D1C7 2603 BNE NO_STRT_AT_P0 D1C9 F61FF2 LDB CURR_PROG_NUM D1CC 9659 NO_STRT_AT_P0 LDA CI_OPCODE_CUR D1CE BDCD8A JSR C_INF_OUT D1D1 1F98 TFR B,A D1D3 BDCD8A JSR C_INF_OUT D1D6 A6A808 LDA $8,Y D1D9 BDCD8A JSR C_INF_OUT D1DC A6A809 LDA $9,Y D1DF BDCD8A JSR C_INF_OUT D1E2 A6A868 LDA $68,Y D1E5 BDCD8A JSR C_INF_OUT D1E8 A6A869 LDA $69,Y D1EB BDCD8A JSR C_INF_OUT D1EE A6A818 LDA $18,Y D1F1 BDCD8A JSR C_INF_OUT D1F4 A6A865 LDA $65,Y D1F7 BDCD8A JSR C_INF_OUT D1FA 7ECDFC JMP PROCES_CHROMA_DAT D1FD E6A863 LDB $63,Y D200 8E0000 LDX #$0 D203 BDCD49 JSR GET_A_FRM_BUF D206 48 ASLA D207 2818 BVC SQLCH_NOTE_OK D209 10AEA4 16_CH_SQUELCH LDY 0,Y D20C 1027FBEC LBEQ PROCES_CHROMA_DAT D210 AFA828 STX $28,Y D213 AFA830 STX $30,Y D216 5D TSTB D217 26F0 BNE 16_CH_SQUELCH D219 AFA868 STX $68,Y D21C AFA870 STX $70,Y D21F 20E8 BRA 16_CH_SQUELCH D221 47 SQLCH_NOTE_OK ASRA D222 10AEA4 SQLCH_NXT_CHN LDY 0,Y D225 1027FBD3 LBEQ PROCES_CHROMA_DAT D229 A128 CMPA $8,Y D22B 26F5 BNE SQLCH_NXT_CHN D22D AFA828 STX $28,Y D230 AFA830 STX $30,Y D233 5D TSTB D234 26EC BNE SQLCH_NXT_CHN D236 AFA868 STX $68,Y D239 AFA870 STX $70,Y D23C 20E4 BRA SQLCH_NXT_CHN D23E 9606 TUNE_AND_MORE LDA RDAC_OFFSET D240 4C INCA D241 8110 CMPA #$10 D243 2516 BCS VALID_ROW_SCAN D245 9608 LDA C_INTF_PRES D247 8B40 ADDA #$40 '@ D249 9708 STA C_INTF_PRES D24B 2409 BCC L90 D24D 962A LDA LED_IMAGE1 D24F 982C EORA LED_BLINK D251 972A STA LED_IMAGE1 D253 B72006 STA RD_NOTE_WR_LED D256 AD9F006A L90 JSR [$6A] D25A 4F CLRA D25B 9706 VALID_ROW_SCAN STA RDAC_OFFSET D25D 800A SUBA #$A D25F B72000 STA RD_ADCI_WR_ADCO D262 B72000 STA RD_ADCI_WR_ADCO D265 AD9F006C JSR [$6C] D269 9607 LDA RESET_VAL D26B 4C INCA D26C 843C ANDA #$3C '< D26E 44 LSRA D26F 8EF84A LDX #$F84A D272 AE86 LDX A,X D274 8602 LDA #$2 D276 B72003 STA RD_TIME_WR_TMOD D279 B72003 STA RD_TIME_WR_TMOD D27C 10AE02 LDY $2,X D27F 270E BEQ NO_DEFND_INST D281 BDDA7D JSR SET_RAM006X D284 BDE965 JSR L91 D287 ADB816 JSR [$16,Y] D28A BDE76D JSR CALC_PRESS D28D 2035 BRA L92 D28F D607 NO_DEFND_INST LDB RESET_VAL D291 CE0FFF LDU #$FFF D294 8D13 BSR L93 D296 CE0800 LDU #$800 D299 8D0E BSR L93 D29B CE0FFF LDU #$FFF D29E 8D09 BSR L93 D2A0 CE0000 LDU #$0 D2A3 8D04 BSR L93 D2A5 D707 STB RESET_VAL D2A7 201B BRA L92 D2A9 CAC0 L93 ORB #$C0 D2AB F7200B STB WR_SHA D2AE FF200C STU WR_MDAC D2B1 5C INCB D2B2 CAC0 ORB #$C0 D2B4 F7200B STB WR_SHA D2B7 C43F ANDB #$3F '? D2B9 86FF LDA #$FF D2BB FD200A STD WR_RDAC D2BE 8628 LDA #$28 '( D2C0 4A L94 DECA D2C1 26FD BNE L94 D2C3 39 RTS D2C4 8608 L92 LDA #$8 D2C6 B52001 L95 BITA RD_MSCI_WR_MSCO D2C9 26FB BNE L95 D2CB B62001 LDA RD_MSCI_WR_MSCO D2CE B41FF1 ANDA CASS_TYPE D2D1 43 COMA D2D2 9A2F ORA WR_MSCO_IMG D2D4 8404 ANDA #$4 D2D6 260D BNE L96 D2D8 1A10 ORCC #$10 D2DA 962F LDA WR_MSCO_IMG D2DC 8A04 ORA #$4 D2DE 972F STA WR_MSCO_IMG D2E0 B72001 STA RD_MSCI_WR_MSCO D2E3 1CEF ANDC #$EF D2E5 9606 L96 LDA RDAC_OFFSET D2E7 810A CMPA #$A D2E9 2502 BCS L97 D2EB 8409 ANDA #$9 D2ED CE0020 L97 LDU #$20 D2F0 7F2004 CLR RD_TIME1WR_SEGS D2F3 B72005 STA RD_SWB_WR_SDS D2F6 F62005 LDB RD_SWB_WR_SDS D2F9 A6C6 LDA A,U D2FB B72004 STA RD_TIME1WR_SEGS D2FE 9606 LDA RDAC_OFFSET D300 810A CMPA #$A D302 2468 BCC SLIDE_MVMT D304 0D37 TST L98 D306 2705 BEQ L99 D308 0A37 DEC L98 D30A 7ED552 JMP SAME_KEY_PRSS D30D CE0010 L99 LDU #$10 D310 33C6 LEAU A,U D312 1F98 TFR B,A D314 43 COMA D315 A4C4 ANDA 0,U D317 E7C4 STB 0,U D319 4D TSTA D31A 10270234 LBEQ SAME_KEY_PRSS D31E 5F CLRB D31F 44 SHIFT_BIT LSRA D320 2503 BCS NEW_KEY_PRESS D322 5C INCB D323 20FA BRA SHIFT_BIT D325 C105 NEW_KEY_PRESS CMPB #$5 D327 2522 BCS PUSHED_1_50 D329 3406 PSHS B,A D32B 9606 LDA RDAC_OFFSET D32D 8107 CMPA #$7 D32F 240D BCC GET_NXT_ROW_2 D331 48 ASLA D332 9B06 ADDA RDAC_OFFSET D334 AB61 ADDA $1,S D336 8005 SUBA #$5 D338 48 ASLA D339 8EF174 LDX #$F174 D33C AD96 JSR [A,X] D33E 860E GET_NXT_ROW_2 LDA #$E D340 9737 STA L98 D342 3506 PULS A,B D344 5C INCB D345 4D TSTA D346 26D7 BNE SHIFT_BIT D348 7ED552 JMP SAME_KEY_PRSS D34B 3406 PUSHED_1_50 PSHS B,A D34D 9606 LDA RDAC_OFFSET D34F 48 ASLA D350 48 ASLA D351 9B06 ADDA RDAC_OFFSET D353 4C INCA D354 AB61 ADDA $1,S D356 F61FF7 LDB PNL_KEY_CODE D359 260A BNE PNL_CODE_W_NO D35B 8EF1B2 LDX #$F1B2 D35E F61FF6 LDB COPY_MODE D361 AD95 JSR [B,X] D363 20D9 BRA GET_NXT_ROW_2 D365 8EF1B8 PNL_CODE_W_NO LDX #$F1B8 D368 AD95 JSR [B,X] D36A 20D2 BRA GET_NXT_ROW_2 D36C F62008 SLIDE_MVMT LDB RD_EOC_WR_SYND D36F 102A01DF LBPL SAME_KEY_PRSS D373 F62000 LDB RD_ADCI_WR_ADCO D376 800A SUBA #$A D378 8103 CMPA #$3 D37A 2613 BNE NOT_MAIN_S D37C D700 STB MEM_00 D37E C002 SUBB #$2 D380 2403 BCC M_SLIDE_HI D382 5F CLRB D383 2006 BRA M_NULL_DONE D385 C1FB M_SLIDE_HI CMPB #$FB D387 2302 BLS M_NULL_DONE D389 C6FB LDB #$FB D38B D72D M_NULL_DONE STB CONV_MAIN_POT D38D D600 LDB MEM_00 D38F 8E001A NOT_MAIN_S LDX #$1A D392 E186 CMPB A,X D394 250C BCS RAW_LT_STORED D396 C004 SUBB #$4 D398 102501B6 LBCS SAME_KEY_PRSS D39C E186 CMPB A,X D39E 102301B0 LBLS SAME_KEY_PRSS D3A2 E786 RAW_LT_STORED STB A,X D3A4 48 ASLA D3A5 8ED3AA LDX #$D3AA D3A8 6E96 JMP [A,X] D3AA D461 SLIDE_V_01 FDB $D461 D3AC D496 SLIDE_V_02 FDB $D496 D3AE D4CD SLIDE_V_03 FDB $D4CD D3B0 D4D5 SLIDE_V_04 FDB $D4D5 D3B2 D3B6 SLIDE_V_05 FDB $D3B6 D3B4 D3E8 SLIDE_V_06 FDB $D3E8 D3B6 8D62 BSR L100 D3B8 9132 CMPA CONV_PEDAL1 D3BA 10270194 LBEQ SAME_KEY_PRSS D3BE 9732 STA CONV_PEDAL1 D3C0 108E0600 LDY #$600 D3C4 A7A868 STA $68,Y D3C7 BDDAD7 JSR UPD_PED1_VAL D3CA C690 LDB #$90 D3CC 8D5D BSR C_OUT_MVMT_VAL D3CE F61400 LDB P0_LINK_VALS D3D1 C4C0 ANDB #$C0 D3D3 1027017B LBEQ SAME_KEY_PRSS D3D7 108E06C0 LDY #$6C0 D3DB A7A868 STA $68,Y D3DE BDDAD7 JSR UPD_PED1_VAL D3E1 C690 LDB #$90 D3E3 8D46 BSR C_OUT_MVMT_VAL D3E5 7ED552 JMP SAME_KEY_PRSS D3E8 8D30 BSR L100 D3EA 9133 CMPA CONV_PEDAL2 D3EC 10270162 LBEQ SAME_KEY_PRSS D3F0 9733 STA CONV_PEDAL2 D3F2 108E0600 LDY #$600 D3F6 A7A869 STA $69,Y D3F9 BDDAE8 JSR UPD_PED2_VAL D3FC C698 LDB #$98 D3FE 8D2B BSR C_OUT_MVMT_VAL D400 F61400 LDB P0_LINK_VALS D403 C4C0 ANDB #$C0 D405 10270149 LBEQ SAME_KEY_PRSS D409 108E06C0 LDY #$6C0 D40D A7A869 STA $69,Y D410 BDDAE8 JSR UPD_PED2_VAL D413 C698 LDB #$98 D415 8D14 BSR C_OUT_MVMT_VAL D417 7ED552 JMP SAME_KEY_PRSS D41A C003 L100 SUBB #$3 D41C 2202 BHI L101 D41E 4F CLRA D41F 39 RTS D420 3404 L101 PSHS B D422 8609 LDA #$9 D424 3D MUL D425 ABE0 ADDA ,S+ D427 2401 BCC PEDAL_EXIT D429 43 COMA D42A 39 PEDAL_EXIT RTS D42B 0D0A C_OUT_MVMT_VAL TST C_INTF_PERF D42D 27FB BEQ PEDAL_EXIT D42F 1E89 EXG A,B D431 BDCD8A JSR C_INF_OUT D434 1F98 TFR B,A D436 7ECD8A JMP C_INF_OUT D439 E084 LEVER_MOVE_CHK SUBB 0,X D43B 2510 BCS LEVER_PULLED D43D C020 SUBB #$20 D43F 231E BLS IN_LEVEL_NULL D441 A602 LDA $2,X D443 3D MUL D444 58 ASLB D445 49 ROLA D446 2802 BVC RET_CALC_PUSH D448 867F LDA #$7F D44A 84FF RET_CALC_PUSH ANDA #$FF D44C 39 RTS D44D C0E0 LEVER_PULLED SUBB #$E0 D44F 240E BCC IN_LEVEL_NULL D451 A601 LDA $1,X D453 3D MUL D454 A001 SUBA $1,X D456 58 ASLB D457 49 ROLA D458 2802 BVC RET_CALC_PULL D45A 8680 LDA #$80 D45C 84FF RET_CALC_PULL ANDA #$FF D45E 39 RTS D45F 4F IN_LEVEL_NULL CLRA D460 39 RTS D461 8E004A LDX #$4A D464 8DD3 BSR LEVER_MOVE_CHK D466 9130 CMPA CONV_LEVER1 D468 102700E6 LBEQ SAME_KEY_PRSS D46C 9730 STA CONV_LEVER1 D46E 108E0600 LDY #$600 D472 A7A808 STA $8,Y D475 BDDAA0 JSR UPD_LEV1_IN_CHAN D478 C680 LDB #$80 D47A 8DAF BSR C_OUT_MVMT_VAL D47C F61400 LDB P0_LINK_VALS D47F C4C0 ANDB #$C0 D481 102700CD LBEQ SAME_KEY_PRSS D485 108E06C0 LDY #$6C0 D489 A7A808 STA $8,Y D48C BDDAA0 JSR UPD_LEV1_IN_CHAN D48F C680 LDB #$80 D491 8D98 BSR C_OUT_MVMT_VAL D493 7ED552 JMP SAME_KEY_PRSS D496 8E004D LDX #$4D D499 8D9E BSR LEVER_MOVE_CHK D49B 9131 CMPA CONV_LEVER2 D49D 102700B1 LBEQ SAME_KEY_PRSS D4A1 9731 STA CONV_LEVER2 D4A3 108E0600 LDY #$600 D4A7 A7A809 STA $9,Y D4AA BDDAB1 JSR UPD_LEV2_IN_CHAN D4AD C688 LDB #$88 D4AF BDD42B JSR C_OUT_MVMT_VAL D4B2 F61400 LDB P0_LINK_VALS D4B5 C4C0 ANDB #$C0 D4B7 10270097 LBEQ SAME_KEY_PRSS D4BB 108E06C0 LDY #$6C0 D4BF A7A809 STA $9,Y D4C2 BDDAB1 JSR UPD_LEV2_IN_CHAN D4C5 C688 LDB #$88 D4C7 BDD42B JSR C_OUT_MVMT_VAL D4CA 7ED552 JMP SAME_KEY_PRSS D4CD C880 EORB #$80 D4CF 1D SEX D4D0 58 ASLB D4D1 DD48 STD MASTER_TUNE1 D4D3 207D BRA SAME_KEY_PRSS D4D5 9636 LDA SLIDER_DIVISOR D4D7 2B0C BMI SLIDEDIV_LT_0 D4D9 2607 BNE SLIDEDIV_GE_0 D4DB 860F LDA #$F D4DD 3D MUL D4DE 8007 SUBA #$7 D4E0 2006 BRA SLIDER_HNDLR D4E2 3D SLIDEDIV_GE_0 MUL D4E3 2003 BRA SLIDER_HNDLR D4E5 3D SLIDEDIV_LT_0 MUL D4E6 8040 SUBA #$40 '@ D4E8 9135 SLIDER_HNDLR CMPA DISP_PARAM_VAL D4EA 2766 BEQ SAME_KEY_PRSS D4EC 9735 STA DISP_PARAM_VAL D4EE BDDC90 JSR PROG_MODIFIED D4F1 CE1400 LDU #$1400 D4F4 F6141E LDB P0_PANEL_EDIT D4F7 C43F ANDB #$3F '? D4F9 272B BEQ PRG_0_EDIT D4FB C105 CMPB #$5 D4FD 2315 BLS SPCL_PARAM D4FF F6141E LDB P0_PANEL_EDIT D502 58 ASLB D503 2A0F BPL SPCL_PARAM D505 F6141E LDB P0_PANEL_EDIT D508 C43F ANDB #$3F '? D50A CB32 ADDB #$32 '2 D50C BDF3EB JSR CHK_2_SND_PANL D50F F6141E LDB P0_PANEL_EDIT D512 2A08 BPL EDIT_A_OR_ERR D514 F6141E SPCL_PARAM LDB P0_PANEL_EDIT D517 C43F ANDB #$3F '? D519 BDF3EB JSR CHK_2_SND_PANL D51C A603 EDIT_A_OR_ERR LDA $3,X D51E 2A32 BPL SAME_KEY_PRSS D520 A79F1FF4 STA [$1FF4] D524 202C BRA SAME_KEY_PRSS D526 BDDB47 PRG_0_EDIT JSR VALDTE_PARAM_2 D529 F61400 LDB P0_LINK_VALS D52C C4C0 ANDB #$C0 D52E 2722 BEQ SAME_KEY_PRSS D530 9609 LDA C_INTF_PANL D532 271E BEQ SAME_KEY_PRSS D534 8EE681 LDX #$E681 D537 9700 STA MEM_00 D539 8678 LDA #$78 'x D53B BDCD8A JSR C_INF_OUT D53E 9600 LDA MEM_00 D540 A686 LDA A,X D542 BDCD8A JSR C_INF_OUT D545 8679 LDA #$79 'y D547 BDCD8A JSR C_INF_OUT D54A 9600 LDA MEM_00 D54C 40 NEGA D54D A686 LDA A,X D54F BDCD8A JSR C_INF_OUT D552 B62001 SAME_KEY_PRSS LDA RD_MSCI_WR_MSCO D555 982E EORA RD_MSCI_IMG D557 8413 ANDA #$13 D559 10270096 LBEQ NO_CHANGES D55D 1F89 TFR A,B D55F D82E EORB RD_MSCI_IMG D561 D72E STB RD_MSCI_IMG D563 1F89 TFR A,B D565 D834 EORB FOOTSW_VALS D567 D734 STB FOOTSW_VALS D569 44 LSRA D56A 2402 BCC FSW2_NOT_CHNGD D56C 8D3D BSR FSW2_CHANGED D56E 44 FSW2_NOT_CHNGD LSRA D56F 2402 BCC FSW1_NOT_CHNGD D571 8D26 BSR FSW1_CHANGED D573 8404 FSW1_NOT_CHNGD ANDA #$4 D575 277C BEQ NO_CHANGES D577 C410 ANDB #$10 D579 2716 BEQ SEQ_CHNGD D57B 8612 LDA #$12 D57D B71FF7 STA PNL_KEY_CODE D580 8606 LDA #$6 D582 B71FF6 STA COPY_MODE D585 B6141D LDA P0_SEQNC_PROG D588 5F CLRB D589 BDDC9D JSR OUTPUT_BIG_PROG D58C BDDD31 JSR PNT_PANL D58F 2062 BRA NO_CHANGES D591 B6141D SEQ_CHNGD LDA P0_SEQNC_PROG D594 BDF473 JSR GO_SEQ_PROG D597 205A BRA NO_CHANGES D599 3406 FSW1_CHANGED PSHS B,A D59B C402 ANDB #$2 D59D 2606 BNE FSW1_DOWN D59F C66E LDB #$6E 'n D5A1 86A8 LDA #$A8 D5A3 2015 BRA DO_FSW_WORK D5A5 C60E FSW1_DOWN LDB #$E D5A7 86A0 LDA #$A0 D5A9 200F BRA DO_FSW_WORK D5AB 3406 FSW2_CHANGED PSHS B,A D5AD 54 LSRB D5AE 2506 BCS FSW2_DOWN D5B0 C670 LDB #$70 'p D5B2 86B8 LDA #$B8 D5B4 2004 BRA DO_FSW_WORK D5B6 C610 FSW2_DOWN LDB #$10 D5B8 86B0 LDA #$B0 D5BA 3406 DO_FSW_WORK PSHS B,A D5BC 108E0600 LDY #$600 D5C0 EE26 LDU $6,Y D5C2 2702 BEQ NO_DEFN_INST D5C4 ADB5 JSR [B,Y] D5C6 F61400 NO_DEFN_INST LDB P0_LINK_VALS D5C9 C4C0 ANDB #$C0 D5CB 270C BEQ NO_LINK D5CD E661 LDB $1,S D5CF 31A900C0 LEAY 192,Y D5D3 EE26 LDU $6,Y D5D5 2702 BEQ NO_LINK D5D7 ADB5 JSR [B,Y] D5D9 3506 NO_LINK PULS A,B D5DB D60A LDB C_INTF_PERF D5DD 2703 BEQ SKIP_FSW2_COUT D5DF BDCD8A JSR C_INF_OUT D5E2 F61400 SKIP_FSW2_COUT LDB P0_LINK_VALS D5E5 C4C0 ANDB #$C0 D5E7 2708 BEQ FSW2_EXIT D5E9 D60A LDB C_INTF_PERF D5EB 2704 BEQ FSW2_EXIT D5ED 4C INCA D5EE BDCD8A JSR C_INF_OUT D5F1 3586 FSW2_EXIT PULS A,B,PC D5F3 108E0600 NO_CHANGES LDY #$600 D5F7 C608 LDB #$8 D5F9 EE26 ARP_NEXT_INST LDU $6,Y D5FB 2703 BEQ NO_DEF_PROG D5FD ADB866 JSR [$66,Y] D600 31A900C0 NO_DEF_PROG LEAY 192,Y D604 5A DECB D605 26F2 BNE ARP_NEXT_INST D607 D63F CHK_NOTE_BUF LDB N_BUF_HEAD2 D609 D13D CMPB N_BUF_TAIL2 D60B 262E BNE BUF_NOT_EMPTY D60D D643 LDB C_IN_BUF_HEAD2 D60F D141 CMPB C_IN_BUF_TAIL2 D611 1027FC29 LBEQ TUNE_AND_MORE D615 A69F0042 LDA [$42] D619 5C INCB D61A C43F ANDB #$3F '? D61C D743 STB C_IN_BUF_HEAD2 D61E 1A50 ORCC #$50 'P D620 D62F LDB WR_MSCO_IMG D622 2B07 BMI XI_MASK_EQ_1 D624 CA80 ORB #$80 D626 D72F STB WR_MSCO_IMG D628 F72001 STB RD_MSCI_WR_MSCO D62B 1CAF XI_MASK_EQ_1 ANDC #$AF D62D DE52 LDU L87 D62F 9E54 LDX CI_HNDLR_A1 D631 109E56 LDY L88 D634 D658 LDB CI_OPCODE_NEW D636 4D TSTA D637 6E9F0050 JMP [$50] D63B 8600 BUF_NOT_EMPTY LDA #$0 D63D 10260089 LBNE L102 D641 EE9F003E LDU [$3E] D645 33C9E000 LEAU -8192,U D649 DF5D STU PLAYED_NOTE D64B CB02 ADDB #$2 D64D CAE0 ORB #$E0 D64F D73F STB N_BUF_HEAD2 D651 1CBF ANDC #$BF D653 D65E LDB PLAYED_VEL D655 102B00CA LBMI NEGATIVE_VEL D659 B61FF7 LDA PNL_KEY_CODE D65C 810C CMPA #$C D65E 2613 BNE NOT_SET_SPLT D660 7F1FF7 CLR PNL_KEY_CODE D663 965D LDA PLAYED_NOTE D665 B71FF9 STA PREV_SPLIT D668 B71420 STA P0_KBRD_SPLT D66B BDDC90 JSR PROG_MODIFIED D66E BDDD31 JSR PNT_PANL D671 2094 BRA CHK_NOTE_BUF D673 CEF86A NOT_SET_SPLT LDU #$F86A D676 A6C5 LDA B,U D678 975E STA PLAYED_VEL D67A 0F5F CLR PLAYED_PRES D67C B61400 LDA P0_LINK_VALS D67F 48 ASLA D680 252D BCS L103 D682 2B11 BMI L104 D684 86D0 L106 LDA #$D0 D686 F61401 LDB P0_TRNSPOSE D689 8E0064 LDX #$64 D68C 108E0600 LDY #$600 D690 8D4A BSR L105 D692 7ED607 JMP CHK_NOTE_BUF D695 965D L104 LDA PLAYED_NOTE D697 B11420 CMPA P0_KBRD_SPLT D69A 2DE8 BLT L106 D69C 86D1 L108 LDA #$D1 D69E F61401 LDB P0_TRNSPOSE D6A1 58 ASLB D6A2 58 ASLB D6A3 8E0066 LDX #$66 D6A6 108E06C0 LDY #$6C0 D6AA 8D30 BSR L105 D6AC 7ED607 JMP CHK_NOTE_BUF D6AF 2B09 L103 BMI L107 D6B1 965D LDA PLAYED_NOTE D6B3 B11420 CMPA P0_KBRD_SPLT D6B6 2DE4 BLT L108 D6B8 20CA BRA L106 D6BA 86D0 L107 LDA #$D0 D6BC F61401 LDB P0_TRNSPOSE D6BF 8E0064 LDX #$64 D6C2 108E0600 LDY #$600 D6C6 8D14 BSR L105 D6C8 20D2 BRA L108 D6CA D73D L102 STB N_BUF_TAIL2 D6CC 1A50 ORCC #$50 'P D6CE D62F LDB WR_MSCO_IMG D6D0 C4DF ANDB #$DF D6D2 D72F STB WR_MSCO_IMG D6D4 F72001 STB RD_MSCI_WR_MSCO D6D7 1CEF ANDC #$EF D6D9 7ED607 JMP CHK_NOTE_BUF D6DC 3402 L105 PSHS A D6DE 965D LDA PLAYED_NOTE D6E0 58 ASLB D6E1 2404 BCC L109 D6E3 800C SUBA #$C D6E5 2004 BRA L110 D6E7 2A02 L109 BPL L110 D6E9 8B0C ADDA #$C D6EB 975C L110 STA CORR_NOTE D6ED D65D LDB PLAYED_NOTE D6EF BDD77B JSR L111 D6F2 2708 BEQ C_OUT_NOTE D6F4 EDC4 STD 0,U D6F6 EC84 LDD 0,X D6F8 ED42 STD 2,U $2 D6FA EF84 STU 0,X D6FC 0D0A C_OUT_NOTE TST C_INTF_PERF D6FE 2714 BEQ NO_PERF D700 A6E4 LDA 0,S D702 BDCD8A JSR C_INF_OUT D705 965C LDA CORR_NOTE D707 BDCD8A JSR C_INF_OUT D70A 965E LDA PLAYED_VEL D70C BDCD8A JSR C_INF_OUT D70F 965F LDA PLAYED_PRES D711 BDCD8A JSR C_INF_OUT D714 11830000 NO_PERF CMPU #$0 D718 2707 BEQ NO_PROG_DEFD D71A EE26 LDU $6,Y D71C 2703 BEQ NO_PROG_DEFD D71E ADB80C JSR [$C,Y] D721 3582 NO_PROG_DEFD PULS A,PC D723 CEF8EA NEGATIVE_VEL LDU #$F8EA D726 A6C5 LDA B,U D728 975E STA PLAYED_VEL D72A 86D8 LDA #$D8 D72C 8E0062 LDX #$62 D72F 108E0600 LDY #$600 D733 8D0E BSR L112 D735 86D9 LDA #$D9 D737 8E0064 LDX #$64 D73A 108E06C0 LDY #$6C0 D73E 8D03 BSR L112 D740 7ED607 JMP CHK_NOTE_BUF D743 3402 L112 PSHS A D745 EE02 L115 LDU $2,X D747 2602 BNE L113 D749 3582 PULS A,PC D74B ECC4 L113 LDD 0,U D74D D15D CMPB PLAYED_NOTE D74F 2704 BEQ L114 D751 30C4 LEAX 0,U D753 20F0 BRA L115 D755 975C L114 STA CORR_NOTE D757 EC42 LDD 2,U $2 D759 ED02 STD $2,X D75B BDD789 JSR LASTNODEFROMHEAP D75E 0D0A TST C_INTF_PERF D760 270F BEQ L116 D762 A6E4 LDA 0,S D764 BDCD8A JSR C_INF_OUT D767 965C LDA CORR_NOTE D769 BDCD8A JSR C_INF_OUT D76C 965E LDA PLAYED_VEL D76E BDCD8A JSR C_INF_OUT D771 EEA806 L116 LDU $6,Y D774 2703 BEQ L117 D776 ADB86C JSR [$6C,Y] D779 20CA L117 BRA L115 D77B 3406 L111 PSHS B,A D77D DE3A LDU NXT_KSTACK_ADR D77F 2706 BEQ L118 D781 EC42 LDD 2,U $2 D783 DD3A STD NXT_KSTACK_ADR D785 8601 LDA #$1 D787 3586 L118 PULS A,B,PC D789 3406 LASTNODEFROMHEAP PSHS B,A D78B DC3A LDD NXT_KSTACK_ADR D78D ED42 STD 2,U $2 D78F DF3A STU NXT_KSTACK_ADR D791 3586 PULS A,B,PC D793 3416 GETNODEFROMHEAP PSHS X,B,A D795 1F30 TFR U,D D797 10830000 CMPD #$0 D79B 270E BEQ DONE_FREE_KEY D79D AE42 NEXT_NODE LDX 2,U $2 D79F 2704 BEQ ADD_NOTE_NODE D7A1 3384 LEAU 0,X D7A3 20F8 BRA NEXT_NODE D7A5 9E3A ADD_NOTE_NODE LDX NXT_KSTACK_ADR D7A7 AF42 STX 2,U $2 D7A9 DD3A STD NXT_KSTACK_ADR D7AB 3596 DONE_FREE_KEY PULS A,B,X,PC D7AD 3406 INIT_CHAN_X PSHS B,A D7AF CCEB8E LDD #$EB8E D7B2 ED8824 STD $24,X D7B5 CCEC49 LDD #$EC49 D7B8 ED882C STD $2C,X D7BB 4F CLRA D7BC 5F CLRB D7BD ED8828 STD $28,X D7C0 ED8830 STD $30,X D7C3 53 COMB D7C4 E706 STB $6,X D7C6 C680 LDB #$80 D7C8 E708 STB $8,X D7CA D607 LDB RESET_VAL D7CC CAC0 ORB #$C0 D7CE F7200B STB WR_SHA D7D1 5F CLRB D7D2 FD200C STD WR_MDAC D7D5 E607 LDB $7,X D7D7 58 ASLB D7D8 58 ASLB D7D9 CAC3 ORB #$C3 D7DB F7200B STB WR_SHA D7DE C43F ANDB #$3F '? D7E0 F7200B STB WR_SHA D7E3 8628 LDA #$28 '( D7E5 4A LOOP_40_TIMES DECA D7E6 26FD BNE LOOP_40_TIMES D7E8 CAC0 ORB #$C0 D7EA F7200B STB WR_SHA D7ED 3586 PULS A,B,PC D7EF 8DBC INIT_WHOLE_BRD BSR INIT_CHAN_X D7F1 308840 LEAX $40,X D7F4 8DB7 BSR INIT_CHAN_X D7F6 3088C0 LEAX $C0,X D7F9 39 RTS D7FA 3436 INVOKE_PROG PSHS Y,X,B,A D7FC 0C0B INC PRG_UNDERWAY D7FE 4F CLRA D7FF A7A827 STA $27,Y D802 A7A90087 STA 135,Y D806 CCC100 LDD #$C100 D809 EDA816 STD $16,Y D80C EDA876 STD $76,Y D80F C601 LDB #$1 D811 BDDB02 INIT_NXT_A_PARM JSR CHK_PARAM_DATA D814 AD94 JSR [0,X] D816 5C INCB D817 C132 CMPB #$32 '2 D819 23F6 BLS INIT_NXT_A_PARM D81B 31A860 LEAY $60,Y D81E C638 LDB #$38 '8 D820 BDDB02 INIT_NXT_B_PARM JSR CHK_PARAM_DATA D823 AD94 JSR [0,X] D825 5C INCB D826 C164 CMPB #$64 'd D828 23F6 BLS INIT_NXT_B_PARM D82A 0F0B CLR PRG_UNDERWAY D82C 35B6 PULS A,B,X,Y,PC D82E 3470 INIT_BRD_4_INST PSHS U,Y,X D830 CE0000 LDU #$0 D833 AE24 LOOP_NXT_BRD LDX $4,Y D835 270C BEQ NO_BASE_BOARD D837 BDD7EF JSR INIT_WHOLE_BRD D83A EF02 STU $2,X D83C EF8842 STU $42,X D83F 3184 LEAY 0,X D841 20F0 BRA LOOP_NXT_BRD D843 9E38 NO_BASE_BOARD LDX LNK_INST_ADR D845 AF24 STX $4,Y D847 10AE62 LDY $2,S D84A AE24 LDX $4,Y D84C 9F38 STX LNK_INST_ADR D84E EE22 LDU $2,Y D850 BDD793 JSR GETNODEFROMHEAP D853 CE0000 LDU #$0 D856 EFA4 STU 0,Y D858 EF22 STU $2,Y D85A EF24 STU $4,Y D85C EF26 STU $6,Y D85E CEC100 LDU #$C100 D861 EFA866 STU $66,Y D864 35F0 PULS X,Y,U,PC D866 3406 FINISH_PROG_DEF PSHS B,A D868 BDE63F JSR SETUP_INST01_VOL D86B DC30 LDD CONV_LEVER1 D86D EDA808 STD $8,Y D870 DC32 LDD CONV_PEDAL1 D872 EDA868 STD $68,Y D875 9634 LDA FOOTSW_VALS D877 44 LSRA D878 46 RORA D879 46 RORA D87A A7A865 STA $65,Y D87D 9609 LDA C_INTF_PANL D87F 2729 BEQ C_INTF_PNL_OFF D881 A6E4 LDA 0,S D883 BDCD8A JSR C_INF_OUT D886 A661 LDA $1,S D888 BDCD8A JSR C_INF_OUT D88B 9630 LDA CONV_LEVER1 D88D BDCD8A JSR C_INF_OUT D890 9631 LDA CONV_LEVER2 D892 BDCD8A JSR C_INF_OUT D895 9632 LDA CONV_PEDAL1 D897 BDCD8A JSR C_INF_OUT D89A 9633 LDA CONV_PEDAL2 D89C BDCD8A JSR C_INF_OUT D89F A6A818 LDA $18,Y D8A2 BDCD8A JSR C_INF_OUT D8A5 9634 LDA FOOTSW_VALS D8A7 BDCD8A JSR C_INF_OUT D8AA 3586 C_INTF_PNL_OFF PULS A,B,PC D8AC 3406 SET_LNK_BAL PSHS B,A D8AE A7A818 STA $18,Y D8B1 E6A80A LDB $A,Y D8B4 C502 BITB #$2 D8B6 2606 BNE PATCH_1 D8B8 C430 ANDB #$30 '0 D8BA C110 CMPB #$10 D8BC 2602 BNE NOT_ONLY_FILT_FM D8BE 86FF PATCH_1 LDA #$FF D8C0 A7A878 NOT_ONLY_FILT_FM STA $78,Y D8C3 3586 PULS A,B,PC D8C5 3456 CP_PROG_X_2_U PSHS U,X,B,A D8C7 861D LDA #$1D D8C9 3402 PSHS A D8CB EC81 NEXT_ELEMENT LDD ,X++ D8CD EDC1 STD ,U++ D8CF 6AE4 DEC 0,S D8D1 26F8 BNE NEXT_ELEMENT D8D3 A684 LDA 0,X D8D5 A7C4 STA 0,U D8D7 3261 LEAS $1,S D8D9 35D6 PULS A,B,X,U,PC D8DB 4F COUNT_BRD_ASGN CLRA D8DC 3084 LEAX 0,X D8DE 2705 BEQ NO_BRD_ASSIGN D8E0 4C BRD_ASSIGNED INCA D8E1 AE04 LDX $4,X D8E3 26FB BNE BRD_ASSIGNED D8E5 39 NO_BRD_ASSIGN RTS D8E6 31A900C0 B_LAST_INST_CHK LEAY 192,Y D8EA 5C INCB D8EB C107 CMPB #$7 D8ED 39 RTS D8EE 3476 BOARD_ASSIGN PSHS U,Y,X,B,A D8F0 3275 LEAS $15,S D8F2 9E38 LDX LNK_INST_ADR D8F4 8DE5 BSR COUNT_BRD_ASGN D8F6 A768 STA $8,S D8F8 A769 STA $9,S D8FA 5F CLRB D8FB 108E0600 LDY #$600 D8FF AE24 COUNT_NXT_INST LDX $4,Y D901 8DD8 BSR COUNT_BRD_ASGN D903 A7E5 STA B,S D905 AB69 ADDA $9,S D907 A769 STA $9,S D909 8DDB BSR B_LAST_INST_CHK D90B 23F2 BLS COUNT_NXT_INST D90D 4D TSTA D90E 2747 BEQ NO_BRDS_EXIT D910 5F CLRB D911 108E0600 LDY #$600 D915 EE26 MORE_INST_ALLOC LDU $6,Y D917 2706 BEQ DEFD_PROG0 D919 6AE5 DEC B,S D91B 6A69 DEC $9,S D91D 2726 BEQ NO_BRDS_LEFT D91F 8DC5 DEFD_PROG0 BSR B_LAST_INST_CHK D921 23F2 BLS MORE_INST_ALLOC D923 6F6A HAVE_POLY_INST CLR $A,S D925 5F CLRB D926 108E0600 LDY #$600 D92A EE26 TALLY_BY_ALG LDU $6,Y D92C 270F BEQ ALG_GE_5 D92E A6A864 LDA $64,Y D931 8105 CMPA #$5 D933 2408 BCC ALG_GE_5 D935 6C6A INC $A,S D937 6AE5 DEC B,S D939 6A69 DEC $9,S D93B 2708 BEQ NO_BRDS_LEFT D93D 8DA7 ALG_GE_5 BSR B_LAST_INST_CHK D93F 23E9 BLS TALLY_BY_ALG D941 A66A LDA $A,S D943 26DE BNE HAVE_POLY_INST D945 A668 NO_BRDS_LEFT LDA $8,S D947 A069 SUBA $9,S D949 A768 STA $8,S D94B 5F CLRB D94C E76A STB $A,S D94E A6E5 CHECK4_PRE_ASGN LDA B,S D950 2E09 BGT SOMEBRD_PREASGN D952 5C INCB D953 C108 CMPB #$8 D955 23F7 BLS CHECK4_PRE_ASGN D957 326B NO_BRDS_EXIT LEAS $B,S D959 35F6 PULS A,B,X,Y,U,PC D95B 4A SOMEBRD_PREASGN DECA D95C A7E5 STA B,S D95E E769 STB $9,S D960 8D15 BSR L119 D962 E66A LDB $A,S D964 A6E5 L121 LDA B,S D966 2B03 BMI L120 D968 5C INCB D969 20F9 BRA L121 D96B 4C L120 INCA D96C A7E5 STA B,S D96E E76A STB $A,S D970 BDD9FD JSR L122 D973 E669 LDB $9,S D975 20D7 BRA CHECK4_PRE_ASGN D977 C108 L119 CMPB #$8 D979 2507 BCS L123 D97B 9E38 LDX LNK_INST_ADR D97D EE04 LDU $4,X D97F DF38 STU LNK_INST_ADR D981 39 RTS D982 86C0 L123 LDA #$C0 D984 3D MUL D985 108E0600 LDY #$600 D989 31AB LEAY D,Y D98B A6A863 LDA $63,Y D98E 2617 BNE 16_CHAN D990 AEA4 LDX 0,Y D992 EE84 LDU 0,X D994 EFA4 STU 0,Y D996 BDD7EF L130 JSR INIT_WHOLE_BRD D999 AC24 L125 CMPX $4,Y D99B 2705 BEQ L124 D99D 10AE24 LDY $4,Y D9A0 20F7 BRA L125 D9A2 EE04 L124 LDU $4,X D9A4 EF24 STU $4,Y D9A6 39 RTS D9A7 3420 16_CHAN PSHS Y D9A9 AEA4 L132 LDX 0,Y D9AB A606 LDA $6,X D9AD 2D23 BLT L126 D9AF EEF4 LDU [0,S] D9B1 E647 LDB 7,U $7 D9B3 C801 EORB #$1 D9B5 E107 L128 CMPB $7,X D9B7 2706 BEQ L127 D9B9 3184 LEAY 0,X D9BB AEA4 LDX 0,Y D9BD 20F6 BRA L128 D9BF EE84 L127 LDU 0,X D9C1 EFA4 STU 0,Y D9C3 54 LSRB D9C4 2403 BCC L129 D9C6 3088C0 LEAX $C0,X D9C9 3520 L129 PULS Y D9CB ECB800 LDD [$0,Y] D9CE EDA4 STD 0,Y D9D0 20C4 BRA L130 D9D2 E607 L126 LDB $7,X D9D4 C801 EORB #$1 D9D6 EE84 L134 LDU 0,X D9D8 A646 LDA 6,U $6 D9DA 2D05 BLT L131 D9DC 10AEA4 LDY 0,Y D9DF 20C8 BRA L132 D9E1 E147 L131 CMPB 7,U $7 D9E3 2704 BEQ L133 D9E5 30C4 LEAX 0,U D9E7 20ED BRA L134 D9E9 EEC4 L133 LDU 0,U D9EB EF84 STU 0,X D9ED AEA4 LDX 0,Y D9EF EE84 LDU 0,X D9F1 EFA4 STU 0,Y D9F3 3520 PULS Y D9F5 54 LSRB D9F6 2503 BCS L135 D9F8 3088C0 LEAX $C0,X D9FB 2099 L135 BRA L130 D9FD 86C0 L122 LDA #$C0 D9FF A709 STA $9,X DA01 A78849 STA $49,X DA04 3D MUL DA05 108E0600 LDY #$600 DA09 31AB LEAY D,Y DA0B A6A808 LDA $8,Y DA0E BDDAC2 JSR CHK_LEV_VAL DA11 ED880A STD $A,X DA14 A6A809 LDA $9,Y DA17 BDDAC2 JSR CHK_LEV_VAL DA1A ED880C STD $C,X DA1D A6A868 LDA $68,Y DA20 BDDAF9 JSR CONV_PED_VAL DA23 ED884A STD $4A,X DA26 A6A869 LDA $69,Y DA29 BDDAF9 JSR CONV_PED_VAL DA2C ED884C STD $4C,X DA2F A6A80A LDA $A,Y DA32 E607 LDB $7,X DA34 54 LSRB DA35 CA10 ORB #$10 DA37 FD2008 STD RD_EOC_WR_SYND DA3A A6A80B LDA $B,Y DA3D C407 ANDB #$7 DA3F FD2008 STD RD_EOC_WR_SYND DA42 CA08 ORB #$8 DA44 6DA863 TST $63,Y DA47 2603 BNE L136 DA49 A6A86B LDA $6B,Y DA4C FD2008 L136 STD RD_EOC_WR_SYND DA4F EC24 LDD $4,Y DA51 ED04 STD $4,X DA53 AF24 STX $4,Y DA55 ECA4 LDD 0,Y DA57 ED84 STD 0,X DA59 AFA4 STX 0,Y DA5B 10AF02 STY $2,X DA5E AFA814 STX $14,Y DA61 308840 LEAX $40,X DA64 E6A863 LDB $63,Y DA67 260A BNE L137 DA69 31A860 LEAY $60,Y DA6C 10AF02 STY $2,X DA6F AFA814 STX $14,Y DA72 39 RTS DA73 10AF02 L137 STY $2,X DA76 ECA4 LDD 0,Y DA78 ED84 STD 0,X DA7A AFA4 STX 0,Y DA7C 39 RTS DA7D A607 SET_RAM006X LDA $7,X DA7F 43 COMA DA80 8401 ANDA #$1 DA82 2702 BEQ CHAN_B_PAR DA84 8640 LDA #$40 '@ DA86 9762 CHAN_B_PAR STA L138 DA88 9761 STA L139 DA8A 8040 SUBA #$40 '@ DA8C 9760 STA L140 DA8E 2B02 BMI L141 DA90 8640 LDA #$40 '@ DA92 8B02 L141 ADDA #$2 DA94 10AC86 CMPY A,X DA97 2604 BNE L142 DA99 0F60 CLR L140 DA9B 0F61 CLR L139 DA9D 0F63 L142 CLR L143 DA9F 39 RTS DAA0 3406 UPD_LEV1_IN_CHAN PSHS B,A DAA2 AE24 LDX $4,Y DAA4 2709 BEQ LEV1_NOBRD_EXIT DAA6 8D1A BSR CHK_LEV_VAL DAA8 ED880A LEV1_MORE_CHAN STD $A,X DAAB AE04 LDX $4,X DAAD 26F9 BNE LEV1_MORE_CHAN DAAF 3586 LEV1_NOBRD_EXIT PULS A,B,PC DAB1 3406 UPD_LEV2_IN_CHAN PSHS B,A DAB3 AE24 LDX $4,Y DAB5 2709 BEQ LEV2_NOBRD_EXIT DAB7 8D09 BSR CHK_LEV_VAL DAB9 ED880C LEV2_MORE_CHAN STD $C,X DABC AE04 LDX $4,X DABE 26F9 BNE LEV2_MORE_CHAN DAC0 3586 LEV2_NOBRD_EXIT PULS A,B,PC DAC2 4D CHK_LEV_VAL TSTA DAC3 2B0C BMI LEV_PULL DAC5 C641 LDB #$41 'A DAC7 3D MUL DAC8 8120 CMPA #$20 DACA 250A BCS LEV_DONE DACC CC2000 LDD #$2000 DACF 2005 BRA LEV_DONE DAD1 5F LEV_PULL CLRB DAD2 47 ASRA DAD3 56 RORB DAD4 47 ASRA DAD5 56 RORB DAD6 39 LEV_DONE RTS DAD7 3406 UPD_PED1_VAL PSHS B,A DAD9 AE24 LDX $4,Y DADB 2709 BEQ PED1_NOBRD_EXIT DADD 8D1A BSR CONV_PED_VAL DADF ED884A PED1_MORE_CHAN STD $4A,X DAE2 AE04 LDX $4,X DAE4 26F9 BNE PED1_MORE_CHAN DAE6 3586 PED1_NOBRD_EXIT PULS A,B,PC DAE8 3406 UPD_PED2_VAL PSHS B,A DAEA AE24 LDX $4,Y DAEC 2709 BEQ PED2_NOBRD_EXIT DAEE 8D09 BSR CONV_PED_VAL DAF0 ED884C PED2_MORE_CHAN STD $4C,X DAF3 AE04 LDX $4,X DAF5 26F9 BNE PED2_MORE_CHAN DAF7 3586 PED2_NOBRD_EXIT PULS A,B,PC DAF9 1F89 CONV_PED_VAL TFR A,B DAFB 44 LSRA DAFC 56 RORB DAFD 44 LSRA DAFE 56 RORB DAFF 44 LSRA DB00 56 RORB DB01 39 RTS DB02 3444 CHK_PARAM_DATA PSHS U,B DB04 C138 CMPB #$38 '8 DB06 2505 BCS A_PARAMS_1 DB08 C032 SUBB #$32 '2 DB0A 33C81E LEAU 30,U DB0D 58 A_PARAMS_1 ASLB DB0E 58 ASLB DB0F 4F CLRA DB10 8EE220 LDX #$E220 DB13 308B LEAX D,X DB15 10830000 CMPD #$0 DB19 271E BEQ SET_LNK_BAL DB1B EC02 LDD $2,X DB1D A6C6 LDA A,U DB1F C570 SHIFT_AGAIN BITB #$70 'p DB21 2705 BEQ VAL_AT_RIGHT DB23 44 LSRA DB24 C010 SUBB #$10 DB26 20F7 BRA SHIFT_AGAIN DB28 C508 VAL_AT_RIGHT BITB #$8 DB2A 2704 BEQ VALIDATE_LMT DB2C 48 ASLA DB2D 47 ASRA DB2E 35C4 PULS B,U,PC DB30 CEF985 VALIDATE_LMT LDU #$F985 DB33 C407 ANDB #$7 DB35 A4C5 ANDA B,U DB37 35C4 PULS B,U,PC DB39 A6C81F SET_LNK_BAL LDA 31,U DB3C 840F ANDA #$F DB3E 8808 EORA #$8 DB40 2601 BNE LNK_BAL_NE_0 DB42 4C INCA DB43 8008 LNK_BAL_NE_0 SUBA #$8 DB45 35C4 PULS B,U,PC DB47 3466 VALDTE_PARAM_2 PSHS U,Y,B,A DB49 C138 CMPB #$38 '8 DB4B 2505 BCS PROG_LT_56 DB4D C032 SUBB #$32 '2 DB4F 33C81E LEAU 30,U DB52 58 PROG_LT_56 ASLB DB53 58 ASLB DB54 4F CLRA DB55 8EE220 LDX #$E220 DB58 308B LEAX D,X DB5A 10830000 CMPD #$0 DB5E 273F BEQ D_EQ_0_2 DB60 E603 LDB $3,X DB62 C407 ANDB #$7 DB64 108EF985 LDY #$F985 DB68 A6A5 LDA B,Y DB6A E602 LDB $2,X DB6C 33C5 LEAU B,U DB6E E603 LDB $3,X DB70 C470 ANDB #$70 'p DB72 108E0000 LDY #$0 DB76 31A5 LEAY B,Y DB78 E6E4 LDB 0,S DB7A 3402 PSHS A DB7C E4E0 ANDB ,S+ DB7E E7E4 STB 0,S DB80 31A4 LEAY 0,Y DB82 2706 BEQ L144 DB84 58 L145 ASLB DB85 48 ASLA DB86 3130 LEAY $10,Y DB88 26FA BNE L145 DB8A 3404 L144 PSHS B DB8C 43 COMA DB8D A4C4 ANDA 0,U DB8F AAE0 ORA ,S+ DB91 A7C4 STA 0,U DB93 E603 LDB $3,X DB95 C508 BITB #$8 DB97 2725 BEQ L146 DB99 68E4 ASL 0,S DB9B 67E4 ASR 0,S DB9D 201F BRA L146 DB9F A6C81F D_EQ_0_2 LDA 31,U DBA2 84F0 ANDA #$F0 DBA4 A7C81F STA 31,U DBA7 A6E4 LDA 0,S DBA9 840F ANDA #$F DBAB 8808 EORA #$8 DBAD 2601 BNE L147 DBAF 4C INCA DBB0 8008 L147 SUBA #$8 DBB2 A7E4 STA 0,S DBB4 840F ANDA #$F DBB6 AAC81F ORA 31,U DBB9 A7C81F STA 31,U DBBC 2067 BRA L148 DBBE ECE4 L146 LDD 0,S DBC0 EE64 LDU $4,S DBC2 C132 CMPB #$32 '2 DBC4 2304 BLS DO_NEXT_INSTR DBC6 C137 CMPB #$37 '7 DBC8 2368 BLS 51_B_55 DBCA 108E0600 DO_NEXT_INSTR LDY #$600 DBCE 11A326 B_LT_50 CMPU $6,Y DBD1 2610 BNE L149 DBD3 C138 CMPB #$38 '8 DBD5 2503 BCS A_PARAMS DBD7 31A860 LEAY $60,Y DBDA AD94 A_PARAMS JSR [0,X] DBDC C138 CMPB #$38 '8 DBDE 2503 BCS L149 DBE0 31A8A0 LEAY $A0,Y DBE3 31A900C0 L149 LEAY 192,Y DBE7 108C0B40 CMPY #$B40 DBEB 23E1 BLS B_LT_50 DBED 11831400 CMPU #$1400 DBF1 2647 BNE DONE_UPDATE DBF3 C105 L151 CMPB #$5 DBF5 220B BHI P0_PARAM_A DBF7 F6141E LDB P0_PANEL_EDIT DBFA C43F ANDB #$3F '? DBFC E161 CMPB $1,S DBFE 263A BNE DONE_UPDATE DC00 201E BRA L150 DC02 C132 P0_PARAM_A CMPB #$32 '2 DC04 220D BHI P0_PARAM_B DC06 F6141E LDB P0_PANEL_EDIT DC09 2A2F BPL DONE_UPDATE DC0B C43F ANDB #$3F '? DC0D E161 CMPB $1,S DC0F 2629 BNE DONE_UPDATE DC11 200D BRA L150 DC13 F6141E P0_PARAM_B LDB P0_PANEL_EDIT DC16 2B22 BMI DONE_UPDATE DC18 C00E SUBB #$E DC1A E161 CMPB $1,S DC1C 261C BNE DONE_UPDATE DC1E C032 SUBB #$32 '2 DC20 BDDD12 L150 JSR DISP_SMALL_LEDS DC23 35E6 PULS A,B,Y,U,PC DC25 11831400 L148 CMPU #$1400 DC29 260F BNE DONE_UPDATE DC2B BDE63F JSR SETUP_INST01_VOL DC2E A6E4 LDA 0,S DC30 20C1 BRA L151 DC32 11831400 51_B_55 CMPU #$1400 DC36 2602 BNE DONE_UPDATE DC38 AD94 JSR [0,X] DC3A 35E6 DONE_UPDATE PULS A,B,Y,U,PC DC3C A6C4 PARAM_FIX LDA 0,U DC3E 843F ANDA #$3F '? DC40 2704 BEQ FIX_LINK_PROG DC42 8132 CMPA #$32 '2 DC44 2304 BLS LINK_VAL_OK DC46 8601 FIX_LINK_PROG LDA #$1 DC48 A7C4 STA 0,U DC4A A6C81E LINK_VAL_OK LDA 30,U DC4D 843F ANDA #$3F '? DC4F 8132 CMPA #$32 '2 DC51 2207 BHI FIX_PNL_PARAM DC53 A6C81E LDA 30,U DC56 85C0 BITA #$C0 DC58 2605 BNE PANEL_MODE_OK DC5A 8681 FIX_PNL_PARAM LDA #$81 DC5C A7C81E STA 30,U DC5F A641 PANEL_MODE_OK LDA 1,U $1 DC61 2A06 BPL M_TRANS_OK DC63 8540 BITA #$40 '@ DC65 2702 BEQ M_TRANS_OK DC67 843F ANDA #$3F '? DC69 8520 M_TRANS_OK BITA #$20 DC6B 2706 BEQ L_TRANS_OK DC6D 8510 BITA #$10 DC6F 2702 BEQ L_TRANS_OK DC71 84CF ANDA #$CF DC73 A741 L_TRANS_OK STA 1,U $1 DC75 A6C81D LDA 29,U DC78 2704 BEQ SEQ_NO_0 DC7A 8132 CMPA #$32 '2 DC7C 2305 BLS SEQ_NO_OK DC7E 8601 SEQ_NO_0 LDA #$1 DC80 A7C81D STA 29,U DC83 A6C820 SEQ_NO_OK LDA 32,U DC86 48 ASLA DC87 2903 BVS FIX_KYBD_SPLT DC89 48 ASLA DC8A 2803 BVC SPLIT_OK DC8C 6FC820 FIX_KYBD_SPLT CLR 32,U DC8F 39 SPLIT_OK RTS DC90 3402 PROG_MODIFIED PSHS A DC92 8680 LDA #$80 DC94 B71FF3 STA PROG_MOD_FLAG DC97 9A29 ORA LED_DIG9 DC99 9729 STA LED_DIG9 DC9B 3582 PULS A,PC DC9D 3416 OUTPUT_BIG_PROG PSHS X,B,A DC9F 8EF97B LDX #$F97B DCA2 810A CMPA #$A DCA4 2409 BCC DIGIT_GE10 DCA6 E686 LDB A,X DCA8 EA61 ORB $1,S DCAA 4F CLRA DCAB DD28 STD LED_DIG8 DCAD 3596 PULS A,B,X,PC DCAF 5F DIGIT_GE10 CLRB DCB0 5C NEXT_DECADE INCB DCB1 800A SUBA #$A DCB3 810A CMPA #$A DCB5 24F9 BCC NEXT_DECADE DCB7 A686 LDA A,X DCB9 E685 LDB B,X DCBB AA61 ORA $1,S DCBD 9729 STA LED_DIG9 DCBF D728 STB LED_DIG8 DCC1 3596 PULS A,B,X,PC DCC3 3416 DISP_PARAM_VAL PSHS X,B,A DCC5 8EF97B LDX #$F97B DCC8 4D TSTA DCC9 2A01 BPL DISP_PARAM_GT0 DCCB 40 NEGA DCCC 810A DISP_PARAM_GT0 CMPA #$A DCCE 2412 BCC DISP_PARAM_GT10 DCD0 5F CLRB DCD1 D724 STB LED_DIG4 DCD3 D725 STB LED_DIG5 DCD5 6DE4 TST 0,S DCD7 2A01 BPL ORIG_A_POS_1 DCD9 5C INCB DCDA D726 ORIG_A_POS_1 STB LED_DIG6 DCDC A686 LDA A,X DCDE 9727 STA LED_DIG7 DCE0 3596 PULS A,B,X,PC DCE2 8164 DISP_PARAM_GT10 CMPA #$64 'd DCE4 240C BCC DISP_PARAM_GT100 DCE6 5F CLRB DCE7 D724 STB LED_DIG4 DCE9 6DE4 TST 0,S DCEB 2A01 BPL ORIG_A_POS_2 DCED 5C INCB DCEE D725 ORIG_A_POS_2 STB LED_DIG5 DCF0 200E BRA DO_TENS DCF2 5F DISP_PARAM_GT100 CLRB DCF3 6DE4 TST 0,S DCF5 2A01 BPL ORIG_A_POS_3 DCF7 5C INCB DCF8 D724 ORIG_A_POS_3 STB LED_DIG4 DCFA C630 LDB #$30 '0 DCFC D725 STB LED_DIG5 DCFE 8064 SUBA #$64 'd DD00 5F DO_TENS CLRB DD01 5C GET_NEXT_10 INCB DD02 800A SUBA #$A DD04 810A CMPA #$A DD06 24F9 BCC GET_NEXT_10 DD08 A686 LDA A,X DD0A E685 LDB B,X DD0C 9727 STA LED_DIG7 DD0E D726 STB LED_DIG6 DD10 3596 PULS A,B,X,PC DD12 3406 DISP_SMALL_LEDS PSHS B,A DD14 5D TSTB DD15 260E BNE DISP_PARAM_DAT DD17 48 ASLA DD18 8DA9 BSR DISP_PARAM_VAL DD1A 860E LDA #$E DD1C 9720 STA LED_DIG0 DD1E B61400 LDA P0_LINK_VALS DD21 843F ANDA #$3F '? DD23 2008 BRA DISP_SEL_VAL DD25 8D9C DISP_PARAM_DAT BSR DISP_PARAM_VAL DD27 8667 LDA #$67 'g DD29 9720 STA LED_DIG0 DD2B A661 LDA $1,S DD2D 8D12 DISP_SEL_VAL BSR PROG_PARAM_NO DD2F 3586 PULS A,B,PC DD31 3406 PNT_PANL PSHS B,A DD33 F6141E LDB P0_PANEL_EDIT DD36 C43F ANDB #$3F '? DD38 9635 LDA DISP_PARAM_VAL DD3A BDDDCB JSR PAINT_LEDS DD3D 8DD3 BSR DISP_SMALL_LEDS DD3F 3586 PULS A,B,PC DD41 3416 PROG_PARAM_NO PSHS X,B,A DD43 8EF97B LDX #$F97B DD46 810A CMPA #$A DD48 2409 BCC PROG_PARAM_GT10 DD4A A686 LDA A,X DD4C 5F CLRB DD4D DD21 STD LED_DIG1 DD4F D723 STB LED_DIG3 DD51 3596 PULS A,B,X,PC DD53 5F PROG_PARAM_GT10 CLRB DD54 5C GT10_NEXT_DIGIT INCB DD55 800A SUBA #$A DD57 810A CMPA #$A DD59 24F9 BCC GT10_NEXT_DIGIT DD5B A686 LDA A,X DD5D E685 LDB B,X DD5F 9722 STA LED_DIG2 DD61 D721 STB LED_DIG1 DD63 0F23 CLR LED_DIG3 DD65 3596 PULS A,B,X,PC DD67 3474 BAD_BRD_HNDLR PSHS U,Y,X,B DD69 0F00 CLR MEM_00 DD6B CEDE31 LDU #$DE31 DD6E 108E0034 LDY #$34 DD72 8D17 BSR BAD_BRD_1 DD74 108E0600 LDY #$600 DD78 8D11 BB_CHK_NXT_INST BSR BAD_BRD_1 DD7A 31A900C0 LEAY 192,Y DD7E 108C0B40 CMPY #$B40 DD82 23F4 BLS BB_CHK_NXT_INST DD84 0300 COM MEM_00 DD86 2615 BNE PRNT_BAD_BRDS DD88 4F CLRA DD89 35F4 PULS B,X,Y,U,PC DD8B AE24 BAD_BRD_1 LDX $4,Y DD8D 270D BEQ BAD_BRD_NO_NXT DD8F A607 BB_CHK_NXT_BRD LDA $7,X DD91 44 LSRA DD92 A6C6 LDA A,U DD94 9A00 ORA MEM_00 DD96 9700 STA MEM_00 DD98 AE04 LDX $4,X DD9A 26F3 BNE BB_CHK_NXT_BRD DD9C 39 BAD_BRD_NO_NXT RTS DD9D CC4F05 PRNT_BAD_BRDS LDD #$4F05 DDA0 DD20 STD LED_DIG0 DDA2 D722 STB LED_DIG2 DDA4 4F CLRA DDA5 5F CLRB DDA6 DD23 STD LED_DIG3 DDA8 DD25 STD LED_DIG5 DDAA 9600 LDA MEM_00 DDAC 8E0028 LDX #$28 DDAF CEF982 LDU #$F982 DDB2 48 STILL_2_CHK ASLA DDB3 2404 BCC BRD_OK DDB5 E6C4 LDB 0,U DDB7 E782 STB ,-X DDB9 335F BRD_OK LEAU -1,U $1F DDBB 1183F97B CMPU #$F97B DDBF 24F1 BCC STILL_2_CHK DDC1 1F10 TFR X,D DDC3 830028 SUBD #$28 DDC6 1F98 TFR B,A DDC8 40 NEGA DDC9 35F4 PULS B,X,Y,U,PC DDCB 3416 PAINT_LEDS PSHS X,B,A DDCD B61FF7 LDA PNL_KEY_CODE DDD0 8B00 ADDA #$0 DDD2 8EDE0D LDX #$DE0D DDD5 A686 LDA A,X DDD7 972C STA LED_BLINK DDD9 F61401 LDB P0_TRNSPOSE DDDC C4F0 ANDB #$F0 DDDE B6141E LDA P0_PANEL_EDIT DDE1 2A02 BPL EDIT_B DDE3 CA08 ORB #$8 DDE5 48 EDIT_B ASLA DDE6 2A02 BPL ERROR DDE8 CA04 ORB #$4 DDEA B61400 ERROR LDA P0_LINK_VALS DDED 49 ROLA DDEE 49 ROLA DDEF 49 ROLA DDF0 49 ROLA DDF1 8406 ANDA #$6 DDF3 8B00 ADDA #$0 DDF5 8EDE29 LDX #$DE29 DDF8 A686 LDA A,X DDFA DD2A STD LED_IMAGE1 DDFC B61FF6 LDA COPY_MODE DDFF 8EDE21 LDX #$DE21 DE02 EC86 LDD A,X DE04 D32A ADDD LED_IMAGE1 DE06 DD2A STD LED_IMAGE1 DE08 FD2006 STD RD_NOTE_WR_LED DE0B 3596 PULS A,B,X,PC DE0D 0000 BLNK_IMG_00 FDB $0000 DE0F 8040 BLNK_IMG_02 FDB $8040 DE11 4020 BLNK_IMG_04 FDB $4020 DE13 2020 BLNK_IMG_06 FDB $2020 DE15 1020 BLNK_IMG_08 FDB $1020 DE17 0404 BLNK_IMG_0A FDB $0404 DE19 0808 BLNK_IMG_0C FDB $0808 DE1B 0101 BLNK_IMG_0E FDB $0101 DE1D 0202 BLNK_IMG_10 FDB $0202 DE1F 0000 BLNK_IMG_12 FDB $0000 DE21 0001 COPY_MODE_0 FDB $0001 DE23 0100 COPY_MODE_2 FDB $0100 DE25 0200 COPY_MODE_4 FDB $0200 DE27 0002 COPY_MODE_6 FDB $0002 DE29 8040 LINK_LED_1 FDB $8040 DE2B 1020 LINK_LED_2 FDB $1020 DE2D 4020 LINK_LED_3 FDB $4020 DE2F 2020 LINK_LED_4 FDB $2020 DE31 01 BRD_CHK_00 FCB $01 DE32 02 BRD_CHK_01 FCB $02 DE33 04 BRD_CHK_02 FCB $04 DE34 08 BRD_CHK_03 FCB $08 DE35 10 BRD_CHK_04 FCB $10 DE36 20 BRD_CHK_05 FCB $20 DE37 40 BRD_CHK_06 FCB $40 DE38 80 BRD_CHK_07 FCB $80 DE39 965E CALC_VEL_PRES LDA PLAYED_VEL DE3B 5F CLRB DE3C 8880 EORA #$80 DE3E ED880E STD $E,X DE41 8880 EORA #$80 DE43 B11FFC CMPA ATTACK_THRES DE46 2504 BCS USE_V_THRESH DE48 86A0 LDA #$A0 DE4A 2002 BRA NO_USE_VTHRSH DE4C 8680 USE_V_THRESH LDA #$80 DE4E ED8810 NO_USE_VTHRSH STD $10,X DE51 965F LDA PLAYED_PRES DE53 44 LSRA DE54 56 RORB DE55 44 LSRA DE56 56 RORB DE57 44 LSRA DE58 56 RORB DE59 8880 EORA #$80 DE5B ED8812 STD $12,X DE5E 8010 SUBA #$10 DE60 2B03 BMI L152 DE62 CC8000 LDD #$8000 DE65 ED8814 L152 STD $14,X DE68 960D LDA 16_CHNL_MODE DE6A 2618 BNE CALC_V_P_DONE DE6C EC880E LDD $E,X DE6F ED884E STD $4E,X DE72 EC8810 LDD $10,X DE75 ED8850 STD $50,X DE78 EC8812 LDD $12,X DE7B ED8852 STD $52,X DE7E EC8814 LDD $14,X DE81 ED8854 STD $54,X DE84 39 CALC_V_P_DONE RTS DE85 965C L11 LDA CORR_NOTE DE87 A708 STA $8,X DE89 A78819 STA $19,X DE8C 8880 EORA #$80 DE8E A78816 STA $16,X DE91 0D0D TST 16_CHNL_MODE DE93 260A BNE L153 DE95 8880 EORA #$80 DE97 A78859 STA $59,X DE9A 8880 EORA #$80 DE9C A78856 STA $56,X DE9F 39 L153 RTS DEA0 965C L13 LDA CORR_NOTE DEA2 A708 STA $8,X DEA4 A78819 STA $19,X DEA7 C880 EORB #$80 DEA9 E78816 STB $16,X DEAC A08816 SUBA $16,X DEAF 8880 EORA #$80 DEB1 2B01 BMI L154 DEB3 4C INCA DEB4 A78818 L154 STA $18,X DEB7 0D0D TST 16_CHNL_MODE DEB9 2613 BNE L155 DEBB 965C LDA CORR_NOTE DEBD A78859 STA $59,X DEC0 E78856 STB $56,X DEC3 A08856 SUBA $56,X DEC6 8880 EORA #$80 DEC8 2B01 BMI L156 DECA 4C INCA DECB A78858 L156 STA $58,X DECE C880 L155 EORB #$80 DED0 39 RTS DED1 965C STORE_NOTE2CHAN LDA CORR_NOTE DED3 A708 STA $8,X DED5 A78819 STA $19,X DED8 A08816 SUBA $16,X DEDB 2B01 BMI L157 DEDD 4C INCA DEDE A78818 L157 STA $18,X DEE1 0D0D TST 16_CHNL_MODE DEE3 260E BNE DONE_NOTE2CHAN DEE5 965C LDA CORR_NOTE DEE7 A78859 STA $59,X DEEA A08856 SUBA $56,X DEED 2B01 BMI L158 DEEF 4C INCA DEF0 A78858 L158 STA $58,X DEF3 39 DONE_NOTE2CHAN RTS DEF4 3420 DO_SWEEP_SETUP PSHS Y DEF6 10AE02 LDY $2,X DEF9 AFA814 STX $14,Y DEFC A6A81D LDA $1D,Y DEFF 44 LSRA DF00 2414 BCC FREE_RUN_SWPA DF02 CCFFFF LDD #$FFFF DF05 ED881C STD $1C,X DF08 ECA823 LDD $23,Y DF0B 1083EDF5 CMPD #$EDF5 DF0F 2705 BEQ FREE_RUN_SWPA DF11 86FF LDA #$FF DF13 A78820 STA $20,X DF16 8680 FREE_RUN_SWPA LDA #$80 DF18 A7881F STA $1F,X DF1B 960D LDA 16_CHNL_MODE DF1D 2629 BNE SWP_SETUP_DONE DF1F 308840 LEAX $40,X DF22 AFA874 STX $74,Y DF25 A6A87D LDA $7D,Y DF28 44 LSRA DF29 2415 BCC FREE_RUN_SWPB DF2B CCFFFF LDD #$FFFF DF2E ED881C STD $1C,X DF31 ECA90083 LDD 131,Y DF35 1083EDF5 CMPD #$EDF5 DF39 2705 BEQ FREE_RUN_SWPB DF3B 86FF LDA #$FF DF3D A78820 STA $20,X DF40 8680 FREE_RUN_SWPB LDA #$80 DF42 A7881F STA $1F,X DF45 3088C0 LEAX $C0,X DF48 35A0 SWP_SETUP_DONE PULS Y,PC DF4A 3460 RESTRT_NOTE_ENV PSHS U,Y DF4C 10AE02 LDY $2,X DF4F 8D29 BSR ENV_AMP_WRK1 DF51 960D LDA 16_CHNL_MODE DF53 260B BNE DONE_RESTRT_ENV DF55 308840 LEAX $40,X DF58 31A860 LEAY $60,Y DF5B 8D1D BSR ENV_AMP_WRK1 DF5D 3088C0 LEAX $C0,X DF60 35E0 DONE_RESTRT_ENV PULS Y,U,PC DF62 3460 START_NOTE_ENV PSHS U,Y DF64 10AE02 LDY $2,X DF67 8D58 BSR ENV_AMPL_WRK2 DF69 960D LDA 16_CHNL_MODE DF6B 260B BNE DONE_START_ENV DF6D 308840 LEAX $40,X DF70 31A860 LEAY $60,Y DF73 8D4C BSR ENV_AMPL_WRK2 DF75 3088C0 LEAX $C0,X DF78 35E0 DONE_START_ENV PULS Y,U,PC DF7A A6A828 ENV_AMP_WRK1 LDA $28,Y DF7D 8D75 BSR ENV_AMPL_TCH DF7F A78827 STA $27,X DF82 E6A827 LDB $27,Y DF85 E78823 STB $23,X DF88 2607 BNE L159 DF8A A08828 SUBA $28,X DF8D 2E02 BGT L159 DF8F 8601 LDA #$1 DF91 A78826 L159 STA $26,X DF94 5D TSTB DF95 2B06 BMI L160 DF97 CCEB28 LDD #$EB28 DF9A ED8824 STD $24,X DF9D A6A831 L160 LDA $31,Y DFA0 8D52 BSR ENV_AMPL_TCH DFA2 A7882F STA $2F,X DFA5 E6A830 LDB $30,Y DFA8 E7882B STB $2B,X DFAB 2607 BNE L161 DFAD A08830 SUBA $30,X DFB0 2E02 BGT L161 DFB2 8601 LDA #$1 DFB4 A7882E L161 STA $2E,X DFB7 5D TSTB DFB8 2B06 BMI EXIT_AMPLWRK1 DFBA CCEBDF LDD #$EBDF DFBD ED882C STD $2C,X DFC0 39 EXIT_AMPLWRK1 RTS DFC1 A6A828 ENV_AMPL_WRK2 LDA $28,Y DFC4 8D2E BSR ENV_AMPL_TCH DFC6 A78827 STA $27,X DFC9 A78826 STA $26,X DFCC A6A827 LDA $27,Y DFCF A78823 STA $23,X DFD2 2B06 BMI SKIP_E1_DELAY DFD4 CCEB10 LDD #$EB10 DFD7 ED8824 STD $24,X DFDA A6A831 SKIP_E1_DELAY LDA $31,Y DFDD 8D15 BSR ENV_AMPL_TCH DFDF A7882F STA $2F,X DFE2 A7882E STA $2E,X DFE5 A6A830 LDA $30,Y DFE8 A7882B STA $2B,X DFEB 2B06 BMI EXIT_AMPLWRK2 DFED CCEBC7 LDD #$EBC7 DFF0 ED882C STD $2C,X DFF3 39 EXIT_AMPLWRK2 RTS DFF4 270D ENV_AMPL_TCH BEQ TRSH_VAL_FULL DFF6 8106 CMPA #$6 DFF8 220C BHI ENV1_TCH_TRSH DFFA 2513 BCS ENV1_TCH_1TO5 DFFC 965E LDA PLAYED_VEL DFFE B11FFC CMPA ATTACK_THRES E001 250A BCS THSH_VAL_NONE E003 8620 TRSH_VAL_FULL LDA #$20 E005 39 RTS E006 965E ENV1_TCH_TRSH LDA PLAYED_VEL E008 B11FFC CMPA ATTACK_THRES E00B 25F6 BCS TRSH_VAL_FULL E00D 4F THSH_VAL_NONE CLRA E00E 39 RTS E00F D65E ENV1_TCH_1TO5 LDB PLAYED_VEL E011 C510 BITB #$10 E013 2608 BNE VEL_GT_HALF E015 40 NEGA E016 8B07 ADDA #$7 E018 D65E LDB PLAYED_VEL E01A 3D MUL E01B 2011 BRA L162 E01D 9700 VEL_GT_HALF STA MEM_00 E01F C620 LDB #$20 E021 3D MUL E022 C060 SUBB #$60 '` E024 D701 STB MEM_01 E026 9600 LDA MEM_00 E028 4C INCA E029 D65E LDB PLAYED_VEL E02B 3D MUL E02C D001 SUBB MEM_01 E02E 1F98 L162 TFR B,A E030 44 LSRA E031 39 RTS E032 CCEB6C ACTIVATE_ATK LDD #$EB6C E035 ED8824 STD $24,X E038 CCEC23 LDD #$EC23 E03B ED882C STD $2C,X E03E 960D LDA 16_CHNL_MODE E040 260C BNE EXIT_CH_ENVS E042 CCEB6C LDD #$EB6C E045 ED8864 STD $64,X E048 CCEC23 LDD #$EC23 E04B ED886C STD $6C,X E04E 39 EXIT_CH_ENVS RTS E04F 4F CHK_REL_THRSH CLRA E050 D65E LDB PLAYED_VEL E052 F11FFD CMPA RELSE_THRES E055 49 ROLA E056 A7880F STA $F,X E059 D60D LDB 16_CHNL_MODE E05B 2603 BNE EXIT_REL_THRSH E05D A7884F STA $4F,X E060 39 EXIT_REL_THRSH RTS E061 CCEB8E ACTIVATE_REL LDD #$EB8E E064 ED8824 STD $24,X E067 CCEC49 LDD #$EC49 E06A ED882C STD $2C,X E06D 960D LDA 16_CHNL_MODE E06F 260C BNE L163 E071 CCEB8E LDD #$EB8E E074 ED8864 STD $64,X E077 CCEC49 LDD #$EC49 E07A ED886C STD $6C,X E07D 39 L163 RTS E07E 3470 PUT_S_H_TO_BRD PSHS U,Y,X E080 10AE02 LDY $2,X E083 BDDA7D JSR SET_RAM006X E086 BDE965 JSR L91 E089 960D LDA 16_CHNL_MODE E08B 2612 BNE 16_CHAN_BR1 E08D 308840 LEAX $40,X E090 31A860 LEAY $60,Y E093 BDDA7D JSR SET_RAM006X E096 BDE965 JSR L91 E099 3088C0 LEAX $C0,X E09C 31A8A0 LEAY $A0,Y E09F 9607 16_CHAN_BR1 LDA RESET_VAL E0A1 8AC0 ORA #$C0 E0A3 B7200B STA WR_SHA E0A6 A607 LDA $7,X E0A8 48 ASLA E0A9 48 ASLA E0AA 4A DECA E0AB 843F ANDA #$3F '? E0AD 9707 STA RESET_VAL E0AF BDDA7D JSR SET_RAM006X E0B2 BDE76D JSR CALC_PRESS E0B5 960D LDA 16_CHNL_MODE E0B7 260C BNE 16_CHAN_BR2 E0B9 308840 LEAX $40,X E0BC 31A860 LEAY $60,Y E0BF BDDA7D JSR SET_RAM006X E0C2 BDE76D JSR CALC_PRESS E0C5 35F0 16_CHAN_BR2 PULS X,Y,U,PC E0C7 E6A865 FSW1_DESERT_OKCHK LDB $65,Y E0CA 2A47 BPL FSW_MODE_DUP E0CC C440 ANDB #$40 '@ E0CE E7A865 STB $65,Y E0D1 E6A86A LDB $6A,Y E0D4 C420 ANDB #$20 E0D6 263B BNE FSW_MODE_DUP E0D8 39 RTS E0D9 E6A865 FSW1_ASSERT_OKCHK LDB $65,Y E0DC 2B35 BMI FSW_MODE_DUP E0DE CA80 ORB #$80 E0E0 E7A865 STB $65,Y E0E3 E6A86A LDB $6A,Y E0E6 C420 ANDB #$20 E0E8 2629 BNE FSW_MODE_DUP E0EA 39 RTS E0EB E6A865 FSW2_DESERT_OKCHK LDB $65,Y E0EE C540 BITB #$40 '@ E0F0 2721 BEQ FSW_MODE_DUP E0F2 C480 ANDB #$80 E0F4 E7A865 STB $65,Y E0F7 E6A86A LDB $6A,Y E0FA C410 ANDB #$10 E0FC 2615 BNE FSW_MODE_DUP E0FE 39 RTS E0FF E6A865 FSW2_ASSERT_OKCHK LDB $65,Y E102 C540 BITB #$40 '@ E104 260D BNE FSW_MODE_DUP E106 CA40 ORB #$40 '@ E108 E7A865 STB $65,Y E10B E6A86A LDB $6A,Y E10E C410 ANDB #$10 E110 2601 BNE FSW_MODE_DUP E112 39 RTS E113 3262 FSW_MODE_DUP LEAS $2,S E115 39 RTS E116 3402 CHK_NGATE PSHS A E118 A6A86A LDA $6A,Y E11B 2A0A BPL GATEOK_PLAYNOTE E11D A8A865 EORA $65,Y E120 48 ASLA E121 2A04 BPL GATEOK_PLAYNOTE E123 3502 PULS A E125 20EC BRA FSW_MODE_DUP E127 3582 GATEOK_PLAYNOTE PULS A,PC E129 A6A86A MASK_FSW LDA $6A,Y E12C 48 ASLA E12D 48 ASLA E12E 43 COMA E12F A4A865 ANDA $65,Y E132 39 RTS E133 EC84 L164 LDD 0,X E135 EDA4 STD 0,Y E137 ECC4 LDD 0,U E139 ED84 STD 0,X E13B AFC4 STX 0,U E13D AEA4 LDX 0,Y E13F EEC4 LDU 0,U E141 39 RTS E142 3410 SET_NXT_LAST_DAT PSHS X E144 11A3E1 CMPU ,S++ E147 26EA BNE L164 E149 39 RTS E14A 3420 L1 PSHS Y E14C 11A3E1 CMPU ,S++ E14F 26E2 BNE L164 E151 3184 LEAY 0,X E153 AE84 LDX 0,X E155 EEC4 LDU 0,U E157 39 RTS E158 BDD77B PUT_NOTE_ON_STK JSR L111 E15B 2602 BNE INS_IN2_STK_AT_U E15D 4F CLRA E15E 39 RTS E15F 965C INS_IN2_STK_AT_U LDA CORR_NOTE E161 D65E LDB PLAYED_VEL E163 EDC4 STD 0,U E165 AF42 STX 2,U $2 E167 EF22 STU $2,Y E169 8601 LDA #$1 E16B 39 RTS E16C 3460 TOP_BOT_RELEASE PSHS U,Y E16E EE22 L166 LDU $2,Y E170 2715 BEQ L165 E172 A6C4 LDA 0,U E174 915C CMPA CORR_NOTE E176 2704 BEQ REL_PLAYING E178 31C4 LEAY 0,U E17A 20F2 BRA L166 E17C EC42 REL_PLAYING LDD 2,U $2 E17E ED22 STD $2,Y E180 BDD789 JSR LASTNODEFROMHEAP E183 8601 LDA #$1 E185 35E0 PULS Y,U,PC E187 4F L165 CLRA E188 35E0 PULS Y,U,PC E18A 3470 PSHS U,Y,X E18C AE22 CURR_GT_STACKN LDX $2,Y E18E 2728 BEQ ADD_NOTE_HERE E190 A684 LDA 0,X E192 915C CMPA CORR_NOTE E194 2E22 BGT ADD_NOTE_HERE E196 2724 BEQ REPL_STACK_VEL E198 3184 LEAY 0,X E19A 20F0 BRA CURR_GT_STACKN E19C 3470 ORDER_STK_DESCND PSHS U,Y,X E19E AE22 CURR_LT_STACKN LDX $2,Y E1A0 2716 BEQ ADD_NOTE_HERE E1A2 A684 LDA 0,X E1A4 915C CMPA CORR_NOTE E1A6 2D10 BLT ADD_NOTE_HERE E1A8 2712 BEQ REPL_STACK_VEL E1AA 3184 LEAY 0,X E1AC 20F0 BRA CURR_LT_STACKN E1AE 3470 PSHS U,Y,X E1B0 AE22 L167 LDX $2,Y E1B2 2704 BEQ ADD_NOTE_HERE E1B4 3184 LEAY 0,X E1B6 20F8 BRA L167 E1B8 8D9E ADD_NOTE_HERE BSR PUT_NOTE_ON_STK E1BA 35F0 PULS X,Y,U,PC E1BC 965E REPL_STACK_VEL LDA PLAYED_VEL E1BE A701 STA $1,X E1C0 8601 LDA #$1 E1C2 35F0 PULS X,Y,U,PC E1C4 3440 L19 PSHS U E1C6 EE22 LDU $2,Y E1C8 270E L170 BEQ L168 E1CA A6C4 LDA 0,U E1CC 915C CMPA CORR_NOTE E1CE 2704 BEQ L169 E1D0 EE42 LDU 2,U $2 E1D2 20F4 BRA L170 E1D4 8601 L169 LDA #$1 E1D6 35C0 PULS U,PC E1D8 4F L168 CLRA E1D9 35C0 PULS U,PC E1DB EE22 L61 LDU $2,Y E1DD 2708 L172 BEQ EXIT_ARP E1DF 4A DECA E1E0 2704 BEQ L171 E1E2 EE42 LDU 2,U $2 E1E4 20F7 BRA L172 E1E6 4C L171 INCA E1E7 39 EXIT_ARP RTS E1E8 1A00 P_LIST_0_00 FDB $1A00 E1EA 2100 P_LIST_0_01 FDB $2100 E1EC 2800 P_LIST_0_02 FDB $2800 E1EE 3000 P_LIST_0_03 FDB $3000 E1F0 1A01 P_LIST_0_04 FDB $1A01 E1F2 2101 P_LIST_0_05 FDB $2101 E1F4 2801 P_LIST_0_06 FDB $2801 E1F6 3001 P_LIST_0_07 FDB $3001 E1F8 CA02 P_LIST_0_08 FDB $CA02 E1FA CC02 P_LIST_0_09 FDB $CC02 E1FC 0A02 P_LIST_0_10 FDB $0A02 E1FE 0C02 P_LIST_0_11 FDB $0C02 E200 0E03 P_LIST_0_12 FDB $0E03 E202 1003 P_LIST_0_13 FDB $1003 E204 1203 P_LIST_0_14 FDB $1203 E206 1403 P_LIST_0_15 FDB $1403 E208 2800 P_LIST_1_0 FDB $2800 E20A 3000 P_LIST_1_1 FDB $3000 E20C 2801 P_LIST_1_2 FDB $2801 E20E 3001 P_LIST_1_3 FDB $3001 E210 00 P_LIST_2_00 FCB $00 E211 01 P_LIST_2_01 FCB $01 E212 02 P_LIST_2_02 FCB $02 E213 03 P_LIST_2_03 FCB $03 E214 04 P_LIST_2_04 FCB $04 E215 06 P_LIST_2_05 FCB $06 E216 08 P_LIST_2_06 FCB $08 E217 0A P_LIST_2_07 FCB $0A E218 0D P_LIST_2_08 FCB $0D E219 10 P_LIST_2_09 FCB $10 E21A 14 P_LIST_2_10 FCB $14 E21B 19 P_LIST_2_11 FCB $19 E21C 20 P_LIST_2_12 FCB $20 E21D 28 P_LIST_2_13 FCB $28 E21E 33 P_LIST_2_14 FCB $33 E21F 40 P_LIST_2_15 FCB $40 E220 E63F PARAM_0_VEC FDB $E63F E222 1F PARAM_0_OFF FCB $1F E223 03 PARAM_0_FMT FCB $03 E224 E300 PARAM_1_VEC FDB $E300 E226 01 PARAM_1_OFF FCB $01 E227 83 PARAM_1_FMT FCB $83 E228 E3A2 PARAM_2_VEC FDB $E3A2 E22A 05 PARAM_2_OFF FCB $05 E22B 82 PARAM_2_FMT FCB $82 E22C E3FC PARAM_3_VEC FDB $E3FC E22E 1F PARAM_3_OFF FCB $1F E22F C3 PARAM_3_FMT FCB $C3 E230 E457 PARAM_4_VEC FDB $E457 E232 02 PARAM_4_OFF FCB $02 E233 34 PARAM_4_FMT FCB $34 E234 E465 PARAM_5_VEC FDB $E465 E236 02 PARAM_5_OFF FCB $02 E237 91 PARAM_5_FMT FCB $91 E238 E48E PARAM_6_VEC FDB $E48E E23A 1C PARAM_6_OFF FCB $1C E23B 34 PARAM_6_FMT FCB $34 E23C E492 PARAM_7_VEC FDB $E492 E23E 0E PARAM_7_OFF FCB $0E E23F E0 PARAM_7_FMT FCB $E0 E240 E49F PARAM_8_VEC FDB $E49F E242 04 PARAM_8_OFF FCB $04 E243 81 PARAM_8_FMT FCB $81 E244 E4A3 PARAM_9_VEC FDB $E4A3 E246 04 PARAM_9_OFF FCB $04 E247 25 PARAM_9_FMT FCB $25 E248 E4A7 PARAM_10_VEC FDB $E4A7 E24A 03 PARAM_10_OFF FCB $03 E24B C3 PARAM_10_FMT FCB $C3 E24C E4B4 PARAM_11_VEC FDB $E4B4 E24E 06 PARAM_11_OFF FCB $06 E24F C3 PARAM_11_FMT FCB $C3 E250 E4D3 PARAM_12_VEC FDB $E4D3 E252 06 PARAM_12_OFF FCB $06 E253 83 PARAM_12_FMT FCB $83 E254 E4E0 PARAM_13_VEC FDB $E4E0 E256 09 PARAM_13_OFF FCB $09 E257 82 PARAM_13_FMT FCB $82 E258 E4E4 PARAM_14_VEC FDB $E4E4 E25A 07 PARAM_14_OFF FCB $07 E25B 34 PARAM_14_FMT FCB $34 E25C E4E8 PARAM_15_VEC FDB $E4E8 E25E 07 PARAM_15_OFF FCB $07 E25F 82 PARAM_15_FMT FCB $82 E260 E4F5 PARAM_16_VEC FDB $E4F5 E262 08 PARAM_16_OFF FCB $08 E263 34 PARAM_16_FMT FCB $34 E264 E4F9 PARAM_17_VEC FDB $E4F9 E266 08 PARAM_17_OFF FCB $08 E267 82 PARAM_17_FMT FCB $82 E268 E506 PARAM_18_VEC FDB $E506 E26A 09 PARAM_18_OFF FCB $09 E26B 34 PARAM_18_FMT FCB $34 E26C E50A PARAM_19_VEC FDB $E50A E26E 0A PARAM_19_OFF FCB $0A E26F 34 PARAM_19_FMT FCB $34 E270 E51D PARAM_20_VEC FDB $E51D E272 0D PARAM_20_OFF FCB $0D E273 82 PARAM_20_FMT FCB $82 E274 E521 PARAM_21_VEC FDB $E521 E276 0B PARAM_21_OFF FCB $0B E277 34 PARAM_21_FMT FCB $34 E278 E525 PARAM_22_VEC FDB $E525 E27A 0B PARAM_22_OFF FCB $0B E27B 82 PARAM_22_FMT FCB $82 E27C E532 PARAM_23_VEC FDB $E532 E27E 0C PARAM_23_OFF FCB $0C E27F 34 PARAM_23_FMT FCB $34 E280 E536 PARAM_24_VEC FDB $E536 E282 0C PARAM_24_OFF FCB $0C E283 82 PARAM_24_FMT FCB $82 E284 E543 PARAM_25_VEC FDB $E543 E286 0D PARAM_25_OFF FCB $0D E287 34 PARAM_25_FMT FCB $34 E288 E547 PARAM_26_VEC FDB $E547 E28A 0E PARAM_26_OFF FCB $0E E28B 05 PARAM_26_FMT FCB $05 E28C E54B PARAM_27_VEC FDB $E54B E28E 12 PARAM_27_OFF FCB $12 E28F C3 PARAM_27_FMT FCB $C3 E290 E54E PARAM_28_VEC FDB $E54E E292 0F PARAM_28_OFF FCB $0F E293 0E PARAM_28_FMT FCB $0E E294 E552 PARAM_29_VEC FDB $E552 E296 12 PARAM_29_OFF FCB $12 E297 83 PARAM_29_FMT FCB $83 E298 E555 PARAM_30_VEC FDB $E555 E29A 10 PARAM_30_OFF FCB $10 E29B 0E PARAM_30_FMT FCB $0E E29C E559 PARAM_31_VEC FDB $E559 E29E 13 PARAM_31_OFF FCB $13 E29F C3 PARAM_31_FMT FCB $C3 E2A0 E55C PARAM_32_VEC FDB $E55C E2A2 11 PARAM_32_OFF FCB $11 E2A3 0E PARAM_32_FMT FCB $0E E2A4 E560 PARAM_33_VEC FDB $E560 E2A6 14 PARAM_33_OFF FCB $14 E2A7 81 PARAM_33_FMT FCB $81 E2A8 E578 PARAM_34_VEC FDB $E578 E2AA 14 PARAM_34_OFF FCB $14 E2AB 25 PARAM_34_FMT FCB $25 E2AC E584 PARAM_35_VEC FDB $E584 E2AE 13 PARAM_35_OFF FCB $13 E2AF 83 PARAM_35_FMT FCB $83 E2B0 E587 PARAM_36_VEC FDB $E587 E2B2 15 PARAM_36_OFF FCB $15 E2B3 0E PARAM_36_FMT FCB $0E E2B4 E59D PARAM_37_VEC FDB $E59D E2B6 0F PARAM_37_OFF FCB $0F E2B7 F0 PARAM_37_FMT FCB $F0 E2B8 E5AB PARAM_38_VEC FDB $E5AB E2BA 0A PARAM_38_OFF FCB $0A E2BB 02 PARAM_38_FMT FCB $02 E2BC E5DF PARAM_39_VEC FDB $E5DF E2BE 16 PARAM_39_OFF FCB $16 E2BF 05 PARAM_39_FMT FCB $05 E2C0 E5EB PARAM_40_VEC FDB $E5EB E2C2 1A PARAM_40_OFF FCB $1A E2C3 C3 PARAM_40_FMT FCB $C3 E2C4 E5EE PARAM_41_VEC FDB $E5EE E2C6 17 PARAM_41_OFF FCB $17 E2C7 0E PARAM_41_FMT FCB $0E E2C8 E5F2 PARAM_42_VEC FDB $E5F2 E2CA 1A PARAM_42_OFF FCB $1A E2CB 83 PARAM_42_FMT FCB $83 E2CC E5F5 PARAM_43_VEC FDB $E5F5 E2CE 18 PARAM_43_OFF FCB $18 E2CF 0E PARAM_43_FMT FCB $0E E2D0 E5F9 PARAM_44_VEC FDB $E5F9 E2D2 1B PARAM_44_OFF FCB $1B E2D3 C3 PARAM_44_FMT FCB $C3 E2D4 E5FC PARAM_45_VEC FDB $E5FC E2D6 19 PARAM_45_OFF FCB $19 E2D7 0E PARAM_45_FMT FCB $0E E2D8 E600 PARAM_46_VEC FDB $E600 E2DA 1B PARAM_46_OFF FCB $1B E2DB A1 PARAM_46_FMT FCB $A1 E2DC E60D PARAM_47_VEC FDB $E60D E2DE 03 PARAM_47_OFF FCB $03 E2DF 03 PARAM_47_FMT FCB $03 E2E0 E619 PARAM_48_VEC FDB $E619 E2E2 1B PARAM_48_OFF FCB $1B E2E3 81 PARAM_48_FMT FCB $81 E2E4 E626 PARAM_49_VEC FDB $E626 E2E6 05 PARAM_49_OFF FCB $05 E2E7 43 PARAM_49_FMT FCB $43 E2E8 E632 PARAM_50_VEC FDB $E632 E2EA 1C PARAM_50_OFF FCB $1C E2EB 82 PARAM_50_FMT FCB $82 E2EC E68A PARAM_51_VEC FDB $E68A E2EE 00 PARAM_51_OFF FCB $00 E2EF 07 PARAM_51_FMT FCB $07 E2F0 E6E1 PARAM_52_VEC FDB $E6E1 E2F2 1E PARAM_52_OFF FCB $1E E2F3 07 PARAM_52_FMT FCB $07 E2F4 E741 PARAM_53_VEC FDB $E741 E2F6 20 PARAM_53_OFF FCB $20 E2F7 07 PARAM_53_FMT FCB $07 E2F8 E749 PARAM_54_VEC FDB $E749 E2FA 01 PARAM_54_OFF FCB $01 E2FB 61 PARAM_54_FMT FCB $61 E2FC E75B PARAM_55_VEC FDB $E75B E2FE 01 PARAM_55_OFF FCB $01 E2FF 41 PARAM_55_FMT FCB $41 E300 3436 PATCH_HNDLR PSHS Y,X,B,A E302 8EE392 LDX #$E392 E305 E6A80A LDB $A,Y E308 C40C ANDB #$C E30A EA86 ORB A,X E30C E7A80A STB $A,Y E30F D60B LDB PRG_UNDERWAY E311 270C BEQ PROG_DEFN_DONE E313 4D TSTA E314 2703 BEQ 16_CHAN_MODE E316 4F CLRA E317 2001 BRA 8_CHAN_MODE E319 4C 16_CHAN_MODE INCA E31A A7A863 8_CHAN_MODE STA $63,Y E31D 35B6 PULS A,B,X,Y,PC E31F 4D PROG_DEFN_DONE TSTA E320 2630 BNE NOT_16_CHNL E322 6DA863 TST $63,Y E325 2702 BEQ WAS_DEP_NOW_16 E327 35B6 PULS A,B,X,Y,PC E329 6CA863 WAS_DEP_NOW_16 INC $63,Y E32C A6A80B LDA $B,Y E32F B72008 STA RD_EOC_WR_SYND E332 AEA4 LDX 0,Y E334 274C L173 BEQ NEED_NEW_CHAN E336 BDD7EF JSR INIT_WHOLE_BRD E339 308840 LEAX $40,X E33C 10AF02 STY $2,X E33F A607 LDA $7,X E341 44 LSRA E342 8A08 ORA #$8 E344 B72009 STA WR_SYNA E347 ECA4 LDD 0,Y E349 ED84 STD 0,X E34B AFA4 STX 0,Y E34D AE88C0 LDX $C0,X E350 20E2 BRA L173 E352 6DA863 NOT_16_CHNL TST $63,Y E355 272B BEQ NEED_NEW_CHAN E357 6FA863 CLR $63,Y E35A A6A86B LDA $6B,Y E35D B72008 STA RD_EOC_WR_SYND E360 AEA4 L175 LDX 0,Y E362 271E L174 BEQ NEED_NEW_CHAN E364 BDD7AD JSR INIT_CHAN_X E367 A607 LDA $7,X E369 44 LSRA E36A 2412 BCC EVEN_CH_NO E36C 8A08 ORA #$8 E36E B72009 STA WR_SYNA E371 EC02 LDD $2,X E373 C30060 ADDD #$60 E376 ED02 STD $2,X E378 AE84 LDX 0,X E37A AFA4 STX 0,Y E37C 20E4 BRA L174 E37E 3184 EVEN_CH_NO LEAY 0,X E380 20DE BRA L175 E382 A6A818 NEED_NEW_CHAN LDA $18,Y E385 BDD8AC JSR SET_LNK_BAL E388 3536 PULS A,B,X,Y E38A 3416 PSHS X,B,A E38C A6A80A LDA $A,Y E38F 7EE479 JMP L176 E392 00 PCH_SEL_00 FCB $00 E393 00 PCH_SEL_01 FCB $00 E394 30 PCH_SEL_02 FCB $30 E395 20 PCH_SEL_03 FCB $20 E396 10 PCH_SEL_04 FCB $10 E397 03 PCH_SEL_05 FCB $03 E398 33 PCH_SEL_06 FCB $33 E399 23 PCH_SEL_07 FCB $23 E39A 13 PCH_SEL_08 FCB $13 E39B 02 PCH_SEL_09 FCB $02 E39C 32 PCH_SEL_10 FCB $32 E39D 22 PCH_SEL_11 FCB $22 E39E 12 PCH_SEL_12 FCB $12 E39F 01 PCH_SEL_13 FCB $01 E3A0 31 PCH_SEL_14 FCB $31 E3A1 21 PCH_SEL_15 FCB $21 E3A2 3446 PSHS U,B,A E3A4 CEE3F4 LDU #$E3F4 E3A7 E6C6 LDB A,U E3A9 E1A86A CMPB $6A,Y E3AC 2744 BEQ NO_FSW_CHNGE E3AE 0D0B TST PRG_UNDERWAY E3B0 2705 BEQ FSW_PROG_SETUP E3B2 E7A86A STB $6A,Y E3B5 35C6 PULS A,B,U,PC E3B7 E8A86A FSW_PROG_SETUP EORB $6A,Y E3BA A6C6 LDA A,U E3BC A7A86A STA $6A,Y E3BF C520 BITB #$20 E3C1 2717 BEQ NO_RIGHT_DISBL E3C3 3406 PSHS B,A E3C5 E6A865 LDB $65,Y E3C8 2A0E BPL FSW1_ASSERT E3CA 8520 BITA #$20 E3CC 2605 BNE FSW1_NOT_DISBL E3CE EEA80E LDU $E,Y E3D1 2003 BRA FSW1_HDNLR_JMP E3D3 EEA86E FSW1_NOT_DISBL LDU $6E,Y E3D6 AD43 FSW1_HDNLR_JMP JSR 3,U $3 E3D8 3506 FSW1_ASSERT PULS A,B E3DA C510 NO_RIGHT_DISBL BITB #$10 E3DC 2714 BEQ NO_FSW_CHNGE E3DE E6A865 LDB $65,Y E3E1 58 ASLB E3E2 2A0E BPL NO_FSW_CHNGE E3E4 8510 BITA #$10 E3E6 2605 BNE LEFT_DISBL E3E8 EEA810 LDU $10,Y E3EB 2003 BRA FSW2_HNDLR_JMP E3ED EEA870 LEFT_DISBL LDU $70,Y E3F0 AD43 FSW2_HNDLR_JMP JSR 3,U $3 E3F2 35C6 NO_FSW_CHNGE PULS A,B,U,PC E3F4 00 FSW_MODE_0 FCB $00 E3F5 20 FSW_MODE_1 FCB $20 E3F6 10 FSW_MODE_2 FCB $10 E3F7 30 FSW_MODE_3 FCB $30 E3F8 D0 FSW_MODE_4 FCB $D0 E3F9 F0 FSW_MODE_5 FCB $F0 E3FA 90 FSW_MODE_6 FCB $90 E3FB B0 FSW_MODE_7 FCB $B0 E3FC 3446 PSHS U,B,A E3FE 0D0B TST PRG_UNDERWAY E400 2612 BNE P_3_STILL_DEFN E402 A1A864 CMPA $64,Y E405 274E BEQ NO_KYBD_ALG_CHNG E407 A7A864 STA $64,Y E40A EE26 LDU $6,Y E40C BDD82E JSR INIT_BRD_4_INST E40F EF26 STU $6,Y E411 BDD8EE JSR BOARD_ASSIGN E414 A7A864 P_3_STILL_DEFN STA $64,Y E417 C610 LDB #$10 E419 3D MUL E41A CEC000 LDU #$C000 E41D 33CB LEAU D,U E41F ECC1 LDD ,U++ E421 EDA80C STD $C,Y E424 ECC1 LDD ,U++ E426 EDA86C STD $6C,Y E429 ECC1 LDD ,U++ E42B EDA86E STD $6E,Y E42E ECC1 LDD ,U++ E430 EDA80E STD $E,Y E433 ECC1 LDD ,U++ E435 EDA870 STD $70,Y E438 ECC1 LDD ,U++ E43A EDA810 STD $10,Y E43D ECC1 LDD ,U++ E43F EDA812 STD $12,Y E442 ECC4 LDD 0,U E444 EDA872 STD $72,Y E447 CCC100 LDD #$C100 E44A EDA866 STD $66,Y E44D 4F CLRA E44E 5F CLRB E44F EDA860 STD $60,Y E452 A7A862 STA $62,Y E455 35C6 NO_KYBD_ALG_CHNG PULS A,B,U,PC E457 3402 PSHS A E459 48 ASLA E45A 48 ASLA E45B 48 ASLA E45C 6FA83A CLR $3A,Y E45F A7A9009A STA 154,Y E463 3582 PULS A,PC E465 3416 OUTPUT_SEL PSHS X,B,A E467 48 ASLA E468 48 ASLA E469 3402 PSHS A E46B A6A80A LDA $A,Y E46E 8433 ANDA #$33 '3 E470 AAE0 ORA ,S+ E472 A7A80A STA $A,Y E475 D60B LDB PRG_UNDERWAY E477 2613 BNE EXIT_OUT_SEL E479 B72008 L176 STA RD_EOC_WR_SYND E47C AE24 LDX $4,Y E47E 270C BEQ EXIT_OUT_SEL E480 A607 OS_MORE_LNK_CHAN LDA $7,X E482 44 LSRA E483 8A10 ORA #$10 E485 B72009 STA WR_SYNA E488 AE04 LDX $4,X E48A 26F4 BNE OS_MORE_LNK_CHAN E48C 3596 EXIT_OUT_SEL PULS A,B,X,PC E48E A7A819 STA $19,Y E491 39 RTS E492 3412 PSHS X,A E494 48 ASLA E495 8EEA98 LDX #$EA98 E498 AE86 LDX A,X E49A AFA81A STX $1A,Y E49D 3592 PULS A,X,PC E49F A7A81D STA $1D,Y E4A2 39 RTS E4A3 A7A81C STA $1C,Y E4A6 39 RTS E4A7 3412 PSHS X,A E4A9 48 ASLA E4AA 8EE982 LDX #$E982 E4AD AE86 LDX A,X E4AF AFA821 STX $21,Y E4B2 3592 PULS A,X,PC E4B4 3412 PSHS X,A E4B6 48 ASLA E4B7 8EED8F LDX #$ED8F E4BA AE86 LDX A,X E4BC AFA823 STX $23,Y E4BF ABE4 ADDA 0,S E4C1 8EFA0D LDX #$FA0D E4C4 AE86 LDX A,X E4C6 AFA81F STX $1F,Y E4C9 8EFA0F LDX #$FA0F E4CC A686 LDA A,X E4CE A7A81E STA $1E,Y E4D1 3592 PULS A,X,PC E4D3 3412 PSHS X,A E4D5 48 ASLA E4D6 8EEE2D LDX #$EE2D E4D9 AE86 LDX A,X E4DB AFA825 STX $25,Y E4DE 3592 PULS A,X,PC E4E0 A7A828 STA $28,Y E4E3 39 RTS E4E4 A7A829 STA $29,Y E4E7 39 RTS E4E8 3412 PSHS X,A E4EA 48 ASLA E4EB 8EEC85 LDX #$EC85 E4EE AE86 LDX A,X E4F0 AFA82A STX $2A,Y E4F3 3592 PULS A,X,PC E4F5 A7A82C STA $2C,Y E4F8 39 RTS E4F9 3412 PSHS X,A E4FB 48 ASLA E4FC 8EECE7 LDX #$ECE7 E4FF AE86 LDX A,X E501 AFA82D STX $2D,Y E504 3592 PULS A,X,PC E506 A7A82F STA $2F,Y E509 39 RTS E50A 3402 PSHS A E50C 811F CMPA #$1F E50E 2507 BCS TIMED_DELAY E510 86FF LDA #$FF E512 A7A830 STA $30,Y E515 3582 PULS A,PC E517 48 TIMED_DELAY ASLA E518 A7A830 STA $30,Y E51B 3582 PULS A,PC E51D A7A831 STA $31,Y E520 39 RTS E521 A7A832 STA $32,Y E524 39 RTS E525 3412 PSHS X,A E527 48 ASLA E528 8EEC85 LDX #$EC85 E52B AE86 LDX A,X E52D AFA833 STX $33,Y E530 3592 PULS A,X,PC E532 A7A835 STA $35,Y E535 39 RTS E536 3412 PSHS X,A E538 48 ASLA E539 8EECE7 LDX #$ECE7 E53C AE86 LDX A,X E53E AFA836 STX $36,Y E541 3592 PULS A,X,PC E543 A7A838 STA $38,Y E546 39 RTS E547 A7A839 STA $39,Y E54A 39 RTS E54B 8D3E BSR PICK_LIST E54D 3B PARAM27_DAT FCB $3B E54E A7A83D STA $3D,Y E551 39 RTS E552 8D37 BSR PICK_LIST E554 3E PARAM29_DAT FCB $3E E555 A7A840 STA $40,Y E558 39 RTS E559 8D30 BSR PICK_LIST E55B 41 PARAM31_DAT FCB $41 E55C A7A843 STA $43,Y E55F 39 RTS E560 3416 PSHS X,B,A E562 48 ASLA E563 48 ASLA E564 48 ASLA E565 48 ASLA E566 3402 PSHS A E568 A6A80B LDA $B,Y E56B 840F ANDA #$F E56D AAE0 ORA ,S+ E56F A7A80B STA $B,Y E572 D60B LDB PRG_UNDERWAY E574 274A BEQ STOR_FILT_DAT E576 3596 PULS A,B,X,PC E578 3406 PSHS B,A E57A 5F CLRB E57B 44 LSRA E57C 56 RORB E57D 44 LSRA E57E 56 RORB E57F EDA844 STD $44,Y E582 3586 PULS A,B,PC E584 8D05 BSR PICK_LIST E586 46 PARAM35_DAT FCB $46 E587 A7A848 STA $48,Y E58A 39 RTS E58B 3416 PICK_LIST PSHS X,B,A E58D E6F804 LDB [$4,S] E590 48 ASLA E591 8EE1E8 LDX #$E1E8 E594 AE86 LDX A,X E596 AFA5 STX B,Y E598 3516 PULS A,B,X E59A 3262 LEAS $2,S E59C 39 RTS E59D 3416 PSHS X,B,A E59F 48 ASLA E5A0 48 ASLA E5A1 48 ASLA E5A2 3402 PSHS A E5A4 A6A80B LDA $B,Y E5A7 8437 ANDA #$37 '7 E5A9 200C BRA SET_FILTER E5AB 3416 PSHS X,B,A E5AD 43 COMA E5AE 8407 ANDA #$7 E5B0 3402 PSHS A E5B2 A6A80B LDA $B,Y E5B5 8438 ANDA #$38 '8 E5B7 AAE0 SET_FILTER ORA ,S+ E5B9 A7A80B STA $B,Y E5BC D60B LDB PRG_UNDERWAY E5BE 261D BNE NO_CHNL_UPDATE E5C0 B72008 STOR_FILT_DAT STA RD_EOC_WR_SYND E5C3 8E0200 LDX #$200 E5C6 10AC02 DO_ALL_CHNLS CMPY $2,X E5C9 260A BNE NEXT_CHANNEL E5CB A607 LDA $7,X E5CD 44 LSRA E5CE 2402 BCC STORE_SYNA E5D0 8A08 ORA #$8 E5D2 B72009 STORE_SYNA STA WR_SYNA E5D5 308840 NEXT_CHANNEL LEAX $40,X E5D8 8C05C0 CMPX #$5C0 E5DB 23E9 BLS DO_ALL_CHNLS E5DD 3596 NO_CHNL_UPDATE PULS A,B,X,PC E5DF 3406 PSHS B,A E5E1 5F CLRB E5E2 44 LSRA E5E3 56 RORB E5E4 44 LSRA E5E5 56 RORB E5E6 EDA849 STD $49,Y E5E9 3586 PULS A,B,PC E5EB 8D9E BSR PICK_LIST E5ED 4B PARAM40_DAT FCB $4B E5EE A7A84D STA $4D,Y E5F1 39 RTS E5F2 8D97 BSR PICK_LIST E5F4 4E PARAM42_DAT FCB $4E E5F5 A7A850 STA $50,Y E5F8 39 RTS E5F9 8D90 BSR PICK_LIST E5FB 51 PARAM44_DAT FCB $51 E5FC A7A853 STA $53,Y E5FF 39 RTS E600 3412 PSHS X,A E602 48 ASLA E603 8EE208 LDX #$E208 E606 AE86 LDX A,X E608 AFA854 STX $54,Y E60B 3592 PULS A,X,PC E60D 3412 PSHS X,A E60F 8EE210 LDX #$E210 E612 A686 LDA A,X E614 A7A856 STA $56,Y E617 3592 PULS A,X,PC E619 3412 PSHS X,A E61B 48 ASLA E61C 8EE208 LDX #$E208 E61F AE86 LDX A,X E621 AFA857 STX $57,Y E624 3592 PULS A,X,PC E626 3412 PSHS X,A E628 8EE210 LDX #$E210 E62B A686 LDA A,X E62D A7A859 STA $59,Y E630 3592 PULS A,X,PC E632 3412 PSHS X,A E634 48 ASLA E635 8EE8D8 LDX #$E8D8 E638 AE86 LDX A,X E63A AFA85A STX $5A,Y E63D 3592 PULS A,X,PC E63F 3436 SETUP_INST01_VOL PSHS Y,X,B,A E641 F61400 LDB P0_LINK_VALS E644 C4C0 ANDB #$C0 E646 2721 BEQ NO_PROG_LINK E648 F6141F LDB P0_LINK_BALNCE E64B C40F ANDB #$F E64D C808 EORB #$8 E64F C008 SUBB #$8 E651 8EE681 LDX #$E681 E654 A685 LDA B,X E656 108E0600 LDY #$600 E65A BDD8AC JSR SET_LNK_BAL E65D 50 NEGB E65E A685 LDA B,X E660 108E06C0 LDY #$6C0 E664 BDD8AC JSR SET_LNK_BAL E667 35B6 PULS A,B,X,Y,PC E669 86FF NO_PROG_LINK LDA #$FF E66B B70618 STA L177 E66E B70678 STA L178 E671 B706D8 STA L179 E674 B70738 STA L180 E677 35B6 PULS A,B,X,Y,PC E679 FF LNK_BAL_NEG8 FCB $FF E67A FF LNK_BAL_NEG7 FCB $FF E67B FF LNK_BAL_NEG6 FCB $FF E67C FF LNK_BAL_NEG5 FCB $FF E67D FF LNK_BAL_NEG4 FCB $FF E67E FF LNK_BAL_NEG3 FCB $FF E67F FF LNK_BAL_NEG2 FCB $FF E680 FF LNK_BAL_NEG1 FCB $FF E681 FF LNK_BAL_0 FCB $FF E682 CB LNK_BAL_POS1 FCB $CB E683 A1 LNK_BAL_POS2 FCB $A1 E684 80 LNK_BAL_POS3 FCB $80 E685 66 LNK_BAL_POS4 FCB $66 E686 51 LNK_BAL_POS5 FCB $51 E687 40 LNK_BAL_POS6 FCB $40 E688 33 LNK_BAL_POS7 FCB $33 E689 33 LNK_BAL_POS8 FCB $33 E68A 3466 PSHS U,Y,B,A E68C 843F ANDA #$3F '? E68E 2704 BEQ LINK_PROG_0 E690 8150 CMPA #$50 'P E692 230A BLS LINK_P_NO_OK E694 A6E4 LINK_PROG_0 LDA 0,S E696 84C0 ANDA #$C0 E698 4C INCA E699 A7E4 STA 0,S E69B B71400 STA P0_LINK_VALS E69E A6E4 LINK_P_NO_OK LDA 0,S E6A0 C63B LDB #$3B '; E6A2 3D MUL E6A3 CE1400 LDU #$1400 E6A6 33CB LEAU D,U E6A8 108E06C0 LDY #$6C0 E6AC A6E4 LDA 0,S E6AE 84C0 ANDA #$C0 E6B0 271C BEQ L181 E6B2 BDD82E JSR INIT_BRD_4_INST E6B5 EF26 STU $6,Y E6B7 BDD7FA JSR INVOKE_PROG E6BA FC0608 LDD L182 E6BD EDA808 STD $8,Y E6C0 FC0668 LDD L183 E6C3 EDA868 STD $68,Y E6C6 B60665 LDA L184 E6C9 A7A865 STA $65,Y E6CC 2008 BRA L185 E6CE 11A326 L181 CMPU $6,Y E6D1 2606 BNE L186 E6D3 BDD82E JSR INIT_BRD_4_INST E6D6 BDD8EE L185 JSR BOARD_ASSIGN E6D9 BDE63F L186 JSR SETUP_INST01_VOL E6DC BDDDCB JSR PAINT_LEDS E6DF 35E6 PULS A,B,Y,U,PC E6E1 3456 PARAM_EDIT PSHS U,X,B,A E6E3 CE1400 LDU #$1400 E6E6 B6141E LDA P0_PANEL_EDIT E6E9 85C0 BITA #$C0 E6EB 2605 BNE EDIT_OK E6ED 8AC0 ORA #$C0 E6EF B7141E STA P0_PANEL_EDIT E6F2 843F EDIT_OK ANDA #$3F '? E6F4 8132 CMPA #$32 '2 E6F6 230A BLS PARAM_LT_50 E6F8 B6141E LDA P0_PANEL_EDIT E6FB 84C0 ANDA #$C0 E6FD 8A01 ORA #$1 E6FF B7141E STA P0_PANEL_EDIT E702 B6141E PARAM_LT_50 LDA P0_PANEL_EDIT E705 2B0A BMI CNTRL_PARAM E707 843F ANDA #$3F '? E709 8105 CMPA #$5 E70B 2304 BLS CNTRL_PARAM E70D 8B32 ADDA #$32 '2 E70F 2002 BRA B_PARAM E711 843F CNTRL_PARAM ANDA #$3F '? E713 1F89 B_PARAM TFR A,B E715 BDDB02 JSR CHK_PARAM_DATA E718 9735 STA DISP_PARAM_VAL E71A F6141E LDB P0_PANEL_EDIT E71D C43F ANDB #$3F '? E71F BDDD12 JSR DISP_SMALL_LEDS E722 962D LDA CONV_MAIN_POT E724 971D STA MAIN_POT_ADC E726 A603 LDA $3,X E728 8407 ANDA #$7 E72A CEE73A LDU #$E73A E72D A6C6 LDA A,U E72F 5D TSTB E730 2601 BNE PARAM_SLIDE_OK E732 4F CLRA E733 9736 PARAM_SLIDE_OK STA SLIDER_DIVISOR E735 BDDDCB JSR PAINT_LEDS E738 35D6 PULS A,B,X,U,PC E73A 02 ALLOW_STE_00 FCB $02 E73B 04 ALLOW_STE_01 FCB $04 E73C 08 ALLOW_STE_02 FCB $08 E73D 10 ALLOW_STE_03 FCB $10 E73E 20 ALLOW_STE_04 FCB $20 E73F 41 ALLOW_STE_05 FCB $41 E740 82 ALLOW_STE_06 FCB $82 E741 48 ASLA E742 48 ASLA E743 2803 BVC SPLIT_EXIT E745 7F1420 CLR P0_KBRD_SPLT E748 39 SPLIT_EXIT RTS E749 8103 CMPA #$3 E74B 1025F67C LBCS PAINT_LEDS E74F B61401 LDA P0_TRNSPOSE E752 843F ANDA #$3F '? E754 B71401 STA P0_TRNSPOSE E757 4F CLRA E758 7EDDCB JMP PAINT_LEDS E75B 8103 CMPA #$3 E75D 1025F66A LBCS PAINT_LEDS E761 B61401 LDA P0_TRNSPOSE E764 84CF ANDA #$CF E766 B71401 STA P0_TRNSPOSE E769 4F CLRA E76A 7EDDCB JMP PAINT_LEDS E76D A68835 CALC_PRESS LDA $35,X E770 976E STA LAST_KEY_ROW E772 A609 LDA $9,X E774 970C STA SWEEP_INDEX E776 CE0060 LDU #$60 E779 EC881A LDD $1A,X E77C 48 ASLA E77D 2802 BVC L187 E77F 0C0C INC SWEEP_INDEX E781 47 L187 ASRA E782 D348 ADDD MASTER_TUNE1 E784 E3A839 ADDD $39,Y E787 8D48 BSR L188 E789 E38833 ADDD $33,X E78C DD00 STD MEM_00 E78E A6A83D LDA $3D,Y E791 270E BEQ L189 E793 9705 STA MEM_05 E795 ECA83B LDD $3B,Y E798 BDE845 JSR L190 E79B 8D32 BSR L191 E79D D300 ADDD MEM_00 E79F DD00 STD MEM_00 E7A1 A6A840 L189 LDA $40,Y E7A4 270E BEQ L192 E7A6 9705 STA MEM_05 E7A8 ECA83E LDD $3E,Y E7AB BDE845 JSR L190 E7AE 8D23 BSR L193 E7B0 D300 ADDD MEM_00 E7B2 DD00 STD MEM_00 E7B4 A6A843 L192 LDA $43,Y E7B7 270C BEQ L194 E7B9 9705 STA MEM_05 E7BB ECA841 LDD $41,Y E7BE BDE845 JSR L190 E7C1 D300 ADDD MEM_00 E7C3 DD00 STD MEM_00 E7C5 CC0FFF L194 LDD #$FFF E7C8 9300 SUBD MEM_00 E7CA BDE86C JSR L195 E7CD 2009 BRA L196 E7CF 47 L191 ASRA E7D0 56 RORB E7D1 47 L188 ASRA E7D2 56 RORB E7D3 47 L193 ASRA E7D4 56 RORB E7D5 47 ASRA E7D6 56 RORB E7D7 39 RTS E7D8 86FF L196 LDA #$FF E7DA 976E STA LAST_KEY_ROW E7DC A609 LDA $9,X E7DE 970C STA SWEEP_INDEX E7E0 A6A848 LDA $48,Y E7E3 9705 STA MEM_05 E7E5 CE0060 LDU #$60 E7E8 ECA846 LDD $46,Y E7EB 8D58 BSR L190 E7ED 58 ASLB E7EE 49 ROLA E7EF E3A844 ADDD $44,Y E7F2 8D78 BSR L195 E7F4 A68838 LDA $38,X E7F7 976E STA LAST_KEY_ROW E7F9 A609 LDA $9,X E7FB 970C STA SWEEP_INDEX E7FD CE0060 LDU #$60 E800 DC48 LDD MASTER_TUNE1 E802 8DCD BSR L188 E804 E3A849 ADDD $49,Y E807 E38836 ADDD $36,X E80A DD00 STD MEM_00 E80C A6A84D LDA $4D,Y E80F 270B BEQ L197 E811 9705 STA MEM_05 E813 ECA84B LDD $4B,Y E816 8D2D BSR L190 E818 D300 ADDD MEM_00 E81A DD00 STD MEM_00 E81C A6A850 L197 LDA $50,Y E81F 270B BEQ L198 E821 9705 STA MEM_05 E823 ECA84E LDD $4E,Y E826 8D1D BSR L190 E828 D300 ADDD MEM_00 E82A DD00 STD MEM_00 E82C A6A853 L198 LDA $53,Y E82F 270B BEQ L199 E831 9705 STA MEM_05 E833 ECA851 LDD $51,Y E836 8D0D BSR L190 E838 D300 ADDD MEM_00 E83A DD00 STD MEM_00 E83C CC0FFF L199 LDD #$FFF E83F 9300 SUBD MEM_00 E841 8D29 BSR L195 E843 205E BRA L200 E845 ABC5 L190 ADDA B,U E847 EC86 LDD A,X E849 48 ASLA E84A 2802 BVC L201 E84C 0C0C INC SWEEP_INDEX E84E 47 L201 ASRA E84F DD02 STD MEM_02 E851 9605 LDA MEM_05 E853 3D MUL E854 9704 STA MEM_04 E856 9605 LDA MEM_05 E858 D602 LDB MEM_02 E85A 3D MUL E85B DB04 ADDB MEM_04 E85D 8900 ADCA #$0 E85F 0D05 TST MEM_05 E861 2A02 BPL L202 E863 9302 SUBD MEM_02 E865 0D02 L202 TST MEM_02 E867 2A02 BPL L203 E869 9005 SUBA MEM_05 E86B 39 L203 RTS E86C 2A05 L195 BPL L204 E86E CE0000 LDU #$0 E871 200B BRA WR_U_2_DAC E873 810F L204 CMPA #$F E875 2305 BLS WR_D_2_DAC E877 CE0FFF LDU #$FFF E87A 2002 BRA WR_U_2_DAC E87C 1F03 WR_D_2_DAC TFR D,U E87E C680 WR_U_2_DAC LDB #$80 E880 960C LDA SWEEP_INDEX E882 8101 CMPA #$1 E884 56 RORB E885 DA07 ORB RESET_VAL E887 F7200B STB WR_SHA E88A 9607 LDA RESET_VAL E88C 4C INCA E88D 843F ANDA #$3F '? E88F 9707 STA RESET_VAL E891 C4C0 ANDB #$C0 E893 DA07 ORB RESET_VAL E895 966E LDA LAST_KEY_ROW E897 FD200A STD WR_RDAC E89A FF200C STU WR_MDAC E89D C4BF ANDB #$BF E89F F7200B STB WR_SHA E8A2 39 RTS E8A3 86FF L200 LDA #$FF E8A5 976E STA LAST_KEY_ROW E8A7 CE0060 LDU #$60 E8AA A609 LDA $9,X E8AC 970C STA SWEEP_INDEX E8AE 4F CLRA E8AF 5F CLRB E8B0 A709 STA $9,X E8B2 DD00 STD MEM_00 E8B4 A6A856 LDA $56,Y E8B7 270B BEQ L205 E8B9 9705 STA MEM_05 E8BB ECA854 LDD $54,Y E8BE 8D85 BSR L190 E8C0 D300 ADDD MEM_00 E8C2 DD00 STD MEM_00 E8C4 A6A859 L205 LDA $59,Y E8C7 270C BEQ L206 E8C9 9705 STA MEM_05 E8CB ECA857 LDD $57,Y E8CE BDE845 JSR L190 E8D1 D300 ADDD MEM_00 E8D3 DD00 STD MEM_00 E8D5 6EB85A L206 JMP [$5A,Y] E8D8 E8E8 V_MOD_SEL_00 FDB $E8E8 E8DA E8ED V_MOD_SEL_01 FDB $E8ED E8DC E8F6 V_MOD_SEL_02 FDB $E8F6 E8DE E915 V_MOD_SEL_03 FDB $E915 E8E0 E92B V_MOD_SEL_04 FDB $E92B E8E2 E92F V_MOD_SEL_05 FDB $E92F E8E4 E933 V_MOD_SEL_06 FDB $E933 E8E6 E93B V_MOD_SEL_07 FDB $E93B E8E8 A6A818 LDA $18,Y E8EB 2065 BRA L207 E8ED EC8812 LDD $12,X E8F0 847F ANDA #$7F E8F2 8B20 ADDA #$20 E8F4 2050 BRA L208 E8F6 A6881A LDA $1A,X E8F9 48 ASLA E8FA 2802 BVC L209 E8FC 0C0C INC SWEEP_INDEX E8FE 47 L209 ASRA E8FF 811F CMPA #$1F E901 2D04 BLT L210 E903 8681 LDA #$81 E905 2047 BRA L211 E907 81E0 L210 CMPA #$E0 E909 2E04 BGT L212 E90B 86FF LDA #$FF E90D 203F BRA L211 E90F 48 L212 ASLA E910 40 NEGA E911 8BBF ADDA #$BF E913 2039 BRA L211 E915 8621 LDA #$21 '! E917 9B60 ADDA L140 E919 EC86 LDD A,X E91B 58 ASLB E91C 49 ROLA E91D 2802 BVC L213 E91F 0C0C INC SWEEP_INDEX E921 3406 L213 PSHS B,A E923 47 ASRA E924 56 RORB E925 E3E1 ADDD ,S++ E927 8B9F ADDA #$9F E929 2023 BRA L211 E92B 860A LDA #$A E92D 2006 BRA L214 E92F 860A LDA #$A E931 200A BRA L215 E933 860C LDA #$C E935 9B62 L214 ADDA L138 E937 EC86 LDD A,X E939 2009 BRA L216 E93B 860C LDA #$C E93D 9B62 L215 ADDA L138 E93F EC86 LDD A,X E941 880F EORA #$F E943 53 COMB E944 58 L216 ASLB E945 49 ROLA E946 58 L208 ASLB E947 49 ROLA E948 58 ASLB E949 49 ROLA E94A 2402 BCC L211 E94C 86FF LDA #$FF E94E E6A818 L211 LDB $18,Y E951 3D MUL E952 9702 L207 STA MEM_02 E954 D601 LDB MEM_01 E956 3D MUL E957 D602 LDB MEM_02 E959 9702 STA MEM_02 E95B 9600 LDA MEM_00 E95D 3D MUL E95E DB02 ADDB MEM_02 E960 8900 ADCA #$0 E962 7EE873 JMP L204 E965 A6A81D L91 LDA $1D,Y E968 4A DECA E969 2F14 BLE FREE_RUN_SWP E96B ACA814 CMPX $14,Y E96E 270F BEQ FREE_RUN_SWP E970 EEA814 LDU $14,Y E973 ECC81C LDD 28,U E976 ED881C STD $1C,X E979 A6C81E LDA 30,U E97C 7EEA42 JMP L217 E97F 6EB821 FREE_RUN_SWP JMP [$21,Y] E982 E9A2 SWP_RM_VEC_00 FDB $E9A2 E984 E9A7 SWP_RM_VEC_01 FDB $E9A7 E986 E9AC SWP_RM_VEC_02 FDB $E9AC E988 E9B1 SWP_RM_VEC_03 FDB $E9B1 E98A E9B7 SWP_RM_VEC_04 FDB $E9B7 E98C E9BE SWP_RM_VEC_05 FDB $E9BE E98E E9C6 SWP_RM_VEC_06 FDB $E9C6 E990 E9CB SWP_RM_VEC_07 FDB $E9CB E992 E9D3 SWP_RM_VEC_08 FDB $E9D3 E994 E9D7 SWP_RM_VEC_09 FDB $E9D7 E996 E9DB SWP_RM_VEC_10 FDB $E9DB E998 E9E3 SWP_RM_VEC_11 FDB $E9E3 E99A E9EC SWP_RM_VEC_12 FDB $E9EC E99C E9F0 SWP_RM_VEC_13 FDB $E9F0 E99E E9F4 SWP_RM_VEC_14 FDB $E9F4 E9A0 E9FC SWP_RM_VEC_15 FDB $E9FC E9A2 A6A81C LDA $1C,Y E9A5 2072 BRA DONE_SWP_R_CLC E9A7 A68812 LDA $12,X E9AA 2017 BRA K_DYN_MOD E9AC A68819 LDA $19,X E9AF 2053 BRA L218 E9B1 A68819 LDA $19,X E9B4 40 NEGA E9B5 204D BRA L218 E9B7 A6880E LDA $E,X E9BA 8010 SUBA #$10 E9BC 2005 BRA K_DYN_MOD E9BE 8610 LDA #$10 E9C0 A0880E SUBA $E,X E9C3 48 K_DYN_MOD ASLA E9C4 203E BRA L218 E9C6 A68830 LDA $30,X E9C9 2004 BRA ENV_MOD E9CB A68830 LDA $30,X E9CE 40 NEGA E9CF 48 ENV_MOD ASLA E9D0 47 ASRA E9D1 2031 BRA L218 E9D3 860A LDA #$A E9D5 2006 BRA PEDAL_PSVE E9D7 860A LDA #$A E9D9 200A BRA PEDAL_NGVE E9DB 860C LDA #$C E9DD 9B62 PEDAL_PSVE ADDA L138 E9DF A686 LDA A,X E9E1 2022 BRA L219 E9E3 860C LDA #$C E9E5 9B62 PEDAL_NGVE ADDA L138 E9E7 A686 LDA A,X E9E9 40 NEGA E9EA 2019 BRA L219 E9EC 86CA LDA #$CA E9EE 2006 BRA LEVER_PSVE E9F0 86CA LDA #$CA E9F2 200A BRA L220 E9F4 86CC LDA #$CC E9F6 9B62 LEVER_PSVE ADDA L138 E9F8 A686 LDA A,X E9FA 2007 BRA L221 E9FC 86CC LDA #$CC E9FE 9B62 L220 ADDA L138 EA00 A686 LDA A,X EA02 40 NEGA EA03 47 L221 ASRA EA04 47 L218 ASRA EA05 47 L219 ASRA EA06 9700 STA MEM_00 EA08 47 ASRA EA09 9B00 ADDA MEM_00 EA0B ABA81C ADDA $1C,Y EA0E 2C03 BGE L222 EA10 4F CLRA EA11 2006 BRA DONE_SWP_R_CLC EA13 813F L222 CMPA #$3F '? EA15 2F02 BLE DONE_SWP_R_CLC EA17 863F LDA #$3F '? EA19 48 DONE_SWP_R_CLC ASLA EA1A CEF98D LDU #$F98D EA1D ECC6 LDD A,U EA1F 6DA81D TST $1D,Y EA22 2614 BNE NOT_AYNC_F_RUN EA24 9700 STA MEM_00 EA26 9607 LDA RESET_VAL EA28 8AC0 ORA #$C0 EA2A 3D MUL EA2B 9701 STA MEM_01 EA2D D600 LDB MEM_00 EA2F 9607 LDA RESET_VAL EA31 8AC0 ORA #$C0 EA33 3D MUL EA34 DB01 ADDB MEM_01 EA36 8900 ADCA #$0 EA38 E3881C NOT_AYNC_F_RUN ADDD $1C,X EA3B 1F03 TFR D,U EA3D 1FA8 TFR CC,A EA3F EF881C STU $1C,X EA42 A7881E L217 STA $1E,X EA45 8403 ANDA #$3 EA47 272A BEQ K_ALG_LE_5 EA49 D660 LDB L140 EA4B 2B26 BMI K_ALG_LE_5 EA4D 44 LSRA EA4E 2408 BCC L223 EA50 ADB812 JSR [$12,Y] EA53 CCEBDF LDD #$EBDF EA56 2006 BRA L224 EA58 ADB872 L223 JSR [$72,Y] EA5B CCEC49 LDD #$EC49 EA5E 6DA830 L224 TST $30,Y EA61 2A03 BPL SOME_ENV2_DLY EA63 ED882C STD $2C,X EA66 0D61 SOME_ENV2_DLY TST L139 EA68 2709 BEQ K_ALG_LE_5 EA6A 6DA90090 TST 144,Y EA6E 2A03 BPL K_ALG_LE_5 EA70 ED886C STD $6C,X EA73 A68819 K_ALG_LE_5 LDA $19,X EA76 5F CLRB EA77 10A38816 CMPD $16,X EA7B 1027008B LBEQ L225 EA7F 6DA819 TST $19,Y EA82 2707 BEQ GLIDE_RAT_0 EA84 A68816 LDA $16,X EA87 48 ASLA EA88 2808 BVC L226 EA8A 47 ASRA EA8B ED8816 GLIDE_RAT_0 STD $16,X EA8E 8880 EORA #$80 EA90 2078 BRA L225 EA92 A6A819 L226 LDA $19,Y EA95 6EB81A JMP [$1A,Y] EA98 EA9C GLIDE_VEC_00 FDB $EA9C EA9A EAD6 GLIDE_VEC_01 FDB $EAD6 EA9C 48 ASLA EA9D CEF8EA LDU #$F8EA EAA0 33C6 LEAU A,U EAA2 A68818 LDA $18,X EAA5 E641 LDB 1,U $1 EAA7 3D MUL EAA8 9700 STA MEM_00 EAAA A68818 LDA $18,X EAAD E6C4 LDB 0,U EAAF 3D MUL EAB0 DB00 ADDB MEM_00 EAB2 8900 ADCA #$0 EAB4 6D8818 TST $18,X EAB7 2B0A BMI L227 EAB9 E38816 ADDD $16,X EABC A18819 CMPA $19,X EABF 2D10 BLT PORT_LT_PLAYED EAC1 200A BRA PORT_GE_PLAYED EAC3 A3C4 L227 SUBD 0,U EAC5 E38816 ADDD $16,X EAC8 A18819 CMPA $19,X EACB 2C04 BGE PORT_LT_PLAYED EACD A68819 PORT_GE_PLAYED LDA $19,X EAD0 5F CLRB EAD1 ED8816 PORT_LT_PLAYED STD $16,X EAD4 2034 BRA L225 EAD6 CEF94A LDU #$F94A EAD9 E6C6 LDB A,U EADB A68818 LDA $18,X EADE 2B0B BMI GLISS_NEG EAE0 4F CLRA EAE1 E38816 ADDD $16,X EAE4 A18819 CMPA $19,X EAE7 2D10 BLT GLISS_LT_PLAYED EAE9 200A BRA L228 EAEB 50 GLISS_NEG NEGB EAEC 1D SEX EAED E38816 ADDD $16,X EAF0 A18819 CMPA $19,X EAF3 2C04 BGE GLISS_LT_PLAYED EAF5 A68819 L228 LDA $19,X EAF8 5F CLRB EAF9 A18816 GLISS_LT_PLAYED CMPA $16,X EAFC 2708 BEQ L229 EAFE ED8816 STD $16,X EB01 5F CLRB EB02 8880 EORA #$80 EB04 2004 BRA L225 EB06 ED8816 L229 STD $16,X EB09 5F CLRB EB0A ED881A L225 STD $1A,X EB0D 6E9824 JMP [$24,X] EB10 A68823 LDA $23,X EB13 2F05 BLE L230 EB15 6A8823 DEC $23,X EB18 2005 BRA ENV1_INST_ATK EB1A A6A829 L230 LDA $29,Y EB1D 2719 BEQ INST_ENV1_ATK EB1F CCEB28 ENV1_INST_ATK LDD #$EB28 EB22 ED8824 STD $24,X EB25 7EEBB1 JMP ENV1_INST_REL EB28 A68823 LDA $23,X EB2B 2F06 BLE L231 EB2D 6A8823 DEC $23,X EB30 7EEBB1 JMP ENV1_INST_REL EB33 A6A829 L231 LDA $29,Y EB36 2612 BNE L232 EB38 CCEB6C INST_ENV1_ATK LDD #$EB6C EB3B ED8824 STD $24,X EB3E A68827 LDA $27,X EB41 5F CLRB EB42 8880 EORA #$80 EB44 ED8828 STD $28,X EB47 7EEBC4 JMP ENV1_EQ_0 EB4A E68826 L232 LDB $26,X EB4D DD01 STD MEM_01 EB4F ADB82A JSR [$2A,Y] EB52 E38828 ADDD $28,X EB55 847F ANDA #$7F EB57 A18827 CMPA $27,X EB5A 250A BCS L233 EB5C CCEB6C LDD #$EB6C EB5F ED8824 STD $24,X EB62 A68827 LDA $27,X EB65 5F CLRB EB66 ED8828 L233 STD $28,X EB69 7EEBC4 JMP ENV1_EQ_0 EB6C A6A82C LDA $2C,Y EB6F 2740 BEQ ENV1_INST_REL EB71 811F CMPA #$1F EB73 250C BCS SOME_ENV1_DCY EB75 A68828 LDA $28,X EB78 2A4A BPL ENV1_EQ_0 EB7A 847F ANDA #$7F EB7C A78828 STA $28,X EB7F 2043 BRA ENV1_EQ_0 EB81 9700 SOME_ENV1_DCY STA MEM_00 EB83 ADB82D JSR [$2D,Y] EB86 338828 LEAU $28,X EB89 BDED3B JSR L234 EB8C 2036 BRA ENV1_EQ_0 EB8E A6A82F LDA $2F,Y EB91 271E BEQ ENV1_INST_REL EB93 811F CMPA #$1F EB95 2D0D BLT ENV1_SET_R_RATE EB97 A6880F LDA $F,X EB9A 2605 BNE ENV1_FAST_REL_R EB9C B61FFE LDA REL_SLOW_RATE EB9F 2003 BRA ENV1_SET_R_RATE EBA1 B61FFF ENV1_FAST_REL_R LDA REL_FAST_RATE EBA4 CEF92A ENV1_SET_R_RATE LDU #$F92A EBA7 E6C6 LDB A,U EBA9 338828 LEAU $28,X EBAC BDED3B JSR L234 EBAF 2013 BRA ENV1_EQ_0 EBB1 EC8828 ENV1_INST_REL LDD $28,X EBB4 270E BEQ ENV1_EQ_0 EBB6 847F ANDA #$7F EBB8 10830000 CMPD #$0 EBBC 2703 BEQ ENV1_EQ_128 EBBE CC8000 LDD #$8000 EBC1 ED8828 ENV1_EQ_128 STD $28,X EBC4 6E982C ENV1_EQ_0 JMP [$2C,X] EBC7 A6882B LDA $2B,X EBCA 2F05 BLE ENV2_DELAY_DONE EBCC 6A882B DEC $2B,X EBCF 2005 BRA L235 EBD1 A6A832 ENV2_DELAY_DONE LDA $32,Y EBD4 2719 BEQ L236 EBD6 CCEBDF L235 LDD #$EBDF EBD9 ED882C STD $2C,X EBDC 7EEC6D JMP ENV2_INST_REL EBDF A6882B LDA $2B,X EBE2 2F06 BLE L237 EBE4 6A882B DEC $2B,X EBE7 7EEC6D JMP ENV2_INST_REL EBEA A6A832 L237 LDA $32,Y EBED 2612 BNE L238 EBEF CCEC23 L236 LDD #$EC23 EBF2 ED882C STD $2C,X EBF5 A6882F LDA $2F,X EBF8 5F CLRB EBF9 8880 EORA #$80 EBFB ED8830 STD $30,X EBFE 7EED87 JMP DO_SWEEP_WAVE EC01 E6882E L238 LDB $2E,X EC04 DD01 STD MEM_01 EC06 ADB833 JSR [$33,Y] EC09 E38830 ADDD $30,X EC0C 847F ANDA #$7F EC0E A1882F CMPA $2F,X EC11 250A BCS L239 EC13 CCEC23 LDD #$EC23 EC16 ED882C STD $2C,X EC19 A6882F LDA $2F,X EC1C 5F CLRB EC1D ED8830 L239 STD $30,X EC20 7EED87 JMP DO_SWEEP_WAVE EC23 A6A835 LDA $35,Y EC26 2745 BEQ ENV2_INST_REL EC28 811F CMPA #$1F EC2A 250F BCS SOME_ENV2_DCY EC2C A68830 LDA $30,X EC2F 102A0154 LBPL DO_SWEEP_WAVE EC33 847F ANDA #$7F EC35 A78830 STA $30,X EC38 7EED87 JMP DO_SWEEP_WAVE EC3B 9700 SOME_ENV2_DCY STA MEM_00 EC3D ADB836 JSR [$36,Y] EC40 338830 LEAU $30,X EC43 BDED3B JSR L234 EC46 7EED87 JMP DO_SWEEP_WAVE EC49 A6A838 LDA $38,Y EC4C 271F BEQ ENV2_INST_REL EC4E 811F CMPA #$1F EC50 250D BCS ENV2_SET_R_RATE EC52 A6880F LDA $F,X EC55 2605 BNE ENV2_FAST_REL_R EC57 B61FFE LDA REL_SLOW_RATE EC5A 2003 BRA ENV2_SET_R_RATE EC5C B61FFF ENV2_FAST_REL_R LDA REL_FAST_RATE EC5F CEF92A ENV2_SET_R_RATE LDU #$F92A EC62 E6C6 LDB A,U EC64 338830 LEAU $30,X EC67 BDED3B JSR L234 EC6A 7EED87 JMP DO_SWEEP_WAVE EC6D EC8830 ENV2_INST_REL LDD $30,X EC70 10270113 LBEQ DO_SWEEP_WAVE EC74 847F ANDA #$7F EC76 10830000 CMPD #$0 EC7A 2703 BEQ L240 EC7C CC8000 LDD #$8000 EC7F ED8830 L240 STD $30,X EC82 7EED87 JMP DO_SWEEP_WAVE EC85 ECD2 ENV_ATK_M_VEC_0 FDB $ECD2 EC87 EC95 ENV_ATK_M_VEC_1 FDB $EC95 EC89 EC9A ENV_ATK_M_VEC_2 FDB $EC9A EC8B ECA0 ENV_ATK_M_VEC_3 FDB $ECA0 EC8D ECA5 ENV_ATK_M_VEC_4 FDB $ECA5 EC8F ECAC ENV_ATK_M_VEC_5 FDB $ECAC EC91 ECB4 ENV_ATK_M_VEC_6 FDB $ECB4 EC93 ECB8 ENV_ATK_M_VEC_7 FDB $ECB8 EC95 A68812 LDA $12,X EC98 2017 BRA L241 EC9A A68819 LDA $19,X EC9D 40 NEGA EC9E 2020 BRA L242 ECA0 A68819 LDA $19,X ECA3 201B BRA L242 ECA5 A6880E LDA $E,X ECA8 8010 SUBA #$10 ECAA 2005 BRA L241 ECAC 8610 LDA #$10 ECAE A0880E SUBA $E,X ECB1 48 L241 ASLA ECB2 200D BRA L243 ECB4 860A LDA #$A ECB6 2002 BRA L244 ECB8 860C LDA #$C ECBA 9B62 L244 ADDA L138 ECBC A686 LDA A,X ECBE 2002 BRA L245 ECC0 47 L242 ASRA ECC1 47 L243 ASRA ECC2 47 L245 ASRA ECC3 40 NEGA ECC4 9B01 ADDA MEM_01 ECC6 2E04 BGT L246 ECC8 8601 LDA #$1 ECCA 2006 BRA L247 ECCC 811F L246 CMPA #$1F ECCE 2F02 BLE L247 ECD0 861F LDA #$1F ECD2 48 L247 ASLA ECD3 CEF8EA LDU #$F8EA ECD6 33C6 LEAU A,U ECD8 A641 LDA 1,U $1 ECDA 3D MUL ECDB 9700 STA MEM_00 ECDD A6C4 LDA 0,U ECDF D602 LDB MEM_02 ECE1 3D MUL ECE2 DB00 ADDB MEM_00 ECE4 8900 ADCA #$0 ECE6 39 RTS ECE7 ED33 ENV_DCY_M_VEC_0 FDB $ED33 ECE9 ECF7 ENV_DCY_M_VEC_1 FDB $ECF7 ECEB ECFC ENV_DCY_M_VEC_2 FDB $ECFC ECED ED02 ENV_DCY_M_VEC_3 FDB $ED02 ECEF ED07 ENV_DCY_M_VEC_4 FDB $ED07 ECF1 ED0E ENV_DCY_M_VEC_5 FDB $ED0E ECF3 ED16 ENV_DCY_M_VEC_6 FDB $ED16 ECF5 ED1A ENV_DCY_M_VEC_7 FDB $ED1A ECF7 A68812 LDA $12,X ECFA 2017 BRA L248 ECFC A68819 LDA $19,X ECFF 40 NEGA ED00 2020 BRA L249 ED02 A68819 LDA $19,X ED05 201B BRA L249 ED07 A6880E LDA $E,X ED0A 8010 SUBA #$10 ED0C 2005 BRA L248 ED0E 8610 LDA #$10 ED10 A0880E SUBA $E,X ED13 48 L248 ASLA ED14 200D BRA L250 ED16 860A LDA #$A ED18 2002 BRA ENV_DCY_MOD_PED ED1A 860C LDA #$C ED1C 9B62 ENV_DCY_MOD_PED ADDA L138 ED1E A686 LDA A,X ED20 2002 BRA L251 ED22 47 L249 ASRA ED23 47 L250 ASRA ED24 47 L251 ASRA ED25 9B00 ADDA MEM_00 ED27 2E04 BGT L252 ED29 8601 LDA #$1 ED2B 2006 BRA L253 ED2D 811F L252 CMPA #$1F ED2F 2F02 BLE L253 ED31 861F LDA #$1F ED33 9700 L253 STA MEM_00 ED35 CEF92A LDU #$F92A ED38 E6C6 LDB A,U ED3A 39 RTS ED3B DD00 L234 STD MEM_00 ED3D A641 LDA 1,U $1 ED3F 3D MUL ED40 DD02 STD MEM_02 ED42 9601 LDA MEM_01 ED44 E6C4 LDB 0,U ED46 C47F ANDB #$7F ED48 3D MUL ED49 DB02 ADDB MEM_02 ED4B 8900 ADCA #$0 ED4D DD01 STD MEM_01 ED4F 9600 LDA MEM_00 ED51 8110 CMPA #$10 ED53 2510 BCS REL_FAST_LT_16 ED55 9601 LDA MEM_01 ED57 44 LSRA ED58 56 RORB ED59 0603 ROR MEM_03 ED5B 44 LSRA ED5C 56 RORB ED5D 0603 ROR MEM_03 ED5F 44 LSRA ED60 56 RORB ED61 0603 ROR MEM_03 ED63 DD01 STD MEM_01 ED65 EC41 REL_FAST_LT_16 LDD 1,U $1 ED67 9302 SUBD MEM_02 ED69 ED41 STD 1,U $1 ED6B A6C4 LDA 0,U ED6D 9201 SBCA MEM_01 ED6F 847F ANDA #$7F ED71 A7C4 STA 0,U ED73 39 RTS ED74 CEF80A SINE_HANDLER LDU #$F80A ED77 8540 BITA #$40 '@ ED79 2702 BEQ COS_SWEEP_SEL ED7B 883F EORA #$3F '? ED7D 8180 COS_SWEEP_SEL CMPA #$80 ED7F 843F ANDA #$3F '? ED81 A6C6 LDA A,U ED83 2501 BCS L254 ED85 43 COMA ED86 39 L254 RTS ED87 0F0C DO_SWEEP_WAVE CLR SWEEP_INDEX ED89 EC881C LDD $1C,X ED8C 6EB823 JMP [$23,Y] ED8F EDB1 SWEEP_VEC_00 FDB $EDB1 ED91 EDAF SWEEP_VEC_01 FDB $EDAF ED93 EDB5 SWEEP_VEC_02 FDB $EDB5 ED95 EDBC SWEEP_VEC_03 FDB $EDBC ED97 EDC3 SWEEP_VEC_04 FDB $EDC3 ED99 EDCB SWEEP_VEC_05 FDB $EDCB ED9B EDD5 SWEEP_VEC_06 FDB $EDD5 ED9D EDE7 SWEEP_VEC_07 FDB $EDE7 ED9F EDF6 SWEEP_VEC_08 FDB $EDF6 EDA1 EDF6 SWEEP_VEC_09 FDB $EDF6 EDA3 EDF6 SWEEP_VEC_10 FDB $EDF6 EDA5 EDF6 SWEEP_VEC_11 FDB $EDF6 EDA7 EDF6 SWEEP_VEC_12 FDB $EDF6 EDA9 EDF6 SWEEP_VEC_13 FDB $EDF6 EDAB EDF6 SWEEP_VEC_14 FDB $EDF6 EDAD EDF5 SWEEP_VEC_15 FDB $EDF5 EDAF 8B40 ADDA #$40 '@ EDB1 8DC1 BSR SINE_HANDLER EDB3 2070 BRA SINE_END EDB5 8DBD BSR SINE_HANDLER EDB7 47 ASRA EDB8 8B40 ADDA #$40 '@ EDBA 2069 BRA SINE_END EDBC 8DB6 BSR SINE_HANDLER EDBE 2A65 BPL SINE_END EDC0 4F CLRA EDC1 2062 BRA SINE_END EDC3 58 ASLB EDC4 49 ROLA EDC5 285F BVC TRIANGLE_END EDC7 43 COMA EDC8 53 COMB EDC9 205B BRA TRIANGLE_END EDCB 8B40 ADDA #$40 '@ EDCD 58 ASLB EDCE 49 ROLA EDCF 2855 BVC TRIANGLE_END EDD1 43 COMA EDD2 53 COMB EDD3 2051 BRA TRIANGLE_END EDD5 887F EORA #$7F EDD7 53 COMB EDD8 47 ASRA EDD9 56 RORB EDDA DD00 STD MEM_00 EDDC A6881E LDA $1E,X EDDF 44 LSRA EDE0 2402 BCC L255 EDE2 0C0C INC SWEEP_INDEX EDE4 6EB825 L255 JMP [$25,Y] EDE7 2B05 BMI L256 EDE9 CC7FFF LDD #$7FFF EDEC 2002 BRA L257 EDEE 4F L256 CLRA EDEF 5F CLRB EDF0 DD00 L257 STD MEM_00 EDF2 6EB825 JMP [$25,Y] EDF5 12 NOP EDF6 A6881E LDA $1E,X EDF9 8403 ANDA #$3 EDFB 260E BNE L258 EDFD EEA81F LDU $1F,Y EE00 A68820 LDA $20,X EE03 A6C6 LDA A,U EE05 5F CLRB EE06 DD00 STD MEM_00 EE08 6EB825 JMP [$25,Y] EE0B 970C L258 STA SWEEP_INDEX EE0D EEA81F LDU $1F,Y EE10 A68820 LDA $20,X EE13 4C INCA EE14 A1A81E CMPA $1E,Y EE17 2501 BCS NOT_SWEEP_END EE19 4F CLRA EE1A A78820 NOT_SWEEP_END STA $20,X EE1D A6C6 LDA A,U EE1F 5F CLRB EE20 DD00 STD MEM_00 EE22 6EB825 JMP [$25,Y] EE25 5F SINE_END CLRB EE26 47 TRIANGLE_END ASRA EE27 56 RORB EE28 DD00 STD MEM_00 EE2A 6EB825 JMP [$25,Y] EE2D EE4D SWP_AM_VEC_00 FDB $EE4D EE2F EE56 SWP_AM_VEC_01 FDB $EE56 EE31 EE5B SWP_AM_VEC_02 FDB $EE5B EE33 EE60 SWP_AM_VEC_03 FDB $EE60 EE35 EE7B SWP_AM_VEC_04 FDB $EE7B EE37 EE80 SWP_AM_VEC_05 FDB $EE80 EE39 EE89 SWP_AM_VEC_06 FDB $EE89 EE3B EE8E SWP_AM_VEC_07 FDB $EE8E EE3D EE95 SWP_AM_VEC_08 FDB $EE95 EE3F EE99 SWP_AM_VEC_09 FDB $EE99 EE41 EE9D SWP_AM_VEC_10 FDB $EE9D EE43 EEA1 SWP_AM_VEC_11 FDB $EEA1 EE45 EEA9 SWP_AM_VEC_12 FDB $EEA9 EE47 EEAD SWP_AM_VEC_13 FDB $EEAD EE49 EEB1 SWP_AM_VEC_14 FDB $EEB1 EE4B EEB5 SWP_AM_VEC_15 FDB $EEB5 EE4D DC00 LDD MEM_00 EE4F 47 ASRA EE50 56 RORB EE51 47 ASRA EE52 56 RORB EE53 7EEEE3 JMP VAL_POSVE_2 EE56 A68812 LDA $12,X EE59 2036 BRA MAKE_ENV_POSVE EE5B A68819 LDA $19,X EE5E 2004 BRA KYBD_S_AMPL_MOD EE60 A68819 LDA $19,X EE63 40 NEGA EE64 47 KYBD_S_AMPL_MOD ASRA EE65 47 ASRA EE66 8108 CMPA #$8 EE68 2D04 BLT KYBD_LT_32 EE6A 8608 LDA #$8 EE6C 2006 BRA KYBD_VAL_OK EE6E 81F8 KYBD_LT_32 CMPA #$F8 EE70 2E02 BGT KYBD_VAL_OK EE72 86F8 LDA #$F8 EE74 CEF972 KYBD_VAL_OK LDU #$F972 EE77 A6C6 LDA A,U EE79 204C BRA SWP_AMPL_MOD EE7B A6880E LDA $E,X EE7E 2005 BRA L259 EE80 861F LDA #$1F EE82 A0880E SUBA $E,X EE85 847F L259 ANDA #$7F EE87 203D BRA SWP_AMPL_MOD2 EE89 A68828 LDA $28,X EE8C 2003 BRA MAKE_ENV_POSVE EE8E A68830 LDA $30,X EE91 847F MAKE_ENV_POSVE ANDA #$7F EE93 2032 BRA SWP_AMPL_MOD EE95 860A LDA #$A EE97 200A BRA L260 EE99 860C LDA #$C EE9B 2006 BRA L260 EE9D 86CA LDA #$CA EE9F 2002 BRA L260 EEA1 86CC LDA #$CC EEA3 9B62 L260 ADDA L138 EEA5 A686 LDA A,X EEA7 201D BRA SWP_AMPL_MOD2 EEA9 8606 LDA #$6 EEAB 200A BRA L261 EEAD 8604 LDA #$4 EEAF 2006 BRA L261 EEB1 8602 LDA #$2 EEB3 2002 BRA L261 EEB5 8601 LDA #$1 EEB7 AB881F L261 ADDA $1F,X EEBA 2802 BVC L262 EEBC 867F LDA #$7F EEBE A7881F L262 STA $1F,X EEC1 2A04 BPL SWP_AMPL_MOD EEC3 4F CLRA EEC4 2001 BRA SWP_AMPL_MOD EEC6 48 SWP_AMPL_MOD2 ASLA EEC7 9702 SWP_AMPL_MOD STA MEM_02 EEC9 D601 LDB MEM_01 EECB 3D MUL EECC 9703 STA MEM_03 EECE 9602 LDA MEM_02 EED0 D600 LDB MEM_00 EED2 3D MUL EED3 DB03 ADDB MEM_03 EED5 8900 ADCA #$0 EED7 0D00 TST MEM_00 EED9 2A02 BPL VAL_POSVE_1 EEDB 9002 SUBA MEM_02 EEDD 0D02 VAL_POSVE_1 TST MEM_02 EEDF 2A02 BPL VAL_POSVE_2 EEE1 9300 SUBD MEM_00 EEE3 0D0C VAL_POSVE_2 TST SWEEP_INDEX EEE5 2702 BEQ SWEEP_LEN_EQ0 EEE7 8880 EORA #$80 EEE9 ED8821 SWEEP_LEN_EQ0 STD $21,X EEEC 39 RTS EEED 3406 FIRQ_ADDR PSHS B,A EEEF FC2006 LDD RD_NOTE_WR_LED EEF2 ED9F003C STD [$3C] EEF6 D63D LDB N_BUF_TAIL2 EEF8 CB02 ADDB #$2 EEFA CAE0 ORB #$E0 EEFC D73D STB N_BUF_TAIL2 EEFE CB02 ADDB #$2 EF00 CAE0 ORB #$E0 EF02 D13F CMPB N_BUF_HEAD2 EF04 2606 BNE NO_N_BUF_WRAP EF06 E662 LDB $2,S EF08 CA40 ORB #$40 '@ EF0A E762 STB $2,S EF0C 3506 NO_N_BUF_WRAP PULS A,B EF0E 3B RTI EF0F B62001 IRQ_ADDR LDA RD_MSCI_WR_MSCO EF12 8880 EORA #$80 EF14 942F ANDA WR_MSCO_IMG EF16 48 ASLA EF17 2B24 BMI XO_MASK_EQ_1 EF19 2449 BCC XI_MASK_EQ_0 EF1B B62002 XI_MASK_EQ_1 LDA RD_EXTI_WR_EXTO EF1E A79F0040 STA [$40] EF22 D641 LDB C_IN_BUF_TAIL2 EF24 5C INCB EF25 C43F ANDB #$3F '? EF27 D741 STB C_IN_BUF_TAIL2 EF29 5C INCB EF2A C43F ANDB #$3F '? EF2C 0F0F CLR C_INTF_ECHO EF2E D143 CMPB C_IN_BUF_HEAD2 EF30 26DD BNE IRQ_ADDR EF32 962F LDA WR_MSCO_IMG EF34 847F ANDA #$7F EF36 972F STA WR_MSCO_IMG EF38 B72001 STA RD_MSCI_WR_MSCO EF3B 20D2 BRA IRQ_ADDR EF3D A69F0046 XO_MASK_EQ_1 LDA [$46] EF41 B72002 STA RD_EXTI_WR_EXTO EF44 D647 LDB C_OUT_BUF_HEAD2 EF46 5C INCB EF47 CAC0 ORB #$C0 EF49 D747 STB C_OUT_BUF_HEAD2 EF4B D145 CMPB C_OUT_BUF_TAIL2 EF4D 2609 BNE IRQ_JUMP3 EF4F 962F LDA WR_MSCO_IMG EF51 84BF ANDA #$BF EF53 972F STA WR_MSCO_IMG EF55 B72001 STA RD_MSCI_WR_MSCO EF58 B62001 IRQ_JUMP3 LDA RD_MSCI_WR_MSCO EF5B 8880 EORA #$80 EF5D 942F ANDA WR_MSCO_IMG EF5F 48 ASLA EF60 25B9 BCS XI_MASK_EQ_1 EF62 2BD9 BMI XO_MASK_EQ_1 EF64 3B XI_MASK_EQ_0 RTI EF65 1A50 ORCC #$50 'P EF67 10CE01C0 LDS #$1C0 EF6B 860F LDA #$F EF6D 5F CLRB EF6E 1F9B TFR B,DP EF70 FD2001 STD RD_MSCI_WR_MSCO EF73 86AC LDA #$AC EF75 972F STA WR_MSCO_IMG EF77 F72004 STB RD_TIME1WR_SEGS EF7A 970F STA C_INTF_ECHO EF7C 4F CLRA EF7D 970B STA PRG_UNDERWAY EF7F 970E STA UNLCK_STATE EF81 DD30 STD CONV_LEVER1 EF83 9734 STA FOOTSW_VALS EF85 DD64 STD CUR_KSTACK_ADR EF87 DD66 STD L263 EF89 DD09 STD C_INTF_PANL EF8B F62001 LDB RD_MSCI_WR_MSCO EF8E D72E STB RD_MSCI_IMG EF90 9737 STA L98 EF92 FC1FF4 LDD WR_TAP_ADDR EF95 1083FFF0 CMPD #$FFF0 EF99 2706 BEQ TAP_WAS_OFF EF9B CC200F LDD #$200F EF9E FD1FF4 STD WR_TAP_ADDR EFA1 CC00E0 TAP_WAS_OFF LDD #$E0 EFA4 DD3C STD N_BUF_TAIL1 EFA6 DD3E STD N_BUF_HEAD1 EFA8 CC0100 LDD #$100 EFAB DD40 STD C_IN_BUF_TAIL1 EFAD DD42 STD C_IN_BUF_HEAD1 EFAF CC01C0 LDD #$1C0 EFB2 DD44 STD C_OUT_BUF_TAIL1 EFB4 DD46 STD C_OUT_BUF_HEAD1 EFB6 CCCDFF LDD #$CDFF EFB9 DD50 STD CI_HNDLR_B1 EFBB 8E001A LDX #$1A EFBE 8605 LDA #$5 EFC0 B72000 ADC_INPUT STA RD_ADCI_WR_ADCO EFC3 B72000 STA RD_ADCI_WR_ADCO EFC6 C63C LDB #$3C '< EFC8 5A LOOP60 DECB EFC9 26FD BNE LOOP60 EFCB F62008 LDB RD_EOC_WR_SYND EFCE 2AF0 BPL ADC_INPUT EFD0 F62000 LDB RD_ADCI_WR_ADCO EFD3 C002 SUBB #$2 EFD5 2403 BCC ADC_NE_0 EFD7 5F CLRB EFD8 2406 BCC STORE_ADC_VAL EFDA C1FB ADC_NE_0 CMPB #$FB EFDC 2302 BLS STORE_ADC_VAL EFDE C6FB LDB #$FB EFE0 E786 STORE_ADC_VAL STB A,X EFE2 4A DECA EFE3 2ADB BPL ADC_INPUT EFE5 D61C LDB TUNE_POT_ADC EFE7 C880 EORB #$80 EFE9 1D SEX EFEA 58 ASLB EFEB DD48 STD MASTER_TUNE1 EFED 961D LDA MAIN_POT_ADC EFEF 972D STA CONV_MAIN_POT EFF1 961E LDA PEDAL1_ADC EFF3 C605 LDB #$5 EFF5 3D MUL EFF6 9B1E ADDA PEDAL1_ADC EFF8 9732 STA CONV_PEDAL1 EFFA 961F LDA PEDAL2_ADC EFFC C605 LDB #$5 EFFE 3D MUL EFFF 9B1E ADDA PEDAL1_ADC F001 9733 STA CONV_PEDAL2 F003 961A LDA LEVER1_ADC F005 8E004A LDX #$4A F008 BDF140 JSR CENTER_LEVER F00B 961B LDA LEVER2_ADC F00D 8E004D LDX #$4D F010 BDF140 JSR CENTER_LEVER F013 CE1400 LDU #$1400 F016 5F CLRB F017 BDDC3C FIX_PROG JSR PARAM_FIX F01A 33C83B LEAU 59,U F01D 5C INCB F01E C132 CMPB #$32 '2 F020 23F5 BLS FIX_PROG F022 B61FF2 LDA CURR_PROG_NUM F025 2704 BEQ CURR_PROG_0 F027 8132 CMPA #$32 '2 F029 2305 BLS CURR_PROG_OK F02B 8601 CURR_PROG_0 LDA #$1 F02D B71FF2 STA CURR_PROG_NUM F030 8680 CURR_PROG_OK LDA #$80 F032 B71FF3 STA PROG_MOD_FLAG F035 B61FF6 LDA COPY_MODE F038 44 LSRA F039 2504 BCS FIX_COPY_MODE F03B 8103 CMPA #$3 F03D 2305 BLS COPY_MODE_OK F03F 8604 FIX_COPY_MODE LDA #$4 F041 B71FF6 STA COPY_MODE F044 B61FF7 COPY_MODE_OK LDA PNL_KEY_CODE F047 44 LSRA F048 2504 BCS FIX_KEY_CODE F04A 8109 CMPA #$9 F04C 2303 BLS KEY_CODE_OK F04E 7F1FF7 FIX_KEY_CODE CLR PNL_KEY_CODE F051 B61FF8 KEY_CODE_OK LDA CUR_PNL_PROG F054 8132 CMPA #$32 '2 F056 2305 BLS PANL_PROG_OK F058 8601 LDA #$1 F05A B71FF8 STA CUR_PNL_PROG F05D B61FF9 PANL_PROG_OK LDA PREV_SPLIT F060 48 ASLA F061 2903 BVS FIX_PREV_SPLT F063 48 ASLA F064 2803 BVC PREV_SPLT_OK F066 7F1FF9 FIX_PREV_SPLT CLR PREV_SPLIT F069 FC1FFC PREV_SPLT_OK LDD ATTACK_THRES F06C 841F ANDA #$1F F06E C41F ANDB #$1F F070 FD1FFC STD ATTACK_THRES F073 FC1FFE LDD REL_SLOW_RATE F076 841F ANDA #$1F F078 C41F ANDB #$1F F07A FD1FFE STD REL_SLOW_RATE F07D CE0FFC LDU #$FFC F080 86BF LDA #$BF F082 EF5E FILL_VOL_RAM STU -2,U $1E F084 335C LEAU -4,U $1C F086 4A DECA F087 26F9 BNE FILL_VOL_RAM F089 DF3A STU NXT_KSTACK_ADR F08B CE0000 LDU #$0 F08E FF0FFE STU VOL_RAM_END F091 8E05C0 LDX #$5C0 F094 860F LDA #$F F096 8D7C INIT_BOARD_N BSR CHANNEL_INIT F098 3088C0 LEAX $C0,X F09B 4A DECA F09C 8D76 BSR CHANNEL_INIT F09E EF04 STU $4,X F0A0 3384 LEAU 0,X F0A2 3088C0 LEAX $C0,X F0A5 4A DECA F0A6 2AEE BPL INIT_BOARD_N F0A8 DF38 STU LNK_INST_ADR F0AA 108E0600 LDY #$600 F0AE 4F INIT_INTR_N CLRA F0AF 5F CLRB F0B0 EDA4 STD 0,Y F0B2 ED22 STD $2,Y F0B4 ED24 STD $4,Y F0B6 ED26 STD $6,Y F0B8 CCC100 LDD #$C100 F0BB EDA866 STD $66,Y F0BE 31A900C0 LEAY 192,Y F0C2 108C0B40 CMPY #$B40 F0C6 23E6 BLS INIT_INTR_N F0C8 DD6A STD MJR_LOOP_H1 F0CA DD6C STD MIN_LOOP_H1 F0CC 108E0600 LDY #$600 F0D0 CE1400 LDU #$1400 F0D3 EF26 STU $6,Y F0D5 BDD7FA JSR INVOKE_PROG F0D8 BDD866 JSR FINISH_PROG_DEF F0DB B61400 LDA P0_LINK_VALS F0DE 85C0 BITA #$C0 F0E0 2713 BEQ NO_LINK F0E2 31A900C0 LEAY 192,Y F0E6 843F ANDA #$3F '? F0E8 C63B LDB #$3B '; F0EA 3D MUL F0EB 33CB LEAU D,U F0ED EF26 STU $6,Y F0EF BDD7FA JSR INVOKE_PROG F0F2 BDD866 JSR FINISH_PROG_DEF F0F5 FC1FF2 NO_LINK LDD CURR_PROG_NUM F0F8 BDDC9D JSR OUTPUT_BIG_PROG F0FB B6141E LDA P0_PANEL_EDIT F0FE BDE6E1 JSR PARAM_EDIT F101 4F CLRA F102 5F CLRB F103 FD2006 STD RD_NOTE_WR_LED F106 B70BFF STA L67 F109 BDFA5E JSR PSVE_RESET_VAL F10C DC2A LDD LED_IMAGE1 F10E FD2006 STD RD_NOTE_WR_LED F111 7ED23E JMP TUNE_AND_MORE F114 3406 CHANNEL_INIT PSHS B,A F116 A707 STA $7,X F118 4F CLRA F119 5F CLRB F11A ED02 STD $2,X F11C ED8828 STD $28,X F11F ED8830 STD $30,X F122 ED882E STD $2E,X F125 ED8816 STD $16,X F128 ED8818 STD $18,X F12B 43 COMA F12C A706 STA $6,X F12E 8680 LDA #$80 F130 A708 STA $8,X F132 CCEB8E LDD #$EB8E F135 ED8824 STD $24,X F138 CCEC49 LDD #$EC49 F13B ED882C STD $2C,X F13E 3586 PULS A,B,PC F140 8163 CENTER_LEVER CMPA #$63 'c F142 2404 BCC A_GTE_63 F144 8663 LDA #$63 'c F146 2006 BRA A_GT62_LT9B F148 819A A_GTE_63 CMPA #$9A F14A 2302 BLS A_GT62_LT9B F14C 869A LDA #$9A F14E A784 A_GT62_LT9B STA 0,X F150 8023 SUBA #$23 '# F152 8D0B BSR LEVER_DCD_2 F154 E701 STB $1,X F156 86DA LDA #$DA F158 A084 SUBA 0,X F15A 8D03 BSR LEVER_DCD_2 F15C E702 STB $2,X F15E 39 RTS F15F C608 LEVER_DCD_2 LDB #$8 F161 DD00 STD MEM_00 F163 CC3FFF LDD #$3FFF F166 58 DCD_LOOP_8 ASLB F167 49 ROLA F168 9100 CMPA MEM_00 F16A 2503 BCS L264 F16C 9000 SUBA MEM_00 F16E 5C INCB F16F 0A01 L264 DEC MEM_01 F171 26F3 BNE DCD_LOOP_8 F173 39 RTS F174 CBBA L_PNL_SW_VEC_1 FDB $CBBA F176 F1CC L_PNL_SW_VEC_2 FDB $F1CC F178 F19E L_PNL_SW_VEC_3 FDB $F19E F17A CC3A L_PNL_SW_VEC_4 FDB $CC3A F17C F1D5 L_PNL_SW_VEC_5 FDB $F1D5 F17E F1A3 L_PNL_SW_VEC_6 FDB $F1A3 F180 CB42 L_PNL_SW_VEC_7 FDB $CB42 F182 F1DE L_PNL_SW_VEC_8 FDB $F1DE F184 F22E L_PNL_SW_VEC_9 FDB $F22E F186 CB67 L_PNL_SW_VEC_10 FDB $CB67 F188 F1E7 L_PNL_SW_VEC_11 FDB $F1E7 F18A F1AB L_PNL_SW_VEC_12 FDB $F1AB F18C F26E L_PNL_SW_VEC_13 FDB $F26E F18E F2A0 L_PNL_SW_VEC_14 FDB $F2A0 F190 F2D2 L_PNL_SW_VEC_15 FDB $F2D2 F192 F2F3 L_PNL_SW_VEC_16 FDB $F2F3 F194 F301 L_PNL_SW_VEC_17 FDB $F301 F196 F33C L_PNL_SW_VEC_18 FDB $F33C F198 F33F L_PNL_SW_VEC_19 FDB $F33F F19A F327 L_PNL_SW_VEC_20 FDB $F327 F19C F31C L_PNL_SW_VEC_21 FDB $F31C F19E 8600 LDA #$0 F1A0 275C BEQ NO_LNK F1A2 39 RTS F1A3 8600 LDA #$0 F1A5 10270080 LBEQ LNK_LOWER F1A9 2053 BRA NO_LNK F1AB 8600 LDA #$0 F1AD 10270082 LBEQ LNK_UPPER F1B1 39 RTS F1B2 F371 PNL_MODE_VEC_1 FDB $F371 F1B4 F426 PNL_MODE_VEC_2 FDB $F426 F1B6 F420 PNL_MODE_VEC_3 FDB $F420 F1B8 F45B PNL_MODE_VEC_4 FDB $F45B F1BA F4C7 FLASH_KEY_VEC_1 FDB $F4C7 F1BC F52F FLASH_KEY_VEC_2 FDB $F52F F1BE F533 FLASH_KEY_VEC_3 FDB $F533 F1C0 F537 FLASH_KEY_VEC_4 FDB $F537 F1C2 F54C FLASH_KEY_VEC_5 FDB $F54C F1C4 F5ED FLASH_KEY_VEC_6 FDB $F5ED F1C6 F7CC FLASH_KEY_VEC_7 FDB $F7CC F1C8 F7D0 FLASH_KEY_VEC_8 FDB $F7D0 F1CA F7E8 FLASH_KEY_VEC_9 FDB $F7E8 F1CC B61401 LDA P0_TRNSPOSE F1CF 8440 ANDA #$40 '@ F1D1 8A80 ORA #$80 F1D3 2019 BRA STORE_TRANSPOSE F1D5 B61401 LDA P0_TRNSPOSE F1D8 8480 ANDA #$80 F1DA 8A40 ORA #$40 '@ F1DC 2010 BRA STORE_TRANSPOSE F1DE B61401 LDA P0_TRNSPOSE F1E1 8410 ANDA #$10 F1E3 8A20 ORA #$20 F1E5 2007 BRA STORE_TRANSPOSE F1E7 B61401 LDA P0_TRNSPOSE F1EA 8420 ANDA #$20 F1EC 8A10 ORA #$10 F1EE B81401 STORE_TRANSPOSE EORA P0_TRNSPOSE F1F1 B71401 STA P0_TRNSPOSE F1F4 A79F1FF4 STA [$1FF4] F1F8 BDDC90 JSR PROG_MODIFIED F1FB 7EDD31 JMP PNT_PANL F1FE A79F1FF4 NO_LNK STA [$1FF4] F202 8602 LDA #$2 F204 B11FF7 CMPA PNL_KEY_CODE F207 261A BNE FIRST_NO_LNK F209 7F1FF7 CLR PNL_KEY_CODE F20C B61400 LDA P0_LINK_VALS F20F 85C0 BITA #$C0 F211 1027EB1C LBEQ PNT_PANL F215 843F ANDA #$3F '? F217 B71400 STA P0_LINK_VALS F21A BDF5B5 JSR UNDEF_LNK_INST F21D BDF404 JSR RESTORE_LNK F220 7EF410 JMP C_INST_0_VOL F223 B71FF7 FIRST_NO_LNK STA PNL_KEY_CODE F226 7EDD31 ALRDY_NO_LNK JMP PNT_PANL F229 CC8004 LNK_LOWER LDD #$8004 F22C 2008 BRA LNK_WORK F22E CCC006 LDD #$C006 F231 2003 BRA LNK_WORK F233 CC4008 LNK_UPPER LDD #$4008 F236 A79F1FF4 LNK_WORK STA [$1FF4] F23A F11FF7 CMPA PNL_KEY_CODE F23D 2717 BEQ LNK_SAME F23F F71FF7 STB PNL_KEY_CODE F242 B6141E LDA P0_PANEL_EDIT F245 843F ANDA #$3F '? F247 1027EAE6 LBEQ PNT_PANL F24B B71FF8 STA CUR_PNL_PROG F24E B6141E LDA P0_PANEL_EDIT F251 84C0 ANDA #$C0 F253 7EF3E0 JMP REFIX_PROG0 F256 7F1FF7 LNK_SAME CLR PNL_KEY_CODE F259 9700 STA MEM_00 F25B B61400 LDA P0_LINK_VALS F25E 843F ANDA #$3F '? F260 9A00 ORA MEM_00 F262 B71400 STA P0_LINK_VALS F265 BDF5C5 JSR L265 F268 BDF404 JSR RESTORE_LNK F26B 7EF410 JMP C_INST_0_VOL F26E A79F1FF4 STA [$1FF4] F272 BDDD31 JSR PNT_PANL F275 860F L285 LDA #$F F277 B72001 STA RD_MSCI_WR_MSCO F27A 7F2004 CLR RD_TIME1WR_SEGS F27D 7F2006 CLR RD_NOTE_WR_LED F280 7F2007 CLR RD_VEL_WR_LEDS1 F283 108E0600 LDY #$600 F287 EE26 UNDEF_PROG LDU $6,Y F289 2705 BEQ NO_DEF_INST F28B BDD82E JSR INIT_BRD_4_INST F28E EF26 STU $6,Y F290 31A900C0 NO_DEF_INST LEAY 192,Y F294 108C0B40 CMPY #$B40 F298 23ED BLS UNDEF_PROG F29A BDFA5E JSR PSVE_RESET_VAL F29D 7EDDCB JMP PAINT_LEDS F2A0 A79F1FF4 STA [$1FF4] F2A4 B61FF7 LDA PNL_KEY_CODE F2A7 810C CMPA #$C F2A9 260F BNE SPLIT_ONCE F2AB 7F1FF7 CLR PNL_KEY_CODE F2AE B61FF9 LDA PREV_SPLIT F2B1 B71420 STA P0_KBRD_SPLT F2B4 BDDC90 JSR PROG_MODIFIED F2B7 7EDD31 JMP PNT_PANL F2BA 860C SPLIT_ONCE LDA #$C F2BC B71FF7 STA PNL_KEY_CODE F2BF CC5B67 LDD #$5B67 F2C2 DD20 STD LED_DIG0 F2C4 CC0E00 LDD #$E00 F2C7 DD22 STD LED_DIG2 F2C9 B61420 LDA P0_KBRD_SPLT F2CC BDDCC3 JSR DISP_PARAM_VAL F2CF 7EDDCB JMP PAINT_LEDS F2D2 B61FF7 LDA PNL_KEY_CODE F2D5 810A CMPA #$A F2D7 2714 BEQ STORE_STORE_1 F2D9 B62001 LDA RD_MSCI_WR_MSCO F2DC 8420 ANDA #$20 F2DE 2601 BNE STORE_UNLCKD F2E0 39 RTS F2E1 A79F1FF4 STORE_UNLCKD STA [$1FF4] F2E5 860A LDA #$A F2E7 B71FF7 STA PNL_KEY_CODE F2EA 7EDD31 JMP PNT_PANL F2ED B61FF2 STORE_STORE_1 LDA CURR_PROG_NUM F2F0 7EF54C JMP STORE_STORE_2 F2F3 9615 LDA NOT_STB5 F2F5 48 ASLA F2F6 2A18 BPL EDIT_BOTH F2F8 B6141E LDA P0_PANEL_EDIT F2FB 843F ANDA #$3F '? F2FD 8A80 ORA #$80 F2FF 2014 BRA L266 F301 9615 LDA NOT_STB5 F303 8420 ANDA #$20 F305 2709 BEQ EDIT_BOTH F307 B6141E LDA P0_PANEL_EDIT F30A 843F ANDA #$3F '? F30C 8A40 ORA #$40 '@ F30E 2005 BRA L266 F310 B6141E EDIT_BOTH LDA P0_PANEL_EDIT F313 8AC0 ORA #$C0 F315 A79F1FF4 L266 STA [$1FF4] F319 7EF3E0 JMP REFIX_PROG0 F31C 860E LDA #$E F31E B11FF7 CMPA PNL_KEY_CODE F321 260F BNE COPY_PRES_ONCE F323 4F CLRA F324 7EF7CC JMP CP_A_CP_B F327 8610 LDA #$10 F329 B11FF7 CMPA PNL_KEY_CODE F32C 2604 BNE COPY_PRES_ONCE F32E 4F CLRA F32F 7EF7D0 JMP CP_B_CP_B F332 A79F1FF4 COPY_PRES_ONCE STA [$1FF4] F336 B71FF7 STA PNL_KEY_CODE F339 7EDD31 NO_OP_KEY_PRES JMP PNT_PANL F33C 4F CLRA F33D 2002 BRA PARAM_SELECT F33F 8606 LDA #$6 F341 A79F1FF4 PARAM_SELECT STA [$1FF4] F345 B71FF6 STA COPY_MODE F348 B61FF7 LDA PNL_KEY_CODE F34B 7F1FF7 CLR PNL_KEY_CODE F34E 8004 SUBA #$4 F350 8104 CMPA #$4 F352 1022E9DB LBHI PNT_PANL F356 B61FF8 LDA CUR_PNL_PROG F359 1027E9D4 LBEQ PNT_PANL F35D B6141E LDA P0_PANEL_EDIT F360 853F BITA #$3F '? F362 1026E9CB LBNE PNT_PANL F366 84C0 ANDA #$C0 F368 BA1FF8 ORA CUR_PNL_PROG F36B 7F1FF8 CLR CUR_PNL_PROG F36E 7EF3E0 JMP REFIX_PROG0 F371 9700 STA MEM_00 F373 D615 LDB NOT_STB5 F375 2A13 BPL PARAM_HELD F377 F6141E LDB P0_PANEL_EDIT F37A C43F ANDB #$3F '? F37C D100 CMPB MEM_00 F37E 2605 BNE L267 F380 B61FF8 LDA CUR_PNL_PROG F383 9700 STA MEM_00 F385 F71FF8 L267 STB CUR_PNL_PROG F388 2048 BRA L268 F38A D600 PARAM_HELD LDB MEM_00 F38C C110 CMPB #$10 F38E 2713 BEQ ENV_DCY_DFLT F390 C117 CMPB #$17 F392 270F BEQ ENV_DCY_DFLT F394 C11A CMPB #$1A F396 270F BEQ TUNE_PTCH_DFLT F398 C127 CMPB #$27 '' F39A 270F BEQ TUNE_CUTOF_DFLT F39C C12F CMPB #$2F '/ F39E 270F BEQ MOD1_VOL_DFLT F3A0 4F CLRA F3A1 200E BRA SET_DEFAULT F3A3 861F ENV_DCY_DFLT LDA #$1F F3A5 200A BRA SET_DEFAULT F3A7 860C TUNE_PTCH_DFLT LDA #$C F3A9 2006 BRA SET_DEFAULT F3AB 863F TUNE_CUTOF_DFLT LDA #$3F '? F3AD 2002 BRA SET_DEFAULT F3AF 860F MOD1_VOL_DFLT LDA #$F F3B1 CE1400 SET_DEFAULT LDU #$1400 F3B4 C105 CMPB #$5 F3B6 2204 BHI NOT_CNTRL_PARAM F3B8 8D31 BSR CHK_2_SND_PANL F3BA 2016 BRA L268 F3BC F6141E NOT_CNTRL_PARAM LDB P0_PANEL_EDIT F3BF 2A0B BPL L269 F3C1 D600 LDB MEM_00 F3C3 8D26 BSR CHK_2_SND_PANL F3C5 F6141E LDB P0_PANEL_EDIT F3C8 C540 BITB #$40 '@ F3CA 2706 BEQ L268 F3CC D600 L269 LDB MEM_00 F3CE CB32 ADDB #$32 '2 F3D0 8D19 BSR CHK_2_SND_PANL F3D2 B6141E L268 LDA P0_PANEL_EDIT F3D5 84C0 ANDA #$C0 F3D7 9A00 ORA MEM_00 F3D9 7F1FF7 CLR PNL_KEY_CODE F3DC A79F1FF4 STA [$1FF4] F3E0 CE1400 REFIX_PROG0 LDU #$1400 F3E3 C634 LDB #$34 '4 F3E5 BDDB47 JSR VALDTE_PARAM_2 F3E8 7EDC90 JMP PROG_MODIFIED F3EB BDDB47 CHK_2_SND_PANL JSR VALDTE_PARAM_2 F3EE 0D09 TST C_INTF_PANL F3F0 2601 BNE C_SET_PARAM F3F2 39 RTS F3F3 3402 C_SET_PARAM PSHS A F3F5 86E0 LDA #$E0 F3F7 BDCD8A JSR C_INF_OUT F3FA 1F98 TFR B,A F3FC BDCD8A JSR C_INF_OUT F3FF 3502 PULS A F401 7ECD8A JMP C_INF_OUT F404 BDDC90 RESTORE_LNK JSR PROG_MODIFIED F407 BDE63F L278 JSR SETUP_INST01_VOL F40A BDD8EE JSR BOARD_ASSIGN F40D 7EDD31 JMP PNT_PANL F410 9609 C_INST_0_VOL LDA C_INTF_PANL F412 2601 BNE UNDEF_PNL_OK F414 39 RTS F415 8678 UNDEF_PNL_OK LDA #$78 'x F417 BDCD8A JSR C_INF_OUT F41A B60618 LDA L177 F41D 7ECD8A JMP C_INF_OUT F420 8105 CMPA #$5 F422 2302 BLS L270 F424 8B32 ADDA #$32 '2 F426 FE1FFA L270 LDU CP_PRG_ADDR F429 1F89 TFR A,B F42B BDDB02 JSR CHK_PARAM_DATA F42E C132 CMPB #$32 '2 F430 2302 BLS L_A_PARAM F432 C032 SUBB #$32 '2 F434 D700 L_A_PARAM STB MEM_00 F436 CE1400 LDU #$1400 F439 C105 CMPB #$5 F43B 2204 BHI L_B_PARAM F43D 8DAC BSR CHK_2_SND_PANL F43F 2091 BRA L268 F441 F6141E L_B_PARAM LDB P0_PANEL_EDIT F444 2A0A BPL L271 F446 D600 LDB MEM_00 F448 8DA1 BSR CHK_2_SND_PANL F44A F6141E LDB P0_PANEL_EDIT F44D 58 ASLB F44E 2A82 BPL L268 F450 D600 L271 LDB MEM_00 F452 CB32 ADDB #$32 '2 F454 8D95 BSR CHK_2_SND_PANL F456 C032 SUBB #$32 '2 F458 7EF3D2 JMP L268 F45B A79F1FF4 STA [$1FF4] F45F F61FF3 LDB PROG_MOD_FLAG F462 260F BNE GO_SEQ_PROG F464 B11FF2 CMPA CURR_PROG_NUM F467 260A BNE GO_SEQ_PROG F469 DC5A LDD SAFE_BUF_NUM F46B FD1FF2 STD CURR_PROG_NUM F46E 8E0140 LDX #$140 F471 201B BRA L272 F473 3402 GO_SEQ_PROG PSHS A F475 FC1FF2 LDD CURR_PROG_NUM F478 DD5A STD SAFE_BUF_NUM F47A 8E1400 LDX #$1400 F47D CE0140 LDU #$140 F480 BDD8C5 JSR CP_PROG_X_2_U F483 3502 PULS A F485 5F CLRB F486 FD1FF2 STD CURR_PROG_NUM F489 C63B LDB #$3B '; F48B 3D MUL F48C 308B LEAX D,X F48E CE1400 L272 LDU #$1400 F491 BDD8C5 JSR CP_PROG_X_2_U F494 F61400 LDB P0_LINK_VALS F497 C5C0 BITB #$C0 F499 2605 BNE SEQ_LNK_UNI F49B BDF5B5 JSR UNDEF_LNK_INST F49E 2003 BRA L273 F4A0 BDF5C5 SEQ_LNK_UNI JSR L265 F4A3 CE1400 L273 LDU #$1400 F4A6 FF0606 STU L274 F4A9 BDF599 JSR MKE_PROG_CHNGE F4AC 108E0600 LDY #$600 F4B0 86C0 LDA #$C0 F4B2 F61FF2 LDB CURR_PROG_NUM F4B5 BDD866 JSR FINISH_PROG_DEF F4B8 7F1FF7 CLR PNL_KEY_CODE F4BB BDD8EE JSR BOARD_ASSIGN F4BE FC1FF2 LDD CURR_PROG_NUM F4C1 BDDC9D JSR OUTPUT_BIG_PROG F4C4 7EE6E1 JMP PARAM_EDIT F4C7 A79F1FF4 STA [$1FF4] F4CB F61FF3 LDB PROG_MOD_FLAG F4CE 2615 BNE L275 F4D0 B11FF2 CMPA CURR_PROG_NUM F4D3 2610 BNE L275 F4D5 DC5A LDD SAFE_BUF_NUM F4D7 FD1FF2 STD CURR_PROG_NUM F4DA 8E0140 LDX #$140 F4DD CE1400 LDU #$1400 F4E0 BDD8C5 JSR CP_PROG_X_2_U F4E3 20BE BRA L273 F4E5 9700 L275 STA MEM_00 F4E7 FC1FF2 LDD CURR_PROG_NUM F4EA DD5A STD SAFE_BUF_NUM F4EC 8E1400 LDX #$1400 F4EF CE0140 LDU #$140 F4F2 BDD8C5 JSR CP_PROG_X_2_U F4F5 CE1400 LDU #$1400 F4F8 9600 LDA MEM_00 F4FA 5F CLRB F4FB FD1FF2 STD CURR_PROG_NUM F4FE C63B LDB #$3B '; F500 3D MUL F501 308B LEAX D,X F503 FC1400 LDD P0_LINK_VALS F506 C430 ANDB #$30 '0 F508 3406 PSHS B,A F50A FC141F LDD P0_LINK_BALNCE F50D 840F ANDA #$F F50F 3406 PSHS B,A F511 BDD8C5 JSR CP_PROG_X_2_U F514 B6141F LDA P0_LINK_BALNCE F517 84F0 ANDA #$F0 F519 AAE0 ORA ,S+ F51B E6E0 LDB ,S+ F51D FD141F STD P0_LINK_BALNCE F520 F61401 LDB P0_TRNSPOSE F523 C4CF ANDB #$CF F525 A6E0 LDA ,S+ F527 EAE0 ORB ,S+ F529 FD1400 STD P0_LINK_VALS F52C 7EF4A3 JMP L273 F52F 8A80 ORA #$80 F531 2006 BRA L276 F533 8AC0 ORA #$C0 F535 2002 BRA L276 F537 8A40 ORA #$40 '@ F539 A79F1FF4 L276 STA [$1FF4] F53D 7F1FF7 CLR PNL_KEY_CODE F540 B71400 STA P0_LINK_VALS F543 BDF5C5 JSR L265 F546 BDF404 JSR RESTORE_LNK F549 7EF410 JMP C_INST_0_VOL F54C A79F1FF4 STORE_STORE_2 STA [$1FF4] F550 7F1FF7 CLR PNL_KEY_CODE F553 3402 PSHS A F555 C63B LDB #$3B '; F557 3D MUL F558 CE1400 LDU #$1400 F55B 33CB LEAU D,U F55D F61FF3 LDB PROG_MOD_FLAG F560 2613 BNE ST_ST_PROG_MOD F562 A6E4 LDA 0,S F564 B11FF2 CMPA CURR_PROG_NUM F567 260C BNE ST_ST_PROG_MOD F569 3261 LEAS $1,S F56B DC5A LDD SAFE_BUF_NUM F56D FD1FF2 STD CURR_PROG_NUM F570 8E0140 LDX #$140 F573 2018 BRA L277 F575 30C4 ST_ST_PROG_MOD LEAX 0,U F577 CE0140 LDU #$140 F57A BDD8C5 JSR CP_PROG_X_2_U F57D FC1FF2 LDD CURR_PROG_NUM F580 DD5A STD SAFE_BUF_NUM F582 3384 LEAU 0,X F584 8E1400 LDX #$1400 F587 3502 PULS A F589 5F CLRB F58A FD1FF2 STD CURR_PROG_NUM F58D BDD8C5 L277 JSR CP_PROG_X_2_U F590 BDF599 JSR MKE_PROG_CHNGE F593 BDDC9D JSR OUTPUT_BIG_PROG F596 7EF407 JMP L278 F599 108E0600 MKE_PROG_CHNGE LDY #$600 F59D 11A326 LOOP_INST CMPU $6,Y F5A0 2608 BNE INST_NE_PROG F5A2 BDD82E JSR INIT_BRD_4_INST F5A5 EF26 STU $6,Y F5A7 BDD7FA JSR INVOKE_PROG F5AA 31A900C0 INST_NE_PROG LEAY 192,Y F5AE 108C0B40 CMPY #$B40 F5B2 23E9 BLS LOOP_INST F5B4 39 SAME_DEF_PROG RTS F5B5 108E06C0 UNDEF_LNK_INST LDY #$6C0 F5B9 BDD82E JSR INIT_BRD_4_INST F5BC 0D09 TST C_INTF_PANL F5BE 27F4 BEQ SAME_DEF_PROG F5C0 86C9 LDA #$C9 F5C2 7ECD8A JMP C_INF_OUT F5C5 B61400 L265 LDA P0_LINK_VALS F5C8 843F ANDA #$3F '? F5CA C63B LDB #$3B '; F5CC 3D MUL F5CD CE1400 LDU #$1400 F5D0 33CB LEAU D,U F5D2 108E06C0 LDY #$6C0 F5D6 11A326 CMPU $6,Y F5D9 27D9 BEQ SAME_DEF_PROG F5DB BDD82E JSR INIT_BRD_4_INST F5DE EF26 STU $6,Y F5E0 BDD7FA JSR INVOKE_PROG F5E3 86C1 LDA #$C1 F5E5 F61400 LDB P0_LINK_VALS F5E8 C43F ANDB #$3F '? F5EA 7ED866 JMP FINISH_PROG_DEF F5ED 7F1FF7 CLR PNL_KEY_CODE F5F0 A79F1FF4 STA [$1FF4] F5F4 8132 CMPA #$32 '2 F5F6 2504 BCS L279 F5F8 6E9FFFFE JMP [$FFFE] F5FC 3402 L279 PSHS A F5FE BDDD31 JSR PNT_PANL F601 3502 PULS A F603 8121 CMPA #$21 '! F605 2301 BLS SET_SPLT_HNDRL F607 39 RTS F608 4A SET_SPLT_HNDRL DECA F609 48 ASLA F60A CEF60F LDU #$F60F F60D 6ED6 JMP [A,U] F60F F7AF S_SPLT_01 FDB $F7AF F611 F79B S_SPLT_02 FDB $F79B F613 F79E S_SPLT_03 FDB $F79E F615 F7A2 S_SPLT_04 FDB $F7A2 F617 F7A6 S_SPLT_05 FDB $F7A6 F619 F652 S_SPLT_06 FDB $F652 F61B F68E S_SPLT_07 FDB $F68E F61D DD67 S_SPLT_08 FDB $DD67 F61F F6CB S_SPLT_09 FDB $F6CB F621 F6F4 S_SPLT_10 FDB $F6F4 F623 C93F S_SPLT_11 FDB $C93F F625 C942 S_SPLT_12 FDB $C942 F627 C946 S_SPLT_13 FDB $C946 F629 C93A S_SPLT_14 FDB $C93A F62B CD1D S_SPLT_15 FDB $CD1D F62D F6F8 S_SPLT_16 FDB $F6F8 F62F F719 S_SPLT_17 FDB $F719 F631 F720 S_SPLT_18 FDB $F720 F633 F723 S_SPLT_19 FDB $F723 F635 F72A S_SPLT_20 FDB $F72A F637 F73B S_SPLT_21 FDB $F73B F639 F743 S_SPLT_22 FDB $F743 F63B F74B S_SPLT_23 FDB $F74B F63D F753 S_SPLT_24 FDB $F753 F63F F790 S_SPLT_25 FDB $F790 F641 F771 S_SPLT_26 FDB $F771 F643 F778 S_SPLT_27 FDB $F778 F645 F77F S_SPLT_28 FDB $F77F F647 F6E6 S_SPLT_29 FDB $F6E6 F649 F75B S_SPLT_30 FDB $F75B F64B F7B7 S_SPLT_31 FDB $F7B7 F64D F7BE S_SPLT_32 FDB $F7BE F64F F7C5 S_SPLT_33 FDB $F7C5 F651 39 RTS F652 8607 BAT_CHK LDA #$7 F654 B72000 STA RD_ADCI_WR_ADCO F657 B72000 STA RD_ADCI_WR_ADCO F65A 863C LDA #$3C '< F65C 4A WAIT_BATT DECA F65D 26FD BNE WAIT_BATT F65F F62008 LDB RD_EOC_WR_SYND F662 2AEE BPL BAT_CHK F664 9724 STA LED_DIG4 F666 CC4E4F LDD #$4E4F F669 DD20 STD LED_DIG0 F66B CC0E0E LDD #$E0E F66E DD22 STD LED_DIG2 F670 8EF97B LDX #$F97B F673 B62000 LDA RD_ADCI_WR_ADCO F676 C605 LDB #$5 F678 3D MUL F679 A686 LDA A,X F67B 8A80 ORA #$80 F67D 9725 STA LED_DIG5 F67F 860A LDA #$A F681 3D MUL F682 A686 LDA A,X F684 9726 STA LED_DIG6 F686 860A LDA #$A F688 3D MUL F689 A686 LDA A,X F68B 9727 STA LED_DIG7 F68D 39 RTS F68E 108E0600 LDY #$600 F692 AEA4 LDX 0,Y F694 1027E6CF LBEQ BAD_BRD_HNDLR F698 EE84 L280 LDU 0,X F69A 2706 BEQ NO_NXT_CHAN F69C 3184 LEAY 0,X F69E 30C4 LEAX 0,U F6A0 20F6 BRA L280 F6A2 A607 NO_NXT_CHAN LDA $7,X F6A4 840E ANDA #$E F6A6 108E0600 LDY #$600 F6AA FE0606 LDU L274 F6AD BDD82E JSR INIT_BRD_4_INST F6B0 FF0606 STU L274 F6B3 108E0034 LDY #$34 F6B7 AE24 L282 LDX $4,Y F6B9 A107 CMPA $7,X F6BB 2704 BEQ L281 F6BD 3184 LEAY 0,X F6BF 20F6 BRA L282 F6C1 EC04 L281 LDD $4,X F6C3 ED24 STD $4,Y F6C5 BDD8EE JSR BOARD_ASSIGN F6C8 7EDD67 JMP BAD_BRD_HNDLR F6CB FC1FF4 LDD WR_TAP_ADDR F6CE 1083200F CMPD #$200F F6D2 270B BEQ TAP_ENBLD F6D4 CC200F LDD #$200F F6D7 FD1FF4 STD WR_TAP_ADDR F6DA A79F1FF4 STA [$1FF4] F6DE 39 RTS F6DF CCFFF0 TAP_ENBLD LDD #$FFF0 F6E2 FD1FF4 STD WR_TAP_ADDR F6E5 39 RTS F6E6 1A10 ORCC #$10 F6E8 962F LDA WR_MSCO_IMG F6EA 8A02 ORA #$2 F6EC 972F STA WR_MSCO_IMG F6EE B72001 STA RD_MSCI_WR_MSCO F6F1 1CEF ANDC #$EF F6F3 39 RTS F6F4 731FF1 COM CASS_TYPE F6F7 39 RTS F6F8 0F0A CLR C_INTF_PERF F6FA C6D8 LDB #$D8 F6FC 9E64 LDX CUR_KSTACK_ADR F6FE 8D04 BSR L283 F700 C6D9 LDB #$D9 F702 9E66 LDX L263 F704 2719 L283 BEQ L284 F706 1F98 TFR B,A F708 BDCD8A JSR C_INF_OUT F70B A684 LDA 0,X F70D BDCD8A JSR C_INF_OUT F710 861F LDA #$1F F712 BDCD8A JSR C_INF_OUT F715 AE02 LDX $2,X F717 20EB BRA L283 F719 0F0F CLR C_INTF_ECHO F71B 8601 LDA #$1 F71D 970A STA C_INTF_PERF F71F 39 L284 RTS F720 0F09 CLR C_INTF_PANL F722 39 RTS F723 0F0F CLR C_INTF_ECHO F725 8601 LDA #$1 F727 9709 STA C_INTF_PANL F729 39 RTS F72A 8603 LDA #$3 F72C BDCD8A JSR C_INF_OUT F72F 4F CLRA F730 BDCD8A JSR C_INF_OUT F733 CE1400 LDU #$1400 F736 C63B LDB #$3B '; F738 7ECDF4 JMP PRNT_C_INF_N_BYTE F73B 9635 LDA DISP_PARAM_VAL F73D 841F ANDA #$1F F73F B71FFC STA ATTACK_THRES F742 39 RTS F743 9635 LDA DISP_PARAM_VAL F745 841F ANDA #$1F F747 B71FFD STA RELSE_THRES F74A 39 RTS F74B 9635 LDA DISP_PARAM_VAL F74D 841F ANDA #$1F F74F B71FFE STA REL_SLOW_RATE F752 39 RTS F753 9635 LDA DISP_PARAM_VAL F755 841F ANDA #$1F F757 B71FFF STA REL_FAST_RATE F75A 39 RTS F75B CCFFFF LDD #$FFFF F75E FD2006 STD RD_NOTE_WR_LED F761 8E0020 LDX #$20 F764 ED81 STD ,X++ F766 ED81 STD ,X++ F768 ED81 STD ,X++ F76A ED81 STD ,X++ F76C ED81 STD ,X++ F76E ED84 STD 0,X F770 39 RTS F771 BDE63F JSR SETUP_INST01_VOL F774 7F0618 CLR L177 F777 39 RTS F778 BDE63F JSR SETUP_INST01_VOL F77B 7F0678 CLR L178 F77E 39 RTS F77F BDE63F JSR SETUP_INST01_VOL F782 1A10 ORCC #$10 F784 962F LDA WR_MSCO_IMG F786 84FD ANDA #$FD F788 972F STA WR_MSCO_IMG F78A B72001 STA RD_MSCI_WR_MSCO F78D 1CEF ANDC #$EF F78F 39 RTS F790 B60BFF LDA L67 F793 8104 CMPA #$4 F795 2701 BEQ DO_SOFT_SUBR F797 39 RTS F798 7E0C00 DO_SOFT_SUBR JMP L66 F79B 4F CLRA F79C 200A BRA LNK_OUTPUT F79E 8601 LDA #$1 F7A0 2006 BRA LNK_OUTPUT F7A2 8602 LDA #$2 F7A4 2002 BRA LNK_OUTPUT F7A6 8603 LDA #$3 F7A8 108E06C0 LNK_OUTPUT LDY #$6C0 F7AC 7EE465 JMP OUTPUT_SEL F7AF 4F CLRA F7B0 108E06C0 LDY #$6C0 F7B4 7EE300 JMP PATCH_HNDLR F7B7 8601 LDA #$1 F7B9 970B STA PRG_UNDERWAY F7BB 7EF275 JMP L285 F7BE 8602 LDA #$2 F7C0 970B STA PRG_UNDERWAY F7C2 7EF275 JMP L285 F7C5 8603 LDA #$3 F7C7 970B STA PRG_UNDERWAY F7C9 7EF275 JMP L285 F7CC C602 CP_A_CP_B LDB #$2 F7CE 2002 BRA STOR_CP_MODE F7D0 C604 CP_B_CP_B LDB #$4 F7D2 F71FF6 STOR_CP_MODE STB COPY_MODE F7D5 A79F1FF4 STA [$1FF4] F7D9 7F1FF7 CLR PNL_KEY_CODE F7DC C63B LDB #$3B '; F7DE 3D MUL F7DF C31400 ADDD #$1400 F7E2 FD1FFA STD CP_PRG_ADDR F7E5 7EDD31 JMP PNT_PANL F7E8 A79F1FF4 STA [$1FF4] F7EC B7141D STA P0_SEQNC_PROG F7EF CE1400 LDU #$1400 F7F2 B61FF2 LDA CURR_PROG_NUM F7F5 C63B LDB #$3B '; F7F7 3D MUL F7F8 33CB LEAU D,U F7FA B6141D LDA P0_SEQNC_PROG F7FD A7C81D STA 29,U F800 B6141D LDA P0_SEQNC_PROG F803 5F CLRB F804 BDDC9D JSR OUTPUT_BIG_PROG F807 7EDD31 JMP PNT_PANL F80A 02 SINE_DATA_01 FCB $02 F80B 05 SINE_DATA_02 FCB $05 F80C 08 SINE_DATA_03 FCB $08 F80D 0B SINE_DATA_04 FCB $0B F80E 0E SINE_DATA_05 FCB $0E F80F 11 SINE_DATA_06 FCB $11 F810 14 SINE_DATA_07 FCB $14 F811 17 SINE_DATA_08 FCB $17 F812 1A SINE_DATA_09 FCB $1A F813 1D SINE_DATA_10 FCB $1D F814 20 SINE_DATA_11 FCB $20 F815 23 SINE_DATA_12 FCB $23 F816 26 SINE_DATA_13 FCB $26 F817 29 SINE_DATA_14 FCB $29 F818 2C SINE_DATA_15 FCB $2C F819 2F SINE_DATA_16 FCB $2F F81A 32 SINE_DATA_17 FCB $32 F81B 35 SINE_DATA_18 FCB $35 F81C 38 SINE_DATA_19 FCB $38 F81D 3A SINE_DATA_20 FCB $3A F81E 3D SINE_DATA_21 FCB $3D F81F 40 SINE_DATA_22 FCB $40 F820 43 SINE_DATA_23 FCB $43 F821 45 SINE_DATA_24 FCB $45 F822 48 SINE_DATA_25 FCB $48 F823 4A SINE_DATA_26 FCB $4A F824 4D SINE_DATA_27 FCB $4D F825 4F SINE_DATA_28 FCB $4F F826 52 SINE_DATA_29 FCB $52 F827 54 SINE_DATA_30 FCB $54 F828 56 SINE_DATA_31 FCB $56 F829 59 SINE_DATA_32 FCB $59 F82A 5B SINE_DATA_33 FCB $5B F82B 5D SINE_DATA_34 FCB $5D F82C 5F SINE_DATA_35 FCB $5F F82D 61 SINE_DATA_36 FCB $61 F82E 63 SINE_DATA_37 FCB $63 F82F 65 SINE_DATA_38 FCB $65 F830 67 SINE_DATA_39 FCB $67 F831 69 SINE_DATA_40 FCB $69 F832 6A SINE_DATA_41 FCB $6A F833 6C SINE_DATA_42 FCB $6C F834 6E SINE_DATA_43 FCB $6E F835 6F SINE_DATA_44 FCB $6F F836 71 SINE_DATA_45 FCB $71 F837 72 SINE_DATA_46 FCB $72 F838 73 SINE_DATA_47 FCB $73 F839 75 SINE_DATA_48 FCB $75 F83A 76 SINE_DATA_49 FCB $76 F83B 77 SINE_DATA_50 FCB $77 F83C 78 SINE_DATA_51 FCB $78 F83D 79 SINE_DATA_52 FCB $79 F83E 7A SINE_DATA_53 FCB $7A F83F 7B SINE_DATA_54 FCB $7B F840 7C SINE_DATA_55 FCB $7C F841 7C SINE_DATA_56 FCB $7C F842 7D SINE_DATA_57 FCB $7D F843 7D SINE_DATA_58 FCB $7D F844 7E SINE_DATA_59 FCB $7E F845 7E SINE_DATA_60 FCB $7E F846 7F SINE_DATA_61 FCB $7F F847 7F SINE_DATA_62 FCB $7F F848 7F SINE_DATA_63 FCB $7F F849 7F SINE_DATA_64 FCB $7F F84A 0200 CHNL_ADR_00 FDB $0200 F84C 0240 CHNL_ADR_01 FDB $0240 F84E 0280 CHNL_ADR_02 FDB $0280 F850 02C0 CHNL_ADR_03 FDB $02C0 F852 0300 CHNL_ADR_04 FDB $0300 F854 0340 CHNL_ADR_05 FDB $0340 F856 0380 CHNL_ADR_06 FDB $0380 F858 03C0 CHNL_ADR_07 FDB $03C0 F85A 0400 CHNL_ADR_08 FDB $0400 F85C 0440 CHNL_ADR_09 FDB $0440 F85E 0480 CHNL_ADR_10 FDB $0480 F860 04C0 CHNL_ADR_11 FDB $04C0 F862 0500 CHNL_ADR_12 FDB $0500 F864 0540 CHNL_ADR_13 FDB $0540 F866 0580 CHNL_ADR_14 FDB $0580 F868 05C0 CHNL_ADR_15 FDB $05C0 F86A 1F1F1C191613110F TIME_TO_VEL1 FDB $1F1F,$1C19,$1613,$110F F872 0E0C0B0A09080807 TIME_TO_VEL2 FDB $0E0C,$0B0A,$0908,$0807 F87A 0707060606060605 TIME_TO_VEL3 FDB $0707,$0606,$0606,$0605 F882 0505050505050404 TIME_TO_VEL4 FDB $0505,$0505,$0505,$0404 F88A 040404040404040403030303 TIME_TO_VEL5 FDB $0404,$0404,$0404,$0404,$0303,$0303 F896 03030303030303030202020202020202 TIME_TO_VEL7 FDB $0303,$0303,$0303,$0303,$0202,$0202,$0202,$0202 F8A6 02020202020202010101010101010101 TIME_TO_VEL8 FDB $0202,$0202,$0202,$0201,$0101,$0101,$0101,$0101 F8B6 01010101010101010101010101010101 TIME_TO_VEL9 FDB $0101,$0101,$0101,$0101,$0101,$0101,$0101,$0101 F8C6 01010101010101010101010101010101 TIME_TO_VEL10 FDB $0101,$0101,$0101,$0101,$0101,$0101,$0101,$0101 F8D6 01010101 TIME_TO_VEL11 FDB $0101,$0101 F8DA 0000000000000000 SQZ_TO_PRESS_0 FDB $0000,$0000,$0000,$0000 F8E2 0000000000000000 SQZ_TO_PRESS_1 FDB $0000,$0000,$0000,$0000 F8EA FF ENV_ATK_MOD_0_0 FCB $FF F8EB FF ENV_ATK_MOD_0_1 FCB $FF F8EC FF ENV_ATK_MOD_1_0 FCB $FF F8ED FF ENV_ATK_MOD_1_1 FCB $FF F8EE 80 ENV_ATK_MOD_2_0 FCB $80 F8EF 00 ENV_ATK_MOD_2_1 FCB $00 F8F0 69 ENV_ATK_MOD_3_0 FCB $69 F8F1 CF ENV_ATK_MOD_3_1 FCB $CF F8F2 57 ENV_ATK_MOD_4_0 FCB $57 F8F3 76 ENV_ATK_MOD_4_1 FCB $76 F8F4 48 ENV_ATK_MOD_5_0 FCB $48 F8F5 4C ENV_ATK_MOD_5_1 FCB $4C F8F6 3B ENV_ATK_MOD_6_0 FCB $3B F8F7 C3 ENV_ATK_MOD_6_1 FCB $C3 F8F8 31 ENV_ATK_MOD_7_0 FCB $31 F8F9 67 ENV_ATK_MOD_7_1 FCB $67 F8FA 28 ENV_ATK_MOD_8_0 FCB $28 F8FB D6 ENV_ATK_MOD_8_1 FCB $D6 F8FC 21 ENV_ATK_MOD_9_0 FCB $21 F8FD C1 ENV_ATK_MOD_9_1 FCB $C1 F8FE 1B ENV_ATK_MOD_10_0 FCB $1B F8FF E7 ENV_ATK_MOD_10_1 FCB $E7 F900 17 ENV_ATK_MOD_11_0 FCB $17 F901 11 ENV_ATK_MOD_11_1 FCB $11 F902 13 ENV_ATK_MOD_12_0 FCB $13 F903 11 ENV_ATK_MOD_12_1 FCB $11 F904 0F ENV_ATK_MOD_13_0 FCB $0F F905 C3 ENV_ATK_MOD_13_1 FCB $C3 F906 0D ENV_ATK_MOD_14_0 FCB $0D F907 07 ENV_ATK_MOD_14_1 FCB $07 F908 0A ENV_ATK_MOD_15_0 FCB $0A F909 C5 ENV_ATK_MOD_15_1 FCB $C5 F90A 08 ENV_ATK_MOD_16_0 FCB $08 F90B E7 ENV_ATK_MOD_16_1 FCB $E7 F90C 07 ENV_ATK_MOD_17_0 FCB $07 F90D 5C ENV_ATK_MOD_17_1 FCB $5C F90E 06 ENV_ATK_MOD_18_0 FCB $06 F90F 15 ENV_ATK_MOD_18_1 FCB $15 F910 05 ENV_ATK_MOD_19_0 FCB $05 F911 07 ENV_ATK_MOD_19_1 FCB $07 F912 04 ENV_ATK_MOD_20_0 FCB $04 F913 28 ENV_ATK_MOD_20_1 FCB $28 F914 03 ENV_ATK_MOD_21_0 FCB $03 F915 6F ENV_ATK_MOD_21_1 FCB $6F F916 02 ENV_ATK_MOD_22_0 FCB $02 F917 D7 ENV_ATK_MOD_22_1 FCB $D7 F918 02 ENV_ATK_MOD_23_0 FCB $02 F919 59 ENV_ATK_MOD_23_1 FCB $59 F91A 01 ENV_ATK_MOD_24_0 FCB $01 F91B F1 ENV_ATK_MOD_24_1 FCB $F1 F91C 01 ENV_ATK_MOD_25_0 FCB $01 F91D 9B ENV_ATK_MOD_25_1 FCB $9B F91E 01 ENV_ATK_MOD_26_0 FCB $01 F91F 53 ENV_ATK_MOD_26_1 FCB $53 F920 01 ENV_ATK_MOD_27_0 FCB $01 F921 19 ENV_ATK_MOD_27_1 FCB $19 F922 00 ENV_ATK_MOD_28_0 FCB $00 F923 E8 ENV_ATK_MOD_28_1 FCB $E8 F924 00 ENV_ATK_MOD_29_0 FCB $00 F925 C0 ENV_ATK_MOD_29_1 FCB $C0 F926 00 ENV_ATK_MOD_30_0 FCB $00 F927 9E ENV_ATK_MOD_30_1 FCB $9E F928 00 ENV_ATK_MOD_31_0 FCB $00 F929 83 ENV_ATK_MOD_31_1 FCB $83 F92A FF ENV_DCY_MOD_0 FCB $FF F92B FF ENV_DCY_MOD_1 FCB $FF F92C 80 ENV_DCY_MOD_2 FCB $80 F92D 69 ENV_DCY_MOD_3 FCB $69 F92E 56 ENV_DCY_MOD_4 FCB $56 F92F 47 ENV_DCY_MOD_5 FCB $47 F930 3A ENV_DCY_MOD_6 FCB $3A F931 30 ENV_DCY_MOD_7 FCB $30 F932 27 ENV_DCY_MOD_8 FCB $27 F933 20 ENV_DCY_MOD_9 FCB $20 F934 1A ENV_DCY_MOD_10 FCB $1A F935 16 ENV_DCY_MOD_11 FCB $16 F936 12 ENV_DCY_MOD_12 FCB $12 F937 0E ENV_DCY_MOD_13 FCB $0E F938 0C ENV_DCY_MOD_14 FCB $0C F939 0A ENV_DCY_MOD_15 FCB $0A F93A 40 ENV_DCY_MOD_16 FCB $40 F93B 35 ENV_DCY_MOD_17 FCB $35 F93C 2B ENV_DCY_MOD_18 FCB $2B F93D 23 ENV_DCY_MOD_19 FCB $23 F93E 1D ENV_DCY_MOD_20 FCB $1D F93F 18 ENV_DCY_MOD_21 FCB $18 F940 14 ENV_DCY_MOD_22 FCB $14 F941 10 ENV_DCY_MOD_23 FCB $10 F942 0D ENV_DCY_MOD_24 FCB $0D F943 0B ENV_DCY_MOD_25 FCB $0B F944 09 ENV_DCY_MOD_26 FCB $09 F945 07 ENV_DCY_MOD_27 FCB $07 F946 06 ENV_DCY_MOD_28 FCB $06 F947 05 ENV_DCY_MOD_29 FCB $05 F948 04 ENV_DCY_MOD_30 FCB $04 F949 03 ENV_DCY_MOD_31 FCB $03 F94A 80 GLISSANDRO_0 FCB $80 F94B 80 GLISSANDRO_1 FCB $80 F94C 55 GLISSANDRO_2 FCB $55 F94D 40 GLISSANDRO_3 FCB $40 F94E 3A GLISSANDRO_4 FCB $3A F94F 35 GLISSANDRO_5 FCB $35 F950 30 GLISSANDRO_6 FCB $30 F951 2C GLISSANDRO_7 FCB $2C F952 28 GLISSANDRO_8 FCB $28 F953 25 GLISSANDRO_9 FCB $25 F954 22 GLISSANDRO_10 FCB $22 F955 1F GLISSANDRO_11 FCB $1F F956 1C GLISSANDRO_12 FCB $1C F957 1A GLISSANDRO_13 FCB $1A F958 18 GLISSANDRO_14 FCB $18 F959 16 GLISSANDRO_15 FCB $16 F95A 14 GLISSANDRO_16 FCB $14 F95B 13 GLISSANDRO_17 FCB $13 F95C 12 GLISSANDRO_18 FCB $12 F95D 11 GLISSANDRO_19 FCB $11 F95E 10 GLISSANDRO_20 FCB $10 F95F 0F GLISSANDRO_21 FCB $0F F960 0E GLISSANDRO_22 FCB $0E F961 0D GLISSANDRO_23 FCB $0D F962 0C GLISSANDRO_24 FCB $0C F963 0B GLISSANDRO_25 FCB $0B F964 0A GLISSANDRO_26 FCB $0A F965 09 GLISSANDRO_27 FCB $09 F966 08 GLISSANDRO_28 FCB $08 F967 07 GLISSANDRO_29 FCB $07 F968 06 GLISSANDRO_30 FCB $06 F969 05 GLISSANDRO_31 FCB $05 F96A 10 KYBD_SWP_A_MOD-8 FCB $10 F96B 11 KYBD_SWP_A_MOD-7 FCB $11 F96C 13 KYBD_SWP_A_MOD-6 FCB $13 F96D 15 KYBD_SWP_A_MOD-5 FCB $15 F96E 17 KYBD_SWP_A_MOD-4 FCB $17 F96F 19 KYBD_SWP_A_MOD-3 FCB $19 F970 1B KYBD_SWP_A_MOD-2 FCB $1B F971 1D KYBD_SWP_A_MOD-1 FCB $1D F972 20 KYBD_SWP_A_MOD_0 FCB $20 F973 23 KYBD_SWP_A_MOD_1 FCB $23 F974 26 KYBD_SWP_A_MOD_2 FCB $26 F975 29 KYBD_SWP_A_MOD_3 FCB $29 F976 2D KYBD_SWP_A_MOD_4 FCB $2D F977 31 KYBD_SWP_A_MOD_5 FCB $31 F978 36 KYBD_SWP_A_MOD_6 FCB $36 F979 3B KYBD_SWP_A_MOD_7 FCB $3B F97A 40 KYBD_SWP_A_MOD_8 FCB $40 F97B 7E LED_CODE_0 FCB $7E F97C 30 LED_CODE_1 FCB $30 F97D 6D LED_CODE_2 FCB $6D F97E 79 LED_CODE_3 FCB $79 F97F 33 LED_CODE_4 FCB $33 F980 5B LED_CODE_5 FCB $5B F981 5F LED_CODE_6 FCB $5F F982 70 LED_CODE_7 FCB $70 F983 7F LED_CODE_8 FCB $7F F984 7B LED_CODE_9 FCB $7B F985 01 PARAM_LMT_00 FCB $01 F986 03 PARAM_LMT_01 FCB $03 F987 07 PARAM_LMT_02 FCB $07 F988 0F PARAM_LMT_03 FCB $0F F989 1F PARAM_LMT_04 FCB $1F F98A 3F PARAM_LMT_05 FCB $3F F98B 7F PARAM_LMT_06 FCB $7F F98C FF PARAM_LMT_07 FCB $FF F98D 00A3 SWP_R_0_DAT FDB $00A3 F98F 00B0 SWP_R_1_DAT FDB $00B0 F991 00BD SWP_R_2_DAT FDB $00BD F993 00CB SWP_R_3_DAT FDB $00CB F995 00DB SWP_R_4_DAT FDB $00DB F997 00EB SWP_R_5_DAT FDB $00EB F999 00FD SWP_R_6_DAT FDB $00FD F99B 0110 SWP_R_7_DAT FDB $0110 F99D 0125 SWP_R_8_DAT FDB $0125 F99F 013B SWP_R_9_DAT FDB $013B F9A1 0153 SWP_R_10_DAT FDB $0153 F9A3 016D SWP_R_11_DAT FDB $016D F9A5 0188 SWP_R_12_DAT FDB $0188 F9A7 01A6 SWP_R_13_DAT FDB $01A6 F9A9 01C6 SWP_R_14_DAT FDB $01C6 F9AB 01E9 SWP_R_15_DAT FDB $01E9 F9AD 020E SWP_R_16_DAT FDB $020E F9AF 0235 SWP_R_17_DAT FDB $0235 F9B1 0260 SWP_R_18_DAT FDB $0260 F9B3 028F SWP_R_19_DAT FDB $028F F9B5 02C0 SWP_R_20_DAT FDB $02C0 F9B7 02F6 SWP_R_21_DAT FDB $02F6 F9B9 032F SWP_R_22_DAT FDB $032F F9BB 036D SWP_R_23_DAT FDB $036D F9BD 03AF SWP_R_24_DAT FDB $03AF F9BF 03F7 SWP_R_25_DAT FDB $03F7 F9C1 0444 SWP_R_26_DAT FDB $0444 F9C3 0497 SWP_R_27_DAT FDB $0497 F9C5 04F0 SWP_R_28_DAT FDB $04F0 F9C7 0550 SWP_R_29_DAT FDB $0550 F9C9 05B7 SWP_R_30_DAT FDB $05B7 F9CB 0626 SWP_R_31_DAT FDB $0626 F9CD 069D SWP_R_32_DAT FDB $069D F9CF 071D SWP_R_33_DAT FDB $071D F9D1 07A7 SWP_R_34_DAT FDB $07A7 F9D3 083C SWP_R_35_DAT FDB $083C F9D5 08DC SWP_R_36_DAT FDB $08DC F9D7 0988 SWP_R_37_DAT FDB $0988 F9D9 0A41 SWP_R_38_DAT FDB $0A41 F9DB 0B08 SWP_R_39_DAT FDB $0B08 F9DD 0BDE SWP_R_40_DAT FDB $0BDE F9DF 0CC4 SWP_R_41_DAT FDB $0CC4 F9E1 0DBC SWP_R_42_DAT FDB $0DBC F9E3 0EC7 SWP_R_43_DAT FDB $0EC7 F9E5 0FE6 SWP_R_44_DAT FDB $0FE6 F9E7 111A SWP_R_45_DAT FDB $111A F9E9 1266 SWP_R_46_DAT FDB $1266 F9EB 13CC SWP_R_47_DAT FDB $13CC F9ED 154C SWP_R_48_DAT FDB $154C F9EF 16E9 SWP_R_49_DAT FDB $16E9 F9F1 18A6 SWP_R_50_DAT FDB $18A6 F9F3 1A85 SWP_R_51_DAT FDB $1A85 F9F5 1C88 SWP_R_52_DAT FDB $1C88 F9F7 1EB2 SWP_R_53_DAT FDB $1EB2 F9F9 2105 SWP_R_54_DAT FDB $2105 F9FB 2387 SWP_R_55_DAT FDB $2387 F9FD 2638 SWP_R_56_DAT FDB $2638 F9FF 291E SWP_R_57_DAT FDB $291E FA01 2C3C SWP_R_58_DAT FDB $2C3C FA03 2F97 SWP_R_59_DAT FDB $2F97 FA05 3333 SWP_R_60_DAT FDB $3333 FA07 3715 SWP_R_61_DAT FDB $3715 FA09 3B43 SWP_R_62_DAT FDB $3B43 FA0B 3FC1 SWP_R_63_DAT FDB $3FC1 FA0D 0000 SWP0_DAT_ADDR FDB $0000 FA0F 00 SWP0_DAT_LGTH FCB $00 FA10 0000 SWP1_DAT_ADDR FDB $0000 FA12 00 SWP1_DAT_LGTH FCB $00 FA13 0000 SWP2_DAT_ADDR FDB $0000 FA15 00 SWP2_DAT_LGTH FCB $00 FA16 0000 SWP3_DAT_ADDR FDB $0000 FA18 00 SWP3_DAT_LGTH FCB $00 FA19 0000 SWP4_DAT_ADDR FDB $0000 FA1B 00 SWP4_DAT_LGTH FCB $00 FA1C 0000 SWP5_DAT_ADDR FDB $0000 FA1E 00 SWP5_DAT_LGTH FCB $00 FA1F 0000 SWP6_DAT_ADDR FDB $0000 FA21 00 SWP6_DAT_LGTH FCB $00 FA22 0000 SWP7_DAT_ADDR FDB $0000 FA24 00 SWP7_DAT_LGTH FCB $00 FA25 FA3D SWP8_DAT_ADDR FDB $FA3D FA27 02 SWP8_DAT_LGTH FCB $02 FA28 FA3F SWP9_DAT_ADDR FDB $FA3F FA2A 03 SWP9_DAT_LGTH FCB $03 FA2B FA42 SWP10_DAT_ADDR FDB $FA42 FA2D 04 SWP10_DAT_LGTH FCB $04 FA2E FA46 SWP11_DAT_ADDR FDB $FA46 FA30 04 SWP11_DAT_LGTH FCB $04 FA31 FA4A SWP12_DAT_ADDR FDB $FA4A FA33 06 SWP12_DAT_LGTH FCB $06 FA34 FA50 SWP13_DAT_ADDR FDB $FA50 FA36 06 SWP13_DAT_LGTH FCB $06 FA37 FA56 SWP14_DAT_ADDR FDB $FA56 FA39 08 SWP14_DAT_LGTH FCB $08 FA3A D800 SWP15_DAT_ADDR FDB $D800 FA3C FF SWP15_DAT_LGTH FCB $FF FA3D 4000 SWP_WAVE_8_DAT FDB $4000 FA3F 402000 SWP_WAVE_9_DAT FCB $40,$20,$00 FA42 40200020 SWP_WAVE10_DAT FDB $4020,$0020 FA46 402000E0 SWP_WAVE11_DAT FDB $4020,$00E0 FA4A 402000E00020 SWP_WAVE12_DAT FDB $4020,$00E0,$0020 FA50 402000E0C0A0 SWP_WAVE13_DAT FDB $4020,$00E0,$C0A0 FA56 402000E0C0E00020 SWP_WAVE14_DAT FDB $4020,$00E0,$C0E0,$0020 FA5E 108E0034 PSVE_RESET_VAL LDY #$34 FA62 AE24 L286 LDX $4,Y FA64 2724 BEQ NO_NXT_CHAN FA66 7F2008 MORE_BRD_4INST CLR RD_EOC_WR_SYND FA69 A607 LDA $7,X FA6B 44 LSRA FA6C 8A10 ORA #$10 FA6E B72009 STA WR_SYNA FA71 8D4F BSR AUTO_TUNE_CH_X FA73 260F BNE GET_NXT_BOARD FA75 308840 LEAX $40,X FA78 8D48 BSR AUTO_TUNE_CH_X FA7A 3088C0 LEAX $C0,X FA7D 4D TSTA FA7E 2604 BNE GET_NXT_BOARD FA80 3184 LEAY 0,X FA82 20DE BRA L286 FA84 AE04 GET_NXT_BOARD LDX $4,X FA86 AF24 STX $4,Y FA88 26DC BNE MORE_BRD_4INST FA8A C640 NO_NXT_CHAN LDB #$40 '@ FA8C BDFD1A JSR S_H_16_CH FA8F 960B LDA PRG_UNDERWAY FA91 8401 ANDA #$1 FA93 2715 BEQ L287 FA95 8E0200 LDX #$200 FA98 CE0000 LDU #$0 FA9B EF04 L288 STU $4,X FA9D 3384 LEAU 0,X FA9F 30890080 LEAX 128,X FAA3 8C0580 CMPX #$580 FAA6 23F3 BLS L288 FAA8 DF38 STU LNK_INST_ADR FAAA 0F0B L287 CLR PRG_UNDERWAY FAAC BDD8EE JSR BOARD_ASSIGN FAAF BDDD67 JSR BAD_BRD_HNDLR FAB2 863F LDA #$3F '? FAB4 9707 STA RESET_VAL FAB6 860F LDA #$F FAB8 9706 STA RDAC_OFFSET FABA 962F LDA WR_MSCO_IMG FABC B72001 STA RD_MSCI_WR_MSCO FABF 1CAF ANDC #$AF FAC1 39 RTS FAC2 8680 AUTO_TUNE_CH_X LDA #$80 FAC4 A78835 STA $35,X FAC7 A78838 STA $38,X FACA 4F CLRA FACB 5F CLRB FACC ED8836 STD $36,X FACF 8617 LDA #$17 FAD1 E607 LDB $7,X FAD3 54 LSRB FAD4 2402 BCC EVEN_CHAN FAD6 CA08 ORB #$8 FAD8 FD2008 EVEN_CHAN STD RD_EOC_WR_SYND FADB 860D LDA #$D FADD B72001 STA RD_MSCI_WR_MSCO FAE0 CCFFFF LDD #$FFFF FAE3 FD2006 STD RD_NOTE_WR_LED FAE6 CC02C0 LDD #$2C0 FAE9 ED8833 STD $33,X FAEC CC0340 LDD #$340 FAEF BDFD1A DO_3_SHA_1 JSR S_H_16_CH FAF2 4A DECA FAF3 26FA BNE DO_3_SHA_1 FAF5 8601 LDA #$1 FAF7 BDFCE7 JSR SET_TIMER_A FAFA BDFC25 JSR TIMER_LOOKUP FAFD 102700E2 LBEQ TURN_LEDS_OFF FB01 DD01 STD MEM_01 FB03 CC0BC0 LDD #$BC0 FB06 ED8833 STD $33,X FB09 CC0340 LDD #$340 FB0C BDFD1A DO_3_SHA_2 JSR S_H_16_CH FB0F 4A DECA FB10 26FA BNE DO_3_SHA_2 FB12 BDFCE7 JSR SET_TIMER_A FB15 BDFC25 JSR TIMER_LOOKUP FB18 102700C7 LBEQ TURN_LEDS_OFF FB1C 9301 SUBD MEM_01 FB1E 47 ASRA FB1F 56 RORB FB20 BDFBEA JSR L289 FB23 102700BC LBEQ TURN_LEDS_OFF FB27 A78835 STA $35,X FB2A CC02C0 LDD #$2C0 FB2D ED8833 STD $33,X FB30 CC0340 LDD #$340 FB33 BDFD1A L290 JSR S_H_16_CH FB36 4A DECA FB37 26FA BNE L290 FB39 8601 LDA #$1 FB3B BDFCE7 JSR SET_TIMER_A FB3E BDFC25 JSR TIMER_LOOKUP FB41 1027009E LBEQ TURN_LEDS_OFF FB45 83D23D SUBD #$D23D FB48 102D0097 LBLT TURN_LEDS_OFF FB4C C35014 ADDD #$5014 FB4F BDFCD6 JSR D_DIV_3_64 FB52 ED8833 STD $33,X FB55 860F LDA #$F FB57 B72001 STA RD_MSCI_WR_MSCO FB5A 4F CLRA FB5B 5F CLRB FB5C FD2006 STD RD_NOTE_WR_LED FB5F 8610 LDA #$10 FB61 E607 LDB $7,X FB63 54 LSRB FB64 2402 BCC L291 FB66 CA08 ORB #$8 FB68 FD2008 L291 STD RD_EOC_WR_SYND FB6B CC0680 LDD #$680 FB6E ED8836 STD $36,X FB71 CC0A40 LDD #$A40 FB74 BDFD1A L292 JSR S_H_16_CH FB77 4A DECA FB78 26FA BNE L292 FB7A BDFCE7 JSR SET_TIMER_A FB7D BDFC25 JSR TIMER_LOOKUP FB80 2755 BEQ L293 FB82 8B60 ADDA #$60 '` FB84 DD01 STD MEM_01 FB86 CC0B00 LDD #$B00 FB89 ED8836 STD $36,X FB8C CC0A40 LDD #$A40 FB8F BDFD1A L294 JSR S_H_16_CH FB92 4A DECA FB93 26FA BNE L294 FB95 BDFCE7 JSR SET_TIMER_A FB98 BDFC25 JSR TIMER_LOOKUP FB9B 273A BEQ L293 FB9D 9301 SUBD MEM_01 FB9F BDFBEA JSR L289 FBA2 2733 BEQ L293 FBA4 A78838 STA $38,X FBA7 CC0B00 LDD #$B00 FBAA ED8836 STD $36,X FBAD CC0A40 LDD #$A40 FBB0 BDFD1A L295 JSR S_H_16_CH FBB3 4A DECA FBB4 26FA BNE L295 FBB6 BDFCE7 JSR SET_TIMER_A FBB9 BDFC25 JSR TIMER_LOOKUP FBBC 2719 BEQ L293 FBBE 8391B4 SUBD #$91B4 FBC1 2D14 BLT L293 FBC3 BDFCD6 JSR D_DIV_3_64 FBC6 ED8836 STD $36,X FBC9 8617 LDA #$17 FBCB E607 LDB $7,X FBCD 54 LSRB FBCE 2402 BCC L296 FBD0 CA08 ORB #$8 FBD2 FD2008 L296 STD RD_EOC_WR_SYND FBD5 4F CLRA FBD6 39 RTS FBD7 8617 L293 LDA #$17 FBD9 E607 LDB $7,X FBDB 54 LSRB FBDC 2402 BCC A_PARAM FBDE CA08 ORB #$8 FBE0 FD2008 A_PARAM STD RD_EOC_WR_SYND FBE3 4F TURN_LEDS_OFF CLRA FBE4 5F CLRB FBE5 FD2006 STD RD_NOTE_WR_LED FBE8 4A DECA FBE9 39 RTS FBEA C30600 L289 ADDD #$600 FBED 2B34 BMI L297 FBEF 10830CD0 CMPD #$CD0 FBF3 2E2E BGT L297 FBF5 C35A00 ADDD #$5A00 FBF8 DD00 STD MEM_00 FBFA 8610 LDA #$10 FBFC 9704 STA MEM_04 FBFE CC9248 LDD #$9248 FC01 DD02 STD MEM_02 FC03 CC02CC LDD #$2CC FC06 0803 L299 ASL MEM_03 FC08 0902 ROL MEM_02 FC0A 59 ROLB FC0B 49 ROLA FC0C 109300 CMPD MEM_00 FC0F 2504 BCS L298 FC11 9300 SUBD MEM_00 FC13 0C03 INC MEM_03 FC15 0A04 L298 DEC MEM_04 FC17 26ED BNE L299 FC19 58 ASLB FC1A 49 ROLA FC1B 109300 CMPD MEM_00 FC1E 9603 LDA MEM_03 FC20 82F6 SBCA #$F6 FC22 39 RTS FC23 4F L297 CLRA FC24 39 RTS FC25 3420 TIMER_LOOKUP PSHS Y FC27 108E0000 LDY #$0 FC2B 31A9E000 L301 LEAY -8192,Y FC2F 271F BEQ L300 FC31 58 ASLB FC32 49 ROLA FC33 2AF6 BPL L301 FC35 3420 PSHS Y FC37 44 LSRA FC38 56 RORB FC39 843F ANDA #$3F '? FC3B 48 ASLA FC3C 108EFC54 LDY #$FC54 FC40 31A6 LEAY A,Y FC42 A623 LDA $3,Y FC44 A021 SUBA $1,Y FC46 3D MUL FC47 1F89 TFR A,B FC49 4F CLRA FC4A E3A4 ADDD 0,Y FC4C ABE1 ADDA ,S++ FC4E 35A0 PULS Y,PC FC50 4F L300 CLRA FC51 5F CLRB FC52 35A0 PULS Y,PC FC54 000000B7016C021D02CC0379042304CB TIMER_TBL0 FDB $0000,$00B7,$016C,$021D,$02CC,$0379,$0423,$04CB FC64 0570061306B4075207EF088A092209B9 TIMER_TBL1 FDB $0570,$0613,$06B4,$0752,$07EF,$088A,$0922,$09B9 FC74 0A4D0AE00B710C000C8E0D1A0DA40E2D TIMER_TBL2 FDB $0A4D,$0AE0,$0B71,$0C00,$0C8E,$0D1A,$0DA4,$0E2D FC84 0EB40F390FBD104010C1114111BF123C TIMER_TBL3 FDB $0EB4,$0F39,$0FBD,$1040,$10C1,$1141,$11BF,$123C FC94 12B8133213AC1424149A1510158515F8 TIMER_TBL4 FDB $12B8,$1332,$13AC,$1424,$149A,$1510,$1585,$15F8 FCA4 166A16DB174B17BA182818951901196C TIMER_TBL5 FDB $166A,$16DB,$174B,$17BA,$1828,$1895,$1901,$196C FCB4 19D61A3F1AA71B0E1B751BDA1C3F1CA2 TIMER_TBL6 FDB $19D6,$1A3F,$1AA7,$1B0E,$1B75,$1BDA,$1C3F,$1CA2 FCC4 1D051D671DC91E291E891EE81F461FA3 TIMER_TBL7 FDB $1D05,$1D67,$1DC9,$1E29,$1E89,$1EE8,$1F46,$1FA3 FCD4 2000 BRA D_DIV_3_64 FCD6 47 D_DIV_3_64 ASRA FCD7 56 RORB FCD8 47 ASRA FCD9 56 RORB FCDA 47 ASRA FCDB 56 RORB FCDC 47 ASRA FCDD 56 RORB FCDE 47 ASRA FCDF 56 RORB FCE0 DD01 STD MEM_01 FCE2 47 ASRA FCE3 56 RORB FCE4 D301 ADDD MEM_01 FCE6 39 RTS FCE7 B72003 SET_TIMER_A STA RD_TIME_WR_TMOD FCEA B72003 STA RD_TIME_WR_TMOD FCED CC08C0 LDD #$8C0 FCF0 8D28 STILL_TICKING BSR S_H_16_CH FCF2 B52001 BITA RD_MSCI_WR_MSCO FCF5 26F9 BNE STILL_TICKING FCF7 FC2003 LDD RD_TIME_WR_TMOD FCFA 271D BEQ DONE_TIMER FCFC CC08C0 LDD #$8C0 FCFF 8D19 STILL_TICK_2 BSR S_H_16_CH FD01 B52001 BITA RD_MSCI_WR_MSCO FD04 26F9 BNE STILL_TICK_2 FD06 960B LDA PRG_UNDERWAY FD08 8402 ANDA #$2 FD0A 2604 BNE RESET_EQ_8X FD0C FC2003 LDD RD_TIME_WR_TMOD FD0F 39 RTS FD10 FC2003 RESET_EQ_8X LDD RD_TIME_WR_TMOD FD13 58 ASLB FD14 49 ROLA FD15 2802 BVC DONE_TIMER FD17 4F CLRA FD18 5F CLRB FD19 39 DONE_TIMER RTS FD1A 3456 S_H_16_CH PSHS U,X,B,A FD1C 3084 LEAX 0,X FD1E 2706 BEQ NO_NEXT_CH FD20 A607 LDA $7,X FD22 9700 STA MEM_00 FD24 2004 BRA L302 FD26 86FF NO_NEXT_CH LDA #$FF FD28 9700 STA MEM_00 FD2A 8E0200 L302 LDX #$200 FD2D D707 STB RESET_VAL FD2F F7200B PTCH_WDTH_CUT STB WR_SHA FD32 54 LSRB FD33 252F BCS SHA_0 FD35 54 LSRB FD36 2516 BCS SHA_1 FD38 A607 LDA $7,X FD3A 9100 CMPA MEM_00 FD3C 2605 BNE PITCH_RST FD3E EC8833 LDD $33,X FD41 2003 BRA PITCH_SET FD43 CC0FFF PITCH_RST LDD #$FFF FD46 FD200C PITCH_SET STD WR_MDAC FD49 A68835 LDA $35,X FD4C 2039 BRA RDAC_SHA_SET FD4E A607 SHA_1 LDA $7,X FD50 9100 CMPA MEM_00 FD52 2605 BNE CUTOFF_RST FD54 EC8836 LDD $36,X FD57 2003 BRA CUTOFF_SET FD59 CC0FFF CUTOFF_RST LDD #$FFF FD5C FD200C CUTOFF_SET STD WR_MDAC FD5F A68838 LDA $38,X FD62 2023 BRA RDAC_SHA_SET FD64 54 SHA_0 LSRB FD65 250A BCS SHA_0_1 FD67 CC0800 LDD #$800 FD6A FD200C STD WR_MDAC FD6D 86FF LDA #$FF FD6F 2016 BRA RDAC_SHA_SET FD71 A607 SHA_0_1 LDA $7,X FD73 9100 CMPA MEM_00 FD75 2605 BNE VOLUME_RST FD77 CC0FFF LDD #$FFF FD7A 2003 BRA VOLUME_SET FD7C CC0000 VOLUME_RST LDD #$0 FD7F FD200C VOLUME_SET STD WR_MDAC FD82 86FF LDA #$FF FD84 308840 LEAX $40,X FD87 D607 RDAC_SHA_SET LDB RESET_VAL FD89 C4BF ANDB #$BF FD8B FD200A STD WR_RDAC FD8E 8614 LDA #$14 FD90 4A LOOP_20 DECA FD91 26FD BNE LOOP_20 FD93 CA40 ORB #$40 '@ FD95 F7200B STB WR_SHA FD98 5C INCB FD99 2906 BVS SH_ETC_EXIT FD9B 2704 BEQ SH_ETC_EXIT FD9D D707 STB RESET_VAL FD9F 208E BRA PTCH_WDTH_CUT FDA1 35D6 SH_ETC_EXIT PULS A,B,X,U,PC FDA3 00000000000000000000000000000000 EMPTY1 FDB $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 FDB3 00000000000000000000000000000000 EMPTY11 FDB $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 FDC3 00000000000000000000000000000000 EMPTY2 FD