Google
 

Trailing-Edge - PDP-10 Archives - bb-h137f-bm - new-subsys/scapar.unv
There are 23 other files named scapar.unv in the archive. Click here to see a list.
x
,SL@P CN %L"- 

	..CNT%LB.==3		;Init the c%L`ounter
	..STR.==%M0		;Init the stri%M ng

IRPC A,<
%M@
	..CHR.=="A"		%M`;Get the current %Ncharacter
	..CHR%N .==..CHR._<^D8*..%N@CNT.+4> ;Shift it%N` into the right p%Olace
	..STR.==..%O STR.!..CHR.	;Add %O@it to the current%O`
	..CNT.==..CNT.%P-1	;Decrement the%P  four word block %P@counter

IFL ..%P`CNT.,<
	EXP ..ST%QR.		;Generate a w%Q ord of what is le%Q@ft
	..CNT.==3		;%Q`Init the four cha%Rr chunk counter
%R 	..STR.==0		;Init%R@ the string
>;En%R`d IFL ..CNT.

>%S;End IPRC A

I%S FN ..STR.,	EXP ..%S@STR.	;If there ar%S`e characters left%T 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"@ &B0
	  IFE &bB,<..TA==0>
	  &IFN B,<EXP ..TA& 
		    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&&
TPG&|i@S%"(*CALLLSC.PFFCALLSC.PFG&}`%G,uLzQ @G,v0Q G,vPQ G,v	rQ G3.
TPlG4,;:PlG4,;VPhG4-iPGBV@Q I6= n`'
	A==<-1oB<C>+1B<C-D>> o 
	IF1,<IFDEF %Ao@,<PRINTX ?A ALREo`ADY DEFINED>>
	DpEFINE %A (OP,AC,p Y,MSK)<
	$A==<Zp@ 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  %w/8<<<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^= NP5
	A==C	Np	
	IF1,<IFDEF %OA,<PRINTX ?A ALRO0EADY DEFINED>>
	OPDEFINE %A (OP,ACOp,Y,MSK)<
	$A==<PZ 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"@ &b0.
	IFN <<.&.TA>&B>,<PRINTX&  ?Initial field n&@ot zero in $SET>
	..TVAL==<C>
	 ..TMSK==<B>
	  ..TA==..TA!&@<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 %wB/L
	  IFDEF%wb ..BSIZ,<PRINTX ?%xMissing $EOB afte%x r a $BUILD>
	  .%x@.BSIZ==0			
	  .%x`.BLOC==.			
	  R%yEPEAT A,<			
		%y BLD0.(\..BSIZ,0)	%y@
		..BSIZ==..BSIZ+1>	
	==..BSI	

	$BUIL%\"D (.SSAFT+1)	;Siz%\@e of the block
%\`
	$SET (.SSDGR,,<%]XCDSEC,,SINDGR>)	%] ;[7.1043]Datagram%]@ received
	$SET %]`(.SSMGR,,<XCDSEC,%^,SINMGR>)	;[7.104%^ 3]Message receive%^@d
	$SET (.SSPBC,%^`,<XCDSEC,,SINPBC>%_)	;[7.1043]Port b%_ roke connection
%_@	$SET (.SSCTL,,<X%_`CDSEC,,SINCTL>)	;%`[7.1043]Connect t%` o listen
	$SET (%`@.SSCRA,,<XCDSEC,,%``SINCRA>)	;[7.1043%a]Connect response%a  available
	$SET%a@ (.SSMSC,,<XCDSEC%a`,,SINPSC>)	;[7.10%b43]Message/datagr%b am send complete
	$SET (.SSDDG,,<%b`MSEC1,,R>) 	;Data%cgram dropped
	$S%c ET (.SSLCL,,<XCDS%c@EC,,SINLCL>)	;[7.%c`1043]Little credi%dt left
	$SET (.S%d SNCO,,<MSEC1,,R>)%d@	;Node came onlin%d`e
	$SET (.SSOSD,%e,<XCDSEC,,SINOSD>%e )	;[7.1043]OK to %e@send data
	$SET %e`(.SSRID,,<XCDSEC,%f,SINRID>)	;[7.104%f 3]Remote initiate%f@d disconnect
	$S%f`ET (.SSCIA,,<XCDS%gEC,,SINCIA>)	;[7.%g 1043]Credit is av%g@ailable
	$SET (.%g`SSDMA,,<XCDSEC,,S%hINDMA>)	;[7.1043]%h DMA complete

	$EOB

te

		N< %hb/

	...FO%iO==0		;Init the o%i rder checker vari%i@able

	$ENT (.S%i`TORQ,SC.ORQ)	;Con%jnect request
	$E%j NT (.STORS,SC.ORS%j@)	;Connect respon%j`se
	$ENT (.STARQ%k,SC.ARQ)	;Accept %k request
	$ENT (.%k@STARS,SC.ARS)	;Ac%k`cept response
	$%lENT (.STRRQ,SC.RR%l Q)	;Reject reques%l@t
	$ENT (.STRRS,%l`SC.RRS)	;Reject r%mesonse
	$ENT (.S%m TDRQ,SC.DRQ)	;Dis%m@connect request
%m`	$ENT (.STDRS,SC.%nDRS)	;Disconnect %n response
	$ENT (%n@.STCRQ,SC.CRQ)	;C%n`redit request
	$%oENT (.STCRS,SC.CR%o S)	;Credit respon%o@se
	$ENT (.STAMG%o`,SC.AMG)	;Applica%ption message
	$E%p NT (.STADG,SC.ADG%p@)	;Application datagram

on da	v@ %q/ 

IFN ..%q".FOO,<
IFN <A-.%q@..FOO-1>,<IF2 <PR%q`INTX Dispatch tab%rle out of order! %r (A)>>
>;End IFN%r@ ...FOO

	...FO%r`O==A		;Get the c%surrent value of %s A

	XWD XCDSEC,%s@B		;[7.1037]Sect%s`ion six address o%tf a handler routine

ler routi	|  %~B0
	  IFNDE%~bF ..BSIZ,<PRINTX %?$EOB without pre% vious $BUILD>
	 %@ IFN <.-..BLOC>,<%`PRINTX ?Address c&hange between $BU& ILD and $EOB>
;	&@  XLIST			
	  ..&`T==0
	  REPEAT .&.BSIZ,<
	    BLD& 0.(\..T,1)		
	  &@  ..T==..T+1 >
	&`  PURGE ..BSIZ,..&T,..BLOC	
;	  LIST
	C	
;	  LI	2$:2 %G2,^

	LOAD %GRA,INDEX,B	;Get %Grthe index from th%J"e CID source
	AD%J@D A,CIDTAB		;Add%J` the base address%K of the CB addres%K s table
	MOVE A%K@,(A)		;Now get t%K`he address of the CB

s of the	NyS %TB-(
;	CALL S%TbC.OFF		;Turn off %Udisconnect processing
ct proces	N{@ %UB-0
;	CALL S%UbC.ON		;Release th%Ve disconnect interlock
ect inte	N9Q &"1V

	$BUIL&BD (.SSLST+1)

	&`$SET (.SSCON,<>,<&XCDSEC,,SCSCON>) & ;[7.1043]
	$SET &@(.SSLIS,<>,<XCDSE&`C,,SCSLIS>) ;[7.1&043]
	$SET (.SSD& IS,<>,<XCDSEC,,SC&@SDIS>) ;[7.1043]
	$SET (.SSREJ,<>&	,<XCDSEC,,SCSREJ>&	 ) ;[7.1043]
	$SE&	@T (.SSSDG,<>,<XCD&	`SEC,,SCSSDG>) ;[7&
.1043]
	$SET (.S&
 SQRD,<>,<XCDSEC,,&
@SCSQRD>) ;[7.1043&
`]
	$SET (.SSSMG,&<>,<XCDSEC,,SCSSM& G>) ;[7.1043]
	$&@SET (.SSQRM,<>,<X&`CDSEC,,SCSQRM>) ;&
[7.1043]
	$SET (&
 .SSCSP,<>,<XCDSEC&
@,,SCSCSP>) ;[7.10&
`43]
	$SET,(.SSRC&,,SCS&
&	$SETE(.SSSTS,<>,& ;[7.1043]
	$SET&  (.SSRMG,<>,<XCDS&@EC,,SCSRMG>) ;[7.&`1043]
	$SET (.SS&MAP,<>,<XCDSEC,,S& CSMAP>) ;[7.1043]&@
	$SET (.SSUMP,<&`>,<XCDSEC,,SCSUMP&>) ;[7.1043]
	$S& ET (.SSSND,<>,<XC&@DSEC,,SCSSND>) ;[&`7.1043]
	$SET (.&SSREQ,<>,<XCDSEC,& ,SCSREQ>) ;[7.104&@3]
	$SET (.SSAIC&`,<>,<XCDSEC,,SCSA&IC>) ;[7.1043]
	& $SET (.SSRPC,<>,<&@XCDSEC,,SCSRPC>) &`;[7.1043]
	$SET &(.SSRDG,<>,<XCDSE& C,,SCSRDG>) ;[7.1&@043]
	$SET (.SSC&`RD,<>,<XCDSEC,,SC&SCRD>) ;[7.1043]
	$SET (.SSCRM,<>&@,<XCDSEC,,SCSCRM>&`) ;[7.1043]
	$SE&T (.SSACC,<>,<XCD& SEC,,SCSACC>) ;[7&@.1043]
	$SET (.S&`SGDE,<>,<XCDSEC,,&SCSGDE>) ;[7.1043& ]
	$SET (.SSEVT,&@<>,<XCDSEC,,SCSEV&`T>) ;[7.1043]
	$&SET (.SSGLN,<>,<X& CDSEC,,SCSGLN>) ;&@[7.1043]
	$SET (&`.SSRBS,<>,<XCDSEC&,,SCSRBS>) ;[7.10& 43]
	$SET (.SSRP&@S,<>,<XCDSEC,,SCS&`RPS>) ;[7.1043]
&
	$SET (.SSMDR,<& >,<MSEC1,,UJSYS>)&@
	$SET (.SSMDS,<&`>,<MSEC1,,UJSYS>)&
	$SET (.SSSRS,<& >,<MSEC1,,UJSYS>)&@
	$SET (.SSRRS,<&`>,<MSEC1,,UJSYS>)

	$EOB

>)	N.@ %z/`
	  IFNDE%z"F ..BSIZ,<PRINTX %z@?$SET without pre%z`vious $BUILD>
	 %{ IFNB <B>,<..STR%{ 0 (..SET,<C>,B,%{@A)>
	IFB  <B%{`>,<..STR0 (..SET,%|<C>,FWMASK,A)>
	,FWMASK,A)>CAIA,,0	ON88 %VB-\

	XWD M%VbSEC1,CFSINI##	;In%Wit the Common fil%W e system
	XWD MS%W@EC1,MSCINI##	;Ini%W`t MSCP
	XWD MSEC%X1,MSSINI	;Init th%X e MSCP server
	X%X@WD XCDSEC,SCSINI	%X`;[7.1043]Init the%Y SCS% JSYS SYSAP
	XWD XCDSEC,CLUI%Y@NI	;[7.1076] Init%Y` CLUDGR SYSYAP
 %Z  IFN CLEQIN,<			%Z ;[7.1072] If clus%Z@ter ENQ code pres%Z`ent
	XWD XCDSEC,%[EQSINI	;[7.1072] %[ Init the ENQSRV S%[@YSAP
   >				;[7.1072]

		;[7
;<s & J2
	$.PKSFD& j==<Z .PKSTS>		
	&!A (<B>,.PKSTSC,D)B>,.PKSTSC
n %*J*X
	$BBNXT=%*j=<Z .BBNXT>		
	%+A (<B>,.BBNXTC,D)B>,.BBNXTC,
]P %+R*a
	$BBUVA=%+r=<Z .BBUVA>		
	%,A (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR %$*%
	$BDFFD=%$:=<Z .BDFFD>		
	%$XA (<B>,.BDFFDC,D)B>,.BDFFDC,
$k %(:*G
	$BDFLD=%(Z=<Z .BDFLD>		
	%(xA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 %&**6
	$BDFMG=%&J=<Z .BDFMG>		
	%&hA (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR %%"*.
	$BDLFD=%%B=<Z .BDFFD>		
	%%`A (<B>,.BDFFDC,D)B>,.BDFFDC,
%K %)B*P
	$BDLLD=%)b=<Z .BDLLD>		
	%*A (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 %'2*?
	$BDLMG=%'R=<Z .BDLMG>		
	%'pA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n $;z*
	$BDNXT=%"*=<Z .BDNXT>		
	%"HA (<B>,.BDNXTC,D)B>,.BDNXTC,
&
R %#*
	$BDPRE=%#2=<Z .BDPRE>		
	%#PA (<B>,.BDPREC,D)B>,.BDPREC,(X $q:'
	$CBBBQ=$qZ=<Z .CBBBQ>		
	$qxA (<B>,.CBBBQC,D)B>,.CBBBQC,) $k
&\
	$CBBDQ=$k*=<Z .CBBDQ>		
	$kHA (<B>,.CBBDQC,D)B>,.CBBDQC,)8 $o*&~
	$CBBEQ=$oJ=<Z .CBBEQ>		
	$ohA (<B>,.CBBEQC,D)B>,.CBBEQC,*y $D$%
	$CBBKST$D2==<Z .CBSTS>		
	$DPA (<B>,.CBSTSC,D)B>,.CBSTSC+8 $hz&K
	$CBBMQ=$i=<Z .CBBMQ>		
	$i8A (<B>,.CBBMQC,D)B>,.CBBMQC,. $m&m
	$CBBXQ=$m:=<Z .CBBXQ>		
	$mXA (<B>,.CBBXQC,D)B>,.CBBXQC,9 $`B&
	$CBCDD=$`b=<Z .CBCDD>		
	$aA (<B>,.CBCDDC,D)B>,.CBCDDC,;Y $E$-
	$CBCNST$E2==<Z .CBSTS>		
	$EPA (<B>,.CBSTSC,D)B>,.CBSTSCHt $W%=
	$CBDCID$W:==<Z .CBDCI>		
	$WXA (<B>,.CBDCIC,D)B>,.CBDCICI $Z*%V
	$CBDDRE$ZJ==<Z .CBREA>		
	$ZhA (<B>,.CBREAC,D)B>,.CBREACIu $db&*
	$CBDGJ=$e=<Z .CBDGJ>		
	$e A (<B>,.CBDGJC,D)B>,.CBDGJC,KW $B
$
	$CBDNOD$B*==<Z .CBSBI>		
	$BHA (<B>,.CBSBIC,D)B>,.CBSBIC^ $C
$
	$CBEXPR$C*==<Z .CBSBI>		
	$CHA (<B>,.CBSBIC,D)B>,.CBSBICh1 $HJ$H
	$CBFABT$Hj==<Z .CBFLG>		
	$IA (<B>,.CBFLGC,D)B>,.CBFLGCh{ $Mr$s
	$CBFCVC$N==<Z .CBFLG>		
	$N0A (<B>,.CBFLGC,D)B>,.CBFLGCi $JZ$Y
	$CBFDCL$Jz==<Z .CBFLG>		
	$KA (<B>,.CBFLGC,D)B>,.CBFLGCi $U*%.
	$CBFDEF$UJ==<Z .CBFLG>		
	$UhA (<B>,.CBFLGC,D)B>,.CBFLGCi $R%
	$CBFDIS$R2==<Z .CBFLG>		
	$RPA (<B>,.CBFLGC,D)B>,.CBFLGCi $S%
	$CBFDRQ$S:==<Z .CBFLG>		
	$SXA (<B>,.CBFLGC,D)B>,.CBFLGCi9 $Q
%

	$CBFERR$Q*==<Z .CBFLG>		
	$QHA (<B>,.CBFLGC,D)B>,.CBFLGCjY $GB$@
	$CBFJSY$Gb==<Z .CBFLG>		
	$HA (<B>,.CBFLGC,D)B>,.CBFLGCjt $Kb$b
	$CBFKIL$L==<Z .CBFLG>		
	$L A (<B>,.CBFLGC,D)B>,.CBFLGCk2 $Lj$j
	$CBFMDC$M
==<Z .CBFLG>		
	$M(A (<B>,.CBFLGC,D)B>,.CBFLGCkW $F:$7
	$CBFNNC$FZ==<Z .CBFLG>		
	$FxA (<B>,.CBFLGC,D)B>,.CBFLGCky $eb&2
	$CBFORK$f==<Z .CBFRK>		
	$f A (<B>,.CBFRKC,D)B>,.CBFRKCl $P%
	$CBFPTC$P"==<Z .CBFLG>		
	$P@A (<B>,.CBFLGC,D)B>,.CBFLGClP $IR$Q
	$CBFRAP$Ir==<Z .CBFLG>		
	$JA (<B>,.CBFLGC,D)B>,.CBFLGClw $T"%&
	$CBFSNM$TB==<Z .CBFLG>		
	$T`A (<B>,.CBFLGC,D)B>,.CBFLGClw $Nz${
	$CBFSOB$O==<Z .CBFLG>		
	$O8A (<B>,.CBFLGC,D)B>,.CBFLGC $Y"%N
	$CBIDB=$YB=<Z .CBBUF>		
	$Y`A (<B>,.CBBUFC,D)B>,.CBBUFC,1 $X"%F
	$CBIMB=$XB=<Z .CBBUF>		
	$X`A (<B>,.CBBUFC,D)B>,.CBBUFC,+q $fj&:
	$CBJOB=$g
=<Z .CBFRK>		
	$g(A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu $cZ&!
	$CBMGJ=$cz=<Z .CBMGJ>		
	$dA (<B>,.CBMGJC,D)B>,.CBMGJC,[Y $]2%o
	$CBMNRC$]R==<Z .CBMCD>		
	$]pA (<B>,.CBMCDC,D)B>,.CBMCDC[Y $\2%g
	$CBMNSC$\R==<Z .CBMCD>		
	$\pA (<B>,.CBMCDC,D)B>,.CBMCDCl $^:%w
	$CBNPO=$^Z=<Z .CBNPO>		
	$^xA (<B>,.CBNPOC,D)B>,.CBNPOC,	 $tJ'(
	$CBPDA=$tj=<Z .CBPS1>		
	$uA (<B>,.CBPS1C,D)B>,.CBPS1C,	 $sB' 
	$CBPDG=$sb=<Z .CBPS0>		
	$tA (<B>,.CBPS0C,D)B>,.CBPS0C,	; $uJ'0
	$CBPEV=$uj=<Z .CBPS1>		
	$vA (<B>,.CBPS1C,D)B>,.CBPS1C,3 $rB'
	$CBPMG=$rb=<Z .CBPS0>		
	$sA (<B>,.CBPS0C,D)B>,.CBPS0C,(w $_:%
	$CBRCNT$_Z==<Z .CBNPO>		
	$_xA (<B>,.CBNPOC,D)B>,.CBNPOC8t $;Z%5
	$CBSCID$V2==<Z .CBSCI>		
	$VPA (<B>,.CBSCIC,D)B>,.CBSCIC9 $[*%^
	$CBSDRE$[J==<Z .CBREA>		
	$[hA (<B>,.CBREAC,D)B>,.CBREACHX $p2'
	$CBTBQ=$pR=<Z .CBTBQ>		
	$ppA (<B>,.CBTBQC,D)B>,.CBTBQC,I $j&T
	$CBTDQ=$j"=<Z .CBTDQ>		
	$j@A (<B>,.CBTDQC,D)B>,.CBTDQC,I8 $n"&v
	$CBTEQ=$nB=<Z .CBTEQ>		
	$n`A (<B>,.CBTEQC,D)B>,.CBTEQC,K8 $gr&C
	$CBTMQ=$h=<Z .CBTMQ>		
	$h0A (<B>,.CBTMQC,D)B>,.CBTMQC,N $l&e
	$CBTXQ=$l2=<Z .CBTXQ>		
	$lPA (<B>,.CBTXQC,D)B>,.CBTXQC,$<z %R)a
	$CDCST=%r=<Z .CDCST>		
	%A (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht %Z)i
	$CDDCI=%z=<Z .CDDCI>		
	%A (<B>,.CDDCIC,D)B>,.CDDCIC,$LR %j*
	$CDDREA% 
==<Z .CDREA>		
	% (A (<B>,.CDREAC,D)B>,.CDREAC%kr %b)r
	$CDNOD=%=<Z .CDNOD>		
	% A (<B>,.CDNODC,D)B>,.CDNODC,&<R %j)z
	$CDSREA%
==<Z .CDREA>		
	%(A (<B>,.CDREAC,D)B>,.CDREAC+Q $aJ&
	$CPJNB=$aj=<Z .CBJNB>		
	$bA (<B>,.CBJNBC,D)B>,.CBJNBC,, $bR&
	$CPJPB=$br=<Z .CBJPB>		
	$cA(<B>,.CBJPBC,D)B>,.CBJPBC,;2 %
	$E0CMD=%=<Z .PBER0>		
	%8A (<B>,.PBER0C,D)B>,.PBER0C,k %)
	$E0FLI=%:=<Z .PBER0>		
	%XA (<B>,.PBER0C,D)B>,.PBER0C,X] %)
	$E0MBZ=%2=<Z .PBER0>		
	%PA (<B>,.PBER0C,D)B>,.PBER0C,2 %(|
	$E0QUE=%"=<Z .PBER0>		
	%@A (<B>,.PBER0C,D)B>,.PBER0C,)9 %
)
	$E0RES=%*=<Z .PBER0>		
	%HA (<B>,.PBER0C,D)B>,.PBER0C,;r %8Z+I
	$EBCOD=%8z=<Z .EBCOD>		
	%9A (<B>,.EBCODC,D)B>,.EBCODC,I7 %7Z+A
	$EBLEN=%7z=<Z .EBCOD>		
	%8A (<B>,.EBCODC,D)B>,.EBCODC,&&7 %H,E
	$IDPAO=%H:=<Z RIDSTS>		
	%HXA (<B>,RIDSTSC,D)B>,RIDSTSC,&&W %I",N
	$IDPBO=%IB=<Z RIDSTS>		
	%I`A (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< $<#r
	$INDEX=$>*=<Z >		
	A (<B>,C,D)A (<B*@Y %!"*
	$JH%DGB%!B==<Z .JHFLG>		
	%!`A (<B>,.JHFLGC,D)B>,.JHFLGC4, $?R#
	$M%ALII$?r==<Z >		
	A (<B>,C,D)A (<4,4 $>j#x
	$M%AMII$?
==<Z >		
	A (<B>,C,D)A (<4,+ $A"$

	$M%BLII$AB==<Z >		
	A (<B>,C,D)A (<4,+4 $@:$
	$M%BMII$@Z==<Z >		
	A (<B>,C,D)A (<6 Y %1Z+
	$MD%DMD%1z==<Z >		
	A (<B>,C,D)A (<6 YV %0z+	
	$MD%FLG%1==<Z >		
	A (<B>,C,D)A (<6,:2 %6R+9
	$MECID=%6r=<Z .MECID>		
	%7A (<B>,.MECIDC,D)B>,.MECIDC,6,k %4J+(
	$MEFLG=%4j=<Z .METYP>		
	%5A (<B>,.METYPC,D)B>,.METYPC,6,lU %2:+
	$MEFRK=%2Z=<Z .MEFRK>		
	%2xA (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 %3B+ 
	$MELEN=%3b=<Z .MEFRK>		
	%4A (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 %5J+0
	$METYP=%5j=<Z .METYP>		
	%6A (<B>,.METYPC,D)B>,.METYPC,6@Hr &"2^
	$MH$CDT&+J==<Z .MHTYP>		
	&+hA (<B>,.MHTYPC,D)B>,.MHTYPC6@I &.:2w
	$MH$DCI&.Z==<Z .MHDCI>		
	&.xA (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 &1J3
	$MH$MCR&1j==<Z .MHSTS>		
	&2A (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 &,*2f
	$MH$MSG&,J==<Z .MHTYP>		
	&,hA (<B>,.MHTYPC,D)B>,.MHTYPC6@L &3Z3!
	$MH$PKL&3z==<Z .MHPKL>		
	&4A (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq &/B3
	$MH$SCI&/b==<Z .MHSCI>		
	&0A (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv &2R3
	$MH$SMC&2r==<Z .MHSTS>		
	&3A (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz &0J3
	$MH$STS&0j==<Z .MHSTS>		
	&1A (<B>,.MHSTSC,D)B>,.MHSTSC6@M &-22o
	$MH$TYP&-R==<Z .MHTYP>		
	&-pA (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ &21o
	$PKDRV=&R=<Z .PKRSV>		
	&pA (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 &$b2*
	$PKMAI=&%=<Z .PKPST>		
	&% A (<B>,.PKPSTC,D)B>,.PKPSTC,B^
W &%b22
	$PKPRND&&==<Z .PKPST>		
	&& A (<B>,.PKPSTC,D)B>,.PKPSTCB^
Y &#b2"
	$PKPRST&$==<Z .PKPST>		
	&$ A (<B>,.PKPSTC,D)B>,.PKPSTCB^8p &:1w
	$PKSCA=&Z=<Z .PKRSV>		
	&xA (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q &*1f
	$PKSRB=&J=<Z .PKRSV>		
	&hA (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 &"b2
	$PKTYP=&#=<Z .PKTYP>		
	&# A (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ &B2
	$PKVRT=&b=<Z .PKRSV>		
	& A (<B>,.PKRSVC,D)B>,.PKRSVC,JYV %?+}
	$RBUFMG%?2==<Z RNGSW>		
	%?PA (<B>,RNGSWC,D)B>,RNGSWC,J$J %B)P
	$RDDHT=%b=<Z .RDDHT>		
	%A (<B>,.RDDHTC,D)B>,.RDDHTC,J$J %J)X
	$RDDHV=%j=<Z .RDDHV>		
	%A (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz %2)?
	$RDDST=%R=<Z .RDDST>		
	%pA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ %:)G
	$RDDSV=%Z=<Z .RDDSV>		
	%xA (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y %").
	$RDMDG=%B=<Z .RDMDG>		
	%`A (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 %*)6
	$RDMMS=%J=<Z .RDMMS>		
	%hA (<B>,.RDMMSC,D)B>,.RDMMSC,J&y %)%
	$RDPORT%:==<Z .RDSTS>		
	%XA (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy %*)
	$RDVCST%:==<Z .RDSTS>		
	%XA (<B>,.RDSTSC,D)B>,.RDSTSCJMm %C2,
	$RINTLK%CR==<Z RNGSW>		
	%CpA (<B>,RNGSWC,D)B>,RNGSWC,Jty; %:r+[
	$RNGEVC%;==<Z .REECL>		
	%;0A (<B>,.REECLC,D)B>,.REECLCJtz %9b+R
	$RNGHED%:==<Z .REHED>		
	%: A (<B>,.REHEDC,D)B>,.REHEDCJt{ %;r+c
	$RNGLEN%<==<Z .REECL>		
	%<0A (<B>,.REECLC,D)B>,.REECLCKu %@,
	$RPACKT%@:==<Z RNGSW>		
	%@XA (<B>,RNGSWC,D)B>,RNGSWC,K %A",
	$RPITRN%AB==<Z RNGSW>		
	%A`A (<B>,RNGSWC,D)B>,RNGSWC,KV %DZ,)
	$RPQFLK%Dz==<Z .REPQF>		
	%EA (<B>,.REPQFC,D)B>,.REPQFCKV %Eb,2
	$RPQFMG%F==<Z .REPQF>		
	%F A (<B>,.REPQFC,D)B>,.REPQFCK- %B*,
	$RPRTQU%BJ==<Z RNGSW>		
	%BhA (<B>,RNGSWC,D)B>,RNGSWC,K89 %>
+t
	$RSCASY%>*==<Z RNGSW>		
	%>HA (<B>,RNGSWC,D)B>,RNGSWC,Kq %=+l
	$RSYSCA%="==<Z RNGSW>		
	%=@A (<B>,RNGSWC,D)B>,RNGSWC,N: $zj'Z
	$SBCHN=${
=<Z .SBDSP>		
	${(A (<B>,.SBDSPC,D)B>,.SBDSPC,NL ${j'b
	$SBDPA=$|
=<Z .SBDSP>		
	$|(A (<B>,.SBDSPC,D)B>,.SBDSPC,NL %B(0
	$SBDPS=%b=<Z .SBDPS>		
	%A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX %B(8
	$SBDRP=%b=<Z .SBDPS>		
	%A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX $|r'k
	$SBDRQH$}==<Z .SBDRQ>		
	$}0A (<B>,.SBDRQC,D)B>,.SBDRQCNM %(
	$SBDTHW%:==<Z .SBDHT>		
	%XA (<B>,.SBDHTC,D)B>,.SBDHTCNM %
(

	$SBDTSW%*==<Z .SBDST>		
	%HA (<B>,.SBDSTC,D)B>,.SBDSTCNMT %"(&
	$SBDVHW%B==<Z .SBDHV>		
	%`A (<B>,.SBDHVC,D)B>,.SBDHVCNMY %(
	$SBDVSW%2==<Z .SBDSV>		
	%PA (<B>,.SBDSVC,D)B>,.SBDSVCNk $F(>
	$SBFLG=%J=<Z .SBFLG>		
	%hA (<B>,.SBFLGC,D)B>,.SBFLGC,Nks %
b(Z
	$SBFOFL%==<Z .SBFLG>		
	% A (<B>,.SBFLGC,D)B>,.SBFLGCNk{ %	Z(Q
	$SBFOVC%	z==<Z .SBFLG>		
	%
A (<B>,.SBFLGC,D)B>,.SBFLGCNm %R(I
	$SBFTMG%r==<Z .SBFLG>		
	%	A (<B>,.SBFLGC,D)B>,.SBFLGCNK1 $}z's
	$SBLMBH$~==<Z .SBLMB>		
	$~8A (<B>,.SBLMBC,D)B>,.SBLMBCN^ %(
	$SBMXDG%"==<Z .SBMMS>		
	%@A (<B>,.SBMMSC,D)B>,.SBMMSCN^ $'|
	$SBMXMG$"==<Z .SBMMS>		
	$@A (<B>,.SBMMSC,D)B>,.SBMMSCNm $vR'9
	$SBNTC=$vr=<Z .SBVCS>		
	$wA (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ %
R(i
	$SBOBB=%
r=<Z .SBOBB>		
	%(<B>,.SBOBBC,D)B>,.SBOBBC,Nzw $wZ'A
	$SBOKO=$wz=<Z .SBVCS>		
	$xA (<B>,.SBVCSC,D)B>,.SBVCSC,N<z $<:(`
	$SBSST=%j=<Z .SBSST>		
	%
A (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy $yb'R
	$SBVCST$z==<Z .SBVCS>		
	$z A (<B>,.SBVCSC,D)B>,.SBVCSCNyT $xb'J
	$SBWFI=$y=<Z .SBVCS>		
	$y A (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ $<b#h
	$SID==<$=Z >		
	A (<B>,C,D)A (<B>,OX] &&r2;
	$SRMBZ=&'=<Z .SRRSV>		
	&'0A (<B>,.SRRSVC,D)B>,.SRRSVC,OY &*
2T
	$SRMDG=&**=<Z .SRMMS>		
	&*HA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 &)2L
	$SRMMG=&)"=<Z .SRMMS>		
	&)@A (<B>,.SRMMSC,D)B>,.SRMMSC,OlY &'z2C
	$SRVRS=&(=<Z .SRRSV>		
	&(8A (<B>,.SRRSVC,D)B>,.SRRSVC,V $=J#n
	$UBITS=$=j=<Z >		
	A (<B>,C,D)A (<Bbuh6 %.r*{
	$XNNAM=%/=<Z .XNNAM>		
	%/0A (<B>,.XNNAMC,D)B>,.XNNAMC,bun %,b*j
	$XNNXT=%-=<Z .XNNXT>		
	%- A (<B>,.XNNXTC,D)B>,.XNNXTC,bv
[ %-j*r
	$XNPRV=%.
=<Z .XNPRV>		
	%.(A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= %/z+
	$XNSTK=%0=<Z .XNSTK>		
	%08A (<B>,.XNSTKC,D)B>,.XNSTKC,;] %|B/p
	  IFGE %|b<<<B>&777777>-..%}BSIZ>,<
		PRINTX%}  ?WORD offset gre%}@ater than $BUILD %}`size parameter>
%~	  SET0. (\<B>,C,<A>)
	B>,;LH %tB/4
	IFNDEF %tbC,<PRINTX C IS %uNOT DEFINED
	  %u A (<B>,D,FWMASK%u@)>	
	IFDEF C,<
	IFNDEF %C,<
	%v  A (<B>,D,C)%v >	
	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