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

webserver: fix silly address bug, but it's not working now

Browse Source
This commit is contained in:
Vince Weaver 2016-12-14 17:20:28 -05:00
parent ad9db0d0e7
commit 60a25f3958
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ethernet/webserver.bas
View File

@ -213,12 +213,12 @@
2010 FOR I=1 TO LEN(A$) 2010 FOR I=1 TO LEN(A$)
2015 POKE DP,ASC(MID$(A$,I,1)) 2015 POKE DP,ASC(MID$(A$,I,1))
2017 IF BW=0 THEN GOTO 2020 2017 IF BW=0 THEN GOTO 2020
2018 BO=BO-1: IF BO=0 THEN POKE HA,96: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
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,96: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
' '
' Update TX write ptr ' Update TX write ptr