本文为根据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
