Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-22 21:54:47 +00:00
parent f637ced1e4
commit ff51059a11
4 changed files with 11 additions and 3 deletions

Binary file not shown.

View File

@ -211,8 +211,15 @@ CS.RUN.SEND.ECHO
CS.RUN.WAIT.REPLY
>SLEEP
ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL feof
bcs CS.RUN.ERR
tay
beq .1
>SYSCALL GetChar
bcs .1
bcs CS.RUN.ERR
cmp #3 Ctrl-C
beq CS.RUN.ERR CS

View File

@ -407,8 +407,8 @@ IO.READ.PIPE ldy #S.FD.PIPE.S
jmp IO.READ.PIPE.99 Remote PS closed the Pipe
.11 ldy #S.FD.PIPE.Used+1
lda (pFD),y
tax
dey
ora (pFD),y
bne .10
@ -505,7 +505,7 @@ 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
sec
ldy #S.FD.PIPE.Free
lda (pFD),y

View File

@ -54,6 +54,7 @@ K.FPutC jsr PFT.CheckNodeA
bcs K.FPutC.RET1
lda (pStack) character
sta K.IOBuf
ldy #1