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
22
23
24

#!/usr/bin/env tclsh

source tclasm.tcl

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

set_sp 0

const 68996288
store h1EEE0
const 540904416
store h1EEE4

const 8

load h1EEE0
load h1EEE4
# substracting 540904416 from 68996288 should yield -471908128
sub
# will write to h1EEE0 + 8 = h1EEE8
store+ h1EEE0

halt