From bc95c179ac98f9b451ae0ed6e9dabb72e0f8f628 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Mon, 12 Nov 2018 17:19:44 +0100
Subject: [PATCH] Kernel 0.92

---
 SBIN/SHELL.S.CMD.txt |  5 +++++
 SBIN/SHELL.S.txt     | 10 ++--------
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/SBIN/SHELL.S.CMD.txt b/SBIN/SHELL.S.CMD.txt
index 3683ce0f..4a4e4571 100644
--- a/SBIN/SHELL.S.CMD.txt
+++ b/SBIN/SHELL.S.CMD.txt
@@ -17,6 +17,10 @@ CMD.Init		>LDYAI 256
 				txa
 				>STA.G CMD.hArgVBuf
 				
+				lda #CMD.IF.PTR
+				tay
+				sta (pData),y
+				
 .9				rts				
 *--------------------------------------
 CMD.Quit		>LDA.G CMD.hArgVBuf
@@ -527,6 +531,7 @@ CMD.IF.F
 				rts
 *--------------------------------------
 Cmd.INT.ELSE	>LDA.G CMD.IF.PTR
+				>DEBUG
 				cmp #CMD.IF.PTR
 				beq .9
 				
diff --git a/SBIN/SHELL.S.txt b/SBIN/SHELL.S.txt
index f2336990..3046b06d 100644
--- a/SBIN/SHELL.S.txt
+++ b/SBIN/SHELL.S.txt
@@ -131,10 +131,6 @@ CS.RUN			jsr SetPWD
 				>SYSCALL GetMemPtr
 				>STYA ZPFileBufPtr
 				
-				lda #CMD.IF.PTR
-				tay
-				sta (pData),y
-
 				.DO CSH=1
 				jsr CSH.Init
 				.FIN
@@ -216,7 +212,7 @@ CS.RUN.INTERCATIVE
 				tay
 				beq .1					no char
 
-				rts						I/O error 
+.9				rts						I/O error 
 				
 .2				cmp #C.EOF				....or Ctrl-D
 				beq .9					CS
@@ -233,7 +229,6 @@ CS.RUN.INTERCATIVE
 
 				jmp CS.RUN.Exec
 .8				jmp CS.RUN.LOOP				
-.9				rts				
 *--------------------------------------
 CS.RUN.READ
 .1				>SLEEP
@@ -271,8 +266,7 @@ CS.RUN.BATCH	>SYSCALL GetChar
 
 				lda #$80
 				>STA.G bPause
-				clc
-				rts
+				jmp CS.RUN.LOOP.END
 
 .2				.DO CSH=1
 				jsr	CSH.Run