	; stel de processor in
	list P=PIC16F84
	include <P16F84.inc>


	; definities van registers
	PORTB		EQU	06h	; config register poort B
	TRISB		EQU	86h	; status register poort B
	teller1		EQU	40h	; hulpteller 1 
	teller2		EQU	41h	; hulpteller 2



	; dit programma schakelt alle uitgangen aan
	ORG 00H

	CLRF	PORTB
	BSF	03,5		; selecteer bank 1
	CLRF	TRISB		; stel RB in als output
	BCF	03,5	



LUS

	; x------x
	MOVLW	B'10000001'
	MOVWF	PORTB
	CALL	VERTRAAG

	; -x----x-
	MOVLW	B'01000010'
	MOVWF	PORTB
	CALL	VERTRAAG

	; --x--x--
	MOVLW	B'00100100'
	MOVWF	PORTB
	CALL	VERTRAAG

	; ---xx---
	MOVLW	B'00011000'
	MOVWF	PORTB
	CALL	VERTRAAG

	; --x--x--
	MOVLW	B'00100100'
	MOVWF	PORTB
	CALL	VERTRAAG

	; -x----x-
	MOVLW	B'01000010'
	MOVWF	PORTB
	CALL	VERTRAAG

	GOTO	LUS



VERTRAAG

	; zet de teller op zijn maximale waarde
	MOVLW	0FFH
	MOVWF	teller1

BEGIN
	DECFSZ	teller1,1		; 
	GOTO LUS2			; if teller1<>0 then goto lus2
	RETURN				; else RETURN
	
	; *** TELLER TWEE FUNCTIE ***
LUS2	MOVLW	0FFH
	MOVWF	teller2			; teller2 = 255
LUS3	DECFSZ	teller2,1
	GOTO LUS3			; if teller2<>0 THEN goto lus3
	GOTO BEGIN			; else goto LUS2


	RETURN


	END