mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 15:30:02 +00:00
169 lines
4.2 KiB
Plaintext
169 lines
4.2 KiB
Plaintext
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
|