blob: c763ec913f5de5ddacb71906e60261e0c0abe064 (
plain)
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
63
64
|
sys .asm .ops ==:sysasmops
{
quoted {
_ sys .typed .type 1 eq {
sysasmops -01 .|
} {
"sysasmops" "|" | -102 "." |
} ? *
} {
sysasmops -01 .
} ? *
} ":" defq
{ :labelRecord [ } "[[" deff
{ ] :labelResolve } "]]" deff
sysasmops .|label "@" deff
6148914691236516950 ==STACKTOPMARKER
# Count unused cells up to top of data stack
# 0 <- number of remaining stack cells
[[
/rbx :popqReg
/rcx /rcx :xorqRegReg
/rcx :decqReg
STACKTOPMARKER /rax :movqImmReg
/rsp /rdi :movqRegReg
:std
:repnz :scasq
:cld
/rcx :negqReg
63 /rcx :btsqImm8Reg
/rcx :pushqReg
/rbx :pushqReg
:retn
]] [ ] sys .asm .createFunction =*remainingDataStack
# Count unused cells up to top of call stack
# 0 <- number of remaining stack cells
[[
/rbx :popqReg
/rcx /rcx :xorqRegReg
/rcx :decqReg
STACKTOPMARKER /rax :movqImmReg
/r15 /rdi :movqRegReg
:std
:repnz :scasq
:cld
/rcx :negqReg
63 /rcx :btsqImm8Reg
/rcx :pushqReg
/rbx :pushqReg
:retn
]] [ ] sys .asm .createFunction =*remainingCallStack
{
remainingCallStack txt .produce .u dump
f
} _ =*f *
# vim: syn=elymas
|
