putchar:                 ; char in A
     mov SBUF,A
loop:
     jnb SCON.1,loop
     ret