Kernel 0.92+

BIN/MORE.S.txt

@@ -113,37 +113,35 @@ CS.RUN
 				>SYSCALL printf
 				
 CS.RUN.LOOP		jsr CS.RUN.GETLINE
-				bcs	.13
+				bcs	.9
 				
 .1				>INCW.G LineNum
 				
 				>LDA.G LineCount
-				bne .22
+				bne .2
 				>LDA.G bPage
-				beq .22
+				beq .2
 				
 				lda #C.FF
 				>SYSCALL putchar
 				
-.22				jsr CS.RUN.PRINT
+.2				jsr CS.RUN.PRINT
 
 				>INC.G LineCount
 				cmp #PG.SIZE
-				bne .8
+				bne CS.RUN.LOOP
 				lda #0
 				sta (pData),y
 				
 				jsr CS.RUN.PAUSE
-				bcs .9
+				bcc CS.RUN.LOOP
 				
-.8				jmp CS.RUN.LOOP
-				
-.13				cmp #MLI.E.EOF
-				bne .9
+.9				cmp #MLI.E.EOF
+				bne .99
 				
 				lda #0					Exit with no Error
-.9				sec
-.99				rts
+.99				sec
+				rts
 *--------------------------------------
 CS.RUN.OPEN		pha
 				

BIN/SH.S.IO.txt

@@ -38,7 +38,7 @@ IO.Reset.In		>LDA.G IO.hIn
 
 				ldy #S.PS.hStdIn
 				lda (pPS),y
-				>DEBUG
+
 				>SYSCALL fclose
 				
 				pla
@@ -100,7 +100,7 @@ IO.Reset.Out	>LDA.G IO.hOut
 				
 				ldy #S.PS.hStdOut
 				lda (pPS),y
-				>DEBUG
+
 				>SYSCALL fclose
 				
 				pla

SYS/KERNEL.S.CORE.txt

@@ -518,8 +518,21 @@ CORE.PSFree		sta .10+1				Save PS ID
 				jsr CORE.GetPSByID		S.PS in ZPPtr1
 				bcs .9
 				>STYA ZPPtr1
+				
+				ldy #S.PS.hStdOut
+				lda (ZPPtr1),y
+				tax
+				lda OF.Table.hFD,x
+				jsr K.GetMemPtr
+				>STYA pFD
+				lda (pFD)
+				cmp #S.FD.T.PIPE
+				bne .11
+				
+				txa
+				>SYSCALL fclose
 
-				ldy #S.PS.hSS
+.11				ldy #S.PS.hSS
 				jsr .8
 				
 				ldy #S.PS.hDS

SYS/KERNEL.S.IO.txt

@@ -431,8 +431,6 @@ IO.READ.PIPE	ldy #S.FD.PIPE.S
 				jsr K.GetMemPtr
 				>STYA .2+1
 				
-*				>DEBUG				
-				
 				ldy #S.FD.PIPE.Head
 				lda (pFD),y
 				sta .4+1
@@ -551,8 +549,6 @@ IO.WRITE.PIPE	ldy #S.FD.PIPE.S
 				lda (pFD),y
 				jsr K.GetMemPtr
 				>STYA .3+1
-
-*				>DEBUG
 				
 				ldy #S.FD.PIPE.Head
 				lda (pFD),y
@@ -683,8 +679,7 @@ IO.EOF.SSOCK
 				sec
 				rts
 *--------------------------------------
-IO.EOF.PIPE		>DEBUG
-
+IO.EOF.PIPE		
 				lda #MLI.E.IO
 				sec
 				rts