ORG $0000 L001A: JMP $1000 ; 001A: 7E 10 00 L0022: ASRA ; 0022: 47 STA >$82 ; 0023: 97 82 CLR >$21 ; 0025: 0F 21 CLR >$22 ; 0027: 0F 22 JSR Init_Music_Buf ; 0029: BD F5 33 CLR >$67 ; 002C: 0F 67 JSR DP_to_C8 ; 002E: BD F1 AF CLR >$9D ; 0031: 0F 9D INC >$9D ; 0033: 0C 9D LDX #$C900 ; 0035: 8E C9 00 STX >$80 ; 0038: 9F 80 L003A: LDA #$03 ; 003A: 86 03 STA $08,X ; 003C: A7 08 CLR $09,X ; 003E: 6F 09 JSR Clear_Score ; 0040: BD F8 4F LDX #$C90E ; 0043: 8E C9 0E DEC >$9D ; 0046: 0A 9D BPL $3A ; 0048: 2A F0 LDX #$C900 ; 004A: 8E C9 00 LDD #$A5 ; 004D: CC 00 A5 STD $0A,X ; 0050: ED 0A LDX #$C90E ; 0052: 8E C9 0E LDD #$5B ; 0055: CC 00 5B STD $0A,X ; 0058: ED 0A LDA #$A0 ; 005A: 86 A0 STA >$A8 ; 005C: 97 A8 LDA #$06 ; 005E: 86 06 STA >$A7 ; 0060: 97 A7 LDA #$01 ; 0062: 86 01 STA >$84 ; 0064: 97 84 LDA #$3F ; 0066: 86 3F STA >$85 ; 0068: 97 85 LDX #$C8C5 ; 006A: 8E C8 C5 LDB #$26 ; 006D: C6 26 JSR Clear_x_b ; 006F: BD F5 3F JSR $0EF6 ; 0072: BD 0E F6 LDX #$C8D1 ; 0075: 8E C8 D1 JSR Clear_Score ; 0078: BD F8 4F LDX >$80 ; 007B: 9E 80 LDD $0A,X ; 007D: EC 0A STD >$8F ; 007F: DD 8F LDA $08,X ; 0081: A6 08 JSR $0315 ; 0083: BD 03 15 L0086: CLR >$86 ; 0086: 0F 86 JSR $0D41 ; 0088: BD 0D 41 JSR Init_Music_chk ; 008B: BD F6 87 LDA >$26 ; 008E: 96 26 BITA #$10 ; 0090: 85 10 BNE $96 ; 0092: 26 02 DEC >$86 ; 0094: 0A 86 L0096: JSR $1014 ; 0096: BD 10 14 JSR $0486 ; 0099: BD 04 86 JSR Do_Sound ; 009C: BD F2 89 JSR DP_to_C8 ; 009F: BD F1 AF DEC >$85 ; 00A2: 0A 85 BNE $86 ; 00A4: 26 E0 LDX >$80 ; 00A6: 9E 80 DEC $08,X ; 00A8: 6A 08 JSR Init_Music_Buf ; 00AA: BD F5 33 BRA $B5 ; 00AD: 20 06 L00B5: LDA #$2A ; 00B5: 86 2A STA >$86 ; 00B7: 97 86 LDU >$80 ; 00B9: DE 80 LDD $0A,U ; 00BB: EC 4A STD >$8F ; 00BD: DD 8F STD >$95 ; 00BF: DD 95 LDX #$C8E0 ; 00C1: 8E C8 E0 LDB #$05 ; 00C4: C6 05 JSR Clear_x_b ; 00C6: BD F5 3F CLR >$83 ; 00C9: 0F 83 DEC >$83 ; 00CB: 0A 83 LDA $01,U ; 00CD: A6 41 CMPA #$20 ; 00CF: 81 20 BEQ $D7 ; 00D1: 27 04 LDA #$06 ; 00D3: 86 06 STA >$83 ; 00D5: 97 83 L00D7: LDD $02,U ; 00D7: EC 42 LDX #$0A2D ; 00D9: 8E 0A 2D L00DC: INC >$83 ; 00DC: 0C 83 TST ,X ; 00DE: 6D 84 BMI $E7 ; 00E0: 2B 05 CMPD ,X++ ; 00E2: 10 A3 81 BGE $DC ; 00E5: 2C F5 L00E7: LDX #$C8D1 ; 00E7: 8E C8 D1 JSR Clear_Score ; 00EA: BD F8 4F LDA >$83 ; 00ED: 96 83 CMPA #$06 ; 00EF: 81 06 BLT $F5 ; 00F1: 2D 02 INC >$84 ; 00F3: 0C 84 L00F5: ASRA ; 00F5: 47 SUBA #$06 ; 00F6: 80 06 NEGA ; 00F8: 40 BPL $FC ; 00F9: 2A 01 CLRA ; 00FB: 4F L00FC: STA >$A7 ; 00FC: 97 A7 LDX #$C974 ; 00FE: 8E C9 74 JSR Clear_x_256 ; 0101: BD F5 45 L0104: CLR >$C7 ; 0104: 0F C7 LDB #$0B ; 0106: C6 0B LDX #$0CE6 ; 0108: 8E 0C E6 LDU #$C91C ; 010B: CE C9 1C L010E: JSR Random ; 010E: BD F5 17 CMPA >$A8 ; 0111: 91 A8 BHI $014C ; 0113: 22 37 INC >$C7 ; 0115: 0C C7 LDA #$80 ; 0117: 86 80 STA $02,U ; 0119: A7 42 JSR Random ; 011B: BD F5 17 ANDA #$1F ; 011E: 84 1F STA >$9D ; 0120: 97 9D SUBA #$10 ; 0122: 80 10 ADDA ,X ; 0124: AB 84 STA ,U ; 0126: A7 C4 JSR Random ; 0128: BD F5 17 ANDA #$0F ; 012B: 84 0F SUBA #$08 ; 012D: 80 08 ADDA $01,X ; 012F: AB 01 STA $01,U ; 0131: A7 41 CLR $03,U ; 0133: 6F 43 CLR $04,U ; 0135: 6F 44 JSR Random ; 0137: BD F5 17 ANDA #$07 ; 013A: 84 07 STA $05,U ; 013C: A7 45 LDA >$83 ; 013E: 96 83 CMPA #$06 ; 0140: 81 06 BLT $0146 ; 0142: 2D 02 SUBA #$06 ; 0144: 80 06 L0146: STA $06,U ; 0146: A7 46 CLR $07,U ; 0148: 6F 47 LEAU $08,U ; 014A: 33 48 L014C: LEAX $02,X ; 014C: 30 02 DECB ; 014E: 5A BNE $010E ; 014F: 26 BD LDA >$C7 ; 0151: 96 C7 BEQ $0104 ; 0153: 27 AF STA >$C8 ; 0155: 97 C8 TFR U,D ; 0157: 1F 30 SUBD #$C924 ; 0159: 83 C9 24 STB >$AA ; 015C: D7 AA LDD >$95 ; 015E: DC 95 STD >$91 ; 0160: DD 91 STD >$93 ; 0162: DD 93 LDA #$05 ; 0164: 86 05 STA >$30 ; 0166: 97 30 LDA #$20 ; 0168: 86 20 STA >$97 ; 016A: 97 97 LDA #$01 ; 016C: 86 01 STA >$98 ; 016E: 97 98 LDA >$C7 ; 0170: 96 C7 LDB #$50 ; 0172: C6 50 MUL ; 0174: 3D TSTA ; 0175: 4D BNE $017B ; 0176: 26 03 LDA #$02 ; 0178: 86 02 CLRB ; 017A: 5F L017B: STD >$2E ; 017B: DD 2E CLR >$C5 ; 017D: 0F C5 JSR Wait_Recal ; 017F: BD F1 92 JSR Joy_Digital ; 0182: BD F1 F8 JSR $1029 ; 0185: BD 10 29 JSR Do_Sound ; 0188: BD F2 89 JSR $0486 ; 018B: BD 04 86 JSR DP_to_C8 ; 018E: BD F1 AF LDX #$0198 ; 0191: 8E 01 98 LDA >$C5 ; 0194: 96 C5 JMP [A,X] ; 0196: 6E 96 L0315: CLRB ; 0315: 5F LDU #$C8D8 ; 0316: CE C8 D8 STA >$9D ; 0319: 97 9D BEQ $0326 ; 031B: 27 09 LDA #$69 ; 031D: 86 69 L031F: STA B,U ; 031F: A7 C5 INCB ; 0321: 5C CMPB >$9D ; 0322: D1 9D BLT $031F ; 0324: 2D F9 L0326: LDA #$20 ; 0326: 86 20 STA B,U ; 0328: A7 C5 INCB ; 032A: 5C STA B,U ; 032B: A7 C5 INCB ; 032D: 5C LDA #$80 ; 032E: 86 80 STA B,U ; 0330: A7 C5 RTS ; 0332: 39 L0486: INC Vec_0Ref_Enable ; 0486: 7C C8 24 JSR Intensity_5F ; 0489: BD F2 A5 LDX #Draw_VL ; 048C: 8E F3 DD STX $C8C9 ; 048F: BF C8 C9 LDA #$7F ; 0492: 86 7F STA $C8CB ; 0494: B7 C8 CB LDB #$04 ; 0497: C6 04 STB $FFF1,S ; 0499: E7 71 LDU #$0B0B ; 049B: CE 0B 0B L049E: LDA #$01 ; 049E: 86 01 STA Vec_Misc_Count ; 04A0: B7 C8 23 LDX $02,U ; 04A3: AE 42 JSR $08C7 ; 04A5: BD 08 C7 LEAU $04,U ; 04A8: 33 44 DEC $FFF1,S ; 04AA: 6A 71 BNE $049E ; 04AC: 26 F0 CLR Vec_Misc_Count ; 04AE: 7F C8 23 LDA #$08 ; 04B1: 86 08 STA $FFF1,S ; 04B3: A7 71 LDY #$C8AB ; 04B5: 10 8E C8 AB LDU #$0B1B ; 04B9: CE 0B 1B L04BC: LDB ,Y+ ; 04BC: E6 A0 LDX #$0B3B ; 04BE: 8E 0B 3B ABX ; 04C1: 3A JSR $08C7 ; 04C2: BD 08 C7 LEAU $02,U ; 04C5: 33 42 DEC $FFF1,S ; 04C7: 6A 71 BNE $04BC ; 04C9: 26 F1 LDU #$0AE9 ; 04CB: CE 0A E9 LDA $C8C6 ; 04CE: B6 C8 C6 BEQ $04DB ; 04D1: 27 08 LDU A,U ; 04D3: EE C6 LEAX $02,U ; 04D5: 30 42 CLRA ; 04D7: 4F JSR $08C7 ; 04D8: BD 08 C7 L04DB: LDD #$F838 ; 04DB: CC F8 38 STD Vec_Text_HW ; 04DE: FD C8 2A LDA $C8D5 ; 04E1: B6 C8 D5 CMPA #$30 ; 04E4: 81 30 BLE $04F7 ; 04E6: 2F 0F LDU #$0AE1 ; 04E8: CE 0A E1 JSR Print_Str_yx ; 04EB: BD F3 78 LDD #$70F0 ; 04EE: CC 70 F0 LDU #$C8D1 ; 04F1: CE C8 D1 JSR Print_Str_d ; 04F4: BD F3 7A L04F7: JSR $0632 ; 04F7: BD 06 32 LDD #$F820 ; 04FA: CC F8 20 STD Vec_Text_HW ; 04FD: FD C8 2A LDU #$C8D8 ; 0500: CE C8 D8 TST $C881 ; 0503: 7D C8 81 BEQ $0510 ; 0506: 27 08 LDD #$9840 ; 0508: CC 98 40 JSR Print_Str_d ; 050B: BD F3 7A BRA $0516 ; 050E: 20 06 L0510: LDD #$98A0 ; 0510: CC 98 A0 JSR Print_Str_d ; 0513: BD F3 7A L0516: LDU #$C974 ; 0516: CE C9 74 LDA $C8CC ; 0519: B6 C8 CC L051C: BEQ $0532 ; 051C: 27 14 STA $FFF1,S ; 051E: A7 71 LDB $07,U ; 0520: E6 47 ANDB #$0F ; 0522: C4 0F BEQ $052B ; 0524: 27 05 LEAX $02,U ; 0526: 30 42 JSR $08C7 ; 0528: BD 08 C7 L052B: LEAU $08,U ; 052B: 33 48 LDA $FFF1,S ; 052D: A6 71 DECA ; 052F: 4A BRA $051C ; 0530: 20 EA L0532: LDA $C8C7 ; 0532: B6 C8 C7 LBEQ $05E7 ; 0535: 10 27 00 AE STA $FFF1,S ; 0539: A7 71 LDU #$C91C ; 053B: CE C9 1C L053E: TST $07,U ; 053E: 6D 47 BEQ $0544 ; 0540: 27 02 DEC $07,U ; 0542: 6A 47 L0544: LDA $02,U ; 0544: A6 42 LBEQ $05BE ; 0546: 10 27 00 74 BPL $0599 ; 054A: 2A 4D CLR Vec_0Ref_Enable ; 054C: 7F C8 24 LDA #$04 ; 054F: 86 04 STA $C8CB ; 0551: B7 C8 CB LDY #$0A67 ; 0554: 10 8E 0A 67 LDA $03,U ; 0558: A6 43 ASLA ; 055A: 48 LDY A,Y ; 055B: 10 AE A6 LDX #$0619 ; 055E: 8E 06 19 STX $C8C9 ; 0561: BF C8 C9 JSR $08C7 ; 0564: BD 08 C7 LEAY $06,Y ; 0567: 31 26 LDX #$0614 ; 0569: 8E 06 14 STX $C8C9 ; 056C: BF C8 C9 JSR $08C7 ; 056F: BD 08 C7 LEAY $06,Y ; 0572: 31 26 INC Vec_0Ref_Enable ; 0574: 7C C8 24 LDX #Mov_Draw_VL ; 0577: 8E F3 BC STX $C8C9 ; 057A: BF C8 C9 LDA #$04 ; 057D: 86 04 STA Vec_Misc_Count ; 057F: B7 C8 23 LDA $04,U ; 0582: A6 44 ANDA #$06 ; 0584: 84 06 LDX A,Y ; 0586: AE A6 LDD ,X ; 0588: EC 84 BEQ $058F ; 058A: 27 03 JSR $08C7 ; 058C: BD 08 C7 L058F: LEAU $08,U ; 058F: 33 48 DEC $FFF1,S ; 0591: 6A 71 LBNE $053E ; 0593: 10 26 FF A7 BRA $05C6 ; 0597: 20 2D L0599: JSR Random ; 0599: BD F5 17 TFR A,B ; 059C: 1F 89 CLRA ; 059E: 4F TFR D,X ; 059F: 1F 01 LDA #$06 ; 05A1: 86 06 STA $FFF9,S ; 05A3: A7 79 L05A5: LDD ,U ; 05A5: EC C4 JSR Moveto_d_7F ; 05A7: BD F2 FC LDB ,X+ ; 05AA: E6 80 ANDB #$07 ; 05AC: C4 07 LDA ,X+ ; 05AE: A6 80 ANDA #$07 ; 05B0: 84 07 JSR Dot_d ; 05B2: BD F2 C3 JSR Reset0Ref ; 05B5: BD F3 54 DEC $FFF9,S ; 05B8: 6A 79 BNE $05A5 ; 05BA: 26 E9 DEC $02,U ; 05BC: 6A 42 L05BE: LEAU $08,U ; 05BE: 33 48 DEC $FFF1,S ; 05C0: 6A 71 LBNE $053E ; 05C2: 10 26 FF 78 L05C6: TST Vec_Counters ; 05C6: 7D C8 2E BNE $05E7 ; 05C9: 26 1C TST Vec_Counter_2 ; 05CB: 7D C8 2F BNE $05E7 ; 05CE: 26 17 INC Vec_0Ref_Enable ; 05D0: 7C C8 24 LDA #$14 ; 05D3: 86 14 STA $C8CB ; 05D5: B7 C8 CB LDX #Draw_VLp ; 05D8: 8E F4 10 STX $C8C9 ; 05DB: BF C8 C9 LDX #$0B99 ; 05DE: 8E 0B 99 LDU #$C893 ; 05E1: CE C8 93 JSR $08C7 ; 05E4: BD 08 C7 L05E7: TST $C886 ; 05E7: 7D C8 86 BMI $0613 ; 05EA: 2B 27 LDX #$09EF ; 05EC: 8E 09 EF STX $C8C9 ; 05EF: BF C8 C9 LDA #$09 ; 05F2: 86 09 STA $C8CB ; 05F4: B7 C8 CB LDU #$C88F ; 05F7: CE C8 8F JSR $08C7 ; 05FA: BD 08 C7 JSR Reset0Ref ; 05FD: BD F3 54 LDA $C8C5 ; 0600: B6 C8 C5 CMPA #$04 ; 0603: 81 04 BNE $0613 ; 0605: 26 0C LDA $C8D0 ; 0607: B6 C8 D0 STA $C8CB ; 060A: B7 C8 CB JSR $08C7 ; 060D: BD 08 C7 JSR Reset0Ref ; 0610: BD F3 54 L0613: RTS ; 0613: 39 L0632: LDD #$7086 ; 0632: CC 70 86 LDU #$C900 ; 0635: CE C9 00 JSR Print_Str_d ; 0638: BD F3 7A TST $C882 ; 063B: 7D C8 82 BEQ $0649 ; 063E: 27 09 LDD #$7024 ; 0640: CC 70 24 LDU #$C90E ; 0643: CE C9 0E JSR Print_Str_d ; 0646: BD F3 7A L0649: RTS ; 0649: 39 L08C7: JSR DP_to_C8 ; 08C7: BD F1 AF LDB ,U ; 08CA: E6 C4 SEX ; 08CC: 1D ADDD >$E2 ; 08CD: D3 E2 STB >$9D ; 08CF: D7 9D BPL $08E6 ; 08D1: 2A 13 COMA ; 08D3: 43 BNE $0936 ; 08D4: 26 60 TST >$E6 ; 08D6: 0D E6 BMI $08F7 ; 08D8: 2B 1D TST ,U ; 08DA: 6D C4 BPL $0936 ; 08DC: 2A 58 LDA #$3F ; 08DE: 86 3F CMPA >$E0 ; 08E0: 91 E0 BLT $0936 ; 08E2: 2D 52 BRA $08F7 ; 08E4: 20 11 L08E6: TSTA ; 08E6: 4D BNE $0936 ; 08E7: 26 4D TST >$E6 ; 08E9: 0D E6 BPL $08F7 ; 08EB: 2A 0A TST ,U ; 08ED: 6D C4 BMI $0936 ; 08EF: 2B 45 LDA #$C1 ; 08F1: 86 C1 CMPA >$E0 ; 08F3: 91 E0 BGE $0936 ; 08F5: 2C 3F L08F7: LDB $01,U ; 08F7: E6 41 SEX ; 08F9: 1D ADDD >$E4 ; 08FA: D3 E4 STB >$9E ; 08FC: D7 9E BPL $0913 ; 08FE: 2A 13 COMA ; 0900: 43 BNE $0936 ; 0901: 26 33 TST >$E6 ; 0903: 0D E6 BMI $0924 ; 0905: 2B 1D TST $01,U ; 0907: 6D 41 BPL $0936 ; 0909: 2A 2B LDA #$3F ; 090B: 86 3F CMPA >$E1 ; 090D: 91 E1 BLT $0936 ; 090F: 2D 25 BRA $0924 ; 0911: 20 11 L0913: TSTA ; 0913: 4D BNE $0936 ; 0914: 26 20 TST >$E6 ; 0916: 0D E6 BPL $0924 ; 0918: 2A 0A TST $01,U ; 091A: 6D 41 BMI $0936 ; 091C: 2B 18 LDA #$C1 ; 091E: 86 C1 CMPA >$E1 ; 0920: 91 E1 BGE $0936 ; 0922: 2C 12 L0924: JSR DP_to_D0 ; 0924: BD F1 AA LDD $C89D ; 0927: FC C8 9D JSR Moveto_d_7F ; 092A: BD F2 FC LDA $C8CB ; 092D: B6 C8 CB STA >$04 ; 0930: 97 04 JSR [$C8C9] ; 0932: AD 9F C8 C9 L0936: JMP DP_to_D0 ; 0936: 7E F1 AA L0D41: INC >$77 ; 0D41: 0C 77 LDA #$0E ; 0D43: 86 0E STA >$44 ; 0D45: 97 44 STA >$43 ; 0D47: 97 43 STA >$42 ; 0D49: 97 42 LDA >$67 ; 0D4B: 96 67 BITA #$80 ; 0D4D: 85 80 BEQ $0D54 ; 0D4F: 27 03 JMP $0DF2 ; 0D51: 7E 0D F2 L0D54: BITA #$08 ; 0D54: 85 08 BEQ $0D62 ; 0D56: 27 0A LDD #$80 ; 0D58: CC 00 80 STA >$77 ; 0D5B: 97 77 STB >$67 ; 0D5D: D7 67 JMP $0DEB ; 0D5F: 7E 0D EB L0D62: BITA #$40 ; 0D62: 85 40 BEQ $0D69 ; 0D64: 27 03 JMP $0E32 ; 0D66: 7E 0E 32 L0D69: BITA #$04 ; 0D69: 85 04 BEQ $0D77 ; 0D6B: 27 0A LDD #$40 ; 0D6D: CC 00 40 STA >$77 ; 0D70: 97 77 STB >$67 ; 0D72: D7 67 JMP $0E22 ; 0D74: 7E 0E 22 L0D77: BITA #$02 ; 0D77: 85 02 BEQ $0D85 ; 0D79: 27 0A LDD #$20 ; 0D7B: CC 00 20 STA >$77 ; 0D7E: 97 77 STB >$67 ; 0D80: D7 67 JMP $0DB2 ; 0D82: 7E 0D B2 L0D85: BITA #$20 ; 0D85: 85 20 BEQ $0D8C ; 0D87: 27 03 JMP $0DC3 ; 0D89: 7E 0D C3 L0D8C: BITA #$01 ; 0D8C: 85 01 BEQ $0D9A ; 0D8E: 27 0A LDD #$10 ; 0D90: CC 00 10 STA >$77 ; 0D93: 97 77 STB >$67 ; 0D95: D7 67 JMP $0E56 ; 0D97: 7E 0E 56 L0D9A: BITA #$10 ; 0D9A: 85 10 BEQ $0DA1 ; 0D9C: 27 03 JMP $0E6A ; 0D9E: 7E 0E 6A L0DA1: LDA >$76 ; 0DA1: 96 76 BITA #$10 ; 0DA3: 85 10 BEQ $0DAA ; 0DA5: 27 03 JMP $0EAB ; 0DA7: 7E 0E AB L0DAA: BITA #$01 ; 0DAA: 85 01 BEQ $0DB1 ; 0DAC: 27 03 JMP $0E99 ; 0DAE: 7E 0E 99 L0DB1: RTS ; 0DB1: 39 L0DB2: LDD #$39 ; 0DB2: CC 00 39 STD >$4B ; 0DB5: DD 4B LDD #$30 ; 0DB7: CC 00 30 STD >$49 ; 0DBA: DD 49 LDD #$0100 ; 0DBC: CC 01 00 STD >$47 ; 0DBF: DD 47 BRA $0DD8 ; 0DC1: 20 15 L0DC3: LDD >$4B ; 0DC3: DC 4B ADDD #$14 ; 0DC5: C3 00 14 STD >$4B ; 0DC8: DD 4B LDD >$49 ; 0DCA: DC 49 ADDD #$24 ; 0DCC: C3 00 24 STD >$49 ; 0DCF: DD 49 LDD >$47 ; 0DD1: DC 47 ADDD #$60 ; 0DD3: C3 00 60 STD >$47 ; 0DD6: DD 47 L0DD8: LDA #$24 ; 0DD8: 86 24 L0DDA: CMPA >$77 ; 0DDA: 91 77 BLS $0DE2 ; 0DDC: 23 04 LDA #$38 ; 0DDE: 86 38 BRA $0DE8 ; 0DE0: 20 06 L0DE2: LDA #$3F ; 0DE2: 86 3F CLR >$67 ; 0DE4: 0F 67 CLR >$76 ; 0DE6: 0F 76 L0DE8: STA >$45 ; 0DE8: 97 45 RTS ; 0DEA: 39 L0DEB: LDD #$C0 ; 0DEB: CC 00 C0 STD >$4B ; 0DEE: DD 4B CLR >$6A ; 0DF0: 0F 6A L0DF2: LDA >$77 ; 0DF2: 96 77 BITA #$01 ; 0DF4: 85 01 BEQ $0DFF ; 0DF6: 27 07 LDD >$4B ; 0DF8: DC 4B ADDD #$10 ; 0DFA: C3 00 10 BRA $0E04 ; 0DFD: 20 05 L0DFF: LDD >$4B ; 0DFF: DC 4B SUBD #$13 ; 0E01: 83 00 13 L0E04: STD >$4B ; 0E04: DD 4B LDB >$6A ; 0E06: D6 6A INCB ; 0E08: 5C CMPB #$08 ; 0E09: C1 08 BLS $0E0F ; 0E0B: 23 02 LDB #$06 ; 0E0D: C6 06 L0E0F: STB >$6A ; 0E0F: D7 6A LDA #$50 ; 0E11: 86 50 MUL ; 0E13: 3D STD >$49 ; 0E14: DD 49 LDB >$6A ; 0E16: D6 6A LDA #$31 ; 0E18: 86 31 MUL ; 0E1A: 3D STD >$47 ; 0E1B: DD 47 LDA #$2C ; 0E1D: 86 2C JMP $0DDA ; 0E1F: 7E 0D DA L0E22: LDD #$30 ; 0E22: CC 00 30 STD >$4B ; 0E25: DD 4B LDD #$00 ; 0E27: CC 00 00 STD >$49 ; 0E2A: DD 49 LDD #$0120 ; 0E2C: CC 01 20 STD >$47 ; 0E2F: DD 47 RTS ; 0E31: 39 L0E32: LDX #Vec_Music_Wk_1 ; 0E32: 8E C8 4B BSR $0E41 ; 0E35: 8D 0A LDX #Vec_reg3 ; 0E37: 8E C8 49 BSR $0E41 ; 0E3A: 8D 05 LDA #$18 ; 0E3C: 86 18 JMP $0DDA ; 0E3E: 7E 0D DA L0E41: LDA >$77 ; 0E41: 96 77 BITA #$01 ; 0E43: 85 01 BEQ $0E4E ; 0E45: 27 07 LDD ,X ; 0E47: EC 84 ADDD #$23 ; 0E49: C3 00 23 BRA $0E53 ; 0E4C: 20 05 L0E4E: LDD ,X ; 0E4E: EC 84 SUBD #$10 ; 0E50: 83 00 10 L0E53: STD ,X ; 0E53: ED 84 RTS ; 0E55: 39 L0E56: LDA #$03 ; 0E56: 86 03 STA >$6A ; 0E58: 97 6A LDD #$39 ; 0E5A: CC 00 39 STD >$4B ; 0E5D: DD 4B LDD #$30 ; 0E5F: CC 00 30 STD >$49 ; 0E62: DD 49 LDD #$40 ; 0E64: CC 00 40 STD >$47 ; 0E67: DD 47 RTS ; 0E69: 39 L0E6A: LDA >$6A ; 0E6A: 96 6A BMI $0E7F ; 0E6C: 2B 11 LDB >$77 ; 0E6E: D6 77 CMPB #$04 ; 0E70: C1 04 BLS $0E7F ; 0E72: 23 0B CLR >$77 ; 0E74: 0F 77 DEC >$6A ; 0E76: 0A 6A LDD #$39 ; 0E78: CC 00 39 STD >$4B ; 0E7B: DD 4B BRA $0E86 ; 0E7D: 20 07 L0E7F: LDD >$4B ; 0E7F: DC 4B ADDD #$1A ; 0E81: C3 00 1A STD >$4B ; 0E84: DD 4B L0E86: LDD >$49 ; 0E86: DC 49 ADDD #$24 ; 0E88: C3 00 24 STD >$49 ; 0E8B: DD 49 LDD >$47 ; 0E8D: DC 47 ADDD #$24 ; 0E8F: C3 00 24 STD >$47 ; 0E92: DD 47 LDA #$1C ; 0E94: 86 1C JMP $0DDA ; 0E96: 7E 0D DA L0E99: LDA #$10 ; 0E99: 86 10 CLR >$67 ; 0E9B: 0F 67 CLR >$77 ; 0E9D: 0F 77 STA >$76 ; 0E9F: 97 76 LDD #$00 ; 0EA1: CC 00 00 STD >$47 ; 0EA4: DD 47 LDD #$0300 ; 0EA6: CC 03 00 STD >$4B ; 0EA9: DD 4B L0EAB: LDA >$77 ; 0EAB: 96 77 CMPA #$06 ; 0EAD: 81 06 BLS $0EBC ; 0EAF: 23 0B CMPA #$0C ; 0EB1: 81 0C BHI $0EBC ; 0EB3: 22 07 LDD >$4B ; 0EB5: DC 4B SUBD #$40 ; 0EB7: 83 00 40 STD >$4B ; 0EBA: DD 4B L0EBC: LDD >$4B ; 0EBC: DC 4B LSRA ; 0EBE: 44 RORB ; 0EBF: 56 STD >$49 ; 0EC0: DD 49 LDA #$18 ; 0EC2: 86 18 JMP $0DDA ; 0EC4: 7E 0D DA L0EF6: LDA #$0F ; 0EF6: 86 0F LDU #$0CFC ; 0EF8: CE 0C FC LDX #$C8B5 ; 0EFB: 8E C8 B5 LEAY ,X ; 0EFE: 31 84 JSR Move_Mem_a ; 0F00: BD F6 83 LEAX ,Y ; 0F03: 30 A4 LDB #$08 ; 0F05: C6 08 STB >$9F ; 0F07: D7 9F LDU #$C8AB ; 0F09: CE C8 AB L0F0C: JSR Random ; 0F0C: BD F5 17 ANDA #$03 ; 0F0F: 84 03 CMPA #$03 ; 0F11: 81 03 BLT $0F23 ; 0F13: 2D 0E LDB ,X ; 0F15: E6 84 ORB #$08 ; 0F17: CA 08 STB ,X ; 0F19: E7 84 LDB $05,X ; 0F1B: E6 05 ORB #$04 ; 0F1D: CA 04 STB $05,X ; 0F1F: E7 05 BRA $0F53 ; 0F21: 20 30 L0F23: CMPA #$02 ; 0F23: 81 02 BLT $0F35 ; 0F25: 2D 0E LDB $01,X ; 0F27: E6 01 ORB #$08 ; 0F29: CA 08 STB $01,X ; 0F2B: E7 01 LDB $06,X ; 0F2D: E6 06 ORB #$04 ; 0F2F: CA 04 STB $06,X ; 0F31: E7 06 BRA $0F53 ; 0F33: 20 1E L0F35: CMPA #$01 ; 0F35: 81 01 BLT $0F47 ; 0F37: 2D 0E LDB $05,X ; 0F39: E6 05 ORB #$02 ; 0F3B: CA 02 STB $05,X ; 0F3D: E7 05 LDB $06,X ; 0F3F: E6 06 ORB #$01 ; 0F41: CA 01 STB $06,X ; 0F43: E7 06 BRA $0F53 ; 0F45: 20 0C L0F47: LDB ,X ; 0F47: E6 84 ORB #$02 ; 0F49: CA 02 STB ,X ; 0F4B: E7 84 LDB $01,X ; 0F4D: E6 01 ORB #$01 ; 0F4F: CA 01 STB $01,X ; 0F51: E7 01 L0F53: ASLA ; 0F53: 48 STA ,U+ ; 0F54: A7 C0 LDB #$05 ; 0F56: C6 05 CMPB >$9F ; 0F58: D1 9F BNE $0F5E ; 0F5A: 26 02 LEAX $01,X ; 0F5C: 30 01 L0F5E: LEAX $01,X ; 0F5E: 30 01 DEC >$9F ; 0F60: 0A 9F BNE $0F0C ; 0F62: 26 A8 RTS ; 0F64: 39 L1000: JSR $1132 ; 1000: BD 11 32 JSR $1139 ; 1003: BD 11 39 JSR $6E5F ; 1006: BD 6E 5F LDA #$C8 ; 1009: 86 C8 TFR A,DP ; 100B: 1F 8B LDA #$01 ; 100D: 86 01 STA >$79 ; 100F: 97 79 JMP $22 ; 1011: 7E 00 22 L1014: CLR $C8ED ; 1014: 7F C8 ED JSR Random ; 1017: BD F5 17 LSRA ; 101A: 44 ORA #$40 ; 101B: 8A 40 STA $C8EE ; 101D: B7 C8 EE JSR Wait_Recal ; 1020: BD F1 92 JSR Read_Btns ; 1023: BD F1 BA JMP $1139 ; 1026: 7E 11 39 L1029: LDA $C8C5 ; 1029: B6 C8 C5 BEQ $1042 ; 102C: 27 14 CMPA $C8EC ; 102E: B1 C8 EC BEQ $109E ; 1031: 27 6B CMPA #$02 ; 1033: 81 02 BEQ $1076 ; 1035: 27 3F STA $C8EC ; 1037: B7 C8 EC LDD #$1206 ; 103A: CC 12 06 STD $C8EF ; 103D: FD C8 EF BRA $109E ; 1040: 20 5C L1042: STA $C8EC ; 1042: B7 C8 EC LDA $C826 ; 1045: B6 C8 26 BITA #$01 ; 1048: 85 01 BNE $109E ; 104A: 26 52 LDA $C8C8 ; 104C: B6 C8 C8 BLE $109E ; 104F: 2F 4D DEC $C8EE ; 1051: 7A C8 EE BNE $109E ; 1054: 26 48 JSR Random ; 1056: BD F5 17 EORA $C826 ; 1059: B8 C8 26 ORA #$60 ; 105C: 8A 60 STA $C8EE ; 105E: B7 C8 EE LDA [$C8EF] ; 1061: A6 9F C8 EF BPL $109E ; 1065: 2A 37 LDA Vec_Random_Seed ; 1067: B6 C8 7D ANDA #$0E ; 106A: 84 0E LDX #$1154 ; 106C: 8E 11 54 LDD A,X ; 106F: EC 86 STD $C8EF ; 1071: FD C8 EF BRA $109E ; 1074: 20 28 L1076: STA $C8EC ; 1076: B7 C8 EC CLR $C8ED ; 1079: 7F C8 ED LDA $C8C8 ; 107C: B6 C8 C8 BGT $1096 ; 107F: 2E 15 JSR Random ; 1081: BD F5 17 BMI $108E ; 1084: 2B 08 LDD #$1237 ; 1086: CC 12 37 STD $C8EF ; 1089: FD C8 EF BRA $109E ; 108C: 20 10 L108E: LDD #$1257 ; 108E: CC 12 57 STD $C8EF ; 1091: FD C8 EF BRA $109E ; 1094: 20 08 L1096: LDD #$121B ; 1096: CC 12 1B STD $C8EF ; 1099: FD C8 EF BRA $109E ; 109C: 20 00 L109E: JSR Read_Btns ; 109E: BD F1 BA JSR $1139 ; 10A1: BD 11 39 LDA Vec_Btn_State ; 10A4: B6 C8 0F ANDA #$0F ; 10A7: 84 0F STA Vec_Btn_State ; 10A9: B7 C8 0F RTS ; 10AC: 39 L10C8: PSHS A ; 10C8: 34 02 LDD #$9907 ; 10CA: CC 99 07 STD >$00 ; 10CD: DD 00 LDD #$5881 ; 10CF: CC 58 81 STA >$0B ; 10D2: 97 0B STB >$00 ; 10D4: D7 00 LDD #$9C00 ; 10D6: CC 9C 00 STD >$04 ; 10D9: DD 04 LDD #$89 ; 10DB: CC 00 89 STA >$03 ; 10DE: 97 03 STB >$00 ; 10E0: D7 00 LDB #$08 ; 10E2: C6 08 LDA >$01 ; 10E4: 96 01 PSHS B,A ; 10E6: 34 06 ORA #$40 ; 10E8: 8A 40 STA >$01 ; 10EA: 97 01 LDD #$FF81 ; 10EC: CC FF 81 STB >$00 ; 10EF: D7 00 STA >$03 ; 10F1: 97 03 BSR $1123 ; 10F3: 8D 2E L10F5: LSR $02,S ; 10F5: 64 62 BCS $1103 ; 10F7: 25 0A LDA ,S ; 10F9: A6 E4 ORA #$40 ; 10FB: 8A 40 STA >$01 ; 10FD: 97 01 BSR $1123 ; 10FF: 8D 22 BRA $1109 ; 1101: 20 06 L1103: LDA ,S ; 1103: A6 E4 STA >$01 ; 1105: 97 01 BSR $1123 ; 1107: 8D 1A L1109: DEC $01,S ; 1109: 6A 61 BNE $10F5 ; 110B: 26 E8 LDA ,S ; 110D: A6 E4 STA >$01 ; 110F: 97 01 BSR $1123 ; 1111: 8D 10 LDA #$18 ; 1113: 86 18 STA >$0B ; 1115: 97 0B LDD #$0200 ; 1117: CC 02 00 STD >$04 ; 111A: DD 04 LDA #$98 ; 111C: 86 98 STA >$0B ; 111E: 97 0B LEAS $03,S ; 1120: 32 63 RTS ; 1122: 39 L1123: LDA #$40 ; 1123: 86 40 L1125: BITA >$0D ; 1125: 95 0D BEQ $1125 ; 1127: 27 FC LDA #$91 ; 1129: 86 91 STA >$00 ; 112B: 97 00 STB >$00 ; 112D: D7 00 LDA >$04 ; 112F: 96 04 RTS ; 1131: 39 L1132: LDX #$1152 ; 1132: 8E 11 52 STX $C8EF ; 1135: BF C8 EF RTS ; 1138: 39 L1139: LDA Vec_Btn_State ; 1139: B6 C8 0F BITA #$F0 ; 113C: 85 F0 BEQ $1151 ; 113E: 27 11 LDX $C8EF ; 1140: BE C8 EF LDA ,X+ ; 1143: A6 80 BMI $1151 ; 1145: 2B 0A STX $C8EF ; 1147: BF C8 EF LDB #$D0 ; 114A: C6 D0 TFR B,DP ; 114C: 1F 9B JMP $10C8 ; 114E: 7E 10 C8 L1151: RTS ; 1151: 39 L6DD6: LDA #$D0 ; 6DD6: 86 D0 TFR A,DP ; 6DD8: 1F 8B LDU #$C8F4 ; 6DDA: CE C8 F4 CLR $FFFF,S ; 6DDD: 6F 7F L6DDF: DEC ,U ; 6DDF: 6A C4 BNE $6DFE ; 6DE1: 26 1B LDX $01,U ; 6DE3: AE 41 LDD ,X++ ; 6DE5: EC 81 STA ,U ; 6DE7: A7 C4 STX $01,U ; 6DE9: AF 41 LDA $FFFF,S ; 6DEB: A6 7F STA >$01 ; 6DED: 97 01 LDA #$99 ; 6DEF: 86 99 STA >$00 ; 6DF1: 97 00 LDA #$81 ; 6DF3: 86 81 STD >$00 ; 6DF5: DD 00 LDD #$9181 ; 6DF7: CC 91 81 STA >$00 ; 6DFA: 97 00 STB >$00 ; 6DFC: D7 00 L6DFE: LEAU $03,U ; 6DFE: 33 43 LDA $FFFF,S ; 6E00: A6 7F INCA ; 6E02: 4C STA $FFFF,S ; 6E03: A7 7F CMPA #$0D ; 6E05: 81 0D BCS $6DDF ; 6E07: 25 D6 DEC ,U ; 6E09: 6A C4 BNE $6E2B ; 6E0B: 26 1E LDX $01,U ; 6E0D: AE 41 LDD ,X++ ; 6E0F: EC 81 STA ,U ; 6E11: A7 C4 STX $01,U ; 6E13: AF 41 TSTB ; 6E15: 5D BMI $6E2B ; 6E16: 2B 13 LDA #$0D ; 6E18: 86 0D STA >$01 ; 6E1A: 97 01 LDA #$99 ; 6E1C: 86 99 STA >$00 ; 6E1E: 97 00 LDA #$81 ; 6E20: 86 81 STD >$00 ; 6E22: DD 00 LDD #$9181 ; 6E24: CC 91 81 STA >$00 ; 6E27: 97 00 STB >$00 ; 6E29: D7 00 L6E2B: LDA $C8F1 ; 6E2B: B6 C8 F1 INCA ; 6E2E: 4C STA $C8F1 ; 6E2F: B7 C8 F1 CMPA #$2A ; 6E32: 81 2A BEQ $6E3D ; 6E34: 27 07 RTS ; 6E36: 39 L6E37: LDX #$16C0 ; 6E37: 8E 16 C0 STX $C8F2 ; 6E3A: BF C8 F2 L6E3D: CLR $C8F1 ; 6E3D: 7F C8 F1 LDX $C8F2 ; 6E40: BE C8 F2 LDY #$C8F4 ; 6E43: 10 8E C8 F4 LDD #$010E ; 6E47: CC 01 0E L6E4A: STA ,Y+ ; 6E4A: A7 A0 LDU ,X++ ; 6E4C: EE 81 STU ,Y++ ; 6E4E: EF A1 DECB ; 6E50: 5A BNE $6E4A ; 6E51: 26 F7 CMPX #$2CA0 ; 6E53: 8C 2C A0 BNE $6E5B ; 6E56: 26 03 LDX #$16C0 ; 6E58: 8E 16 C0 L6E5B: STX $C8F2 ; 6E5B: BF C8 F2 RTS ; 6E5E: 39 L6E5F: BSR $6E37 ; 6E5F: 8D D6 LDD #$7098 ; 6E61: CC 70 98 STD $C8EF ; 6E64: FD C8 EF CLR $C91E ; 6E67: 7F C9 1E LDD #$70C6 ; 6E6A: CC 70 C6 STD $C91F ; 6E6D: FD C9 1F LDA #$80 ; 6E70: 86 80 STA $C921 ; 6E72: B7 C9 21 L6E75: JSR $1139 ; 6E75: BD 11 39 L6E78: LDA #$20 ; 6E78: 86 20 BITA VIA_int_flags ; 6E7A: B5 D0 0D BEQ $6E78 ; 6E7D: 27 F9 LDD #$3075 ; 6E7F: CC 30 75 STD VIA_t2_lo ; 6E82: FD D0 08 JSR $6DD6 ; 6E85: BD 6D D6 JSR $6EE7 ; 6E88: BD 6E E7 JSR Read_Btns ; 6E8B: BD F1 BA BITA #$0F ; 6E8E: 85 0F BEQ $6E75 ; 6E90: 27 E3 LDA #$D0 ; 6E92: 86 D0 TFR A,DP ; 6E94: 1F 8B LDD #$073F ; 6E96: CC 07 3F STA >$01 ; 6E99: 97 01 LDA #$99 ; 6E9B: 86 99 STA >$00 ; 6E9D: 97 00 LDA #$81 ; 6E9F: 86 81 STD >$00 ; 6EA1: DD 00 LDD #$9181 ; 6EA3: CC 91 81 STA >$00 ; 6EA6: 97 00 STB >$00 ; 6EA8: D7 00 LDD #$0800 ; 6EAA: CC 08 00 STA >$01 ; 6EAD: 97 01 LDA #$99 ; 6EAF: 86 99 STA >$00 ; 6EB1: 97 00 LDA #$81 ; 6EB3: 86 81 STD >$00 ; 6EB5: DD 00 LDD #$9181 ; 6EB7: CC 91 81 STA >$00 ; 6EBA: 97 00 STB >$00 ; 6EBC: D7 00 LDD #$0900 ; 6EBE: CC 09 00 STA >$01 ; 6EC1: 97 01 LDA #$99 ; 6EC3: 86 99 STA >$00 ; 6EC5: 97 00 LDA #$81 ; 6EC7: 86 81 STD >$00 ; 6EC9: DD 00 LDD #$9181 ; 6ECB: CC 91 81 STA >$00 ; 6ECE: 97 00 STB >$00 ; 6ED0: D7 00 LDD #$0A00 ; 6ED2: CC 0A 00 STA >$01 ; 6ED5: 97 01 LDA #$99 ; 6ED7: 86 99 STA >$00 ; 6ED9: 97 00 LDA #$81 ; 6EDB: 86 81 STD >$00 ; 6EDD: DD 00 LDD #$9181 ; 6EDF: CC 91 81 STA >$00 ; 6EE2: 97 00 STB >$00 ; 6EE4: D7 00 RTS ; 6EE6: 39 L6EE7: LDA #$D0 ; 6EE7: 86 D0 TFR A,DP ; 6EE9: 1F 8B LDY $C91F ; 6EEB: 10 BE C9 1F LDA $C91E ; 6EEF: B6 C9 1E INCA ; 6EF2: 4C ANDA #$0F ; 6EF3: 84 0F STA $C91E ; 6EF5: B7 C9 1E BNE $6F0F ; 6EF8: 26 15 LEAY $01,Y ; 6EFA: 31 21 LDB $10,Y ; 6EFC: E6 A8 10 BPL $6F0B ; 6EFF: 2A 0A LDU #$7098 ; 6F01: CE 70 98 STU $C8EF ; 6F04: FF C8 EF LDY #$70C6 ; 6F07: 10 8E 70 C6 L6F0B: STY $C91F ; 6F0B: 10 BF C9 1F L6F0F: ASRA ; 6F0F: 47 STA $C922 ; 6F10: B7 C9 22 LDX #$12F8 ; 6F13: 8E 12 F8 LDB $C91E ; 6F16: F6 C9 1E ANDB #$01 ; 6F19: C4 01 EORB #$01 ; 6F1B: C8 01 ABX ; 6F1D: 3A DEC $C921 ; 6F1E: 7A C9 21 LDA #$7F ; 6F21: 86 7F STA $C923 ; 6F23: B7 C9 23 L6F26: LDA $C922 ; 6F26: B6 C9 22 BEQ $6F83 ; 6F29: 27 58 LDA #$CC ; 6F2B: 86 CC STA >$0C ; 6F2D: 97 0C LDU #$6F98 ; 6F2F: CE 6F 98 LDA $C923 ; 6F32: B6 C9 23 LDA A,U ; 6F35: A6 C6 STA >$01 ; 6F37: 97 01 LDD #$0504 ; 6F39: CC 05 04 STA >$00 ; 6F3C: 97 00 STB >$00 ; 6F3E: D7 00 LDD #$0302 ; 6F40: CC 03 02 STA >$00 ; 6F43: 97 00 CLR >$01 ; 6F45: 0F 01 STB >$00 ; 6F47: D7 00 LDA $C921 ; 6F49: B6 C9 21 LDA A,X ; 6F4C: A6 86 DEC >$00 ; 6F4E: 0A 00 STA >$01 ; 6F50: 97 01 CLRA ; 6F52: 4F STA >$00 ; 6F53: 97 00 LDB ,X ; 6F55: E6 84 NOP ; 6F57: 12 INCA ; 6F58: 4C STD >$00 ; 6F59: DD 00 LDA #$CE ; 6F5B: 86 CE STA >$0C ; 6F5D: 97 0C LDA #$18 ; 6F5F: 86 18 STA >$0B ; 6F61: 97 0B LDU #$1577 ; 6F63: CE 15 77 CLRA ; 6F66: 4F LDB ,Y ; 6F67: E6 A4 ASLB ; 6F69: 58 ROLA ; 6F6A: 49 ASLB ; 6F6B: 58 ROLA ; 6F6C: 49 ASLB ; 6F6D: 58 ROLA ; 6F6E: 49 ORB $C922 ; 6F6F: FA C9 22 LDA D,U ; 6F72: A6 CB NOP ; 6F74: 12 NOP ; 6F75: 12 NOP ; 6F76: 12 STA >$0A ; 6F77: 97 0A NOP ; 6F79: 12 NOP ; 6F7A: 12 NOP ; 6F7B: 12 NOP ; 6F7C: 12 NOP ; 6F7D: 12 NOP ; 6F7E: 12 LDA #$98 ; 6F7F: 86 98 STA >$0B ; 6F81: 97 0B L6F83: LDA $C922 ; 6F83: B6 C9 22 INCA ; 6F86: 4C ANDA #$07 ; 6F87: 84 07 STA $C922 ; 6F89: B7 C9 22 BNE $6F90 ; 6F8C: 26 02 LEAY $01,Y ; 6F8E: 31 21 L6F90: LEAX $02,X ; 6F90: 30 02 DEC $C923 ; 6F92: 7A C9 23 BPL $6F26 ; 6F95: 2A 8F RTS ; 6F97: 39