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