基于單片機(jī)的綜合火災(zāi)警報(bào)系統(tǒng)論文-資料下載頁(yè)
2025-06-27 20:52本頁(yè)面
【正文】 V R6,AFENLI2:MOV 08H,R7 ANL 08H,0FH 。小數(shù)部分 MOV R0,12FENLI3:MOV A,R6 RRC A MOV R6,A MOV A,R7 RRC A MOV R7,A MOV A,09H RRC A MOV 09H,A 。整數(shù)部分 DJNZ R0,FENLI3 MOV R6,09H 。整數(shù)部份 MOV R7,08H 。小數(shù)部分 RET。***************************************。作用：將R6R7中的二進(jìn)制數(shù)化作BCD碼的形式。輸入：R6 R7。輸出：R4R5R6 R7。***************************************BCD: MOV A,R6 。開始處理整數(shù)部分： MOV B,100 DIV AB MOV R4,A 。存整數(shù)高位 MOV A,B MOV B,10 DIV AB MOV R5,A 。存整數(shù)中位 MOV R6,B 。存整數(shù)低位 MOV A,R7 。開始處理小數(shù)部分： MOV B,5 MUL AB MOV B,10 DIV AB MOV 08H,A 。進(jìn)位 MOV A,R7 MOV B,2 MUL AB ADD A,08H MOV B,10 DIV AB MOV 08H,A 。進(jìn)位 MOV A,R7 MOV B,6 MUL AB add A,08H MOV B,10 DIV AB MOV R7,A 。暫存小數(shù)最高位 MOV A,B CLR C SUBB A,5 JC BCD1 INC R7 BCD1:RET。******************************************************。作用：用于把R4R5R6R7轉(zhuǎn)化為滿足輸出的類型。輸入：R4R5R6 R7。輸出：R4R5R6 R7。*******************************************************CHANGE_CLEAR: MOV DPTR,TABLE 。指向表首 MOV A,R4 。轉(zhuǎn)換為表格中的數(shù)據(jù) MOVC A,@A+DPTR MOV R4,A MOV A,R5 MOVC A,@A+DPTR MOV R5,A MOV A,R6 MOVC A,@A+DPTR MOV R6,A MOV A,R7 MOVC A,@A+DPTR MOV R7,A INC R6 。小數(shù)點(diǎn) CJNE R4,0FCH,OUT2 。高位清零 MOV R4,00H CJNE R5,0FCH,OUT2 MOV R5,00H OUT2:JB F0,OUT3 。判斷是否為負(fù)數(shù)加符號(hào) SJMP OUT 。如果為正數(shù)則不加符合。 OUT3:CJNE R4,00H,OUT 。最高位是否為零 CJNE R5,00H,KKK1 。中位是否為零 MOV R5,02H 。R5用來(lái)顯示符合 SJMP OUT KKK1:MOV R4,02H 。R4用來(lái)顯示符合 OUT :RET TABLE:db 0fch,60h,0dah,0f2h,66h,0b6h,0beh,0e0h,0feh,0f6h。***************************************************************。功能：將R4R5R6R7串行輸出。輸入：R4R5R6R7。**************************************************************SHUCHU: mov r0, 07h 。分別對(duì)應(yīng)四個(gè)字 SHOW:mov R1, 08h 。每個(gè)字八位 mov a, @r0 SHOW1:rrc a clr mov , c setb djnz R1,SHOW1 dec R0 CJNE R0,03H,SHOW RET LOAD: MOV R1,08FHLOAD1: CPL LCALL DLY2 DJNZ R1,LOAD1 RETDLY2: MOV R3,01HLOOP5:MOV R2,3FHLOOP6:NOP DJNZ R2,LOOP6 DJNZ R3,LOOP5 RET 。*****************************************************DLY1: MOV R3,00HLOOP1:MOV R2,00HLOOP2:NOP DJNZ R2,LOOP2 DJNZ R3,LOOP1 RET 。**************************************************END
語(yǔ)文相關(guān)推薦
鄂ICP備17016276號(hào)-1