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_cond_jump | |
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_cond_jump')
-rwxr-xr-x | tests/stack_machine_old_cond_jump/instructions.s.tcl | 45 | ||||
l--------- | tests/stack_machine_old_cond_jump/test.v | 1 | ||||
-rw-r--r-- | tests/stack_machine_old_cond_jump/words_to_verify.mem | 9 |
3 files changed, 55 insertions, 0 deletions
diff --git a/tests/stack_machine_old_cond_jump/instructions.s.tcl b/tests/stack_machine_old_cond_jump/instructions.s.tcl new file mode 100755 index 0000000..467a719 --- /dev/null +++ b/tests/stack_machine_old_cond_jump/instructions.s.tcl @@ -0,0 +1,45 @@ +#!/usr/bin/env tclsh + +source tclasm.tcl + +## also look at stack_machine_jump test + +## we're going to write numbers from 0 to 7 to addresses h400 - h41C + +# this will translate to 3 16-bit instructions +set_sp h7FFFC + +## set up the counter +# each of those 2 will translate to 1 16-bit instruction +const 0 +stack down + +## this is the point we later jump to, address 10 + +tee +## compute address: counter * 4 + h400 +stack down +const 4 +mul +const h400 +add +stack up +## load computed address to im +exchange_im +## save value of counter at address pointed by im +swap +store +swap +## increase counter by 1 +const 1 +add +## compare value of counter to 8 +tee +stack down +const 8 +sub +stack up +## loop if counter != 8 +cond_jump 10 + +halt diff --git a/tests/stack_machine_old_cond_jump/test.v b/tests/stack_machine_old_cond_jump/test.v new file mode 120000 index 0000000..f0c3cf9 --- /dev/null +++ b/tests/stack_machine_old_cond_jump/test.v @@ -0,0 +1 @@ +../stack_machine_old_store/test.v
\ No newline at end of file diff --git a/tests/stack_machine_old_cond_jump/words_to_verify.mem b/tests/stack_machine_old_cond_jump/words_to_verify.mem new file mode 100644 index 0000000..4b77b8a --- /dev/null +++ b/tests/stack_machine_old_cond_jump/words_to_verify.mem @@ -0,0 +1,9 @@ +// address value + 00400 0 // verify the first number written + 00402 0 + + 00408 2 // verify a number in the middle + 0040A 0 + + 0041C 7 // verify the last number + 0041E 0 |