;zacetek programa
	LIST	P=16F88
	ORG	0

	BSF	3,5	;banka1
	MOVLW	0
	MOVWF	6	;TRISB
	MOVLW	72
	MOVWF	0F	;OSCCON
	BCF	3,5	;banka0

ZANKA	MOVLW	85
	MOVWF	1F	;ADCON0

CAKA	BTFSC	1F,2
	GOTO	CAKA

	MOVF	1E,0	;ADRESH
	MOVWF	20
	CALL	SPI

	GOTO	ZANKA

SPI	MOVLW	8
	MOVWF	21	;stevec bitov
SPI1	CALL	BIT
	DECFSZ	21,1
	GOTO	SPI1
	NOP
	BSF	6,2	;STROBE=RB2
	NOP
	BCF	6,2
	RETURN

BIT	RLF	20,1
	BTFSS	3,0	;DATA=RB1
	BCF	6,1
	BTFSC	3,0
	BSF	6,1
	NOP
	BSF	6,0	;CLK=RB0
	NOP
	BCF	6,0
	RETURN

	ORG	2007
	DW	2950

	END
;konec programa