Kernel 0.92

This commit is contained in:
Rémy GIBERT 2018-12-06 08:46:26 +01:00
parent 4490e22b2d
commit a8f1c342f9
2 changed files with 29 additions and 12 deletions

Binary file not shown.

View File

@ -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