tests/stack_machine_sub/instructions.s.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/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