sled.asm

来自「MCS-51单片机实验 39个实用实验和源码」· 汇编 代码 · 共 48 行

TIMER   EQU     01H
        ORG     0000H
        AJMP    START
        ORG     000BH           ;T0 中断程序入口地址
        AJMP    INT_T0
        ORG     0040H
START:
        MOV     SP,#60H
        MOV     TMOD,#01H       ;T0 方式 1
        MOV     TL0,#00H        ;延时 50mS 的常数
        MOV     TH0,#4BH
        MOV     R0,#0H
        MOV     TIMER,#20
        MOV     SCON,#00H       ;置串口工作方式 0
        CLR     TI
        CLR     RI
        SETB    TR0             ;开中断
        SETB    ET0
        SETB    EA
        SJMP    $
INT_T0:                         ;T0 中断子程序
        PUSH    ACC             ;保护现场
        PUSH    PSW
        CLR     EA              ;关中断
        CLR     TR0
        MOV     TL0,#00H        ;延时 50mS 的常数
        MOV     TH0,#4BH
        SETB    TR0
        DJNZ    TIMER,EXIT
        MOV     TIMER,#20       ;延时一秒的常数
        MOV     DPTR,#DATA1      ;置表格基址
        MOV     A,R0            ;置表格偏移量
        MOVC    A,@A+DPTR       ;读表格数据
        CLR     TI
        MOV     SBUF,A          ;串行发送数据
        INC     R0
        CJNE    R0,#0AH,EXIT    ;判断是否到表尾
        MOV     R0,#00H         ;调整表格偏移量
EXIT:   SETB    EA              ;开中断
        POP     PSW
        POP     ACC             ;恢复现场
        RETI
;数码管显示常数表
DATA1:   DB      03H,9FH,25H,0DH,99H,49H,41H,1FH,01H,09H
                ;0    1   2    3    4   5    6    7    8    9
        END