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