Компилятор Би под Дубной

[vak]

Я затащил компилятор Би под мониторную систему Дубна. Сделал отдельную ленточку 7/b, на которой лежит бинарник компилятора и рантайм библиотека. Вот классический пример Hello World:

*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
    printf("Hello, B!*n");
}
*execute
*end file

Запускаем:

$ dubna b.dub
...
*NAME B COMPILER
*TAPE:7/*,40
*LIBRARY:40
*TRANS-MAIN:40020
                     OVERLAY OT  20/04/25
B COMPILER FOR BESM-6, VERSION 04/2025
COMPILED 3 LINES OF CODE, FOUND 0 ERRORS

*NO LIST
*CALL BLOCKERR
*MADLEN
 MAIN          CP 0.0,      ST 0.0,      RT     1.0*
*READ OLD
*EXECUTE
      *LIBRA:40 = B/DIV       B/EQ        B/GT        B/LT        B/MUL       B/NE        B/RET       B/SAVE0     B/SAVE
      B/TOUT      B/TRUE      CHAR        PRINTD      PRINTO      PRINTF      WRITE       WRITEB      OUT*CNT     OUT*SHFT
      OUT*BUFF    FLUSH       FOUT
≠
         MAIN       01000                PRINTD     01413                B/MUL      01757                ISOTCOSY   06002
         PROGRAM  E 01000                PRINTO     01466                B/GT       01766                ISOTCOS1 E 06053
         B/SAVE0    01011                WRITE      01517                FOUT       01771                DRUMTAP*   06073
         B/RET      01016                B/TRUE     01622                WRCARD     01772                CHKWORD* C 06124
         PRINTF     01023                OUT*CNT    01623                WRWORD   E 02014                PRINT8     06125
         B/SAVE     01256                OUT*SHFT   01624                WBEGIN   E 02033                STOP*      06306
         CHAR       01263                OUT*BUFF   01625                WRIEND   E 02042                EXIT     E 06307
         B/NE       01301                FLUSH      01654                B/TOUT     02075                CBOБOДHO   06335
         B/EQ       01304                B/LT       01744                WRWORD/  C 04000
         WRITEB     01307                B/DIV      01747                XWRITE/  C 06000
≠
HELLO, B!

Компилятор генерит ассемблерный код и пишет его на барабан, то есть временный файл фактически. И переключает мониторку на чтение этого барабана, как бы командой *READ:1. Вызывается Мадлен и превращает ассемблерный код в бинарные объектные модули.

Comments

[spamsink]

(закадровым голосом из "Пластилиновой вороны") А дальше?

[vak]

А дальше добавить вызов Би в besmc по расширению .b. На этом всё, я думаю.

[vak]

У меня возникла мысль. Ведь у нас есть компилятор Паскаля, переписанный на Си++. И в нём есть бэкенд, генерирующий бинарный модуль для WRITLIB*. Что если мы позаимствуем этот бэкенд и перепишем его на Би? Открываются интересные возможности.