【正文】 讀 1302一字節(jié) （內(nèi)部子程序） 。******************************* RTInputByte: MOV R4, 8 Inbit1: MOV A, B RRC A MOV B, A MOV T_IO, C SETB T_CLK CLR T_CLK DJNZ R4, Inbit1 RET 。 CLR POP PSW POP ACC RET 。秒 INC R0 INC R2 INC R2 SETB T_CLK CLR T_RST LCALL DISPLAY DJNZ R7,Get2 。秒地址 Get2: CLR T_RST CLR T_CLK SETB T_RST MOV B,R2。 SETB MOV R0, Second。 CLR POP PSW POP ACC RET Get13021: PUSH ACC PUSH PSW 。秒 INC R0 INC R2 INC R2 SETB T_CLK CLR T_RST LCALL DISPLAY DJNZ R7,Get1 。秒地址 Get1: CLR T_RST CLR T_CLK SETB T_RST MOV B,R2 。 SETB MOV R0, Second。****************************** Get1302: PUSH ACC PUSH PSW 。返 回 值：無 。入口參數(shù)： 時間保存在 : 。說 明： 。子程序名： Get1302 ?？刂?,WP=1,寫保護 LCALL RTInputByte SETB T_CLK CLR T_RST RET 。寫秒數(shù)據(jù) MOV B, A LCALL RTInputByte INC R0 INC R2 INC R2 SETB T_CLK CLR T_RST DJNZ R7, Set13021 CLR T_RST CLR T_CLK SETB T_RST MOV B,8EH。秒寫地址 Set13021: CLR T_RST CLR T_CLK SETB T_RST MOV B,R2。寫操作前 WP=0 LCALL RTInputByte SETB T_CLK CLR T_RST MOV R0, Second MOV R7, 7 。******************************* Set1302: CLR T_RST CLR T_CLK SETB T_RST MOV B, 8EH 。設(shè) 計： ZHG 日 期 ：20xx1103 。返 回 值：無 。調(diào) 用： RTInputByte 。 。子程序名： Set1302 。實時時鐘復位線引腳 。實時時鐘時鐘線引腳 T_IO Bit 。 版 本 號： 20xx1103 。 程序設(shè)計： 。 功 能：實時時鐘模塊 時鐘芯片型號： DS1302 。******************************/公司名稱： 。 MOV P2,01H LCALL D2MS MOV P2,00H POP PSW POP ACC RET D2MS: MOV R6,02H DL1: MOV R5,249 DL2: NOP NOP DJNZ R5,DL2 NOP DJNZ R6,DL1 RET TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH 。MOV P2,04H LCALL D2MS MOV P2,00H MOV R1,53H MOV A,R1 ANL A,0FH MOVC A,A+DPTR MOV P0,A MOV P2,0FBH。MOV P2,08H 。定 時顯示 PUSH PSW MOV DPTR,TABLE MOV R1,52H MOV A,R1 ANL A,0FH MOVC A,A+DPTR MOV P0,A MOV P2,0FEH 。MOV P2,02H LCALL D2MS MOV P2,00H MOV A,R1 SWAP A ANL A,0FH MOVC A,A+DPTR MOV P0,A MOV P2,0F7H。仿真值 LCALL D2MS MOV P2,00H MOV A,R1 SWAP A ANL A,0FH MOVC A,A+DPTR MOV P0,A MOV P2,0FDH。實物值 。MOV P2,01H MOV P2,00H POP PSW POP ACC RET RQDISPLAY:PUSH ACC 。MOV P2,04H LCALL D2MS MOV P2,00H MOV R1,43H MOV A,R1 ANL A,0FH MOVC A,A+DPTR MOV C,30H MOV ,C MOV P0,A MOV P2,0FBH。MOV P2,08H 。 有定時設(shè)置則在分鐘個位顯示點 MOV ,C MOV P0,A MOV P2,0FEH 。分加 1處理 ADD A,01H DA A CJNE A,60H,FJY0 MOV A,00H FJY0: MOV 42H,A LCALL SET1302 FJY1:JB ,FJY2 LCALL DISPLAY SJMP FJY1 FJY2:LJMP LP11 RQXS:LCALL RQDISPLAY RQXS1:JB ,RQXS2