c05.asm

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

;“探索式”  实验十一    串行口扩展并口实验
        ORG  0000H
       MOV SCON,#0             ;置串行通讯为方式0
        MOV DPTR,#DATE          ;字形码首址送 DPTR
MAIN:
        MOV R0,#0h               ;显示字符从0-F
MAIN1:
        MOV A,R0
        MOVC A,@A+DPTR
    ;    CPL A
        MOV SBUF,A
WAIT:   JNB TI,WAIT
        CLR TI
        INC R0
        MOV A,#05H              ;置延时初值,延时1ms
        ACALL DELAY             ;调用延时子程序
        CJNE R0,#10H,MAIN1
        AJMP MAIN
DELAY:                ;延时1ms子程序
        MOV R7,2      ;500us*2=1ms
DLY0:
        MOV R6,50    ;2us*250=500us
        DJNZ R6,$
        DJNZ R7,DLY0
        DJNZ ACC,DELAY
        RET
DATE:
        DB 0C0H,0F9H,0A4H,0B0H,099H,92H,82H,0F8H
        DB 80H,90H,88H,83H,0C6H,0A1H,86H,8EH
        END