More samples

vslutov · vslutov · commit 4a13312dc06b · 2024-09-03T02:17:16.000+04:00
diff --git a/samples/mm-1_discr1.mmach b/samples/mm-1_discr1.mmach
@@ -0,0 +1,25 @@
+.cpu mm-1
+
+.input 0x000B, 0x000C, 0x000D
+.output 0x000E
+
+.code
+        00 000C ; <- b
+        03 000C ; *  b
+        10 000F ; -> b²
+        00 0011 ; <- 4
+        03 000B ; *  a
+        03 000D ; *  c
+        10 0010 ; -> 4ac
+        00 000F ; <- b²
+        02 0010 ; -  4ac
+        10 000E ; -> d
+        99 0000 ; halt
+        000000 ; a
+        000000 ; b
+        000000 ; c
+        000000 ; d
+        000000 ; b²
+        000000 ; 4ac
+        000004 ; 4
+.enter 2 5 3
diff --git a/samples/mm-1_discr2.mmach b/samples/mm-1_discr2.mmach
@@ -0,0 +1,23 @@
+.cpu mm-1
+
+.input 0x0009, 0x000A, 0x000B
+.output 0x000C
+
+.code
+        00 000E ; <- 4
+        03 0009 ; *  a
+        03 000B ; *  c
+        10 000D ; -> 4ac
+        00 000A ; <- b
+        03 000A ; *  b
+        02 000D ; -  4ac
+        10 000C ; -> d
+        99 0000 ; halt
+        000000 ; a
+        000000 ; b
+        000000 ; c
+        000000 ; d
+        000000 ; 4ac
+        000004 ; 4
+
+.enter 2 5 3
diff --git a/samples/mm-1_max_of_2.mmach b/samples/mm-1_max_of_2.mmach
@@ -0,0 +1,16 @@
+.cpu mm-1
+
+; ввести два числа, вывести максимум
+.input 0x100, 0x102
+.output 0x104
+
+.code
+00 0100 ; прочитать (здесь и далее — в аккумулятор, он же S1) 0100
+10 0104 ; записать в 0104 (это максимум по умолчанию)
+05 0102 ; сравнить с 0102
+86 0006 ; перейти, если больше, на 0006 (всё хорошо)
+00 0102 ; прочитать 0102
+10 0104 ; записать в 0104 (это настоящий максимум)
+99 0000 ; КОНЕЦ
+
+.enter 123 234
diff --git a/samples/mm-2_factorial.mmach b/samples/mm-2_factorial.mmach
@@ -0,0 +1,18 @@
+.cpu mm-2
+
+; факториал
+.input 0x100
+.output 0x101
+
+.code
+00 0102 0100 ; 0; Заносим N в счётчик
+00 0101 0008 ; 1; Заносим 1 в результат
+05 0102 0008 ; 2; Сравниваем счётчик и 1
+85 0000 0007 ; 3; Если ≤, цикл окончен
+03 0101 0102 ; 4; Домножаем результат на счётчик
+02 0102 0008 ; 5; Уменьшаем счётчик на 1
+80 0000 0002 ; 6; Переход на начало цикла
+99 0000 0000 ; 7; конец
+00 0000 0001 ; 8; 1
+
+.enter 6
diff --git a/samples/mm-2_flags.mmach b/samples/mm-2_flags.mmach
@@ -0,0 +1,14 @@
+.cpu mm-2
+
+.input 0x1000,0x1001,0x1002,0x1003,0x1004,0x1005
+.output 0x1000,0x1001,0x1002,0x1003,0x1004,0x1005
+
+.code
+05 1000 1000
+05 1000 1001
+05 1000 1002
+05 1003 1004
+05 1003 1005
+99 0000 0000
+
+.enter 25 20 31 0x8000000004 0x8000000002 1234
diff --git a/samples/mm-2_max_of_2.mmach b/samples/mm-2_max_of_2.mmach
@@ -0,0 +1,14 @@
+.cpu mm-2
+
+; ввести два числа, вывести максимум
+.input 0x101, 0x102
+.output 0x103
+
+.code
+00 0103 0101 ; по умолчанию максимум — 0101
+05 0101 0102 ; comp 0101 0102 — команда сравнения
+86 0000 0004 ; если 0101 и вправду больше, перейти на 0004
+00 0103 0102 ; иначе максимум — 0103
+99 0000 0000 ;
+
+.enter 723 234
diff --git a/samples/mm-3_add.mmach b/samples/mm-3_add.mmach
@@ -0,0 +1,9 @@
+.cpu    mm-3
+.input  0x0100, 0x0101
+.output 0x0102
+
+.code
+01 0100 0101 0102
+99 0000 0000 0000
+
+.enter 1234 3232
diff --git a/samples/mm-3_denominator.mmach b/samples/mm-3_denominator.mmach
@@ -0,0 +1,16 @@
+.cpu mm-3
+
+.input 0x100, 0x101
+.output 0x104
+
+.code
+04 0100 0101 0102; 0
+81 0103 0006 0004; 1
+00 0006 0000 0104; 2
+99 0000 0000 0000; 3
+00 0007 0000 0104; 4
+99 0000 0000 0000; 5
+00000000000000; 6 =0
+00000000000001; 7 =1
+
+.enter 10 3
diff --git a/samples/mm-3_discr.mmach b/samples/mm-3_discr.mmach
@@ -0,0 +1,14 @@
+.cpu mm-3
+; a,b,c и d разместим по адресам 010a, 010b, 010c и 010d
+.input 0x010a, 0x010b, 0x010c
+.output 0x010d
+
+.code
+03 010b 010b 0100 ; b*b (умножение со знаком), результат в ячейке 0100
+03 010a 010c 0101 ; a*c, результат в 0101
+03 0101 0005 0101 ; ac*4, результат в 0101
+02 0100 0101 010d ; b²-4ac
+99 0000 0000 0000
+00 0000 0000 0004 ; константа 4
+
+.enter 5 8 3
diff --git a/samples/mm-3_discr_const.mmach b/samples/mm-3_discr_const.mmach
@@ -0,0 +1,16 @@
+.cpu mm-3
+; a,b,c и d разместим по адресам 010a, 010b, 010c и 010d
+.input 0x010a, 0x010b, 0x010c
+.output 0x010d
+
+.code
+03 010b 010b 0100 ; b*b (умножение со знаком), результат в ячейке 0100
+03 010a 010c 0101 ; a*c, результат в 0101
+03 0101 0102 0101 ; ac*4, результат в 0101
+02 0100 0101 010d ; b²-4ac
+99 0000 0000 0000
+.code 0x102
+00 0000 0000 0004 ; константа 4
+
+.enter 5 8 3
+
diff --git a/samples/mm-3_discr_intro.mmach b/samples/mm-3_discr_intro.mmach
@@ -0,0 +1,14 @@
+.cpu mm-3
+; a,b,c и d разместим по адресам 010a, 010b, 010c и 010d
+; константу 4 (по адресу 0104) не будем задавать как константу, а тоже введём
+.input 0x010a,0x010b,0x010c,0x0104
+.output 0x010d
+
+.code
+03 010b 010b 0100 ; b*b (умножение со знаком), результат в ячейке 0100
+03 010a 010c 0101 ; a*c, результат в 0101
+03 0101 0104 0101 ; ac*4, результат в 0101
+02 0100 0101 010d ; b²-4ac
+99 0000 0000 0000
+
+.enter 5 8 3 4
diff --git a/samples/mm-3_discriminant.mmach b/samples/mm-3_discriminant.mmach
diff --git a/samples/mm-3_factorial.mmach b/samples/mm-3_factorial.mmach
@@ -0,0 +1,15 @@
+.cpu mm-3
+
+.input 0x6
+.output 0x7
+
+.code
+00 0005 0000 0007 ; 0 move 1 R
+03 0007 0006 0007 ; 1 smul R N =: R
+02 0006 0005 0006 ; 2 sub N 1 =: N
+86 0006 0005 0001 ; 3 N > 1 -> 0001
+99 0000 0000 0000 ; 4 halt
+00 0000 0000 0001 ; 5 =1
+                  ; 6 N
+                  ; 7 R
+.enter 6
diff --git a/samples/mm-3_factorial2.mmach b/samples/mm-3_factorial2.mmach
@@ -0,0 +1,21 @@
+.cpu mm-3
+
+.input 0x100
+.output 0x101
+
+.code
+00 0103 0000 0101 ; 0 move 1 R
+00 0100 0000 0102 ; 1 move N M
+85 0102 0103 0006 ; 2 M ⩽ 1 -> halt
+03 0101 0102 0101 ; 3 smul R M =: R
+02 0102 0103 0102 ; 4 sub M 1 =: M
+80 0000 0000 0002 ; 5 -> ⩽
+99 0000 0000 0000 ; 6 halt
+
+.code 0x100
+00000000000000    ; 0 N
+00000000000000    ; 1 R
+00000000000000    ; 2 M
+00000000000001    ; 3 1
+
+.enter 6
diff --git a/samples/mm-3_jump.mmach b/samples/mm-3_jump.mmach
@@ -0,0 +1,8 @@
+.cpu mm-3
+.output 0x0001
+.code
+80 0000 0000 0003 ; безусловынй переход на 3
+00 0000 0001 47ad ; первая константа
+ff ffff ffff fff3 ; вторая константа
+01 0001 0002 0001 ; сумма
+99 0000 0000 0000
diff --git a/samples/mm-3_max_of_2.mmach b/samples/mm-3_max_of_2.mmach
@@ -0,0 +1,12 @@
+.cpu mm-3
+
+.input 0x100, 0x101
+.output 0x100
+
+.code
+83 0100 0101 0002  ; 0 если содержимое 0100 меньше содержимого 0101, перейти на 2
+99 0000 0000 0000  ; 1 в 0100 и так лежит максимум
+00 0101 0000 0100  ; 2 переложить максимум в 0100
+99 0000 0000 0000  ; 3
+
+.enter 12 21
diff --git a/samples/mm-3_max_of_3.mmach b/samples/mm-3_max_of_3.mmach
@@ -0,0 +1,19 @@
+.cpu mm-3
+
+.input 0x100, 0x101, 0x102
+.output 0x103
+
+.code
+86 0100 0101 0006 ; 0 sjg 100 101 6
+86 0102 0101 0004 ; 1 sjg 102 101 4
+00 0101 0000 0103 ; 2 mov 101 103
+99 0000 0000 0000 ; 3
+00 0102 0000 0103 ; 4 mov 102 103
+99 0000 0000 0000 ; 5
+86 0100 0102 0009 ; 6 sjg 100 102 9
+00 0102 0000 0103 ; 7 mov 102 103
+99 0000 0000 0000 ; 8
+00 0100 0000 0103 ; 9 mov 100 103
+99 0000 0000 0000 ; A
+
+.enter 123 1234 456
diff --git a/samples/mm-3_selfmod1.mmach b/samples/mm-3_selfmod1.mmach
@@ -0,0 +1,26 @@
+.cpu mm-3
+
+; ввести N<=0x100 и заполнить N ячеек, начиная с 0x1000, числами от 1 до N
+; вывести первые 6 ячеек
+.input 0x103
+.output 0x1000, 0x1001, 0x1002, 0x1003, 0x1004, 0x1005
+
+
+.code
+        00 0100 0000 0102 ; 0 ; move 1 I
+        00 0104 0000 0003 ; 1 ; move definstr inst
+        86 0102 0103 0007 ; 2 ; next: sjg I > N -> halt
+        00 0102 0000 1000 ; 3 ; instr: move I Array[I-1]
+        01 0003 0100 0003 ; 4 ; add inst 1 =: inst
+        01 0102 0100 0102 ; 5 ; add I 1 =: I
+        80 0000 0000 0002 ; 6 ; jump next
+        99 0000 0000 0000 ; 7 ; halt
+
+.code 0x0100
+        00 0000 0000 0001 ; 0 ; 1
+        00 0000 0000 0000 ; 1 ; 0
+        00 0000 0000 0000 ; 2 ; I
+        00 0000 0000 0000 ; 3 ; N
+        00 0102 0000 1000 ; 4 ; move I Array[0]
+
+.enter 16
diff --git a/samples/mm-3_selfmod2.mmach b/samples/mm-3_selfmod2.mmach
@@ -0,0 +1,27 @@
+.cpu mm-3
+
+; ввести 10 чисел по адресам 0x1000 — 0x1009
+; заполнить адреса 0x2000 — 0x2009 удвоенными значениями в обрaтном порядке
+; вывести 0x2000 — 0x2009
+.input  0x1000, 0x1001, 0x1002, 0x1003, 0x1004, 0x1005, 0x1006, 0x1007, 0x1008, 0x1009
+.output  0x2000, 0x2001, 0x2002, 0x2003, 0x2004, 0x2005, 0x2006, 0x2007, 0x2008, 0x2009
+
+.code
+        00 0009 0000 000c ; move 1 I
+        00 000d 0000 0003 ; move ___p ___m
+        86 000c 000b 0008 ; sjg I N -> ___e
+        03 1000 000a 2009 ; mul A[0] 2 -> B[9]
+        01 000c 0009 000c ; add I 1
+        01 0003 000e 0003 ; add ___m 100000000
+        02 0003 0009 0003 ; sub ___m 1
+        80 0000 0000 0002 ; jump ___c
+
+        99 0000 0000 0000 ; halt
+        00 0000 0000 0001 ; 1
+        00 0000 0000 0002 ; 2
+        00 0000 0000 000A ; 10
+        00 0000 0000 0000 ; I
+        03 1000 000a 2009 ; mul A[0] 2 -> B[9]
+        00 0001 0000 0000 ; ОП1[1]
+
+.enter 1 2 3 4 3 2 1 0 -1 -2
diff --git a/samples/mm-3_sum_of_squares.mmach b/samples/mm-3_sum_of_squares.mmach
@@ -0,0 +1,25 @@
+.cpu mm-3
+
+.input 0x100, 0x101
+.output 0x102
+
+.code
+00 0105 0000 0102 ; 0 move 0 S
+00 0100 0000 0103 ; 1 move A I
+86 0103 0101 0007 ; 2 I > B -> 0007
+03 0103 0103 0104 ; 3 mul I I -> Q
+01 0104 0102 0102 ; 4 add Q S -> S
+01 0106 0103 0103 ; 5 add 1 I -> I
+80 0000 0000 0002 ; 6 -> 0002
+99 0000 0000 0000 ; 7
+
+.code 0x0100
+00000000000000    ; 0 A
+00000000000000    ; 1 B
+00000000000000    ; 2 S
+00000000000000    ; 3 I
+00000000000000    ; 4 Q
+00000000000000    ; 5 0
+00000000000001    ; 6 1
+
+.enter 3 10
diff --git a/samples/mm-s_discr.mmach b/samples/mm-s_discr.mmach
@@ -0,0 +1,21 @@
+.cpu mm-s
+
+.input  0x1006, 0x1000, 0x1009
+.output 0x100c
+.code
+5A 1000 ; загрузить b ; b
+5C      ; дублировать ; b b
+03      ; умножить    ; b*b
+5A 1003 ; загрузить 4 ; b*b 4
+5A 1006 ; загрузить a ; b*b 4 a
+5A 1009 ; загрузить c ; b*b 4 a c
+03      ; умножить    ; b*b 4 a*c
+03      ; умножить    ; b*b 4*a*c
+02      ; вычесть     ; b*2-4*a*c
+5b 100C ; выгрузить d ; b*2-4*a*c
+99      ; halt
+
+.code 0x1003
+00 0004 ; 4
+
+.enter  3 5 2
diff --git a/samples/mm-v_factorial.mmach b/samples/mm-v_factorial.mmach
diff --git a/tests/test_sample.py b/tests/test_sample.py
