;Hp41C
	movlw	.17
	movwf	ADAT	; amivel tesztel

	movlw	.14
	movwf	KAR_SZAM
CIKL2
	movlw	03			;3 levonás
	subwf	ADAT, f
	btfsc	ADAT,7
	goto	NEGATIV	
;	movlw	03			;3 vonal, csak azért nem kell, mert úgyis 3 ban a w-ben
	nop	;call	LCDDATA	vagy valami hasonló csak a tesztek miatt nop, 
		;nálam a w-ben levő értéket írja ki
	decfsz	KAR_SZAM
	goto	CIKL2
	goto	VEGE2
NEGATIV
	movlw	03			;3 hozzáadás
	addwf	ADAT, w
	nop	;call	LCDDATA
	decf	KAR_SZAM
	btfsc	STATUS,Z
	goto	VEGE2
INNEN_URES2
	movlw	00			;0 vonal
	nop	;call	LCDDATA	
	decfsz	KAR_SZAM
	goto	INNEN_URES2
VEGE2
	nop
	goto	VEGE2


;ktamas66
	movlw	.18
	movwf	ADAT	; amivel tesztel

	movwf	EGESZ
	movlw	.14
	movwf	KAR_SZAM
;3 osztás max. egyet téved, de a maradékkiírásnál korrigálja
	movf	EGESZ, w
	lsrf	EGESZ, f
	lsrf	EGESZ, f
	addwf	EGESZ, f
	rrf		EGESZ, f
	lsrf	EGESZ, f
	addwf	EGESZ, f
	rrf		EGESZ, f
	lsrf	EGESZ, f
;első ciklus 
	btfsc	STATUS,Z
	goto	NINCS_CIKL1
CIKL1
	movlw	03			;3 vonal
	subwf	ADAT, f
	nop	;call	LCDDATA
	decf	KAR_SZAM
	decfsz	EGESZ
	goto	CIKL1
NINCS_CIKL1
	movfw	ADAT		;maradék 00 üres karakter 01 egyvonal 02 kétvonal 03 háromvonal
	nop	;call	LCDDATA
	decfsz	KAR_SZAM
	goto	INNEN_URES
	goto	VEGE
INNEN_URES
	movlw	00			;0 vonal
	nop	;call	LCDDATA	
	decfsz	KAR_SZAM
	goto	INNEN_URES
VEGE
	nop
	goto	VEGE