// bit banging to transmit at 1200 baud rate
// crystal freq is 11.0592MHz		
		
		org 00h
		jmp main

		org 0Bh
		rlc A
		mov P3^1,C
		inc R1
		reti

		org 100h
main:	setb P3^1
		;mov A,#'A'
		mov IE,#82h
		mov TH0,#0E8h 
		mov TL0,#0E8h
		mov TMOD,#02h

		mov R0,#100
		
		setb TR0
repeat: mov A,#0x00	 		;Start bit
		mov R1,#00
wait1: 	cjne R1,#01,wait1

		mov R1,#0
		mov A,#'A'		   	;send the character
		clr c
wait2: 	cjne R1,#7,wait2

		mov A,#0x80			;send stop bit
		mov R1,#00
wait3: 	cjne R1,#01,wait3

						
		djnz R0,repeat
		clr TR0
over:	jmp over
end