From f28d5fbd8071822a10f79452d756a11b90046aa5 Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Sat, 27 Jun 2020 02:24:42 +0200
Subject: SMSG-Macro kann jetzt bis 9 printf-Style-Parameter (thanks CHH!)

---
 MyExec.i | 41 +++++++++++++++++++++++++++++++++++------
 1 file changed, 35 insertions(+), 6 deletions(-)

diff --git a/MyExec.i b/MyExec.i
index 1802037..dd1f13e 100644
--- a/MyExec.i
+++ b/MyExec.i
@@ -122,21 +122,50 @@ MSG		MACRO
 		ENDM
 
 **************************************************************************
-* SMSG "Text" gibt "Text" auf serial port aus
+* SMSG <"Hello, %s!",a0> gibt Text mit printf-Argumenten auf serial port aus
 
 SMSG		MACRO
+	IFND DEBUG
+		MEXIT
+	ENDC
 		XREF	_MyExecBase
-		bra.s	.smsg1\@
-.smsg2\@:	dc.b	\1,0
+		movem.l	d0/d1/a0/a1/a6,-(SP)
+		bra.b	.smsg1\@
+.smsg2\@:	dc.b	\1,13,10,0
 		EVEN
-.smsg1\@:	move.l	a6,-(SP)
+.smsg1\@:
+	IFGE	NARG-9
+		move.l	\9,-(SP)
+	ENDC
+	IFGE	NARG-8
+		move.l	\8,-(SP)
+	ENDC
+	IFGE	NARG-7
+		move.l	\7,-(SP)
+	ENDC
+	IFGE	NARG-6
+		move.l	\6,-(SP)
+	ENDC
+	IFGE	NARG-5
+		move.l	\5,-(SP)
+	ENDC
+	IFGE	NARG-4
+		move.l	\4,-(SP)
+	ENDC
+	IFGE	NARG-3
+		move.l	\3,-(SP)
+	ENDC
+	IFGE	NARG-2
+		move.l	\2,-(SP)
+	ENDC
 		movea.l	_MyExecBase,a6
 		pea	.smsg2\@(PC)
 		jsr	meb_RawPrintf(a6)
-		addq.w	#4,SP
-		move.l	(SP)+,a6
+		add.w	#(NARG<<2),SP
+		movem.l	(SP)+,d0/d1/a0/a1/a6
 		ENDM
 
+
 **************************************************************************
 * BTSTW: Testet ein Bit in einem WORD
 
-- 
cgit v1.2.3