aboutsummaryrefslogtreecommitdiff
path: root/tests/stack_machine_old_mul/instructions.s.tcl
diff options
context:
space:
mode:
authorWojciech Kosior <kwojtus@protonmail.com>2020-09-03 20:22:41 +0200
committerWojciech Kosior <kwojtus@protonmail.com>2020-09-03 20:22:41 +0200
commitefd0269b55e2db03f5c12d6f47b00b0c2a57ff66 (patch)
treed5715c26f8a7b935baea0af6558f9d415e110f21 /tests/stack_machine_old_mul/instructions.s.tcl
parent43f4e586acf76f3ec08d5892ba784ba6ac5d1932 (diff)
downloadAGH-engineering-thesis-efd0269b55e2db03f5c12d6f47b00b0c2a57ff66.tar.gz
AGH-engineering-thesis-efd0269b55e2db03f5c12d6f47b00b0c2a57ff66.zip
rename stack_machine to stack_machine_old (prepare for redesign of the machine)
Diffstat (limited to 'tests/stack_machine_old_mul/instructions.s.tcl')
-rwxr-xr-xtests/stack_machine_old_mul/instructions.s.tcl42
1 files changed, 42 insertions, 0 deletions
diff --git a/tests/stack_machine_old_mul/instructions.s.tcl b/tests/stack_machine_old_mul/instructions.s.tcl
new file mode 100755
index 0000000..8473aef
--- /dev/null
+++ b/tests/stack_machine_old_mul/instructions.s.tcl
@@ -0,0 +1,42 @@
+#!/usr/bin/env tclsh
+
+source tclasm.tcl
+
+### store 4 values to memory; load 2 of them back, multiply them and store the
+### result; load another 2, multiply them and store the result;
+### this is similar to addition and substraction tests
+
+set_sp h7FFFC
+
+## store first 2 factors
+const 483091365
+store@ h1EEE0
+const 74683203
+store@ h1EEE4
+
+## store other 2 factors
+const 8436
+store@ h1EEEC
+const -14020
+store@ h1EEF0
+
+## perform the first multiplication
+load@ h1EEE0
+stack down
+load@ h1EEE4
+# multiplying 483091365 by 74683203 should yield 36078810479842095
+# if we take lowest 32 bits of 36078810479842095 we get 2861683503
+mul
+stack up
+store@ h1EEE8
+
+## perform the second multiplication
+load@ h1EEEC
+stack down
+load@ h1EEF0
+# multiplying 8436 by -14020 should yield -118272720 (which fits in 32 bits)
+mul
+stack up
+store@ h1EEF4
+
+halt