Нод для всех элементов массива. Реализовать программу на Эдсак.
Initial Order 1
[31]T 87 [конец программы] S
[32]Z 0 S[останавливаем машину] [Переменные]
[33]T 0 S[очищаем аккумулятор и освобождаем ячейку]
[34]A 79 [адрес, где хранится длина массива] S
[35]S 77 [адрес единицы] S [длина -1 итераций]
[36]T 1 S [счетчик для кол-ва сравнений]
[37]T 2 S [ответ]
[Начальная установка]
[38]A 85 [первое число] S
[39]L 0 L[сдвигаем аккумулятор на разряд влево]
[40]A 50 S [добавляем инструкцию из 50 строки]
[41]T 50 S [выгружаем в 50 строку адрес 1 числа]
[42]A 86 [второе число] S
[43]L 0 L[сдвигаем аккумулятор на разряд влево]
[44]A 52 S[аналогично добавляем и потом выгружаем]
[45]T 52 S
[46]A 1 S [загружаем счетчик]
[47]S 77 S [уменьшаем его на 1]
[48]G 86 S [если итог <0 завершаем работу]
[49]T 1 S [обновили счетчик, очистили аккумулятор]
[первое число]
[50]A 0 S [загрузка первого значения в аккумулятор]
[51]T 8 S [выгрузка его в строку 8]
[второе число]
[52]A 0 S [загрузка второго значения в аккумулятор]
[53]T 10 S [выгрузка его в строку 10]
[Поиск НОД]
[54]A 8 S [значение первого числа в аккумулятор]
[55]S 10 S [вычитаем второе из первого]
[56]E 62 S [если результат вычитания >0 идем в 62 строку]
[если второе число больше первого]
[57]T 11 S [выгружаем ненужное значение]
[58]A 10 S [загружаем второе число]
[59]S 8 S [вычитаем из него первое]
[60]T 10 S [выгружаем разность на место большего числа]
[61]E 54 S [продолжаем искать, т. к. числа не равны]
[проверяем равен ли результат вычитания 0]
[62]S 77 S [вычли единицу]
[63]G 67 S [если был 0 идем в строку 67] [пока что не НОД]
[64]A 77 S [если не 0, то возвращаем единицу]
[65]T 8 S [выгружаем разность на место большего числа]
[66]E 54 S [возвращаемся к поиску НОД] [нашли НОД]
[67]T 11 S [убираем лишнее]
[68]A 8 S [загружаем НОД в аккумулятор]
[69]T 2 S [выгружаем НОД в ячейку]
[70]A 68 S [инструкция с адресом текущего НОД]
[71]T 50 S [выгружаем ее в строку 50]
[72]A 77[единица] S
[73]L 0 L[сдвигаем аккумулятор на разряд влево]
[74]A 52 S [теперь инструкция берет следующий элемент массива]
[75]T 52 S [выгружаем ее в 52 строку]
[76]E 46 S [возвращаемся к началу цикла]
[77]P 0 L [единица]
[78]P 1 L [двойка - нужна для проверки]
[79]P 2 L [длина массива - у нас 5]
[наши числа]
[80]P 4 S [8]
[81]P 8 S [16]
[82]P 12 S [24]
[83]P 18 S [36]
[84]P 22 S [44]
[85]P 40 S [номер строки для цифры 8]
[86]P 40 L [номер строки для цифры 16]
Initial Order 2
GK [фиксация начального адреса подпрограммы]
[106/0]A 9 @ [загрузка длины массива в аккумулятор]
[107/1]T 20 F [выгрузка в рабочую ячейку]
[108/2]A 15 @ [загрузка адреса первого номера в аккумулятор]
[109/3]T 21 F [выгрузка в рабочую ячейку]
[110/4]A 16 @ [загрузка адреса второго номера в аккумулятор]
[111/5]T 22 F [выгрузка в рабочую ячейку] ZF
[112/6]A 7 @
[113/7]G 56 F
[114/8]
[115/9]P 2 D [длина массива]
[116/10]P 4 F [8]
[117/11]P 8 F [16]
[118/12]P 12 F [24]
[119/13]P 18 F [36]
[120/14]P 22 F [44]
[121/15]P 10 @ [номер строки первого числа]
[122/16]P 11 @ [номер строки второго числа] EZ PF T 56 K GK
[56/0] A 3 F
[57/1] T 47 @ [58/2] T 0 F
[59/3] A 20 F [длина]
[60/4] S 48 @ [61/5] T 1 F [счетчик]
[62/6] T 2 F [результат]
[ОБНОВЛЕНИЕ АДРЕСОВ ИНСТРУКЦИЙ]
[63/7] A 21 F
[64/8] XF
[65/9] A 19[загрузка первого] @
[66/10] T 19[загрузка первого] @
[67/11] A 22 F
[68/12] XF
[69/13] A 21[загрузка второго] @
[70/14] T 21[загрузка второго] @
[НАЧАЛО ЦИКЛА]
[71/15] A 1 F [загружаем счетчик в аккумулятор]
[72/16] S 48 @ [уменьшаем счетчик на -1]
[73/17] G 47 @ [если меньше 0, выходим]
[74/18] T 1 F [перезаписываем счетчик]
[75/19] A 0 F [загружаем первое число]
[76/20] T 8 F [выгружаем первое число в 8 ячейку]
[77/21] A 0 F [загружаем второе число] [78/22] T 10 F [выгружаем второе числов в 10 ячейку]
[ВЫЧИСЛЯЕМ НОД]
[79/23] A 8 F [загружаем первое число в аккумулятор]
[80/24] S 10 F [вычитаем из первого второе]
[81/25] E 31 @ [проверяем знак разности]
[ЕСЛИ ПЕРВОЕ ЧИСЛО БОЛЬШЕ ВТОРОГО]
[82/26] T 11 F [очищаем аккумулятор] [83/27] A 10 F [загружаем второе число в аккумулятор]
[84/28] S 8 F [вычитаем из второго первое]
[85/29] T 10 F [выгружаем разность на место второго]
[86/30] E 23 @ [вычитание]
[ПРОВЕРКА НА ПОЛУЧЕНИЕ 0]
[87/31] S 48 @ [вычитаем 1]
[88/32] G 36 @ [не НОД, значит дальше]
[89/33] A 48 @ [возвращаем 1]
[90/34] T 8 F [выгрузка разности]
[91/35] E 23 @ [вычитание]
[НАШЛИ НОД]
[92/36] T 11 F
[93/37] A 8 F
[НОД в аккумулятор]
[94/38] T 2 F [выгрузка НОД]
[ОБНОВЛЕНИЕ АДРЕСОВ ИНСТРУКЦИЙ]
[95/39] A 37 @ [инструкция с адресом последнего НОДа]
[96/40] T 19 @ [записываем в 1 значение]
[97/41] A 48 @
[98/42] XF [добавляем 2]
[99/43] A 21 @ [добавление предыдущей инструкции]
[100/44] T 21 @ [выгрузка нового значения]
[101/45] E 15 @ [возвращение в начало цикла]
[102/46] T 11 F
[103/47] E 0 F [выход из подпрограммы]
[ДАННЫЕ]
[104/48] P 0 D [1]
[105/49] P 1 F [2] 6