ap aps

1 files changed, 47 insertions, 0 deletions

diff --git a/apply.s b/apply.s
new file mode 100644
index 0000000..21a1efc
--- /dev/null
+++ b/apply.s
@@ -0,0 +1,47 @@
+
+.include "include/uskel.s"
+
+.include "include/apply.s"
+.include "include/intops.s"
+.include "include/io.s"
+.include "include/main_exit.s"
+
+main:
+	# make an integer
+	pushq $1
+	pushq $INT_code
+	mov %rsp, %r11
+
+	# make a closure for adding stuff
+	pushq $0
+	pushq $plus
+	pushq $FUN2_code
+	mov %rsp, %r12
+
+	# apply first argument
+	push %r11
+	push %r12
+	pushq $2
+	pushq $apply1
+	mov %rsp, %r12
+	
+	# apply second argument (the p.a. function part is still in r12)
+	push %r11
+	push %r12
+	pushq $2
+	pushq $apply1
+	mov %rsp, %r12
+
+	# print the result
+	push %r12
+	pushq $1
+	pushq $print
+	mov %rsp, %r12
+
+	# make the continuation for main (exit)
+	push %rsi
+	pushq $1
+	pushq $main_exit
+
+	mov %rsp, %rsi
+	enter %r12