mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
133 lines
2.8 KiB
ArmAsm
133 lines
2.8 KiB
ArmAsm
|
|
; 0 1 2 3 4 5 6 7 8 9 10 11
|
|
; C C# D D# E F F# G G# A A# B
|
|
|
|
; CCOONNNN -- c=channel, o=octave, n=note
|
|
; 11LLLLLL -- L=length 1/32=1, 1/16=2, 1/8=4, 1/4=8 1/2=16 1=32
|
|
|
|
yankee_doodle_song:
|
|
|
|
; register init
|
|
.byte $00,$00,$00,$00,$00,$00 ; $00: A/B/C fine/coarse
|
|
.byte $00 ; $06
|
|
.byte $38 ; $07 mixer (ABC on)
|
|
.byte $0E,$0C,$0C ; $08 volume A/B/C
|
|
.byte $00,$00,$00 ; $0B
|
|
; music
|
|
.byte $17 ;00 01 0111 G3 1/4
|
|
.byte $4B ;01 00 1011 B2 1
|
|
.byte $87 ;10 00 0111 G2 1
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $19 ;00 01 1001 A3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $1B ;00 01 1011 B3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
;
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $4B ;01 00 1011 B2 1/2
|
|
.byte $87 ;10 00 0111 G2 1/2
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $1B ;00 01 1011 B3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $19 ;00 01 1001 A3
|
|
.byte $58 ;01 01 1000 C3 1/2
|
|
.byte $82 ;10 00 0010 D2 1/2
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $12 ;00 01 0010 D3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
;
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $4B ;01 00 1011 B2 1
|
|
.byte $87 ;10 00 0111 G2 1
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $19 ;00 01 1001 A3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $1B ;00 01 1011 B3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
;
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $4B ;01 00 1011 B2 1/2
|
|
.byte $87 ;10 00 0111 G2 1/2
|
|
.byte $D0 ;11 01 0000 wait 1/2
|
|
|
|
.byte $16 ;00 01 0110 F#3
|
|
.byte $42 ;01 00 0010 D2 1
|
|
.byte $90 ;10 01 0000 C3 1
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $12 ;00 01 0010 D3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
;
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $4B ;01 00 1011 B2 1/2
|
|
.byte $87 ;10 00 0111 G2 1/2
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $19 ;00 01 1001 A3
|
|
.byte $46 ;01 00 0110 F#2 1/2
|
|
.byte $86 ;10 00 0110 F#2 1/2
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $1B ;00 01 1011 B3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
;
|
|
.byte $20 ;00 10 0000 C4
|
|
.byte $44 ;01 00 0100 E2 1/2
|
|
.byte $84 ;10 00 0100 E2 1/2
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $1B ;00 01 1011 B3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $19 ;00 01 1001 A3
|
|
.byte $41 ;01 00 0001 C#2 1/2
|
|
.byte $81 ;10 00 0001 C#2 1/2
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
;
|
|
.byte $16 ;00 01 0110 F#3
|
|
.byte $42 ;01 00 0020 D2 1
|
|
.byte $82 ;10 00 0020 D2 1
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $12 ;00 01 0010 D3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $14 ;00 01 0100 E3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
|
|
.byte $16 ;00 01 0110 F#3
|
|
.byte $C8 ;11 00 1000 wait 1/4
|
|
;
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $47 ;01 00 0111 G2 1/2
|
|
.byte $87 ;10 00 0111 G2 1/2
|
|
.byte $D0 ;11 01 0000 wait 1/2
|
|
|
|
.byte $17 ;00 01 0111 G3
|
|
.byte $4B ;01 00 1011 B1 1/2
|
|
.byte $8B ;10 00 1011 B1 1/2
|
|
.byte $D0 ;11 01 0000 wait 1/2
|
|
|
|
.byte $FF
|
|
|