实验六(1)9999倒数响a.asm

单片机只是别人的东西

;功能：利用“串入并出”芯片扩展输出引脚
DISPBUF  DATA    48H     ;笔段码显示缓冲区:
                         ;48H单元记录千位，49H单元记录百位
                         ;4AH单元记录十位，4BH单元记录个位
BTIME    DATA    40H     ;10ms计数单元
SECOND   DATA    4CH     ;秒计数单元
MINUTE   DATA    4DH     ;分计数单元
DISPB    BIT     00H     ;1秒定时时间到标志

ORG 0000H
LJMP MAIN

ORG 002BH
LJMP CTC2               ;定时/计数器T2中断服务程序入口地址

ORG 0050H
;-----主程序开始-----
PROC MAIN
MAIN:
     MOV SP, #0DFH     ;对于具有256字节内部RAM芯片来说，
                       ;将0E0H-0FFH，共计32字节作为堆栈区

    ; MOV DPTR, #8000H   ;关闭蜂鸣器
     ;MOV A, #0FFH
    ; MOVX @DPTR, A


     ;---复位后，将08H-0FF内部RAM单元清0。
     MOV R7, #248
     MOV R0, #08H
LOOP1:
     MOV @R0, #0
     INC R0
     DJNZ R7, LOOP1


     ;----初始化定时器T2
     MOV TH2, #0f7H
     MOV TL2, #00H          ;初值0DC00送定时器T2
     MOV RCAP2H, #0f7H
     MOV RCAP2L, #00H       ;初始化重装初值
     MOV T2CON, #00000100B  ;初始化T2工作方式(自动重装初值、定时)
                            ;并启动了T2

     ;-----初始化中断控制器
     ORL IE, #10100000B
     ;SETB ET2                ;允许定时器T2中断
     ;SETB EA                 ;开中断

     MOV BTIME, #50          ;T2每10ms中断一次，则BTIME回零时间为100*10ms
WAIT:
     JNB DISPB, WAIT
     CLR DISPB                ;清除1秒时间到标志
     LCALL TIMEPROC           ;执行分秒处理及显示子程序
     LCALL S_DISP             ;执行串行输出子程序，将笔段码送LED
     SJMP WAIT                ;等待
END


;定时/计数器T2中断服务程序
PROC CTC2
CTC2:

     DJNZ  BTIME, EXIT ;溢出次数减1，不为0跳转
     ;溢出次数已经回到0，重新初始化溢出次数
     MOV BTIME, #100
     SETB DISPB         ;置位1秒时间到标志
EXIT:
     CLR TF2             ;清除定时器T2溢出标志
     RETI
END

PROC TIMEPROC            ;分秒处理及显示子程序
TIMEPROC:
     ;时间计数单元加+1处理
     inc SECOND
      MOV DPTR, #8000H   ;关闭蜂鸣器
     MOV A, #0ffH
     MOVX @DPTR, A

     cpl p1.1         ;秒计数单元+1
     MOV A, SECOND
     CJNE A, #100, aaaa    ;不等于100就跳到AAAA

     MOV DPTR, #8000H   ;open蜂鸣器
     MOV A, #000H
     MOVX @DPTR, A
    aaaa:
CJNE A, #100, NEXT1






    NEXT1:
     JC NEXT2
     ;秒大于60，从0开始计数，且分计数单元加1
     MOV SECOND, #0
     INC MINUTE
     MOV A, MINUTE
     CJNE A, #100, NEXT21
NEXT21:
     JC NEXT2          ;分小于60
     MOV minute, #0
NEXT2:
     ;秒单元计数器笔段码送显示缓冲区
     MOV A, SECOND
     MOV B, #10
     DIV AB             ;转换为BCD码
                        ;十位在A中，个位在B中
     MOV DPTR, #LEDTAB  ;0-F字模表首地址送DPTR
     MOV R0, #DISPBUF+2
     MOVC A, @A+DPTR    ;查表取笔段码
     MOV @R0, A         ;秒高位笔段码送显示缓冲区

     INC R0             ;指向缓冲区最低位
     MOV A, B           ;取个位码
     MOVC A, @A+DPTR    ;查表取笔段码
     MOV @R0, A         ;秒低位笔段码送显示缓冲区

     ;分单元计数器笔段码送显示缓冲区
     MOV A, MINUTE
     MOV B, #10
     DIV AB             ;转换为BCD码
                        ;十位在A中，个位在B中
     MOV DPTR, #LEDTAB  ;0-F字模表首地址送DPTR
     MOV R0, #DISPBUF
     MOVC A, @A+DPTR    ;查表取笔段码
     MOV @R0, A         ;分高位笔段码送显示缓冲区

     INC R0             ;指向缓冲区最低位
     MOV A, B           ;取个位码
     MOVC A, @A+DPTR    ;查表取笔段码
    ; CLR ACC.7          ;显示LED202数码管的小数点dp
     MOV @R0, A         ;分低位笔段码送显示缓冲区
     RET
END


PROC S_DISP             ;串行输出子程序
S_DISP:
    MOV R0, #DISPBUF    ;显示缓冲区首地址送R0
    MOV R7, #4
LOOP2:
    MOV A, @R0
    MOV R6, #8
LOOP1:
    CLR P3.4
    RLC A
    MOV P1.2, C         ;串行数据送P1.2引脚
    NOP
    SETB P3.4           ;锁存串行输入数据
    DJNZ R6, LOOP1

    ;取下一显示码
    INC R0
    DJNZ R7, LOOP2
    ;4位笔段码已全部移到串入并出芯片中
    CLR P3.5
    NOP                  ;延迟一个机器周期
    SETB P3.5
    RET

END

LEDTAB:                 ;八段LED共阳数码管字模
;数码  0     1     2     3     4     5    6    7
;数码  0     1     2     3     4     5    6    7
DB     0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H

;数码  8     9     A     B     C     D     E     F
DB     80H,  90H,  88H, 83H,  0C6H, 0A1H, 86H, 8EH