;Transmit character in A via TXD line
;
putc	CLR	TXD		;Drop line for start bit
	MOV	R0,#BITTIM	;Wait full bit-time
	DJNZ	R0,*		;For START bit
	MOV	R1,#8		;Send 8 bits
putc1	RRC	A		;Move next bit into carry
	MOV	TXD,C		;Write next bit
	MOV	R0,#BITTIM	;Wait full bit-time
	DJNZ	R0,*		;For DATA bit
	DJNZ	R1,putc1	;write 8 bits
	SETB	TXD		;Set line high
	RRC	A		;Restore ACC contents
	MOV	R0,#BITTIM	;Wait full bit-time
	DJNZ	R0,*		;For STOP bit
	RET