; stel de processor in list P=PIC16F84 include ; 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