Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-12-25 04:30:59 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-02-26 07:00:37 +00:00
parent 7c93dbacfc
commit 6d95c5b31e
3 changed files with 32 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
INC/A2osX.I.txt
View File

@ -471,7 +471,6 @@ S.FD.SSOCK.STATUS .EQ 7
S.FD.SSOCK .EQ 8
*--------------------------------------
S.FD.PIPE.S .EQ 2
S.FD.PIPE.S.Opened .EQ %10000000
S.FD.PIPE.hMem .EQ 3
S.FD.PIPE.Tail .EQ 4
S.FD.PIPE.Head .EQ 5

44
SYS/KERNEL.S.IO.txt
View File

@ -183,7 +183,12 @@ IO.OPEN.DSOCK
*--------------------------------------
IO.OPEN.SSOCK
*--------------------------------------
IO.OPEN.PIPE
IO.OPEN.PIPE
* ldy #S.FD.PIPE.S
* lda (pFD),y
* inc
* sta (pFD),y
clc
rts
*--------------------------------------
@ -241,10 +246,21 @@ IO.CLOSE.CDEV
IO.CLOSE.BDEV
*--------------------------------------
IO.CLOSE.DSOCK
IO.CLOSE.SSOCK clc
IO.CLOSE.SSOCK
clc
rts
*--------------------------------------
IO.CLOSE.PIPE jsr IO.CLOSE.NOD
IO.CLOSE.PIPE ldy #S.FD.PIPE.S
lda (pFD),y
bmi .1 remote PS closed its end
lda #$80
sta (pFD),y
clc
rts
.1 jsr IO.CLOSE.NOD
ldy #S.FD.PIPE.hMem
@ -400,19 +416,20 @@ IO.READ.SSOCK ldy #S.FD.SSOCK.READ
* (pStack)+2 count
* (pStack)+0 buf
*--------------------------------------
IO.READ.PIPE ldy #S.FD.PIPE.S
lda (pFD),y
bne .11
jmp IO.READ.PIPE.99 Remote PS closed the Pipe
IO.READ.PIPE ldy #S.FD.PIPE.Used+1
.11 ldy #S.FD.PIPE.Used+1
lda (pFD),y
lda (pFD),y Data ?
dey
ora (pFD),y
bne .10
bne .10 yes...
* lda #0 BLOCKING I/O
ldy #S.FD.PIPE.S
lda (pFD),y
bpl .11
jmp IO.READ.PIPE.99 Remote PS closed the Pipe
.11 lda #0 BLOCKING I/O
sec
rts
@ -503,7 +520,8 @@ IO.READ.PIPE.99 lda #MLI.E.EOF
*--------------------------------------
IO.WRITE.PIPE ldy #S.FD.PIPE.S
lda (pFD),y
beq IO.READ.PIPE.99 Remote PS closed the Pipe
bmi IO.READ.PIPE.99 Remote PS closed the Pipe
sec
ldy #S.FD.PIPE.Free

2
SYS/KERNEL.S.STAT.txt
View File

@ -306,7 +306,7 @@ K.Pipe >LDYAI K.PIPE.SIZE
sta (pFD),y
ldy #S.FD.PIPE.S
lda #S.FD.PIPE.S.Opened
lda #1
sta (pFD),y
iny S.FD.PIPE.hMem