温湿度检测源程序2.doc

SCK BIT P2.3 DATAI BIT P2.4 SCL EQU P0.5SDA EQU P0.6 ORG 0000H MOV SP,#70H AJMP zhongduan ORG 0023H LJMP SR ORG 0100Hzhongduan: MOV TMOD,#20H MOV PCON,#00H MOV TL1,#0FDH MOV TH1,#0FDH SETB TR1 MOV SCON,#50H MOV IE, #90H MOV R0,#21H MAIN: MOV 20H, #55H MOV 21H, #40H LCALL WRN START1:LCALL CHUANGANQI START2:MOV 3DH, 30H MOV R2, #40H START3:LCALL DISPLAY DJNZ R2, START3 LCALL RDN LCALL DISPLAY MOV A, 3DH CJNE A, 3EH,ABOVE ABOVE: JNC ABOVE1 CJNE A, 3FH,BELOWBELOW: JC BELOW1 SETB P2.6 SETB P2.7 LCALL DISPLAY LJMP AA1ABOVE1:CLR P2.6 SETB P2.7 LCALL DISPLAY LJMP AA1BELOW1:SETB P2.6 CLR P2.7 LCALL DISPLAY LJMP AA1AA1:JNB P0.0 , AA9 LJMP START1AA9:LCALL DELAY1 JNB P0.0 ,ANJIAN LJMP START1 ANJIAN:CLR P2.5 LCALL RDN MOV 20H,3EH MOV 21H,3FH AB1:JB P0.0,AB2 LJMP AB1 AB2:LCALL AA6 AB9:JB P0.1,AA4 LCALL DELAY1 JB P0.1,AA4 AB4:JB P0.1,AB3 LJMP AB4AB3:MOV A, 20H ADD A, #01H DA A MOV 20H, A LCALL AA6AA4:JB P0.2, AA5 LCALL DELAY1 JB P0.2, AA5 AB5:JB P0.2,AB6 LJMP AB5AB6:MOV A, 20H CLR C SUBB A, #01H MOV 20H, A ANL A, #0FH CJNE A, #0FH,AAC MOV A, 20H ANL A, #0F0H ORL A, #09H MOV 20H, A AAC:LCALL AA6 AA5:LCALL AA6 JB P0.0 , AB9 LCALL DELAY1 JB P0.0 , AB9AB7:JB P0.0 ,AB8 LJMP AB7AB8:SETB P2.5 LCALL WRN LJMP START1 AA6:MOV 30H,20H MOV 31H,21H LCALL DISPLAYDELAY1: MOV R5, #10 DL1:MOV R4,#00H DL2:DJNZ R4,DL2 DJNZ R5,DL1 RET CHUANGANQI: NOP CLR SCK SETBDATAI ACALL TS1 SETB DATAI ACALLCT01 SETB DATAI NOPT001: JNBDATAI,RCT01 NOP NOP AJMPT001RCT01: ACALLRC01 MOV 60H,R2 MOV 61H,R3 CLR C MOV R4,60H MOV R5,61H MOV R6,#3EH MOV R7,#80H ACALL NSUB JNC THH1 MOV 62H,R4 MOV 63H,R5 AJMP TJX1THH1: MOV 62H,R6 MOV 63H,R7 TJX1: CLR C TJX2: MOV R4,#00H MOV R5,#00H MOV R6,62H MOV R7,63H MOV R2,#00H MOV R3,#64H ACALL NDIV1 MOV 6AH,R6 MOV 6BH,R7 NOP ACALL XYSHC NOP CLR SCK SETB DATAI ACALL TS1 NOP SETB DATAI ACALL CT11 SETB DATAI NOPT0012: JNB DATAI,RCT12 AJMP T0012RCT12: ACALL RC01 NOP MOV 64H,R2 MOV 65H,R3 MOV R2,64H MOV R3,65H MOV R6,64H MOV R7,65H ACALL QKUL MOV R2,#27H MOV R3,#10H ACALL NDIV1 MOV A,R6 MOV R2,A MOV A,R7 MOV R3,A MOV R6,#01H MOV R7,#18H ACALL QKUL MOV R2,#00H MOV R3,#64H ACALL NDIV1 MOV A,R6 MOV R4,A MOV A,R7 MOV R5,A MOV R2,#01H MOV R3,#90H ACALL NADD MOV 6EH,R6 MOV 6FH,R7 MOV R2,64H MOV R3,65H MOV R6,#01H MOV R7,#95H ACALL QKUL MOV R2,#00H MOV R3,#64H ACALL NDIV1 MOV A,R6 MOV R4,A MOV A,R7 MOV R5,A MOV R6,6EH MOV R7,6FH ACALL NSUB MOV 6CH,R2 MOV 6DH,R3 MOV R2,64H MOV R3,65H MOV R6,#00H MOV R7,#08H ACALL QKUL MOV R2,#03H MOV R3,#0E8H ACALL NDIV1 MOV A,R6 MOV R4,A MOV A,R7 MOV R5,A MOV R2,#00H MOV R3,#01H ACALL NADD MOV 64H,R6 MOV 65H,R7 MOV R4,6AH MOV R5,6BH MOV R6,#00H MOV R7,#41H CLR C ACALL NSUB JC RHH1 MOV R6,64H MOV R7,65H ACALL QKUL MOV A,R6 MOV R2,A MOV A,R7 MOV R3,A MOV R4,6CH MOV R5,6DH ACALL NADD MOV A,R6 MOV R2,A MOV A,R7 MOV R3,A AJMP ZHJRHH1: MOV R4,#00H MOV R5,#41H MOV R6,6AH MOV R7,6BH ACALL NSUB MOV R6,64H MOV R7,65H ACALL QKUL MOV R4,6CH MOV R5,6DH ACALL NSUB ZHJ: MOV R6,#00H MOV R7,#64H ACALL QKUL MOV R2,#27H MOV R3,#10H ACALL NDIV1 MOV 30H,R7 NOP ACALL XYSHC NOP RETTS1:SETBDATAI CLRSCK MOVR7,#09H TS2:SETBSCK CLRSCK DJNZ R7,TS2 SETB SCK CLRDATAI CLRSCK SETBSCK SETBDATAI CLRSCK RETCT01:CLRSCK CLRDATAI MOVR7,#05H CT02:SETBSCK CLRSCK DJNZ R7,CT02 SETB SCK CLRSCK SETB DATAI SETBSCK CLRSCK SETBSCK CLRSCK CLRDATAI SETBSCK CLRSCK SETBDATAI RETCT11: CLR SCK CLR DATAI MOV R7,#05H CT12: SETB SCK CLR SCK DJNZ R7,CT12 SETB DATAI SETB SCK CLR SCK CLR DATAI SETB SCK CLR SCK SETB DATAI SETB SCK CLR SCK CLR DATAI ; SETB SCK CLR SCK SETB DATAI RETNADD:MOVA,R5 ADDA,R3 MOVR7,A MOVA,R4 ADDCA,R2 MOVR6,A RETNSUB: MOVA,R5 SUBBA,R7 MOVR3,A MOVA,R4 SUBBA,R6 MOVR2,A RETQKUL: MOVA,R3 MOVB,R7 MULAB XCHA,R7 MOVR5,B MOVB,R2 MULAB ADDA,R5 MOVR4,A CLRA ADDCA,B MOVR5,A MOVA,R6 MOVB,R3 MULAB ADDA,R4 XCHA,R6 XCHA,B ADDCA,R5 MOVR5,A MOVPSW.5,C MOVA,R2 MULAB ADDA,R5 MOVR5,A CLRA MOVACC.0,C MOVC,PSW.5 ADDCA,B MOVR4,A RETNDIV1: MOV A,R5 CLRC SUBB A,R3 MOV A,R4 SUBB A,R2 JNCNDVE1 MOVB,#16NDVL1:CLRC MOV A,R7 RLCA MOV R7,A MOV A,R6 RLCA MOV R6,A MOV A,R5 RLCA MOV R5,A XCH A,R4 RLCA XCH A,R4 MOVPSW.5,C CLRC SUBB A,R3 MOVR1,A MOV A,R4 SUBB A,R2 JBPSW.5,NDVM1 JCNDVD1NDVM1: MOV R4,A MOV A,R1 MOV R5,A INC R7NDVD1: DJNZB,NDVL1 CLRPSW.5 RETNDVE1: SETBPSW.5 RETXYSHC: MOV R6,#6FH YYWC: MOV R7,#6FH YYNC: NOP DJNZ R7,YYNC DJNZ R6,YYWC NOP RETRC01: SETBDATAI CLRSCK CLRA MOVR7,#08HRC02: SETBSCK MOVC,DATAI RLCA CLRSCK DJNZR7,RC02 CLRSCK MOVR2,A CLRDATAI SETBSCK CLRSCK SETBDATAI CLRA MOVR7,#08HRC03: SETB SCK MOVC,DATAI RLCA CLRSCK DJNZR7,RC03 CLRSCK MOVR3,A CLRDATAI SETBSCK CLRSCK SETBDATAI RET DISPLAY:SETB P2.0 SETB P2.1 SETB P2.2 MOV A, 30H ANL A, #0FH MOV R6, A MOV A, 30H ANL A, #0F0H SWAP A MOV B, #10H MUL AB ADD A, R6 DA A MOV 31H, #00H MOV 30H,A MOV A,30H ANL A,#0F0H SWAP A MOV 54H, A MOV A, 30H ANL A, #0FH MOV 55H, A MOV 56H, #00H CHABIAO:MOV DPTR,#TAB CLR P2.0 MOV A,54H MOVC A,A+DPTR MOV P1,A ACALL DELAY2 SETB P2.0 CLR P2.1 MOV A,55H MOVC A,A+DPTR MOV P1,A CLR P1.7; SETB P1.7; ACALL DELAY2 SETB P2.1 CLR P2.2 MOV A,56H MOVC A,A+DPTR MOV P1,A ACALL DELAY2 SETB P2.2 RET TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH DELAY2:MOV R5,#10H DL3:MOV R4,#80H DL4:DJNZ R4,DL4 DJNZ R5,DL3 RET WRN: MOV R6, #02H LCALL START MOV A, #0A0H LCALL WRT LCALL CHECK JB F0, WRN MOV A, #00H LCALL WRT LCALL CHECK JB F0, WRN MOV A, #00H LCALL WRT LCALL CHECK JB F0, WRN MOV R0, #20HWRDATA:MOV A, R0 INC R0 LCALL WRT LCALL CHECK JB F0, WRN DJNZ R6, WRDATA LCALL STOP RET RDN: MOV R6, #02H LCALL START MOV A, #0A0H LCALL WRT LCALL CHECK JB F0, RDN MOV A, #00H LCALL WRT LCALL CHECK JB F0, WRN MOV A, #00H LCALL WRT LCALL CHECK JB F0, WRN LCALL START MOV A, #0A1H LCALL WRT LCALL CHECK JB F0, WRNRDDATA:MOV R0, #3EHRDN1: LCALL RB MOV R0, A DJNZ R6, RACK LCALL NACK LCALL STOP RETRACK: LCALL ACK INC R0 LJMP RDN1START: SETB SDA SETB SCL NOP NOP CLR SDA NOP NOP CLR SCL RETSTOP: CLR SDA SETB SCL NOP NOP SETB SDA NOP NOP