mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-12 14:29:33 +00:00
Kernel 0.93
This commit is contained in:
parent
31533e52d7
commit
a2c877fad4
Binary file not shown.
@ -1031,7 +1031,7 @@ FOR.EXEC jsr CORE.ArgV.NextChar skip "`"
|
|||||||
>PUSHWI 0 auxtype
|
>PUSHWI 0 auxtype
|
||||||
>PUSHBI 0 type
|
>PUSHBI 0 type
|
||||||
>PUSHBI O.RDONLY+O.TEXT
|
>PUSHBI O.RDONLY+O.TEXT
|
||||||
>LEA.G IO.NodBuf
|
>LEA.G IO.FIFO
|
||||||
>SYSCALL fopen
|
>SYSCALL fopen
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
@ -25,7 +25,7 @@ IO.Pipe.In >LDA.G IO.hOut
|
|||||||
>PUSHWI 0 auxtype
|
>PUSHWI 0 auxtype
|
||||||
>PUSHBI 0 type
|
>PUSHBI 0 type
|
||||||
>PUSHBI O.RDONLY
|
>PUSHBI O.RDONLY
|
||||||
>LEA.G IO.NodBuf
|
>LEA.G IO.FIFO
|
||||||
|
|
||||||
>SYSCALL fopen
|
>SYSCALL fopen
|
||||||
bcs IO.Set.RTS
|
bcs IO.Set.RTS
|
||||||
@ -58,37 +58,17 @@ IO.Reset.In >LDA.G IO.hIn
|
|||||||
.8 clc
|
.8 clc
|
||||||
IO.Reset.In.RTS rts
|
IO.Reset.In.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
IO.Pipe.Out >LDYAI 512
|
IO.Pipe.Out >PUSHWI 0 mode
|
||||||
>SYSCALL pipe
|
>LEA.G IO.FIFO
|
||||||
|
>SYSCALL MKFIFO
|
||||||
bcs IO.Reset.In.RTS
|
bcs IO.Reset.In.RTS
|
||||||
>STA.G IO.hPipe
|
|
||||||
|
|
||||||
>PUSHA
|
|
||||||
>PUSHBI 1
|
|
||||||
>PUSHW L.NOD.Template
|
|
||||||
>LEA.G IO.NodBuf
|
|
||||||
>SYSCALL sprintf
|
|
||||||
|
|
||||||
>PUSHB.G IO.hPipe
|
|
||||||
>PUSHWI 0
|
|
||||||
>LEA.G IO.NodBuf
|
|
||||||
>SYSCALL mknod
|
|
||||||
bcs .99
|
|
||||||
|
|
||||||
>PUSHWI 0 auxtype
|
>PUSHWI 0 auxtype
|
||||||
>PUSHBI 0 type
|
>PUSHBI 0 type
|
||||||
>PUSHBI O.WRONLY
|
>PUSHBI O.WRONLY
|
||||||
>LEA.G IO.NodBuf
|
>LEA.G IO.FIFO
|
||||||
|
|
||||||
>SYSCALL fopen
|
>SYSCALL fopen
|
||||||
bcc IO.Set.Out
|
bcs IO.Reset.In.RTS
|
||||||
|
|
||||||
.99 pha
|
|
||||||
>LDA.G IO.hPipe
|
|
||||||
>SYSCALL close
|
|
||||||
pla
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
IO.Set.Out pha
|
IO.Set.Out pha
|
||||||
jsr IO.Reset.Out
|
jsr IO.Reset.Out
|
||||||
|
@ -753,11 +753,10 @@ HIS.Index .BS 1
|
|||||||
IO.hIn .BS 1
|
IO.hIn .BS 1
|
||||||
IO.hOut .BS 1
|
IO.hOut .BS 1
|
||||||
IO.hErr .BS 1
|
IO.hErr .BS 1
|
||||||
IO.hPipe .BS 1
|
|
||||||
|
|
||||||
*M32.BUF .BS 12 -1234567890\0
|
*M32.BUF .BS 12 -1234567890\0
|
||||||
M32.BUF .EQ *
|
M32.BUF .EQ *
|
||||||
IO.NodBuf .BS 12 /DEV/PIPExx\0
|
IO.FIFO .BS 12 /DEV/FIFOxx\0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DS.END .ED
|
DS.END .ED
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -318,8 +318,6 @@ K.MKFIFO >STYA ZPPtr1 pathname buffer
|
|||||||
>LDYA ZPPtr1
|
>LDYA ZPPtr1
|
||||||
jsr K.sprintf
|
jsr K.sprintf
|
||||||
|
|
||||||
lda #S.STAT.MODE.FIFO
|
|
||||||
sta K.S.STAT+S.STAT.DEV
|
|
||||||
bra K.MkNod.I
|
bra K.MkNod.I
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
* # MkNod
|
* # MkNod
|
||||||
|
Loading…
Reference in New Issue
Block a user