;音樂生日快樂的播放
numtimequ20h
geweiequ21h
shiweiequ22h
sCANLEDequ23h
org000h
jmpstart
org00bh
jmptim0

org100h

start:;JBP3.7,$;檢測播放按鍵是否按下
MOV tmod,#00000001b
MOV ie,#10000010b
MOV numtim,#01h
start0: MOV 30h,#00h

next: MOV a,30h
MOV dptr,#table
MOV ca,@a+dptr
MOV r2,a
jzend0
anla,#0fh
MOV r5,a
MOV a,r2
swapa
anla,#0fh
jnzsing
clrtr0
jmpd1
sing:deca
MOV 22h,a
rla
MOV dptr,#table1
MOV ca,@a+dptr
MOV th0,a
MOV 21h,a
MOV a,22h
rla
inca
MOV ca,@a+dptr
MOV tl0,a
MOV 20h,a
setbtr0
d1:lcalldelay
inc30h
jmpnext
end0:clrtr0
jmpstart0
tim0:pushaCC
pushpsw
MOV tl0,20h
MOV th0,21h
cplp1.6;由該口輸出音頻數(shù)據(jù)
poppsw
popacc
reti



delay: MOV r7,#02h
d2: MOV r4,#187
d3: MOV r3,#248
djnzr3,$
djnzr4,d3
djnzr7,d2
djnzr5,delay
ret
table1:;音樂碼表
dw64260,64400,64524,64580
dw64684,64777,64820,64898
dw64968,65030,65058,65110
dw65157,65178,65217
table:db82h,01h,81h,94h,84h
db0b4h,0a4h,04h
db82h,01h,81h,94h,84h
db0c4h,0b4h,04h

db82h,01h,81h,0f4h,0d4h
db0b4h,0a4h,94h
db0e2h,01h,0e1h,0d4h,0b4h
db0c4h,0b4h,04h

db82h,01h,81h,94h,84h
db0b4h,0a4h,04h
db82h,01h,81h,94h,84h
db0c4h,0b4h,04h

db82h,01h,81h,0f4h,0d4h
db0b4h,0a4h,94h
db0e2h,01h,0e1h,0d4h,0b4h
db0c4h,0b4h,04h
db00

TABLE2:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
end