From 407c2296b36ee2cb6d239d535371e7a7119aac75 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 15 Dec 2016 13:40:03 -0500
Subject: [PATCH] webserver: print progress dots

---
 ethernet/webserver.bas | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/ethernet/webserver.bas b/ethernet/webserver.bas
index ab3c66e8..23312469 100644
--- a/ethernet/webserver.bas
+++ b/ethernet/webserver.bas
@@ -164,14 +164,16 @@
 '
 1200 REM *** LOAD FILE
 1202 X$=RIGHT$(N$,3):M$="text/html"
-1205 IF X$="txt" THEN M$="text/plain"
-1206 IF X$="png" THEN M$="image/png"
-1207 IF X$="jpg" THEN M$="image/jpg"
-1208 IF N$="teapot.html" GOTO 9000
-1209 ONERR GOTO 8000
+1203 IF X$="txt" THEN M$="text/plain"
+1204 IF X$="png" THEN M$="image/png"
+1205 IF X$="jpg" THEN M$="image/jpg"
+1206 IF N$="teapot.html" GOTO 9000
+1207 ONERR GOTO 8000
+1208 PRINT "LOADING ";N$
 1210 PRINT CHR$(4)+"BLOAD ";N$
 1215 POKE 216,0: REM CANCEL ONERR
 1220 FS=PEEK(43616)+256*PEEK(43617): REM FILESIZE
+1225 PRINT "DONE LOADING"
 ' assume loaded at 0x4000, text page 2
 ' and that max size is 8kb
 1240 A$="HTTP/1.1 200 OK"+CHR$(13)+CHR$(10)
@@ -180,6 +182,7 @@
 1280 A$=A$+"Content-Type: "+M$+CHR$(13)+CHR$(10)+CHR$(13)+CHR$(10)
 '
 1380 PRINT "SENDING:":PRINT A$
+1385 C=0
 '
 ' read TX free size reg (0x420)
 '
@@ -216,10 +219,12 @@
 2018 BO=BO-1: IF BO=0 THEN POKE HA,64:POKE LA,0:BW=0
 2020 NEXT I
 2025 FOR I=1 TO FS
+2026 C=C+1: IF C=50 THEN PRINT ".";:C=0
 2030 POKE DP,PEEK(16383+I)
 2032 IF BW=0 THEN GOTO 2035
 2033 BO=BO-1: IF BO=0 THEN POKE HA,64:POKE LA,0:BW=0
 2035 NEXT I
+2040 PRINT
 '
 ' Update TX write ptr
 '
@@ -233,6 +238,7 @@
 ' SEND packet
 '
 2100 REM *** SEND
+2102 PRINT "SENDING"
 2105 POKE HA,4: POKE LA,1: REM *** 0x401 command register
 2110 POKE DP, 32: REM *** SEND
 '