bled.asm

来自「恒科试验平台的所有程序代码」· 汇编 代码 · 共 36 行

;              “模仿式”	实验十六  点阵LED实验
        MOV SP,#60H
        CLR C
        MOV SCON,#00H
SNED1:  MOV R0,#80H
        MOV DPTR,#CODEd1
SEND:   CLR A
        MOVC A,@A+DPTR
        push dph
        push dpl
        mov dptr,#0a000h
        MOVX @dptr,a
        MOV A,R0
        MOV SBUF,A
WAIT:   JNB TI,WAIT
        CLR T1
        pop dpl
        pop dph
        INC DPTR
        MOV A,R0
        RRC A
        MOV R0,A
        LCALL DELeY
        JB ACC.0, SNED1
        SJMP SEND
DELeY:   MOV R5,#1H
DELY1:  MOV R6,#10H
DELY2:  MOV R7,#10H
DELY3:  DJNZ R7,DELY3
        DJNZ R6,DELY2
        DJNZ R5,DELY1
        RET
CODEd1: DB 07fH,060H,060H,07eH,003H,063H,03eh,000H;"5"
	  end