UNUSED

Материал из ПМК вики
Перейти к: навигация, поиск

UNUSED (байт свободно) — стандартное слово Каллисто.

UNUSED         ( −− U )                             Оценить количество свободных байт.

Оценить объём свободной байтовой памяти, доступной разработчику.

UNUSED в стандарте ANS Forth[править]

6.2.2395   UNUSED                                                      CORE EXT
           ( -- u )
           u - количество оставшегося пространства в области адресуемой HERE, 
           в адресуемых элементах.

Реализация[править]

В Каллисто 1.0 слово UNUSED вычисляет разницу между RP@ и PAD:

 515 ;#UNUSED
 516 ; UNUSED           ( −− U )                             Оценить количество свободных байт.
 517 LFREE:          .DB     6                       ; ( −− n)
 518                 .TEXT   "UNUSED"
 519                 .DW     LWARM
 520 FREE:           .DW CALL, RPAT,PAD,SUB, EXIT    ; Положить на стек количество свободных байт в словаре.

Положенное на стек число U отражает ситуацию, но не точно. При необходимости часть пересчитанных свободных байт будет использована Каллисто под стек возвратов, а также при вводе строки с клавиатуры.

Реализация из SP-Forth 4.20:

512 1024 * TO IMAGE-SIZE
0x8050000 CONSTANT IMAGE-START 
…
0x80000 VALUE IMAGE-SIZE
…
: UNUSED ( -- u ) \ 94 CORE EXT
\ u - объем памяти, оставшейся в области, адресуемой HERE,
\ в байтах.
  IMAGE-SIZE
  HERE IMAGE-BASE - -
;

Ссылки[править]


  Nopictures-icon.png У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.