main.sts


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

module ia32/elf/begin.sts

defword myword
key if
	emit
fi
drop
exit

defarr my_array 3
defvar my_variable

set_entry
31 my_variable !
my_variable @ emit
32 my_array !
33 my_array 1 + !
34 my_array 2 + !
my_array @ emit
my_array 1 + @ emit
my_array 2 + @ emit
35 36 swap emit emit
myword
quit

module ia32/elf/end.sts