Kernel 0.92

BIN/SHELL.S.CMD.txt

@@ -827,6 +827,7 @@ Cmd.GetEXP		>LDA.G CMD.ArgIndex
 .1				>PUSHYA
 				>LDYA L.CMD.IF.TOKEN4	+ - .... ?
 				jsr Lookup
+
 				bcs .90
 				txa
 				>STA.G CMD.Operator		
@@ -854,8 +855,8 @@ Cmd.GetEXP		>LDA.G CMD.ArgIndex
 				
 				>PUSHL.G M32.ACC
 				>PUSHBI 4		
-				>PUSHEA.G M32.BUF
-				>LDYA L.M32.Printf
+				>PUSHW L.M32.Printf
+				>LEA.G M32.BUF
 				>SYSCALL sprintf
 				bcs .9
 				

X.M32.S.txt

@@ -8,32 +8,48 @@ AUTO 4,1
 *  M32.ARG		.BS 4
 *  M32.TMP		.BS 4
 *--------------------------------------
-M32.Add			ldx #0					ARG-ACC->ACC
-				ldy #4
+M32.Add			ldy #M32.ARG+4			ARG+ACC->ACC
 		
+.1				dey
+				lda (pData),y
+				pha
+				cpy #M32.ARG
+				bne .1
+				
+				ldy #M32.ACC
+				ldx #4
+				
 				clc
 				
-.1				lda M32.ARG,x
-				adc	M32.ACC,x
-				sta M32.ACC,x
-				inx
-				dey
-				bne .1
+.2				pla
+				adc (pData),y
+				sta (pData),y
+				iny
+				dex
+				bne .2
 			
 				rts						if CS, Overflow
 *---------------------------------------
-M32.Sub			ldx #0					ARG-ACC->ACC
-				ldy #4
-
-				sec
-
-.1				lda M32.ARG,x
-				sbc	M32.ACC,x
-				sta M32.ACC,x
-				inx
-				dey
+M32.Sub			ldy #M32.ARG+4			ARG+ACC->ACC
+		
+.1				dey
+				lda (pData),y
+				pha
+				cpy #M32.ARG
 				bne .1
 				
+				ldy #M32.ACC
+				ldx #4
+				
+				sec
+				
+.2				pla
+				sbc (pData),y
+				sta (pData),y
+				iny
+				dex
+				bne .2
+				
 				bcs .8					if CC, Overflow	
 				
 				sec