diff options
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 |