mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
Kernel 0.93
This commit is contained in:
parent
2ac253c43b
commit
8ad6b13e23
Binary file not shown.
@ -183,7 +183,7 @@ CS.RUN.LOOP >SLEEP
|
|||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Read
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Read
|
||||||
.99 bcs .9
|
.99 bcs .9
|
||||||
|
|
||||||
.1 >PUSHYA len
|
>PUSHYA len
|
||||||
>PUSHW ZPBufPtr
|
>PUSHW ZPBufPtr
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
|
@ -393,11 +393,13 @@ SKT.Read jsr SKT.PullhFDDataInPtrLen
|
|||||||
bcs .9 I/O error
|
bcs .9 I/O error
|
||||||
|
|
||||||
tay
|
tay
|
||||||
beq .9 exit with CC,Y,A = 0
|
bne .9 eof=true, exit with CC,Y,A = 0
|
||||||
|
|
||||||
jmp SKT.GetDataFromSktIn
|
jmp SKT.GetDataFromSktIn
|
||||||
|
|
||||||
.9 rts
|
.9 lda #0
|
||||||
|
tay
|
||||||
|
rts
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
* # Write (STREAM)
|
* # Write (STREAM)
|
||||||
* ## C
|
* ## C
|
||||||
|
Loading…
Reference in New Issue
Block a user