feat(catalan): Implement modulo

1 files changed, 17 insertions, 7 deletions

diff --git a/catalan/catalan.a65 b/catalan/catalan.a65
index c51f040..dbc4fd9 100644
--- a/catalan/catalan.a65
+++ b/catalan/catalan.a65
@@ -4,21 +4,31 @@
 
 hello	.byt "HELLO, WORLD!",0
 
+#define store_in_memory(memory, value) .( :\
+	pha		; push a          :\
+	lda value	; a = value       :\
+	sta memory	; memory = a      :\
+	pla		; pop a           :\
+.)
+
+#define applya1(subroutine, valuea, arg1, value1) .( :\
+	lda valuea                                   :\
+	store_in_memory(arg1, value1)                :\
+	jsr subroutine                               :\
+.)
 
 main .(
+	applya1(moda, #34, moda_arg, #5)
+	clc
+	adc #"0"
+	putchar()
+
 	jsr catalan
 	lda cat_n
 	putchar()
 	rts
 .)
 
-#define store_in_memory(memory, value) .( :\
-	pha		; push a          :\
-	lda value	; a = value       :\
-	sta memory	; memory = a      :\
-	pla		; pop a           :\
-.)
-
 /* a = x
  * a *= 4
  * a -= 2