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

module ia32/elf/begin.sts

defword keyecho
    key if emit fi
    drop
exit

defarr numstr 3
defvar char

set_entry
    31 char !
    char @ emit
    32 numstr !
    33 numstr 1 + !
    34 numstr 2 + !
    numstr @ emit
    numstr 1 + @ emit
    numstr 2 + @ emit
    35 36 swap emit emit
    keyecho
quit

module ia32/elf/end.sts