Another way to left shift a 32 bit data?

[richard]

you can set or clr any bit in an array
dis var byte [4]

dis.0[x] = 1 ; will set bit x in array dis where x=0 to 31

or make a user command something like this (untested)
USERCOMMAND "SETBIT" ; BIT,VALUE

SETBIT?CC macro Bitin,Val
if Bitin <32
  if Bitin > 23
k=3
  elseif  Bitin > 15
k=2
  elseif  Bitin > 7
k=1
  elseif  Bitin <8
k=0
  endif
b=Bitin-k*8


  if Val >0
  bsf _dis+k,b
  else
  bcf  _dis+k,b
  endif
endif
endm

not sure if user cmd is really useful here