; (c) tkraj 2004
; echovanie znakov po seriovej linke
; krystal mikropocitaca 11.0592 MHz
; rychlost 4800 bps

$mod51
	org 	100h

	mov	TMOD, #20H		; Timer1 rezim2
	mov	SCON, #01010010B	; 8-bit UART, REN, TI
	mov	TH1, #244		; delicka 12 pre 2400bps
	mov	TL1, #244
	orl	PCON, #10000000B	; dvojnasobna rychlost
	setb	TR1			; Timer1 start

	mov	a,#0dh
	call	write
	mov	a,#0ah
	call	write
	mov	a, #'E'     		; vypise E
        call	write
	mov	a, #'C'     		; vypise C
        call	write
 	mov	a, #'H'     		; vypise H
        call	write
  	mov	a, #'O'     		; vypise O
        call	write
	mov	a,#0dh			; CR
	call	write
	mov	a,#0ah			; LF
	call	write

wait:
	call	read
	call	write
	sjmp	wait

write:
	jnb	TI, write		; caka na pripravenost vysielaca
	clr	TI			; vynuluje TI
	mov	sbuf, a			; vyslanie znaku
        ret

read:
	jnb	RI, read		; caka na znak z klavesnice
	clr	RI			; vynuluje RI
	mov	a, sbuf			; nacitanie znaku
	ret

	end