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

source tclasm.tcl

set_sp h7FFFC
const hABCDEF
stack down
const hA98765
tee
## hA98765 should now be replaced with hABCDEF - we should have
## two hABCDEF's on stack - let's store them for verification
store@ h00100
stack up
store@ h00104
halt