$include(cf040.inc)


;external 25MHz krystal, 57600Bd	
;vysielanie cez seriovy port UART1



	
		org	0h


		mov   	WDTCN, #0deh	;disable
		mov     WDTCN, #0ADh	;watchdog
		
		mov	sfrpage,#00h
		mov	rstsrc,#04h
		mov	tmod,#20h	;8-bit,auto reload
		mov	th1,#27h	;reload value (table22.2, page 284 datasheet)
		mov	ckcon,#10h	;system clock

		mov	sfrpage,#01h
		mov	scon1,#10h	;mode 0
		
		mov	sfrpage,#0fh
		mov	oscxcn,#0e7h
		mov	clksel,#01h
		mov	xbr0,#0h
		mov	xbr1,#0h
		mov	xbr2,#42h	;crossbare enable, uart1 enable, weak pullup enable

		mov	p1mdout,#00h	;???
		mov	p0mdout,#00h	;???

		mov	sfrpage,#00h
		setb	tr1		;start timer1

		mov	sfrpage,#01h

		
start:		call	delay
		
		clr	ti1
		mov	a,#35h
		mov	sbuf1,a        ;this writing not working
		jnb	ti1,$
		clr	ti1		
		jmp	start

delay:		
		mov	r6,#0
s2:		call	ms
		call	ms
		call	ms
		call	ms
		call	ms
		call	ms
		call	ms		
		djnz	r6,s2
		ret	
	
ms:		
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		mov	r7,#00H
		djnz	r7,$
		ret

		end