AUXR DATA 08EH ;Auxiliary registerP1M1 DATA 091H ;P1M1.N,P1M0.N =00--->Standard, 01--->push-pull
P1M0 DATA 092H ; =10--->pure input, 11--->open drain
P_RC BIT P1.0 ;RC port
DLY_H DATA 30H ;Delay high byte
DLY_M DATA 31H ;delay mid byte
DLY_L DATA 32H ;delay low byte
SEND_CNT DATA 33H ;send counter
;//////////////////////////////////////////////////////////
ORG 0000H
LJMP RESET
ORG 0100H
RESET:
LCALL INIT_UART ;initial UART
LCALL INIT_IO ;initial io
MOV SP,#40H
MOV SEND_CNT,#10 ;10 results per line
MAIN:
MOV DLY_H,#25
DLY1:
MOV DLY_M,#HIGH 10000
MOV DLY_L,#LOW 10000
DLY2:
DJNZ DLY_L,DLY3
DEC DLY_M
DLY3:
MOV A,DLY_M
ORL A,DLY_L
JNZ DLY2
DJNZ DLY_H,DLY1
LCALL RC
DJNZ SEND_CNT,MAIN
MOV SEND_CNT,#10 ;10 results per line
MOV A,#0DH ;send CR
LCALL SEND_UART ;send to PC from the UART
MOV A,#0AH ;send chage line
LCALL SEND_UART ;send to PC from the UART
SJMP MAIN
;//////////////////////////////////////////////////////////
INIT_UART:
MOV SCON,#5AH ;set UART mode as 8-bit variable baudrate
MOV TMOD,#20H ;timer1 as 8-bit auto reload mode
MOV AUXR,#40H ;timer1 work at 1T mode
MOV TL1,#0FBH ;115200 bps(256 - 18432000 / 32 / 115200)
MOV TH1,#0FBH
SETB TR1
RET
;//////////////////////////////////////////////////////////
Init_IO:
ORL P1M1, #0x01 ;P1.0 config as Open-Drain
ORL P1M0, #0x01
CLR P_RC ;Clear P1.0 to 0
ORL TMOD, #0x01 ;T0 as 16 bits timer
RET
;//////////////////////////////////////////////////////////
SEND_UART:
CLR TI ;clear TI flag
MOV SBUF,A ;send current data
JNB TI,$ ;wait data sent
RET
;//////////////////////////////////////////////////////////
RC:
MOV TH0, #0 ;clear Timer 0
MOV TL0, #0
SETB P_RC ;RC charge
SETB TR0 ;enable Timer 0
JNB P_RC,$ ;wait charge finish
CLR TR0 ;deable Timer 0
CLR P_RC ;decharge
MOV R3,TH0; ;read the RC time
MOV R4,TL0;
LCALL F_HEX2_DEC
MOV A,R5
ADD A,#30H ;Charge to ASCII code
LCALL SEND_UART ;send to PC from the UART
MOV A,R6
SWAP A
ANL A,#0FH
ADD A,#30H ;Charge to ASCII code
LCALL SEND_UART ;send to PC from the UART
MOV A,R6
ANL A,#0FH
ADD A,#30H ;Charge to ASCII code
LCALL SEND_UART ;send to PC from the UART
MOV A,R7
SWAP A
ANL A,#0FH
ADD A,#30H ;Charge to ASCII code
LCALL SEND_UART ;send to PC from the UART
MOV A,R7
ANL A,#0FH
ADD A,#30H ;Charge to ASCII code
LCALL SEND_UART ;send to PC from the UART
MOV A,#20H
LCALL SEND_UART ;send to PC from the UART
MOV A,#20H
LCALL SEND_UART ;send to PC from the UART
RET
;//////////////////////////////////////////////////////////
F_HEX2_DEC: ;(R3---R4) HEX Change to DEC ---> (R5---R7), use (R2~R7), 344T
MOV R2,#16
MOV R5,#0
MOV R6,#0
MOV R7,#0
L_HEX2_DEC:
CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R7
ADDC A,R7
DA A
MOV R7,A
MOV A,R6
ADDC A,R6
DA A
MOV R6,A
MOV A,R5
ADDC A,R5
DA A
MOV R5,A
DJNZ R2,L_HEX2_DEC
RET
END
加入技術(shù)交流群
評(píng)論