diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index f9ec0edc..c1d8cf60 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/HTTPGET.S.txt b/BIN/HTTPGET.S.txt index 67034079..66b25e93 100644 --- a/BIN/HTTPGET.S.txt +++ b/BIN/HTTPGET.S.txt @@ -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