1 // math.asm: WORD p_shift_signed_right, 's>>',fasm
3 anchor:p_shift_signed_right[]
8 Data stack: ( v1 n -- v2 )
11 "s>>" is a function word that shifts value v1 n steps right (i.e.
12 "moving" bits towards less significant bits) to form value v2, but
13 preserving (and copying) the sign bit.