Для начала выкладываю определения лок.слов
: LOC-VAR{ ( A -- ) 4 * ALLOT ;
: }LOC-VAR (А -- ) -4 * ALLOT ;
: L-VAR ( A -- ADR ) HERE SWAP 4 * - ;
Слова выше теперь просто выделяют и вычищают память.
: D-VAR 4 * HERE + ;Это слово, по сути, даёт ненадёжный адрес, в который можно что-то записать. Локальным не является, в принципе. Минус защита,
(
Read more... )