BLINKING LAMP

INCLUDE <P18F4580.INC>

CONFIG LVP = OFF

                   ORG 00H
                   CLRF TRISB

MYREG    MOVLW 0Xff
                   MOVWF PORTB
                   CALL DELAY
                   MOVLW 0x00
                   MOVWF PORTB
                   CALL DELAY
                   GOTO MYREG

DELAY      MOVLW D'2'
                   MOVWF 0x01
LOOP3       MOVLW D'100'
                   MOVWF 0x02
LOOP2       MOVLW D'250'
                   MOVWF 0x03
LOOP1       DECF 0x03
                   BNZ  LOOP1
                   DECF 0x02
                   BNZ  LOOP2
                   DECF 0x01
                   BNZ  LOOP3
                   RETURN

                   END