hex to bin converter

[darkman]

@ 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 :(

[Dwayne]

Hello Darkman,

I don't understand what you want... but maybe using the bitshift command is what you are looking for....

Data var byte;
counter var byte

For counter=0 to 7
PORTB.0=Data.7 'assigns PORTB.0 the Bit Data.7 has (your part of the program).
Pulsout PORTB.1,1 'your part of the program...
Data=Data << 1 'shift left
Next counter

Unfortunately I really do not know what you are trying to accomplish... You assign Portb.0 a bit, but transmit out a pulse on Portb.1 (which is a different Port) Yet you never change the value of this POrtb.1... It is always the same.

Dwayne