+ WORD p_shift_signed_right, 's>>',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
+ sar qword [rsp],cl
+ next
+
+ WORD p_get_n_increment,'@n++',fasm
+ ;; ( a n -- v )
+ ;; Fetch value at address then increment that address by n
+ pop rbx
+ pop rax
+ push qword [rax]
+ add qword [rax],rbx
+ next
+
+ WORD p_get_n_decrement,'@n--',fasm
+ ;; ( a n -- v )
+ ;; Fetch value at address then decrement that address by n
+ pop rbx
+ pop rax
+ push qword [rax]
+ sub qword [rax],rbx
+ next