Code:
@ device XT_OSC,PROTECT_OFF,WDT_OFF,PWRT_ON,MCLR_ON,BOD_OFF,LVP_OFF,PROTECT_OFF,CPD_OFF
TRISB=%00000000
CMCON=7

    B0 var byte
    B1 var byte

FOR B1=0 to 1
    LOOKUP B1, ["$3F $FF"],B0

' ==== B0 hex to bin convert here  ====

    PAUSE 200    
    PORTB.0=B0.7
    Pulsout PORTB.1,1
    PORTB.0=B0.6
    Pulsout PORTB.1,1
    PORTB.0=B0.5
    Pulsout PORTB.1,1
    PORTB.0=B0.4
    Pulsout PORTB.1,1        
    PORTB.0=B0.3
    Pulsout PORTB.1,1    
    PORTB.0=B0.2
    Pulsout PORTB.1,1    
    PORTB.0=B0.1
    Pulsout PORTB.1,1
    PORTB.0=B0.0
    Pulsout PORTB.1,1            
LOW PORTB.1    
    
    NEXT B1
I need hex to bin convert data in my B0
please help