0010 .LI OFF 0020 POINTER2 .EQ $FB 0030 NOTENUM .EQ $74 0040 DNTIME .EQ $73 0050 UPTIME .EQ $72 0060 VOICE .EQ $71 0070 LENGTH .EQ $69 0080 RANDOM2.Z .EQ $1709 0090 .OR $8E6 0100 .TA $18E6 0110 .LI ON 0120 JMP Z4 0130 MUSIC 0140 .LI OFF 0150 LDY NOTENUM 0160 Z1 LDA (POINTER2),Y 0170 CMP #$FF 0180 BEQ Z2 0190 CMP #$FE 0200 BEQ Z4 0210 INC NOTENUM 0220 JMP LOOKUP 0230 Z2 LDY #$09 0240 LDX #$50 0250 BNE Z5 0260 Z4 LDY #$03 0270 LDX #$10 0280 Z3 LDA #$10 0290 STA VOICE 0300 Z5 STY POINTER2+1 0310 STX POINTER2 0320 LDY #$00 0330 STY NOTENUM 0340 .LI ON 0350 BEQ Z1 0360 .LI OFF 0370 .OR $880 0380 .TA $1880 0390 NOTES 0400 .HS 0000F6F6E8E8DBDBCFCFC3C3B8B8AEAEA4A49B9B92928A8A82827B7B74746D6E 0410 .HS 676861625C5C575752524D4E4949454541413D3E3A3A3637333430312E2E2B2C 0420 .HS 292926272425222320211E1F1D1D1B1C1A1A1819171715161415131412121111 0430 .HS 10100F100E0F 0440 .LI ON 0450 .OR $41A5 0460 .TA $11A5 0470 LOOKUP 0480 ASL 0490 .LI OFF 0500 TAY 0510 LDA NOTES,Y 0520 STA DNTIME 0530 LDA VOICE 0540 SHIFT 0550 LSR 0560 BEQ DONE 0570 LSR DNTIME 0580 BNE SHIFT 0590 DONE 0600 LDA NOTES,Y 0610 SEC 0620 SBC DNTIME 0630 STA UPTIME 0640 INY 0650 LDA NOTES,Y 0660 ADC DNTIME 0670 STA DNTIME 0680 LDA #$00 0690 STA LENGTH 0700 SEC 0710 SBC #$0D 0720 STA LENGTH+1 0730 LDA UPTIME 0740 BNE PLAY 0750 REST 0760 NOP 0770 NOP 0780 JMP REST2 0790 REST2 0800 INC LENGTH 0810 BNE REST3 0820 INC LENGTH+1 0830 BNE REST4 0840 RTS 0850 REST3 0860 NOP 0870 JMP REST4 0880 REST4 0890 BNE REST 0900 PLAY 0910 LDY UPTIME 0920 LDA $C030 0930 PLAY2 0940 INC LENGTH 0950 BNE PATH1 0960 INC LENGTH+1 0970 BNE PATH2 0980 RTS 0990 PATH1 1000 NOP 1010 JMP PATH2 1020 PATH2 1030 DEY 1040 BEQ DOWN 1050 JMP PATH3 1060 .OR $4202 1070 .TA $1202 1080 PATH3 1090 BNE PLAY2 1100 DOWN 1110 LDY DNTIME 1120 LDA $C030 1130 PLAY3 1140 INC LENGTH 1150 BNE PATH4 1160 INC LENGTH+1 1170 BNE PATH5 1180 RTS 1190 PATH4 1200 NOP 1210 JMP PATH5 1220 PATH5 1230 DEY 1240 BEQ PLAY 1250 JMP PATH6 1260 PATH6 1270 .LI ON 1280 BNE PLAY3 1290 .LI OFF 1300 NOTES.OF.THE.SONG 1310 .OR $310 1320 .TA $1310 1330 BAR1 .HS 1F0013000A000C000D000E0002000E00 1340 BAR2 .HS 070013000A000C000D000E0002000E00 1350 BAR3 .HS 070013000A000C000D000E0002000E00 1360 BAR4 .HS 070013000A000C000D000E0002000E00 1370 BAR5 .HS 1A191817161B1A191A19181716171819 1380 BAR6 .HS 1A191817161B1A191A19181716171819 1390 BAR7 .HS 1A19181718171615161718191A1B1A19 1400 BAR8 .HS 1A19181718171615161718191A1B1D1E 1410 BAR9 .HS 1F1E1D1C1B201F1E1F1E1D1C1B1C1D1E 1420 BAR10 .HS 1F1E1D1C1B201F1E1F1E1D1C1B1C1D1E 1430 BAR11 .HS 1F1E1D1C1D1C1B1A1B1C1D1E1F201F1E 1440 BAR12 .HS 1F1E1D1C1D1C1B1A1B1C1D1E1F201F1D 1450 BAR13 .HS 1A000E00000011001200150017001A00 1460 JUMP.TO.PAGE2 1470 .HS FF 1480 .OR $950 1490 .TA $1950 1500 BAR14 .HS 1B000F0000001B00130000001B001600 1510 BAR15 .HS 1A000E00000011001200150017001A00 1520 BAR16 .HS 1B000F0000001B00130000001B001600 1530 BAR17 .HS 13141312131413121314131213141312 1540 BAR18 .HS 13141516171615141314151617000000 1550 BAR19 .HS 18000C0000000F001000130015001800 1560 BAR20 .HS 19000D00000019001100000019001400 1570 BAR21 .HS 18000C0000000F001000130015001800 1580 BAR22 .HS 19000D00000019001100000019001400 1590 BAR23 .HS 18191817181918171819181718191817 1600 BAR24 .HS 18191A1B1C1B1A1918191A1B1C000000 1610 BAR25 .HS 191A1918191A1918191A1918191A1918 1620 BAR26 .HS 191A1B1C1D1C1B1A191A1B1C1D000000 1630 BAR27 .HS 1A1B1A191A1B1A191A1B1A191A1B1A19 1640 BAR28 .HS 0E0F101112131415161718191A1B1C1E 1650 JUMP.TO.PAGE1 1660 .LI ON 1670 .HS FE 1680 .LI OFF