;; ( addr -- v )
;; Load the (unsigned) byte v from address addr.
pop rax
- mov bl,[rax]
- push 0
- mov [rsp],bl
+ xor rbx,rbx
+ mov bl,byte [rax]
+ push rbx
next
WORD p_Cput, 'C!',fasm
;; ( addr -- v )
;; Load the (unsigned) double-byte v from address addr.
pop rax
- mov bx,[rax]
- push 0
- mov word [rsp],bx
+ xor rbx,rbx
+ mov bx,word [rax]
+ push rbx
next
WORD p_Wput, 'W!',fasm
;; ( addr -- v )
;; Load the (unsigned) double-byte v from address addr.
pop rax
- mov ebx,[rax]
- push 0
- mov dword [rsp],ebx
+ xor rbx,rbx
+ mov ebx,dword [rax]
+ push rbx
next
WORD p_Dput, 'D!',fasm