trisb		EQU	86h
portb		EQU	06h
teller		EQU	40h
teller2		EQU	41h
teller3		EQU	42h

		ORG	00h

		BSF	03,5	
		CLRF	trisb
		BCF	03,5

begin		MOVLW	5
		MOVWF	teller3
begin2		DECFSZ	teller3, 1
		GOTO	beginprog
		GOTO	vervolg

beginprog	MOVLW	0x0F	
		MOVWF	portb
		CAll	delayaan

		MOVLW	00h
		MOVWF	portb
		CALl	delayuit

	 	MOVLW	0x0F
		MOVWF	portb
		CALL	delayaan
		
		MOVLW	00h
		MOVWF	portb
		CALl	delayuit

	 	MOVLW	0x0F
		MOVWF	portb
		CALL	delayaan
		
		MOVLW	00h
		MOVWF	portb
		CALl	delayuit

                MOVLW	0x0F0	
		MOVWF	portb
		CAll	delayaan

		MOVLW	00h
		MOVWF	portb
		CALl	delayuit

	 	MOVLW	0x0F0
		MOVWF	portb
		CALL	delayaan
		
		MOVLW	00h
		MOVWF	portb
		CALl	delayuit

	 	MOVLW	0x0F0
		MOVWF	portb
		CALL	delayaan
		
		MOVLW	00h
		MOVWF	portb
		CALl	delayuit

		GOTO	begin2

vervolg		MOVLW	7
		MOVWF	teller3
vervolgb	DECFSZ	teller3, 1
		GOTO	snel
		GOTO	wachttijd

snel		MOVLW	0x0F
		MOVWF	portb
		CALL	delayaan
		
		MOVLW	00h
		MOVWF	portb
		CALl	delayuit2

                MOVLW	0x0F0	
		MOVWF	portb
		CAll	delayaan

		MOVLW	00h
		MOVWF	portb
		CALl	delayuit2

		GOTO	vervolgb

wachttijd	CALL	delay0ff
		GOTO	begin

delayaan        MOVLW	0x028
        	MOVWF	teller2	
verder1		MOVLW	0x028
        	MOVWF	teller
opnieuw1        DECFSZ	teller, 1
        	GOTO	opnieuw1
        	DECFSZ	teller2, 1
        	GOTO	verder1
		RETLW	00h

delayuit        MOVLW	0x0AF
        	MOVWF	teller2	
verder2		MOVLW	0x0AF
        	MOVWF	teller
opnieuw2        DECFSZ	teller, 1
        	GOTO	opnieuw2
        	DECFSZ	teller2, 1
        	GOTO	verder2
		RETLW	00h

delayuit2       MOVLW	0x0BE
        	MOVWF	teller2	
verder3		MOVLW	0x0BE
        	MOVWF	teller
opnieuw3        DECFSZ	teller, 1
        	GOTO	opnieuw3
        	DECFSZ	teller2, 1
        	GOTO	verder3
		RETLW	00h

delay0ff        MOVLW	0x0FF
        	MOVWF	teller2	
verder5		MOVLW	0x0FF
        	MOVWF	teller
opnieuw5        DECFSZ	teller, 1
        	GOTO	opnieuw5
        	DECFSZ	teller2, 1
        	GOTO	verder5
		RETLW	00h

		END
