* long shift routines

 name Long_Shift

 text

* shift left long value

  global shllong,ushllong
ushllong
shllong tstb
  bne 1f
  rts
1 cmpb #32
  bls 2f
  ldb #32
2 pshs b
3 lsl 6,s
  rol 5,s
  rol 4,s
  rol 3,s
  dec 0,s
  bne 3b
  puls b,pc

 end