;THIS IS FOR TRANSMITING DATA FROM MICROCONTROLLER TO COMPUTER
;USING BAUD RATE OF 9600, NO PARITY,1 STOP BIT.
;IT CAN BE CHECKED USING HT


	ORG	0000H
	AJMP	START


	ORG	0030H
START:	MOV	IE,#00		;DISABLE INTERRUPTS
	MOV	PSW,#00

MAIN:	MOV	TMOD,#20H	;TIMER 1 , MODE 2(AUTO RELOAD)
	MOV	TH1,#0FDH	;9600 BAUD RATE
	MOV	SCON,#50H	;8 BIT,1 STOP, REN ENABLE
	SETB	TR1		;START TIMER 1

AGAIN1:	MOV	A,#'R'		;LETTER 'R' TO BE TRANSFERRED
	CLR	TI		;CLEAR TRANSMIT INTERRUPT FLAG
	MOV	SBUF,A		;MOVE 'R' TO SERIAL BUFFER 
HERE:	JNB	TI,HERE		;WAIT TILL 'R' IS TRANSMITTED
	

	MOV	A,#'A'		;LETTER 'A' TO BE TRANSFERRED
	CLR	TI		;CLEAR TRANSMIT INTERRUPT FLAG
	MOV	SBUF,A		;MOVE 'A' TO SERIAL BUFFER
HERE1:	JNB	TI,HERE1	;WAIT TILL 'A' IS TRANSMITTED
	
		
	MOV	A,#'J'		;LETTER 'J' TO BE TRANSFERRED
	CLR	TI		;CLEAR TRANSMIT INTERRUPT FLAG
	MOV	SBUF,A		;MOVE 'J' TO SERIAL BUFFER
HERE2:	JNB	TI,HERE2	;WAIT TILL 'J' IS TRANSMITTED
	

	MOV	A,#' '		;LETTER ' ' TO BE TRANSFERRED
	CLR	TI		;CLEAR TRANSMIT INTERRUPT FLAG
	MOV	SBUF,A		;MOVE ' ' TO SERIAL BUFFER
HERE3:	JNB	TI,HERE3	;WAIT TILL ' ' IS TRANSMITTED
	
	SJMP	AGAIN1		;JUMP TO AGAING TO REPEAT THE PROCESS

	END