超声波车距报警器 - 程序设计(7)

CLR CANCEL ;AID TO RESET MEMORY MOV 4EH,#00H MOV A,#00H

MAINLOOP:CALL SHOWLED MOV KEYPORT,#0FFH

MOV A,KEYPORT ;COLECT KEYBORD INFORMATION MOV R0,A KEYMODE SERVE ANL A,#KEYMODE CJNE A,#00H,NEXT1

MOV CHECKNUM,#00H ;CHECK NUMBER IS 0 NOW MOV A,4EH INC A

CJNE A,#01H,MODESPEED CALL SHOWLEN MOV 4EH,A AJMP OK

MODESPEED: CJNE A,#02H,MODESECOND CALL SHOWSPEED MOV 4EH,A AJMP OK

MODESECOND:CJNE A,#03H,RESETMODE CALL SHOWSECOND MOV 4EH,A AJMP OK RESETMODE: MOV 4EH,#01H CALL SHOWLEN AJMP OK OK; MOV R7,#01H

21

CALL WAITKEYRELEASE SJMP MAINLOOP

NEXT1:KEYFUNCTION SERVE MOV A,R0

ANL A,#KEYFUNCTION CJNE A,#00H,NEXT2 MOV CHECKNUM,#00H

CHECK NUMBER IS 0 NOW MOV R7,#02H

CALL WAITKEYRELEASE CJNE R3,#00H,NOTRESTORMEM CALL RESETMEMORY

PRESS FUNCTION KEY FOR A LONG TIME TO CLEAR MEMORY:SETB CANCEL SJMP MAINLOOP

NOTRESTORMEM: MOV A,4EH CJNE A,#01H,SPEED CALL MEASURELEN SJMP MAINLOOP

SPEED:CJNE A,#02H,SECOND CALL MEASSURESPEED SJMP MAINLOOP

SECOND: CJNE A,#03H,MAINLOOP CALL MEASEURSECOND SJMP MAINLOOP DEFAULT:SJMP MAINLOOP NEXT2: KEYUP CHECK SERVE MOV A,R0 ANL A,#KEYUP CJNE A,#00H,NEXT3 MOV R6,#01H CALL CHECK MOV R7,#03H

CALL WAITKEYRELEASE

22

JMP MAINLOOP

NEXT3:KEYDOWN CHECK SERVE MOV A,R0

ANL A,#KEYDOWN

CJNE A,#00H,AIDJMPTOMAINLOOP AJMP AIDNEXT

AIDJMPTOMAINLOOP:JMP MAINLOOP AIDNEXT:MOV R6,#02H CALL CHECK MOV R7,#04H

CALL WAITKEYRELEASE JMP MAINLOOP RET END MAIN

;************************************** ;******* 测量距离子程序 ********* ;**************************************

;操作结果:R3存放要显示的信息的地址,并保存当前的结果 ;测量距离有效时:返回一个浮点形的四位数字 ;测量距离溢出时:返回出错信息 ERRO

MEASURELEN: ;参数R0:#0FFH,测量出错; #0FH有效测量信息 JNB CANCEL,CANMEASURELEN CLR CANCEL RET

CANMEASURELEN:

MOV 1EH,#00H ;清标志位 CALL SETTIME

LOOP1:CJNE R0,#0FFH,NOTFLOW ;溢出处理,使LED显示ERRO CALL SHOWERRO RET

NOTFLOW:CJNE R0,#0FH,LOOP1 ;还未接受到INT1的有效终止信号 SJMP L ;反馈信号正常

23

MOV A,TL1

MOV B,#HALFSPEED MUL AB MOV R7,A MOV R6,B MOV A,TH1

MOV B,#HALFSPEED MUL AB ADD A,R6 MOV R6,A MOV A,B ADDC A,#00H MOV R5,A MOV R4,#00H ;

MOV 1EH,#02H CALL CUTFIGURE MOV P3,#0FFH RET END MEASURELEN

24