Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-26 21:54:31 +00:00
parent c568890386
commit e26f082124
3 changed files with 13 additions and 9 deletions

Binary file not shown.

View File

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

View File

@ -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
*--------------------------------------