#INCLUDE"P16F877.inc"

ORG 000H

GOTO A1

ORG 004H;定時中斷入口地址

GOTO ZD01;

ORG 0CH

A1 MOVLW 1;位1顯示數(shù)

MOVWF 50H;

MOVLW 2;位2顯示數(shù)

MOVWF 51H;

MOVLW 3;位3顯示數(shù)

MOVWF 52H;

MOVLW 4;位4顯示數(shù)

MOVWF 53H;

MOVLW 4;顯示位數(shù)

MOVWF 40H;

MOVLW B00000001;位碼

MOVWF 41H;

MOVLW 50H;

MOVWF FSR ;間接尋址

BSF STATUS,RP0;選擇體1

BCF STATUS,RP1;

MOVLW 00H;1:2TMRO比例

MOVWF OPTION_REG;分頻1/2

BCF STATUS,RP0;體0

BCF STATUS,RP1;

MOVLW 0FFH;

MOVFW TMR0;初值

BCF INTCON,T0IF;清定時中斷標(biāo)志

BSF INTCON,T0IE;開定時中斷

BSF INTCON,GIE;開總中斷

GOTO $

ZD01 BCF INTCON,GIE;關(guān)總中斷

BTFSS INTCON,T0IF;判斷是否產(chǎn)生定時中斷

GOTO ZD03;否跳出是繼續(xù)執(zhí)行

BCF INTCON,T0IF

BSF STATUS,RP0;體1

BCF STATUS,RP1;

MOVLW 0;

MOVWF TRISB;RB口設(shè)為輸出口

MOVWF TRISD;RD口設(shè)為輸出口

BCF STATUS,RP0;體0

BCF STATUS,RP1;

MOVLW 0FFH;

MOVWF PORTB;RB口輸出高電平

MOVLW 0

MOVWF PORTD;RD口輸出低電平起清屏作用

MOVFW INDF;間接尋址顯示數(shù)據(jù)

CALL Q1;查數(shù)據(jù)表

MOVWF PORTB;顯示斷碼輸出到RB口

INCF FSR,1;間接尋址地址加1

MOVFW 41H ;位碼

MOVWF PORTD;位碼輸出到RD口

RLF 41H,0;處理C

RLF 41H,1;左移位碼

DECFSZ 40H,1;判斷是否顯示完4位

GOTO ZD02;否則繼續(xù)顯示

MOVLW 4;顯示位數(shù)

MOVWF 40H;

MOVLW B00000001;位碼

MOVWF 41H;

MOVLW 50H;

MOVWF FSR ;間接尋址

ZD02 MOVLW 0FFH;

MOVFW TMR0;重裝初值

ZD03 BSF INTCON,GIE;開總中斷

RETFIE ;中斷返回

;********************************************

; 數(shù)據(jù)表

;********************************************

Q1 ADDWF PCL,1

RETLW 00C0H ;0

RETLW 00F9H ;1

RETLW 00A4H ;2

RETLW 00B0H ;3

RETLW 0099H ;4

RETLW 0092H ;5

RETLW 0082H ;6

RETLW 00F8H ;7

RETLW 0080H ;8

RETLW 0090H ;9

RETLW 0088H ;A

RETLW 0083H ;B

RETLW 00C6H ;C

RETLW 00A1H ;D

RETLW 0086H ;E

RETLW 008EH ;F

END