aboutsummaryrefslogtreecommitdiff
path: root/tests/stack_machine_swap/instructions.s.tcl
blob: a44ecf9f59fc566cfdb64e707fc03806f36419de (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/env tclsh

source tclasm.tcl

set_sp 0

const h0000DEAD
const h0000BEEF

swap

## Because values were swapped, h0000DEAD should get written, first, at lower
## address (h100) and h0000BEEF should be written next (at h200)
store h000100
store h000200

halt