Combining 4 nibble to 16bits

[SteveB]

From what you have explained, here is something that should work:

Full_Word var Word
Low_Byte  var Full_Word.lowbyte
High_Byte Var Full_Word.Highbyte

'First Nibble
High_Byte = (PortD & %00001111)
High_Byte = High_Byte << 4
'Second Nibble
High_Byte = High_Byte + (PortD & %00001111)
'Third Nibble
Low_Byte = (PortD & %00001111)
Low_Byte = Low_Byte << 4
'Forth Nibble
Low_Byte = Low_Byte + (PortD & %00001111)
'Full_Word now has the 16 bit result of 4 Nibbles

HTH,
Steve

[i]EDIT: just changed port, since I miss read original post and used B instead of D

[isaac]

Sorry sayzer

if i didn't give enough explaination so here it is

I have 4 variables of 4bits each
Nibble1,Nibble2,Nibble3 and Nibble4
Lets assume that they contain the following values

nibble1=F which is binary 1111
nibble2=E which is binary 1110
nibble3=D which is binary 1101
nibble4=C which is binary 1100

i want to combine them to form a 16bit word variable say result
to make result=FEDC or 1111111011011100

Then i can use the shiftout command to send the value of result
as

ShiftOut DataP,Clk,MsbFirst,[result\16]

instead of as below as i presently do it

ShiftOut DataP,Clk,MsbFirst,[nibble1\4,nibble2\4,nibble3\4,nibble4\4]

Those are read in on PORTD.0 - PORTD3 one at a time as the device
i am reading is only capable of send 4bits at a time.
i think SteveB method might work though


Hope this is clear
Isaac