Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!think!ames!sri-spam!rutgers!iuvax!pur-ee!j.cc.purdue.edu!ain
From: ain@j.cc.purdue.edu (Patrick White)
Newsgroups: comp.sources.amiga
Subject: web (part 2 of 2)  (and stuff I forgot to mention the first time)
Message-ID: <5898@j.cc.purdue.edu>
Date: Fri, 4-Dec-87 10:20:04 EST
Article-I.D.: j.5898
Posted: Fri Dec  4 10:20:04 1987
Date-Received: Wed, 9-Dec-87 06:44:33 EST
Organization: PUCC Land, USA
Lines: 930
Keywords: web, tested, source
Approved: ain@j.cc.purdue.edu  (Pat White)

Program Name:	web (sources -- part 2 of 2)
Submitted By:	lee@uhccux.uhcc.hawaii.edu (Greg Lee)
Summary:	web is an assembly preprocessor that implements higher level
		constructs than the standard assembler
Poster Boy:  Pat White  (ain@j.cc.purdue.edu)
Tested, but not compiled.

NOTES:
   forgot to mention: web.w is uuencoded in two parts -- need to concatenate
them with an editor bedfore uudecoding them.
   Also, one needs the web binary in order to make this source as web is
written in web.  (I guess we are back to the age old question of which came
first: the chicken or the egg :-)

-- Pat White   (co-moderator comp.sources/binaries.amiga)
UUCP: k.cc.purdue.edu!ain  BITNET: PATWHITE@PURCCVM   PHONE: (317) 743-8421
U.S.  Mail:  320 Brown St. apt. 406,    West Lafayette, IN 47906

----------------------------------------

#	This is a shell archive.
#	Remove everything above and including the cut line.
#	Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar:	Shell Archiver
#	Run the following text with /bin/sh to create:
#	web.w.uu.2
#	web.doc.uu
# This archive created: Fri Dec  4 09:53:01 1987
# By:	Patrick White (PUCC Land, USA)
cat << \SHAR_EOF > web.w.uu.2
M"0EC:'(@(#\))RPG.PEB97$)IPH)"6-H6UB;VP@NPH)("!IB<*"2 @8FAI"2!L;V]K+F9O6UB;VP*"2 @+3X@("!]"@H*-RXQ+C0N,2 @1V\@=&AR;W5G:"!T86)L92!A
M;F0@=')Y('1O(&UA=&-H(&5A8V@@2!T;R!F:6YD('-Y;6)O;"!I;B!T86)L
M90HH=&%R9V5T7W,@<&]I;G1S('1O('1H92!C86YD:61A=&4@2YN97AT+F5N=')Y"@E["71S="YL"2 H=%]E;G1R>2D*"0EB
M97$)(*<@(" @(+<@2DK"@D)9# N=R @/2 @*'1?96YT6UB;VP_"@D)
M(3T@6PEC:'(@(#\@("AA,RDK"@D)"6)E<0E]"@D)+3X)=')Y+FYE>'0N96YT
MB<*"6)H:0FV"B @("T^(" @('T)(" @MR!T0H*MR!P;VEN="!S;W5R8V5?2!S<&%C97,*"@E["2AS;W5R
M8V5?6UB;VP*<&]I;G1E9"!T;R!B>2!T
M87)G971?'0L(&%N9"!L7VQE;F=T:"!IR!D,2 @*ST),0H)(" H83,I*RYB
M(" _("!N97=?;&EN90H)("!B;F4@("!]"K<@5VAA="!I'0_"@ED,B @(" ](" M,0H)83$N;" @/2 @=&%R9V5T7W,*"7L@
M9#(@(" K/2 @,0H)("!C:'(@(#T)*&$Q*2L*"2 @27,@:70@86X@86QP:&%B
M971I8S\)(+<@-RXQ+C0N,BXQ"@D@(&)E<2 @('T*MR!(;W<@;75C:"!L;VYG
M97(@:7,@=&AE(&YE=R!T97AT/PH)9# N;" @/2 @9#$*"60P+FP@+3T@(&0R
M"B A/7L*"2L@>PH)(""W($ET(&ES(&QO;F=E6]N9"!E;F0*"2 @83,N;" @/2 @83$*"2 @83,N;" K/2 @9# @(" @MR Q
M('!A'0*"6$Q(" @+3T@(#$)MR!B86-K('1O(#%S="!C:&%R(&%F=&5R(&]L9"!T
M97AT"@EA,RYL(" ]("!A,0H)83,N;" K/2!D," @(""W(#%S="!P;W-I=&EO
M;B!A9G1ER H83,I*RYB(" ](" H83$I*PH)(" M,2AA
M,2DN8B @/R @;F5W7VQI;F4*"2 @8FYE(" @?0H@?0ID;VYE+FQE;F=T:"YA
M9&IUPH)("![("AA,2DK+F(@(#T@("AS;W5R8V5?6UB;VQS"B!D969I;F4@8G)?;&5N($0R"@EA,B @/2 @7F)R86YC:"YT
M86)L90H)8G)A(" @(" @;F5X="YB2X@4&]I;G1E2!W87,@;&5F="!I;B!!,B!B>2!S96%R8V@*;V)U
M9@H)83 N;" @*ST);%]L96YG=&@@(""W(&]N92!B97EO;F0@96YD(&]F(&QI
M;F4*"6Q?;&5N9W1H("L](&0P"@EA,RYL(" @/0EA, H)83,N;" @*ST)9# )
M(+<@;F5W(&5N9"!O9B!L:6YE"@E[(" M*&$S*2YB(" ](" M*&$P*0H)(" @
M83 N; D@(#\@('1M<%]L;@H)(" @8FYE(" @?0H)*'1M<%]L;BDK+F(@(#T@
M(#,H03(I"@DH=&UP7VQN*2LN8B @/2 @-"A!,BD*"2AT;7!?;&XI*RYB(" ]
M(" U*$$R*0H)*'1M<%]L;BDK+F(@(#T@("<@)PH*"CR @8VAR(" ](" H=&UP7VQN*2L*"2 @(&ES+FET
M"2 @)R D)";<@-RXQ+C4N,2XR"@DH=&UP7VQN
M*2LN8B @/2 @)R G"@EC;'(N8B @(" H=&%R9V5T7W,I*PH)+2U&:6YD('-T
M87)T(&]F('-E8V]N9"!O<&5R86YD"0FW(#:6)U9@H)>R H=&UP7VQN*2LN8B @/0DH;6YE;2YM;W9E(""W(&EN:71I86P@87-S=6UP=&EO;@H),2AT
M87)G971?;6YE;2YL96$[("T^(*<@(+L*"2AT
M87)G971?2!A;F0@9&EV:61E/R I"@EI;6YE
M;2YS=6([("T^(&-H:RYL;VYG+F%S(+L*"2T^(*<*8VAK+FQO;F H)+3(H=&%R9V5T7W,I+F(@(#\@
M("7-I)R"["@D](""K(" @=&%R9V5T7W,@*ST@,2 @NPH*-RXQ+C4N,2XT("!$
M96-I9&4@=VAE=&AER!C:'(@(#T@+30H=&%R9V5T7W,I"@D)(" @(&0R+F(@/2 M-2AT87)G971?
MR!)R @8VAR(#T@*'-O=7)C
M95]S*2L*"2 @($ES(&ET(&$@9&EG:70_"@D@("!B97$@("!]"@EC:'(@(#\@
M("PED,BYB"3\@("<@)PH)"0D]('L)9#(N8@D]"3D*"0D)"5L@("AS
M;W5R8V5?PEC
M:'(@(#T@("AS;W5R8V5?R![('1S="YL
M(" @("AT7V5N=')Y*0H)(" @(&)E<0D@("!N>'0N8G,*"2 @("!S;W5R8V5?
M;V)U9@H)83,N; D]("!T
M87)G971?R @8VAR(" @/2 @*'-O=7)C95]S*2L*"2 @("AT87)G971?
M0H)<'5S: D@(" ](&0R"@E0=70@;&EN92!T;R!O=71P=70@
M9FEL90D@MR S-0H)9#(N; D@(" ]('!O< H)=%]E;G1R>0D@(" ]('!O< H)
M+3X@("!]"FYX="YB71E(" @("!B=69C:&-O=6YT"@H):6YP=71?;&EN92 @/2 @8G5F
M<'1R"@EP=7-H"2 ]("!I;G!U=%]L:6YE"@EL7VQE;F=T:" ](" P"2 @(" @
M(""W(&YO(&-H87)S(&EN(&QI;F4@>65T"K<@8F%C:R!T;R!H97)E('=H96X@
M=V%S(&YE8V5S2!T;R!R96%D(&UO;V)U9@H)*&$P
M*2LN8B @/2 @.0H)*&$P*2LN8B @/2 @)V(G"@DH83 I*RYB(" ](" G"!S=')I;F<)(+<@,S,*"6$P(" @(" @(#T@(%YO;&5N
M"@E0=70@;&EN92!T;R!O=71P=70@9FEL90D@MR S-0H*"60P+FP)/0ES879E
MPEP=7-H"3T)9# *"0EF<')I;G0);6]V96UI;G-T"@D)9G!R
M:6YT"7!O<'!R969I> H)"7!?8G5F9F5R(" ]"7!O< H)"4UO=F4@;&EN92!A
M="!P7V)U9F9EPEA," @
M*ST),0H)"0EL7VQE;F=T:" @+3T@(#$*"0E]"@D)87)G8&$)/0EO:&%N9&QE
M"@D)87)G8&()/0EA, H)"6-A;&P)5W)I=&4*"7T*"@ED,"YW(" @(" ]("!T
M>7!E;V9S96-T"@ED,"YW(" _("!C2!T;R!H97@@;VQE;@H)4'5T(&QI;F4@=&\@;W5T
M<'5T(&9I;&4)(+<@,S4*"C(X+B!!="!L969T(&)R86-E("AI;G!U="!P:&%S
M92D@;W(@8F5G:6YN:6YG(&]F('-E8W1I;VX@*&]U='!U="!P:&%S92D*8G5M
M<"!A;F0@<'5S:"!T:&4@8W5R"!S=')I;F<)(+<@,S,*"71S="YB("!B2!T;R!H97@@2 G<')I;G0G(&UA
M8W)O70H*1&ES<&QA>2!S=')I;F<*"6%R9V!A"2 @/2 @8VAA;F1L90H)8VQR
M+FP@(" @;%]L96YG=&@*"6Q?;&5N9W1H+F(@(#T@("AA,"DK"@EA&-E<'0@
M;W5T<'5T(&=O97,@=&\@;W5T<'5T(&9I;&4N"@I0=70@;&EN92!T;R!O=71P
M=70@9FEL90H)87)G8&$)(" ]("!O:&%N9&QE"@EC;'(N;" @("!L7VQE;F=T
M: H);%]L96YG=&@N8B @/2 @*&$P*2L*"6%R9V!B"2 @/2 @83 *"6-A;&P@
M(" @(%=R:71E"@HS-BX@06UI9V%$3U,@F4@
M" @($]P96Y,:6)R87)Y"@EA-BYL(" ]("!D
M, JW(&]B=&%I;B!F:6QE(&AA;F1L97,@9F]R(&]U='!U="!A;F0@:6YP=70@
M;W!E;F5D(&)Y($-,20H)8V%L;" @(" @3W5T<'5T"@EO:&%N9&QE(" ]("!D
M, H)8VAA;F1L92 @/2 @9# *"6-A;&P@(" @($EN<'5T"@EI:&%N9&QE(" ]
M("!D, H*"C,W+B!)9&5N=&EF>2!T:&4@;F%M92!O9B!A(&UA8W)O(&]R('!R
M;V-E9'5R92!C86QL('=H:6-H('=APEL7VQE;F=T:" @*ST@(#$*"0DH=&UP7VQN
M*2LN8B @/R @,3 *"0EB;F4)?0H)87)G8&$)(" ]("!C:&%N9&QE"@EA7!E(&]F('1H92!D969I;FET:6]N
M+B @26X@=&AE"B @8V%S92!O9B G9&5F:6YE)R!E;G1R:65S(&%N9"!D871A
M(&1E8VQA7,*("!I="=S(&$@)V1E9FEN
M9271E(&ES(# @9F]R(')E9W5L87(*("!D969I
M;F5S+"!B=70@,2P@,BP@;W(@-"!F;W(@)V)Y=&4G+" G=V]R9"2X@*0IS96-T;&ES
M= D@(&1S+F();6%X&9S:7IE"@H*"7-E8W1I;VX@='=O
M+&1A=&$*"FQI8FYA;64@(&1C+F(@("=D;W,N;&EB2'1A8B @(&1C+F(@(" ED8RYB"38L)RAS
M<"DK+"<*8V]M;6%C:&%R"61C+F(),2PG+"<*;F5W;&EN96-H87()9&,N8@DQ
M+#$P"@IK97DN9&5F:6YE("!D8RYB(" G9&5F:6YE("2YL;VYG(" @(&1C+F(@("=L;VYG("F4@6UB;VQS(&UU7-"87-E"2 @97%U
M"2 @(" T"FEB=69,96X)("!E<74)(" @,3 P"FUA>&9S:7IE"2 @97%U"3@P
M,# P"FUA>'-E8W1S"2 @97%U"2 @-# P"FUA>&)R86-E;F5S=" @(&5Q=0D@
M-3 **"!#:&%R86-T97(@=7-E9"!F;W(@96YD+6QI;F4@8V]M;65N=',N("D*
M8G5L;&5T+F-H87()("!E<74),3@S"B@@0VAA2PX. H*"6QR968@(" @($]U
M='!U="PV"@EL web.doc.uu
begin 644 web.doc
M"@D)"2 @(%=E8@H*"0D)"0D)"2!'2!$;VYA;&0@2VYU
M=&@G7-T96T@;V8@=&AE('-A;64@;F%M92 H"!O
M9B!T:&4@;&%N9W5A9V4*:70@:6YT97)P2!T;R!B"D*(" @(" @;&5N9W1H('1Y<&EN9PDH87-S;V-I871E(&)Y=&4O
M=V]R9"]L;VYG('=I=&@@=F%R:6%B;&5S*0H@(" @("!D871A(&1E8VQA2!W87D@;V8@
M97AA;7!L92!A;F0@<')O=FED:6YG(&1E=&%I;',@;V8@=&AE"FEM<&QE;65N
M=&%T:6]N+B @5&AE('-O=7)C92!I"P@87,@>6]U(&-H;V]S92X@(%1H92!O=71P=70@9FEL92!W
M:&EC:"!I2!P2!F:6QE(&-R96%T960@:7,@)W=E8BYA)RX*"B @(%1H92!L87)G97-T
M(&9I;&4@=&AA="!W96(@8V%N('!R;V-EF4@;V8*86X@:6YT97)N86P@8G5F9F5R('=H:6-H(&ES(&YO=R!S970@870@
M.# L,# P(&)Y=&5S+B @5&AE('-O=7)C92!F:6QE"F-A;B!T>7!I8V%L;'D@
M8F4@='=I8V4@=&AI2!C:&%N9V4*=&AE2!P87)T(&]F('=E8B=S(&5X=&5N9&5D('-Y;G1A
M>"!I2!C:&%N9V5S(&EN('1H92!R97-U;'1I;F<@;V)J96-T"F-O9&4N(%-O+"!I
M9B!T:&5R92!A6YT87@@>6]U(&1O
M;B=T(&QI:V4L('EO=2!D;VXG= IN965D('1O('5S92!T:&4@2!C;W)R96-T
M(&%S2!W96(*=VET:&]U="!P71E)RP@)W=OB!S96-T:6]N(&-H87)A
M8W1E2!O9B!G:79I;F<@8V]M;65N=',@
M:7,@=&\@<&QA8V4@=&AE;2!I;B!P87)E;G1H97-E0IO8V-U6YT86-T:6,@86YA;'ES:7,N("!)="!D969I;FET96QY"G=I;&P@:6YT97)F
M97)E(&%F=&5R(&%N(&EN9FEX('-T871E;65N=" H2!O;F4@;W(@;6]R92!B;&%N:W,@*'!O2!PF5D(&QI
M7!H96YS(&ES('1R96%T960@87,@=&AE(&YA;64@
M;V8@82!C;V1E('-E8W1I;VXL(&%N9"!T:&4@'0@<')O8V5D
M=7)E(&YA;64@;W(@;F%M960*8V]D92!S96-T:6]N(&]R(&5N9"!O9B!F:6QE
M+B @5&\@:6YV;VME('1H92!C;V1E+"!J=7-T(&=I=F4@:71S(&YA;64**&EN
M8VQU9&EN9R!T:&4@:'EP:&5N&-E960@=&AE(&-A<&%C
M:71Y(&]F(&UO2!L;VYG+@H*(" @4&%R86UE=&5R'0*)R,Q,"<@=V]U;&0@8F4@6UB;VP@0IA(&-O;&]N(&]R('=H:6-H('-T
M86YD(&%L;VYE(&]N(&$@;&EN92X*"@I,:6YE(%-E<&%R871E6]U+B @02!U;FEQ=64@;&%B96P@:7,@6T@9F]R("<[?22P@=&AE(&9O;&QO=VEN9R!A;'1E6UB;VQS
M(&%R92!P&%M<&QE(&-O=6QD(&%LV)R!R969E2!B&%M<&QE71E+6QE;F=T:"!O<&5R871I
M;VYS.@H*(" @=7-E(" @9# N8B @/2!D,B @(" @(&9O2P@=V]R9"!A;F0@;&]N9R!W;W)D(&]P97)A=&EO
M;G,@8V%N(&)E(&5X<')E&5S+B G*CTG+" G+STG+" G)CTG+" G?#TG+" G/#P])RP@)SX^/2<@9V5N
M97)A=&4@)SH*"B @('5S92 @(&$P(#T@)F)U9F9E2!P2 G+2<@8G5T(&YO="!F;VQL;W=E9"!B>2 G*"B<@(" @(&9O2 G*"6UB;VQS(&ES(&1O
M;F4@8F5F;W)E('1H92!C;VYV97)S:6]N(&]F"FEN9FEX('-T871E;65N=',L
M('-O(&EN('1H92!A8F]V92!C87-E7IE(&%S6UB;VQS('-H;W5L9"!N;W0@8F4@=7-E
M9"!F;W(@;W!E&5S(&EN(&EN9FEX('-T871E;65N=',@87,@9&ES8W5S2!W:6QL(&)E(&UA9&4@=7-E(&]F(&EN('1R86YS;&%T:6YG(&EN9FEX
M"G-T871E;65N=',L(&)U="!D96QE=&5D(&5V97)Y=VAE2!A2X@($YO=R!I;B!C;VYJ=6YC=&EO;B!W:71H"G1H92!D969I
M;F4@9F5A='5R92P@;&5N9W1H(&EN9F]R;6%T:6]N(&-A;B!B92!M861E(&EM
M<&QI8VET+"!I9B!O;F4*=VES:&5S+B @06-C;VUP86YI960@8GDZ"@H)(&1E
M9FEN92 @&EB:6QI='D@:6X@9F]L;&]W:6YG('-U8V@@82!P;VQI8WD@
M;V8@=F%R:6%B;&4*=7-A9V4L('-I;F-E(&EM<&QI8VET(&QE;F=T:',@8V%N
M(&%L=V%Y'!L:6-I=&QY(&]V97)R:61D96XN"E=H:6QE('1H92!A
M8F]V92 G2!V87)I86)L97,N("!4:&4@:V5Y=V]R9',*)VQO;F71E(" @(&UE;79A<@H)(&)Y=&4@(" @=F5R9@H*86YD(')E=FES
M92!T:&4@8V]D92!T;R!R96%D.@H*"2!C;&EP2!C2!L86YG=6%G92!B>2!T:&4@'0*=')A;G-F;W)M
M871I;VYS(&1I2P@:6X@=W)I
M=&EN9R!C;V1E(&9O<@IW96(@;VYE(&UU