Move seperate bytes into a word

[Bruce]

OK - here's a little smaller verion...;o}

Z VAR WORD BANK0 ; use BANKA for 18F part
A VAR Z.LowByte
B VAR BYTE BANK0
C VAR Z.HighByte
D VAR BYTE BANK0

A=%00000001
B=%00000010
C=%00000011
D=%00000100

ASM
    CHK?RP _Z
    swapf  _B, W     ; swap nibbles in B, result in W
    iorwf  _A, F     ; or with A, result in A (low byte is done)
    swapf  _D, W     ; swap nibbles in D, result in W
    iorwf  _C, F     ; or with C, result in C (HighByte is done)
ENDASM

Z = %0100 0011 0010 0001