;
;	Example.lib - for use with BAS051
;		copyright (c) 1989 W. Washington
;
;

basint:				; initialization code
;
; place any additional initization code here
;
	mov	scon, #h'52	; initialize timer for baud rate
	mov	tmod, #h'20
	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