2018-06-08 14:42:11 +00:00
|
|
|
|
NEW
|
|
|
|
|
PREFIX /A2OSX.BUILD
|
|
|
|
|
AUTO 4,1
|
|
|
|
|
*--------------------------------------
|
2018-06-21 15:12:10 +00:00
|
|
|
|
IO.SELECT jsr K.GetMemPtr
|
2018-06-19 15:08:22 +00:00
|
|
|
|
>STYA pNode
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
IO.WRITE lda (pNode) #S.NODE.T
|
2018-06-19 05:55:12 +00:00
|
|
|
|
tax
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
jmp (.1,x)
|
2018-06-19 15:08:22 +00:00
|
|
|
|
.1 .DA IO.WRITE.REG
|
2018-06-19 05:55:12 +00:00
|
|
|
|
.DA STDIO.IOERR DIR
|
2018-06-19 15:08:22 +00:00
|
|
|
|
.DA IO.WRITE.CDEV
|
2018-06-19 05:55:12 +00:00
|
|
|
|
.DA STDIO.IOERR BDEV
|
|
|
|
|
.DA STDIO.IOERR LNK
|
|
|
|
|
.DA STDIO.IOERR DSOCK
|
2018-06-19 15:08:22 +00:00
|
|
|
|
.DA IO.WRITE.SSOCK
|
|
|
|
|
.DA IO.WRITE.FIFO
|
2018-06-19 05:55:12 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-19 15:08:22 +00:00
|
|
|
|
IO.WRITE.REG >PUSHW K.S.IOCTL+S.IOCTL.BUFPTR
|
|
|
|
|
>PUSHW K.S.IOCTL+S.IOCTL.BYTECNT
|
2018-06-19 05:55:12 +00:00
|
|
|
|
ldy #S.NODE.REG.REF
|
|
|
|
|
>PUSHB (pNode),y
|
2018-06-08 14:42:11 +00:00
|
|
|
|
|
2018-06-19 05:55:12 +00:00
|
|
|
|
jmp K.FWrite
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
IO.WRITE.CDEV ldy #S.NODE.DEV.DRVPTR
|
2018-06-19 05:55:12 +00:00
|
|
|
|
lda (pNode),y
|
|
|
|
|
sta .1+1
|
|
|
|
|
iny
|
|
|
|
|
lda (pNode),y
|
|
|
|
|
sta .1+2
|
|
|
|
|
|
|
|
|
|
lda K.IOBuf
|
|
|
|
|
ldx #IOCTL.WRITE
|
|
|
|
|
.1 jmp $ffff
|
|
|
|
|
*--------------------------------------
|
2018-06-19 15:08:22 +00:00
|
|
|
|
IO.WRITE.SSOCK lda (pNode) #S.NODE.HANDLER
|
2018-06-21 15:12:10 +00:00
|
|
|
|
jsr K.GetMemPtr
|
2018-06-19 05:55:12 +00:00
|
|
|
|
>STYA .1
|
|
|
|
|
|
|
|
|
|
ldy #S.NODE.SSOCK.HSKT
|
|
|
|
|
>PUSHB (pNode),y
|
|
|
|
|
>PUSHB K.IOBuf
|
|
|
|
|
|
|
|
|
|
ldy #S.NODE.SSOCK.WRITE
|
|
|
|
|
lda (pNode),y
|
|
|
|
|
tax Function Offset for write
|
|
|
|
|
.1 jmp $ffff
|
|
|
|
|
*--------------------------------------
|
2018-06-19 15:08:22 +00:00
|
|
|
|
IO.WRITE.FIFO ldy #S.NODE.FIFO.S
|
2018-06-19 05:55:12 +00:00
|
|
|
|
lda (pNode),y
|
|
|
|
|
beq .9 Remote PS did not opened yet the pipe
|
|
|
|
|
cmp #S.NODE.FIFO.S.Closed
|
|
|
|
|
beq .99 Remote PS closed the Pipe
|
|
|
|
|
|
|
|
|
|
ldy #S.NODE.FIFO.hMem
|
|
|
|
|
lda (pNode),y
|
2018-06-21 15:12:10 +00:00
|
|
|
|
jsr K.GetMemPtr
|
2018-06-19 05:55:12 +00:00
|
|
|
|
>STYA .1+2
|
|
|
|
|
|
|
|
|
|
ldy #S.NODE.FIFO.Head
|
2018-06-22 06:24:35 +00:00
|
|
|
|
lda (pNode),y
|
2018-06-19 05:55:12 +00:00
|
|
|
|
inc
|
|
|
|
|
dey #S.NODE.FIFO.Tail
|
|
|
|
|
cmp (pNode),y
|
|
|
|
|
beq .9 FIFO is full
|
|
|
|
|
iny
|
|
|
|
|
sta (pNode),y
|
|
|
|
|
tay
|
|
|
|
|
lda K.IOBuf
|
|
|
|
|
.1 sta $ffff,y
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 lda #MLI.E.VOLFULL
|
|
|
|
|
.HS 2C bit abs
|
|
|
|
|
.99 lda #MLI.E.EOF
|
|
|
|
|
sec
|
|
|
|
|
rts
|
2018-06-08 14:42:11 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.IO
|
|
|
|
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
|
|
|
|
ASM
|