Тестовый пример

[spamsink]

Вот такую программу предлагалось изучать в качестве примера программирования в кодах:

https://disk.yandex.ru/i/nbWnlGCZLypeog

Вот эта программа в современном виде:

шифр 419900^
озу 1^
вре 10^
вхо 10^
ев10
k 01 24 77766 00 010 0000
k 01 000 0054 01 37 00011 
k 02 24 77001 00 010 0035
k 00 000 0042 00 010 0036
k 00 000 0044 00 000 0000
k 03 24 77771 00 000 0000
k 00 010 0042 00 036 0101
k 00 000 0042 00 010 0043
k 00 26 00022 00 010 0035
k 00 013 0042 00 000 0042
k 00 010 0042 00 011 0040
k 00 022 0000 00 011 0036
k 00 000 0043 00 010 0042
k 00 021 0041 03 000 0054
k 03 37 00016 00 064 0032
k 00 010 0044 00 013 0037
k 00 000 0044 02 37 00015
k 00 074 0000 00 000 0000
k 00 000 0044 00 000 0054
k 02 001 0004 00 000 0000
k 02 011 0013 10 017 0007
c 4000 0000 0000 0000
c 1
c 10
c 0044 0000 0000 0000
c 0000 0111 1111 1111
еконец

Или в более читаемом виде:

*name LFSR
*bemsh
INP$$$
LFSR START '10'
 УИА БИТ-КОНМАС(1)
 СЧ
Ц1 ЗП КОНМАС(1)
 ЦИКЛ Ц1(1)
 УИА 1-'1000'(2)
 СЧ Е48
 ЗП БИТ
 СЧ E1
 ЗП СЧЕТ
Ц2 УИА 1-8(3)
Ц3 СЧ БИТ
 СДА 64+1
 ЗП БИТ
 СЧ МАСКА
 ПО НЕТ
 СЧ E48
 СЛЦ БИТ
 ЗП БИТ
НЕТ СЧ БИТ
 И БИТ710
 ЧЕД
 И Е1
 ЗП МАСКА
 СЧ БИТ
 РЗБ РАЗБОР
 ЗП КОНМАС(3)
 ЦИКЛ Ц3(3)
 Э64 ИС
 СЧ СЧЕТ
 СЛЦ ВОСЕМЬ
 ЗП СЧЕТ
 ЦИКЛ Ц2(2)
 Э74
ИС КОНК А(СЧЕТ)
 КОНК А(КОНМАС)
 КОНК М20В'2'М12В'1'В'4'
 КОНК В'0'
 КОНК М20В'2'М12В'11'В'13'
 КОНК М20В'10'М12В'17'В'7'
Е48 КОНД М47В'1'
Е1 КОНД В'1'
ВОСЕМЬ КОНД Д'8'
БИТ710 КОНД М36В'44'
РАЗБОР КОНД В'11111111111'
БИТ ПАМ 1
МАСКА ПАМ 1
СЧЕТ ПАМ 1
МАССИВ ПАМ 8
КОНМАС ЭКВ МАССИВ+7
 ФИНИШ
EOI$$$
TRN$$$
0-0
END$$$
*main lfsr
*execute
*end file