【正文】 保證串口打開 x = MsgBox(請打開串口, 9) = True End If = 39。LCALL DISPLAY 。附錄一 系統(tǒng)執(zhí)行軟件源程序代碼一、 系統(tǒng)多機(jī)通信從機(jī)源程序代碼 ** *Lu Bo* ** ORG 0000H SJMP MAIN ORG 0023H ；串行口中斷入口 SJMP SJCS主程序 MAIN: SLAVE EQU 12 DK EQU MOV SCON,0B0H MOV TMOD,20H MOV TL1,0FDH MOV TH1,0FDH MOV IE,90H SETB TR1 LCALL WDCJ SETB RS1 CLR RS0 LCALL BCDZH LCALL DISPLAY CLR RS1 CLR RS0 SJMP MAIN串行口中斷服務(wù)子程序 SJCS: CLR RI PUSH A PUSH PSW MOV A,SBUF XRL A,SLAVE JZ SJCS0 SJCS1: SETB SM2 POP PSW POP A RETI SJCS0: CLR SM2 MOV SBUF,SLAVE JNB TI,$ CLR TI JNB RI,$ CLR RI MOV A,SBUF XRL A,11H JZ SJCS2 SJMP SJCS1 SJCS2: MOV A,25H ADD A,1 MOV SBUF,A JNB TI,$ CLR TI MOV 22H,00H SJMP SJCS118B20溫度采集子程序 WDCJ: MOV SP,60H LCALL GET_TEMP MOV A,21H MOV C,00H RRC A MOV C,01H RRC A MOV C,02H RRC A MOV C,03H RRC A MOV 21H,A MOV 25H,A LCALL BCDZH LCALL DISPLAY AJMP MAIN18B20溫度采集時(shí)序子程序 GET_TEMP: CLR EA LCALL INT MOV A,0CCH LCALL WRITE MOV A,44H LCALL WRITE LCALL INT MOV A,0CCH LCALL WRITE MOV A,0BEH LCALL WRITE LCALL READ MOV 21H,A LCALL READ MOV 20H,A SETB EA RET18B20初始化子程序 INT: CLR EA L0: CLR DK MOV R2,200 L1: CLR DK DJNZ R2,L1 SETB DK MOV R2,30 L4: DJNZ R2,L4 CLR C ORL C,DK JC L0 MOV R6,80 L5: ORL C,DK JC L3 DJNZ R6,L5 SJMP L0 L3: MOV R2,200 L2: DJNZ R2,L2 RET 18B20寫命令子程序