+ WORD p_Wget, 'W@',fasm
+ ;; ( addr -- v )
+ ;; Load the (unsigned) double-byte v from address addr.
+ pop rax
+ mov bx,[rax]
+ push 0
+ mov word [rsp],bx
+ 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
+ mov ebx,[rax]
+ push 0
+ mov dword [rsp],ebx
+ next
+
+ WORD p_Dput, 'D!',fasm
+ ;; ( v addr -- )
+ ;; Store byte value v at address addr.
+ pop rax
+ pop rbx
+ mov dword [rax], ebx
+ next
+