|
|
|
@ -1,3 +1,65 @@
|
|
|
|
|
// original BASICA code by JIM LEONARD 5/8/1984
|
|
|
|
|
// port to arduino duemilanove by neingeist
|
|
|
|
|
// with some code borrowed from Joby Taffey
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
10 REM ARPEGGIO BY JIM LEONARD 5/8/1984
|
|
|
|
|
15 WIDTH 80:SCREEN 0,0,0:KEY OFF
|
|
|
|
|
20 READ N1,N2,N3,D:ON ERROR GOTO 10000
|
|
|
|
|
30 FOR I = 1 TO D
|
|
|
|
|
40 SOUND N1,D*.1
|
|
|
|
|
50 SOUND N2,D*.1
|
|
|
|
|
60 SOUND N3,D*.1
|
|
|
|
|
70 NEXT
|
|
|
|
|
80 GOTO 20
|
|
|
|
|
300 DATA 261,329,130,7
|
|
|
|
|
310 DATA 329,392,130,4
|
|
|
|
|
320 DATA 329,392,130,6
|
|
|
|
|
330 DATA 329,392,123,6
|
|
|
|
|
340 DATA 261,329,110,7
|
|
|
|
|
350 DATA 329,392,110,4
|
|
|
|
|
360 DATA 493,392,110,4
|
|
|
|
|
370 DATA 523,440,110,4
|
|
|
|
|
375 DATA 440,349,110,6
|
|
|
|
|
380 DATA 293,246,146,7
|
|
|
|
|
390 DATA 329,261,146,4
|
|
|
|
|
400 DATA 349,293,146,6
|
|
|
|
|
410 DATA 293,246,146,6
|
|
|
|
|
420 DATA 246,196,99,7
|
|
|
|
|
430 DATA 261,220,99,4
|
|
|
|
|
440 DATA 293,246,99,6
|
|
|
|
|
450 DATA 246,196,99,6
|
|
|
|
|
500 DATA 261,329,130,7:REM REPEAT (ALMOST)
|
|
|
|
|
510 DATA 329,392,130,4
|
|
|
|
|
520 DATA 329,392,130,6
|
|
|
|
|
530 DATA 329,392,123,6
|
|
|
|
|
540 DATA 261,329,110,7
|
|
|
|
|
550 DATA 329,392,110,4
|
|
|
|
|
560 DATA 493,392,110,4
|
|
|
|
|
570 DATA 523,440,110,4
|
|
|
|
|
575 DATA 440,349,110,6
|
|
|
|
|
580 DATA 293,246,146,7
|
|
|
|
|
590 DATA 329,261,146,4
|
|
|
|
|
600 DATA 349,293,146,6
|
|
|
|
|
620 DATA 246,196,99,6
|
|
|
|
|
630 DATA 261,329,110,6
|
|
|
|
|
640 DATA 261,329,110,6
|
|
|
|
|
645 DATA 261,329,110,6
|
|
|
|
|
650 DATA 246,196,99,6
|
|
|
|
|
660 DATA 174,220,82,6
|
|
|
|
|
670 DATA 174,220,82,6
|
|
|
|
|
680 DATA 174,220,82,6
|
|
|
|
|
690 DATA 246,196,99,6
|
|
|
|
|
700 DATA 261,329,110,6
|
|
|
|
|
710 DATA 261,329,110,6
|
|
|
|
|
720 DATA 261,329,110,6
|
|
|
|
|
730 DATA 261,329,110,6
|
|
|
|
|
740 DATA 261,329,110,6
|
|
|
|
|
750 DATA 261,329,110,6
|
|
|
|
|
760 DATA 261,329,110,6
|
|
|
|
|
10000 LOCATE 24,1:END
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include <avr/io.h>
|
|
|
|
|
#include <avr/interrupt.h>
|
|
|
|
|
#include <avr/delay.h>
|
|
|
|
@ -120,65 +182,3 @@ int main(void) {
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
10 REM ARPEGGIO BY JIM LEONARD 5/8/1984
|
|
|
|
|
15 WIDTH 80:SCREEN 0,0,0:KEY OFF
|
|
|
|
|
20 READ N1,N2,N3,D:ON ERROR GOTO 10000
|
|
|
|
|
30 FOR I = 1 TO D
|
|
|
|
|
40 SOUND N1,D*.1
|
|
|
|
|
50 SOUND N2,D*.1
|
|
|
|
|
60 SOUND N3,D*.1
|
|
|
|
|
70 NEXT
|
|
|
|
|
80 GOTO 20
|
|
|
|
|
300 DATA 261,329,130,7
|
|
|
|
|
310 DATA 329,392,130,4
|
|
|
|
|
320 DATA 329,392,130,6
|
|
|
|
|
330 DATA 329,392,123,6
|
|
|
|
|
340 DATA 261,329,110,7
|
|
|
|
|
350 DATA 329,392,110,4
|
|
|
|
|
360 DATA 493,392,110,4
|
|
|
|
|
370 DATA 523,440,110,4
|
|
|
|
|
375 DATA 440,349,110,6
|
|
|
|
|
380 DATA 293,246,146,7
|
|
|
|
|
390 DATA 329,261,146,4
|
|
|
|
|
400 DATA 349,293,146,6
|
|
|
|
|
410 DATA 293,246,146,6
|
|
|
|
|
420 DATA 246,196,99,7
|
|
|
|
|
430 DATA 261,220,99,4
|
|
|
|
|
440 DATA 293,246,99,6
|
|
|
|
|
450 DATA 246,196,99,6
|
|
|
|
|
500 DATA 261,329,130,7:REM REPEAT (ALMOST)
|
|
|
|
|
510 DATA 329,392,130,4
|
|
|
|
|
520 DATA 329,392,130,6
|
|
|
|
|
530 DATA 329,392,123,6
|
|
|
|
|
540 DATA 261,329,110,7
|
|
|
|
|
550 DATA 329,392,110,4
|
|
|
|
|
560 DATA 493,392,110,4
|
|
|
|
|
570 DATA 523,440,110,4
|
|
|
|
|
575 DATA 440,349,110,6
|
|
|
|
|
580 DATA 293,246,146,7
|
|
|
|
|
590 DATA 329,261,146,4
|
|
|
|
|
600 DATA 349,293,146,6
|
|
|
|
|
620 DATA 246,196,99,6
|
|
|
|
|
630 DATA 261,329,110,6
|
|
|
|
|
640 DATA 261,329,110,6
|
|
|
|
|
645 DATA 261,329,110,6
|
|
|
|
|
650 DATA 246,196,99,6
|
|
|
|
|
660 DATA 174,220,82,6
|
|
|
|
|
670 DATA 174,220,82,6
|
|
|
|
|
680 DATA 174,220,82,6
|
|
|
|
|
690 DATA 246,196,99,6
|
|
|
|
|
700 DATA 261,329,110,6
|
|
|
|
|
710 DATA 261,329,110,6
|
|
|
|
|
720 DATA 261,329,110,6
|
|
|
|
|
730 DATA 261,329,110,6
|
|
|
|
|
740 DATA 261,329,110,6
|
|
|
|
|
750 DATA 261,329,110,6
|
|
|
|
|
760 DATA 261,329,110,6
|
|
|
|
|
10000 LOCATE 24,1:END
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|