izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 16:38:05 +11:00
Code Issues Releases Wiki Activity

forth: take advantage of the new [] mode

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-27 15:33:04 -04:00
parent 684cb028ff
commit f40c14715e
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

12
forth/icore.fs
View File

@ -29,13 +29,21 @@
This means, of course, that any word compiling a _c word This means, of course, that any word compiling a _c word
can't be executed immediately. can't be executed immediately.
Also note that because of that "_c" mechanism, it might
take two rounds of bootstrapping before the compiled
z80c.bin file is "stabilized". That's because the 2nd time
around, the recorded offset will have changed.
) )
: _c : _c
['] ROT [
' ROT
6 - ( header ) 6 - ( header )
['] _bend ' _bend
- ( our offset ) - ( our offset )
LITN
]
' ( get word ) ' ( get word )
-^ ( apply offset ) -^ ( apply offset )
, ( write! ) , ( write! )