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

ethernet: webserver sent back a proper http response!

This commit is contained in:
Vince Weaver 2016-12-07 17:17:21 -05:00
parent 83874d90a9
commit 2ebf3d489b
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ethernet/webserver.bas
View File

@ -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$+"<html><head>test</head><body><h3>Apple2 Test</h3></html>"
1260 A$=A$+"<html><head>test</head><body><h3>Apple2 Test</h3></body></html>"
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