Родословная бейсиков для 580ВМ80

Некий XYBASIC для CP/M с исходниками, но не Digital Research. Там даже поддержка amd9511 есть.

Да, это оно и есть.
Вот кусок оригинала:

Код:

---

gtpar:        call        gtcnd                ;look for comma not followed by delimiter
        mvi        a,0
        rc                        ;no more parameters, return 0
        mvi        d,multt
        call        gtd                ;look for *
        jnc        gtpa1                ;array passed
        call        gtvar                ;else var ref
        lxi        b,0                ;# dims = 0 to C
        push        b                ;push 0 for DE
        jnc        gtpa2                ;and continue below
mcerr:        error        f, M, C                ;fatal MC error
gtpa1:        call        fdvar                ;look for var name
        jc        mcerr
        ldax        d                ;fetch type
        mov        c,m                ;# dims to C
        mvi        b,0                ;to allow dad
        inx        h                ;point to first dim byte
        push        h                ;and save
        dad        b
        dad        b                ;point to first data byte
gtpa2:        call        bytsd                ;bytes per entry to DE
        mov        b,e                ;and then to B
        pop        d                ;dim addr to DE

---

А вот из моих исходников:

Код:

---

PARCALL:CALL        L2069
        MVI        A,0
        RC
        MVI        D,0C3H
        CALL        L2072
        JNC        L05FB
        CALL        L2287
        LXI        B,0
        PUSH        B
        JNC        L0609
MCERR:        CALL        ERMSGC
        DB        'Нет перемен.',0
L05FB:        CALL        FINDVAR
        JC        MCERR
        LDAX        D
        MOV        C,M
        MVI        B,0
        INX        H
        PUSH        H
        DAD        B
        DAD        B
L0609:        CALL        L0364
        MOV        B,E
        POP        D

---

Но мне оно досталось уже переработанное, были добавлены несколько графических операторов (токены новых команд двухбайтные, одним оператором пожертвовали ради префикса).

Цитата:

---

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

Некий XYBASIC для CP/M с исходниками, но не Digital Research. Там даже поддержка amd9511 есть.

---

Интересно, что исходники достали с 8-ми дюймовых дискет в мае 2014, то есть в этом месяце. Свежак! :)

В завершение темы про отличие процедуры INTFROMFLOAT (векторовское название) в микронах и немикронах. Наверно стоит все же озвучить более корректный комментарий, что в домикронах это не ошибка, а просто особенность - в них эта процедура пропустит от -32768 до 32767, а в микронах -65535 до 65535.

---------- Post added at 17:34 ---------- Previous post was at 17:31 ----------

Цитата:

---

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

Насколько помню про эту ошибку - основная правка там где-то дальше, но сейчас без иды детально все вспоминать (вернее разбираться по новой) моральных сил мне не хватит.

---

Основная правка все же как раз cpi 91h вместо cpi 90h

Цитата:

---

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

Стоит дополнить про PRINTPEEK(32768) - микрософтовцы в более поздних версиях тоже поправили ошибку с подобными случаями

---

Уточню, что микрософтовцы не правили "ту" процедуру, а добавили отдельную (смотрел на примере векторовской адаптации корветовского бейсика).

Еще уточнение: "граница раздела" по использованию/неиспользованию в микрософтовских бейсиках процедуры с fe 90 da для 16битных целых зависит не от номера версии, а от варианта:
1. в 8k (наибольший номер, который смотрел - 4.7) - да
2. в extended (наименьший номер, который смотрел - 4.0) - нет.

XYBASIC for Process Control, Data Acquisition and Real Time Applications with 8080-based Computers
?
и где взять 9511?

Цитата:

---

Сообщение от zx_

и где взять 9511?

---

"I adapted XYBASIC to use it if present (using self-modifying code!)."
Нету - и фиг с ним, без него работать будет.

Наверно я не разобрался, но там в исходниках для 9511 стоит условная компиляция, т.е. с 9511 отдельная версия.

Цитата:

---

Сообщение от DDp

Да, даже в журнале упоминали: Осторожно Бейсик "Микрон" Радио №4 1990, стр.44
Видимо, в статье имеется в виду BS_M_OLD.RKR - говорит, что *МИКРОН*, промт "ЖДУ:". Второй пилот-тон (между заголовком и осн.блоком) двухтональный, сначала низкий тон, затем высокий (в журнальном "Микроне" только низкий). В конце дампа надпись: РАЗРАБОТАН ДЛЯ *МИКРО/80* И АДАПТИРОВАН ДЛЯ *Р-86РК* ДЛЯ ЖУРНАЛА "РАДИО" БАРЧУКОВЫМ В.Н. И ФАДЕЕВЫМ Е.П. 1986 Г.

---

Здесь (01 BASIC MIKRON (ENG).rkr) точно такой же бейсик, но английскими сообщениями. Надписи "РАЗРАБОТАН ДЛЯ..." нет.

Плюс нахлабучка "Бейсик-RENUM" то же с англискими сообщениями. При запуске бейсика копируется в верхние адреса. Запуск из монитора: G7000.

ЗдОрово, обожаю бейсики.