LIST P=18F452
	INCLUDE "P18F452.INC"

;1 cycle= 100ns
;fosc/4=Tcy
;------------------
;Timer0
;fosc/4/Prescaler*(ciklusszám*(1vagy2vagy3)=
;20MHz/4/256*(ciklusszám*3)=
;0,1536 ms - 10 066 ms (10sec)
;AA00~1s
;FFF8~1ms
;Timer1
;fosc/4/Prescaler*(ciklusszám*(1vagy2vagy3)=
;20MHz/4/8*(ciklusszám*3)=

;-------------[ PROGRAM KEZDETE ]-----------------------------
	ORG	0X200		;EZ A KEZDŐCÍM A LETÖLTŐ MIATT
	BRA	START

	org 0x208	;high priority interrupt
	bra	highint
	

	org 0x218	;low priority interrupt
	bra lowint

#DEFINE	RS	PORTA,0	
#DEFINE	RW	PORTA,1	
#DEFINE	EN	PORTA,2	

START
;Beállítások---------------------
	clrf	PORTD
	clrf	TRISD

;Timer reg beállíása
	movlw	b'10000111';7.bit 1-b állítása lindíja a timert; az uolsó 3 bit az oszó,csak progiból írható
	movwf	T0CON

;INTCON beállítása
	movlw	b'00000000'
	movwf	INTCON 


	clrf	PORTA
	clrf	TRISA
	clrf	PORTC
	clrf	TRISC

;Program kezdete------------------
	;display beállítás kezdete--------
	call	varakozik	;30ms kell vaárni legalább mig táp eléri 4,5V

	bcf		RS			;funkcio set
	bcf		RW		 
	movlw	b'00110000'
	bsf		EN
	movwf	PORTC
	nop
	bcf		EN

	call	varakozik	;40us kell várni legalább

	bcf		RS			;display on
	bcf		RW		 
	movlw	b'00001100'
	bsf		EN
	movwf	PORTC
	nop
	bcf		EN

	call	varakozik	;40us kell várni

	bcf		RS			;display clear
	bcf		RW		 
	movlw	b'00000001'
	bsf		EN
	movwf	PORTC
	nop
	bcf		EN

	call	varakozik	;1,7ms kell

	bcf		RS			;entry mode set
	bcf		RW		 
	movlw	b'00000110'
	bsf		EN
	movwf	PORTC
	nop
	bcf		EN

	call	varakozik	;40us kell várni
	;display beállítás vége--------

;----display program írás kezdete
	bsf		RS		;'A' betu kirajzolasa
	bcf		RW
	movlw	41h
	bsf		EN		;enable
	movwf	PORTC
	nop
	bcf		EN
		

ide
	goto	ide


highint
RETFIE

lowint
RETFIE

varakozik

	movlw	00Fh
	movwf	TMR0H
	movlw	20h
	movwf	TMR0L
	movlw	b'10000111';7.bit indítja és állítja meg a timert.
	movwf	T0CON
ide2
	btfss	INTCON,TMR0IF
	goto	ide2
	bcf		INTCON,TMR0IF
	btg		PORTD,7		;csak hogy lássam hogy fut a progi
	nop					;lejárt az idő
RETFIE
	

RETURN

END