系統(tǒng)執(zhí)行軟件源程序代碼-文庫(kù)吧資料
2025-07-13 15:40本頁(yè)面
【正文】 串行口中斷服務(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寫(xiě)命令子程序 WRITE: CLR EA MOV R3,8 WR1: SETB DK MOV R4,8 RRC A CLR DK WR2: DJNZ R4,WR2 MOV DK,C MOV R4,20 WR3: DJNZ R4,WR3 DJNZ R3,WR1 SETB DK RET18B20讀數(shù)據(jù)子程序 READ: CLR EA MOV R6,8 RE1: CLR DK MOV R4,4 NOP SETB DK RE2: DJNZ R4,RE2 MOV C,DK RRC A MOV R5,30 RE3: DJNZ R5,RE3 DJNZ R6,RE1 SETB DK RET八為十六轉(zhuǎn)十進(jìn)制子程序 BCDZH: INC 21H MOV A,21H MOV 30H,12 JNB ,BCD0 MOV 30H,11 CPL A ADD A,1 BCD0: MOV R1,00H MOV R2,00H
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1