From 27a14a992b7bf458866cd4931c64cd9862c1f4b3 Mon Sep 17 00:00:00 2001
From: burniouf <remy.gibert@free.fr>
Date: Fri, 15 Dec 2023 19:01:07 +0100
Subject: [PATCH] HTTPGET : many bug fixing, many remaining....?

---
 BIN/HTTPGET.S.txt | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/BIN/HTTPGET.S.txt b/BIN/HTTPGET.S.txt
index 6d5cba70..28ea93ab 100644
--- a/BIN/HTTPGET.S.txt
+++ b/BIN/HTTPGET.S.txt
@@ -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