c05.asm

单片机实验程序-13种-17.4M-pdf.zip

;“探索式”  串行口扩展并口实验
;
;文件名：MCS51\C05.ASM
        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