#!/usr/bin/env tclsh

source tclasm_old.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