【正文】 MOV A, R4 MOV @R1, A INC R1 ACALL BCD 。 read ton MOV A, R7 MOV @R1, A INC R1 MOV A, R6 MOV @R1, A INC R1 MOV A, R5 INC RI MOV @RI, A INC R1 MOV A, R4 MOV @R1, A INC R1 ACALL BCD 。 READ ALARM MOV A, R7 MOV @R1, A INC R1 MOV A, R6 MOV @R1, A INC R1 MOV A, R5 MOV @R1, A INC R1 MOV A, R4 MOV @R1, A INC R1 MOV R2, 3 ACALL HEX 。 READ PLUS MOV A, R4 MOV @R1, A INC R1 RET。 HEX: MOV R4, 0 MOV R5, 0 。 R5R4 HEX CODEHEXLP: CLR C MOV A, R4 RLC A MOV R4, A MOV A, R5 RLC A MOV R5, A 。 R5R4=RSR4*2 CLR C MOV A, R1 RLC A MOV R6, A MOV A, R5 RLC A MOV R7, A 。 R7R6=R5R4*4 CLR C MOV A, R6 RLC A MOV R6, A MOV A, R7 RLC A MOV R7, A 。 R7R6=R5R4*8 MOV A, R4 ADD A, R6 MOV R4, A 。 R5R4=R5R4*10 MOV A, R5 ADDC A, R7 MOV R5, A MOV A, @R0 ANL A, 0FH ADD A, R4 MOV R4, A ADDCC A, 0 MOV R5, A 。 R5R4 =R5R4*10+A INC R0 DJNZ R2, HEXLP RET。 BCD: MOV R4, 0 MOV R5, 0 MOV R6, 0 MOV R7, 0 。 R7R6R5R4 8 BIT BCD CODENOTD8: MOV A, @R0 。 ASCII CODE CONVERT BCD CODE ANL A, 0FH SWAP A MOV R7, A INC R0NOTS7: MOV A, @R0 ANL A, 0FH ADD A, R7 MOV R7, A INC R0NOTS6: MOV A, @R0 ANL A, 0FH SWAP A MOV R6, A INC R0NOTS5: MOV A, @R0 ANL A, 0FH ADD A, R6 MOV R6, A INC R0NOTS4: MOV A, @R0 ANL, A, 0FH SWAP A MOV R5, A INC R0NOTS3: MOV A, @R0 ANL A, 0FH ADD A, R5 MOV R5, A INC R0NOTS2: MOV A, @R0 ANL A, 0FH SWAP A MOV R4, A INC R0NOTS1: MOV A, @R0 ANL A, 0FH ADD A, R4 MOV R4, A INC R4, A RET。 RDBLOOK: LCALL START 。 READ IC CARD (R2R1) (R0), (R3) BYTES 。 WRITE START BIT MOV A, R2 。 R2=PAGE, R1=ADDR, R3=BYTES CLR C 。 USE A, B, R0, R1, R2, R3, REGISTER RLC A ADD A, 0A0 。 WRITE PAGE ADDR AND WRITE CONTROL BYTE ACALL OUTBYTE JNC SENDADD 。 IF ACK=0 THEN IC CARD ACK ACALL ACKTEST 。 TEST ACKSENDADD: MOV A, R1 ACALL OU39。IBYTE 。 WRITE A7A0 JNC RDCOMAN 。 IF ACK=0 THEN IC CARD ACK ACALL ACKTEST : TEST ACKRDCOMAN: ACALL START 。 WRITE START BIT MOV A, R4 CLR C RLC A ADD A, 0A1H 。 WRITE PAGE ADDR AND READ CONTROL BYTE ACALL OU39。I39。BY39。I39。E JNC RDLOOP 。 IF ACK=0 THEN IC CARD ACK ACALL ACKTESTRDLOOP: ACALL RDBYTE JNC NBYT ACALL ACKTESTNBYT: DJNZ R3, RDLOOP CLR C AJMP STOP。 RDBYTE: MOV B, 8RDBLOP: CLR SCL NOP NOP SETB SCL NOP MOV C, SDA RLC A NOP DJNZ B, RDBLOP MOV @R0, A INC R0 CLR SCL SETB SDA NOP SETB SCL NOP MOV C, SDA NOP CLR SCL RET。 WRBLOOK: ACALL START 。 WR (R0) (R2R1) ,(R3) BYTES。 WRITE START BIT MOV A, R2 。 R2=PAGE, R1=ADDR, R3=BYTES CLR C 。 USE A, B, R0, R1, E2, E3 REGISTER RLC A ADD A, 0A0H 。 WRITE PAGE ADDR AND WRITE CONTROL, BYTE ACALL OUTBYTE JNC WSENDAD 。 IF ACK=0 THEN IC CARD ACK ACALL ACKTEST 。 TEST ACKWSENDAD: MOV A, R1 ACALL OUTBYTE 。 WRITE A7A0 JNC WRLOOP 。 IF ACK=0 THEN IC CARD ACK ACALL ACKTEST 。 TEST ACKWRLOOP: MOV A, @R0 ACALL OUTBYTE JNC NEXTBY ACALL ACKTESTNEXTBY: INC R0 DJNZ R3, WRLOOP CLR C AJMP STOP。 OUTBYTE: MOV B, 8OUTLOP: CLR SCL 。 WRITE ONE BYTE RLC A MOV SDA, C SETB SCL NOP NOP DINZ B, OUTLOP CLR SCL SETB SDA SETB SCL NOP MOV C, SDA CLR SCL RET。 START: SETB SDA SETB SCL NOP NOP CLR SDA NOP NOP CLR SCL RET。 ACKTEST: CLR TIMEFLAGTESTLP: ACALL START SETB ALARM JB TIMEFLAG, RETURN MOV A, 0A0H ACALL OUTBYTE JC TESTLP RETRETURN: POP ACC POP ACC SETB C。 CLR SCL CLR SDA NOP SETB SCL NOP