1 files changed, 29 insertions, 0 deletions
diff --git a/asm/lisp/test.pit b/asm/lisp/test.pit
new file mode 100644
index 0000000..cafa8f4
--- /dev/null
+++ b/asm/lisp/test.pit
@@ -0,0 +1,29 @@
+(let ( (elf (elf/new!))
+       (entrypoint 0x696000)
+       (toff 0x1000)
+       (phdroff 0x2000))
+  (elf/write-bytes! elf toff
+    '( 0xb8 0x3c 0x00 0x00 0x00 ;; mov rax, 60
+       0xbf 0x2a 0x00 0x00 0x00 ;; mov rdi, 42
+       0x0f 0x05 ;; syscall
+       ))
+  (elf/write-program-header! elf (+ phdroff elf/64_PROGRAM_HEADER_SIZE)
+    :type elf/PROGRAM_HEADER_TYPE_LOAD
+    :offset toff
+    :virtual-addr entrypoint
+    :file-size 0x100
+    :mem-size 0x100
+    :flags (bitwise/or elf/PROGRAM_HEADER_FLAG_R elf/PROGRAM_HEADER_FLAG_X)
+    )
+  (elf/write-header! elf
+    :type elf/TYPE_EXEC
+    :machine elf/MACHINE_AMD64
+    :program-header-offset phdroff
+    :program-header-entry-size elf/64_PROGRAM_HEADER_SIZE
+    :program-header-entries 2
+    :section-header-offset 0
+    :section-header-entry-size elf/64_SECTION_HEADER_SIZE
+    :section-header-entries 0
+    :entry entrypoint
+    )
+  (elf/spit! "test.elf" elf))