Google
 

Trailing-Edge - PDP-10 Archives - BB-L014Y-BM_1990 - t20sub/scapar.unv
There are 23 other files named scapar.unv in the archive. Click here to see a list.
x
,UL@P CN #mZ+

	..CNT#mz.==3		;Init the c#nounter
	..STR.==#n80		;Init the stri#nXng

IRPC A,<
#nx
	..CHR.=="A"		#o;Get the current #o8character
	..CHR#oX.==..CHR._<^D8*..#oxCNT.+4> ;Shift it#p into the right p#p8lace
	..STR.==..#pXSTR.!..CHR.	;Add #pxit to the current#q
	..CNT.==..CNT.#q8-1	;Decrement the#qX four word block #qxcounter

IFL ..#rCNT.,<
	EXP ..ST#r8R.		;Generate a w#rXord of what is le#rxft
	..CNT.==3		;#sInit the four cha#s8r chunk counter
#sX	..STR.==0		;Init#sx the string
>;En#td IFL ..CNT.

>#t8;End IPRC A

I#tXFN ..STR.,	EXP ..#txSTR.	;If there ar#ue characters left#u8 over, output them

output theE
wQ E.h Q E4iQ E5IQ E5Y`Q EdiQ EeIQ EeY`Q Ew
RP E vh6P E v|ZP E"%m6P 0E"&:P E#P E#9<P E#P E#9<P E2"@ $#z"%
	  IFE $$B,<..TA==0>
	  $$8IFN B,<EXP ..TA$$X
		    PURGE ..TA>
	PURGE..TELtvQ@ELt9Q @ELu	QELuvP EO[rP EO[rP EV5X7P F$,P F$|P F$|}P OF$}P F&H6P F&KP F5IvQ pFMiQ  FTIvP Fd;P Fd|XP Fl(yP Fl,P FlHvP Fl|P Fl|}P Fl}P Fn(VP Fn8vP FnYP FoSP 2Fo	P 3Fo8P Ft,rP Ft;vP Ft\P Fv
tP'F|,@ F~9P F~jP F~jP F(vP F2Q F=Q |FkP Fk7P F	P FP 'FP FXZP F+P FMP FJ6P PFLVP F<P F%YzP DF48vP F=|RP OF=|VP G
, Q G
L Q G
\ Q G
<zQ xG
\ Q G

 Q G
IQ G
lzP'G
$:2Q G
$LRQ xG
$z@Q G
%krQ xG
/
P'G
4ZQ G
4=QQ @G
4HvQ G
4I3Q G
4J9Q G
4LXQ G
4\YQ G
5,|Q  G
5:6Q G
5YQ G
5kQQ @G
5|UP'G
6Q G
6(8Q G
6;VQ G
6;qQ  G
LH@P'G
MX@Q xG
Ux@Q xG
lz@Q G
mlQP'G
mlqQ xG
v`Q xGH Q xGI`P'G]@P'GY`Q xG;ZP'G:2Q GLRP'G$, Q G$L Q G$\ Q G%\ Q G'
`Q G=QxG$: Q G&)0P'GuyQ Gv
TP G&&
TP G&|i@ #&Z5CALL SC.PFFCALL SC.PFG&}` #/
xCALL SC.PONCALL SC.POG,t<zQ  G,uLQ G,uLzQ @G,v0Q G,vPQ G,v	rQ G3.
TPlG4,;:PlG4,;VPhG4-iPGBV@Q I6= gPK
	A==<-1gpB<C>+1B<C-D>> h
	IF1,<IFDEF %Ah0,<PRINTX ?A ALREhPADY DEFINED>>
	DhpEFINE %A (OP,AC,iY,MSK)<
	$A==<Zi0 B>		
	OP (<AC>,B'Y,MSK)><AC>Id[@P 0JBYQ @JB5J Q JBl.@Q |JCY Q 0JC\`Q K
yP'K
d[@QxK8,:P K8,;P L;<Q L;H@Q @L; Q  M2  $:!C<<<A>B<POS(<B>)>>&<B>>M^luQ Qv
qP Su-8P Su;P S`Q  S+`Q S:$^P xS;%KuP SB
TP U ,IqQ @W:2P WIP W1P W3:P W3LSP W3
JPW3K{PW3Y2PX:	P?X:9PX;8@P Z
ZP [F2P [,HrP [,JP [,J1P [,K2P [,kP [-P [Q [5I`Q x[6*`P'[d[@Q x['P'[ $9Q x[ $HtQ [ %XyP'[ %\sP'[ &
vQ [ &8tQ [ &;1Q [ &=Q x[ &N8Q [N
TP [N^= HX$Q
	A==C	Hx	
	IF1,<IFDEF %IA,<PRINTX ?A ALRI8EADY DEFINED>>
	IXDEFINE %A (OP,ACIx,Y,MSK)<
	$A==<JZ B>		
	OP (<AC>,B'Y,MSK)><AC[[
TP [blzPvat<Q atLpQatk:Q&atlQQ av P a/;RP a/MP a/kP a/P a/krP a/|P a/
P a/
zP a/)3P a/+RP xa/,zP pa/=P a/YP"a/8 Q  a/;RP a/MP a/kP a/P a/YQ a/krP a/|P a/
P a/
zP a/(@Q ~a/)3P a/=P a/$]ZP a/'P xa/6-Q a;%\uQ xa?L:P a@tuP a@tI`P a@t\XP a@uX<P a@u\sP a@v:P a@v=P a@v=P aK%^P 
aLtpQ aLtqQ aLt;Q  aLt[QP aLt\YQ @aLuWP aLujpQ aLujqQ aLukpQ aLukqQ @aLulPP baLulQP RaLulRP raLv2Q  aLvRQ aLv[9P c2-`P c?*P c?<SP c?QP c?I7P c?KUP c?[TP e
5I7Pe,k3Qe%e&=@Q elI`Q em\`Q e|ZP'e4<zQ xe&vKQ e:8ZQ |`e:<]QQ xe:=	2Q e:=I7P'eB
:zQ eBNLWQ eC
kQ @eC
k3Q  eCL:Q eN|Q  eON8pQ @g
@Q xg
& P'g
&
`P pg
&,P xg
&,4Q g
&JQ g
&L{Q g
&jQ g
&l{Q g
5I`Q g
5yVQ g
5}QQ  g
6K3Q @g
eXTQ g
o	P'g
o3Q xg
vH`Q @g
|(@Q g
};`Q  g=Q g4<zP'g<j Q g>9P gi9P g
TP g\uQ ~g"@ $%"9
	IFN <<.$%:.TA>&B>,<PRINTX$%X ?Initial field n$%xot zero in $SET>
	&8..TVAL==<C>
	&X..TMSK==<B>
	  ..TA==..TA!$&x<FLD(..TVAL,..TMS$'K)>
	  PURGE ..TVAL,..TMSK
	.Tg& Q ~gD,yP gD,85P gD,;P gD,<RP gD,<rP gD,H5P gD,HrP gD,JP gD,J1P gD,K1P gD,K2P gD,LRP gD,LrP gD-
9P gD-P gD-J9P gD-|P gD.*YP gHtP gHuI7P gJl.@Q @gJlI`Q xgJmY`Q `gK6,`Q ?`gg8pP k
NL`Q`q$$++^q:tQq:w $z!W
	  IFDEF$ ..BSIZ,<PRINTX ?$8Missing $EOB afte$Xr a $BUILD>
	  .$x.BSIZ==0			
	  .$.BLOC==.			
	  R$8EPEAT A,<			
		$XBLD0.(\..BSIZ,0)	$x
		..BSIZ==..BSIZ+1>	
	==..BSI	

	$BUIL#}ZD (.SSAFT+1)	;Siz#}xe of the block
#~
	$SET (.SSDGR,,<#~8XCDSEC,,SINDGR>)	#~X;[7.1043]Datagram#~x received
	$SET #(.SSMGR,,<XCDSEC,#8,SINMGR>)	;[7.104#X3]Message receive#xd
	$SET (.SSPBC,$,<XCDSEC,,SINPBC>$8)	;[7.1043]Port b$Xroke connection
$x	$SET (.SSCTL,,<X$CDSEC,,SINCTL>)	;$8[7.1043]Connect t$Xo listen
	$SET ($x.SSCRA,,<XCDSEC,,$SINCRA>)	;[7.1043$8]Connect response$X available
	$SET$x (.SSMSC,,<XCDSEC$,,SINPSC>)	;[7.10$843]Message/datagr$Xam send complete
	$SET (.SSDDG,,<$MSEC1,,R>) 	;Data$8gram dropped
	$S$XET (.SSLCL,,<XCDS$xEC,,SINLCL>)	;[7.$1043]Little credi$8t left
	$SET (.S$XSNCO,,<MSEC1,,R>)$x	;Node came onlin$e
	$SET (.SSOSD,$8,<XCDSEC,,SINOSD>$X)	;[7.1043]OK to $xsend data
	$SET $(.SSRID,,<XCDSEC,$8,SINRID>)	;[7.104$X3]Remote initiate$xd disconnect
	$S$ET (.SSCIA,,<XCDS$8EC,,SINCIA>)	;[7.$X1043]Credit is av$xailable
	$SET (.$	SSDMA,,<XCDSEC,,S$	8INDMA>)	;[7.1043]$	XDMA complete

	$EOB

te

		N< $
!

	...FO$
:O==0		;Init the o$
Xrder checker vari$
xable

	$ENT (.S$TORQ,SC.ORQ)	;Con$8nect request
	$E$XNT (.STORS,SC.ORS$x)	;Connect respon$
se
	$ENT (.STARQ$
8,SC.ARQ)	;Accept $
Xrequest
	$ENT (.$
xSTARS,SC.ARS)	;Ac$
	$$T;(.STRRQ,SC.RR$
	$ENT (.STRRS,$SC.RRS)	;Reject r$8esonse
	$ENT (.S$XTDRQ,SC.DRQ)	;Dis$xconnect request
$	$ENT (.STDRS,SC.$8DRS)	;Disconnect $Xresponse
	$ENT ($x.STCRQ,SC.CRQ)	;C$redit request
	$$8ENT (.STCRS,SC.CR$XS)	;Credit respon$xse
	$ENT (.STAMG$,SC.AMG)	;Applica$8tion message
	$E$XNT (.STADG,SC.ADG$x)	;Application datagram

on da	v@ $:!+

IFN ..$Z.FOO,<
IFN <A-.$x..FOO-1>,<IF2 <PR$INTX Dispatch tab$8le out of order! $X(A)>>
>;End IFN$x ...FOO

	...FO$O==A		;Get the c$8urrent value of $XA

	XWD XCDSEC,$xB		;[7.1037]Sect$ion six address o$8f a handler routine

ler routi	|  $z"
	  IFNDE$ F ..BSIZ,<PRINTX $ 8?$EOB without pre$ Xvious $BUILD>
	 $ x IFN <.-..BLOC>,<$!PRINTX ?Address c$!8hange between $BU$!XILD and $EOB>
;	$!x  XLIST			
	  ..$"T==0
	  REPEAT .$"8.BSIZ,<
	    BLD$"X0.(\..T,1)		
	  $"x  ..T==..T+1 >
	$#  PURGE ..BSIZ,..$#8T,..BLOC	
;	  LIST
	C	
;	  LI	2$:2 #hji

	LOAD #i
A,INDEX,B	;Get #i*the index from th#kZe CID source
	AD#kxD A,CIDTAB		;Add#l the base address#l8 of the CB addres#lXs table
	MOVE A#lx,(A)		;Now get t#mhe address of the CB

s of the	NyS #uz3
;	CALL S#vC.OFF		;Turn off #v8disconnect processing
ct proces	N{@ #vz;
;	CALL S#wC.ON		;Release th#w8e disconnect interlock
ect inte	N9Q $'Z#a

	$BUIL$'zD (.SSLST+1)

	$($SET (.SSCON,<>,<$(8XCDSEC,,SCSCON>) $(X;[7.1043]
	$SET $(x(.SSLIS,<>,<XCDSE$)C,,SCSLIS>) ;[7.1$)8043]
	$SET (.SSD$)XIS,<>,<XCDSEC,,SC$)xSDIS>) ;[7.1043]
	$SET (.SSREJ,<>$*8,<XCDSEC,,SCSREJ>$*X) ;[7.1043]
	$SE$*xT (.SSSDG,<>,<XCD$+SEC,,SCSSDG>) ;[7$+8.1043]
	$SET (.S$+XSQRD,<>,<XCDSEC,,$+xSCSQRD>) ;[7.1043$,]
	$SET (.SSSMG,$,8<>,<XCDSEC,,SCSSM$,XG>) ;[7.1043]
	$$,xSET (.SSQRM,<>,<X$-CDSEC,,SCSQRM>) ;$-8[7.1043]
	$SET ($-X.SSCSP,<>,<XCDSEC$-x,,SCSCSP>) ;[7.10$.43]
	$SET (.SSRC$.8D,<>,<XCDSEC,,SCS$.XRCD>) ;[7.1043]
$.x	$SET (.SSSTS,<>,$/<XCDSEC,,SCSSTS>)$/8 ;[7.1043]
	$SET$/X (.SSRMG,<>,<XCDS$/xEC,,SCSRMG>) ;[7.$01043]
	$SET (.SS$08MAP,<>,<XCDSEC,,S$0XCSMAP>) ;[7.1043]$0x
	$SET (.SSUMP,<$1>,<XCDSEC,,SCSUMP$18>) ;[7.1043]
	$S$1XET (.SSSND,<>,<XC$1xDSEC,,SCSSND>) ;[$27.1043]
	$SET (.$28SSREQ,<>,<XCDSEC,$2X,SCSREQ>) ;[7.104$2x3]
	$SET (.SSAIC$3,<>,<XCDSEC,,SCSA$38IC>) ;[7.1043]
	$3X$SET (.SSRPC,<>,<$3xXCDSEC,,SCSRPC>) $4;[7.1043]
	$SET $48(.SSRDG,<>,<XCDSE$4XC,,SCSRDG>) ;[7.1$4x043]
	$SET (.SSC$5RD,<>,<XCDSEC,,SC$58SCRD>) ;[7.1043]
	$SET (.SSCRM,<>$5x,<XCDSEC,,SCSCRM>$6) ;[7.1043]
	$SE$68T (.SSACC,<>,<XCD$6XSEC,,SCSACC>) ;[7$6x.1043]
	$SET (.S$7SGDE,<>,<XCDSEC,,$78SCSGDE>) ;[7.1043$7X]
	$SET (.SSEVT,$7x<>,<XCDSEC,,SCSEV$8T>) ;[7.1043]
	$$88SET (.SSGLN,<>,<X$8XCDSEC,,SCSGLN>) ;$8x[7.1043]
	$SET ($9.SSRBS,<>,<XCDSEC$98,,SCSRBS>) ;[7.10$9X43]
	$SET (.SSRP$9xS,<>,<XCDSEC,,SCS$:RPS>) ;[7.1043]
$:8
	$SET (.SSMDR,<$:X>,<MSEC1,,UJSYS>)$:x
	$SET (.SSMDS,<$;>,<MSEC1,,UJSYS>)$;8
	$SET (.SSSRS,<$;X>,<MSEC1,,UJSYS>)$;x
	$SET (.SSRRS,<$<>,<MSEC1,,UJSYS>)

	$EOB

>)	N.@ $:!k
	  IFNDE$ZF ..BSIZ,<PRINTX $x?$SET without pre$vious $BUILD>
	 $8 IFNB <B>,<..STR$X0 (..SET,<C>,B,$xA)>
	IFB  <B$>,<..STR0 (..SET,$8<C>,FWMASK,A)>
	,FWMASK,A)>CAIA,,0	ON88 #wzg

	XWD M#xSEC1,CFSINI##	;In#x8it the Common fil#xXe system
	XWD MS#xxEC1,MSCINI##	;Ini#yt MSCP
	XWD MSEC#y81,MSSINI	;Init th#yXe MSCP server
	X#yxWD XCDSEC,SCSINI	#z;[7.1043]Init the#z8 SCS% JSYS SYSAP
	XWD XCDSEC,CLUI#zxNI	;[7.1076] Init#{ CLUDGR SYSYAP
 #{8  IFN CLEQIN,<			#{X;[7.1072] If clus#{xter ENQ code pres#|ent
	XWD XCDSEC,#|8EQSINI	;[7.1072] #|XInit the ENQSRV S#|xYSAP
   >				;[7.1072]

		;[7
;<s $B$
	$.PKSFD$B"==<Z .PKSTS>		
	$B@A (<B>,.PKSTSC,D)B>,.PKSTSC
n #Ld
	$BBNXT=#L"=<Z .BBNXT>		
	#L@A (<B>,.BBNXTC,D)B>,.BBNXTC,
]P #M
l
	$BBUVA=#M*=<Z .BBUVA>		
	#MHA (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR #ER1
	$BDFFD=#Er=<Z .BDFFD>		
	#FA (<B>,.BDFFDC,D)B>,.BDFFDC,
$k #IrS
	$BDFLD=#J=<Z .BDFLD>		
	#J0A (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 #GbB
	$BDFMG=#H=<Z .BDFMG>		
	#H A (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR #FZ9
	$BDLFD=#Fz=<Z .BDFFD>		
	#GA (<B>,.BDFFDC,D)B>,.BDFFDC,
%K #Jz[
	$BDLLD=#K=<Z .BDLLD>		
	#K8A (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 #HjJ
	$BDLMG=#I
=<Z .BDLMG>		
	#I(A (<B>,.BDLMGC,D)B>,.BDLMGC,
%n "]2 
	$BDNXT=#Cb=<Z .BDNXT>		
	#DA (<B>,.BDNXTC,D)B>,.BDNXTC,
&
R #DJ(
	$BDPRE=#Dj=<Z .BDPRE>		
	#EA (<B>,.BDPREC,D)B>,.BDPREC,(X #r
	$CBBBQ=#=<Z .CBBBQ>		
	#0A (<B>,.CBBBQC,D)B>,.CBBBQC,) #
Bh
	$CBBDQ=#
b=<Z .CBBDQ>		
	#(<B>,.CBBDQC,D)B>,.CBBDQC,)8 #b

	$CBBEQ=#=<Z .CBBEQ>		
	# A (<B>,.CBBEQC,D)B>,.CBBEQC,*y "eJ0
	$CBBKST"ej==<Z .CBSTS>		
	"fA (<B>,.CBSTSC,D)B>,.CBSTSC+8 #
2W
	$CBBMQ=#
R=<Z .CBBMQ>		
	#
pA (<B>,.CBBMQC,D)B>,.CBBMQC,. #Ry
	$CBBXQ=#r=<Z .CBBXQ>		
	#A (<B>,.CBBXQC,D)B>,.CBBXQC,9 #z
	$CBCDD=#=<Z .CBCDD>		
	#8A (<B>,.CBCDDC,D)B>,.CBCDDC,;Y "fJ8
	$CBCNST"fj==<Z .CBSTS>		
	"gA (<B>,.CBSTSC,D)B>,.CBSTSCHt "xRI
	$CBDCID"xr==<Z .CBDCI>		
	"yA (<B>,.CBDCIC,D)B>,.CBDCICI "{bb
	$CBDDRE"|==<Z .CBREA>		
	"| A (<B>,.CBREAC,D)B>,.CBREACIu #5
	$CBDGJ=#:=<Z .CBDGJ>		
	#XA (<B>,.CBDGJC,D)B>,.CBDGJC,KW "cB 
	$CBDNOD"cb==<Z .CBSBI>		
	"dA (<B>,.CBSBIC,D)B>,.CBSBIC^ "dB(
	$CBEXPR"db==<Z .CBSBI>		
	"eA (<B>,.CBSBIC,D)B>,.CBSBICh1 "jT
	$CBFABT"j"==<Z .CBFLG>		
	"j@A (<B>,.CBFLGC,D)B>,.CBFLGCh{ "o*~
	$CBFCVC"oJ==<Z .CBFLG>		
	"ohA (<B>,.CBFLGC,D)B>,.CBFLGCi "le
	$CBFDCL"l2==<Z .CBFLG>		
	"lPA (<B>,.CBFLGC,D)B>,.CBFLGCi "vb:
	$CBFDEF"w==<Z .CBFLG>		
	"w A (<B>,.CBFLGC,D)B>,.CBFLGCi "sJ 
	$CBFDIS"sj==<Z .CBFLG>		
	"tA (<B>,.CBFLGC,D)B>,.CBFLGCi "tR)
	$CBFDRQ"tr==<Z .CBFLG>		
	"uA (<B>,.CBFLGC,D)B>,.CBFLGCi9 "rB
	$CBFERR"rb==<Z .CBFLG>		
	"sA (<B>,.CBFLGC,D)B>,.CBFLGCjY "hzK
	$CBFJSY"i==<Z .CBFLG>		
	"i8A (<B>,.CBFLGC,D)B>,.CBFLGCjt "mm
	$CBFKIL"m:==<Z .CBFLG>		
	"mXA (<B>,.CBFLGC,D)B>,.CBFLGCk2 "n"v
	$CBFMDC"nB==<Z .CBFLG>		
	"n`A (<B>,.CBFLGC,D)B>,.CBFLGCkW "grC
	$CBFNNC"h==<Z .CBFLG>		
	"h0A (<B>,.CBFLGC,D)B>,.CBFLGCky #=
	$CBFORK#:==<Z .CBFRK>		
	#XA (<B>,.CBFRKC,D)B>,.CBFRKCl "q:
	$CBFPTC"qZ==<Z .CBFLG>		
	"qxA (<B>,.CBFLGC,D)B>,.CBFLGClP "k
\
	$CBFRAP"k*==<Z .CBFLG>		
	"kHA (<B>,.CBFLGC,D)B>,.CBFLGClw "uZ1
	$CBFSNM"uz==<Z .CBFLG>		
	"vA (<B>,.CBFLGC,D)B>,.CBFLGClw "p2
	$CBFSOB"pR==<Z .CBFLG>		
	"ppA (<B>,.CBFLGC,D)B>,.CBFLGC "zZY
	$CBIDB="zz=<Z .CBBUF>		
	"{A (<B>,.CBBUFC,D)B>,.CBBUFC,1 "yZQ
	$CBIMB="yz=<Z .CBBUF>		
	"zA (<B>,.CBBUFC,D)B>,.CBBUFC,+q #"F
	$CBJOB=#B=<Z .CBFRK>		
	#`A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu #-
	$CBMGJ=#2=<Z .CBMGJ>		
	#PA (<B>,.CBMGJC,D)B>,.CBMGJC,[Y "~jz
	$CBMNRC"
==<Z .CBMCD>		
	"(A (<B>,.CBMCDC,D)B>,.CBMCDC[Y "}jr
	$CBMNSC"~
==<Z .CBMCD>		
	"~(A (<B>,.CBMCDC,D)B>,.CBMCDCl "r
	$CBNPO=#=<Z .CBNPO>		
	#0A (<B>,.CBNPOC,D)B>,.CBNPOC,	 #4
	$CBPDA=#"=<Z .CBPS1>		
	#@A (<B>,.CBPS1C,D)B>,.CBPS1C,	 #z+
	$CBPDG=#=<Z .CBPS0>		
	#8A (<B>,.CBPS0C,D)B>,.CBPS0C,	; #<
	$CBPEV=#"=<Z .CBPS1>		
	#@A (<B>,.CBPS1C,D)B>,.CBPS1C,3 #z#
	$CBPMG=#=<Z .CBPS0>		
	#8A (<B>,.CBPS0C,D)B>,.CBPS0C,(w #r
	$CBRCNT#==<Z .CBNPO>		
	#0A (<B>,.CBNPOC,D)B>,.CBNPOC8t "]@
	$CBSCID"wj==<Z .CBSCI>		
	"xA (<B>,.CBSCIC,D)B>,.CBSCIC9 "|bj
	$CBSDRE"}==<Z .CBREA>		
	"} A (<B>,.CBREAC,D)B>,.CBREACHX #j
	$CBTBQ=#
=<Z .CBTBQ>		
	#(A (<B>,.CBTBQC,D)B>,.CBTBQC,I #:_
	$CBTDQ=#Z=<Z .CBTDQ>		
	#xA (<B>,.CBTDQC,D)B>,.CBTDQC,I8 #Z
	$CBTEQ=#z=<Z .CBTEQ>		
	#A (<B>,.CBTEQC,D)B>,.CBTEQC,K8 #	*N
	$CBTMQ=#	J=<Z .CBTMQ>		
	#	hA(<B>,.CBTMQC,D)B>,.CBTMQC,N #
	$CBTXQ=#XQ>		
	#A (<B>,.CBTXQC,D)B>,.CBTXQC,$<z #=
l
	$CDCST=#=*=<Z .CDCST>		
	#=HA (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht #>u
	$CDDCI=#>2=<Z .CDDCI>		
	#>PA (<B>,.CDDCIC,D)B>,.CDDCIC,$LR #A"
	$CDDREA#AB==<Z .CDREA>		
	#A`A (<B>,.CDREAC,D)B>,.CDREAC%kr #?}
	$CDNOD=#?:=<Z .CDNOD>		
	#?XA (<B>,.CDNODC,D)B>,.CDNODC,&<R #@"
	$CDSREA#@B==<Z .CDREA>		
	#@`A (<B>,.CDREAC,D)B>,.CDREAC+Q #
	$CPJNB=#"=<Z .CBJNB>		
	#@A (<B>,.CBJNBC,D)B>,.CBJNBC,, #
$
	$CPJPB=#*=<Z .CBJPB>		
	#HA (<B>,.CBJPBC,D)B>,.CBJPBC,;2 #/2
	$E0CMD=#/R=<Z .PBER0>		
	#/pA (<B>,.PBER0C,D)B>,.PBER0C,k #3R!
	$E0FLI=#3r=<Z .PBER0>		
	#4A (<B>,.PBER0C,D)B>,.PBER0C,X] #2J
	$E0MBZ=#2j=<Z .PBER0>		
	#3A (<B>,.PBER0C,D)B>,.PBER0C,2 #0:
	$E0QUE=#0Z=<Z .PBER0>		
	#0xA (<B>,.PBER0C,D)B>,.PBER0C,)9 #1B
	$E0RES=#1b=<Z .PBER0>		
	#2A (<B>,.PBER0C,D)B>,.PBER0C,;r #ZU
	$EBCOD=#Z2=<Z .EBCOD>		
	#ZPA (<B>,.EBCODC,D)B>,.EBCODC,I7 #YM
	$EBLEN=#Y2=<Z .EBCOD>		
	#YPA (<B>,.EBCODC,D)B>,.EBCODC,&&7 #iRQ
	$IDPAO=#ir=<Z RIDSTS>		
	#jA (<B>,RIDSTSC,D)B>,RIDSTSC,&&W #jZY
	$IDPBO=#jz=<Z RIDSTS>		
	#kA (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< "]R~
	$INDEX="_b=<Z >		
	A (<B>,C,D)A (<B*@Y #BZ
	$JH%DGB#Bz==<Z .JHFLG>		
	#CA (<B>,.JHFLGC,D)B>,.JHFLGC4, "a


	$M%ALII"a*==<Z >		
	A (<B>,C,D)A (<4,4 "`"
	$M%AMII"`B==<Z >		
	A (<B>,C,D)A (<4,+ "bZ
	$M%BLII"bz==<Z >		
	A (<B>,C,D)A (<4,+4 "ar
	$M%BMII"b==<Z >		
	A (<B>,C,D)A (<6 Y #S
	$MD%DMD#S2==<Z >		
	A (<B>,C,D)A (<6 YV #R2
	$MD%FLG#RR==<Z >		
	A (<B>,C,D)A (<6,:2 #X
D
	$MECID=#X*=<Z .MECID>		
	#XHA (<B>,.MECIDC,D)B>,.MECIDC,6,k #V4
	$MEFLG=#V"=<Z .METYP>		
	#V@A (<B>,.METYPC,D)B>,.METYPC,6,lU #Sr#
	$MEFRK=#T=<Z .MEFRK>		
	#T0A (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 #Tz+
	$MELEN=#U=<Z .MEFRK>		
	#U8A (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 #W<
	$METYP=#W"=<Z .METYP>		
	#W@A (<B>,.METYPC,D)B>,.METYPC,6@Hr $<Z$j
	$MH$CDT$M==<Z .MHTYP>		
	$M A (<B>,.MHTYPC,D)B>,.MHTYPC6@I $Or%
	$MH$DCI$P==<Z .MHDCI>		
	$P0A (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 $S%
	$MH$MCR$S"==<Z .MHSTS>		
	$S@A (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 $Mb$r
	$MH$MSG$N==<Z .MHTYP>		
	$N A (<B>,.MHTYPC,D)B>,.MHTYPC6@L $U%-
	$MH$PKL$U2==<Z .MHPKL>		
	$UPA (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq $Pz%
	$MH$SCI$Q==<Z .MHSCI>		
	$Q8A (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv $T
%$
	$MH$SMC$T*==<Z .MHSTS>		
	$THA (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz $R%
	$MH$STS$R"==<Z .MHSTS>		
	$R@A (<B>,.MHSTSC,D)B>,.MHSTSC6@M $Nj$z
	$MH$TYP$O
==<Z .MHTYP>		
	$O(A (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ $>j#z
	$PKDRV=$?
=<Z .PKRSV>		
	$?(A (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 $F$5
	$PKMAI=$F:=<Z .PKPST>		
	$FXA (<B>,.PKPSTC,D)B>,.PKPSTC,B^
W $G$=
	$PKPRND$G:==<Z .PKPST>		
	$GXA (<B>,.PKPSTC,D)B>,.PKPSTCB^
Y $E$-
	$PKPRST$E:==<Z .PKPST>		
	$EXA (<B>,.PKPSTC,D)B>,.PKPSTCB^8p $?r$
	$PKSCA=$@=<Z .PKRSV>		
	$@0A (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q $=b#r
	$PKSRB=$>=<Z .PKRSV>		
	$> A (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 $D$%
	$PKTYP=$D:=<Z .PKTYP>		
	$DXA (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ $@z$
	$PKVRT=$A=<Z .PKRSV>		
	$A8A (<B>,.PKRSVC,D)B>,.PKRSVC,JYV #`J
	$RBUFMG#`j==<Z RNGSW>		
	#aA (<B>,RNGSWC,D)B>,RNGSWC,J$J #:z[
	$RDDHT=#;=<Z .RDDHT>		
	#;8A (<B>,.RDDHTC,D)B>,.RDDHTC,J$J #<d
	$RDDHV=#<"=<Z .RDDHV>		
	#<@A (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz #8jJ
	$RDDST=#9
=<Z .RDDST>		
	#9(A (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ #9rS
	$RDDSV=#:=<Z .RDDSV>		
	#:0A (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y #6Z9
	$RDMDG=#6z=<Z .RDMDG>		
	#7A (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 #7bB
	$RDMMS=#8=<Z .RDMMS>		
	#8 A (<B>,.RDMMSC,D)B>,.RDMMSC,J&y #5R1
	$RDPORT#5r==<Z .RDSTS>		
	#6A (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy #)b)
	$RDVCST#4r==<Z .RDSTS>		
	#5A (<B>,.RDSTSC,D)B>,.RDSTSCJMm #dj*
	$RINTLK#e
==<Z RNGSW>		
	#e(A (<B>,RNGSWC,D)B>,RNGSWC,Jty; #\*f
	$RNGEVC#\J==<Z .REECL>		
	#\hA (<B>,.REECLC,D)B>,.REECLCJtz #[]
	$RNGHED#[:==<Z .REHED>		
	#[XA (<B>,.REHEDC,D)B>,.REHEDCJt{ #]*n
	$RNGLEN#]J==<Z .REECL>		
	#]hA (<B>,.REECLC,D)B>,.REECLCKu #aR
	$RPACKT#ar==<Z RNGSW>		
	#bA (<B>,RNGSWC,D)B>,RNGSWC,K #bZ
	$RPITRN#bz==<Z RNGSW>		
	#cA (<B>,RNGSWC,D)B>,RNGSWC,KV #f5
	$RPQFLK#f2==<Z .REPQF>		
	#fPA (<B>,.REPQFC,D)B>,.REPQFCKV #g=
	$RPQFMG#g:==<Z .REPQF>		
	#gXA (<B>,.REPQFC,D)B>,.REPQFCK- #cb"
	$RPRTQU#d==<Z RNGSW>		
	#d A (<B>,RNGSWC,D)B>,RNGSWC,K89 #_B
	$RSCASY#_b==<Z RNGSW>		
	#`A (<B>,RNGSWC,D)B>,RNGSWC,Kq #^:w
	$RSYSCA#^Z==<Z RNGSW>		
	#^xA (<B>,RNGSWC,D)B>,RNGSWC,N: #"f
	$SBCHN=#B=<Z .SBDSP>		
	#`A (<B>,.SBDSPC,D)B>,.SBDSPC,NL #"n
	$SBDPA=#B=<Z .SBDSP>		
	#`A (<B>,.SBDSPC,D)B>,.SBDSPC,NL #&z;
	$SBDPS=#'=<Z .SBDPS>		
	#'8A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #'zC
	$SBDRP=#(=<Z .SBDPS>		
	#(8A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #*v
	$SBDRQH#J==<Z .SBDRQ>		
	#hA (<B>,.SBDRQC,D)B>,.SBDRQCNM #$R)
	$SBDTHW#$r==<Z .SBDHT>		
	#%A (<B>,.SBDHTC,D)B>,.SBDHTCNM #"B
	$SBDTSW#"b==<Z .SBDST>		
	##A (<B>,.SBDSTC,D)B>,.SBDSTCNMT #%Z1
	$SBDVHW#%z==<Z .SBDHV>		
	#&A (<B>,.SBDHVC,D)B>,.SBDHVCNMY ##J 
	$SBDVSW##j==<Z .SBDSV>		
	#$A (<B>,.SBDSVC,D)B>,.SBDSVCNk "gJJ
	$SBFLG=#)=<Z .SBFLG>		
	#) A (<B>,.SBFLGC,D)B>,.SBFLGC,Nks #,e
	$SBFOFL#,:==<Z .SBFLG>		
	#,XA (<B>,.SBFLGC,D)B>,.SBFLGCNk{ #+]
	$SBFOVC#+2==<Z .SBFLG>		
	#+PA (<B>,.SBFLGC,D)B>,.SBFLGCNm #*
T
	$SBFTMG#**==<Z .SBFLG>		
	#*HA (<B>,.SBFLGC,D)B>,.SBFLGCNK1 #2
	$SBLMBH#R==<Z .SBLMB>		
	#pA (<B>,.SBLMBC,D)B>,.SBLMBCN^ #!:
	$SBMXDG#!Z==<Z .SBMMS>		
	#!xA (<B>,.SBMMSC,D)B>,.SBMMSCN^ # :
	$SBMXMG# Z==<Z .SBMMS>		
	# xA (<B>,.SBMMSC,D)B>,.SBMMSCNm #
D
	$SBNTC=#*=<Z .SBVCS>		
	#HA (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ #.
t
	$SBOBB=#.*=<Z .SBOBB>		
	#.HA (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw #M
	$SBOKO=#2=<Z .SBVCS>		
	#PA (<B>,.SBVCSC,D)B>,.SBVCSC,N<z "]rl
	$SBSST=#-"=<Z .SBSST>		
	#-@A (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy #]
	$SBVCST#:==<Z .SBVCS>		
	#XA (<B>,.SBVCSC,D)B>,.SBVCSCNyT #U
	$SBWFI=#:=<Z .SBVCS>		
	#XA (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ "^s
	$SID==<"^:Z >		
	A (<B>,C,D)A (<B>,OX] $H*$F
	$SRMBZ=$HJ=<Z .SRRSV>		
	$HhA (<B>,.SRRSVC,D)B>,.SRRSVC,OY $KB$`
	$SRMDG=$Kb=<Z .SRMMS>		
	$LA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 $J:$W
	$SRMMG=$JZ=<Z .SRMMS>		
	$JxA (<B>,.SRMMSC,D)B>,.SRMMSC,OlY $I2$O
	$SRVRS=$IR=<Z .SRRSV>		
	$IpA (<B>,.SRRSVC,D)B>,.SRRSVC,V "_z
	$UBITS="_"=<Z >		
	A (<B>,C,D)A (<Bbuh6 #P*
	$XNNAM=#PJ=<Z .XNNAM>		
	#PhA (<B>,.XNNAMC,D)B>,.XNNAMC,bun #Nu
	$XNNXT=#N:=<Z .XNNXT>		
	#NXA (<B>,.XNNXTC,D)B>,.XNNXTC,bv
[ #O"~
	$XNPRV=#OB=<Z .XNPRV>		
	#O`A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= #Q2
	$XNSTK=#QR=<Z .XNSTK>		
	#QpA (<B>,.XNSTKC,D)B>,.XNSTKC,;] $z!{
	  IFGE $<<<B>&777777>-..$8BSIZ>,<
		PRINTX$X ?WORD offset gre$xater than $BUILD $size parameter>
$8	  SET0. (\<B>,C,<A>)
	B>,;LH $z!?
	IFNDEF $C,<PRINTX C IS $8NOT DEFINED
	  $XA (<B>,D,FWMASK$x)>	
	IFDEF C,<
	IFNDEF %C,<
	$8  A (<B>,D,C)$X>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,
I7P 
nP 
]PP 
$)P 
$dQP 
$iP 
$iRP 
$k3P 
%IP 
%IRP 
%K3P 
%nP 
&
RP 
D,pP 
E9<P 
EI7P 
~HxP 
~IXP xP P P ;XP <XP LP lRP I7P nP ,P P QP P (XP )P )8P +8P -3P .P 9P HtP IuP IyP LP MP 	kP lUP +QP ,P HuP I7P XrP 
YuP lP mxP RP 
QP 
hP 
hP)(rP,P -P 8PP 8TP 8rP 
8tP <P =P HXP IP I8P K8P NP $<zP $HtP $LP %I7P %krP &)0P l;:P l;VP miP ;rP H:P $I`P $K0P $]ZP %\sP &LzP *YSP *D1Q *DkQ 2tXP  2tYP 2t<XP 2t<YP 2tLXP 2tLYP 2u|XP  2u|YP 2v,XP 2v,YP 6$P 6$kP 6%I7P 6%LrP 6%nP 6&<rP 6,QP 6,SP 6,P 6,P 6,:2P 6,lUP 6.N8P 6<LP 6>9P 6><P 6DHtP 6EI7P 6EKQP 6EK[P 6F
vP 6F8tP 6F=P 6FN8P 6FYP 7
-3P 7
8PP 7<XP 
B)P B+P B8{P BIQP 
BISP BITP BL2P B\HP B\HP B\IP B\IP B\JP BkP BrP BYQP 
BYSP 
BYTP 	B\2P BPP B
0P BP BP BP B1P B3P B4P BQP BSP BTP BqP BsP BtP BRP 
B,1P 	B,3P B,4P B,jP B\YP B\+P B\+VP B\+YP B\:zP B\;rP B\<QP B\IrP B\LP B\]hP 	B\]iP 	B\]iP 
B\]jP 
B\]jP B\]kP B\kP B\m7P B]I7P B]Z2P B]\uP B^0P B^7P B^PP B^WP B^	P B^	P 	B^RP B^
QP B^
zP B^P B^)3P B^+VP B^+sP B^,{P B^82P B^9RQ ?@B^;VP B^;sP B^=P B^IzP B^N8P B^XrP B^lZP B_
2P B_P J$JP J$JP J$LtP J$LzP J$L{P J%I7P 	J%YP J%[9P J%kVP J&tP J&	QP J&
VP J&
zP 	J&=P J&>9P J,(2P J,(zP J,)P J,)P J,)P J,+1P J,+1P J,+:P J,8qP J,8yP J,;WP J,XvP J,i0P J,lVP J-	2P J-qP J-vP J-VP J-vP J-,VP J.2P J.qP J.qP J.	P J.	VP J.
1P J.
3P J.8P J.WP J.
1P J.
3P J.
7P J.
tP J.8qP J.9P J.9VP J.;WP J.<tP J.<zP J.=Q J.KrPJ=krPNrPNQPNPN-xPN;PNHyP!NJPNJPNLPwNLP!NLP"NLXPNLrP$NLxP$NLyP$NLzP$NL{P$NhqP$NkP$#NHqP$NI7P%$NK1P%N[9P%NkVP&NxQP&$NyP~N<zP~#NJ6Pu"NMxPuNhyPuObv
[P bv=P >}{woP