Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-05 18:25:43 +00:00
Code Issues Projects Releases Wiki Activity

webserver: add Makefile

Browse Source
This commit is contained in:
Vince Weaver
2016-11-30 21:33:33 -05:00
parent 9e2239d871
commit 89f9e15ab5
2 changed files with 32 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
ethernet/Makefile Normal file
View File

@@ -0,0 +1,21 @@
PCX2HGR = ../hgr-utils/pcx2hgr
DOS33 = ../dos33fs-utils/dos33
TXT2BAS = ../asoft_basic-utils/tokenize_asoft
SHAPETABLE = ../hgr-utils/shape_table
all: ethernet.dsk
SETUP.BAS: setup.bas
$(TXT2BAS) < setup.bas > SETUP.BAS
WEBSERVER.BAS: webserver.bas
$(TXT2BAS) < webserver.bas > WEBSERVER.BAS
ethernet.dsk: SETUP.BAS \
WEBSERVER.BAS
$(DOS33) -y ethernet.dsk SAVE A SETUP.BAS
$(DOS33) -y ethernet.dsk SAVE A WEBSERVER.BAS
clean:
rm -f *~ *.BAS

22
ethernet/webserver.bas
View File

@@ -25,15 +25,15 @@
110 POKE 43367,3: REM 8kB RX buffer
115 POKE 43367,3: REM 8kB TX buffer
START:
/* sets TCP mode */
Sn_MR = 0x01;
/* sets source port number */
Sn_PORT = source_port;
/* sets OPEN command */
Sn_CR = OPEN;
if (Sn_SR != SOCK_INIT) Sn_CR = CLOSE; goto START;
}
{
If (Sn_SR == SOCK_ESTABLISHED) goto ESTABLISHED stage;
'START:
'/* sets TCP mode */
'Sn_MR = 0x01;
'/* sets source port number */
'Sn_PORT = source_port;
'/* sets OPEN command */
'Sn_CR = OPEN;
'if (Sn_SR != SOCK_INIT) Sn_CR = CLOSE; goto START;
'}
'{
'If (Sn_SR == SOCK_ESTABLISHED) goto ESTABLISHED stage;