;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	ADDLW	1	;W=W+1
	MOVWF	6	;PORTB

	CALL	KASNI2
	GOTO	ZANKA

KASNI	INCFSZ	20,1	;F20=F20+1
	GOTO	KASNI
	RETURN

KASNI2	CALL	KASNI
	INCFSZ	21,1	;F21=F21+1
	GOTO	KASNI2
	RETURN

	ORG	2007
	DW	2950

	END
;konec programa