+ WORD p_shift_right, '>>',fasm
+ ;; ( x1 n -- x2 )
+ ;; x2 is the result of shifting x1 one bit toward the
+ ;; least-significant bit, leaving the most-significant bit
+ ;; unchanged. (signed right shift)
+ pop rcx
+ shr qword [rsp],cl
+ next
+
+ WORD p_shift_signed_right, 's>>',fasm
+ ;; ( x1 n -- x2 )