porta		EQU	05h
teller		EQU	40h
teller2	        EQU	41h
teller3		EQU	42h
instelporta     EQU	85h

                ORG	00h     	;beginadres kiezen

	
		


		BSF 	03,5		;kies bank 1
		CLRF	instelporta	;alles pinnen poort A uitgang maken
	        BCF 	03,5		;kies bank 0
	        

main		BSF	porta,0
		CALL 	tijdjewachten
		BCF	porta,0
		BSF	porta,1
		CALL 	tijdjewachten
		BCF	porta,1
		BSF	porta,2
		CALL 	tijdjewachten
		BCF	porta,2
		GOTO 	main	

;---------SUB ROUTINES------------------

tijdjewachten   MOVLW	0FFh		;laad 0FFh in W
        	MOVWF	teller2
verder          MOVLW	0FFh
        	MOVWF	teller
opnieuw         DECFSZ	teller, 1
        	GOTO	opnieuw
        	DECFSZ	teller2, 1
        	GOTO	verder
		RETURN			; spring weer terug van waar je vandaan kwam

		END