blob: c24ef5e871985e3ca3736f10695a80e2d07638c5 (
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
<
<
# read absolute address
# 0 -> address to read
# 0 <- byte read
[[
/rbx :popqReg
16 /rdi :movqImmReg
::internalAllocate /rax :movqImmReg
/rax :callqReg
/rcx :popqReg
/rax :pushqReg
8 /rcx /rcx :movqMemDisp8Reg
/rcx /rcx :movzxMem8Reg64
/rcx 8 /rax :movqRegMemDisp8
/rbx :pushqReg
:retn
]] /eypeek defv
# write absolute address
# 0 -> address to write
# 1 -> value to write
[[
/rbx :popqReg
/rax :popqReg
8 /rax /rax :movqMemDisp8Reg
/rcx :popqReg
8 /rcx /rcx :movqMemDisp8Reg
/cl /rax :movbRegMem
/rbx :pushqReg
:retn
]] /eypoke defv
# call absolute address
# 0 -> address to call
[[
/rbx :popqReg
/rax :popqReg
8 /rax /rax :movqMemDisp8Reg
/rax :callqReg
/rbx :pushqReg
:retn
]] /eyexecute defv
# conduct a syscall
# 0 -> syscall number, rax before entry
# 1 -> rdi before entry
# 2 -> rsi before entry
# 3 -> rdx before entry
# 4 -> r10 before entry
# 5 -> r8 before entry
# 6 -> r9 before entry
# 0 <- rdx after syscall
# 1 <- rax after syscall
[[
8 /r15 :subqImm8Reg
/r15 :popqMem
2 {
16 /rdi :movqImmReg
::internalAllocate /rax :movqImmReg
/rax :callqReg
8 /r15 :subqImm8Reg
/rax /r15 :movqRegMem
} rep # allocate return integers
[ /rax /r9 /r8 /r10 /rdx /rsi /rdi ] { ==reg
reg :popqReg
7 reg /bl :movbMemDisp8Reg
%F0 /bl :andbImmReg
/intLoad reg cat :jzLbl8
%10 /bl :cmpbImmReg
/stringLoad reg cat :jeLbl8
"neither int nor string argument in sys .asm .syscall" ::outputError
:ud2
/stringLoad reg cat :label
24 reg reg :leaqMemDisp8Reg
/doneLoad reg cat :jmpLbl8
/intLoad reg cat :label
8 reg reg :movqMemDisp8Reg
/doneLoad reg cat :label
} each
:syscall
/r15 /rcx :movqMemReg
/rax 8 /rcx :movqRegMemDisp8
/rcx :pushqReg
8 /r15 :addqImm8Reg
/r15 /rcx :movqMemReg
/rdx 8 /rcx :movqRegMemDisp8
/rcx :pushqReg
8 /r15 :addqImm8Reg
/r15 :pushqMem
8 /r15 :addqImm8Reg
:retn
]] /eysyscall defv
> _ ==globalFunctions { defv }' ::allocateOffsetStruct
"asm" enterSubScope
[
globalFunctions keys eydeff { | }' createScopeEntries
createScopeExtensionEntries
] :execute
leaveSubScope
> --
# vim: syn=elymas
|
