;*** Zacetek programa ***
	LIST	P=16F88
	ORG	0

;*** Inicializacija: nastavim PORTB vsi izhodi ***
	BSF	3,5	;RP0=1 nastavim banko 1 za dostop do TRIS
	MOVLW	0	;TRISB=0
	MOVWF	6
	BCF	3,5	;RP0=0 nastavim banko 0 za dostop do PORTB

;*** Zanka programa ***
	MOVLW	0E	;zacetna vsebina (20) in C
	MOVWF	20
	BCF 	3,0
ZANKA	RRF	20,1	;zavrtim (20) za eno mesto v desno skozi C
	MOVF	20,0	;w=(20) prepisem vsebino 20 na izhode
	MOVWF	6	;PORTB=W
KASNI	DECFSZ	21,1	;zakasnitev 256 praznih zank (21)
	GOTO	KASNI
	GOTO	ZANKA

;*** Nastavi konfiguracijo PICa 16F88 ***
	ORG	2007	;naslov konfiguracijske besede
	DW	2950	;CP=OFF, CCPMX=RB3, DEBUG=OFF, WRT=0000-0FFF,
;CPD=OFF, LVP=OFF, BOREN=ON, MCLRE=OFF, PWRTEN=ON, WDTE=OFF, OSC=INTRC
; notranji Brown-Out RESET in notranja ura 31kHz

	END
;*** Konec programa ***