From 5e9819bd6c535f42d68c896e21fa060d048aa43d Mon Sep 17 00:00:00 2001
From: Syndamia <kamen@syndamia.com>
Date: Sun, 3 Aug 2025 12:11:09 +0300
Subject: feat(catalan): Implement number printing subroutine

---
 catalan/math.a65 | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'catalan/math.a65')

diff --git a/catalan/math.a65 b/catalan/math.a65
index 667d651..3a93854 100644
--- a/catalan/math.a65
+++ b/catalan/math.a65
@@ -1,6 +1,19 @@
 #ifndef CATALAN_MATH
 #define CATALAN_MATH
 
+#define starg(name, value) .(           :\
+	pha		; push a     :\
+	lda value	; a = value  :\
+	sta name		; name = a   :\
+	pla		; pop a      :\
+.)
+
+#define applya(subroutine, valuea, arg, value) .( :\
+	lda valuea                               :\
+	starg(arg, value)                        :\
+	jsr subroutine                           :\
+.)
+
 ; a *= multa_arg
 multa .(
 	ora #0		; Update flags, so they're accurate with the accumulator value
-- 
cgit v1.3.1-26-gb76a