tests/stack_machine_old_add/instructions.s.tcl


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_old.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