NOT, duskos-based rename h0 > herestart hend > heremax

1 files changed, 13 insertions, 5 deletions

diff --git a/jefs.fs b/jefs.fs
index 0ab60d3..ea8f740 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -114,8 +114,9 @@ hex : ret,  c3 c, ; decimal
 hex
 variable rex
 variable modrm
+variable disp
 
-: asm$  0 rex ! c0 modrm ! ;
+: asm$  0 rex ! c0 modrm ! 0 disp ! ;
 
 : rex.w  rex @ 48 or rex ! ;
 : rex.r  rex @ 44 or rex ! ;
@@ -147,10 +148,11 @@ variable modrm
 : /2  modrm @ 10 or modrm ! ; : /3  modrm @ 18 or modrm ! ;
 : /4  modrm @ 20 or modrm ! ; : /5  modrm @ 28 or modrm ! ;
 : /6  modrm @ 30 or modrm ! ; : /7  modrm @ 38 or modrm ! ;
+: modrm,  ;
 
 \ TODO store and write the displacement if given
 : mod0  modrm @ 3f and modrm ! ;
-: d)  mod0 0<> if modrm @ 40 or modrm ! then ; \ disp8 or 0 only for now
+: d)  disp ! mod0 0<> if modrm @ 40 or modrm ! then ; \ disp8 or 0 only for now
 
 : mov,  rex, 8b c, modrm @ c, asm$ ;
 
@@ -161,6 +163,7 @@ variable modrm
 decimal
 \ }}}
 
+: not  0= ;
 : /  /mod swap drop ;
 : mod  /mod drop ;
 : negate  0 swap - ;
@@ -205,8 +208,9 @@ variable hld
 : ?  @ . ;
 : .s  sp cell+ ( skip sp itself ) begin dup s0 @ > while dup @ .qword cell+ repeat drop cr ;
 : .rs  rp cell+ ( skip rsp itself ) begin dup rs0 @ > while dup @ .qword cell+ repeat drop cr ;
-: bytes-allocated  hend @ h0 @ - ;
-: bytes-used  here @ h0 @ - ;
+
+: bytes-allocated  heremax @ herestart @ - ;
+: bytes-used  here @ herestart @ - ;
 : bytes-free  bytes-allocated bytes-used - ;
 : .free  bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ;
 
@@ -244,7 +248,7 @@ variable hld
 	endcase cr then ;
 \ }}}
 
-\ FILE I/O {{{
+\ I/O {{{
 0 constant stdin
 1 constant stdout
 2 constant stderr
@@ -263,6 +267,7 @@ make file-buffer file-buffer-length allot
 
 \ TODO error handling (0< abs → errno i think)
 \ flags are zero on success
+\ maybe there should be some sort of read buffering support here
 : open-file ( mode zstr -- ?fd flag )  0 -rot sysopen errno ;
 : close-file ( fd -- flag )  sysclose errno-flag ;
 : read-file ( c-addr u fd -- ?u flag )  >r swap r> sysread errno ;
@@ -270,6 +275,9 @@ make file-buffer file-buffer-length allot
 \ }}}
 
 \ INTERACTIVITY {{{
+\ i hate dealing with user input!!!
+\ but my idea is: when reading forth from a file,
+\ words are read into a buffer, and read from there.
 \ }}}
 
 .free