#!/usr/bin/env tclsh

source tclasm.tcl

### store 2 values to memory, load them back, substract them and store the
### result; this is analogous to addition test

set_sp h7FFFC
const 68996288
store@ h1EEE0
const 540904416
store@ h1EEE4

load@ h1EEE0
stack down
load@ h1EEE4
# substracting 540904416 from 68996288 should yield -471908128
sub
stack up
store@ h1EEE8
halt