BCLR S0RIR
SCXT CP, #0F622h
NOP
BCLR S0RIE
MOVB S0TBUF, RL1 ; transmit [R0]
CSendA: JNB S0TIR,CSendA ; wait for receive it again
BCLR S0TIR
CMPB RL1, #00h
JMPR cc_NE,Second
MOVB RL0, S0RBUF
MOVB RL1, #0001h
JMPR Exit
Second: MOVB RH0, S0RBUF
;MOVB S0TBUF, 0F600h ; transmit [R0]
MOVB RL1, #00h
MOVB S0TBUF, [R0] ; transmit [R0]
CSendL: JNB S0TIR,CSendL ; wait for receive it again
BCLR S0TIR
Exit: POP CP
BSET S0RIE
RETI |