SP Tools:fopen() & fclose() fix

SYS/KERNEL.S.DEV.txt

@@ -72,7 +72,7 @@ K.GetDev.9		rts
 * ## ASM
 * `>PUSHB DevID`
 * `>PUSHW S.DIB`
-* `>SYSCALL GetDevStatus`
+* `>SYSCALL MkFD`
 * ## RETURN VALUE
 *\--------------------------------------
 K.MkFD			
@@ -202,7 +202,7 @@ K.IOCTL			ldy #3					hFD
 				jmp (pDrv)
 *--------------------------------------
 DEV.OPEN		ldx #IOCTL.OPEN
-				lda IO.hFD
+*				lda IO.hFD
 				jsr DEV.pDrvJmp
 				bcs .9
 
@@ -225,7 +225,6 @@ DEV.WRITE		ldx #IOCTL.WRITE
 
 				inc pStack				pop hFD
 
-				>LDYAI K.S.IOCTL
 				jsr DEV.pDrvJmp
 				bcs .9
 
@@ -237,14 +236,13 @@ DEV.EOF			lda #S.IOCTL.S.EOF
 *--------------------------------------
 DEV.GetStatus	sta K.S.IOCTL+S.IOCTL.S
 
-				ldy #S.FD.DEV.DEVID
-				lda (pFD),y
-				sta K.S.IOCTL+S.IOCTL.UNITNUM
-
 				ldx #IOCTL.STATUS
-				>LDYAI K.S.IOCTL
+*				ldy #S.FD.DEV.DEVID
+*				lda (pFD),y
+*				sta K.S.IOCTL+S.IOCTL.UNITNUM
 *--------------------------------------
-DEV.pDrvJmp		jmp (pDrv)
+DEV.pDrvJmp		>LDYAI K.S.IOCTL
+				jmp (pDrv)
 *--------------------------------------
 DEV.GetPFD		sta IO.hFD
 

SYS/KERNEL.S.TERM.txt

@@ -2,7 +2,6 @@ NEW
   AUTO 3,1
 *--------------------------------------
 DRV.TERM		cld
-
 				jmp (.1,x)
 
 .1				.DA TERM.STATUS
@@ -23,7 +22,8 @@ TERM.STATUS		jsr TERM.GetIOCTLBufCntDCB
 				tay
 				bra TERM.TOAUX
 *--------------------------------------
-TERM.OPEN		sta ZPhFD				hFD in A for OPEN
+TERM.OPEN		
+*				sta ZPhFD				hFD in A for OPEN
 
 TERM.CONTROL
 TERM.CLOSE		jsr TERM.GetDCB

SYS/KERNEL.S.TERMX.txt

@@ -16,7 +16,7 @@ ZPScrBL1		.BS 2
 ZPScrBL2		.BS 2
 *--------------------------------------
 bActive			.BS 1
-ZPhFD			.BS 1
+*ZPhFD			.BS 1
 
 ZPTmpBool		.BS 1
 ZPTmpChar		.BS 1
@@ -100,8 +100,9 @@ TERMX.OPEN		jsr TERMX.ISOPENED
 
 				lda (ZPDCBPtr)			#S.DCB.TTY.DEVID
 				tax
-				lda ZPhFD
+*				lda ZPhFD
-
+				lda IO.hFD				in ZPTMP
+				
 				sta CLRWRITEAUX
 				sta A2osX.SCRNDEVS,x
 				sta SETWRITEAUX