;**************************************************
__CONFIG 3F39H;设置配置位中振荡方式为XT,其它全部禁止或关闭
;************************************************
PCL EQU 02H ;定义程序计数器低字节寄存器地址
STATUS EQU 03H ;定义状态寄存器地址
PORTA EQU 05H ;定义RA口数据寄存器地址
PORTC EQU 07H ;定义RC口数据寄存器地址
TRISA EQU 85H ;定义RA口方向控制寄存器
TRISC EQU 87H ;定义RC口方向控制寄存器
ADCON1 EQU 9FH ;定义ADC模块控制寄存器1的地址
;----------------------- STATUS
C EQU 0 ;定义进位标志位位地址
Z EQU 2 ;定义0标志位位地址
RP0 EQU 5 ;定义页选位RP0位地址
;-----------------------
COUNTER EQU 20H ;定义计数器寄存器
COUNT0 EQU 21H ;定义廷时变量计数器
COUNT1 EQU 22H ;定义廷时变量计数器
COUNT2 EQU 23H ;定义廷时变量计数器
PORTA_B EQU 25H ;定义数码管位选寄存器
;--------------------
ORG 0000H
NOP ;放置一条ICD必需的空操作指令
GOTO MAIN
ORG 0008H
;******************************************************
CONVERT1 ;取数码管位码
ADDWF PCL,1 ;地址偏移量加当前PC值
TABLE1
RETLW 0FDH ;第一位数码管
RETLW 0FEH ;第二位数码管
RETLW 0F7H ;第三位数码管
RETLW 0FBH ;第四位数码管
RETLW 0DFH ;第五位数码管
RETLW 0EFH ;第六位数码管
;-------------------- ----------------------------------
CONVERT ;取数码管段码
ADDWF PCL,1 ;地址偏移量加当前PC值
TABLE
RETLW 0C0H ;0
RETLW 0F9H ;1
RETLW 0A4H ;2
RETLW 0B0H ;3
RETLW 99H ;4
RETLW 92H ;5
RETLW 82H ;6
RETLW 0F8H ;7
RETLW 80H ;8
RETLW 98H ;9
RETLW 7FH ;.
;*******************************************************
MAIN
CLRF PORTA ;初始化IO口
CLRF PORTC ;
BSF STATUS,RP0
MOVLW 07H
MOVWF ADCON1 ;设置RA口全部为普通数字IO口
MOVLW 00H
MOVWF TRISA ;设置RA，RC口全部为输出
MOVWF TRISC
BCF STATUS,RP0
;----------------------
LOOPA
MOVLW 0FFH ;让数码所有划先熄灭
MOVWF PORTC
MOVLW 00H
MOVWF PORTA_B ;位选寄存器送初值0，让第一位先显示
LOOP1
MOVFW PORTA_B ;取位选码
CALL CONVERT1
MOVWF PORTA ;位选码送RA口
CLRF COUNTER ;清段码寄存器，让其先显示1
CLRW
LOOP2
CALL CONVERT ;取段码
MOVWF PORTC ;段码送RC口显示
CALL DELAY ;
INCF COUNTER,1 ;段码加1直到第10位即“。”
MOVLW .11 ;
XORWF COUNTER,0 ;
BZ LOOPB ;
MOVFW COUNTER ;
GOTO LOOP2 ;
;-------------------------
LOOPB
INCF PORTA_B,0 ;位码加1直到第6位显示完又显示第一位
MOVWF PORTA_B ;
XORLW 06H ;
BTFSS STATUS,Z ;
GOTO LOOP1 ;
GOTO LOOPA ;
;---------------------------------廷时子程序------
DELAY
MOVLW .2 ;设置延时常数
MOVWF COUNT0
L1
MOVLW .255 ;
MOVWF COUNT1
L2
MOVLW .255 ;
MOVWF COUNT2
L3
DECFSZ COUNT2,1 ;递减循环
GOTO L3 ;
DECFSZ COUNT1,1 ;
GOTO L2 ;
DECFSZ COUNT0,1 ;
GOTO L1 ;
RETLW 0
;----- -----------------------------------------------
END