[an error occurred while processing this directive]
( ПРОДОЛЖЕНИЕ )
Ncase ? Оператор выбора альтернативы
Пример: 1 2 2 ncase my1 two one default
^ ^ ^ ^ ^ ^ ^
первый код------+ ! ! ! ! ! + по-умолч.
второй код--------+ ! ! ! +-для кода 1
число кодов----------+ ! +-для кода 2
+-имя переключателя
При выполнении слова My1:
Если в стеке число= 1, то будет исполнено
слово ONE
Если в стеке число= 2, то будет исполнено
слово TWO
Иначе будет исполнено слово DEFAULT
5.2.3 Библиoтека MEM
Alloc A Зарезервировать память для текущего ID
Формат обращения:
QBlocks ,
где QBlocks число запрашиваемых у системы
блоков по 8 кб.
Выход:
QAllocBlocks- число реально выделенных блоков
Bank5 C Адрес начала 5 банка( A000 )
Block5On V Адрес ячейки на подключения памяти к 5 банку
Free A Выйти из ЗАДАНИЯ и освободить всю память
FreeBlock A Освободить текущий блок памяти( он же и оста-
нется подключенным )
GetId A Взять на стек номер текущего ЗАДАНИЯ
GetMemBl A Взять на стек номер текущего блока памяти
MemLeft A Выдать на стек кол- во оставшейся памяти системы
в блоках
NoFree A Выйти из ЗАДАНИЯ и НЕ освобождать память
RestoreMem A Восстановить память после графики
SetMem A Установит на 5 банк нужную страницу памяти
SetVMem A Установка по номеру страницы графической станицы
( если страница была зарезервирована )
Пример: 1 setid 1 alloc ( Резервируем под гра-
( фику 1 страницу
nofree ( Выйдем из ID
0 MonoGrHi Screen
( Не делать ЭТОГО, пока не загружена
( библиотека GRAPHICS.FRL
( Графика теперь доступна
ПРИМЕЧАНИЕ: Графика включается ТОЛЬКО на время
действия графических команд!!!
5.2.4 Не вошедшие никуда слова
Load" F Применение: LOAD" EDITOR.FRT"( загрузка в память
редактора или можно еще что- нибудь )
ReadFile F Прочитать файл в память
Формат обращения:
FName MemAdr, где FName адрес строки-
имени файла, а MemAdr куда загрузить файл
WriteFile F Записать файл
Формат обращения:
MemAdr FType FName Flen, где FType тип файла,
FLen длина файла в блоках по 256 байт
[an error occurred while processing this directive]