HTTPGET : many bug fixing, many remaining....?

This commit is contained in:
burniouf 2023-12-15 19:01:07 +01:00
parent 4f27e8c3b0
commit 27a14a992b

View File

@ -310,7 +310,8 @@ CS.RUN.GET jsr CS.RUN.ENCODE
>PUSHBI 0 TYPE >PUSHBI 0 TYPE
>PUSHWZ AUXTYPE >PUSHWZ AUXTYPE
>SYSCALL FOpen >SYSCALL FOpen
bcs .9 bcs .99
sta hFile sta hFile
.1 jsr CS.RUN.RESPONSE .1 jsr CS.RUN.RESPONSE
@ -547,14 +548,17 @@ CS.RUN.RESPONSE jsr Init.TimeOut
inc Received+3 inc Received+3
.70 >PUSHW L.MSG.Progress .70 lda hFile
beq .71
>PUSHW L.MSG.Progress
>PUSHL Received >PUSHL Received
>PUSHBI 4 >PUSHBI 4
>SYSCALL PrintF >SYSCALL PrintF
bcs .9 bcs .9
jmp CS.RUN.RESPONSE .71 jmp CS.RUN.RESPONSE
.8 bit bHeader .8 bit bHeader
bpl .99 bpl .99