yevrowl(14.10.2025)
Да, действительно ошибки возникают. Когда-то пробовал таким способом "набирать" текст программыМожно попробовать вставлять порциями по несколько строк. Или сохранить исходник в виде текстового файла с раширением BSC (например, - ну чтобы не спутать с BAS), закинуть его в образ дискеты .KDI, а в Бейсике загрузить с параметром A: LOAD "PRIMER1.BSC",A
Это Бейсик из ПЗУ, похоже. Он не умеет работать с дисками, нужен дисковый Бейсик.
Можно поискать на форуме образы дисков для Корвета, там много чего было.
yevrowl(14.10.2025)
Так и есть.
Да и для дискового команда была набрана неверно:
A: LOAD "BT.BAS", A
Нужно:
LOAD "BT.BAS", A
Да, KDI-образов много, софта разного прилично. Кстати, Бейсик дисковый есть и с командой DRAW и без.. И компилер попадался (вопрос был в теме по Васику). А вот "кушает" ли он исходники для интерпретатора - вопрос...
- - - Добавлено - - -
ПЗУ-шный умеет только с кассеты:
LOAD "CAS:BT.BAS", A
yevrowl(14.10.2025)
в архиве INFO.rar (https://zx-pk.ru/threads/2597-korvet...=1#post1139106) смешаны два набора файлов -- документация из МикС (1991 год):
BIOS.DOC -- ROM BIOS (2.1 от 02.1989) (точки входа, внутренние переменные)
FUNBDOS.DOC -- к CP/M 2.2
MYSCR.DOC -- описание управляющих последовательностей драйвера CONOUT в ROM BIOS
PK8020_2.DOC -- описание платформы ПК8020
и более старая:
BIOS.TXT -- ROM BIOS 03.1988
CPM.DOC -- к CP/M 2.1
PK8020.DOC -- описание платформы ПК8020 (1986), продублирован много где, например в https://emu80.org/docs/korvet_techinfo
другие тексты:
https://www.emuverse.ru/wiki/Корвет/BIOS -- "ОПИСАНИЕ БАЗОВОЙ СИСТЕМЫ ВВОДА-ВЫВОДА BIOS vers. 2.0" (речь о CP/M BIOS)
Код, опубликованный в тематической группе Telegram, и позволяющий отображать на экране одновременно 16 (8 в двух градациях яркости) цветов:
Код:100 CLS 110 PCLS 120 LOCATE , , 0 130 DIM P%(15) 140 FOR I = 0 TO 15 150 P%[I] = I 160 NEXT I 170 LUT P%(0) 180 FOR I = 0 TO 7 190 LINE (I * 32, 0) - (I * 32 + 31, 255), I, BF 200 LINE (256 + I * 32, 0) - (287 + I * 32, 255), I, BF 210 NEXT I 220 FOR Y = 0 TO 15 230 FOR X = 32 TO 63 240 POKE 64512! + Y * 64 + X, 191 250 NEXT X, Y 260 GOTO 260
÷)
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)