tests/stack_machine_old_swap/instructions.s.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env tclsh

source tclasm_old.tcl

set_sp h7FFFC
const h00AD00DE
stack down
const h00EF00BE
swap
## Because values were swapped, h00AD00DE should get written, first, at lower
## address (h100) and h00EF00BE should be written next (at h104)
store@ h00100
stack down
store@ h00104
halt