;音乐生日快乐的播放 
numtim equ 20h 
gewei equ 21h 
shiwei equ 22h 
sCANLED equ 23h 
org 000h 
jmp start 
org 00bh 
jmp tim0 

org 100h 

start:; JB P3.7,$          ;检测播放按键是否按下 
        MOV  tmod,#00000001b 
        MOV  ie,#10000010b 
        MOV  numtim,#01h 
start0: MOV  30h,#00h 

  next: MOV  a,30h 
        MOV  dptr,#table 
        MOV c a,@a+dptr 
        MOV  r2,a 
       jz  end0 
       anl a,#0fh 
        MOV  r5,a 
        MOV  a,r2 
       swap a 
       anl a,#0fh 
       jnz sing 
       clr tr0 
       jmp d1 
 sing: dec a 
        MOV  22h,a 
       rl a 
        MOV  dptr,#table1 
        MOV c a,@a+dptr 
        MOV  th0,a 
        MOV  21h,a 
        MOV  a,22h 
       rl a 
       inc a 
        MOV c a,@a+dptr 
        MOV  tl0,a 
        MOV  20h,a 
       setb tr0 
    d1:lcall delay 
       inc 30h 
       jmp next 
  end0:clr tr0 
       jmp start0 
  tim0:push aCC 
       push psw 
        MOV  tl0,20h 
        MOV  th0,21h 
       cpl p1.6            ;由该口输出音频数据 
       pop psw 
       pop acc 
       reti 



delay:  MOV  r7,#02h 
   d2:  MOV  r4,#187 
   d3:  MOV  r3,#248 
       djnz r3,$ 
       djnz r4,d3 
       djnz r7,d2 
       djnz r5,delay 
       ret 
 table1:                                       ;音乐码表 
       dw  64260,64400,64524,64580 
       dw  64684,64777,64820,64898 
       dw  64968,65030,65058,65110 
       dw  65157,65178,65217 
  table:db 82h,01h,81h,94h,84h 
        db 0b4h,0a4h,04h 
        db 82h,01h,81h,94h,84h 
        db 0c4h,0b4h,04h 

        db 82h,01h,81h,0f4h,0d4h 
        db 0b4h,0a4h,94h 
        db 0e2h,01h,0e1h,0d4h,0b4h 
        db 0c4h,0b4h,04h 

        db 82h,01h,81h,94h,84h 
        db 0b4h,0a4h,04h 
        db 82h,01h,81h,94h,84h 
        db 0c4h,0b4h,04h 

        db 82h,01h,81h,0f4h,0d4h 
        db 0b4h,0a4h,94h 
        db 0e2h,01h,0e1h,0d4h,0b4h 
        db 0c4h,0b4h,04h 
        db 00 

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