Kernel 0.93+

BIN/CUT.S.txt

@@ -54,9 +54,7 @@ L.MSG.CRLF		.DA MSG.CRLF
 CS.INIT			clc
 				rts
 *--------------------------------------
-CS.RUN			stz ArgCount
-
-				lda #C.SPACE
+CS.RUN			lda #C.SPACE
 				sta Separator
 
 .10				jsr CS.RUN.NextArg

BIN/GREP.S.txt

@@ -57,9 +57,7 @@ L.MSG.NUMLINE	.DA MSG.NUMLINE
 CS.INIT			clc
 				rts
 *--------------------------------------
-CS.RUN			stz ArgIndex
-				stz ArgPattern
-				stz hFile
+CS.RUN
 .10				jsr CS.RUN.NextArg
 				bcs .8
 				lda (ZPPtr1)

BIN/SH.S.CORE.txt

@@ -235,14 +235,18 @@ CORE.Run.7		jsr CORE.GetCharNB
 				php
 				pha
 				
+				lda CORE.IntCmd			$ff if external
+				eor #$80
+				asl						if cc Was external...
+				
+				jsr IO.Reset.OutC		restore Output, NO close if EXTERNAL
+				
 				>LDA.G CORE.bPipeIn
-				bpl .4
+				bpl .6
 				
 				jsr IO.Pop.In			restore Input
 				
-.4				jsr IO.Pop.Out			restore Output
-				
-				pla
+.6				pla
 				plp
 				bcs CORE.Run.RTS
 				

BIN/SH.S.IO.txt

@@ -92,7 +92,7 @@ IO.Pop.Out		clc
 				.HS B0					BCS
 *--------------------------------------			
 IO.Reset.Out	sec
-				>LDA.G IO.hOut
+IO.Reset.OutC	>LDA.G IO.hOut
 				beq .8
 				
 				bcc .1