唱歌程序.txt

单片机程序

单片机音乐程序——2002年的第一场雪
注意：音乐输出脚为p1.0
 
ORG 0000H
     JMP START
     ORG 0BH
     JMP TIM0
START:     MOV TMOD,#01H
     MOV IE,#82H
START0:     MOV 30H,#00H
NEXT:     MOV A,30H
     MOV DPTR,#TABLE
     MOVC 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
     MOVC A,@A+DPTR
     MOV TH0,A
     MOV 21H,A
     MOV A,22H
     RL A
     INC A
     MOVC A,@A+DPTR
     MOV TL0,A
     MOV 20H,A
     SETB TR0
D1:     CALL DELAY
     INC 30H
     JMP NEXT
END0:     CLR TR0
     JMP START0
TIM0:     PUSH ACC
     PUSH PSW
     MOV TL0,20H
     MOV TH0,21H
     CPL     P2.7
     POP PSW
     POP ACC
     RETI
DELAY:     MOV R7,#02
D2:     MOV R4,#187
D3:     MOV R3,#248
     DJNZ R3,$
     DJNZ R4,D3
     DJNZ R7,D2
     DJNZ R5,DELAY
     RET
TABLE1:
DW 64021,64103,64260,64400
DW 64524,64580,64684,64777
DW 64820,64898,64968,65030
DW 65058,65110,65157,65178
TABLE:
           ;1
           DB         04H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,92H,72H,72H,72H,72H,92H
           DB         92H,92H,92H,92H,92H,92H,62H,72H,72H,72H,04H
           DB         02H,0A2H,0A2H,0A2H,0A4H,0A2H,0A2H,0B4H,0A2H,92H,92H,0A2H,0A4H
           DB         02H,62H,62H,62H,62H,62H,52H,0A2H,94H,92H,92H,92H,72H,74H
           ;2
           DB         04H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,92H,72H,72H,72H,72H,92H
           DB         92H,92H,92H,92H,92H,92H,62H,72H,72H,72H,04H
           DB         02H,0A2H,0A2H,0A2H,0A4H,0A2H,0A2H,0B4H,0A2H,92H,92H,0A2H,0A4H
           DB         02H,62H,62H,62H,62H,62H,52H,0A2H,94H,92H,92H,92H,72H,74H
          ;3
           DB         02H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,0B2H,92H,72H,74H
           DB         02H,62H,62H,62H,64H,62H,52H,74H,62H,72H,52H,32H,34H
           DB         02H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0A2H,0B4H,0A2H,0B2H,92H,72H,74H
           DB         02H,62H,62H,62H,62H,62H,52H,32H,94H,92H,92H,62H,72H,74H
           DB         02H,0A2H,0A2H,0A2H,0A4H,0A2H,0A2H,0B4H,0A2H,92H,72H,72H,74H
           DB         02H,62H,62H,62H,62H,62H,62H,52H,74H,62H,72H,52H,32H,34H
          ;4
           DB         02H,62H,62H,62H,62H,62H,52H,32H,52H,52H,52H,32H,32H,22H,12H
           DB         02H,62H,62H,62H,62H,62H,52H,32H,62H,72H,72H,72H,72H
           DB         02H,62H,62H,62H,62H,62H,52H,32H,92H,0A2H,0A2H,0A2H,0A2H
           END