diff options
| author | Wojciech Kosior <kwojtus@protonmail.com> | 2020-09-03 20:22:41 +0200 |
|---|---|---|
| committer | Wojciech Kosior <kwojtus@protonmail.com> | 2020-09-03 20:22:41 +0200 |
| commit | efd0269b55e2db03f5c12d6f47b00b0c2a57ff66 (patch) | |
| tree | d5715c26f8a7b935baea0af6558f9d415e110f21 /tests/stack_machine_old_multiinstructions_load_store/instructions.s.tcl | |
| parent | 43f4e586acf76f3ec08d5892ba784ba6ac5d1932 (diff) | |
| download | AGH-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_multiinstructions_load_store/instructions.s.tcl')
| -rwxr-xr-x | tests/stack_machine_old_multiinstructions_load_store/instructions.s.tcl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/stack_machine_old_multiinstructions_load_store/instructions.s.tcl b/tests/stack_machine_old_multiinstructions_load_store/instructions.s.tcl new file mode 100755 index 0000000..58792d3 --- /dev/null +++ b/tests/stack_machine_old_multiinstructions_load_store/instructions.s.tcl @@ -0,0 +1,32 @@ +#!/usr/bin/env tclsh + +source tclasm.tcl + +### do the same as in stack_machine_2 test, but use higher level instructions + +## set sp to h7FFFC +set_sp h7FFFC +## get value h01010202 into r1 +const h01010202 +## get value h03030404 into r1 +stack down +const h03030404 +## get value h05050606 into r1 +stack down +const h05050606 +## get value h07070808 into r1 +stack down +const h07070808 +## write r1 to address h57574 +store@ h57574 +stack up +## write r1 to address h57578 +store@ h57578 +stack up +## write r1 to address h5757C +store@ h5757C +stack up +## write r1 to address h57580 +store@ h57580 +## finish test +halt |