LIST P=16F877
 #INCLUDE "P16F877.INC"
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF
	CBLOCK	0x20			;A 0x20 egy szabad memória rész kezdő címe
	fsr_save
	pclath_save
	STATUS_SAVE
	ARAM_M
	ARAM_B
	uj
	temp	
	regi
	ALLAPOT
	KIJELZES
	STARTSTOP
	Cvar    
	TIMERERTEK
	KESLELTETES
	KESLELTETES2
	PWM_KITOLTES
	MERES
	Perc
	ENDC

cblock		0x70			; Közös memória terület - 16 byte
; Mentési tárolók
		WORK_SAVE					; W      regiszter mentési helye
	endc

CBLOCK	0x0800
	elso
	masodik
	ARAM_KI
	IDO
ENDC

	ORG	0

	GOTO	START

;**********************************************************************
;
;					INTERRUPT KEZDETE
;
;**********************************************************************


	ORG 4
        ; Elmentjük a  regisztereket
		movwf	WORK_SAVE			; W regiszter mentése a közös memória területre 
		swapf	WORK_SAVE,f		; Előkészület a visszaállításra, a swapf nem állít jelzőbitet
		swapf	STATUS,w		; STATUS másolása a W regiszterbe,
								; a bank kiválasztó bitek a STATUS regiszterből a W regiszterbe másolódnak
		banksel	STATUS_SAVE		; Bank átállítása a mentési tárolókhoz
		movwf	STATUS_SAVE		; A lemásolt STATUS érték mentése
		movf	PCLATH,w		; PCLATH kiolvasása
		movwf	pclath_save		; PCLATH mentése, csak akkor kell, ha a program nem csak a 0 page -t használja
		movf	FSR,w			; FSR kiolvasása
		movwf	fsr_save		; FSR mentése
		clrf	PCLATH			; Page0 beállítása a megszakítási rutinnak
		banksel	PORTA			; Bank átállítása Bank0
		bankisel	PORTA		; IRP=0

;	mentesek vege

       
		BCF  INTCON,T0IF  ;Töröljük az RBIF flag bitet (Jelezzük, kezeltük a megszakítást)


	MOVFW	IDO
	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	ALJ



		MOVFW	TIMERERTEK
		MOVWF	TMR0
		DECFSZ	Cvar
		GOTO	EndInt

		

		MOVFW	KESLELTETES
		MOVWF	Cvar
		DECFSZ	Perc
		GOTO	EndInt

	
		MOVFW	KESLELTETES2		;perc számláló normal esetben 60 nak kell lennie
		MOVWF	Perc
		DECFSZ	IDO
		GOTO	EndInt

	
		CALL	ALJ
		

EndInt
	BSF		ALLAPOT,0 	;JELEZZÜK HOGY VÁLTOZÁS TÖRTÉNT
        ; Visszatöltjük a Work és Status regisztereket
 		banksel	fsr_save		; Bank kiválasztása a mentési regiszterekhez
		movf	fsr_save,w		; FSR mentett értékének kiolvasása
		movwf	FSR				; FSR visszaállítása
		movf	pclath_save,w	; PCLATH mentett értékének kiolvasása
		movwf	PCLATH			; PCLATH visszaállítása
		swapf	STATUS_SAVE,w	; STATUS mentett értékének kiolvasása
		movwf	STATUS			; STATUS visszaállítása, visszaállítja a bank kiválasztást is
		swapf	WORK_SAVE,w		; W regiszter mentett értékének kiolvasása, a swapf nem rontja el a STATUS értékét
		
 
 RETFIE     ;Visszajövünk az interruptból




;**********************************************************************
;
;					INTERRUPT VÉGE
;
;**********************************************************************
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;**********************************************************************
;
;					INICIALIZÁLÁS
;
;**********************************************************************

START
	
	BSF		ALLAPOT,0
	BSF		ALLAPOT,1
	CLRF 	ARAM_B
	CLRF 	IDO
	CLRF 	KIJELZES
	BCF		PORTB,3
	BCF		PORTB,4

	BSF	STATUS,RP0			;BANK1-be átlépünk
	;PORTA Digitális I/O-vá tétel
	MOVLW	B'00000000'			
	MOVWF	ADCON1			;Mindegyik PORTA analog,REFERENCIA A VDD ÉS A VSS
	MOVLW	B'00111111'		;Betöltjük az akksiba a TRISA-ba irandót MINEN INPUT
	MOVWF	TRISA			;Beállítjuk a PORTA-t bemenetre (beírjuk a TRISA-ba)
	MOVLW	B'00000000'		;Betöltjük az akksiba a TRISD-be valót
	MOVWF	TRISD			;Beletöltjük (mind kimenet a nulla miatt)
	MOVLW	B'11100111'		;Betöltjük az akksiba a TRISB-be valót
	MOVWF	TRISB			;Beletöltjük ( kimenet a nulla miatt)
	MOVLW	B'01100000'		;Betöltjük az akksiba a TRISC-be valót
	MOVWF	TRISC			;Beletöltjük ( kimenet a nulla miatt)
	MOVLW	B'00000000'		;Betöltjük az akksiba a TRISD-be valót
	MOVWF	TRISE			;Beletöltjük (mind kimenet a nulla miatt


;PWM PERIODUSIDEÉNEK BEÁLLITÁSA

	MOVLW	D'63'		;PERIODUSIDŐ BEÁLLITÁSA
	MOVWF	PR2			;Beletöltjük 

;TIMER MEGSZAKITÁS BEÁLLITÁSA
 	MOVLW B'00000111'  ;Betöltjük az akksiba az OPTION_REG-be valót
    MOVWF OPTION_REG  ;Beletöltjük... Előosztó: 1:256
;GOMB MEGSZAKITÁS BEÁLLITÁSA

	BCF  	OPTION_REG,INTEDG	;LEFUTÓÉLRE INTERRUPTOL
	BCF		STATUS,RP0			;BANK0-ba visszalépünk

;PWM TIMER2 BEÁLLITÁSA
 	clrf	TMR2	;a Timer 2 számlálóregiszter nullázása
	bcf		T2CON,1	;a Timer 2 előosztás beállítása K=4-re
 	bsf		T2CON,0	;a Timer 2 előosztás beállítása K=4-re

;Timer0 késleltetései
	MOVLW	D'60'			;IDÖZITÖK ALAPRA ÁLLITÁSA
	MOVWF	TIMERERTEK
	MOVWF	TMR0
	MOVLW	D'20'
	MOVWF	KESLELTETES
	MOVWF	Cvar
	MOVLW	D'60'			; normál esetben 60 kell hogy itt legyen igy percenként léptet
	MOVWF	KESLELTETES2
	MOVWF	Perc

	
;Beállítjuk az RB0 interruptot
    BCF  	INTCON,INTE  		;Engedélyezzük az interruptot az INT0-ra
	BCF  	INTCON,INTF

;Beállítjuk a TIMER0 interruptot

        BCF  INTCON,T0IE   ;TILTJUK az interruptot a Timer0-ra
        BSF  INTCON,GIE   ;General Interrupt Enable bitet 1-re állítva bekapcsolunk mindent

		MOVFW	TIMERERTEK
		MOVWF	TMR0
		MOVFW	KESLELTETES
		MOVWF	Cvar


	CALL	ALJ


	MOVLW	D'10'			;Betöltjük az akksiba a TRISD-be valót
	MOVWF	ARAM_B			;Beletöltjük (mind kimenet a nulla miatt

	MOVLW	D'11'			;Betöltjük az akksiba a TRISD-be valót
	MOVWF	ARAM_M			;Beletöltjük (mind kimenet a nulla miatt

;**********************************************************************
;
;					INICIALIZÁLÁS VÉGE
;
;**********************************************************************
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;**********************************************************************
;
;					FŐPROGRAMM
;
;**********************************************************************



MAIN					
	  
;  A KIJELZÉS FOLYAMATOS
	
	CALL 	KIJELZORE_KIIRATAS


;	CALL	ANALOGMERES
	
;ENKODER FIGYELÉSE
	BTFSS	PORTB,0
;	CALL	encoder_olvasas
	BTFSS	PORTB,1
;	CALL	encoder_olvasas

;KIJELZÉSI MOD ÁLLITÁSA GOMB1 FIGYELÉSE

	BTFSS	PORTC,5
	CALL	KIJELZESI_MOD
	BTFSC	PORTC,5
	BCF		ALLAPOT,1

;FOLYAMAT INDITÁSA LEÁLLITÁSA GOMB2 FIGYELÉSE

	BTFSS	PORTC,6
	CALL	INDITAS
	BTFSC	PORTC,6
	BCF		ALLAPOT,2



;PWM KITÖLTÉS VÁLTOZTATÁSA
	BTFSC 	ALLAPOT,3
;	CALL	PWM_MOD

;ÉRTÉK KIIRÁSA

	BTFSC 	ALLAPOT,0
	CALL	ERTEK	
	
	BCF		ALLAPOT,0
	GOTO	MAIN		;Visszaugrunk a legelejére


;**********************************************************************
;
;					;PWM KITÖLTÉS VÁLTOZTATÁSA
;					
;**********************************************************************
PWM_MOD



	movf 	ARAM_B,w   		;W-be olvassuk a B regisztert
	subwf 	ARAM_M,w 		;  M-ból kivonjuk B-t
	btfsc 	STATUS,Z  		;a Z zérusjelző-bit vizsgálata
	goto 	PWM_MOD_VEGE  	;feladatra ugrik ha Z=1. Tehát ha A=B-vel
	btfsc 	STATUS,C 		; A C(arry) bit vizsgálata
	goto 	PWM_CSOKK 		; ugrik ha M>B

	MOVFW	CCPR1L
	XORLW	D'69'
	BTFSS	STATUS,Z
	INCF	CCPR1L
	GOTO	PWM_MOD_VEGE

PWM_CSOKK

	MOVFW	CCPR1L
	XORLW	D'0'
	BTFSS	STATUS,Z
	DECF	CCPR1L


PWM_MOD_VEGE
BCF		ALLAPOT,3
RETURN
;**********************************************************************
;
;					SZÁMOK KIIRÁSA A KIJELZÖRE
;					
;**********************************************************************

KIJELZORE_KIIRATAS

	MOVLW	0xFF			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	PORTD			;Akkumulátorból kiírjuk a PORTD-re
	BsF		PORTC,7			;második kijelzöaktiválása
	BANKSEL	masodik
	MOVF	masodik,w			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	BANKSEL	PORTD
	MOVWF	PORTD			;Akkumulátorból kiírjuk a PORTD-re
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
	MOVLW	0xFF			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	PORTD			;Akkumulátorból kiírjuk a PORTD-re
	BcF		PORTC,7
	BANKSEL	elso
	MOVF	elso,w			;Újra betöltjük a W-be az új adatot
	BANKSEL	PORTD
	MOVWF	PORTD			;stbstb.
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
	MOVLW	0xFF			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	PORTD			;Akkumulátorból kiírjuk a PORTD-re

RETURN



;**********************************************************************
;
;					KIJELZETT ÉRTÉKEK
;					
;**********************************************************************

ERTEK

	MOVFW	KIJELZES
	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	ENKODER_KIIRAS

	MOVFW	KIJELZES
	XORLW	D'1'
	BTFSC	STATUS,Z
	CALL	IDO_KIIRAS


	
	RETURN



;**********************************************************************
;
;					KIJELZŐ MODOK
;					'KIJELZES' REISZTER ÉRTÉKE
;					0=ÁRAM ÉRTÉK
;					1=IDÖ
;					
;**********************************************************************


KIJELZESI_MOD

	BTFSC	ALLAPOT,1
	GOTO	KIJELZESI_MOD_VEGE
	BSF		ALLAPOT,1
	INCF	KIJELZES	
	MOVFW	KIJELZES
	XORLW	D'2'
	BTFSC	STATUS,Z
	CLRF	KIJELZES
	BSF		ALLAPOT,0
KIJELZESI_MOD_VEGE
	RETURN					;Visszatér a DELAY szubrutinból
;

;**********************************************************************
;
;					INDITÁS, LEÁLLITÁS
;						STOP=0
;						START=1	
;					
;						STARTSTOP REGISZTER				
;**********************************************************************


INDITAS
	
	BTFSC	ALLAPOT,2
	GOTO	INDITAS_VEGE
	
	BSF		ALLAPOT,2
	INCF	STARTSTOP	
	MOVFW	STARTSTOP
	XORLW	D'2'
	BTFSC	STATUS,Z
	CLRF	STARTSTOP
	
	BSF		ALLAPOT,0
	
	MOVFW	STARTSTOP
	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	ALJ

	MOVFW	STARTSTOP
	XORLW	D'1'
	BTFSC	STATUS,Z
	CALL	INDUL
	

INDITAS_VEGE
	RETURN					;Visszatér a DELAY szubrutinból


ALJ	

	CLRF	CCPR1L			;PWM KITÖLTESI TENYEZÖ 0 RA ÁLLITÁSA
	BCF		T2CON,2			;a Timer 2 IGY A PWM GENERÁTOR LEÁLLITÁSA
	BCF  INTCON,T0IE   		;TILTJUK az interruptot a Timer0-ra
	movlw	B'00000000'	;
 	movwf	CCP1CON			;DC1B1 és DC1B0 érték NULLÁZÁSA, PWM LEÁLITÁSA
	BCF		PORTC,2			;TÖRÖLJÜK A PWM KIMENETET
	MOVLW	D'2'			;PIROS LED KIVILANTÁSA
	MOVWF	PORTE
	
	
RETURN




INDUL	

	MOVFW	IDO
	XORLW	D'0'			;0 IDÖZITÉS ESETÉN NEM INDITHATÓ
	BTFSC	STATUS,Z
	GOTO	INDUL_VEGE
	movlw	B'00001100'	;
 	movwf	CCP1CON			;DC1B1 és DC1B0 érték bevitele, PWM indítása
	BSF  	INTCON,T0IE   	;Engedélyezzük az interruptot a Timer0-ra
	MOVLW	D'4'			;ZÖLD LED VILÁGIT
	MOVWF	PORTE
	bsf		T2CON,2			;a Timer 2 indítása PWM INDITÁSA

INDUL_VEGE

RETURN



;**********************************************************************
;
;					ENKODER OLVASÁSA
;
;**********************************************************************

encoder_olvasas

	movfw 	PORTB  			;Port olvasás
	movwf 	uj            	;Porttartalom beírása új-ba
	movlw 	B'00000011'
	andwf 	uj,f
	movfw 	uj
	movfw 	regi
	xorwf 	uj,w
	btfsc 	STATUS,Z
	goto 	VEGE 

	BSF		ALLAPOT,0

	bcf 	regi,1
	clrc 
	rlf 	regi,f 
	movfw 	uj
	xorwf 	regi,f
	btfsc 	STATUS,Z
	goto 	CSOKKEN

	decf 	regi,f
	btfsc 	STATUS,Z
	goto 	CSOKKEN

NOL

	MOVFW	KIJELZES
	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	NOL_ENKODER

	MOVFW	KIJELZES
	XORLW	D'1'
	BTFSC	STATUS,Z
	CALL	NOL_IDO
	
	GOTO	IRAS


CSOKKEN

	MOVFW	KIJELZES
	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	CSOK_ENKODER

	MOVFW	KIJELZES
	XORLW	D'1'
	BTFSC	STATUS,Z
	CALL	CSOK_IDO

	

IRAS	
	movfw uj
	movwf regi


VEGE

	RETURN					;Visszatér a DELAY szubrutinból


NOL_ENKODER

	MOVFW	ARAM_B
	XORLW	D'0'
	BTFSS	STATUS,Z
	DECF	ARAM_B
RETURN					;Visszatér a DELAY szubrutinból

NOL_IDO

	BANKSEL	IDO
	MOVFW	IDO
	XORLW	D'0'
	BTFSS	STATUS,Z
	DECF	IDO
	BANKSEL	PORTD
RETURN					;Visszatér a DELAY szubrutinból

CSOK_ENKODER

	MOVFW	ARAM_B
	XORLW	D'105'
	BTFSS	STATUS,Z
	INCF	ARAM_B
RETURN					;Visszatér a DELAY szubrutinból

CSOK_IDO

	BANKSEL	IDO
	MOVFW	IDO
	XORLW	D'99'
	BTFSS	STATUS,Z
	INCF	IDO
	BANKSEL	PORTD
RETURN					;Visszatér a DELAY szubrutinból


;**********************************************************************
;
;					ANALOG BEMENT MÉRÉSE
;
;**********************************************************************

ANALOGMERES

	MOVLW	B'10000001'			
	MOVWF	ADCON0			;FOSC/32 KIVÁLASZTVA,RA0 VIZSGÁLATA,KONVERTER BEKAPCSOLVA
	MOVWF	WORK_SAVE		;ELMENTJÜK A WORKOT
	BSF		ADCON0,GO		;ELINDITJUK AZ A/D KONVERZIOT
	BTFSS	ADCON0,GO		;VIZSGÁLJUK HOGY ELKÉSZÜLT-E
	GOTO	$-1				;VÁRUNK AZ ELKÉSZÜLÉSIG
	MOVF	ADRESL,W		;EREDMÉNYT KIIRJUK A WORKBE
	ADDLW	D'1'			;HOZZÁADUNK 1-T
	MOVWF	ARAM_M			;EREDMÉNYT BETESSZÜK A MERES BE
	MOVF	WORK_SAVE,W		;VISSZATÖLTJÜK A LEMENTETT WORKOT
	BSF		ALLAPOT,0
	BSF		ALLAPOT,3
	RETURN					;Visszatér a DELAY szubrutinból



;**********************************************************************
;
;					ÁramÉRTÉK KIIRÁSA
;
;**********************************************************************

ENKODER_KIIRAS

	MOVFW	STARTSTOP
	XORLW	D'0'
	BTFSC	STATUS,Z
	goto	BEALITOTT_ARAM

	MOVFW	STARTSTOP
	XORLW	D'1'
	BTFSC	STATUS,Z
	GOTO	MERT_ARAM

BEALITOTT_ARAM

	BSF		PORTB,3
	BCF		PORTB,4

	movfw	ARAM_B
	BANKSEL	ARAM_KI
	movwf	ARAM_KI
	goto	A

MERT_ARAM

	BSF		PORTB,3
	BsF		PORTB,4

	movfw	ARAM_M
	BANKSEL	ARAM_KI
	movwf	ARAM_KI
	goto	A



A

pagesel		NULLAPONTNULLA

MOVFW	ARAM_KI

	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	NULLAPONTNULLA

MOVFW	ARAM_KI

	XORLW	D'1'
	BTFSC	STATUS,Z
	CALL	NULLAPONTEGY

MOVFW	ARAM_KI

	XORLW	D'2'
	BTFSC	STATUS,Z
	CALL	NULLAPONTKETTO

MOVFW	ARAM_KI

	XORLW	D'3'
	BTFSC	STATUS,Z
	CALL	NULLAPONTHAROM

MOVFW	ARAM_KI

	XORLW	D'4'
	BTFSC	STATUS,Z
	CALL	NULLAPONTNEGY

MOVFW	ARAM_KI

	XORLW	D'5'
	BTFSC	STATUS,Z
	CALL	NULLAPONTOT

MOVFW	ARAM_KI

	XORLW	D'6'
	BTFSC	STATUS,Z
	CALL	NULLAPONTHAT

MOVFW	ARAM_KI

	XORLW	D'7'
	BTFSC	STATUS,Z
	CALL	NULLAPONTHET

MOVFW	ARAM_KI

	XORLW	D'8'
	BTFSC	STATUS,Z
	CALL	NULLAPONTNYOLC

MOVFW	ARAM_KI

	XORLW	D'9'
	BTFSC	STATUS,Z
	CALL	NULLAPONTKILENC

MOVFW	ARAM_KI

	XORLW	D'10'
	BTFSC	STATUS,Z
	CALL	EGYPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'11'
	BTFSC	STATUS,Z
	CALL	EGYPONTEGY
MOVFW	ARAM_KI
	XORLW	D'12'
	BTFSC	STATUS,Z
	CALL	EGYPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'13'
	BTFSC	STATUS,Z
	CALL	EGYPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'14'
	BTFSC	STATUS,Z
	CALL	EGYPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'15'
	BTFSC	STATUS,Z
	CALL	EGYPONTOT
MOVFW	ARAM_KI
	XORLW	D'16'
	BTFSC	STATUS,Z
	CALL	EGYPONTHAT
MOVFW	ARAM_KI
	XORLW	D'17'
	BTFSC	STATUS,Z
	CALL	EGYPONTHET
MOVFW	ARAM_KI
	XORLW	D'18'
	BTFSC	STATUS,Z
	CALL	EGYPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'19'
	BTFSC	STATUS,Z
	CALL	EGYPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'20'
	BTFSC	STATUS,Z
	CALL	KETTOPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'21'
	BTFSC	STATUS,Z
	CALL	KETTOPONTEGY
MOVFW	ARAM_KI
	XORLW	D'22'
	BTFSC	STATUS,Z
	CALL	KETTOPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'23'
	BTFSC	STATUS,Z
	CALL	KETTOPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'24'
	BTFSC	STATUS,Z
	CALL	KETTOPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'25'
	BTFSC	STATUS,Z
	CALL	KETTOPONTOT
MOVFW	ARAM_KI
	XORLW	D'26'
	BTFSC	STATUS,Z
	CALL	KETTOPONTHAT
MOVFW	ARAM_KI
	XORLW	D'27'
	BTFSC	STATUS,Z
	CALL	KETTOPONTHET
MOVFW	ARAM_KI
	XORLW	D'28'
	BTFSC	STATUS,Z
	CALL	KETTOPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'29'
	BTFSC	STATUS,Z
	CALL	KETTOPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'30'
	BTFSC	STATUS,Z
	CALL	HAROMPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'31'
	BTFSC	STATUS,Z
	CALL	HAROMPONTEGY
MOVFW	ARAM_KI
	XORLW	D'32'
	BTFSC	STATUS,Z
	CALL	HAROMPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'33'
	BTFSC	STATUS,Z
	CALL	HAROMPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'34'
	BTFSC	STATUS,Z
	CALL	HAROMPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'35'
	BTFSC	STATUS,Z
	CALL	HAROMPONTOT
MOVFW	ARAM_KI
	XORLW	D'36'
	BTFSC	STATUS,Z
	CALL	HAROMPONTHAT
MOVFW	ARAM_KI
	XORLW	D'37'
	BTFSC	STATUS,Z
	CALL	HAROMPONTHET
MOVFW	ARAM_KI
	XORLW	D'38'
	BTFSC	STATUS,Z
	CALL	HAROMPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'39'
	BTFSC	STATUS,Z
	CALL	HAROMPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'40'
	BTFSC	STATUS,Z
	CALL	NEGYPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'41'
	BTFSC	STATUS,Z
	CALL	NEGYPONTEGY
MOVFW	ARAM_KI
	XORLW	D'42'
	BTFSC	STATUS,Z
	CALL	NEGYPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'43'
	BTFSC	STATUS,Z
	CALL	NEGYPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'44'
	BTFSC	STATUS,Z
	CALL	NEGYPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'45'
	BTFSC	STATUS,Z
	CALL	NEGYPONTOT
MOVFW	ARAM_KI
	XORLW	D'46'
	BTFSC	STATUS,Z
	CALL	NEGYPONTHAT
MOVFW	ARAM_KI
	XORLW	D'47'
	BTFSC	STATUS,Z
	CALL	NEGYPONTHET
MOVFW	ARAM_KI
	XORLW	D'48'
	BTFSC	STATUS,Z
	CALL	NEGYPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'49'
	BTFSC	STATUS,Z
	CALL	NEGYPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'50'
	BTFSC	STATUS,Z
	CALL	OTPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'51'
	BTFSC	STATUS,Z
	CALL	OTPONTEGY
MOVFW	ARAM_KI
	XORLW	D'52'
	BTFSC	STATUS,Z
	CALL	OTPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'53'
	BTFSC	STATUS,Z
	CALL	OTPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'54'
	BTFSC	STATUS,Z
	CALL	OTPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'55'
	BTFSC	STATUS,Z
	CALL	OTPONTOT
MOVFW	ARAM_KI
	XORLW	D'56'
	BTFSC	STATUS,Z
	CALL	OTPONTHAT
MOVFW	ARAM_KI
	XORLW	D'57'
	BTFSC	STATUS,Z
	CALL	OTPONTHET
MOVFW	ARAM_KI
	XORLW	D'58'
	BTFSC	STATUS,Z
	CALL	OTPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'59'
	BTFSC	STATUS,Z
	CALL	OTPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'60'
	BTFSC	STATUS,Z
	CALL	HATPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'61'
	BTFSC	STATUS,Z
	CALL	HATPONTEGY
MOVFW	ARAM_KI
	XORLW	D'62'
	BTFSC	STATUS,Z
	CALL	HATPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'63'
	BTFSC	STATUS,Z
	CALL	HATPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'64'
	BTFSC	STATUS,Z
	CALL	HATPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'65'
	BTFSC	STATUS,Z
	CALL	HATPONTOT
MOVFW	ARAM_KI
	XORLW	D'66'
	BTFSC	STATUS,Z
	CALL	HATPONTHAT
MOVFW	ARAM_KI
	XORLW	D'67'
	BTFSC	STATUS,Z
	CALL	HATPONTHET
MOVFW	ARAM_KI
	XORLW	D'68'
	BTFSC	STATUS,Z
	CALL	HATPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'69'
	BTFSC	STATUS,Z
	CALL	HATPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'70'
	BTFSC	STATUS,Z
	CALL	HETPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'71'
	BTFSC	STATUS,Z
	CALL	HETPONTEGY
MOVFW	ARAM_KI
	XORLW	D'72'
	BTFSC	STATUS,Z
	CALL	HETPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'73'
	BTFSC	STATUS,Z
	CALL	HETPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'74'
	BTFSC	STATUS,Z
	CALL	HETPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'75'
	BTFSC	STATUS,Z
	CALL	HETPONTOT
MOVFW	ARAM_KI
	XORLW	D'76'
	BTFSC	STATUS,Z
	CALL	HETPONTHAT
MOVFW	ARAM_KI
	XORLW	D'77'
	BTFSC	STATUS,Z
	CALL	HETPONTHET
MOVFW	ARAM_KI
	XORLW	D'78'
	BTFSC	STATUS,Z
	CALL	HETPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'79'
	BTFSC	STATUS,Z
	CALL	HETPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'80'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'81'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTEGY
MOVFW	ARAM_KI
	XORLW	D'82'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'83'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'84'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'85'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTOT
MOVFW	ARAM_KI
	XORLW	D'86'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTHAT
MOVFW	ARAM_KI
	XORLW	D'87'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTHET
MOVFW	ARAM_KI
	XORLW	D'88'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'89'
	BTFSC	STATUS,Z
	CALL	NYOLCPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'90'
	BTFSC	STATUS,Z
	CALL	KILENCPONTNULLA
MOVFW	ARAM_KI
	XORLW	D'91'
	BTFSC	STATUS,Z
	CALL	KILENCPONTEGY
MOVFW	ARAM_KI
	XORLW	D'92'
	BTFSC	STATUS,Z
	CALL	KILENCPONTKETTO
MOVFW	ARAM_KI
	XORLW	D'93'
	BTFSC	STATUS,Z
	CALL	KILENCPONTHAROM
MOVFW	ARAM_KI
	XORLW	D'94'
	BTFSC	STATUS,Z
	CALL	KILENCPONTNEGY
MOVFW	ARAM_KI
	XORLW	D'95'
	BTFSC	STATUS,Z
	CALL	KILENCPONTOT
MOVFW	ARAM_KI
	XORLW	D'96'
	BTFSC	STATUS,Z
	CALL	KILENCPONTHAT
MOVFW	ARAM_KI
	XORLW	D'97'
	BTFSC	STATUS,Z
	CALL	KILENCPONTHET
MOVFW	ARAM_KI
	XORLW	D'98'
	BTFSC	STATUS,Z
	CALL	KILENCPONTNYOLC
MOVFW	ARAM_KI
	XORLW	D'99'
	BTFSC	STATUS,Z
	CALL	KILENCPONTKILENC
MOVFW	ARAM_KI
	XORLW	D'100'
	BTFSC	STATUS,Z
	CALL	TIZ
MOVFW	ARAM_KI
	XORLW	D'101'
	BTFSC	STATUS,Z
	CALL	TIZENEGY
MOVFW	ARAM_KI
	XORLW	D'102'
	BTFSC	STATUS,Z
	CALL	TIZENKETTO
MOVFW	ARAM_KI
	XORLW	D'103'
	BTFSC	STATUS,Z
	CALL	TIZENHAROM
MOVFW	ARAM_KI
	XORLW	D'104'
	BTFSC	STATUS,Z
	CALL	TIZENNEGY
MOVFW	ARAM_KI
	XORLW	D'105'
	BTFSC	STATUS,Z
	CALL	TIZENOT

BANKSEL		PORTA
PAGESEL		MAIN

RETURN					;Visszatér a DELAY szubrutinból


;**********************************************************************
;
;					IDOÉRTÉK KIIRÁSA
;
;**********************************************************************


IDO_KIIRAS

	BCF		PORTB,3
	BSF		PORTB,4

banksel		IDO
PAGESEL		NULLANULLA


MOVFW	IDO
	XORLW	D'0'
	BTFSC	STATUS,Z
	CALL	NULLANULLA
MOVFW	IDO
	XORLW	D'1'
	BTFSC	STATUS,Z
	CALL	NULLAEGY
MOVFW	IDO
	XORLW	D'2'
	BTFSC	STATUS,Z
	CALL	NULLAKETTO
MOVFW	IDO
	XORLW	D'3'
	BTFSC	STATUS,Z
	CALL	NULLAHAROM
MOVFW	IDO
	XORLW	D'4'
	BTFSC	STATUS,Z
	CALL	NULLANEGY
MOVFW	IDO
	XORLW	D'5'
	BTFSC	STATUS,Z
	CALL	NULLAOT
MOVFW	IDO
	XORLW	D'6'
	BTFSC	STATUS,Z
	CALL	NULLAHAT
MOVFW	IDO
	XORLW	D'7'
	BTFSC	STATUS,Z
	CALL	NULLAHET
MOVFW	IDO
	XORLW	D'8'
	BTFSC	STATUS,Z
	CALL	NULLANYOLC
MOVFW	IDO
	XORLW	D'9'
	BTFSC	STATUS,Z
	CALL	NULLAKILENC
MOVFW	IDO
	XORLW	D'10'
	BTFSC	STATUS,Z
	CALL	TIZ
MOVFW	IDO
	XORLW	D'11'
	BTFSC	STATUS,Z
	CALL	TIZENEGY
MOVFW	IDO
	XORLW	D'12'
	BTFSC	STATUS,Z
	CALL	TIZENKETTO
MOVFW	IDO
	XORLW	D'13'
	BTFSC	STATUS,Z
	CALL	TIZENHAROM
MOVFW	IDO
	XORLW	D'14'
	BTFSC	STATUS,Z
	CALL	TIZENNEGY
MOVFW	IDO
	XORLW	D'15'
	BTFSC	STATUS,Z
	CALL	TIZENOT
MOVFW	IDO
	XORLW	D'16'
	BTFSC	STATUS,Z
	CALL	TIZENHAT
MOVFW	IDO
	XORLW	D'17'
	BTFSC	STATUS,Z
	CALL	TIZENHET
MOVFW	IDO
	XORLW	D'18'
	BTFSC	STATUS,Z
	CALL	TIZENNYOLC
MOVFW	IDO
	XORLW	D'19'
	BTFSC	STATUS,Z
	CALL	TIZENKILENC
MOVFW	IDO
	XORLW	D'20'
	BTFSC	STATUS,Z
	CALL	HUSZ
MOVFW	IDO
	XORLW	D'21'
	BTFSC	STATUS,Z
	CALL	HUSZONEGY
MOVFW	IDO
	XORLW	D'22'
	BTFSC	STATUS,Z
	CALL	HUSZONKETTO
MOVFW	IDO
	XORLW	D'23'
	BTFSC	STATUS,Z
	CALL	HUSZONHAROM
MOVFW	IDO
	XORLW	D'24'
	BTFSC	STATUS,Z
	CALL	HUSZONNEGY
MOVFW	IDO
	XORLW	D'25'
	BTFSC	STATUS,Z
	CALL	HUSZONOT
MOVFW	IDO
	XORLW	D'26'
	BTFSC	STATUS,Z
	CALL	HUSZONHAT
MOVFW	IDO
	XORLW	D'27'
	BTFSC	STATUS,Z
	CALL	HUSZONHET
MOVFW	IDO
	XORLW	D'28'
	BTFSC	STATUS,Z
	CALL	HUSZONNYOLC
MOVFW	IDO
	XORLW	D'29'
	BTFSC	STATUS,Z
	CALL	HUSZONKILENC
MOVFW	IDO
	XORLW	D'30'
	BTFSC	STATUS,Z
	CALL	HARMINC
MOVFW	IDO
	XORLW	D'31'
	BTFSC	STATUS,Z
	CALL	HARMINCEGY
MOVFW	IDO
	XORLW	D'32'
	BTFSC	STATUS,Z
	CALL	HARMINCKETTO
MOVFW	IDO
	XORLW	D'33'
	BTFSC	STATUS,Z
	CALL	HARMINCHAROM
MOVFW	IDO
	XORLW	D'34'
	BTFSC	STATUS,Z
	CALL	HARMINCEGY
MOVFW	IDO
	XORLW	D'35'
	BTFSC	STATUS,Z
	CALL	HARMINCOT
MOVFW	IDO
	XORLW	D'36'
	BTFSC	STATUS,Z
	CALL	HARMINCHAT
MOVFW	IDO
	XORLW	D'37'
	BTFSC	STATUS,Z
	CALL	HARMINCHET
MOVFW	IDO
	XORLW	D'38'
	BTFSC	STATUS,Z
	CALL	HARMINCNYOLC
MOVFW	IDO
	XORLW	D'39'
	BTFSC	STATUS,Z
	CALL	HARMINCKILENC
MOVFW	IDO
	XORLW	D'40'
	BTFSC	STATUS,Z
	CALL	NEGYVEN
MOVFW	IDO
	XORLW	D'41'
	BTFSC	STATUS,Z
	CALL	NEGYVENEGY
MOVFW	IDO
	XORLW	D'42'
	BTFSC	STATUS,Z
	CALL	NEGYVENKETTO
MOVFW	IDO
	XORLW	D'43'
	BTFSC	STATUS,Z
	CALL	NEGYVENHAROM
MOVFW	IDO
	XORLW	D'44'
	BTFSC	STATUS,Z
	CALL	NEGYVENNEGY
MOVFW	IDO
	XORLW	D'45'
	BTFSC	STATUS,Z
	CALL	NEGYVENOT
MOVFW	IDO
	XORLW	D'46'
	BTFSC	STATUS,Z
	CALL	NEGYVENHAT
MOVFW	IDO
	XORLW	D'47'
	BTFSC	STATUS,Z
	CALL	NEGYVENHET
MOVFW	IDO
	XORLW	D'48'
	BTFSC	STATUS,Z
	CALL	NEGYVENNYOLC
MOVFW	IDO
	XORLW	D'49'
	BTFSC	STATUS,Z
	CALL	NEGYVENKILENC
MOVFW	IDO
	XORLW	D'50'
	BTFSC	STATUS,Z
	CALL	OTVEN
MOVFW	IDO
	XORLW	D'51'
	BTFSC	STATUS,Z
	CALL	OTVENEGY
MOVFW	IDO
	XORLW	D'52'
	BTFSC	STATUS,Z
	CALL	OTVENKETTO
MOVFW	IDO
	XORLW	D'53'
	BTFSC	STATUS,Z
	CALL	OTVENHAROM
MOVFW	IDO
	XORLW	D'54'
	BTFSC	STATUS,Z
	CALL	OTVENNEGY
MOVFW	IDO
	XORLW	D'55'
	BTFSC	STATUS,Z
	CALL	OTVENOT
MOVFW	IDO
	XORLW	D'56'
	BTFSC	STATUS,Z
	CALL	OTVENHAT
MOVFW	IDO
	XORLW	D'57'
	BTFSC	STATUS,Z
	CALL	OTVENHET
MOVFW	IDO
	XORLW	D'58'
	BTFSC	STATUS,Z
	CALL	OTVENNYOLC
MOVFW	IDO
	XORLW	D'59'
	BTFSC	STATUS,Z
	CALL	OTVENKILENC
MOVFW	IDO
	XORLW	D'60'
	BTFSC	STATUS,Z
	CALL	HATVAN
MOVFW	IDO
	XORLW	D'61'
	BTFSC	STATUS,Z
	CALL	HATVANEGY
MOVFW	IDO
	XORLW	D'62'
	BTFSC	STATUS,Z
	CALL	HATVANKETTO
MOVFW	IDO
	XORLW	D'63'
	BTFSC	STATUS,Z
	CALL	HATVANHAROM
MOVFW	IDO
	XORLW	D'64'
	BTFSC	STATUS,Z
	CALL	HATVANNEGY
MOVFW	IDO
	XORLW	D'65'
	BTFSC	STATUS,Z
	CALL	HATVANOT
MOVFW	IDO
	XORLW	D'66'
	BTFSC	STATUS,Z
	CALL	HATVANHAT
MOVFW	IDO
	XORLW	D'67'
	BTFSC	STATUS,Z
	CALL	HATVANHET
MOVFW	IDO
	XORLW	D'68'
	BTFSC	STATUS,Z
	CALL	HATVANNYOLC
MOVFW	IDO
	XORLW	D'69'
	BTFSC	STATUS,Z
	CALL	HATVANKILENC
MOVFW	IDO
	XORLW	D'70'
	BTFSC	STATUS,Z
	CALL	HETVEN
MOVFW	IDO
	XORLW	D'71'
	BTFSC	STATUS,Z
	CALL	HETVENEGY
MOVFW	IDO
	XORLW	D'72'
	BTFSC	STATUS,Z
	CALL	HETVENKETTO
MOVFW	IDO
	XORLW	D'73'
	BTFSC	STATUS,Z
	CALL	HETVENHAROM
MOVFW	IDO
	XORLW	D'74'
	BTFSC	STATUS,Z
	CALL	HETVENNEGY
MOVFW	IDO
	XORLW	D'75'
	BTFSC	STATUS,Z
	CALL	HETVENOT
MOVFW	IDO
	XORLW	D'76'
	BTFSC	STATUS,Z
	CALL	HETVENHAT
MOVFW	IDO
	XORLW	D'77'
	BTFSC	STATUS,Z
	CALL	HETVENHET
MOVFW	IDO
	XORLW	D'78'
	BTFSC	STATUS,Z
	CALL	HETVENNYOLC
MOVFW	IDO
	XORLW	D'79'
	BTFSC	STATUS,Z
	CALL	HETVENKILENC
MOVFW	IDO
	XORLW	D'80'
	BTFSC	STATUS,Z
	CALL	NYOLCVAN
MOVFW	IDO
	XORLW	D'81'
	BTFSC	STATUS,Z
	CALL	NYOLCVANEGY
MOVFW	IDO
	XORLW	D'82'
	BTFSC	STATUS,Z
	CALL	NYOLCVANKETTO
MOVFW	IDO
	XORLW	D'83'
	BTFSC	STATUS,Z
	CALL	NYOLCVANHAROM
MOVFW	IDO
	XORLW	D'84'
	BTFSC	STATUS,Z
	CALL	NYOLCVANNEGY
MOVFW	IDO
	XORLW	D'85'
	BTFSC	STATUS,Z
	CALL	NYOLCVANOT
MOVFW	IDO
	XORLW	D'86'
	BTFSC	STATUS,Z
	CALL	NYOLCVANHAT
MOVFW	IDO
	XORLW	D'87'
	BTFSC	STATUS,Z
	CALL	NYOLCVANHET
MOVFW	IDO
	XORLW	D'88'
	BTFSC	STATUS,Z
	CALL	NYOLCVANNYOLC
MOVFW	IDO
	XORLW	D'89'
	BTFSC	STATUS,Z
	CALL	NYOLCVANKILENC
MOVFW	IDO
	XORLW	D'90'
	BTFSC	STATUS,Z
	CALL	KILENCVEN
MOVFW	IDO
	XORLW	D'91'
	BTFSC	STATUS,Z
	CALL	KILENCVENEGY
MOVFW	IDO
	XORLW	D'92'
	BTFSC	STATUS,Z
	CALL	KILENCVENKETTO
MOVFW	IDO
	XORLW	D'93'
	BTFSC	STATUS,Z
	CALL	KILENCVENHAROM
MOVFW	IDO
	XORLW	D'94'
	BTFSC	STATUS,Z
	CALL	KILENCVENNEGY
MOVFW	IDO
	XORLW	D'95'
	BTFSC	STATUS,Z
	CALL	KILENCVENOT
MOVFW	IDO
	XORLW	D'96'
	BTFSC	STATUS,Z
	CALL	KILENCVENHAT
MOVFW	IDO
	XORLW	D'97'
	BTFSC	STATUS,Z
	CALL	KILENCVENHET
MOVFW	IDO
	XORLW	D'98'
	BTFSC	STATUS,Z
	CALL	KILENCVENNYOLC
MOVFW	IDO
	XORLW	D'99'
	BTFSC	STATUS,Z
	CALL	KILENCVENKILENC



BANKSEL		PORTA
PAGESEL		MAIN

RETURN


;**********************************************************************
;
;					SZÁMOK AZONOSITÁSA
;
;**********************************************************************

org		0x0800	;PAGE1 RE IRJUK

NULLAPONTNULLA						; 0.0 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTEGY						; 0.1 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTKETTO						; 0.2 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTHAROM						; 0.3 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTNEGY						; 0.4 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTOT						; 0.5 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTHAT						; 0.6 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTHET						; 0.7 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTNYOLC						; 0.8 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAPONTKILENC						; 0.9 labelje

	MOVLW	D'128'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLANULLA						; 00 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAEGY						; 01 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAKETTO						; 02 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAHAROM						; 03 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLANEGY						; 04 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAOT						; 05 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAHAT						; 06 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAHET						; 07 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLANYOLC						; 08 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NULLAKILENC						; 09 labelje

	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTNULLA						; 1.0 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


EGYPONTEGY						; 1.1 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTKETTO						; 1.2 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTHAROM						; 1.3 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTNEGY						; 1.4 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTOT						; 1.5 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTHAT						; 1.6 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTHET						; 1.7 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTNYOLC						; 1.8 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

EGYPONTKILENC						; 1.9 labelje

	MOVLW	D'227'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTNULLA						; 2.0 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTEGY						; 2.1 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTKETTO						; 2.2 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTHAROM						; 2.3 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTNEGY						; 2.4 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTOT						; 2.5 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTHAT						; 2.6 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTHET						; 2.7 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTNYOLC						; 2.8 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KETTOPONTKILENC						; 2.9 labelje

	MOVLW	D'68'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTNULLA						; 3.0 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


HAROMPONTEGY						; 3.1 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTKETTO						; 3.2 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTHAROM						; 3.3 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTNEGY						; 3.4 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTOT						; 3.5 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTHAT						; 3.6 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTHET						; 3.7 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTNYOLC						; 3.8 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HAROMPONTKILENC						; 3.9 labelje

	MOVLW	D'65'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTNULLA						; 4.0 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


NEGYPONTEGY						; 4.1 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTKETTO						; 4.2 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTHAROM						; 4.3 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTNEGY						; 4.4 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTOT						; 4.5 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTHAT						; 4.6 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTHET						; 4.7 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTNYOLC						; 4.8 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYPONTKILENC						; 4.9 labelje

	MOVLW	D'35'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTNULLA						; 5.0 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


OTPONTEGY						; 5.1 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTKETTO						; 5.2 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTHAROM						; 5.3 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTNEGY						; 5.4 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTOT						; 5.5 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTHAT						; 5.6 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTHET						; 5.7 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTNYOLC						; 5.8 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTPONTKILENC						; 5.9 labelje

	MOVLW	D'17'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTNULLA						; 6.0 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


HATPONTEGY							; 6.1 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTKETTO						; 6.2 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTHAROM						; 6.3 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTNEGY						; 6.4 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTOT						; 6.5 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTHAT						; 6.6 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTHET						; 6.7 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTNYOLC						; 6.8 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATPONTKILENC						; 6.9 labelje

	MOVLW	D'16'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTNULLA						; 7.0 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


HETPONTEGY						; 7.1 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTKETTO						; 7.2 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTHAROM						; 7.3 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTNEGY						; 7.4 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTOT						; 7.5 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTHAT						; 7.6 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTHET						; 7.7 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTNYOLC						; 7.8 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETPONTKILENC						; 7.9 labelje

	MOVLW	D'195'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTNULLA						; 8.0 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


NYOLCPONTEGY						; 8.1 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTKETTO						; 8.2 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTHAROM						; 8.3 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTNEGY						; 8.4 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTOT						; 8.5 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTHAT						; 8.6 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTHET						; 8.7 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTNYOLC						; 8.8 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCPONTKILENC						; 8.9 labelje

	MOVLW	D'0'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTNULLA						; 9.0 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


KILENCPONTEGY						; 9.1 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTKETTO						; 9.2 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTHAROM						; 9.3 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTNEGY						; 9.4 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTOT						; 9.5 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTHAT						; 9.6 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTHET						; 9.7 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTNYOLC						; 9.8 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCPONTKILENC						; 9.9 labelje

	MOVLW	D'1'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZ						; 10 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


TIZENEGY						; 11 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENKETTO						; 12 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENHAROM						; 13 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENNEGY						; 14 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENOT						; 15 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENHAT						; 16 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENHET						; 17 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENNYOLC						; 18 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

TIZENKILENC						; 19 labelje

	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZ						; 20 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONEGY						; 21 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONKETTO						; 22 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONHAROM						; 23 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONNEGY						; 24 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONOT						; 25 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONHAT						; 26 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONHET						; 27 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONNYOLC						; 28 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HUSZONKILENC						; 29 labelje

	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINC						; 30 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


HARMINCEGY						; 31 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCKETTO						; 32 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCHAROM						; 33 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCNEGY						; 34 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCOT						; 35 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCHAT						; 36 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCHET						; 37 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCNYOLC						; 38 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HARMINCKILENC						; 39 labelje

	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVEN				; 40 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


NEGYVENEGY						; 41 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENKETTO						; 42 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENHAROM						; 43 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENNEGY						; 44 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENOT						; 45 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENHAT						; 46 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENHET						; 47 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENNYOLC						; 48 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NEGYVENKILENC						; 49 labelje

	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVEN					; 50 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


OTVENEGY						; 51 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENKETTO						; 52 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENHAROM						; 53 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENNEGY						; 54 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENOT						; 55 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENHAT						; 56 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENHET						; 57 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENNYOLC						; 58 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

OTVENKILENC						; 59 labelje

	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVAN					; 60 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


HATVANEGY							; 61 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANKETTO						; 62 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANHAROM						; 63 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANNEGY						; 64 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANOT						; 65 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANHAT						; 66 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANHET						; 67 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANNYOLC						; 68 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HATVANKILENC						; 69 labelje

	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVEN						; 70 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


HETVENEGY						; 71 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENKETTO						; 72 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENHAROM						; 73 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENNEGY						; 74 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENOT						; 75 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENHAT						; 76 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENHET						; 77 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENNYOLC						; 78 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

HETVENKILENC						; 79 labelje

	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVAN					; 80 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


NYOLCVANEGY						; 81 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANKETTO						; 82 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANHAROM						; 83 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANNEGY						; 84 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANOT						; 85 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANHAT						; 86 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANHET						; 87 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANNYOLC						; 88 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

NYOLCVANKILENC						; 89 labelje

	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVEN					; 90 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'136'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból


KILENCVENEGY						; 91 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'235'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENKETTO						; 92 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'76'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENHAROM						; 93 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'73'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENNEGY						; 94 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'43'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENOT						; 95 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'25'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENHAT						; 96 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'24'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENHET						; 97 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'203'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENNYOLC						; 98 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'8'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból

KILENCVENKILENC						; 99 labelje

	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	elso			;Akkumulátorból kiírjuk aZ ELSO REGISZTERBE
	MOVLW	D'9'			;Betöltjük a W-be (akkumulátorba) a kirandó adatot
	MOVWF	masodik			;Akkumulátorból kiírjuk a MASIDIK REGISZTERBE

	RETURN					;Visszatér a DELAY szubrutinból








 	END						;Teljes program végét jelentő END