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 1 of 2)
Message-ID: <5897@j.cc.purdue.edu>
Date: Fri, 4-Dec-87 10:11:29 EST
Article-I.D.: j.5897
Posted: Fri Dec  4 10:11:29 1987
Date-Received: Wed, 9-Dec-87 06:43:40 EST
Organization: PUCC Land, USA
Lines: 718
Keywords: web, tested, source
Approved: ain@j.cc.purdue.edu  (Pat White)

Program Name:	web (sources -- part 1 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:
   Everything is uuencoded since there are some characters with the 8'th
bit set in them.
   Had to reshar this so unshar would like it.
   I tested that the sources (*.w) webbed ok with the binary of web, but
I didn't try and reassemble the output of web.


-- 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:
#	atow.w.uu
#	web.w.uu.1
# This archive created: Fri Dec  4 09:52:16 1987
# By:	Patrick White (PUCC Land, USA)
cat << \SHAR_EOF > atow.w.uu
begin 644 atow.w
M"@EI9&YT("!!=&]W"@H)2!C;VYV97)T0H@("!PR @
M*&EN<'5T7VQI;F4I*RYB(" _(" G("<*"0D@("!B97$)?0H*"0EI;G!U=%]L
M:6YE"2T]"3$*"0DM+4-H96-K(&9OPEI;G!U=%]L:6YE"2L]"3$*
M"0D)9#$N8@D]"2AI;G!U=%]L:6YE*2L*"0E]"@H)"6-H<@D]"2AI;G!U=%]L
M:6YE*2L*"0EC:'()/PDY"@D)(3T@6PEC:'()/PDG("<*"0D)8FYE";8*"0E=
M"@D)>R @*&EN<'5T7VQI;F4I*RYB(" _(" G("<*"0D@("!B97$)?0H*"0EA
M,RYL"3T)7BTQ*&EN<'5T7VQI;F4I"@H)"5L@(&-H<@D]"2AI;G!U=%]L:6YE
M*2L*"0D@("!C:'()/R @,3 ["6)E<2 @M@H)"2 @(&-HPDQ
M*&EN<'5T7VQI;F4I+F()/PDG4"<*"0D)/2!["2AI;G!U=%]L:6YE*2YB"3T)
M)V$G"@D)"0DQ*&EN<'5T7VQI;F4I+F()/0DG-R<*"0D)?0H)"7T*"@D)>R @
M8VAR"3T@("AI;G!U=%]L:6YE*2L*"0D@("!C:'(@(#\@(#D["6)E<0FV"@D)
M(" @8VAR(" _(" Q,#L)8F5Q";8*"0D@("!C:'(@(#\@("<@)PH)"2 @(#T@
M6PDM,BAI;G!U=%]L:6YE*2YB(" _(" G)RPDH83$I*RYB"3T))RXG"@D)
M"2AA,2DK+F()/0ED,0H)"0EL7VQE;F=T:" @*ST@"3(*"0E]"@H)"2AA,2DK
M+F()"3T).0H)"60R+F()/PDG82<*"0D]('L)*&$Q*2LN8@D]"2PDH83$I*RYB
M"3T))RTG"@D)"6Q?;&5N9W1H(" K/2 @,0H)"7T*"@D)*&$Q*2LN8@D)/0DG
M/2<*"0ED,BYB"3\))V,G"@D)/2"K"2TQ*&$Q*2YB(" @/0DG/R<)NPH)"2AA
M,2DK+F()"3T).0H)"60R+F()/PDG;"<*"0D]('L)*&$Q*2LN8B @/2 @)UXG
M"@D)"6Q?;&5N9W1H(" K/2 @,0H)"7T*"@D)9#0N8@D_"2=Q)PH)"3T@JPEC
M;'(N8@ED,0F["@H)"7L@(&-H<@D)/0DH83,I*PH)"2 @(&-HPETPH)("!APH)(" @86)OPEC:'()/PDG8R<*"0D)(3T@>PEC:'()/PDG
M82<*"0D)"2$]('L)8VAR"3\))W,G"@D)"0D)8FYE":<*"0D)"0DH:6YP=71?
M;&EN92DK+F(@(#\@("=U)PH)"0D)"6)N90FG"@D)"0D)*&EN<'5T7VQI;F4I
M*RYB(" _(" G8B<*"0D)"0DM/@FG"@D)"0E]"@D)"0DH:6YP=71?;&EN92DK
M+F(@(#\@("=D)PH)"0D)8FYE":<*"0D)"2AI;G!U=%]L:6YE*2LN8B @/R @
M)V0G"@D)"0DM/@FG"@D)"7T*"0D)*&EN<'5T7VQI;F4I*RYB(" _(" G;2<*
M"0D)8FYE":<*"0D)*&EN<'5T7VQI;F4I*RYB(" _(" G<"<*"0D)+3X)IPH)
M"7T*"0DH:6YP=71?;&EN92DK+F(@(#\@("=E)PH)"6)N90FG"@D)*&EN<'5T
M7VQI;F4I*RYB(" _(" G82<*"0DM/@FG"@E]"@DH:6YP=71?;&EN92DK+F(@
M(#\@("=O)PH)8FYE":<*"2AI;G!U=%]L:6YE*2LN8B @/R @)W8G"@EB;F4)
MIPH)*&EN<'5T7VQI;F4I*RYB(" _(" G92<*"3T@>PDH:6YP=71?;&EN92DN
M8B @/R @)R G.PEB97$)IPH)"2AI;G!U=%]L:6YE*2YB(" _(" Y.PEB97$)
MIPH)"2AI;G!U=%]L:6YE*2YB(" _(" G+B<[(&)E<0FG"@D)*&EN<'5T7VQI
M;F4I*RYB(" _(" G<2<*"7T*"@JV(%=E(&UA:V4@='=O(&-O<&EE:6YF;F%M90H);W5T<'5T7VYA;64@(#T)
M:6YP=71?;F%M90H)+3X)"2!N97AT7V9N86UE7V-H87(*"7L@(&9N7V-H87(@
M(#T@("AC;VUM86YD7W1A:6PI*PH)(" @9FY?8VAA'1?9FYA;65?8VAA<@H)(" @='-T+FP@(" @
M=&%I;%]L96YG=&@*"2 @(&)N90D@?0H)8VQR+F()("AI;G!U=%]N86UE*0H*
M"65X9R )(&EN<'5T7VYA;64L;W5T<'5T7VYA;64*"6]U='!U=%]N86UE"2 ]
M("!>;W5T9FYA;64*"7L)*&]U='!U=%]N86UE*2LN8B @/2 @*&EN<'5T7VYA
M;64I*SL@(" ]("!]"@EO=71P=71?;F%M90DM/2 @,0H*"2TQ*&]U='!U=%]N
M86UE*2YB"3\))V$G"@D]('L)+3(H;W5T<'5T7VYA;64I+F()/PDG+B<*"0D]
M('L)+3$H;W5T<'5T7VYA;64I+F(@(#T@("=W)PH)"0DM/@FG"@D)?0H)?0H*
M"2AO=71P=71?;F%M92DK+F(@/2 G+B<[(" H;W5T<'5T7VYA;64I*RYB(#T@
M)VXG"@EC;'(N8@D@*&]U='!U=%]N86UE*0H*MB!!;6EG841/4R!S='5F9BX*
M"BTM3W!E;B!I;G!U="!A;F0@;W5T<'5T(&9I;&5S"@H)(" @9&5F:6YE(" @
M87)G8&$@($0Q+DP@(" @MR!F:7)S="!AF5R;R!C86X@8F4@=7-E9"!A
M71E"2!B=69C:&-O=6YT"@JW(')E='5R;B!I;G!U=%]L:6YE
M('!O:6YT:6YG('1O(&QI;F4@86YD(&Q?;&5N9W1H(&QE;F=T:"!O9B!L:6YE
M"@EI;G!U=%]L:6YE(" ]("!B=69P='(*"7!U65T"K<@8F%C:R!T;R!H97)E('=H96X@=V%S(&YE8V5S2!T;R!R96%D
M(&UOR @*&EN<'5T7VQI;F4I*RYB(#T@("AP87)T:6%L7VQI;F4I*PH)"2 @9&)R
M82 @(" @;%]L96YG=&@L?0H)('T*MR!F:6QL(')E;6%I;F1E2!S=')I;F<*MPEM97-S86=E('1O
M(&-O;G-O;&4*;7-G"@EA2!C86QL('1O($]P96Y,:6)R87)Y"@EL96$@
M"2!L:6)N86UE+$$Q"@EM;W9E<0D@(S L1# *"6-A;&P)($]P96Y,:6)R87)Y
M"@EM;W9E+FP)($0P+$$V"K<@;V)T86EN(&9I;&4@:&%N9&QE0H*:6YF;F%M90D@9',N8B @,S *;W5T9FYA;64)(&1S
M+F(@(#,P"@H*"@ES96-T:6]N('1W;RQD871A"@H*"FQI8FYA;64@(&1C+F(@
M("=D;W,N;&EB22!R
M969E web.w.uu.1
begin 644 web.w
M"C$N("!796(@<')E<')O8V5S2!F:6QE(&UU2!W96(@8F5F;W)E(&%S6YT87@@9F]R(&-A;&QI;F<@<')O8V5D=7)E
M6UB;VQS+ H)*#0I("!S=&%T96UE;G0@9W)O=7!I;F<@=VET:" G>RXN+GTG
M(&%N9" GJRXN+KLG+ H)*#4I("!A;'1E7,@;V8@9VEV:6YG(&-O;6UE;G1S+@H*";8@5&\@
M87-S96UB;&4@=&AIF%T:6]N+@H*"6ED;G0@(%=E8@H)2!I
M;B!I;G!U="!P:&%S92!T;R!P;VEN="!T;R!P87)E;G1H97-I0H)(" @034@
M;F]T('5S960*"2 @($$V('5S960@9VQO8F%L;'D[(&AO;&1S($%M:6=A1$]3
M(&QI8G)A:6YF;F%M90H)83(N;" @/2 @83$*;F5X="YF;F%M92YC:&%R
M"@ET'0N9FYA;64N8VAAR @*&$Q*2LN8B @/2 @
M*$$R*2L[("!B;F4@("!]"@DM,BAA,2DN8@D](" G82<*"C4N($IU71E("!P87)E;G-T871U'0N;&EN90H)(" @+2U296%D
M(&%N(&EN<'5T(&QI;F4)"0D)(" @(" @(+<@,C(*"2 @('1S="YL"2 @;%]L
M96YG=&@*"2 @(&)N92 @('T*"@H*-BXQ($EN(&$@8V]M;65N="!S96-T:6]N
M+"!D:7-C87)D(&5V97)Y=&AI;F'0N;&EN90H)(" @(&EN7-IPD)(""W"6-O;6UE;G0*"7!A'1R82!I;FET:6%L(&)L86YK2!W;W)DR!T;7!?;&X)
M*ST@(#$*"2 @(" @("AT;7!?;&XI+F()/R @)R G"@D@(" @("!B;F4@(" @
M(""G"@D@(" @(" M+51R:6T@;V9F(&9IPIIR @+2U42YD969I
M;F4*"60P(" @(#T@(#8*"4UA=&-H('1H:7,@:V5Y"0D)(" @(""W(#8N,BXT
M+C$*"3T@JR!D," ](&1E9G1Y<&4[("T^(')E9F5R96YC92YL:6YE(+L*"6$T
M(" @(#T@(%YK97DN8GET90H)9# @(" @/2 @- H)36%T8V@@=&AI:V5Y+G=O
M2YL;VYG"@ED," @(" ](" T
M"@E-871C:"!T:&ES(&ME>0H)/2"K(&0P(#T@-#L@+3X@9&%T82YD96-L(+L*
M"2T^(""G"F1A=&$N9&5C; H)9&5F7!E"@DM/B @R!D,"YL"3T@('1M<%]L;@H)(" @(&0Q+FP)/2 @:6YP=71?;&EN90H)(" @
M(&0P+FP)+3T@(&0Q"@D@(" @9# )"2L]("!D,@H)(" @('L@*&$S*2LN8B @
M/PDG("<*"2 @(" @(&)N92 @(" @(+8*"2 @(" @(&0P"2L](" Q"@D@(" @
M+3X@("!]"@D@(" @83 N; DK/2!D, H)(" @(&Q?;&5N9W1H"2T](&0P"@D@
M(" @*&EN<'5T7VQI;F4I+F(@/2 @, H)?0H*"C8N,BXU("!#;VUM96YT('-E
M8W1I;VYS(&%R92!I;G1R;V1U8V5D(&)Y(">G)RP@)[8G+"!O2!A(&YU
M;6)E2!O9B!T:&5S92!M87D@8F4@<')E8V5D960@
M8GD@8FQA;FMS+B @268@=V4@R![(&-H'0N;&EN90H)(" @('T*"7T*"C8N,BXV("!)9B!W92!F:6YD
M(&$@8G)A;F-H+G-T86-K"@D@(" @(" @(&$Q+FP@(#\@
M(&)R86-E+FQE=F5L"@D@(" @(" @("$]('L@8G)A8V4N;&5V96PN;" ](&$Q
M"@D)(" @+2U787)N(&%B;W5T('5N;6%T8VAE9"!B'0N
M8VAA'0N8VAA'0N8VAA2!P2P@:6=N;W)E(&ET(&%L
M=&]G971H97(N"@D@(" @(" @8F5Q(" @(" @;F5X="YL:6YE"@D@(" @(" @
M*'1M<%]L;BDN8B @/2 @;F5W7VQI;F4*"2 @(" @("!C:'(@(#T@("TH=&UP
M7VQN*0H)(" @(" @(&ES+FET(" @(#PG("<^"@D@(" @(" @8FYE(" @(" @
M+F5N9"XV+C,*"2 @(" @("!L7VQE;F=T:" M/2 Q"@D@(" @(" @+3X@('T*
M"7T*"@HM+4]T:&5R(&-H87)A8W1E[)RX@4&QA8V4*86X@861D:71I;VYA;"!B71E(&)R86-K971?9FQA9PH)8G)A8VME=%]F;&%G(" ]
M(" P"@H):7,N:70@(" @;&5F=&PDH=&UP7VQN*2LN8B @/0EN97=?;&EN90H)"6Q?;&5N9W1H(" K/2 Q"@D)
M+3X)(&5N9"YGR!BPH@96YD
M+F=R;W5P.@H)("!!;F]T:&5R(&QE9G0@861J=7-T;65N= FW(#8N,RXS+C$*
M"2 @4&]P(&)R86-E(&QE=F5L"0FW(#(Y"@D@($=E;F5R871E(&)R86YC:"!L
M86)E; D)MR S,@H)("!T2!T:&EN9R!S<&5C:6%L(&AE
M9&5C;&-O=6YT"@ED,"YW(" ](" H83,I
M"@DH83,I+G<@*ST@,0H)1V5N97)A=&4@8G)A;F-H(&QA8F5L"2"W(#,R"@DH
M=&UP7VQN*2LN8B ]("=1)PH)*'1M<%]L;BDK+F(@/2 G+B<*"6-H0D)/2 @;&%S='-E8W0*"6-L'0NPET2D*
M"0EB97$@(" @(""G"@D)<%]B=69F97()/2 @*'1?96YT7!E;V9S96-T"3T)9# *"6QA0H)PEC:'()/0DH<%]B
M=69F97(I*PH)"6-H&5S"@D)"0EP=7-H"3T);%]L96YG=&@*
M"0D)"69P(&]B=68*"0D)"2AA,"DN8B @/R @.0H)"0D)/2!["6$P(" K/0DQ
M"@D)"0D);%]L96YG=&@@("T]"3$*"0D)"7T*"0D)"6%R9V!A"3T);VAA;F1L
M90H)"0D)87)G8&()/0EA, H)"0D);%]L96YG=&@@("T]"3$*"0D)"6-A;&P)
M5W)I=&4*"0D)"69P2 @
M/2 @;&%S='-E8W0*"7!?8G5F9F5R"3\@(&9P;VEN= H)8F-C(" @(" @9&]N
M92YS96-T"K<@;&]O:R!F;W(@;F5X="!S96-T:6]N+"!P87-T(&%N>2!D969I
M;F5S(&EN('1A8FQE"@E["34H=%]E;G1R>2DN8B @/R @9&5F='EP90H)"6)N
M92 @(" @(+8*"0ET7V5N=')Y("L](#8*"0EB;V)U9@IF:6YD+F5N9"YL86)E; H)8VAR(" ](" H=&UP7VQN*2L*
M"6-H7!E;V9S96-T"@D)("!P=7-H"2 @/2 @;&%S='-E8W0*"0D@
M('!U'0@
M;&EN90JW('-UR @+2AA,2DN8B @
M/R @)R G"@D@("!B;F4)(""V"@D@("!L7VQE;F=T:" M/2 Q"@D@(" H83$I
M+F(@(#T@(&YE=U]L:6YE"@D@(" M/B @("!]"@DH83$I+F(@(#\@("-S96-T
M:6]N+F-H87(*"3T@>R!L7VQE;F=T:" M/2 Q(""W(&9O0D@(#T@(%YS96-T;&ES= H@>PH)>R!T2DK"@D@(&0P+G<)(" @(#T@("AT7V5N=')Y*2L*"2 @
M9# N=R @/R @9#(@(+<@R!C:'(@(#T)*'!?8G5F9F5R*2L*"2 @8VAR(" _"6YE
M=U]L:6YE"@D@("$](*L@(&-HR @(&-H7!E
M&5S"K<@(&]B=68*"71APDH=&%R9V5T7W,I*RYB"3T@("AS;W5R
M8V5?6UB;VQS"@E0=7)G92!L
M96YG=&@@(&]B
M=68*"7L)*'-O=7)C95]S*2YB(" _"2PEL
M7VQE;F=T:" @*ST),0H)"0D)*'1M<%]L;BDK+F(@(#\@("