push rax
next
+ WORD p_cfa2tfa,'CFA>TFA',fasm
+ ;; ( cfa -- tfa )
+ pop rax
+ cfa2tfa rax
+ push rax
+ next
+
WORD p_cfa2flags_get,'CFA>FLAGS@',fasm
;; ( cfa -- flags )
pop rax
mov byte [rax], bl
next
+ 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
+
WORD p_2get, '2@',fasm
;; ( addr -- v2 v1 )
;; Load the cell pair {v1,v2} from address addr.