From 2c528314ebe29a1c94b6c03fd1b0e2668ee25dff Mon Sep 17 00:00:00 2001
From: Wojciech Kosior <kwojtus@protonmail.com>
Date: Sat, 5 Sep 2020 17:58:56 +0200
Subject: add div instruction together with bench

---
 tests/stack_machine_div/instructions.s.tcl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 tests/stack_machine_div/instructions.s.tcl

(limited to 'tests/stack_machine_div/instructions.s.tcl')

diff --git a/tests/stack_machine_div/instructions.s.tcl b/tests/stack_machine_div/instructions.s.tcl
new file mode 100755
index 0000000..7f09f20
--- /dev/null
+++ b/tests/stack_machine_div/instructions.s.tcl
@@ -0,0 +1,21 @@
+#!/usr/bin/env tclsh
+
+source tclasm.tcl
+
+### store 2 values to memory, load them back, divide one by another and store
+### the result (quotient); this is analogous to addition and substraction tests
+
+set_sp 0
+
+const 777681520
+store h1EEE0
+const 3721
+store h1EEE4
+
+load h1EEE0
+load h1EEE4
+# dividing 777681520 by 3721 should yield 208997 r 3683
+div
+store h1EEE8
+
+halt
-- 
cgit v1.2.3