吃什么最补胶原蛋白

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