mirror of https://github.com/A2osX/A2osX.git
SP Tools:fopen() & fclose() fix
This commit is contained in:
parent
89ba551931
commit
3e82fe7a07
Binary file not shown.
Binary file not shown.
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue