tstlp: mov sbuf,#h'55
serwt: jnb scon.1, serwt
       clr scon.1
       sjmp testlp