Kernel 0.94

BIN/ASM.S.MAC.txt

@@ -274,6 +274,9 @@ MAC.ReadLine	>LDA.G MAC.hBuf
 .21				cmp #'#'
 				bne .20
 				
+			>LDYA ZPMacroBuf
+			>SYSCALL puts
+			>DEBUG	
 				jsr MAC.GetArgCnt
 				ora #$30
 				bra .7
@@ -327,6 +330,7 @@ MAC.Put			>LDA.G MAC.StkPtr
 				dey
 				lda ZPPtr2+1
 				sta (ZPMacroStk),y		get offset
+				clc
 				rts
 *---------------------------------------
 MAC.Push		>LDA.G MAC.StkPtr
@@ -426,7 +430,22 @@ MAC.GetArgCnt	phy
 				
 .1				iny
 				lda	(ZPMacroArgBuf),y
+				beq .8
 				
+				cmp #','
+				bne .1
+				
+				iny
+				inx
+				bra .1
+				
+.7				tya
+				beq .8
+				
+				inx
+						
+.8				txa
+
 				ply
 				clc
 				rts

BIN/ASM.S.OUT.txt

@@ -25,8 +25,8 @@ OUT.Reset		ldx #4
 				rts
 *---------------------------------------
 OUT.PrintLineOn
-*			clc
-*			rts
+			clc
+			rts
 				>LDA.G ASM.LI.ON
 				bpl .9
 				>LDA.G ASM.MA.ON		MACRO Mode ?