besm6 | Экстракод печати такой экстракод

Что-то в Э64 в эмуляторе Диспака у нас ещё не слава богу.

ШИФР 419900ЗС5‾ОЗУ 32‾ЕЕВ1А3
*NАМЕ BAD E64
*NО LО
*ВЕМSН
БПК◇◇◇
ВВД◇◇◇
ЕСКС СТАРТ ’1000’
Э64 Л0
КОНЕЦ
Л0 КОНК А(НЛ)
КОНК А(КЛХ)
КОНД М23В’1’
НЛ НОП
КОНД (2)П’0 ’М40В’175’
КОНД П’.-00. ’М24В’174’М16В’42’
КОНД П’0 ’М40В’175’
КОНД П’I ’
КОНД (3)П’ ’
КОНД П’I Э1-К’
КОНД П’Б ’
КОНД П’I ’
КОНД П’0 ’М40В’175’
КОНД П’I-00I-’М24В’174’М16В’26’
КОНД П’00I ’М40В’174’М32В’12’
КОНД П’0 ’М40В’175’
КОНД П’I ’
КОНД (3)П’ ’
КОНД П’I ’
КОНД П’ ’
КОНД П’I ’
КОНД П’0 ’М40В’175’
КОНД П’I-00I-’М24В’174’М16В’26’
КОНД П’00I ’М40В’174’М32В’12’
КОНД П’0 ’М40В’175’
КОНД П’I ’
КОНД (3)П’ ’
КОНД П’I ’
КОНД П’ ’
КОНД П’I ’
КОНД П’0 ’М40В’175’
КОНД П’I-00I-’М24В’174’М16В’26’
КОНД П’00I ’М40В’174’М32В’12’
КОНД П’0 ’М40В’175’
ТЕКСТ П’I ИСПОЛН. I I I ПЛОТН.ЗП. I’
КОНД П’000I00’М40В’175’М32В’173’М24В’5’М8В’173’В’7’
КОНД П’ ’
КОНД П’ I ’
КОНД (2)П’ I ’
КОНД П’ ’
КОНД П’/ММ I ’
КОНД П’0 ’М40В’175’
КОНД П’’’-00’’ ’М24В’174’М16В’42’
КОНД (2)П’0 ’М40В’175’
КЛХ КОНД П’ 0’В’377’
ФИНИШ
КВЧ◇◇◇
ТРН◇◇◇
БТМАЛФ
КНЦ◇◇◇
*MAIN ECKC
*ЕХЕСU
*ЕND F
``````
ЕКОНЕЦ

Должна печатать (и печатает, будучи вызвана через dispak -x)

.-----------------------------------.
I I Э1-КБ I
I-----------------------I-----------I
I I I
I-----------------------I-----------I
I I I
I-----------------------I-----------I
I ИСПОЛН. I I I ПЛОТН.ЗП. I
I I I I /ММ I
’-----------------------------------’

а печатает по умолчанию

.---.
I I Э1-КБ I
I-------I-----------I
I I I
I-------I-----------I
I I I
I-------I-----------I
I ИСПОЛН. I I I ПЛОТН.ЗП. I
I I I I /ММ I
’---’

ЕСКС:,NАМЕ,DТRАN /01.06.84/ ,UТС, ,*64,*0002В ,UТС, ,SJ, *0002В:,Z00,*0004В ,Z00,*0073В ,LОG,4000 0000 *0004В:,LОG,3720 7417 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,340 5574 1040 7017 ,LОG,3720 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,2040 7474 0020 5452 ,LОG,1020 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,2040 5574 0544 1013 ,LОG,3700 5102 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,2040 5574 0544 1013 ,LОG,3700 5102 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,360 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,2040 5574 0544 1013 ,LОG,3700 5102 0360 7417 ,LОG,3720 7417 0360 7417 ,LОG,2040 7450 1422 7456 ,LОG,1262 6416 0360 7502 ,LОG,360 7417 0360 7417 ,LОG,2040 7417 0360 7417 ,LОG,2040 7457 1262 7062 ,LОG,1320 7047 1360 7017 ,LОG,2040 7417 0360 7417 ,LОG,3727 5405 2047 5407 ,LОG,360 7417 0360 7417 ,LОG,360 7417 2040 7417 ,LОG,360 7417 0364 1017 ,LОG,360 7417 0364 1017 ,LОG,360 7417 0360 7417 ,LОG,302 6054 0364 1017 ,LОG,3720 7417 0360 7417 ,LОG,660 5574 1041 5417 ,LОG,3720 7417 0360 7417 ,LОG,3720 7417 0360 7417 *0073В:,LОG,360 7417 0360 7777 ,ЕND,

$ dubna bad_e64.dub ... .---. I I Э1-KБ I I-------I-----------I I I I I-------I-----------I I I I I-------I-----------I I ИCПOЛH. I I I ПЛOTH.ЗП. I I I I I /MM I ’---’

case GOST_EOLN: case GOST_REPEAT: // Repeat last symbol as many times, as defined by next byte. ch = bp.get_byte(); if (ch == 040) { // fill line by last symbol (?) std::fill(e64_line.begin(), e64_line.end(), last_ch); e64_emit_line(); } else { while ((ch-- & 017) != 0 && e64_position < LINE_WIDTH) { if (e64_line[e64_position] == GOST_SPACE) { e64_putchar(last_ch); } else { e64_position += 1; } } } break;

Flat | Top-Level Comments Only

From:

vak

Интересно, как будто хитрый повтор символа какой-то. Давай я гляну. Надо для сравнения запустить через dubna.

spamsink

Edited (Tag "listing" does not work in comments) Date: 2024-03-25 07:20 am (UTC)

Да, действительно, глючит. Завтра попробую починить.

https://github.com/besm6/dubna/blob/main/examples/bad_e64.dub

Я раскопал место, где ошибка. Выдаём последовательность в коде ГОСТ:

016 013 174 042 016 175

Должно получиться:

.-----------------------------------.

Имеем:

.---.

Смотрим посимвольно.

016   .   GOST_DOT
013   -   GOST_MINUS
174       GOST_EOLN
042       десятичное 34
016   .   GOST_DOT
175       GOST_CARRIAGE_RETURN

Символ GOST_EOLN обрабатывается как повтор предыдущего символа указанное число раз. Очевидно, в этом коде что-то неладно.

Надо будет добавить побольше юнит тестов для символов GOST_EOLN и GOST_REPEAT. Проверить на всём диапазоне значений счётчика повторения.

Edited Date: 2024-03-26 07:12 am (UTC)

Судя по git blame, этот код очень старый (старше перехода на github). Что-то мы не так поняли - слабо верится, почему бы у символа 040 было магическое значение; и там скорее всего просто опечатка: возможно, должно быть 0177 вместо 017.

В
https://github.com/besm6/dispak/commit/55b4aecf3821c1cc8fc98da9b07fb683f7303738
повтор символов сделан только в кодировке ИТМ (по её каким-то правилам), а потом попал в том же виде в ГОСТ.

Edited Date: 2024-03-26 10:11 pm (UTC)

Я починил э64 - глянь изменения и тесты.
Заодно поправил другие тесты, которые сломались из-за правильного э67.

Ага, спасибо. Автоматические тесты - это забавно. Если тривиальные тесты поплыли, то даже удивительно, что всё, кроме алгола, работало.

В dispak запортишь?

Тесты наше всё. 😀
Если забыл проверить тесты и закоммитил - Гитхаб пришлёт email, что билд не прошёл.
Там изменился адрес финального останова. Сломались только тесты, которые его проверяли.

Перетащу правку в Диспак сегодня.

Сообщество любителей БЭСМ-6

Экстракод печати такой экстракод

Экстракод печати такой экстракод

no subject

no subject

no subject

no subject

no subject

no subject

no subject

no subject

Profile

December 2025

Most Popular Tags

Page Summary

Style Credit

Expand Cut Tags