execute, ?

1 files changed, 10 insertions, 5 deletions

diff --git a/jefs.fs b/jefs.fs
index b5d2cc2..1120bfd 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -10,9 +10,8 @@
 : nip  swap drop ;
 : tuck  swap over ;
 
-hex
-: ret,  c3 c, ;
-decimal
+\ https://wiki.osdev.org/X86-64_Instruction_Encoding Later™
+hex : ret,  c3 c, ; decimal
 
 : cells  8 * ;
 : allot  here @ swap here +! ;
@@ -23,12 +22,17 @@ decimal
 : literal  [compile] lit ; immediate
 : constant  create [compile] lit ret, ;
 : variable  1 cells allot create [compile] lit ret, ;
+: execute  [ hex
+	4d c, 8b c, 1e c, \ mov r11, [r14]
+	4d c, 8d c, 76 c, 08 c, \ lea r14, [r14+8]
+	41 c, ff c, d3 c, \ call r11
+	decimal ] ;
 
 \ TODO interpret mode strings?
 : s"  [ char " ] literal 1 >in +! ( skip spc ) [compile] litstring ; immediate
 : ."  [compile] s" ' say compile, ; immediate \ lol this word breaks the highlighting, here have another "
 
-\ forth83 (got them from pforth tho ehehe)
+\ jump helpers from forth83 (got them from pforth tho ehehe)
 \ < backward jump  > forward jump
 \ adding/subtracting 4 gets to the next instruction.
 : <mark  here @ ;
@@ -82,6 +86,7 @@ variable hld
 : (.qword)  hex <# # # # # # # # # # # # # # # # # #> decimal ;
 : .qword  (.qword) say space ;
 
-: .s sp 8 + ( skip sp itself ) begin dup s0 @ >= while dup @ .qword 8 + repeat drop cr ;
+: ?  @ . ;
+: .s  sp 8 + ( skip sp itself ) begin dup s0 @ >= while dup @ .qword 8 + repeat drop cr ;
 
 bye