數(shù)字溫度計(2)(編輯修改稿)
2024-09-19 01:56 本頁面
【文章內(nèi)容簡介】 AJMP START ORG 0050HSTART: MOV SP, 40HMAIN: LCALL READ_TEMP LCALL PROCESS AJMP MAIN。讀溫度程序 READ_TEMP: LCALL RESET_PULSE MOV A, 0CCH LCALL WRITE MOV A, 44H LCALL WRITE LCALL DISPLAY LCALL RESET_PULSE MOV A, 0CCH LCALL WRITE MOV A, 0BEH LCALL WRITE LCALL READ RET。復位脈沖程序RESET_PULSE:RESET: SETB DATA_BUS NOP NOP CLR DATA_BUS MOV R7, 255 DJNZ R7, $ SETB DATA_BUS MOV R7, 30 DJNZ R7,$ JNB DATA_BUS, SETB_FLAG CLR FLAG AJMP NEXTSETB_FLAG: SETB FLAGNEXT: MOV R7, 120 DJNZ R7, $ SETB DATA_BUS JNB FLAG, RESET RET。寫命令WRITE: SETB DATA_BUS MOV R6, 8 CLR CWRITING: CLR DATA_BUS MOV R7, 5 DJNZ R7, $ RRC A MOV DATA_BUS, C MOV R7, 30H DJNZ R7, $ SETB DATA_BUS NOP DJNZ R6, WRITING RET。循環(huán)顯示段位DISPLAY: MOV R4, 200DIS_LOOP: MOV A, DIS_DP MOV P2, 0FFH MOV P0, A CLR LCALL DELAY2MS MOV A, DIS_GE MOV P2, 0FFH MOV P0, A SETB CLR LCALL DELAY2MS MOV A, DIS_SHI MOV P2, 0FFH MOV P0, A
環(huán)評公示相關推薦
鄂ICP備17016276號-1