Просмотр исходного кода

forth: take advantage of the new [] mode

pull/95/head
Virgil Dupras 4 лет назад
Родитель
Сommit
f40c14715e
2 измененных файлов: 10 добавлений и 2 удалений
  1. Двоичные данные
      emul/forth/z80c.bin
  2. +10
    -2
      forth/icore.fs

Двоичные данные
emul/forth/z80c.bin Просмотреть файл


+ 10
- 2
forth/icore.fs Просмотреть файл

@@ -29,13 +29,21 @@

This means, of course, that any word compiling a _c word
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
['] ROT
[
' ROT
6 - ( header )
['] _bend
' _bend
- ( our offset )
LITN
]
' ( get word )
-^ ( apply offset )
, ( write! )


Загрузка…
Отмена
Сохранить