mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-12 10:23:48 +00:00
Kernel 0.92
This commit is contained in:
parent
4490e22b2d
commit
a8f1c342f9
Binary file not shown.
@ -211,11 +211,13 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||
txa
|
||||
>STA.G hRespBuf
|
||||
|
||||
CS.RUN.GET jsr Init.Timeout
|
||||
|
||||
CS.RUN.GET >SLEEP
|
||||
|
||||
jsr CS.RUN.REQUEST
|
||||
bcs .99
|
||||
|
||||
jsr Init.Timeout
|
||||
|
||||
.1 >SLEEP
|
||||
|
||||
>PUSHWI RESP.BUFSIZE
|
||||
@ -263,12 +265,25 @@ CS.RUN.IOERR pha
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.REQUEST >PUSHWI HTTP.GET1.LEN
|
||||
CS.RUN.REQUEST jsr Init.Timeout
|
||||
|
||||
.10 >PUSHWI HTTP.GET1.LEN
|
||||
>PUSHW L.HTTP.GET1
|
||||
jsr .8
|
||||
bcs .99
|
||||
|
||||
>PUSHW ZPBufLen
|
||||
jsr .8
|
||||
bcc .1
|
||||
tay
|
||||
bne .99
|
||||
|
||||
>SLEEP
|
||||
jsr Wait.TimeOut
|
||||
bcc .10
|
||||
|
||||
.99 lda #$ff
|
||||
sec
|
||||
rts
|
||||
|
||||
.1 >PUSHW ZPBufLen
|
||||
>PUSHW ZPBufPtr
|
||||
jsr .8
|
||||
bcs .9
|
||||
@ -276,7 +291,7 @@ CS.RUN.REQUEST >PUSHWI HTTP.GET1.LEN
|
||||
>PUSHWI HTTP.GET2.LEN
|
||||
>PUSHW L.HTTP.GET2
|
||||
jsr .8
|
||||
.99 bcs .9
|
||||
bcs .9
|
||||
|
||||
>LDYA ZPHostPtr
|
||||
>SYSCALL strlen
|
||||
@ -361,13 +376,15 @@ SA.REMOTE .DA #AF.INET S.SOCKADDR.AF
|
||||
.BS 4 S.SOCKADDR.ADDR
|
||||
.DA TCP.PORT.HTTP
|
||||
*--------------------------------------
|
||||
HTTP.GET1 .AZ "GET /"
|
||||
HTTP.GET1 .AS "GET /"
|
||||
HTTP.GET1.LEN .EQ *-HTTP.GET1
|
||||
HTTP.GET2 .AS " HTTP/1.1\r\n"
|
||||
.AS "User-Agent: A2osX.HTTPGET\r\n"
|
||||
.AZ "Host: "
|
||||
HTTP.GET2 .AS " HTTP/1.1"
|
||||
.DA #C.CR,#C.LF
|
||||
.AS "User-Agent: A2osX.HTTPGET"
|
||||
.DA #C.CR,#C.LF
|
||||
.AS "Host: "
|
||||
HTTP.GET2.LEN .EQ *-HTTP.GET2
|
||||
HTTP.GET3 .AZ "\r\n"
|
||||
HTTP.GET3 .DA #C.CR,#C.LF
|
||||
HTTP.GET3.LEN .EQ *-HTTP.GET3
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
|
Loading…
Reference in New Issue
Block a user