-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathprimitives.s
62 lines (62 loc) · 1.66 KB
/
primitives.s
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
dict:
MENTRY "@", fetch, 1
MENTRY "!", store, 1
MENTRY "c@", cfetch, 2
MENTRY "c!", cstore, 2
MENTRY "fsread", fsread, 6
MENTRY "fswrite", fswrite, 7
MENTRY "fsseek", fsseek, 6
MENTRY "fsopen", fsopen, 6
MENTRY "fsclose", fsclose, 7
MENTRY "mmap", mmap, 4
MENTRY "halt", terminate, 4
MENTRY "clear", clear, 5
MENTRY "reset", reset, 5
MVENTRY "h", h, htop, 1
MVENTRY "dp", dp, dtop, 2
MENTRY "exit", exit, 4
MENTRY "(literal)", literal, 9
MENTRY "(sliteral)", sliteral, 10
MENTRY "(do)", doinit, 4
MENTRY "(loop)", doloop, 6
MENTRY "(+loop)", doploop, 7
MENTRY "r@", rfetch, 2
MENTRY "r>", rpop, 2
MENTRY ">r", rpush, 2
MENTRY "i", i, 1
MENTRY "j", j, 1
MENTRY "+", plus, 1
MENTRY "-", minus, 1
MENTRY "*", multiply, 1
MENTRY "(if)", cjump, 4
MENTRY "(else)", jump, 6
MENTRY "/mod", slashmod, 4
MENTRY "u/mod", uslashmod, 5
MENTRY "and", binand, 3
MENTRY "or", binor, 2
MENTRY "xor", binxor, 3
MENTRY "swap", xswap, 4
MENTRY "drop", drop, 4
MENTRY "dup", dup, 3
MENTRY "over", over, 4
MENTRY "=", equal, 1
MENTRY ">", greater, 1
MENTRY "<", less, 1
MVENTRY "tib", tib, tibuffer, 3
MENTRY "s@", stackptr, 2
MENTRY "lshift", lshift, 6
MENTRY "rshift", rshift, 6
MENTRY "rshifta", rshifta, 7
MENTRY "execute", execute, 7
MENTRY "unloop", unloop, 6
MENTRY "cmove", cmove, 5
MENTRY "cmove>", cmoveb, 6
MENTRY "(variable)", variable, 10
MENTRY "(constant)", constant, 10
MENTRY "(:)", colon, 3
MENTRY "(does)", dodoes, 6
MVENTRY "heaptop", heaptop, heapend, 7
MVENTRY "_start", textbase, _start, 6
MVENTRY "_end", textend, _end, 4
MENTRY "cas", cas, 3
MENTRY "(deferred)", deferred, 10