try this one
Code:
ASM
    __CONFIG  _CONFIG1L, _CPUDIV_OSC1_PLL2_1L  
    __CONFIG  _CONFIG1H, _FOSC_XT_XT_1H
    __CONFIG  _CONFIG3H, _PBADEN_OFF_3H
    __CONFIG  _CONFIG4L, _LVP_OFF_4L & _XINST_OFF_4L
ENDASM
ADCON1=$0F
CMCON = 7                        ' Digital inputs
CCP1CON = 0                      ' PWM off

TRISA=%11100111                  'set PORTA as all input apart from A3 & A4
TRISB=%00000000                  'set PORTB as all output
PORTB=0

ByteA   var byte
 
main:
    for bytea=0 to 7
        PORTB=DCD BYTEA
        PAUSE 250
        NEXT
    PORTB=255
    PAUSE 250
    goto main