mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-27 11:55:20 +00:00
ethernet: webserver sent back a proper http response!
This commit is contained in:
parent
83874d90a9
commit
2ebf3d489b
@ -110,10 +110,10 @@
|
|||||||
1200 REM *** SEND RESPONSE
|
1200 REM *** SEND RESPONSE
|
||||||
1205 A$="HTTP/1.1 200 OK"+CHR$(13)+CHR$(10)
|
1205 A$="HTTP/1.1 200 OK"+CHR$(13)+CHR$(10)
|
||||||
1210 A$=A$+"Server: VMW-web"+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)
|
1230 A$=A$+"Content-Type: text/html"+CHR$(13)+CHR$(10)
|
||||||
1250 A$=A$+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)
|
1270 A$=A$+CHR$(13)+CHR$(10)
|
||||||
1280 PRINT "SENDING:":PRINT A$
|
1280 PRINT "SENDING:":PRINT A$
|
||||||
' TODO: read TX free size reg (0x420)
|
' TODO: read TX free size reg (0x420)
|
||||||
@ -121,18 +121,20 @@
|
|||||||
1905 OH=PEEK(DP):OL=PEEK(DP)
|
1905 OH=PEEK(DP):OL=PEEK(DP)
|
||||||
1910 TF=(OH*256)+OL
|
1910 TF=(OH*256)+OL
|
||||||
1920 REM *** SHOULD MASK WITH 0x1ff
|
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
|
1930 TA=TF+16384:REM $4000
|
||||||
1935 SI=LEN(A$)
|
1935 SI=LEN(A$)
|
||||||
1940 PRINT "TX OFFSET=";TF;" TX ADDRESS=";TA;" TX SIZE=";SI
|
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
|
2010 FOR I=1 TO SI
|
||||||
2020 POKE DP,ASC(MID$(A$,I,1))
|
2020 POKE DP,ASC(MID$(A$,I,1))
|
||||||
2040 NEXT I
|
2040 NEXT I
|
||||||
2050 REM ** UPDATE TX WRITE PTR
|
2050 REM ** UPDATE TX WRITE PTR
|
||||||
2060 POKE HA,4: POKE LA,36: REM *** 0x424 TX write ptr
|
2060 POKE HA,4: POKE LA,36: REM *** 0x424 TX write ptr
|
||||||
2075 TA=TA+SI
|
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
|
2100 REM *** SEND
|
||||||
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
|
||||||
|
Loading…
Reference in New Issue
Block a user