Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

This commit is contained in:
burniouf 2023-12-15 19:01:07 +01:00
parent 4f27e8c3b0
commit 27a14a992b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
BIN/HTTPGET.S.txt
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