diff options
| author | Wojciech Kosior <kwojtus@protonmail.com> | 2020-09-05 17:09:16 +0200 |
|---|---|---|
| committer | Wojciech Kosior <kwojtus@protonmail.com> | 2020-09-05 17:09:16 +0200 |
| commit | ba4d97ddc2133c905e668c2f916cf3b14be4e35d (patch) | |
| tree | 68dec077eeea05aef51ed0172a16c100c57b9e54 /tests/stack_machine_sub/instructions.s.tcl | |
| parent | 3ec21a949b0887e32bbffcdb38a5738abfe8cfd0 (diff) | |
| download | AGH-engineering-thesis-ba4d97ddc2133c905e668c2f916cf3b14be4e35d.tar.gz AGH-engineering-thesis-ba4d97ddc2133c905e668c2f916cf3b14be4e35d.zip | |
add sub instruction together with bench
Diffstat (limited to 'tests/stack_machine_sub/instructions.s.tcl')
| -rwxr-xr-x | tests/stack_machine_sub/instructions.s.tcl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/stack_machine_sub/instructions.s.tcl b/tests/stack_machine_sub/instructions.s.tcl new file mode 100755 index 0000000..e8485ee --- /dev/null +++ b/tests/stack_machine_sub/instructions.s.tcl @@ -0,0 +1,24 @@ +#!/usr/bin/env tclsh + +source tclasm.tcl + +### store 2 values to memory, load them back, +### substract them and store the result + +set_sp 0 + +const 68996288 +store h1EEE0 +const 540904416 +store h1EEE4 + +const 8 + +load h1EEE0 +load h1EEE4 +# substracting 540904416 from 68996288 should yield -471908128 +sub +# will write to h1EEE0 + 8 = h1EEE8 +store+ h1EEE0 + +halt |