【正文】 movlw D39。839。 movwf temp_t W_shift rrf DS1302_TX,1 。帶C移位(低位在前) btfsc status,C goto send_1 bcf T_IO goto send_0 send_1 bsf T_IO send_0 bsf T_CLK 。上升沿寫 nop bcf T_CLK decfsz temp_t,1 goto W_shift return。********************************************************** 。功 能：讀1302一字節(jié) （內(nèi)部子程序） 。入口：無 。出口：數(shù)據(jù)保存在DS1302_RX中 。消耗資源：temp_t(預(yù)先定義) 。********************************************************** Read_byte bsf status,rp0 。bank1 bsf trisd,1 。設(shè)置串行數(shù)據(jù)口為輸入 bcf status,rp0 。bank0 movlw D39。839。 movwf temp_t R_shift btfsc T_IO goto get_1 bcf status,C 。clr c goto get_0 get_1 bsf status,C get_0 rrf DS1302_RX,1 bsf T_CLK nop bcf T_CLK 。下降沿讀 decfsz temp_t,1 goto R_shift 。reset output bsf status,rp0 。bank1 bcf trisd,1 。設(shè)置T_IO為輸出 bcf status,rp0 。bank0 return 。delay04 movlw d39。8039。 movwf nloop00 nop decfsz n,1 goto loop00 return。delay05 movlw d39。10039。 movwf nloop01 nop decfsz n,1 goto loop01 return。delay01 movlw d39。2039。 movwf nloop02 nop decfsz n,1 goto loop02 return。清空表盤。clearc movlw b39。0000000139。 movwf portc movlw b39。1000000039。 movwf portb return。畫表盤。draw2_0 movlw 0xe4 movwf portb returndraw2_1 movlw 0xcc movwf portb returndraw2_2 movlw 0xd4 movwf portb returndraw2_3 movlw 0xe4 movwf portb returndrawgra movlw b39。1110000039。 movwf portb returndraw3_0 movlw 0xb8 movwf portb returndraw3_1 movlw 0xc8 movwf portb returndraw3_2 movlw 0xc0 movwf portb returndraw3_3 movlw 0xb0 movwf portb returndraw3_4 movlw 0xc0 movwf portb returndraw3_5 movlw 0xc8 movwf portb returndraw3_6 movlw 0xb8 movwf portb returndraw6_0 movlw 0xb0 movwf portb returndraw6_1 movlw 0xd4 movwf portb returndraw6_2 movlw 0xd4 movwf portb returndraw6_3 movlw 0xd4 movwf portb returndraw6_4 movlw 0xb8 movwf portb returndraw9_0 movlw 0xb8 movwf portb returndraw9_1 movlw 0x84 movwf portb returndraw9_2 movlw 0x84 movwf portb returndraw9_3 movlw 0xbC movwf portb returndraw9_4 movlw 0xc4 movwf portb returndraw9_5 movlw 0xc4 movwf portb returndraw9_6 movlw 0xb8 movwf portb returndraw1_0 movlw 0xc4 movwf portb returndraw1_1 movlw 0xfC movwf portb returndraw1_2 movlw 0x84 movwf portb return。顯示指針。drawsec movlw 0ffh movwf portc bsf portb,0 bsf portb,1 bsf jumpdec,0 returndrawmin movlw 0ffh movwf portc bsf jumpdec,1 returndrawhour movlw 3fh movwf portc bsf jumpdec,2 return。BCD轉(zhuǎn)2進(jìn)制。bcdt movf sec,0 movwf tr1 movwf tr2 movlw 0fh andwf tr1,1 swapf tr2,1 andwf tr2,1 movlw d39。1039。 movwf bcdn movf tr2,0add1 addwf tr2,1 decfsz bcdn,1 goto add1 movf tr1,0 addwf tr2,0 movwf sec movf min,0 movwf tr1 movwf tr2 movlw 0fh andwf tr1,1 swapf tr2,1 andwf tr2,1 movlw d39。1039。 movwf bcdn movf tr2,0add2 addwf tr2,1 decfsz bcdn,1 goto add2 movf tr1,0 addwf tr2,0 movwf min movf hour,0 movwf tr1 movwf tr2 movlw 0fh andwf tr1,1 swapf tr2,1 andwf tr2,1 movlw d39。1039。 movwf bcdn movf tr2,0add3 addwf tr2,1 decfsz bcdn,1 goto add3 movf tr1,0 addwf tr2,0 movwf hour return end 35