STEST: ;LCALL SOUT
;LCALL T12MS
AJMP STEST
T12MS: MOV R7,#18H ;延时12ms程序
TM: MOV R6,#0FFH
TM6: DJNZ R6,TM6
DJNZ R7,TM
RET
SBR1: JNB RI,SSEND
LCALL SIN
LJMP SNEXT
SSEND: ;LCALL SOUT
SNEXT: RETI
SOUT: CLR TI
MOV SBUF,TRF
RET
SIN: CLR RI
MOV A,SBUF
CPL A
MOV TRF,A
LCALL SOUT
RET