RRC A ;
SETB DQ
SETB STLPW
MOV R1,#30H ; DELAY 100uS FOR RECOVER
DJNZ R1,$
DJNZ R0,RDWIRE_1
POP 0001H
POP 0000H
RET
;******************************************************************
; DELAY 0.9S-1S
T1S:
PUSH 0000H
PUSH 0001H
PUSH 0002H
MOV R2,#07H
T1S_2: MOV R1,#0FFH
T1S_1: MOV R0,#0FFH ; 512uS
DJNZ R0,$ ;
DJNZ R1,T1S_1 ; 514*255+2=131072uS
DJNZ R2,T1S_2 ; 131072*7=917504uS
POP 0002H
POP 0001H
POP 0000H
RET
;*******************************************************************
END
