Kernel 0.92+

BIN/MORE.S.txt

@@ -225,7 +225,7 @@ CS.RUN.GETLINE	>PUSHWI	256
 				
 				ldy #S.PS.hStdIn
 				lda (pPS),y
-				>DEBUG
+
 .1				>SYSCALL fgets
 				rts
 *--------------------------------------

SYS/KERNEL.S.IO.txt

@@ -48,7 +48,8 @@ IO.Open.I		ldx #5					$/DEV/
 				ldx #0
 				
 .10				lda Nod.Table.hPath,x
-				beq .6
+				beq .3
+
 				jsr K.GetMemPtr
 				>STYA ZPPtr1
 				
@@ -57,15 +58,16 @@ IO.Open.I		ldx #5					$/DEV/
 .2				lda (ZPPtr1),y
 				iny
 				cmp K.MLI.PATH,y
-				bne .6
+				bne .3
 				cmp #0					end of string ?
 				bne .2
 				
 				lda Nod.Table.hFD,x		return hFD
-				clc
-				rts
+				sta IO.hFD
+				jsr K.GetMemPtr
+				bra .7
 				
-.6				inx
+.3				inx
 				cpx #K.NOD.MAX
 				bne .10
 				
@@ -74,11 +76,11 @@ IO.Open.I		ldx #5					$/DEV/
 				rts						no OF found
 				
 .7				>STYA pFD
-				phx						DEVID
+				phx						DEVID/NODID
 				
 				lda (pFD)				#S.FD.T
 				tax
-				pla						hFILE
+				pla
 				jmp (.8,x)
 				
 .8				.DA STDIO.IOERR			REG
@@ -181,12 +183,14 @@ IO.OPEN.BDEV	sta .1+1				A=DEVID
 *--------------------------------------
 IO.OPEN.DSOCK
 *--------------------------------------
-IO.OPEN.SSOCK
+IO.OPEN.SSOCK	clc
+				rts
 *--------------------------------------
 IO.OPEN.PIPE	ldy #S.FD.PIPE.S
 				lda (pFD),y
 				inc
 				sta (pFD),y
+				lda IO.hFD
 				clc
 				rts
 *--------------------------------------