coode
	movlw	.8			;bit szélesség
	movwf	word

loop_cmd
	btfss	in			;bemenet portb,0
	goto	coode		;várakozás 1-re

	call	bpm			;48uS   (a 0 48uS az 1 96uS)

	bsf		pc,3		;mintavétel segédláb a logikai analizátornak

	movfw	pb			;olvasás 
	andlw	.1			;maszk a portb,0-án
	movwf	shift		
	
	rrf		shift,f		;segédregiszter
	rrf		cmd,f		

	bcf		pc,3		;mintavétel vége

	btfsc	in			;várakozás ha 1 volt hogy 0 legyen
	goto	$-1

	decfsz	word,f		;dekrementálás a bitszélesség
	goto	loop_cmd

	movfw	cmd			;az eredmény 
	movwf	pd			;kiírása a PORTD-re
	
	clrf	cmd			
	goto	coode		;vissza az elejére