Kernel 0.92+

BIN/SH.S.CMD.txt

@@ -391,7 +391,6 @@ CMD.GETKEY		lda (ZPArgVBufPtr)
 
 				ldy #S.PS.hStdIn
 				lda (pPS),y
-
 				>SYSCALL feof
 				bcs .9
 				tay

BIN/SH.S.txt

@@ -225,6 +225,8 @@ CS.RUN.LOOP		>SLEEP
 .1				jsr CheckSleep
 				beq .3
 
+				ldy #S.PS.hStdIn
+				lda (pPS),y
 				>SYSCALL feof
 				bcs .9
 				
@@ -365,6 +367,8 @@ CS.RUN.READ		jsr CL.RESET
 CS.RUN.READ.9	rts
 *--------------------------------------
 CS.RUN.BATCH	
+*				ldy #S.PS.hStdIn
+*				lda (pPS),y
 *				>SYSCALL feof
 *				bcs .2					unsupported
 				
@@ -410,6 +414,9 @@ CS.RUN.BATCH
 .5				jsr CORE.Run
 				bcc CS.RUN.LOOP.END
 
+				tay							0 = EOF
+				bne CS.RUN.LOOP.END
+				
 				pha
 				lda #$ff
 				>STA.G bExit

BIN/X.CPMVRM.S.txt

@@ -129,10 +129,18 @@ CS.INIT
 				.FIN
 				
 				clc
-				rts
+CS.INIT.RTS		rts
 *--------------------------------------
-CS.RUN			>SYSCALL GetChar
-				bcs .15					no char
+CS.RUN			ldy #S.PS.hStdIn
+				lda (pPS),y
+				>SYSCALL feof
+				bcs CS.INIT.RTS			I/O error
+				
+				tay
+				beq .15
+				
+				>SYSCALL GetChar
+				bcs CS.INIT.RTS			I/O error
 				
 				cmp #$03				Ctrl-C
 				bne .10

SYS/KERNEL.S.IO.txt

@@ -442,6 +442,9 @@ IO.READ.PIPE	>PULLW .3+1				S.IOCTL.BUFPTR
 				sec
 				rts					
 *--------------------------------------
+* (pStack)+0	buf
+* (pStack)+2	count
+*--------------------------------------
 IO.WRITE.PIPE	>PULLW .2+1				S.IOCTL.BUFPTR
 				>PULLA					S.IOCTL.BYTECNT.LO
 				eor #$ff
@@ -575,8 +578,6 @@ IO.EOF			tax
 IO.EOF.CDEV		>LDYAI K.IOBuf
 				>STYA K.S.IOCTL+S.IOCTL.BUFPTR
 
-				jsr K.IOCTL.GetPDrv
-				
 				lda #S.IOCTL.STATCODE.GETRC
 				
 				jsr K.GetDevStatus.I
@@ -587,6 +588,9 @@ IO.EOF.CDEV		>LDYAI K.IOBuf
 .9				rts			
 *--------------------------------------
 IO.EOF.SSOCK
+				lda #MLI.E.IO
+				sec
+				rts
 *--------------------------------------
 IO.EOF.PIPE