【正文】 SP1015D 120000 LCALL DISP20160 120456 LCALL CONTROL0163 120243 MAIN1: LCALL READTEMP0166 D200 SETB TEMPONEOK0168 020140 LJMP MAIN016B 000000 RESTE DS2438016B D200 INITDS24381: SETB TEMPDIN016D 00 NOP016E 00 NOP016F C200 CLR TEMPDIN0171 7EA0 MOV R6,0A0H0173 DEFE DJNZ R6,$0175 7EA0 MOV R6,0A0H0177 DEFE DJNZ R6,$0179 D200 SETB TEMPDIN017B 7E32 MOV R6,32H017D DEFE DJNZ R6 $017F 7E3C MOV R6 3CH0181 D200 INITDS24382: SETB HUMDIN0183 00 NOP0184 00 NOP0185 C200 CLR HUMDIN0187 7500A0 MOV R8,0A0H018A D500FD DJNZ R8,$018D 7500A0 MOV R8,0A0H0190 D500FD DJNZ R8,$0193 D200 SETB TEMPDIN0195 750032 MOV R8,32H0198 D500FD DJNZ R8 $019B 75003C MOV R8 3CH019E A200 LOOP24381: MOV C TEMPDIN01A0 401A JC INITDS2438OUT101A2 DEFA DJNZ R6,LOOP2438101A4 7E64 MOV R6,064H01A6 DEFE DJNZ R6,$01A8 80C1 SJMP INITDS2438101AA 22 RET01AB 850000 LOOP24382: MOV D HUMPDIN01AE 4000 JC INITDS2438OUT01B0 D500F8 DJNZ R8,LOOP2438201B3 750064 MOV R8,064H01B6 D500FD DJNZ R8,$01B9 80C6 SJMP INITDS2438201BB 22 RET01BC D200INITDS2438OUT1:SETB TEMPDIN01BE 22 RET01BF D200INITDS2438OUT2: SETB HUMDIN01C1 22 RET讀DS2438的程序，從DS2438中讀出數(shù)據(jù)：01C2 7F08 READDS24381: MOV R7,08H01C4 D200 SETB TEMPDIN01C6 00 NOP01C7 00 NOP01C8 750008READDS24382: MOV R9,08H01CB D200 SETB HUMDIN01CD 00 NOP01CE 00 NOP01CF C200READDS2438LOOP1: CLR TEPMDIN01D1 00 NOP01D2 00 NOP01D3 00 NOP01D4 D200 SETB TEMPDIN01D6 7E07 MOV R6 07H01D8 DEFE DJNZ R6,$01DA A200 MOV C,TEMPDIN01DC 7E3C MOV R6,3CH01DE DEFE DJNZ R6,$01E0 13 RRC A01E1 D200 SETB TEMPDIN01E3 DFEA DJNZ R7,READDS2438LOOP101E5 7E3C MOV R6,3CH01E7 DEFE DJNZ R6,$01E9 22 RET01EA C200READDS2438LOOP2: CLR HUMDIN01EC 00 NOP01ED 00 NOP01EE 00 NOP01EF D200 SETB HUMDIN01F1 750007 MOV R8 07H01F4 D500FD DJNZ R8,$01F7 850000 MOV F,HUMDIN01FA 75003C MOV R8,3CH01FD D500FD DJNZ R8,$0200 13 RRC D0201 D200 SETB HUMDIN0203 D500E4 DJNZ R9,READDS2438LOOP20206 75003C MOV R8,3CH0209 D500FD DJNZ R8,$020C 22 RET寫DS2438的程序，從DS2438中寫數(shù)據(jù)：020D 7F08WRITEDS24381: MOV R7,08H020F D200 SETB TEMPDIN0211 00 NOP0212 00 NOP0213 7F08WRITEDS24382: MOV R7,08H0215 D200 SETB HUMDIN0217 00 NOP0218 00 NOP0219 C200WRITEDS2438LOP1: CLR TEMPDIN021B 7E07 MOV R6,07H021D DEFE DJNZ R6,$021F 13 RRC A0220 9200 MOV TEMPDIN,C0222 7E34 MOV R6,34H0224 DEFE DJNZ R6,$0226 D200 SETB TEMPDIN0228 DFEF DJNZ R7,WRITEDS2438LOP1022A 22 RET022B C200WRITEDS2438LOP2: CLR HUMDIN022D 750007 MOV R8,07H0230 D500FD DJNZ R8,$0233 13 RRC D0234 850000 MOV HUMDIN,F0237 750034 MOV R8,34H023A D500FD DJNZ R8,$023D D200 SETB HUMDIN023F D500E9 DJNZ R9,WRITEDS2438LOP20242 22 RET0243 12016B READTEMP: LCALL INITDS243810246 74CC MOV A,0CCH0248 12020D LCALL WRITEDS24381024B 7E34 MOV R6,34H024D DEFE DJNZ R6,$024F 7444 MOV A,44H0251 12020D LCALL WRITEDS243810254 7E34 MOV R6,34H 0256 DEFE DJNZ R6,$0258 22 RET0259 12016B READTEMP1: LCALL INITDS24381025C 74CC MOV A,0CCH025E 12020D LCALL WRITEDS243810261 7E34 MOV R6,34H0263 DEFE DJNZ R6,$0265 74BE MOV A,0BEH0267 12020D LCALL WRITEDS24381026A 7E34 MOV R6,34H026C DEFE DJNZ R6,$026E 7D09 MOV R5,09H0270 7836 MOV R0,TEMPHEAD0272 75F000 MOV B,00H0275 1201C2 READTEMP2: LCALL READDS243810278 F6 MOV @R0,A0279 08 INC R0027A 000000READTEMP21: LCALLL CRC8CA027A DDF9 DJNZ R5,READTEMP2027C E5F0 MOV A,B027E 7008 JNZ READTEMPOUT0280 E500 MOV A,TEMPHEAD+00282 F500 MOV TEMPL,A0284 E500 MOV A,TEMPHEAD+10286 F500 MOV TEMPH,A0288 22 READTEMPOUT: RET0289 120181 READHUM1: LCALL INITDS24382028C 7500CC MOV D,0CCH028F 120213 LCALL WRITEDS243820292 750034 MOV R8,34H0295 D500FD DJNZ R8,$0298 7500BE MOV D,0BEH029B 120213 LCALL WRITEDS24382029E 750034 MOV R8,34H02A1 D500FD DJNZ R8,$02A4 750009 MOV R8,09H02A7 7840 MOV R0,HUMHEAD02A9 750000 MOV E,00H02AC 1201C2 READHUM2: LCALL READDS2438102AF A600 MOV @R0,D02B1 08 INC R002B2 000000 READHUM21: LCALLL CRC8CAL02B2 DDF8 DJNZ R5,READHUM202B4 850000 MOV D,E02B7 700B JNZ READHUMOUT02B9 850000 MOV D,HUMHEAD+002BC 850000 MOV HUML,D02BF 850000 MOV D,HUMHEAD+102C2 F500 MOV HUMH,