;-----------------------------------------------
				cseg at 0000h
				jmp Start
;-----------------------------------------------
Text			segment code
				rseg Text
;-----------------------------------------------
Tabulka:		db	'Diversant Software',10,13
;-----------------------------------------------
Program			segment code
				rseg Program
;-----------------------------------------------
Start:			clr a
				mov r0,#7fh
Mazem:			mov @r0,a
				djnz r0,Mazem
Init:			mov a,#0fbh		;Pri 18.432MHz to je 19200bps
				mov th1,a		;Casovac pre prenosovu rychlost !!!
				mov tl1,a		;Casovac pre prenosovu rychlost !!!
				mov tmod,#20h	;Rezim 8 bit casovaca
				setb tr1		;Spustim casovac T1
				mov scon,#50h	;Mode 1 pre seriovu linku !
				orl pcon,#80h	;Nastavim 2x prenos. rychlost
Odosielaj:		mov dptr,#Tabulka ;DPTR ukazuje na moj Text
Pokracuj:		clr a
				movc a,@a+dptr	;Nacitam prvy znak z Tabulky
				mov sbuf,a		;Posielam na seriovu linku ...
				jnb TI,$		;Ak TI=1 znak je odoslany !!!
				clr TI			;Zmazem TI pre dalsie vysielanie ...
				inc dptr		;Posuniem sa o 1 znak v Tabulke
				cjne a,#13,Pokracuj	;Je koniec textu ?
				jmp Odosielaj
				end
	
				