Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-16 22:29:29 +00:00
Code Issues Projects Releases Wiki Activity

webserver: print progress dots

Browse Source
This commit is contained in:
Vince Weaver 2016-12-15 13:40:03 -05:00
parent 60a25f3958
commit 407c2296b3
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ethernet/webserver.bas
View File

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