Язык Basic V4.10 Орион-128 Пушкова, основы программирования, уроки языка
Как научиться владеть языком Basic V4.10 в Орион-128 и Орион-ПРО.
31.03.2023 обновление информации
Распределение памяти при работе в системе BASIC V4.10
Таблица соответствия клавиш и ключевых слов
Указанные ключевые слова формируются путем последовательного нажатия клавиши <АР2> и требуемой клавиши.
В данной таблице нажатие клавиши <УПР> для сокращения
обозначено через ^.
Особенности Basic V4.10 - Орион-128
Интерпретатор версии V4.10 отличается от V4.00 наличием нескольких новых операторов и функций, ориентированных в первую
очередь на создание и обработку последовательных (текстовых)
файлов данных.
Кроме того, предусмотрена возможность блокировки запуска внешнего Меню
при начальном старте интерпретатора: для этого надо нажать <F4> после вывода начальной заставки.
Устранена ошибка, проявляющаяся при возникновении ошибки 14
(переполнение строкового буфера) - вместо нее формировалась
ошибка 16 (слишком сложная строковая формула). Для устранения
этой ошибки в BASIC V4.00 необходимо занести код 0DH по адресу
0DEBH.
Новые операторы и функции BASIC V4.10:
LINE INPUT - чтение строки с клавиатуры;
EXIST - функция для определения наличия файла на диске;
LOF - функция для определения длины файла или границы файлов на диске;
EOF - функция для определения признака конца файла;
OPEN - открытие последовательного файла на чтение или запись;
CLOSE - закрытие последовательного файла (файлов);
INPUT# - чтение данных из последовательного файла;
LINE INPUT# - чтение строки из последовательного файла;
PRINT# - запись данных в последовательный файл;
VARPTR - функция для определения адреса размещения
данных в памяти.
1. ВВОД СТРОКИ С КЛАВИАТУРЫ
В интерпретаторе имеется оператор INPUT, вводящий данные с
клавиатуры. Однако, ввод строки символов, содержащей запятые,
кавычки (") и двоеточия, с помощью этого оператора невозможен.
Оператор LINE INPUT предназначен для ввода произвольной
строки символов с клавиатуры. В результате выполнения этого оператора вся последовательность символов, введенная после выдачи
подсказки и до нажатия клавиши <ВК>, становится значением указанной переменной.
Синтаксис:
LINE INPUT ["подсказка",] <переменная>
LINE INPUT ["подсказка";] <переменная>
2. ОПРЕДЕЛЕНИЕ НАЛИЧИЯ ФАЙЛА НА ДИСКЕ
Функция EXIST возвращает -1 (истина), если указанный файл
есть на диске, и 0 (ложь), если его нет.
Синтаксис:
EXIST("имя")
В интерпретаторе имеется аналогичная функция INP("имя"), однако предпочтительнее использовать EXIST.
3. ОПРЕДЕЛЕНИЕ РАЗМЕРА ФАЙЛОВ
Функция LOF возвращает длину файла, если ее аргументом является строка с именем файла, и границу файлов на диске, если аргументом является строка с именем диска и двоеточием.
Значения функции, превышающие величину 32767, представляются
в дополнительном коде. Для получения действительной длины при
отрицательном значении функции необходимо прибавить число 65536.
Синтаксис:
LOF("имя")
LOF("диск:")
4. ОБРАБОТКА ФАЙЛОВ ДАННЫХ
Файлы данных в BASIC "ORION" являются последовательными и
имеют текстовый формат, в котором каждая строка заканчивается
символом ВК (код 0DH), а в конце текста стоит байт 0FFH.
Данные в последовательном (текстовом) файле размещаются в
той последовательности, в которой поступают в файл. При чтении
такого файла данные становятся доступными в том порядке, в котором они были записаны.
Файл может находиться в одном из трех состояний: закрыт,
открыт на чтение, открыт на запись. Интерпретатор допускает открытие одновременно до двух файлов: одного на чтение и одного на
запись.
Открытие последовательного файла осуществляется оператором
OPEN, имеющим следующий синтаксис:
OPEN "имя",I - открытие файла на чтение;
OPEN "имя",O - открытие файла на запись.
Оператор CLOSE закрывает последовательный файл (файлы). Синтаксис:
CLOSE
4.1. СОЗДАНИЕ ПОСЛЕДОВАТЕЛЬНОГО ФАЙЛА
Для создания последовательного файла необходимо выполнить
следующие операции:
- открытие файла для последовательного вывода с помощью оператора OPEN в режиме "O";
- запись данных в файл с помощью оператора PRINT# ;
- закрытие файла оператором CLOSE .
Если файл уже существует, выполнение операции OPEN приведет
к возникновению ошибки с кодом 58. Для предотвращения такой
ошибки файл необходимо сначала удалить с помощью оператора KILL.
После открытия текстового файла на запись до его закрытия
запрещается использовать любые файловые операции, кроме CLOSE,
PRINT# (а также INPUT# и LINE INPUT# , если имеется файл, открытый на чтение). Попытка использовать операторы LOAD, MERGE,
SAVE, KILL, GET, PUT, FILES, RUN "имя", OPEN, LLIST, LPRINT и
функции EXIST, INP(имя), LOF вызовет ошибку с кодом 55. Такая
защита необходима для того, чтобы не нарушить работу подпрограммы OFILE (см. описание ORDOS), с помощью которой производится
запись на диск.
Оператор PRINT# может быть использован только в том случае,
если файл был открыт на запись. В противном случае возникает
ошибка с кодом 54.
Синтаксис оператора PRINT# полностью совпадает с синтаксисом
оператора PRINT. Данные записываются в текстовый файл также, как
и на экран, за исключением управляющих символов. Символы с кодами, меньшими 0DH, игнорируются, а символ с кодом 0FFH служит
признаком конца файла и записывается автоматически при выполнении оператора CLOSE (если в файл был выведен хотя бы один символ).
Если данные впоследствии будут считываться оператором
INPUT#, то для их разделения необходимо записывать в файл запятые или символы ВК, а если оператором LINE INPUT# - то только
ВК.
При переполнении диска, а также в случае любой другой ошибки или
остановке программы с выходом в непосредственный режим автоматически выполняется оператор CLOSE.
Рассмотрим пример программы записи данных в последовательный
файл с использованием функции LOF для контроля переполнения диска:
100 PRINT "*** ЗАПИСЬ В ФАЙЛ С КОНТРОЛЕМ ПЕРЕПОЛНЕНИЯ ***"
110 PRINT: F$="PROBA.TX": REM ЗДЕСЬ МОЖНО ЗАДАТЬ ИМЯ ДИСКА
120 IF EXIST(F$) THEN KILL F$
130 REM -- ОПРЕДЕЛЕНИЕ ЗАДАННОГО ВЫХОДНОГО ДИСКА --
140 REM ПОСЛЕ ЛЮБОЙ ФАЙЛОВОЙ ОПЕРАЦИИ УСТАНАВЛИВАЕТСЯ ДИСК,
150 REM УКАЗАННЫЙ В ИМЕНИ ФАЙЛА, ИЛИ ТЕКУЩИЙ ПО УМОЛЧАНИЮ :
160 D$=CHR$(USR(&BFD9))+":" :REM ФУНКЦИЯ ORDOS "RND"
170 IF D$="A:" THEN PRINT "DISK A: - R/O": END
180 REM -- ОПРЕДЕЛЕНИЕ СВОБОДНОГО ОБ'ЕМА ДИСКА --
190 H=&BFFF: IF D$<>"B:" THEN H=&EFFF: REM ГРАНИЦА ДИСКА
200 M=LOF(D$): REM ГРАНИЦА ФАЙЛОВ
210 V=H-M: IF V<0 THEN V=V+65536: REM СВОБОДНО НА ДИСКЕ
220 V=V-16: REM УЧЕТ РЕЗЕРВА ДЛЯ ОГЛАВЛЕНИЯ ФАЙЛА
230 V=V-16: REM УЧЕТ РЕЗЕРВА ДЛЯ СТОП-БАЙТА ДИСКА
240 V=V -1: REM УЧЕТ РЕЗЕРВА ДЛЯ БАЙТА КОНЦА ТЕКСТА
250 REM -- ОТКРЫТИЕ ФАЙЛА НА ЗАПИСЬ --
260 OPEN F$,O: I=0: REM СЧЕТЧИК ВЫВОДИМЫХ СИМВОЛОВ
270 S$="КОНТРОЛЬ ПЕРЕПОЛНЕНИЯ ДИСКА "+D$: REM СТРОКА
280 I=I+LEN(S$)+1: REM СУММАРНАЯ ДЛИНА С УЧЕТОМ <ВК>
290 IF I>V THEN 320: REM ДИСК БУДЕТ ЗАПОЛНЕН
300 PRINT# S$: REM ЗАПИСЬ ОЧЕРЕДНОЙ СТРОКИ С <ВК> В КОНЦЕ
310 PRINT "."; : GOTO 280: REM ОТОБРАЖЕНИЕ ХОДА ЗАПИСИ
320 CLOSE: PRINT
330 PRINT "ПЕРЕПОЛНЕНИЕ ДИСКА ";D$;" НА";I-V;"БАЙТ !"
340 END
Пример программы, создающей последовательный файл на основании данных, вводимых с клавиатуры:
100 REM -- СОЗДАНИЕ ПОСЛЕДОВАТЕЛЬНОГО ФАЙЛА --
110 FO$="LIST.DT": IF EXIST(FO$) THEN KILL FO$
120 OPEN FO$,O: CLS: I=1
130 PRINT "ВВЕДИТЕ ДАННЫЕ О";I;CHR$(8);"-М СОТРУДНИКЕ"
140 LINE INPUT "ФАМИЛИЯ, ИМЯ, ОТЧЕСТВО: ",N$
150 IF LEN(N$)=0 THEN 200: REM ОТКАЗ ОТ ВВОДА
160 LINE INPUT "ДОЛЖНОСТЬ: ",J$
170 INPUT "ВОЗРАСТ, СТАЖ РАБОТЫ: ",A,B
180 PRINT# N$: PRINT# J$: PRINT# A;",";B
190 PRINT: I=I+1: GOTO 130
200 CLOSE
4.2. ОБРАБОТКА ПОСЛЕДОВАТЕЛЬНОГО ФАЙЛА
Типичная программа обработки последовательного файла включает следующие шаги:
- открытие файла для последовательного ввода с помощью оператора OPEN в режиме "I";
- чтение данных из файла с помощью операторов INPUT# и LINE
INPUT# ;
- закрытие файла оператором CLOSE .
Если при выполнении оператора OPEN файл с указанным именем
не будет найден, возникнет ошибка с кодом 53.
После открытия файла на чтение допускаются все файловые операции, кроме KILL. Закрытие файла с помощью CLOSE необязательно.
Если необходима работа одновременно с двумя файлами, то сначала
необходимо открыть файл на чтение, а потом на запись. Оператор
CLOSE в конце записи закроет оба файла.
Как правило, при обработке последовательного файла необходимо предусмотреть проверку конца файла. Такая проверка выполняется с помощью функции EOF.
Попытка прочесть данные после возникновения ситуации "конец файла" приведет к ошибке с кодом 62.
Синтаксис:
EOF(1)
Для ввода данных из файла предусмотрены операторы INPUT# и
LINE INPUT#.
Синтаксис:
INPUT# переменная [,переменная]...
LINE INPUT# переменная [,переменная]...
Оператор INPUT# воспринимает данные так же, как и оператор
INPUT. Тип вводимых данных должен соответствовать типу переменной. Элементы данных должны располагаться в файле в такой же
последовательности, в какой они появлялись бы в случае ввода с
клавиатуры. При вводе числовых данных все пробелы игнорируются,
а концом числа считается запятая или символ ВК. Если интерпретатор считывает строку символов, и ее первым символом являются кавычки ("), то в состав строки входят все символы до следующих
кавычек. Если первый символ строки отличен от кавычек, то строка
будет заканчиваться с появлением запятой, двоеточия, символа ВК
или признака конца файла 0FFH, а также если будет прочитано 253
символа.
Оператор LINE INPUT# предназначен для чтения из файла строки
символов аналогично оператору LINE INPUT. Он выполняет чтение
данных до тех пор, пока не будет встречен символ ВК, конец файла, или длина строки не достигнет 253 символов.
Не допускается использовать операторы INPUT#, LINE INPUT# и
функцию EOF, если файл не открыт на чтение. Невыполнение этого
условия приведет к ошибке с кодом 54.
Пример программы обработки последовательного файла, созданного предыдущей программой:
300 REM ОБРАБОТКА ПОСЛЕДОВАТЕЛЬНОГО ФАЙЛА
310 FI$="LIST.DT": IF NOT EXIST(FI$) THEN END
320 OPEN FI$,I: CLS: I=1
330 PRINT "-- ДАННЫЕ О";I;CHR$(8);"-М СОТРУДНИКЕ --"
340 IF EOF(1) THEN 400
350 LINE INPUT# N$,J$: INPUT# A,B
360 PRINT "ФАМИЛИЯ, ИМЯ, ОТЧЕСТВО: ";N$
370 PRINT "ДОЛЖНОСТЬ: ";J$
380 PRINT "ВОЗРАСТ: ";A;" СТАЖ РАБОТЫ: ";B
390 PRINT: I=I+1: GOTO 330
400 CLOSE
Таким образом, имеется возможность создания простых баз данных и обмена данными между программами.
5. ОПРЕДЕЛЕНИЕ АДРЕСОВ РАЗМЕЩЕНИЯ ДАННЫХ В ПАМЯТИ
Функция VARPTR возвращает адрес размещения указанной переменной.
Синтаксис:
VARPTR(переменная)
Значения адресов, больших 32767 (&7FFFH), представляются в
дополнительном коде. Результаты функции VARPTR могут использоваться для копирования и преобразования данных программой на
Бейсике или подпрограммами в машинных кодах.
Рассмотрим особенности размещения данных в памяти.
Переменные располагаются сразу за текстом программы в виде
двух таблиц: таблицы неиндексированных переменных (назовем ее
таблицей идентификаторов) и следующей за ней таблицы массивов.
На каждую переменную в таблице идентификаторов выделяется по
6 байт: 2 байта для хранения ее имени и 4 байта - для значения,
а на каждый элемент массива - по 4 байта для хранения значения. Значения
числовых переменных представляются в двоичном формате с плавающей запятой:
1 байт - младший байт мантиссы
2 байт - средний байт мантиссы
3 байт - старший байт мантиссы со знаковым разрядом
4 байт - смещенный порядок числа
и определяются следующим образом:
0.мантисса * 2 ^ (смещенный порядок-80H)
Смещение порядка на величину +80H во внутреннем представлении чисел используется для того, чтобы при их обработке избежать
операций с отрицательными порядками. Если байт смещенного порядка равен 00H, то значение числа считается нулевым.
Число представляется в нормализованной форме, т.е. старший
бит мантиссы всегда равен 1. Это обстоятельство используется для
хранения знака числа - он записывается вместо старшего бита мантиссы, причем 0 соответствует знаку плюс, 1 - знаку минус.
Примеры плавающего формата некоторых чисел:
0 00 00 00 00
0.5 00 00 00 80
1 00 00 00 81
2 00 00 00 82
0.25 00 00 00 7F
-1 00 00 80 81
0.1 CD CC 4C 7D
Для каждой строковой переменной (элемента массива) в таблице
также выделяется 6 байт, но там хранится указатель строки:
1 байт - длина строки
2 байт - 00H
3 байт - младший байт адреса начала строки
4 байт - старший байт адреса начала строки
Выделение места в таблице идентификаторов (массивов) для
переменной происходит при первом обращении к ней. Если значение
переменной еще не определено, то в таблицу заносится 4 нулевых
байта как для числовых, так и для строковых переменных.
При выполнении операции присваивания значения строковой переменной адрес строки определяется следующим образом. Если строка находится в тексте программы (например: 10 A$="СТРОКА" ), то
в указатель строки заносится адрес, соответствующий ее началу в
тексте. Если же строка вводится с клавиатуры или вычисляется в
процессе выполнения программы (например: A$=A$+"*"), то предварительно для нее выделяется место в буфере символьных строк, где
она и размещается. В этом случае в указатель строки записывается
ее адрес в буфере.
Действие функции VARPTR зависит от типа переменной. Для числовой переменной VARPTR возвращает адрес младшего байта мантиссы, при этом, если переменная еще не встречалась, то она размещается в таблице.
Следует помнить, что таблица массивов располагается следом
за таблицей идентификаторов, поэтому появление в таблице идентификаторов новой переменной вызовет изменение адресов размещения
массивов.
Для строковой переменной VARPTR возвращает действительный
адрес начала строки в памяти, а не адрес ее указателя в таблице.
При этом, если строковая переменная в таблице отсутствует, происходит выдача сообщения об ошибке, так как адрес начала строки
не определен.
Ниже приводится пример программы, осуществляющей одновременно чтение и запись для преобразования текстового файла из альтернативной кодировки в КОИ-7. Для определения адреса строки,
считанной из файла, с целью ее посимвольной обработки используется функция VARPTR.
10 CLS: PRINT "*** ПЕРЕКОДИРОВКА ТЕКСТА ALT -> КОИ-7 ***"
20 PRINT "WAIT!";: REM ФОРМИРОВАНИЕ МАССИВА ПЕРЕКОДИРОВКИ
30 DIM T(255): RESTORE 120: FOR I=0 TO 255
40 IF I>&AF AND I<&E0 OR I>&EF THEN T(I)=&20: GOTO 110
50 IF I=&A0 THEN RESTORE 120: GOTO 100
60 IF I=&E0 THEN RESTORE 140: GOTO 100
70 IF I<&60 THEN T(I)=I: GOTO 110
80 IF I=&60 THEN T(I)=&27: GOTO 110
90 IF I<&80 THEN T(I)=I-&20: GOTO 110
100 READ T(I)
110 NEXT: PRINT CHR$(13);" "
120 DATA &61, &62, &77, &67, &64, &65, &76, &7A
130 DATA &69, &6A, &6B, &6C, &6D, &6E, &6F, &70
140 DATA &72, &73, &74, &75, &66, &68, &63, &7E
150 DATA &7B, &7D, &27, &79, &78, &7C, &60, &71
160 REM -- ВЫБОР ИМЕН ФАЙЛОВ --
170 LINE INPUT "ВВЕДИТЕ ИМЯ ИСХОДНОГО ФАЙЛА: ",FI$
180 IF LEN(FI$)_=0 THEN END:ELSE IF LEN(FI$)>10 THEN 170
190 IF EXIST(FI$) THEN 210
200 PRINT "ФАЙЛ ";FI$;" НЕ НАЙДЕН !": GOTO 170
210 LINE INPUT "ВВЕДИТЕ ИМЯ ВЫХОДНОГО ФАЙЛА: ",FO$
220 IF LEN(FO$)=0 THEN END:ELSE IF LEN(FO$)>10 THEN 210
230 IF NOT EXIST(FO$) THEN 280
240 PRINT "ФАЙЛ ";FO$;" СУЩЕСТВУЕТ! ПЕРЕПИСАТЬ ? (Y/N): ";
250 A=INP(0): IF A<>&59 AND A<>&79 THEN PRINT "N": GOTO 210
260 PRINT "Y": KILL FO$
270 REM -- ОТКРЫТИЕ ФАЙЛОВ --
280 OPEN FI$,I: OPEN FO$,O: CLS
290 REM -- ЧТЕНИЕ СТРОКИ ИСХОДНОГО ФАЙЛА --
300 IF EOF(1) THEN 380: ELSE LINE INPUT# S$
310 IF LEN(S$)=0 THEN 370
320 REM -- ПЕРЕКОДИРОВКА СТРОКИ --
330 A=VARPTR(S$): REM АДРЕС НАЧАЛА СТРОКИ
340 FOR I=A TO A+LEN(S$)-1
350 POKE I,T(PEEK(I)): NEXT
360 REM -- ЗАПИСЬ СТРОКИ В ВЫХОДНОЙ ФАЙЛ --
370 PRINT# S$: PRINT S$: GOTO 300
380 CLOSE: END
6. КОДЫ ОШИБОК, также читаем сдесь
Ниже приводится перечень ошибок обработки файлов (значком
"*" отмечены вновь введенные ошибки):
53 Файл не найден
* 54 Неправильный режим файла
* 55 Файл уже открыт
58 Файл уже существует
61 Диск заполнен
* 62 Чтение после конца файла
64 Неверное имя файла
66 Непосредственный оператор в файле
70 Только чтение
Файл подготовлен Пушковым
4. Версия Пушкова V4.10 под ОР ДОС работает с процессором ВМ80 и Z80
5. Версия для CP/M-80
6. BASIC MSX, работает на Z80 под Ор Дос, смотреть описание, и скачать
Осваиваем микрокомпьютер интересная книга в 2-х томах по программированию на бэйсике от А до Я
Осваиваем микрокомпьютер К-1 Б.Р.Смит 1989 скачать часть 1-я
Осваиваем микрокомпьютер К-1 Б.Р.Смит 1989 скачать часть 2-я
|
Байсик Орион назначение клавиш при нажатии АР2 (ESC) F2 – уничтожение символа в позиции курсора (сдвиг влево правой части от курсора) F1 - LIST, F3 - RUN, УГОЛ (HOME) - EDIT, CTP - CLS В данной таблице нажатие клавиши <УПР> для сокращения обозначено через ^.
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Программирование микропроцессорных комплектов i8080, 580вм80, z80, i8085, 1810, 1824
Орион-128 описание команд микропроцессора к580вм80 (Орион-Софт)
На предыдущую страницу На главную страницу На следующую страницу