mirror of
https://github.com/A2osX/A2osX.git
synced 2025-01-12 17:30:23 +00:00
Kernel 0.93+
This commit is contained in:
parent
06f901b121
commit
aee22a2832
Binary file not shown.
@ -166,7 +166,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||
>PUSHW L.SA.REMOTE
|
||||
lda hSocket
|
||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Connect
|
||||
bcc CS.RUN.LOOP
|
||||
bcc .4
|
||||
|
||||
cmp #ERR.SKT.NOCONN
|
||||
bne .9
|
||||
@ -177,7 +177,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||
lda #ERR.SKT.NOCONN
|
||||
bra .9
|
||||
|
||||
>PUSHBI 0
|
||||
.4 >PUSHBI 0
|
||||
>LDYA L.MSG.SKTOK
|
||||
>SYSCALL printf
|
||||
>LDYAI BUFSIZE
|
||||
@ -199,6 +199,7 @@ CS.RUN.LOOP >SLEEP
|
||||
>PUSHW ZPBufPtr
|
||||
lda hSocket
|
||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Read
|
||||
|
||||
.99 bcs .9
|
||||
>PUSHYA len
|
||||
>PUSHW ZPBufPtr
|
||||
@ -206,6 +207,7 @@ CS.RUN.LOOP >SLEEP
|
||||
lda (pPs),y
|
||||
>SYSCALL fwrite
|
||||
bcs .11
|
||||
|
||||
.2 ldy #S.PS.hStdIn
|
||||
lda (pPs),y
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user