LIST P=16F84
 #INCLUDE "P16F84.INC"
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
               CBLOCK 0x0C
               T1
        T2
        ENDC

        ORG      0
START   BSF      STATUS,RP0 ;BANK1
        MOVLW    B'00011111'
        MOVWF    TRISA
        MOVLW    B'00000000'
        MOVWF    TRISB
        BCF      STATUS,RP0 ;BANK0
CBLOCK 0x0C
         T1
         T2
         ENDC
ISSZA:  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
                  MOVLW    B'00000001'
         MOVWF    PORTB
         CALL     DELAY
         MOVLW    B'00000000'
         MOVWF    PORTB
         CALL     DELAY
         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'00000000'
         MOVWF    PORTB
         CALL     DELAY
         GOTO     VISSZA
DELAY:   MOVLW    d'150'
         MOVWF    T1
DEL:     MOVLW    d'255'
         MOVWF    T2
DEL1:    NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         DECFSZ   T2,f
         GOTO     DEL1
         DECFSZ   T1,f
         GOTO     DEL
         RETURN
         END