【正文】 [7] 譚浩強， C 程序設計 (第二版 ). 清華大學出版社 . 1999 年 12 月第 2 版 16 附件 1．程序清單 RS BIT RW BIT EN BIT S1 BIT S2 BIT S3 BIT S4 BIT LED1 BIT B1 BIT RST BIT SCLK BIT IO BIT ORG 0000H LJMP MAIN ORG 000BH LJMP TIMER0 ORG 001BH LJMP TIMER1 ORG 0030H MAIN: LCALL INIT LCALL DS1302_INIT1 LOOP: LCALL KEYSCAN LCALL S4CANS CJNE R2,0,LOOP1 SJMP LOOP LOOP1: LCALL ZENGJIAN SJMP LOOP TIMER1: MOV TH1,3CH MOV TL1,0B0H INC R5 CJNE R5,4,ZZ 17 CLR TR1 MOV R5,0 LCALL DS1302_READ_TIME LCALL DISPLAY_TIME LCALL ZHENGD MOV A,36H CJNE A,0,ZZ2 LCALL NAOZHONG ZZ2: MOV A,36H CJNE A,1,ZZ1 CPL LED1 MOV A,43H CJNE A,1,ZZ3 MOV 43H,2 MOV 30H,0CEH LCALL WRITECOM MOV 30H,20H LCALL WRITEDATE SJMP ZZ1 ZZ3: MOV A,43H CJNE A,2,ZZ1 MOV 43H,1 MOV 30H,0CEH LCALL WRITECOM MOV 30H,01H LCALL WRITEDATE ZZ1: SETB TR1 ZZ: RETI TIMER0: MOV TH0,3CH MOV TL0,0B0H MOV A,36H CJNE A,0,TI1 INC 41H 18 MOV A,41H CJNE A,20,TI0 MOV 41H,0 SETB B1 CLR TR0 SJMP TI0 TI1: INC 46H MOV A,46H CJNE A,20,TI0 MOV 46H,0 INC 47H MOV A,47H CJNE A,60,TI0 MOV 47H,0 INC 48H MOV A,48H CJNE A,5,TI0 MOV 48H,0 CLR TR0 SETB B1 SETB LED1 MOV 36H,0 MOV 43H,0 CLR TR1 MOV 30H,0CEH LCALL WRITECOM MOV 30H,01H LCALL WRITEDATE SETB TR1 TI0: RETI INIT: MOV 33H,22H MOV 34H,17H MOV 35H,15H 19 MOV 39H,00H MOV 3AH,00H MOV 41H,0 MOV 42H,0 MOV 43H,0 MOV 46H,0 MOV 47H,0 MOV 48H,0 MOV 36H,0 MOV 37H,0 MOV R1,35H LCALL LIUTOSHI MOV 35H,A MOV R1,34H LCALL LIUTOSHI MOV 34H,A MOV R1,33H LCALL LIUTOSHI MOV 33H,A MOV R2,0 MOV R5,0 MOV R6,0 MOV TMOD,11H MOV TH1,3CH MOV TL1,0B0H MOV TH0,3CH MOV TL0,0B0H SETB EA SETB ET1 SETB ET0 SETB TR1 CLR RST CLR SCLK MOV 30H,38H 20 LCALL WRITECOM MOV 30H,0CH LCALL WRITECOM MOV 30H,06H LCALL WRITECOM MOV 30H,01H LCALL WRITECOM MOV 30H,82H LCALL WRITECOM MOV 30H,32H LCALL WRITEDATE MOV 30H,30H LCALL WRITEDATE MOV 30H,86H LCALL WRITECOM MOV 30H,2FH LCALL WRITEDATE MOV 30H,89H LCALL WRITECOM MOV 30H,2FH LCALL WRITEDATE MOV 30H,0C6H LCALL WRITECOM MOV 30H,3AH LCALL WRITEDATE MOV 30H,0C9H LCALL WRITECOM MOV 30H,3AH LCALL WRITEDATE MOV DPTR,TAB2 MOV 38H,0 MOV 30H,40H LCALL WRITECOM 21 MOV A,38H LLL: MOVC A,A+DPTR MOV 30H,A LCALL WRITEDATE INC 38H MOV A,38H CJNE A,24,LLL MOV 30H,0CDH LCALL WRITECOM MOV 30H,02H LCALL WRITEDATE RET READBF: MOV P2,0FFH CLR EN CLR RS SETB RW SETB EN NOP MOV A,P2 CLR EN JB ,READBF RET WRITECOM:LCALL READBF CLR RS CLR RW CLR EN MOV P2,30H NOP SETB EN NOP CLR EN NOP RET 22 WRITEDATE:LCALL READBF SETB RS CLR RW CLR EN MOV P2,30H NOP SETB EN NOP CLR EN NOP RET DS1302_WRITE: CLR RST CLR SCLK SETB RST MOV A,50H MOV R7,8 WRITE_ADD: RRC A MOV IO,C SETB SCLK CLR SCLK DJNZ R7,WRITE_ADD MOV A,40H MOV R7,8 WRITE_DATE: RRC A MOV IO,C SETB SCLK CLR SCLK DJNZ R7,WRITE_DATE CLR RST RET 23 DS1302_READ: CLR RST CLR SCLK SETB RST MOV A,50H MOV R7,8 WRITE_ADD1: RRC A MOV IO,C SETB SCLK CLR SCLK DJNZ R7,WRITE_ADD1 MOV R7,8 READ_DATE: NOP MOV C,IO RRC A SETB SCLK CLR SCLK DJNZ R7,READ_DATE CLR RST RET DS1302_INIT1: MOV 50H,81H LCALL DS1302_READ RLC A JNC TF MOV 50H,8EH MOV 40H,00H LCALL DS1302_WRITE MOV 50H,7EH MOV R3,0 MOV DPTR,TAB 24 LL1: MOV A,2 ADD A,50H MOV 50H,A MOV A,R3 MOVC A,A+DPTR MOV 40H,A LCALL DS1302_WRITE INC R3 CJNE R3,7,LL1 MOV 50H,8EH MOV 40H,80H LCALL DS1302_WRITE TF: RET DS1302_READ_TIME: MOV 50H,7FH MOV R3,0 MOV R0,60H LL2: mov A,2 ADD A,50H MOV 50H,A LCALL DS1302_READ MOV 45H,A ANL A,0F0H RR A RR A RR A RR A MOV B,10 MUL AB MOV 44H,A MOV A,45H ANL A,0FH ADD A,44H MOV R0,A 25 INC R0 INC R3 CJNE R3,7,LL2 RET DISPLAY_TIME: MOV DPTR,TAB1 MOV R3,0 MOV R0,60H LL3: MOV A,R3 MOVC A,A+DPTR MOV 30H,A LCALL WRITECOM MOV A,R0 MOV B,10 DIV AB ADD A,30H MOV 30H,A LCALL WRITEDATE MOV A,B ADD A,30H MOV 30H,A LCALL WRITEDATE INC R3 INC R0 CJNE R3,5,LL3 MOV 30H,8DH LCALL WRITECOM MOV R0,65H LCALL WEEKDISPLAYCHANGE MOV 30H,84H LCALL WRITECOM MOV A,66H MOV B,10 DIV AB 26 ADD A,30H MOV 30H,A LCALL WRITEDATE MOV A,B ADD A,30H MOV 30H,A LCALL WRITEDATE RET KEYSCAN: MOV P1,0FFH JB S1,EXT1 LCALL DELAY MOV P1,0FFH