BASIC на Корвете

[Arix]

Если бы эта ошибка была всегда. А то, через раз. И это меня сильно пугает. Микродос - не Windows, Бейсик - не современная среда программирования на гигабайты, чему там глючить в 10 кб кода? Оно может или работать или не работать, либо всегда в одинаковых условиях выдавать один и тот же косяк. Я подозреваю аппаратные проблемы. Завтра включу его и, пока он холодный, позапускаю эти программы.

[AlexS58]

Если бы эта ошибка была всегда. А то, через раз. И это меня сильно пугает. Микродос - не Windows, Бейсик - не современная среда программирования на гигабайты, чему там глючить в 10 кб кода? Оно может или работать или не работать, либо всегда в одинаковых условиях выдавать один и тот же косяк. Я подозреваю аппаратные проблемы. Завтра включу его и, пока он холодный, позапускаю эти программы.

Тогда как же

В 1988-м Бейсике из-под СР/М всё нормально.

- - - Добавлено - - -

У меня ОПТС 1.1, а в эмуляторе 2.0.

В некоторых эмулях можно "собрать" конфигурацию похожую на Ваш реал и попробовать погонять софт в эмуле..

[Arix]

Тогда как же

Это обнадёживает. Запускал разные игрушки, в т.ч., из-под этого Микродоса, надолго оставлял комп включенным, всё нормально.
Я записал Микродос из образа mdos1_870430.kdi. В этой программе так же вылезает синтаксическая ошибка в строке 100. Пока эксперименты прекращаю, т.к. уезжаю в командировку.

[AlexS58]

Наткнулся:

Микродос датированый 1990-01-05

Он есть в \OS\DOS_LAYOUTS\microdos
mdos2_900105_START.kdi.idb
mdos2_900105_ROM1.kdi.idb
mdos2_900105_ROM2.kdi.idb

он сам по себе забавен, он работает и на ОПТС1 и на ОПТС2

и нашел: mdos_900105.7z (4 дискеты)
Бейсик в нем такой же как на дискетах mdos2_880630_1.kdi и CPM-80_000.kdi

Скрытый текст

[свернуть]

[AlexS58]

Тогда еще вопрос. Заметил, что PRINT CHR$(код) не умеет выводить символы ниже 32. Нашел другой способ их вывода - писать через POKE напрямую в память АЦЗУ код символа.
Например: POKE &HFC00,2 - выведет смайлик c кодом 2 в верхний левый угол.
Адреса методом тыка нашел следующие: от &HFC00 (64512) - верхний левый угол экрана до &HFFFF (65535) - правый нижний.

Может быть существует какой-нибудь штатный способ их отрисовки (символов ниже 32)?

PRINT CHR$(&H10);CHR$(2)

Скрытый текст

УПРАВЛЯЮЩИЕ			ДЕЙСТВИЕ
 СИМВОЛЫ:


01H,X,Y =>	Перемещение курсора в позицию с номером строки
		(x-20h) и номером столбца (y-20h)
04H =>		Стирание  символов от позиции курсора до конца
                экрана
07H =>		Выдача звукового сигнала
08H =>		Возврат курсора на одну позицию назад
0АH =>		Перемещение  курсора в начало следующей строки
                (с роллингом)
0BH =>		Удаление  строки,  на которой находится курсор
                (оставшиеся до конца экрана строки  сдвигаются
                вниз, последняя строка пропадает)
0CH =>		Перемещение  курсора  в  первую позицию первой
                строки экрана
0DH =>		Перемещение  курсора  в первую позицию текущей
                строки
10H,X =>	Символ  x  выводится  на  экран и не считается
                управляющим символом
15H =>		Стирание символов от позиции  курсора до конца
		строки
18H =>		Перемещение курсора вправо
19H =>		Перемещение курсора вверх
1AH =>		Перемещение курсора вниз
1CH =>		Вставка  пробела  на  место  курсора  (остаток
                строки  сдвигается  вправо,  последний  символ
                строки пропадает)
1DH =>		Удаление  символа  из позиции курсора (остаток
                строки сдвигается влево, в  последнюю  позицию
                строки заносится пробел)
1EH =>		Вставка   пустой   строки   на  место  курсора
                (оставшиеся до конца экрана строки  сдвигаются
                вверх,  на  место  последней  строки заносится
                пустая строка)
1FH =>		Очистка всего экрана

УПРАВЛЯЮЩИЕ			ДЕЙСТВИЕ
ПОСЛЕДОВА-
ТЕЛЬНОСТИ:

1BH,'0' =>	Включение     основного     набора    символов
                знакогенератора 
1BH,'1' =>	Включение   дополнительного   набора  символов
                знакогенератора
1BH,'2' =>	Включение нормальной ширины символов
1BH,'3' =>	Включение удвоенной ширины символов
1BH,'6' =>	Включение    режима   инверсного   отображения
                символов
1BH,'7' =>	Выключение   режима
                инверсного  отображения  символов
1BH,':' =>	Разрешение   отображения  курсора
1BH,';' =>	Запрет   отображения   курсора
1BH,'<' =>	Включение  режима  автоматического  перехода к
                новой  строке  экрана  по   достижению   конца
                текущей строки
1BH,'=' =>	Выключение  режима  автоматического перехода к
                новой  строке  экрана  по   достижению   конца
                текущей   строки   (переход   к  новой  строке
                выполняется только по управляющим символам)
1BH,'@' =>	Вставка  пробела  на  место  курсора  (остаток
                строки  сдвигается  вправо,  последний  символ
                строки пропадает)
1BH,'A' =>	Перемещение курсора вверх
1BH,'B' =>	Перемещение курсора вниз
1BH,'C' =>	Перемещение курсора вправо
1BH,'D' =>	Перемещение курсора влево
1BH,'E' =>	Очистка всего экрана
1BH,'F' =>	Перемещение курсора в начало следующей строки,
                а из последней строки экрана в первую
1BH,'G' =>	Перемещение курсора в начало текущей строки
1BH,'H' =>	Перемещение  курсора  в  первую позицию первой
                строки экрана
1BH,'J' =>	Стирание  символов от позиции курсора до конца
                экрана
1BH,'K' =>	Стирание  символов от позиции курсора до конца
                строки
1BH,'L' =>	Вставка   пустой   строки   на  место  курсора
                (оставшиеся до конца экрана строки  сдвигаются
                вниз, последняя строка пропадает)
1BH,'M' =>	Удаление  строки,  на которой находится курсор
                (оставшиеся до конца экрана строки  сдвигаются
                вверх,   на   место  последней  строки  экрана
                заносится пустая строка)
1BH,'P' =>	Удаление  символа  из позиции курсора (остаток
                строки сдвигается влево, в  последнюю  позицию
                строки заносится пробел)
1BH,'Y',X,Y =>	Перемещение курсора в позицию с номером строки
                (x-20h) и номером столбца (y-20h)

[свернуть]

Я к чему это вспомнил.. В нескольких темах периодически возникали вопросы по некоторым режимам. В основном поразрулили...
А обращали внимание на интерфейс Proffer Commander?
Очень интересно реализован. Главный экран - панельки - псевдографика в альтернативной кодировке (альтернативный знакогенератор), зато отображение справки по F1 корректно, просмотр того же файла справки (PROFFER.HLP) по F3 тоже корректно.
Текст в цвете, и это не графика (а может и ошибаюсь) - шибко шустро работает. С LUT хорошо заморочились...

Набросал пару тестов, переключающих режимы 32 или 64 символа. Сразу после загрузки системы запускать поочередно.
Modes.zip

[AlexS58]

Сообщение от ivagor:

В Бейсике 1.1 можно использовать POKE (в 2.0 они тоже сработают)
POKE&HFB3A,PEEK(&HFB3A)AND251 - основной знакогенератор
POKE&HFB3A,PEEK(&HFB3A)OR4 - альтернативный знакогенератор

Этим способом получилось. Очень интересно, как вы его нашли? Как нашли адрес в памяти и почему к нему применяются именно эти логические операции? Они накладывают какую-то определенную битовую маску? Действительно очень интересно.

В документации ч*рт ногу сломит... Даташиты писать не умели..

;    Системный регистр вместе с регистром цвета и
; цветовой таблицей (см. ниже) располагается в стра-
; нице, начальное смещение которой определяется па-
; раметром RGBASE, способным принимать одно из 4
; значений:

RGBASE1 EQU      3A00H  ; в TRS80 и ROMB2
RGBASE2 EQU     0FA00H  ; в ROMB1, ODOSA, NDOS и BASIC
RGBASE3 EQU     0FF00H  ; в DOSA и DOSG1
RGBASE4 EQU     0BF00H  ; в BASG

SYSREG  EQU     7FH     ; Относительный адрес
                        ; системного регистра

Ок, понятно, - регистры

; Адреса остальных регистров, представляющих собой
; порты периферийных БИС, сведены в одну страницу,
; начальный адрес которой PBASE может принимать одно
; из 3 значений:

PBASE1  EQU      3B00H  ; в TRS80 и ROMB2
PBASE2  EQU     0FB00H  ; в ROMB1, ODOSA, NDOS и BASIC
PBASE3  EQU     0FE00H  ; в DOSA и DOSG1

Тоже понятно, - порты

        ; КОНТРОЛЛЕР ОТОБРАЖЕНИЯ АЛФАВИТНО-ЦИФРОВОЙ ИНФОРМАЦИИ
.....................................................
VIBASE1 EQU      3C00H  ; Начальный адрес АЦЗУ в конфигурациях
                        ; TRS80 и ROMB2
VIBASE2 EQU     0FC00H  ; Начальный адрес АЦЗУ в конфигурациях
                        ; ROMB1, ODOSA, NDOS и BASIC

Тоже понятно..

А это как понимать???

VIREG   EQU     3AH  ; Относительный адрес регистра управления
                     ; отображением
VISTS   EQU     38H  ; Относительный адрес регистра состояния
                     ; атрибута видеоинверсии

Почему описаны как регистры? Они же в 0FB00H.

; Константы для работы с регистрами

ATRMSK  EQU     8  ; Маска атрибута видеоинверсии
VBLMSK  EQU     2  ; Маска кадрового гасящего импульса

FONT1   EQU     4       ; Выбор альтернативного набора
                        ; символов в знакогенераторе
LARGE   EQU     8       ; Режим отображения расширенных
                        ; символов (32 символа в строке)
ATRSET  EQU     10H     ; Установка бита атрибута
ATRRES  EQU     20H     ; Сброс бита атрибута
ATRFRE  EQU     30H     ; Сохранение состояния атрибута
                        ; и условие чтения атрибута

Свалили в кучу...

; Константы для работы с регистрами

ATRMSK  EQU     8  ; Маска атрибута видеоинверсии
VBLMSK  EQU     2  ; Маска кадрового гасящего импульса
ATRSET  EQU     10H     ; Установка бита атрибута
ATRRES  EQU     20H     ; Сброс бита атрибута
ATRFRE  EQU     30H     ; Сохранение состояния атрибута
                        ; и условие чтения атрибута

Это биты VISTS EQU 38H

FONT1   EQU     4       ; Выбор альтернативного набора
                        ; символов в знакогенераторе
LARGE   EQU     8       ; Режим отображения расширенных
                        ; символов (32 символа в строке)

А это биты VIREG EQU 3AH

Дальше

        ; КОНТРОЛЛЕР ОТОБРАЖЕНИЯ ГРАФИЧЕСКОЙ ИНФОРМАЦИИ
..................................
PAGREG  EQU     VIREG   ; Адрес регистра выбора страниц

VPAGE0  EQU  00000000B  ; Выбор 0 страницы отображения
VPAGE1  EQU  00000001B  ; Выбор 1 страницы отображения
VPAGE2  EQU  00000010B  ; Выбор 2 страницы отображения
VPAGE3  EQU  00000011B  ; Выбор 3 страницы отображения

RWPAG0  EQU  00000000B  ; Выбор 0 страницы чтения/записи
RWPAG1  EQU  01000000B  ; Выбор 1 страницы чтения/записи
RWPAG2  EQU  10000000B  ; Выбор 2 страницы чтения/записи
RWPAG3  EQU  11000000B  ; Выбор 3 страницы чтения/записи

О, АЦЗУ и ГЗУ конфигурится одним портом (PAGREG EQU VIREG)

LUT     EQU     0FBH    ; Адрес таблицы присвоения цветов
                        ; (относительный)

;  При записи в LUT биты D0...D3 задают номер одной из 16
; строк таблицы, а D4...D7 - содержимое этой строки.
; D3 соответствует АЦЗУ, D2 - слою ГЗУ #2, D1 - слою #1,
; D0 - слою #0;  D7 задает интенсивность (яркость),
; D6 - наличие красного цвета, D5 - зеленого цвета, D4 -
; синего цвета.

С этим разобрались.. более-менее.

[Advertiser]

[LeoN65816]

В документации ч*рт ногу сломит... Даташиты писать не умели..

Всё там правильно и доходчиво расписано.
Базовый адрес портов PBASE (зависит от выбранной конфигурации) плюс относительный адрес конкретного порта (смещение) и даёт абсолютный адрес порта (FB00H + 3AH = FB3AH).
Также и с регистрами: RGBASE (FA00H) + SYSREG (7FH) = FA7FH.

[AlexS58]

Также и с регистрами: RGBASE (FA00H) + SYSREG (7FH) = FA7FH.

Тут вопросов нет.

Базовый адрес портов PBASE (зависит от выбранной конфигурации) плюс относительный адрес конкретного порта (смещение) и даёт абсолютный адрес порта (FB00H + 3AH = FB3AH).

Ну и как сложить базовый адрес и смещение - тоже не высшая математика

VIREG   EQU     3AH  ; Относительный адрес регистра управления
                     ; отображением

А вот тут вопрос: Почему написано что это регистр, а не порт???

[bars_z]

Потому что VIREG -- это регистр управления отображением и он доступен через порт C PIA1. Вы можете получить побитовый доступ к регистру VIREG и через порт PIMC1 (3Bh) того же адаптера PIA1. Порт -- это канал связи с внешним устройством и в данном случае это параллельный интерфейс, к выходу порта C которого, в частности, подключен регистр управления отображением. как-то так.

[yevrowl]

Существуют ли компиляторы исходного кода на встроенном Бейсике?