KNIGHT RIDER program

INCLUDE <P18F4580.INC>

CONFIG LVP = OFF

ORG 00H
       
                  MOVLW  B'00000000'
                  MOVWF  TRISB
MYREG   MOVLW  B'00000001'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00000010'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00000100'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00001000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00010000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00100000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'01000000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'10000000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'01000000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00100000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00010000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00001000'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00000100'
                  MOVWF  PORTB
                  CALL       DELAY
                  MOVLW  B'00000010'
                  MOVWF  PORTB
                  CALL       DELAY
                  GOTO      MYREG

DELAY   MOVLW  D'10'
                MOVWF  0X03
LOOP3    MOVLW  D'10'
                MOVWF  0X04
LOOP2    MOVLW  D'200'
                MOVWF  0X05
LOOP1   DECF       0X05
                BNZ         LOOP1
                DECF       0X04
                BNZ         LOOP2
                DECF       0X03
                BNZ         LOOP3
                RETURN

          END