From 8dfce9012a7f28485ea9d4b2391c7352ce60a3f7 Mon Sep 17 00:00:00 2001
From: Syndamia <kamen@syndamia.com>
Date: Sun, 3 Aug 2025 11:36:39 +0300
Subject: feat(catalan): Implement modulo

---
 catalan/catalan.a65 | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

(limited to 'catalan/catalan.a65')

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
-- 
cgit v1.3.1-26-gb76a