mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-27 16:29:06 +00:00
Kernel 0.93
This commit is contained in:
parent
9f844defbb
commit
ff15fa385f
Binary file not shown.
@ -256,15 +256,7 @@ CS.RUN.GETLINE >PUSHWI 256
|
||||
lda (pPS),y
|
||||
|
||||
.1 >SYSCALL fgets
|
||||
bcs .9
|
||||
|
||||
lda #'\'
|
||||
>PUSHA
|
||||
ldy #S.PS.hStdErr
|
||||
lda (pPS),y
|
||||
>SYSCALL fputc
|
||||
|
||||
.9 rts
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.PRINT lda bLineNum
|
||||
bpl .1
|
||||
|
@ -574,17 +574,18 @@ IO.WRITE.PIPE ldy #S.FD.PIPE.S
|
||||
|
||||
bmi IO.READ.PIPE.EOF Remote PS closed the Pipe
|
||||
|
||||
sec
|
||||
ldy #S.FD.PIPE.Free
|
||||
lda (pFD),y
|
||||
ldy #2
|
||||
sec
|
||||
sbc (pStack),y
|
||||
|
||||
tax
|
||||
|
||||
ldy #S.FD.PIPE.Free+1
|
||||
lda (pFD),y
|
||||
ldy #3
|
||||
sbc (pStack),y
|
||||
|
||||
bcc IO.READ.PIPE.NODATA not enough room in PIPE
|
||||
|
||||
ldy #S.FD.PIPE.Free+1
|
||||
|
Loading…
x
Reference in New Issue
Block a user