// math.asm:	WORD p_shift_signed_right, 's>>',fasm

anchor:p_shift_signed_right[]

=== Word: s>>

....
Data stack: ( v1 n -- v2 )
....

"s>>" is a function word that shifts value v1 n steps right (i.e.
"moving" bits towards less significant bits) to form value v2, but
preserving (and copying) the sign bit.