Start of adding code word support.

This commit is contained in:
Brad Nelson
2022-09-04 16:58:11 -07:00
parent 17a8dbbf59
commit 8bed92bef9
9 changed files with 84 additions and 1 deletions

12
examples/code_x64.fs Normal file
View File

@ -0,0 +1,12 @@
#! /usr/bin/env ueforth
asm forth
code my2*
$48 code1, $89 code1, $f8 code1, ( mov %rdi, %rax )
$48 code1, $d1 code1, $27 code1, ( shlq [%rdi] )
$c3 code1, ( ret )
end-code
123 my2* . cr
bye