【正文】 MOV TEMPLC, A 。 TEMPLC LOW = 小數部分 BCD MOV A, TEMPL 。 整數部分 ANL A, 0F0H SWAP A MOV TEMPL, A MOV A, TEMPH ANL A, 0FH SWAP A ORL A, TEMPL LCALL HEX2BCD1 MOV TEMPL, A ANL A, 0F0H SWAP A ORL A, TEMPHC 。 TEMPHC LOW = 十位數 BCD MOV TEMPHC, A MOV A, TEMPL ANL A, 0FH SWAP A 。 TEMPLC HI = 個位數 BCD ORL A, TEMPLC MOV TEMPLC, A MOV A, R7 JZ TEMPC12 ANL A, 0FH SWAP A MOV R7, A MOV A, TEMPHC 。 TEMPHC HI = 百位數 BCD ANL A, 0FH ORL A, R7 MOV TEMPHC, ATEMPC12: RET。**********************************************************。 小數部分碼表。**********************************************************TEMPDOTTAB: DB 00H, 01H, 01H, 02H, 03H, 03H, 04H, 04H, 05H, 06H DB 06H, 07H, 08H, 08H, 09H, 09H RET。**********************************************************。 顯示區(qū) BCD 碼溫度值刷新子程序。**********************************************************DISPBCD: MOV A, TEMPLC ANL A, 0FH ADD A, 30H MOV 63H,A MOV A, TEMPLC SWAP A ANL A, 0FH ADD A, 30H MOV 62H,A MOV A, TEMPHC ANL A, 0FH ADD A, 30H MOV 61H,A MOV A, TEMPHC SWAP A ANL A, 0FH ADD A, 30H MOV 60H,A MOV A, TEMPHC ANL A, 0F0H CJNE A, 010H, DISPBCD0 SJMP DISPBCD2DISPBCD0: MOV A, TEMPHC ANL A, 0FH JNZ DISPBCD2 。 十位數是零 MOV A, TEMPHC SWAP A ANL A, 0FH MOV 60H,20H 。 符號位不顯示 MOV 61H,A 。 十位數顯示符號DISPBCD2: RET。****************************************************。 溫度值取整處理程序 。****************************************************DIFFER: PUSH PSW CLR C MOV A, 0F0H ANL A, TEMPER_VL 。 舍去溫度低位中小數點后的四位溫度數值 SWAP A MOV TEMPER_NUM, A MOV A, TEMPER_VL JNB ,TEMPER_COV。 四舍五入去溫度值 INC TEMPER_NUMTEMPER_COV: MOV A, TEMPER_VH ANL A, 07H SWAP A ORL A, TEMPER_NUM MOV TEMPER_NUM, A 。 保存變換后的溫度數據 MOV A, TEMPER_VH JNB ,POSSIVE MOV A, TEMPER_NUM SUBB A, 1EHPOSSIVE: MOV A, TEMPER_NUM ADD A, 1EH POP PSW RET。**********************************************************。 單字節(jié) 16 進制轉 BCD。**********************************************************HEX2BCD1: MOV B, 064H 。 16 進制 BCD DIV AB 。 B = A / 100 MOV R7, A 。 R7 = 百位數 MOV A, 0AH XCH A, B DIV AB 。 B = A / B SWAP A ORL A, B RET。****************************************************。 LCD 顯示程序 。****************************************************。 距離值在 40H 為最高位，43H 為最低位。 溫度值在 60H 為最高位，63H 為最低位LCDON: MOV P0, 01H LCALL ENABLE0 MOV P0, 01H LCALL ENABLE0 MOV P0, 38H LCALL ENABLE0 MOV P0, 0CH LCALL ENABLE0 MOV P0, 06H LCALL ENABLE0 MOV P0, 80H LCALL ENABLE0START100: MOV DPTR,WORD1 LCALL WRITE1 MOV P0, 0C0H LCALL ENABLE0 MOV DPTR,WORD2 LCALL WRITE1 MOV P0, 0C2H LCALL ENABLE0 LCALL DELAY2 MOV P0, 02H LCALL ENABLE0 LCALL DELAY3 LCALL DELAY3 RETERROR: MOV P0, 01H LCALL ENABLE1 MOV P0, 01H LCALL ENABLE1 MOV P0, 38H LCALL ENABLE1 MOV P0, 0CH LCALL ENABLE1 MOV P0, 06H LCALL ENABLE1 MOV P0, 80H LCALL ENABLE1START101: MOV DPTR,WORD5 LCALL WRITE1 MOV P0, 0C0H LCALL ENABLE1 LCALL DELAY2 MOV P0, 02H LCALL ENABLE1 MOV DPTR,WORD5 LCALL WRITE1 MOV P0, 0C0H LCALL ENABLE1 LCALL DELAY2 MOV P0, 02H LCALL ENABLE1 RETDISPLAY: MOV P0, 01H LCALL ENABLE1 MOV P0, 01H LCALL ENABLE1 MOV P0, 38H LCALL ENABLE1 MOV P0, 0CH LCALL ENABLE1 MOV P0, 06H LCALL ENABLE1 MOV P0, 80H LCALL ENABLE1MOV DPTR,WORD4 LCALL WRITE4 MOV P0, 0C0H LCALL ENABLE1 LCALL DELAY2 MOV DPTR,WORD3 LCALL WRITE3 MOV P0, 0C2H LCALL ENABLE1 LCALL DELAY2LCALL DELAY3LCALL DELAY3 MOV P0, 02H LCALL ENABLE1 RETWRITE1: MOV R1, 00H MOV R5, 10H A1:MOV A, R1 MOVC A, @A+DPTR LCALL WRITE12 INC R1 DJNZ R5, A1 RETWRITE12: MOV P0, A SETB RS CLR RW CLR