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

source tclasm.tcl

### store 2 values to memory, load them back, add them and store the result

set_sp h7FFFC
const 12345678
store@ h1EEE0
const 40302010
store@ h1EEE4

load@ h1EEE0
stack down
load@ h1EEE4
# adding 40302010 to 12345678 should yield 52647688
add
stack up
store@ h1EEE8
halt