lanhc.asm

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

;程序名：  MCS51实验板配套程序-歌曲：兰花草
;电路介绍：8个灯接p0口
;www.01mcu.net www.01mcu.com 2003/4/18编写
;***********************************************************************
OUT BIT P3.7

             ORG 0
             AJMP START
             ORG 0BH
             AJMP 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
             AJMP 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
             AJMP NEXT
END0:        CLR TR0
             AJMP 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
             
END