+ WORD p_Wget, 'W@',fasm
+ ;; ( addr -- v )
+ ;; Load the (unsigned) double-byte v from address addr.
+ pop rax
+ xor rbx,rbx
+ mov bx,word [rax]
+ push rbx
+ next
+
+ WORD p_Wput, 'W!',fasm
+ ;; ( v addr -- )
+ ;; Store byte value v at address addr.
+ pop rax
+ pop rbx
+ mov word [rax], bx
+ next
+
+ WORD p_Dget, 'D@',fasm
+ ;; ( addr -- v )
+ ;; Load the (unsigned) double-byte v from address addr.
+ pop rax
+ xor rbx,rbx
+ mov ebx,dword [rax]
+ push rbx
+ next
+
+ WORD p_Dput, 'D!',fasm
+ ;; ( v addr -- )
+ ;; Store byte value v at address addr.
+ pop rax
+ pop rbx
+ mov dword [rax], ebx
+ next
+