cnvt	movlw	0x00		; BCD nullazas
	movwf	0x2c
	movwf	0x2d
	movwf	0x2e
	movwf	0x2f
	movwf	0x30
	movwf	0x31
	movwf	0x32
	movwf	0x33
;
	movlw	24		; kulso ciklus 24
	movwf	count2
big5	movlw	0x2c		; nagyobb-e 5-nel ciklus
	movwf	FSR		; bcd kezdo cim
big51	movlw	5
	subwf	INDF, w		; bcd szam - 5	
	btfss	STATUS, C	; bcd >= 5
	goto	big5-v		; nem
	movlw	3		; nagyobb, tehat +3
	addwf	INDF, f
big5-v	incf	FSR, f 
	movlw	0x34		
	xorwf	FSR, w
	btfss	STATUS, z	; nagyobb-e 5-nel ciklus vege
	goto	big51
rot	movlw	0x2c		; balra leptet ciklus
	movwf	FSR
rot1	bcf	STATUS, c	; clear carry bit
	rlf	INDF, f
	bcf	INDF, 4		; nem kell az 5. bit
	incf	FSR, f
	btfss	INDF, 3
	goto	rot-v
	decf	FSR, f
	bsf	INDF, 0	
	incf	FSR, f 
rot-v	movlw	0x33		
	xorwf	FSR, w
	btfss	STATUS, z	; balra leptet ciklus vege
	goto	rot1
	bcf	STATUS, c	; clear carry bit
	rlf	INDF, f
	bcf	INDF, 4		; nem kell az 5. bit
	btfss	cnt3, 7
	goto	rot_1
	bsf	INDF, 0	
rot_1	bcf	STATUS, c	; clear carry bit
	rlf	cnt3, f
	btfss	cnt2, 7
	goto	rot_2
	bsf	cnt3, 0	
rot_2	bcf	STATUS, c	; clear carry bit
	rlf	cnt2, f
	btfss	cnt1, 7
	goto	rot_3
	bsf	cnt2, 0	
rot_3	bcf	STATUS, c	; clear carry bit
	rlf	cnt1, f
	decfsz	count2, f	; kulso ciklus vege
	goto	big5
;
ascii	movlw	0x30
	addwf	0x2c, f
	addwf	0x2d, f
	addwf	0x2e, f
	addwf	0x2f, f
	addwf	0x30, f
	addwf	0x31, f
	addwf	0x32, f
	addwf	0x33, f
;
	retlw	0x00