LIST P=16F877, r=dec
    	#include <P16F877.INC>
		__config 16250
		
; DB4-DB7=PORTB,4 - PORTTB,7





		cblock	0x0020
		p1
		p2
		p3
		endc

lcd_data	equ		PORTB

#define	en		PORTD,7
#define	rs		PORTD,6		

    	ORG 	0x0000
		goto	Start
		org		0x0010

	
Start    
    BSF   	STATUS, RP0      ;bank 1
    CLRF  	TRISB
	clrf	TRISD            ;make all portB pins output
    BCF   	STATUS, RP0
	bSf		PORTD,5
	bsf		en
	bcf		rs
Ini
	call	Zpozdi_48ms
	movlw	b'00100000'
	movwf	lcd_data
	bcf		en
	bsf		en
;*********************************
	call	Zpozdi_640us
	movlw	b'00100000'
	movwf	lcd_data
	bcf		en
	bsf		en
	movlw	b'10000000'
	movwf	lcd_data
	bcf		en
	bsf		en
;**********************************
	call	Zpozdi_640us
	movlw	b'00000000'
	movwf	lcd_data
	bcf		en
	bsf		en
	movlw	b'11000000'
	bcf		en
	bsf		en
;**********************************
	call	Zpozdi_640us
	movlw	b'00000000'
	movwf	lcd_data
	bcf		en
	bsf		en
	movlw	b'00010000'
	bcf		en
	bsf		en
;********************************
	call	Zpozdi_1ms
	movlw	b'00000000'
	movwf	lcd_data
	bcf		en
	bsf		en
	movlw	b'01100000'
	movwf	lcd_data
	bcf		en
	bsf		en



;Prepni se na prvni radek
	call	Zpozdi_1ms
	bcf		rs
	movlw	b'10000000'
	movwf	lcd_data
	bcf		en
	bsf		en
	movlw	b'00010000'
	movwf	lcd_data
	bcf		en
	bsf		en


;Zapis A
	call	Zpozdi_1ms
	bsf		rs
	movlw	b'01000000'
	movwf	lcd_data
	bcf		en
	bsf		en
	movlw	b'01100000'
	movwf	lcd_data
	bcf		en
	bsf		en
	

Cykl
	goto	Cykl
	

Zpozdi_48ms
	movlw	89
	movwf	p1
	movwf	p2
	movwf	p3
	goto	Zpozdi 
Zpozdi_640us
	movlw	10
	movwf	p1
	movwf	p2
	movwf	p3
	goto	Zpozdi   
Zpozdi_1ms
	movlw	15
	movwf	p1
	movwf	p2
	movwf	p3   
	goto	Zpozdi

Zpozdi
	decf	p1	
	btfsc	STATUS,Z
	goto	Zpozdi2
	goto	Zpozdi

Zpozdi2
	movf	p3,0
	movwf	p1
	decf	p2
	btfsc	STATUS,Z
	return
	goto	Zpozdi 

END