Initialize interpreter in Adam task

System/FFI/LibC.HC

@@ -1,3 +1,25 @@
+#define PUSH_SYSV_REGS \
+asm {PUSH RCX PUSH RDX PUSH RBX PUSH RBP PUSH RSI PUSH RDI PUSH R8 PUSH R9 PUSH   \
+    R10 PUSH R11 PUSH R12 PUSH R13 PUSH R14 PUSH R15}
+    #define POP_SYSV_REGS \
+    p0 = p0;          \
+    p1 = p1;          \
+    p2 = p2;          \
+    p3 = p3;          \
+    p4 = p4;          \
+    p5 = p5;          \
+    asm {POP R15 POP R14 POP R13 POP R12 POP R11 POP R10 POP R9 POP R8 POP RDI POP    \
+        RSI POP RBP POP RBX POP RDX POP RCX}
+        #define GET_SYSV_ARGS                              \
+        asm {PUSH R9 PUSH R8 PUSH RCX PUSH RDX PUSH RSI PUSH RDI} \
+        I64 reg RDI p0;                                \
+        I64 reg RSI p1;                                \
+        I64 reg RDX p2;                                \
+        I64 reg RCX p3;                                \
+        I64 reg R8 p4;                                 \
+        I64 reg R9 p5;                                 \
+        asm {POP RDI POP RSI POP RDX POP RCX POP R8 POP R9}
+
 asm {
 _SETJMP::
     MOV [RDI],    RBX     // Store caller saved registers