Kernel 0.93

BIN/PAK.S.txt

@@ -50,8 +50,10 @@ L.MSG.OK		.DA MSG.OK
 L.MSG.ERR		.DA MSG.ERR
 				.DA 0
 *--------------------------------------
-CS.INIT			
-.1				>INC.G ArgIndex
+CS.INIT			clc
+				rts
+*--------------------------------------
+CS.RUN			>INC.G ArgIndex
 				>SYSCALL ArgV
 				bcs .8
 				>STYA ZPPtr1
@@ -70,30 +72,30 @@ CS.INIT
 				dex
 				bne .2
 				
-.99				>PUSHBI 0
+.9				>PUSHBI 0
 				>LDYA L.MSG.USAGE
 				>SYSCALL printf
 				lda #E.SYN
 				sec
-				rts
+.99				rts
 				
 .3				ldy OptionVars-1,x
 				lda #$80
 				sta (pData),y
-				bra .1
+				bra CS.RUN
 *--------------------------------------
 .4				>LDA.G ArcName
 				bne .5
 				
-				bcc .1
+				bcc CS.RUN
 				rts
 				
 .5				>LDA.G hSrcFullPath
-				bne .99
+				bne .9
 				
 				>LDYA ZPPtr1
 				jsr InitSrcDirYA
-				bcc .1
+				bcc CS.RUN
 				rts
 				
 .8				>LDYAI 256
@@ -102,11 +104,8 @@ CS.INIT
 				>STYA ZPFullPath
 				txa
 				>STA.G hSrcFullPath
-				
-				clc
-				rts
 *--------------------------------------
-CS.RUN			ldy #S.PS.hStdIn
+CS.RUN.LOOP		ldy #S.PS.hStdIn
 				lda (pPS),y
 				>SYSCALL feof
 				bcs .99

BIN/SH.S.CMD.txt

@@ -645,7 +645,6 @@ CMD.CALL.YAX	stx M32.ACC				X=Code to Execute
 				lda #$C0
 				jsr CORE.StkPush
 				
-				>INC.G bBatchMode
 				clc				
 .9				rts
 *--------------------------------------
@@ -664,7 +663,7 @@ CMD.EXIT		lda (ZPArgVBufPtr)
 				inc pStack
 				
 CMD.EXIT.A		sta M32.ACC
-				>DEBUG
+
 .1				jsr CORE.StkPull
 				bcs	CMD.EXIT.RTS
 				
@@ -672,11 +671,10 @@ CMD.EXIT.A		sta M32.ACC
 				beq .8
 				
 				and #$3F
-				ldx #1
 				cmp #C.IF
-				beq .3
+				beq .1
 				
-.2				ldx #3
+.2				ldx #2
 				cmp #C.WHILE
 				bne CMD.EXIT.99
 				
@@ -686,7 +684,7 @@ CMD.EXIT.A		sta M32.ACC
 				dex
 				bne .4
 
-				sta (pData)
+.5				sta (pData)
 				bra .1
 				
 .8				jsr CORE.StkPull
@@ -711,13 +709,8 @@ CMD.EXIT.A		sta M32.ACC
 				
 				jsr CORE.StkPull
 				sta ZPInputBuf
-				
-				>DEC.G bBatchMode
-				
-				pha
-				lda #$FF
-				>STA.G bExit
-				pla
+
+				lda M32.ACC
 				clc
 CMD.EXIT.RTS	rts
 

BIN/SH.S.txt

@@ -271,7 +271,7 @@ CS.RUN.LOOP		>SLEEP
 				cmp #3					Ctrl-C
 				bne CS.RUN.LOOP
 				
-				>LDA.G bBatchMode		batch mode ?
+				lda (pData)				batch mode ?
 				beq CS.RUN.LOOP
 				
 				>LDA.G bSET.C
@@ -287,7 +287,7 @@ CS.RUN.LOOP		>SLEEP
 .5				cmp #3					Ctrl-C
 				bne .60
 				
-				>LDA.G bBatchMode		batch mode ?
+				lda (pData)				batch mode ?
 				beq .61
 				
 				>LDA.G bSET.C
@@ -303,7 +303,7 @@ CS.RUN.LOOP		>SLEEP
 .6				>LDA.G bReadMode		read mode ?
 				bne .7
 				
-.62				>LDA.G bBatchMode		batch mode ?
+.62				lda (pData)				batch mode ?
 				beq CS.RUN.INTERACTIVE
 				jmp CS.RUN.BATCH
 .7				jmp CS.RUN.READ
@@ -463,7 +463,7 @@ CS.RUN.LOOP.END	ldy #S.PS.RC
 				bcc CS.RUN.LOOP.8
 				tay
 				beq CS.RUN.LOOP.8
-				>LDA.G bBatchMode			batch mode ?
+				lda (pData)					batch mode ?
 				beq .1
 				
 				>LDA.G bSET.E
@@ -710,7 +710,6 @@ PUSHD.STACK		.BS PUSHD.STACK.MAX+1
 hFuncList		.BS 1
 
 bReadMode		.BS 1
-bBatchMode		.BS 1
 bFuncMode		.BS 1
 bExitOnEOF		.BS 1