![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
vakКомпилируем, запускаем.про главная() нч
печать(«Привет, Мир!\н»);
кц
$ хуяк комп примеры/01-привет.хуя
$ ./примеры/01-привет
Привет, Мир!
vakappend_path() {
local dir="$1"
if [[ -d "$dir" ]]; then
if [[ -d "$dir" && ":$PATH:" != *":$dir:"* ]]; then
export PATH="$PATH:$dir"
fi
fi
}
prepend_path() {
local dir="$1"
if [[ -d "$dir" ]]; then
if [[ -d "$dir" && ":$PATH:" != *":$dir:"* ]]; then
export PATH="$dir:$PATH"
fi
fi
}
remove_path() {
local dir="$1"
if [[ ":$PATH:" == *":$dir:"* ]]; then
local new_path=":$PATH:"
new_path="${new_path//:$dir:/:}"
new_path="${new_path#:}"
export PATH="${new_path%:}"
fi
}
remove_path /usr/games
remove_path /usr/local/games
remove_path .
append_path /usr/sbin
append_path /usr/bin
append_path /snap/bin
prepend_path /usr/local/bin
prepend_path /usr/local/sbin
prepend_path $HOME/.local/bin
vakЗапускаем. Я не стал убирать таблицу загрузки, чтобы вам было видно размер кода:*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
printf("Hello, B!*n");
}
*execute
*end file
Вот ещё несколько примеров для Би из разных мест. Все они работают под Дубной:$ dubna hello.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!
vak
main() {
auto cx, cy, x, y, x2, y2;
auto iter;
auto xmin, xmax, ymin, ymax, maxiter, dx, dy;
xmin = -8601;
xmax = 2867;
ymin = -4915;
ymax = 4915;
maxiter = 32;
dx = (xmax - xmin) / 79;
dy = (ymax - ymin) / 24;
cy = ymin;
while (cy <= ymax) {
cx = xmin;
while (cx <= xmax) {
x = 0;
y = 0;
x2 = 0;
y2 = 0;
iter = 0;
while (iter < maxiter) {
if (x2 + y2 > 16384)
goto next;
y = ((x * y) / 2048) + cy;
x = x2 - y2 + cx;
x2 = (x * x) / 4096;
y2 = (y * y) / 4096;
iter++;
}
next:
write(' ' + iter);
cx = cx + dx;
}
write('*n');
cy = cy + dy;
}
return(0);
}
$ dubna mandelbrot.dub
...
!!!!!!!!!!!!!!!"""""""""""""####################################""""""""""""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$$%'+)%%%$$$$$#####"""""""""""
!!!!!!!!!!!"""""""#######################$$$$$$$$%%%&&(+,)++&%$$$$$$######""""""
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*5:/+('&%%$$$$$$#######"""
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''),@@@@@@@,'&%%%%%$$$$########
!!!!!!!"""####################$$$$$$$$%%%&'())((())*,@@@@@@/+))('&&&&)'%$$######
!!!!!!""###################$$$$$%%%%%%&&&'+.@@=/<@@@@@@@@@@@@@@@/++@..93%%$#####
!!!!!"################$$$%%%%%%%%%%&&&&'),+2@@@@@@@@@@@@@@@@@@@@@@@@@1(&&%$$####
!!!!"##########$$$$$%%&(-(''''''''''''(*,5@@@@@@@@@@@@@@@@@@@@@@@@@@@@+)-&%$$###
!!!!####$$$$$$$$%%%%%&'(*-@1.+.@-4+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4-(&%$$$##
!!!!#$$$$$$$$$%%%%%%'''++.6@@@@@@@@@8/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3(%%$$$$#
!!!#$$$$$$$%&&&&''()/-5.5@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?'&%%$$$$#
!!!(**+/+<523/80/46@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+)'&&%%$$$$#
!!!#$$$$$$$%&&&&''().-2.@@@@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'&%%$$$$#
!!!!#$$$$$$$$$%%%%%&'''/,.7@@@@@@@@@;/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0'%%$$$$#
!!!!####$$$$$$$$%%%%%&'(*-:2.,/?-5+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+(&%$$$##
!!!!"##########$$$$$%%&(-(''''(''''''((*,4@@@@@@@@@@@@@@@@@@@@@@@@@@@4+).&%$$###
!!!!!"################$$$%%%%%%%%%%&&&&')<,4@@@@@@@@@@@@@@@@@@@@@@@@@/('&%%$####
!!!!!!""##################$$$$$$%%%%%%&&&'*.@@@0@@@@@@@@@@@@@@@@1,,@//9)%%$#####
!!!!!!!"""####################$$$$$$$$%%%&(())((()**-@@@@@@/+)))'&&&')'%$$######
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''(,@@@@@@@+'&&%%%%%$$$########
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*7@0+('&%%%$$$$$#######"""
!!!!!!!!!!!"""""""######################$$$$$$$$$%%%&&(+-).*&%$$$$$$######""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$%%'3(%%%$$$$$######""""""""""
!!!!!!!!!!!!!!!""""""""""""#####################################""""""""""""""""
vakЗапускаем:*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
printf("Hello, B!*n");
}
*execute
*end file
Компилятор генерит ассемблерный код и пишет его на барабан, то есть временный файл фактически. И переключает мониторку на чтение этого барабана, как бы командой *READ:1. Вызывается Мадлен и превращает ассемблерный код в бинарные объектные модули.$ 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!
kondybasvakvak writeb: ,name,
12 ,base,*
c
c Append one byte to output buffer.
c
b/output:lc,block, w_count, b_shift, buffer(22)
c
flush: ,subp,
,aax, =377
,aex, =12 . compare to linefeed
,uza, flush
,aex, =12
c
,utc, w_count
,xts,
,aex, =26 . 22 words
,u1a, putchar
,ita, 13
,its,
,call, flush
,sti,
,ati, 13
c
putchar: ,bss, . append byte to buffer
,sti,
11 ,vtm, b/output
11 ,wtc, 1 . b_shift
,asn, 64-40 . shift left
11 ,wtc, 0 . w_count
11 ,aox, 2 . read word from buffer
11 ,wtc, 0 . w_count
11 ,atx, 2 . write word to buffer
c
11 ,xta, 1 . b_shift
,aex, =50
,uza, next_w
,aex, =50
,arx, =10 . increase shift
11 ,atx, 1 . b_shift
13 ,uj,
c
next_w: ,bss, . advance to next word
11 ,atx, 1 . clear b_shift
11 ,xta, 0 . w_count
,arx, =1 . increment word count
11 ,atx, 0 . w_count
13 ,uj,
,end,
/*
* Append one byte to output buffer.
*/
writeb(b) {
extrn out_cnt, out_shft, out_buff;
auto p;
b = b & 0377;
if (b == '*n') {
flush();
return;
}
if (out_cnt == 22) {
flush();
}
p = &out_buff[out_cnt];
*p = *p | (b << (40 - out_shft));
if (out_shft == 40) {
/* next word */
out_shft = 0;
++out_cnt;
} else {
/* next byte */
out_shft = out_shft + 8;
}
}
out_cnt;
out_shft;
out_buff[22];
vak
vakЭто код функции negate().$ diff bbesm.madlen bbesm2.madlen
5185c5185
< ,XTS,=37777777777777
---
> ,XTS,=50000000000001
negate(n) {
return (-n & 037777777777777);
}
Так что не верьте ни китайцам, ни Трампу. Их главное стремление - впарить. Судя по маркировке на нижней стороне, взяли самые дешёвые тайваньские карточки и перешили идентификатор, чтобы завысить ёмкость.Data OK: 7.97 GB (16722999 sectors) Data LOST: 54.51 GB (114320874 sectors) Corrupted: 54.51 GB (114320874 sectors) Slightly changed: 0.00 Byte (0 sectors) Overwritten: 0.00 Byte (0 sectors) Average reading speed: 16.38 MB/s
vakvakvak
main() {
auto ch;
while (ch = read()) {
write(ch);
}
}Компилируем в бинарник для БЭСМ-6. Линкуем с рантайм библиотекой Би.$ bbesm < cat.b > cat.madlen
$ cat cat.madlen
main:8,name,
program:,entry,
main:,bss,
b/save0:,subp,
b/ret:,subp,
,its,13
,call,b/save0
15,utm,1
/0:,bss,
7,utc,0
14,vtm,
,ita,14
read:,subp,
14,vtm,read
,its,14
,ati,14
14,utc,
13,vjm,
15,wtc,
,atx,
,uza,/1
write:,subp,
14,vtm,write
,ita,14
7,utc,0
14,vtm,
,its,14
,ati,14
14,xta,
14,vtm,-1
15,wtc,
13,vjm,
,uj,/0
/1:,bss,
,uj, b/ret
,end,
Запустим и подадим на вход собственный исходный код:$ besmc cat.madlen libb.obj
Всё перекодировалось в КОИ-7 по ходу. Это специфика мониторной системы Дубна, никуда не денешься. Ведь мы используем её механизм формирования входного потока программы.$ ./cat.exe < cat.b
MAIN() [
AUTO CH;
WHILE (CH = READ()) [
WRITE(CH);
]
]
vak
MAIN 01000 B/SAVE 06222
PROGRAM E 01000 NAME 06226
B/SAVE0 01022 GEN*SUBP 06266
B/RET 01026 GEN*RVAL 06313
SYMTAB 01032 WRITEB 06350
EOF 02163 PRINTN 06376
NS 02164 NERROR 06432
B/NOT 02165 PRINTF 06433
EXTDEF 02170 ACC*ACTI 06702
BLKEND 02760 EXPR 06703
B/TRUE 02771 GEN*GOTO 10373
PEEKSYM 02772 PEXPR 10430
CSYM 02773 JUMPC 10466
CVAL 02774 JUMP 10511
NAUTO 02775 LABEL 10534
NPARAM 02776 READ* 10557
RETFLAG 02777 MAPCH 10605
SYMBOL 03000 IS*LVALU 10764
B/EQ 03632 B/OUTPUT C 10765
B/NE 03635 FLUSH 11015
GEN*PROL 03640 B/DIV 11031
GEN*ENTR 03700 B/MOD 11041
DECLARE 04013 CHAR 11054
GEN*BSAV 04215 PRINTD 11072
B/LT 04331 GEN*CONS 11144
B/GT 04334 GEN*STRI 11206
GEN*STAC 04337 GEN*AUTO 11264
STMTLIST 04362 GEN*PARA 11351
GEN*BRET 04422 GEN*EXTR 11436
GEN*EPIL 04443 GEN*INTE 11515
NEGATE 04461 GEN*HELP 11573
WRITE 04470 ASSERT*L 11622
PRINTO 04503 GEN*ASSI 11654
NUMBER 04532 GEN*LSHI 11676
ERROR 04561 GEN*LSHA 11727
STMT 04620 GEN*RSHI 11774
ISN 05340 GEN*RSHA 12025
SYMBUF 05341 GEN*MCAL 12057
CTAB 05354 GEN*CALL 12123
PEEKC 05555 MONREAD* 12240
LINE 05556 READ*ERR E 12320
B/GE 05557 PRINT8 12344
READ 05562 STOP* 12525
SUBSEQ 05567 GETSTR 12554
B/LE 05620 DRUMTAP* 13120
B/MUL 05623 COSYTISO 13151
GETCC 05632 CHKWORD* C 13225
LOOKUP 06007 CBOБOДHO 13226