From 2ebf3d489b06303a2e5034522ca862563a6febac Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Wed, 7 Dec 2016 17:17:21 -0500 Subject: [PATCH] ethernet: webserver sent back a proper http response! --- ethernet/webserver.bas | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/ethernet/webserver.bas b/ethernet/webserver.bas index 70decfb4..2d6c5f33 100644 --- a/ethernet/webserver.bas +++ b/ethernet/webserver.bas @@ -110,10 +110,10 @@ 1200 REM *** SEND RESPONSE 1205 A$="HTTP/1.1 200 OK"+CHR$(13)+CHR$(10) 1210 A$=A$+"Server: VMW-web"+CHR$(13)+CHR$(10) -1220 A$=A$+"Content-Length: 58"+CHR$(13)+CHR$(10) +1220 A$=A$+"Content-Length: 65"+CHR$(13)+CHR$(10) 1230 A$=A$+"Content-Type: text/html"+CHR$(13)+CHR$(10) 1250 A$=A$+CHR$(13)+CHR$(10) -1260 A$=A$+"test

Apple2 Test

" +1260 A$=A$+"test

Apple2 Test

" 1270 A$=A$+CHR$(13)+CHR$(10) 1280 PRINT "SENDING:":PRINT A$ ' TODO: read TX free size reg (0x420) @@ -121,18 +121,20 @@ 1905 OH=PEEK(DP):OL=PEEK(DP) 1910 TF=(OH*256)+OL 1920 REM *** SHOULD MASK WITH 0x1ff -1925 T=TF/8192:TF=TF-(8192*T) +1925 T%=TF/8192:TF=TF-(8192*T%) 1930 TA=TF+16384:REM $4000 1935 SI=LEN(A$) 1940 PRINT "TX OFFSET=";TF;" TX ADDRESS=";TA;" TX SIZE=";SI -2005 POKE HA,TA/256: POKE LA,TA-((TA/256)*256) +2000 T%=TA/256 +2005 POKE HA,T%: POKE LA,TA-(T%*256) 2010 FOR I=1 TO SI 2020 POKE DP,ASC(MID$(A$,I,1)) 2040 NEXT I 2050 REM ** UPDATE TX WRITE PTR 2060 POKE HA,4: POKE LA,36: REM *** 0x424 TX write ptr 2075 TA=TA+SI -2085 POKE HA,TA/256: POKE LA,TA-((TA/256)*256) +2080 T%=TA/256 +2085 POKE HA,T%: POKE LA,TA-(T%*256) 2100 REM *** SEND 2105 POKE HA,4: POKE LA,1: REM *** 0x401 command register 2110 POKE DP, 32: REM *** SEND