基于PIC16F877的四位数码管动态显示PROTEUS仿真

;*********************************************
;** 文件名：four_led.asm                    **
;** 功  能：四位数码管动态显示1234          **
;*********************************************

     LIST P=16F877,R=DEC      ; 设定汇编参数为PIC16F877，默认数制为十进制
     #INCLUDE    ; 将含文档P16F877.INC包含进程序中来
     CBLOCK 0x20              ; 设定自定义寄存器从0x20单元开始存放
     ENDC                     ; 声明结束
;
;-------- 定义寄存器 ------------
     CBLOCK       ; 声明以下为自定义寄存器
     DLY          ; 延时变量 
     DISPNUM0     ; 数码管个位寄存器
     DISPNUM1     ; 数码管十位寄存器
     DISPNUM2     ; 数码管百位寄存器
     DISPNUM3     ; 数码管千位寄存器
     ENDC       ; 声明自定义寄存器结束
;--------- 初始化程序 -----------
;
     ORG  0                ; 程序从0000H单元开始执行
     NOP                   ; ICD必需的空操作指令
     BANKSEL TRISB         ; 选择BANK1
     MOVLW    0            ; 将0送入W
     MOVWF    TRISB        ; 再送入端口方向控制寄存器TRISB，设定端口B全部为输出
     MOVWF    TRISD
     BANKSEL  PORTB        ; 回到BANK0
     MOVLW    0FFH         ; 将十六进制数0xFF送W
     MOVWF    PORTB        ; 再转到端口B数据寄存器PORTB关闭所有数码管
     MOVLW    0            ; 预设数码管显示初值
     MOVWF    DISPNUM3
     MOVLW    1
     MOVWF    DISPNUM2
     MOVLW    2
     MOVWF    DISPNUM1
     MOVLW    3
     MOVWF    DISPNUM0 
;------------- 主程序 -----------
MAIN:
     MOVLW    0x32
     MOVWF    DLY
M0:
     CALL     LEDDISP4      ; 呼叫数码管显示子程序显示
     DECFSZ DLY,1           ; 重复调用数码管显示子程序为延时程序
     GOTO    M0
     MOVF    DISPNUM2,0     ; 取出数码管百位的值到W
     MOVWF   DISPNUM3       ; 再由W送到数码管千位
     MOVF    DISPNUM1,0     ; 取出数码管十位的值到W
     MOVWF   DISPNUM2       ; 再转到数码管百位
     MOVF    DISPNUM0,0     ; 取出数码管个位值到W
     MOVWF   DISPNUM1       ; 再转入数码管十位
     INCF    DISPNUM0,1     ; 将数码管个位的值1，结果存回DISPNUM0
     BTFSC   DISPNUM0,4     ; 判断数码管个位寄存器的值是否大于0x0F
     CLRF    DISPNUM0       ; 是，将DISPNUM清0 
     GOTO    MAIN           ; 循环执行
;----------- 主程序结束 ---------
;----- 四位数码管显示子程序 -----
LEDDISP4:
     MOVF    DISPNUM0,0    ; 取数码管个位寄存器的值到W
     CALL    CONVERT       ; 查表取回数码管显示码
     MOVWF   PORTD         ; 送端口数据寄存器PORTD显示
     MOVLW   0xFE          ; 个位数码管显示控制吗0xFE送W
     MOVWF   PORTB         ; 送端口B点亮个位数码管
     CALL    DELAY2_5MS    ; 延进2.5MS
     MOVLW   0xFF
     MOVWF   PORTB
;
     MOVF    DISPNUM1,0   ; 取数码管个位寄存器的值到W
     CALL    CONVERT      ; 查表取回数码管显示码
     MOVWF   PORTD        ; 送端口数据寄存器PORTD显示
     MOVLW   0xFD         ; 个位数码管显示控制吗0xFE送W
     MOVWF   PORTB        ; 送端口B点亮个位数码管
     CALL    DELAY2_5MS   ; 延进2.5MS
     MOVLW   0xFF
     MOVWF   PORTB
;
     MOVF    DISPNUM2,0   ; 取数码管个位寄存器的值到W
     CALL    CONVERT      ; 查表取回数码管显示码
     MOVWF   PORTD        ; 送端口数据寄存器PORTD显示
     MOVLW   0xFB         ; 个位数码管显示控制吗0xFE送W
     MOVWF   PORTB        ; 送端口B点亮个位数码管
     CALL    DELAY2_5MS   ; 延进2.5MS
     MOVLW   0xFF
     MOVWF   PORTB
;
     MOVF    DISPNUM3,0   ; 取数码管个位寄存器的值到W
     CALL    CONVERT      ; 查表取回数码管显示码
     MOVWF   PORTD        ; 送端口数据寄存器PORTD显示
     MOVLW   0xF7         ; 个位数码管显示控制吗0xFE送W
     MOVWF   PORTB        ; 送端口B点亮个位数码管
     CALL    DELAY2_5MS   ; 延进2.5MS
     MOVLW   0xFF
     MOVWF   PORTB
;
       RETURN              ; 返回子程序呼叫处
;--- 四位数码管显示子程序结束 ---
;---------- 查表子程序 ----------
CONVERT:
        ADDWF PCL       ; 把W的值加到PC的低8位
TABLE:
        RETLW H'C0'     ; 0
        RETLW H'F9'     ; 1
        RETLW H'A4'     ; 2
        RETLW H'B0'     ; 3
        RETLW H'99'     ; 4
        RETLW H'92'     ; 5
        RETLW H'82'     ; 6
        RETLW H'F8'     ; 7
        RETLW H'80'     ; 8
        RETLW H'90'     ; 9
        RETLW H'88'     ; A
        RETLW H'83'     ; b
        RETLW H'C6'     ; C
        RETLW H'A1'     ; d
        RETLW H'86'     ; E
        RETLW H'8E'     ; F
;-----------查表子程序结束----------;
;===================================
 #INCLUDE   ; 将2.5MS延时子程序包含进程序中      ;
; 晶振16MHz时延时2.5毫秒   ;
;===================================

 END