From 74cad993376dc269e8389fbf150be9ecc36890c7 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 6 Aug 2023 00:25:53 +0200
Subject: fibs work

---
 fibs.s | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100644 fibs.s

(limited to 'fibs.s')

diff --git a/fibs.s b/fibs.s
new file mode 100644
index 0000000..c32f424
--- /dev/null
+++ b/fibs.s
@@ -0,0 +1,81 @@
+
+.include "include/uskel.s"
+
+.include "include/listops.s"
+.include "include/intops.s"
+.include "include/io.s"
+.include "include/main_exit.s"
+
+# | lag1 | lag2 | -> cont
+.thunkcode fibs
+	# next value
+	pushq 030(%rbp)
+	pushq 020(%rbp)
+	pushq $2
+	pushq $plus
+	mov %rsp, %r11
+
+	# fib call with the next value
+	push %r11
+	pushq 030(%rbp)
+	pushq $2
+	pushq $fibs
+	mov %rsp, %r12
+
+	# cons list with lag1
+	push %r12
+	push 020(%rbp)
+	pushq $1
+	pushq $LIST_code
+	mov %rsp, %r13
+
+	# replace self with IND
+	mov %r13, 010(%rbp)
+	movq $IND_code, 0(%rbp)
+
+	mov %rsi, %rbp
+	mov %r13, %rsi
+	enter_rbp
+
+# || -> cont
+.thunkcode fibs0
+	pushq $1
+	pushq $INT_code
+	mov %rsp, %r12
+	pushq $0
+	pushq $INT_code
+	mov %rsp, %r11
+	
+	push %r12
+	push %r11
+	pushq $2
+	pushq $fibs
+
+	enter %rsp
+
+.thunkcode main
+	pushq $0
+	pushq $fibs0
+	mov %rsp, %r12
+
+	pushq $20
+	pushq $INT_code
+	mov %rsp, %r11
+
+	push %r12
+	push %r11
+	pushq $2
+	pushq $list_int_index
+	mov %rsp, %r11
+
+	push %r11
+	pushq $1
+	pushq $print
+	mov %rsp, %r11
+
+	push %rsi
+	pushq $1
+	pushq $main_exit
+
+	mov %rsp, %rsi
+	enter %r11
-- 
cgit v1.2.3