Kernel 0.9.2

SYS/KERNEL.S.STAT.txt

@@ -192,7 +192,18 @@ K.MkNod 		>STYA ZPPtr1			pathname
 				beq .98
 				
 .2				lda K.S.STAT+S.STAT.DEV
+				sta Nod.Table.hFD,x
+				stx .3+1
 
+				>LDYA ZPPtr1
+				jsr K.NewStr
+				bcs .99
+				
+				txa
+				
+.3				ldx #$ff				SELF MODIFIED				
+				sta Nod.Table.hPath,x
+				
 				lda (pFD)				#S.FD.T
 				
 				tax
@@ -216,23 +227,8 @@ STAT.MKNOD.BDEV
 STAT.MKNOD.DSOCK
 STAT.MKNOD.SSOCK
 STAT.MKNOD.PIPE
-				ldx #S.STAT
-				ldy #$ff
-				
-.1				inx
-				iny
-				lda (ZPPtr1),y
-				bne .1
-				
-				txa
-				tay
-				lda #0
-				jsr K.GetMem
-				bcs .9
-				>STYA ZPPtr2
-				
-				
-.9				rts				
+				clc
+				rts				
 */--------------------------------------
 * # MKFIFO
 * return a hFILE to a new FIFO