SERIAL: JNB TI,$
CLR TI
cjne r0,#42h,next
mov r0,#40h
sjmp out
next:inc r0
out:mov sbuf,@r0
RETI