list	P=PIC12F675
		include  "P12F675.INC"

	__CONFIG _CPD_OFF & _CP_OFF & _BODEN_OFF & _MCLRE_OFF & _PWRTE_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT

; Ki 0 = analog bemenet/LCDin0
; Ki 1 = analog bemenet/LCDin1
; Ki 2 = analog bemenet/LCDin2
; Ki 4 = E
; Be tasterok
; Ki 5 = LCDin3
 
  
        CBLOCK 0x20 

	ES1B;	0x20	;E=ELSÖ, S=SOR, 1B= ELSÖ BETÜ
	ES2B;	0x21
	ES3B;	0x22
	ES4B;	0x23
	ES5B;	0x24
	ES6B;	0x25
	ES7B;	0x26
	ES8B;	0x27
	ES9B;	0x28
	ES10B;	0x29
	ES11B;	0x2A
	ES12B;	0x2B
	ES13B;	0x2C
	ES14B;	0x2D
	ES15B;	0x2E
	ES16B;	0x2F
	;	0x30
	MS1B;	0x30	;M=MÁSODIK, S=SOR, 1B= ELSÖ BETÜ
	MS2B;	0x31
	MS3B;	0x32
	MS4B;	0x33
	MS5B;	0x34
	MS6B;	0x35
	MS7B;	0x36
	MS8B;	0x37
	MS9B;	0x38
	MS10B;	0x39
	MS11B;	0x3A
	MS12B;	0x3B
	MS13B;	0x3C
	MS14B;	0x3D
	MS15B;	0x3E
	MS16B;	0x3F
	ES2BA;	IDEIGLENES KARAKTEREK
	ES3BA;	
	ES5BA;
	MS11BH	
	MS12BH
	MS14BH
	MS15BH


		BETUMOD			;ÉPPEN FELDOLGOZANDO KARAKTER REG. FELDARABOLVA
   		ADC_lo
    	ADC_hi
		TIZES
		LOVALT
		KVILL		;KARAKTER TÁROLÁS VILLOGÁS IDEJÉRE
        TU1 
        TU2 
		TU3
		TU4
        T1 
        T2 
		T3
		T4
		T4PLUS
		T5
		ONOFF			;KI BE KAPCSOLÁS VÁLTOZO		
		KIMENET			;HA A KIMENET AKTIV

        ENDC 



    BCF		STATUS,RP0	 ;Bank 0
    CLRF   	GPIO			 ;Init GPIO
    MOVLW   b'00000111'	 ;Set GP<2:0> to
    MOVWF   CMCON		 ;digital IO - Komparátor kikapcsolása
    BSF   	STATUS,RP0	 ;Bank 1
    CLRF   	ANSEL		 ;Digital I/O - Összes láb dihitális módra állítása
    banksel TRISIO
    MOVLW   b'00001000'	 ;Set GP<3:2> as inputs
    MOVWF   TRISIO		 ;and set GP<5:4,1:0> as outputs
    BCF   	STATUS,RP0	 ;Bank 0


;---- KEZDETI LCD BEÁLLITÁSOK -------

		BCF		KIMENET,0
		BSF		GPIO,5
		CALL	SZUNET
		CALL	SZUNET
		CALL	SZUNET



		BCF		GPIO,0	
		BCF		GPIO,1
		BCF		GPIO,2	
		BCF		GPIO,4
		MOVLW	d'5'
		MOVWF	T5

START
    	MOVLW   b'00100010'	 ;LCD 4 BITES BODRA VÁLTÁS 4
		MOVWF   BETUMOD
		CALL	KOZBEN

		MOVLW   B'00101000'	 ;LCD 4 BITES BODRA VÁLTÁS 5
		CALL	LCDCONF

    	MOVLW   b'00001100'	 ;LCD  
		CALL	LCDCONF

		CALL 	IMPULS
 		MOVLW   B'00000001'		; TÖRLÉS
		CALL	LCDCONF

		CALL 	IMPULS
 		MOVLW   B'10000000'		; 
		CALL	LCDCONF
		CALL 	SZUNET
		
		CALL	KEZSZ


;----------------------------
;---- PROGRAM GERINC -------
;----------------------------

GERINC 

		MOVLW   b'10000000'	 	;LCD KEZDÖ KAR.
		CALL	LCDCONF

		CALL	ANALVOLT
  		MOVFW   ES2BA			;FESZ. ÉRTÉKEK BEIRÁSA
  		MOVWF   ES2B
  		MOVFW   ES3BA
  		MOVWF   ES3B
  		MOVFW   ES5BA
  		MOVWF   ES5B

;-----------------------------
		CALL	SZUNET
		MOVLW   b'10000000'	 	;LCD KEZDÖ KAR.
		CALL	LCDCONF
		CALL	ANALAMP
  		MOVFW   ES2BA			;FESZ. ÉRTÉKEK BEIRÁSA
  		MOVWF   ES11B
  		MOVFW   ES3BA
  		MOVWF   ES13B
  		MOVFW   ES5BA
  		MOVWF   ES14B

		CALL	KIRAK			;BEÁLLITOTT ÉRTÉKEK KIIRÁSA

;---------- GOMBOK ------------------








		GOTO	GERINC

;----- GERINC VÉGE ------------
;

		RETURN
;---  BÁJTOK KÓDOLÁSA LCD-NEK   ---

LCDCONF							;KARAKTER MEGADÁS
		MOVWF	BETUMOD
		BTFSC	BETUMOD,4
		BSF		GPIO,0
		BTFSC	BETUMOD,5
		BSF		GPIO,1
		BTFSC	BETUMOD,6
		BSF		GPIO,2
		BTFSC	BETUMOD,7
		BSF		GPIO,4
		CALL	LCDBE

KOZBEN	BTFSC	BETUMOD,0
		BSF		GPIO,0
		BTFSC	BETUMOD,1
		BSF		GPIO,1
		BTFSC	BETUMOD,2
		BSF		GPIO,2
		BTFSC	BETUMOD,3
		BSF		GPIO,4			;BEIRÁS ENGEDÉLYEZ
		CALL	LCDBE
		RETURN

;------ BETÜ KIIRÁS --------

KIIRAS;	MOVWF   BETU			;KARAKTER MEGADÁS
		MOVWF	BETUMOD
		BTFSC	BETUMOD,4
		BSF		GPIO,0
		BTFSC	BETUMOD,5
		BSF		GPIO,1
		BTFSC	BETUMOD,6
		BSF		GPIO,2
		BTFSC	BETUMOD,7
		BSF		GPIO,4
		CALL	KIRAS

		BTFSC	BETUMOD,0
		BSF		GPIO,0
		BTFSC	BETUMOD,1
		BSF		GPIO,1
		BTFSC	BETUMOD,2
		BSF		GPIO,2
		BTFSC	BETUMOD,3
		BSF		GPIO,4		;BEIRÁS ENGEDÉLYEZ
		CALL	KIRAS

		RETURN


KIRAS	BCF		GPIO,5
		CALL 	BETIMP
		BTFSC	KIMENET,0
		CALL	KIID
		BSF		GPIO,5
		MOVLW    d'1' 
		MOVWF   T3
		CALL 	DELC
		BCF		GPIO,0	
		BCF		GPIO,1
		BCF		GPIO,2	
		BCF		GPIO,4
		RETURN 	

KIID	MOVLW    d'1' 
		MOVWF   T3
		CALL 	DELC
		RETURN

;----- BETÜ ADATAINAK KITOLÁSA AZ IC-RE ----------------

LCDBE	BCF		GPIO,5
		CALL IMPULS
		BSF		GPIO,5
		MOVLW    d'1' 
		MOVWF   T3
		CALL 	DELC
		BCF		GPIO,0	
		BCF		GPIO,1
		BCF		GPIO,2	
		BCF		GPIO,4
VISZ	RETURN 

;----- FORGÁS KÖZÖTTI IDÖ ------

SZUNET	MOVLW    d'20' 
        MOVWF   T3
DELC	MOVLW    d'50' 
        MOVWF   T1
DEL1C   MOVLW    d'10' 
        MOVWF   T2 
DEL2C	NOP
		NOP

		DECFSZ  T2,f 
        GOTO    DEL2C
        DECFSZ  T1,f 
        GOTO    DEL1C
        DECFSZ  T3,f 
        GOTO    DELC 
		RETURN
;--------------------------------------------

IMPULS	MOVLW    d'40' 
        MOVWF   T3
VISSZ   DECFSZ  T3,f 
        GOTO    VISSZ
		RETURN
;----------------------------------


BETIMP	MOVLW    d'250' 
        MOVWF   T3
VISA    DECFSZ  T3,f 
        GOTO    VISA
		RETURN


;------- ANALOG RÉSZ ----------
; ----- ADC OLVASÁS

ANALOG	;CALL	IMPULS
     	BANKSEL ADCON0
     	BSF     ADCON0,1    	;CONVERZIO INDITÁS
 		CALL	IMPULS

WaitADC:
    	BTFSS   PIR1,ADIF
     	GOTO    WaitADC         ;VÁR AZ ADC BEFELYEZÉSRE
GetADC1:
		CALL	IMPULS
    	BANKSEL ADRESH
     	MOVF    ADRESH, W    	;MAGAS BYTE OLVAS 2 BIT
     	MOVWF   ADC_hi
     	BANKSEL ADRESL
     	MOVF    ADRESL, W    	;ALACSONY BYTE OLVAS 8 BIT
     	MOVWF   ADC_lo
		CALL	IMPULS
     	BANKSEL PIR1
     	BCF     PIR1,ADIF    	;CONVERZIO TÖRLÉS
   		CLRF  	ANSEL		 	;Digital I/O - Összes láb dihitális módra állítása
    	CLRF    ADCON0
     	CLRF    ADRESH
     	CLRF    ADRESL
 		BSF   	STATUS,RP0	 ;Bank 1
    	MOVLW   b'00001000'	 	;KIMENET BEÁLLITÁS
    	MOVWF   TRISIO	
    	BCF   	STATUS,RP0	 ;Bank 1
	;	CALL	IMPULS
     	RETURN

;---------  VOLT TIZES ANALIZÁLÁS ÉS VÁLOZÓ BEÍRÁSA ----------
ANALAMP
	;	BCF		GPIO,1
	;	BCF		GPIO,0
 		BSF   	STATUS,RP0	 ;Bank 1
    	MOVLW   b'00001011'	 ;Set GP<3:2> as inputs
    	MOVWF   TRISIO		 ;and set GP<5:4,1:0> as outputs
     	BCF   	STATUS,RP0	 ;Bank 1
		MOVLW   b'00000010'     ;ADC AN1 BEMENET
     	MOVWF   ANSEL	
		MOVLW   b'10000101'     ;ADC AN1 BEMENET
     	MOVWF   ADCON0	
		CALL	IMPULS			
		CALL	ANALOG
		GOTO	ANALIZ
ANALVOLT
	;	BCF		GPIO,0
	;	BCF		GPIO,1
 		BSF   	STATUS,RP0	 ;Bank 1
    	MOVLW   b'00001011'	 ;
    	MOVWF   TRISIO		 ;
     	BCF   	STATUS,RP0	 ;Bank 0
		MOVLW   b'00000001'     ;ADC AN1 BEMENET
     	MOVWF   ANSEL
		MOVLW   b'10000001'     ;ADC AN0 BEMENET
     	MOVWF   ADCON0	
		CALL	IMPULS					;
		CALL	ANALOG

;-------------------------
; -----  SZÁMOLÁS ---------


ANALIZ 	MOVLW   b'00110000'		;nullázás
   		MOVWF   ES2BA			;
		MOVFW	ADC_hi			;ANALOG BEMENET HI BEIRÁS
		ADDWF	ES2BA,1			;
;---- EGYES  ANLIZÁLÁS-----

		MOVFW	ADC_lo			;ANALOG BEMENET LO BEIRÁS
   		MOVWF   LOVALT
		MOVLW   d'26' 
        MOVWF   T3	
VISSZA	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA			;HA NEM NULLA
		MOVLW	b'00110000'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZA

		MOVLW   d'26' 
        MOVWF   T3	
VISSZ7	DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA7			;HA NEM NULLA
		NOP
		MOVLW	b'00110001'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA7	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ7
		MOVLW   d'25' 
        MOVWF   T3	
VISSZ6	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA6			;HA NEM NULLA
		MOVLW	b'00110010'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA6	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ6
		MOVLW   d'26' 
        MOVWF   T3	
VISSZ5	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA5			;HA NEM NULLA
		MOVLW	b'00110011'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA5	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ5
		MOVLW   d'25' 
        MOVWF   T3	
VISSZ4	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA4			;HA NEM NULLA
		MOVLW	b'00110100'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA4	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ4

		MOVLW   d'26' 
        MOVWF   T3	
VISSZ3	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA3			;HA NEM NULLA
		MOVLW	b'00110101'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA3	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ3
;---------------
		MOVLW   d'25' 
        MOVWF   T3	
VISSZ2	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA2			;HA NEM NULLA
		MOVLW	b'00110110'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA2	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ2
;-----------------
		MOVLW   d'26' 
        MOVWF   T3	
VISSZ1	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA1			;HA NEM NULLA
		MOVLW	b'00110111'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA1	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ1
;-----------------
		MOVLW   d'25' 
        MOVWF   T3	
VISSZ0	
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVA0			;HA NEM NULLA
		MOVLW	b'00111000'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVA0	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZ0
;-----------------
		MOVLW   d'25' 
        MOVWF   T3	
VISSZB
		DECFSZ	LOVALT,f		;KIVONÁS
		GOTO	TOVAB			;HA NEM NULLA
		MOVLW	b'00111001'		;HA NULLA
   		MOVWF	ES3BA			;EGYES KÜLDÉSE VÁLTOZÓBA
		GOTO	TIZED
TOVAB	DECFSZ	T3,f			;VISSZASZÁMOLÁS
		GOTO	VISSZB
		RETURN		
;--------- TIZED---------------------
	
TIZED	
		DECFSZ	T3,f
		GOTO	TIZ01
		GOTO	TIZ0
		NOP
TIZ01	DECFSZ	T3,f
		GOTO	TIZE1 
TIZ0	MOVLW	b'00111001'		;HA KILENC
   		MOVWF	ES5BA
		RETURN
TIZE1	
		DECFSZ	T3,f
		GOTO	TIZE21
		GOTO	TIZ1
TIZE21	DECFSZ	T3,f
		GOTO	TIZE22
		GOTO	TIZ1
TIZE22	DECFSZ	T3,f
		GOTO	TIZE2
TIZ1	MOVLW	b'00111000'		;HA NYOLC
   		MOVWF	ES5BA
		RETURN
TIZE2		
		DECFSZ	T3,f
		GOTO	TIZE31
		GOTO	TIZ2
TIZE31	DECFSZ	T3,f
		GOTO	TIZE3
TIZ2	MOVLW	b'00110111'		;HA HÉT
   		MOVWF	ES5BA
		RETURN
TIZE3	
		DECFSZ	T3,f
		GOTO	TIZE41
		GOTO	TIZ3
TIZE41	DECFSZ	T3,f
		GOTO	TIZE42
		GOTO	TIZ3
TIZE42	DECFSZ	T3,f
		GOTO	TIZE4
TIZ3	MOVLW	b'00110110'		;HA HAT
   		MOVWF	ES5BA
		RETURN
TIZE4		
		DECFSZ	T3,f
		GOTO	TIZE51
		GOTO	TIZ4
TIZE51	DECFSZ	T3,f
		GOTO	TIZE5
TIZ4	MOVLW	b'00110101'		;HA ÖT
   		MOVWF	ES5BA
		RETURN
TIZE5
		DECFSZ	T3,f
		GOTO	TIZE61
		GOTO	TIZ5
TIZE61	DECFSZ	T3,f
		GOTO	TIZE62
		GOTO	TIZ5
TIZE62	DECFSZ	T3,f
		GOTO	TIZE6
TIZ5	MOVLW	b'00110100'		;HA NÉGY
   		MOVWF	ES5BA
		RETURN
TIZE6		
		DECFSZ	T3,f
		GOTO	TIZE71
		GOTO	TIZ6
TIZE71	DECFSZ	T3,f
		GOTO	TIZE7
TIZ6	MOVLW	b'00110011'		;HA HÁROM
   		MOVWF	ES5BA
		RETURN

TIZE7
		DECFSZ	T3,f
		GOTO	TIZE81
		GOTO	TIZ5
TIZE81	DECFSZ	T3,f
		GOTO	TIZE82
		GOTO	TIZ8
TIZE82	DECFSZ	T3,f
		GOTO	TIZE8
TIZ8	MOVLW	b'00110010'		;HA KETTÖ
   		MOVWF	ES5BA
		RETURN
TIZE8		
		DECFSZ	T3,f
		GOTO	TIZE91
		GOTO	TIZ6
TIZE91	DECFSZ	T3,f
		GOTO	TIZE9
TIZ9	MOVLW	b'00110001'		;HA EGY 
   		MOVWF	ES5BA
		RETURN

TIZE9
		DECFSZ	T3,f
		GOTO	TIZE01
		GOTO	TIZ09
TIZE01	DECFSZ	T3,f
		GOTO	TIZE02
		GOTO	TIZ09
TIZE02	DECFSZ	T3,f
		GOTO	TIZE0
TIZ09	MOVLW	b'00110000'		;HA NULLA
   		MOVWF	ES5BA
		RETURN

;----------
TIZE0	CALL	KIRAK
		RETURN


;-------- KEZDÖ SZÖVEG ---------
  KEZSZ	MOVLW   b'01000010'	 ;B
   		MOVWF   ES1B	
    	MOVLW   b'01001111'	 ;o
   		MOVWF   ES2B
    	MOVLW   b'01001111'	 ;o
   		MOVWF   ES3B
    	MOVLW   b'01010100'	; T
   		MOVWF   ES4B
    	MOVLW   b'00111010'	 ;:
   		MOVWF   ES5B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES6B
    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES7B
		MOVLW   b'00100000'	 ;_
   		MOVWF   ES8B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES9B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES10B	
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES11B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES12B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES13B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES14B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES15B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES16B

    	MOVLW   b'01000010'	 ;B
   		MOVWF   MS1B	
    	MOVLW   b'01001111'	 ;o
   		MOVWF   MS2B
    	MOVLW   b'01001111'	 ;o
   		MOVWF   MS3B
    	MOVLW   b'01010100'	; T
   		MOVWF   MS4B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS5B
    	MOVLW   b'01010110'	 ;V
   		MOVWF   MS6B
    	MOVLW   b'01000101'	; E
   		MOVWF   MS7B
    	MOVLW   b'01010010'	; R
   		MOVWF   MS8B
    	MOVLW   b'01010011'	 ;S
   		MOVWF   MS9B
    	MOVLW   b'01001001'	 ;I
   		MOVWF   MS10B	
    	MOVLW   b'01001111'	 ;o
   		MOVWF   MS11B
    	MOVLW   b'01001110'	; N
   		MOVWF   MS12B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS13B
    	MOVLW   b'00110010'	; 2
   		MOVWF   MS14B
    	MOVLW   b'00101110'	 ;.
   		MOVWF   MS15B
    	MOVLW   b'00110001'	; 1
   		MOVWF   MS16B
 		MOVLW   b'10000000'	 	;LCD KEZDÖ KAR.
		CALL	LCDCONF
		CALL	KIRAK
	;	CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES8B
		CALL	KIRAK
		CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES9B
		CALL	KIRAK
	;	CALL	SZUNET
	;	CALL	SZUNET


    	MOVLW   b'01001001'	 ;I
   		MOVWF   MS1B	
    	MOVLW   b'01010010'	; R
   		MOVWF   MS2B
    	MOVLW   b'01010100'	; T
   		MOVWF   MS3B
    	MOVLW   b'01000001'	 ;A
   		MOVWF   MS4B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS5B
    	MOVLW   b'01001100'	; L
   		MOVWF   MS6B
    	MOVLW   b'01000001'	 ;A
   		MOVWF   MS7B
    	MOVLW   b'01000011'	; C
   		MOVWF   MS8B
    	MOVLW   b'01011010'	 ;Z
   		MOVWF   MS9B
    	MOVLW   b'01001111'	 ;o
   		MOVWF   MS10B	
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS11B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS12B
    	MOVLW   b'00110010'	 ;2
   		MOVWF   MS13B
    	MOVLW   b'00110000'	; 0
   		MOVWF   MS14B
    	MOVLW   b'00110001'	; 1
   		MOVWF   MS15B
    	MOVLW   b'00110011'	; 3
   		MOVWF   MS16B

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES10B
		CALL	KIRAK
;		CALL	SZUNET
	;	CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES11B
		CALL	KIRAK
;		CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES12B
		CALL	KIRAK
		CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES13B
		CALL	KIRAK
;		CALL	SZUNET
;		CALL	SZUNET


    	MOVLW   b'01001001'	 ;I
   		MOVWF   MS1B	
    	MOVLW   b'01010000'	; P
   		MOVWF   MS2B
    	MOVLW   b'00111010'	 ;:
   		MOVWF   MS3B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS4B
    	MOVLW   b'00110001'	; 1
   		MOVWF   MS5B
    	MOVLW   b'00111001'	; 9
   		MOVWF   MS6B
    	MOVLW   b'00110010'	 ;2
   		MOVWF   MS7B
    	MOVLW   b'00101110'	 ;.
   		MOVWF   MS8B
    	MOVLW   b'00110001'	; 1
   		MOVWF   MS9B
    	MOVLW   b'00110110'	; 6
   		MOVWF   MS10B	
    	MOVLW   b'00111000'	; 8
   		MOVWF   MS11B
    	MOVLW   b'00101110'	 ;.
   		MOVWF   MS12B
    	MOVLW   b'00110000'	; 0
   		MOVWF   MS13B
    	MOVLW   b'00101110'	 ;.
   		MOVWF   MS14B
    	MOVLW   b'00110001'	; 1
   		MOVWF   MS15B
    	MOVLW   b'00110011'	; 3
   		MOVWF   MS16B

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES14B
		CALL	KIRAK
		CALL	SZUNET
	;	CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES15B
		CALL	KIRAK
		CALL	SZUNET

    	MOVLW   b'00101110'	 ;.
   		MOVWF   ES16B
		CALL	KIRAK
		CALL	SZUNET
		CALL	SZUNET


;-------- KEZDÖ KIIRÁS BETÁPLÁLÁSA -------

    	MOVLW   b'01111110'	 ;nyil
   		MOVWF   ES1B	
    	MOVLW   b'00110000'	 ;0
   		MOVWF   ES2B
    	MOVLW   b'00110000'	 ;0
   		MOVWF   ES3B
    	MOVLW   b'00101100'	 ;,
   		MOVWF   ES4B
    	MOVLW   b'00110000'	 ;0
   		MOVWF   ES5B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES6B
    	MOVLW   b'01010110'	 ;V
   		MOVWF   ES7B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES8B
    	MOVLW   b'01111110'	 ;nyil
   		MOVWF   ES9B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES10B	
    	MOVLW   b'00110000'	 ;0
   		MOVWF   ES11B
    	MOVLW   b'00101100'	 ;,
   		MOVWF   ES12B
    	MOVLW   b'00110000'	 ;0
   		MOVWF   ES13B
    	MOVLW   b'00110000'	 ;0
   		MOVWF   ES14B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   ES15B
    	MOVLW   b'01000001'	 ;A
   		MOVWF   ES16B

    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS1B	
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS2B
    	MOVLW   b'01010110'	 ;V
   		MOVWF   MS3B
    	MOVLW   b'01001111'	 ;o
   		MOVWF   MS4B
    	MOVLW   b'01001100'	; L
   		MOVWF   MS5B
    	MOVLW   b'01010100'	; T
   		MOVWF   MS6B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS7B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS8B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS9B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS10B	
    	MOVLW   b'01000001'	 ;A
   		MOVWF   MS11B
    	MOVLW   b'01001101'	; M
   		MOVWF   MS12B
    	MOVLW   b'01010000'	; P
   		MOVWF   MS13B
    	MOVLW   b'01000101'	; E
   		MOVWF   MS14B
    	MOVLW   b'01010010'	;R
   		MOVWF   MS15B
    	MOVLW   b'00100000'	 ;_
   		MOVWF   MS16B

		GOTO	GERINC
;---- SZÖVEG KIIRÁS----

KIRAK 	MOVLW   b'10000000'	 	;LCD KEZDÖ KAR.
		CALL	LCDCONF	
		CALL	SZUNET
		MOVFW	ES1B
		CALL	KIIRAS
		MOVFW	ES2B
		CALL	KIIRAS
		MOVFW	ES3B
		CALL	KIIRAS
		MOVFW	ES4B
		CALL	KIIRAS
		MOVFW	ES5B
		CALL	KIIRAS
		MOVFW	ES6B
		CALL	KIIRAS
		MOVFW	ES7B
		CALL	KIIRAS
		MOVFW	ES8B
		CALL	KIIRAS
		MOVFW	ES9B
		CALL	KIIRAS
		MOVFW	ES10B
		CALL	KIIRAS
		MOVFW	ES11B
		CALL	KIIRAS
		MOVFW	ES12B
		CALL	KIIRAS
		MOVFW	ES13B
		CALL	KIIRAS
		MOVFW	ES14B
		CALL	KIIRAS
		MOVFW	ES15B
		CALL	KIIRAS
		MOVFW	ES16B
		CALL	KIIRAS
		CALL	SZUNET
 		MOVLW   b'11000000'	 	;LCD KEZDÖ KAR. KÉT SOROS 
		CALL	LCDCONF

		MOVFW	MS1B
		CALL	KIIRAS
		MOVFW	MS2B
		CALL	KIIRAS
		MOVFW	MS3B
		CALL	KIIRAS
		MOVFW	MS4B
		CALL	KIIRAS
		MOVFW	MS5B
		CALL	KIIRAS
		MOVFW	MS6B
		CALL	KIIRAS
		MOVFW	MS7B
		CALL	KIIRAS
		MOVFW	MS8B
		CALL	KIIRAS
		MOVFW	MS9B
		CALL	KIIRAS
		MOVFW	MS10B
		CALL	KIIRAS
		MOVFW	MS11B
		CALL	KIIRAS
		MOVFW	MS12B
		CALL	KIIRAS
		MOVFW	MS13B
		CALL	KIIRAS
		MOVFW	MS14B
		CALL	KIIRAS
		MOVFW	MS15B
		CALL	KIIRAS
		MOVFW	MS16B
		CALL	KIIRAS

		RETURN


		RETURN
END