ORG 0H   
        AJMP START				; initialization code
;
; place any additional initization code here
;
	mov	scon, #52H	; initialize timer for baud rate
	mov	tmod, #20H
	mov	th1, #-3	; set timer1 for 9600
	setb	tr1		; start timer1
	ret

print:				; output character in acc
	jnb	ti,print	; wait until tranmitter is availiable
	clr	ti		; clear transmitter ready flag
	mov	sbuf,a		; send character
	ret

read:				; input character in acc routine
	jnb	ri,read		; wait until receiver contains character
	clr	ri		; clear receiver flag
	mov	a,sbuf		; get character
	ret
START:  AJMP START
        end