ldxyq.asm

01单片机网站51单片机开发板全部配套程序

;程序名：  m51实验板配套程序-歌曲：绿岛小夜曲
;电路介绍：8个灯接p0口
;照顾到初学者，程序中的标号大多使用汉语拼音或简写，常用的标号使用英文！
;www.01mcu.net www.01mcu.com 2003/4/18编写
;***********************************************************************
OUT BIT P3.7

             ORG 0
             JMP START
             ORG 0BH
             JMP TIM0
START:       MOV TMOD,#1
             MOV IE,#10000010B
START0:      MOV 30H,#0
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 OUT
             POP PSW
             POP ACC
             RETI
DELAY:       MOV R7,#2
D2:          MOV R4,#125
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 64934
;TABLE:       ;1
;             DB 42H,82H,82H,82H,84H,02H,72H
;             DB 62H,72H,62H,52H,48H
;             DB 0B2H,0B2H,0B2H,0B2H,0B4H,02H,0A2H
;             ;2
;             DB 12H,0A2H,0D2H,92H,88H
;             DB 82H,0B2H,0B2H,0A2H,84H,02H,72H
;             DB 62H,72H,62H,52H,44H,02H,12H
;             ;3
;             DB 12H,62H,62H,52H,44H,02H,82H
;             DB 72H,62H,52H,32H,48H
;             DB 00H
;==绿岛小夜曲=====================             
table1:      dw 64021,64103,64260,64400
             dw 64524,64580,64684,64777
             DW 64820,64898,64968,65030
             DW 65058,65110,65157
table:       ;1
             db 0a2h,0b2h,0d2h,0b2h,0a4h,0b2h,0d2h
             db 0b2h,0a2h,82h,72h,88h
             db 72h,82h,0a2h,82h,72h,62h,42h,62h
             db 38h,38h
             ;2
             db 0a4h,02h,0b2h,0a4h,84h
             db 72h,82h,72h,62h,72h,84h,72h
             db 64h,62h,12h,34h,02h,42h
             db 38h,38h
             ;3
             db 44h,02h,32h,44h,64h
             db 72h,82h,72h,62h,72h,84h,0a2h
             db 72h,74h,82h,0a4h,02h,0b2h
             db 0a8h,0a8h
             ;4
             db 0b2h,0b4h,0a2h,84h,82h,72h
             db 62h,72h,82h,0a2h,88h
             db 72h,74h,62h,42h,32h,32h,62h
             db 78h,78h
             ;5
             db 82h,84h,72h,82h,0a2h,84h
             db 72h,82h,72h,62h,48h
             db 32h,0a2h,82h,0f2h,0a2h,0b2h,82h,72h
             db 68h,68h
             ;6
             db 0b2h,0b2h,0b2h,0a2h,82h,84h,02h
             db 72h,74h,62h,42h,32h,42h,62h
             db 78h,78h
             db 0a2h,0b2h,0a2h,72h,82h,84h,82h
             ;7
             db 72h,74h,62h,44h,64h
             db 0a8h,0a4h,02h,0a2h
             db 0a2h,0b1h,0a1h,82h,0a2h,0b4h,0b2h,0c2h
             db 0a2h,0b2h,0a2h,82h,78h
             ;8
             db 84h,72h,62h,44h,02h,62h
             db 72h,81h,71h,62h,72h,84h,02h,0a2h
             db 0b4h,02h,82h,74h,82h,72h
             db 68h,68h
             db 00

END