Редактирование: BUFFER
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 89: | Строка 89: | ||
Экран номер 25 | Экран номер 25 | ||
( 31.03.86 +BUF BUFFER BLOCK EMPTY-BUFFERS UPDATE ) | ( 31.03.86 +BUF BUFFER BLOCK EMPTY-BUFFERS UPDATE ) | ||
: +BUF ( A1->A2,F) ПЕРЕЙТИ К СЛЕДУЮЩЕМУ БУФЕРУ В ПУЛЕ) | |||
: BUFFER ( +N->A) OFFSET @ + USE @ DUP >R ( ИЩЕМ СВОБОДНЫЙ БУФЕР) | : BUFFER ( +N->A) OFFSET @ + USE @ DUP >R ( ИЩЕМ СВОБОДНЫЙ БУФЕР) |