tests/stack_machine_tee/instructions.s.tcl


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