本文为基于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
