Google
 
Trailing-Edge - PDP-10 Archives - bb-h137e-bm_tops20_v6_1_instl - new-subsys/scapar.unv
There are 23 other files named scapar.unv in the archive. Click here to see a list.
x
,QK@P CN $f&n

	..CNT$f".==3		;Init the c$f@ounter
	..STR.==$f`0		;Init the stri$gng

IRPC A,<
$g 
	..CHR.=="A"		$g@;Get the current $g`character
	..CHR$h.==..CHR._<^D8*..$h CNT.+4> ;Shift it$h@ into the right p$h`lace
	..STR.==..$iSTR.!..CHR.	;Add $i it to the current$i@
	..CNT.==..CNT.$i`-1	;Decrement the$j four word block $j counter

IFL ..$j@CNT.,<
	EXP ..ST$j`R.		;Generate a w$kord of what is le$k ft
	..CNT.==3		;$k@Init the four cha$k`r chunk counter
$l	..STR.==0		;Init$l  the string
>;En$l@d IFL ..CNT.

>$l`;End IPRC A

I$mFN ..STR.,	EXP ..$m STR.	;If there ar$m@e characters left$m` 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"@ %b)D
	  IFE %B,<..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 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&&

TPlG&|i@l$!xCALLSC.POFCALLISC.POG&}`&$'2";CALL SC.PONCALL SC.POG,t<zQ  G,uLQ G,uLzQ @G,v0Q G,vPQ G,v	rQ G4,;:P G4,;VP G4-iP 
	A==<-1lB<C>+1B<C-D>> l(
	IF1,<IFDEF %AlH,<PRINTX ?A ALRElhADY DEFINED>>
	DmEFINE %A (OP,AC,m(Y,MSK)<
	$A==<ZmH B>		
	OP (<AC>,B'Y,MSK)><AC>Id[@P 0JBYQ @JB5J Q JBl.@Q |JCY Q 0JC\`Q K
yP'K
d[@Q xK8,:P K8,;P L;<Q L;H@Q @L; Q  M2  %

"(b<<<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^= =3u
	A==C	=8	
	IF1,<IFDEF %=XA,<PRINTX ?A ALR=xEADY DEFINED>>
	>DEFINE %A (OP,AC>8,Y,MSK)<
	$A==<>XZ 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"@ %)X
	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 %

b(v
	M.IFDEF%<PRINTXt?%
	.B.%Z==0			
	  .%.BLOC==.			
	  R% EPEAT A,<			
		%@BLD0.(\..BSIZ,0)	%`
		..BSIZ==..BSIZ+1>	
	==..BSI	

	$BUIL$s"D (.SSAFT+1)	;Siz$s@e of the block
$s`
	$SET (.SSDGR,,<$tMSEC1,,SINDGR>)	;$t Datagram received$t@
	$SET (.SSMGR,,$t`<MSEC1,,SINMGR>)	$u;Message received$u 
	$SET (.SSPBC,,$u@<MSEC1,,SINPBC>)	$u`;Port broke conne$vction
	$SET (.SS$v CTL,,<MSEC1,,SINC$v@TL>)	;Connect to $v`listen
	$SET (.S$wSCRA,,<MSEC1,,SIN$w CRA>)	;Connect re$w@sponse available
	$SET (.SSMSC,,<$xMSEC1,,SINPSC>)	;$x Message/datagram $x@send complete
	$$x`SET (.SSDDG,,<MSE$yC1,,R>)	;Datagram$y  dropped
	$SET ($y@.SSLCL,,<MSEC1,,S$y`INLCL>)	;Little c$zredit left
	$SET$z  (.SSNCO,,<MSEC1,$z@,R>)	;Node came o$z`nline
	$SET (.SS${OSD,,<MSEC1,,SINO${ SD>)	;OK to send ${@data
	$SET (.SSR${`ID,,<MSEC1,,SINRI$|D>)	;Remote initi$| ated disconnect
$|@	$SET (.SSCIA,,<M$|`SEC1,,SINCIA>)	;C$}redit is availabl$} e
	$SET (.SSDMA,$}@,<MSEC1,,SINDMA>)$}`  ;DMA complete

	$EOB

te
	N< $~"(0

	...FO$~BO==0		;Init the o$~`rder checker vari$able

	$ENT (.S$ TORQ,SC.ORQ)	;Con$@nect request
	$E$`NT (.STORS,SC.ORS%)	;Connect respon% se
	$ENT (.STARQ%@,SC.ARQ)	;Accept %`request
	$ENT (.%STARS,SC.ARS)	;Ac% cept response
	$%@ENT (.STRRQ,SC.RR%`Q)	;Reject reques%t
	$ENT (.STRRS,% SC.RRS)	;Reject r%@esonse
	$ENT (.S%`TDRQ,SC.DRQ)	;Dis%connect request
% 	$ENT (.STDRS,SC.%@DRS)	;Disconnect %`response
	$ENT (%.STCRQ,SC.CRQ)	;C% redit request
	$%@ENT (.STCRS,SC.CR%`S)	;Credit respon%se
	$ENT (.STAMG% ,SC.AMG)	;Applica%@tion message
	$E%`NT (.STADG,SC.ADG%)	;Application datagram

on da	v@ %B(J

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

	...FO% O==A		;Get the c%@urrent value of %`A

	XWD 1,B		;%	Section one addre%	 ss of a handler routine

ler r	|  %b):
	  IFNDE%F ..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 $a&,

	LOAD $a2A,INDEX,B	;Get $aRthe index from th$de CID source
	AD$d D A,CIDTAB		;Add$d@ the base address$d` of the CB addres$es table
	MOVE A$e ,(A)		;Now get t$e@he address of the CB

s of the	NyS $n"&v
;	CALL S$nBC.OFF		;Turn off $n`disconnect processing
ct proces	N{@ $o"&~
;	CALL S$oBC.ON		;Release th$o`e disconnect interlock
ect inte	N9Q %B*^

	$BUIL%bD (.SSLST+1)

	%$SET (.SSCON,<>,<% MSEC1,,SCSCON>)
%@	$SET (.SSLIS,<>,%`<MSEC1,,SCSLIS>)
	$SET (.SSDIS,<>% ,<MSEC1,,SCSDIS>)%@
	$SET (.SSREJ,<%`>,<MSEC1,,SCSREJ>%)
	$SET (.SSSDG,% <>,<MSEC1,,SCSSDG%@>)
	$SET (.SSQRD%`,<>,<MSEC1,,SCSQR%D>)
	$SET (.SSSM% G,<>,<MSEC1,,SCSS%@MG>)
	$SET (.SSQ%`RM,<>,<MSEC1,,SCS% QRM>)
	$SET (.SS%  CSP,<>,<MSEC1,,SC% @SCSP>)
	$SET (.S% `SRCD,<>,<MSEC1,,S%!CSRCD>)
	$SET (.%! SSSTS,<>,<MSEC1,,%!@SCSSTS>)
	$SET (%!`.SSRMG,<>,<MSEC1,%",SCSRMG>)
	$SET %" (.SSMAP,<>,<MSEC1%"@,,SCSMAP>)
	$SET%"` (.SSUMP,<>,<MSEC%#1,,SCSUMP>)
	$SE%# T (.SSSND,<>,<MSE%#@C1,,SCSSND>)
	$S%#`ET (.SSREQ,<>,<MS%$EC1,,SCSREQ>)
	$%$ SET (.SSAIC,<>,<M%$@SEC1,,SCSAIC>)
	%$`$SET (.SSRPC,<>,<%%MSEC1,,SCSRPC>)
%%`	$SET (.SSRDG,<>,%%@<MSEC1,,SCSRDG>)
	$SET (.SSCRD,<>%&,<MSEC1,,SCSCRD>)%& 
	$SET (.SSCRM,<%&@>,<MSEC1,,SCSCRM>%&`)
	$SET (.SSACC,%'<>,<MSEC1,,SCSACC%' >)
	$SET (.SSGDE%'@,<>,<MSEC1,,SCSGD%'`E>)
	$SET (.SSEV%(T,<>,<MSEC1,,SCSE%( VT>)
	$SET (.SSG%(@LN,<>,<MSEC1,,SCS%(`GLN>)
	$SET (.SS%)RBS,<>,<MSEC1,,SC%) SRBS>)
	$SET (.S%)@SRPS,<>,<MSEC1,,S%)`CSRPS>)

	$SET %*(.SSMDR,<>,<MSEC1%* ,,UJSYS>)
	$SET %*@(.SSMDS,<>,<MSEC1%*`,,UJSYS>)
	$SET %+(.SSSRS,<>,<MSEC1%+ ,,UJSYS>)
	$SET %+@(.SSRRS,<>,<MSEC1%+`,,UJSYS>)

	$EOB

>)

	$EO	N.@ %")

	  IFNDE%BF ..BSIZ,<PRINTX %`?$SET without pre%vious $BUILD>
	 %  IFNB <B>,<..STR%@0 (..SET,<C>,B,%`A)>
	IFB  <B%>,<..STR0 (..SET,% <C>,FWMASK,A)>
	,FWMASK,A)>CAIA,,0	ON88 $p"'

	XWD M$pBSEC1,CFSINI##	;In$p`it the Common fil$qe system
	XWD MS$q EC1,MSCINI##	;Ini$q@t MSCP
	XWD MSEC$q`1,MSSINI	;Init th$re MSCP server
	X$r WD MSEC1,SCSINI	;$r@Init the SCS% JSYS SYSAP

 JSY
;<s %1J+
	$.PKSFD%1j==<Z .PKSTS>		
	%2A (<B>,.PKSTSC,D)B>,.PKSTSC
n $D*$&
	$BBNXT=$DJ=<Z .BBNXT>		
	$DhA (<B>,.BBNXTC,D)B>,.BBNXTC,
]P $E2$/
	$BBUVA=$ER=<Z .BBUVA>		
	$EpA (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR $=z#s
	$BDFFD=$>=<Z .BDFFD>		
	$>8A (<B>,.BDFFDC,D)B>,.BDFFDC,
$k $B$
	$BDFLD=$B:=<Z .BDFLD>		
	$BXA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 $@
$
	$BDFMG=$@*=<Z .BDFMG>		
	$@HA (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR $?#|
	$BDLFD=$?"=<Z .BDFFD>		
	$?@A (<B>,.BDFFDC,D)B>,.BDFFDC,
%K $C"$
	$BDLLD=$CB=<Z .BDLLD>		
	$C`A (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 $A$
	$BDLMG=$A2=<Z .BDLMG>		
	$APA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n #UZ#b
	$BDNXT=$<
=<Z .BDNXT>		
	$<(A (<B>,.BDNXTC,D)B>,.BDNXTC,
&

R $<r#k
	$BDPRE=$==<Z .BDPRE>		
	$=0A (<B>,.BDPREC,D)B>,.BDPREC,(X $ ]
	$CBBBQ=$:=<Z .CBBBQ>		
	$XA (<B>,.CBBBQC,D)B>,.CBBBQC,) $j *
	$CBBDQ=$
=<Z .CBBDQ>		
	$(A (<B>,.CBBDQC,D)B>,.CBBDQC,)8 $	
 L
	$CBBEQ=$	*=<Z .CBBEQ>		
	$	HA (<B>,.CBBEQC,D)B>,.CBBEQC,*y #]rs
	$CBBKST#^==<Z .CBSTS>		
	#^0A (<B>,.CBSTSC,D)B>,.CBSTSC+8 $Z 
	$CBBMQ=$z=<Z .CBBMQ>		
	$A (<B>,.CBBMQC,D)B>,.CBBMQC,. $z ;
	$CBBXQ=$=<Z .CBBXQ>		
	$8A (<B>,.CBBXQC,D)B>,.CBBXQC,9 #z"V
	$CBCDD=#zB=<Z .CBCDD>		
	#z`A (<B>,.CBCDDC,D)B>,.CBCDDC,;Y #^r{
	$CBCNST#_==<Z .CBSTS>		
	#_0A (<B>,.CBSTSC,D)B>,.CBSTSCHt #pz
	$CBDCID#q==<Z .CBDCI>		
	#q8A (<B>,.CBDCIC,D)B>,.CBDCICI #t
$
	$CBDDRE#t*==<Z .CBREA>		
	#tHA (<B>,.CBREAC,D)B>,.CBREACIu #~Bx
	$CBDGJ=#~b=<Z .CBDGJ>		
	#A (<B>,.CBDGJC,D)B>,.CBDGJC,KW #[jb
	$CBDNOD#\
==<Z .CBSBI>		
	#\(A (<B>,.CBSBIC,D)B>,.CBSBIC^ #\jj
	$CBEXPR#]
==<Z .CBSBI>		
	#](A (<B>,.CBSBIC,D)B>,.CBSBICh1 #b*
	$CBFABT#bJ==<Z .CBFLG>		
	#bhA (<B>,.CBFLGC,D)B>,.CBFLGCh{ #gRA
	$CBFCVC#gr==<Z .CBFLG>		
	#hA (<B>,.CBFLGC,D)B>,.CBFLGCi #d:'
	$CBFDCL#dZ==<Z .CBFLG>		
	#dxA (<B>,.CBFLGC,D)B>,.CBFLGCi #o
|
	$CBFDEF#o*==<Z .CBFLG>		
	#oHA (<B>,.CBFLGC,D)B>,.CBFLGCi #krc
	$CBFDIS#l==<Z .CBFLG>		
	#l0A (<B>,.CBFLGC,D)B>,.CBFLGCi #lzk
	$CBFDRQ#m==<Z .CBFLG>		
	#m8A (<B>,.CBFLGC,D)B>,.CBFLGCi9 #jjZ
	$CBFERR#k
==<Z .CBFLG>		
	#k(A (<B>,.CBFLGC,D)B>,.CBFLGCjY #a"
	$CBFJSY#aB==<Z .CBFLG>		
	#a`A (<B>,.CBFLGC,D)B>,.CBFLGCjt #eB0
	$CBFKIL#eb==<Z .CBFLG>		
	#fA (<B>,.CBFLGC,D)B>,.CBFLGCk2 #fJ8
	$CBFMDC#fj==<Z .CBFLG>		
	#gA (<B>,.CBFLGC,D)B>,.CBFLGCkW #`
	$CBFNNC#`:==<Z .CBFLG>		
	#`XA (<B>,.CBFLGC,D)B>,.CBFLGCky #B 
	$CBFORK#b==<Z .CBFRK>		
	$A (<B>,.CBFRKC,D)B>,.CBFRKCl #ibR
	$CBFPTC#j==<Z .CBFLG>		
	#j A (<B>,.CBFLGC,D)B>,.CBFLGClP #c2
	$CBFRAP#cR==<Z .CBFLG>		
	#cpA (<B>,.CBFLGC,D)B>,.CBFLGClw #nt
	$CBFSNM#n"==<Z .CBFLG>		
	#n@A (<B>,.CBFLGC,D)B>,.CBFLGClw #hZI
	$CBFSOB#hz==<Z .CBFLG>		
	#iA (<B>,.CBFLGC,D)B>,.CBFLGC #s
	$CBIDB=#s"=<Z .CBBUF>		
	#s@A (<B>,.CBBUFC,D)B>,.CBBUFC,1 #r
	$CBIMB=#r"=<Z .CBBUF>		
	#r@A (<B>,.CBBUFC,D)B>,.CBBUFC,+q $J 
	$CBJOB=$j=<Z .CBFRK>		
	$A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu #}:o
	$CBMGJ=#}Z=<Z .CBMGJ>		
	#}xA (<B>,.CBMGJC,D)B>,.CBMGJC,[Y #w=
	$CBMNRC#w2==<Z .CBMCD>		
	#wPA (<B>,.CBMCDC,D)B>,.CBMCDC[Y #v5
	$CBMNSC#v2==<Z .CBMCD>		
	#vPA (<B>,.CBMCDC,D)B>,.CBMCDCl #xE
	$CBNPO=#x:=<Z .CBNPO>		
	#xXA (<B>,.CBNPOC,D)B>,.CBNPOC,	 $* v
	$CBPDA=$J=<Z .CBPS1>		
	$hA(<B>,.CBPS1C,D)B>,.CBPS1C,	 $
	$CBPDG=$S0>		
	$(<B>,.CBPS0C,D)B>,.CBPS0C,	; $* ~
	$CBPEV=$J=<Z .CBPS1>		
	$hA (<B>,.CBPS1C,D)B>,.CBPS1C,3 $

" f
	$CBPMG=$

B=<Z .CBPS0>		
	$

`A (<B>,.CBPS0C,D)B>,.CBPS0C,(w #yM
	$CBRCNT#y:==<Z .CBNPO>		
	#yXA (<B>,.CBNPOC,D)B>,.CBNPOC8t #U:
	$CBSCID#p==<Z .CBSCI>		
	#p0A (<B>,.CBSCIC,D)B>,.CBSCIC9 #u
,
	$CBSDRE#u*==<Z .CBREA>		
	#uHA (<B>,.CBREAC,D)B>,.CBREACHX $
 U
	$CBTBQ=$
2=<Z .CBTBQ>		
	$
PA (<B>,.CBTBQC,D)B>,.CBTBQC,I $b "
	$CBTDQ=$=<Z .CBTDQ>		
	$ A (<B>,.CBTDQC,D)B>,.CBTDQC,I8 $ D
	$CBTEQ=$"=<Z .CBTEQ>		
	$@A (<B>,.CBTEQC,D)B>,.CBTEQC,K8 $R 
	$CBTMQ=$r=<Z .CBTMQ>		
	$A (<B>,.CBTMQC,D)B>,.CBTMQC,N $r 3
	$CBTXQ=$=<Z .CBTXQ>		
	$0A (<B>,.CBTXQC,D)B>,.CBTXQC,$<z $52#/
	$CDCST=$5R=<Z .CDCST>		
	$5pA (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht $6:#7
	$CDDCI=$6Z=<Z .CDDCI>		
	$6xA (<B>,.CDDCIC,D)B>,.CDDCIC,$LR $9J#P
	$CDDREA$9j==<Z .CDREA>		
	$:A (<B>,.CDREAC,D)B>,.CDREAC%kr $7B#@
	$CDNOD=$7b=<Z .CDNOD>		
	$8A (<B>,.CDNODC,D)B>,.CDNODC,&<R $8J#H
	$CDSREA$8j==<Z .CDREA>		
	$9A (<B>,.CDREAC,D)B>,.CDREAC+Q #{*^
	$CPJNB=#{J=<Z .CBJNB>		
	#{hA (<B>,.CBJNBC,D)B>,.CBJNBC,, #|2g
	$CPJPB=#|R=<Z .CBJPB>		
	#|pA (<B>,.CBJPBC,D)B>,.CBJPBC,;2 $'Z"A
	$E0CMD=$'z=<Z .PBER0>		
	$(A (<B>,.PBER0C,D)B>,.PBER0C,k $+z"c
	$E0FLI=$,=<Z .PBER0>		
	$,8A (<B>,.PBER0C,D)B>,.PBER0C,X] $*r"[
	$E0MBZ=$+=<Z .PBER0>		
	$+0A (<B>,.PBER0C,D)B>,.PBER0C,2 $(b"J
	$E0QUE=$)=<Z .PBER0>		
	$) A (<B>,.PBER0C,D)B>,.PBER0C,)9 $)j"R
	$E0RES=$*
=<Z .PBER0>		
	$*(A (<B>,.PBER0C,D)B>,.PBER0C,;r $R:%
	$EBCOD=$RZ=<Z .EBCOD>		
	$RxA (<B>,.EBCODC,D)B>,.EBCODC,I7 $Q:%
	$EBLEN=$QZ=<Z .EBCOD>		
	$QxA (<B>,.EBCODC,D)B>,.EBCODC,&&7 $az&
	$IDPAO=$b=<Z RIDSTS>		
	$b8A (<B>,RIDSTSC,D)B>,RIDSTSC,&&W $c&
	$IDPBO=$c"=<Z RIDSTS>		
	$c@A (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< #Uz@
	$INDEX=#X
=<Z >		
	A (<B>,C,D)A (<B*@Y $;#\
	$JH%DGB$;"==<Z .JHFLG>		
	$;@A (<B>,.JHFLGC,D)B>,.JHFLGC4, #Y2M
	$M%ALII#YR==<Z >		
	A (<B>,C,D)A (<4,4 #XJF
	$M%AMII#Xj==<Z >		
	A (<B>,C,D)A (<4,+ #[Z
	$M%BLII#["==<Z >		
	A (<B>,C,D)A (<4,+4 #ZS
	$M%BMII#Z:==<Z >		
	A (<B>,C,D)A (<6 Y $K:$]
	$MD%DMD$KZ==<Z >		
	A (<B>,C,D)A (<6 YV $JZ$W
	$MD%FLG$Jz==<Z >		
	A (<B>,C,D)A (<6,:2 $P2%
	$MECID=$PR=<Z .MECID>		
	$PpA (<B>,.MECIDC,D)B>,.MECIDC,6,k $N*$v
	$MEFLG=$NJ=<Z .METYP>		
	$NhA (<B>,.METYPC,D)B>,.METYPC,6,lU $L$e
	$MEFRK=$L:=<Z .MEFRK>		
	$LXA (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 $M"$n
	$MELEN=$MB=<Z .MEFRK>		
	$M`A (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 $O*$~
	$METYP=$OJ=<Z .METYP>		
	$OhA (<B>,.METYPC,D)B>,.METYPC,6@Hr %,"+f
	$MH$CDT%<J==<Z .MHTYP>		
	%<hA (<B>,.MHTYPC,D)B>,.MHTYPC6@I %?:+
	$MH$DCI%?Z==<Z .MHDCI>		
	%?xA (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 %BJ,
	$MH$MCR%Bj==<Z .MHSTS>		
	%CA (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 %=*+n
	$MH$MSG%=J==<Z .MHTYP>		
	%=hA (<B>,.MHTYPC,D)B>,.MHTYPC6@L %DZ,)
	$MH$PKL%Dz==<Z .MHPKL>		
	%EA (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq %@B,
	$MH$SCI%@b==<Z .MHSCI>		
	%AA (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv %CR,!
	$MH$SMC%Cr==<Z .MHSTS>		
	%DA (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz %AJ,
	$MH$STS%Aj==<Z .MHSTS>		
	%BA (<B>,.MHSTSC,D)B>,.MHSTSC6@M %>2+w
	$MH$TYP%>R==<Z .MHTYP>		
	%>pA (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ %.2*w
	$PKDRV=%.R=<Z .PKRSV>		
	%.pA (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 %5b+2
	$PKMAI=%6=<Z .PKPST>		
	%6 A (<B>,.PKPSTC,D)B>,.PKPSTC,B^

W %6b+:
	$PKPRND%7==<Z .PKPST>		
	%7 A (<B>,.PKPSTC,D)B>,.PKPSTCB^

Y %4b+*
	$PKPRST%5==<Z .PKPST>		
	%5 A (<B>,.PKPSTC,D)B>,.PKPSTCB^8p %/:*
	$PKSCA=%/Z=<Z .PKRSV>		
	%/xA (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q %-**n
	$PKSRB=%-J=<Z .PKRSV>		
	%-hA (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 %3b+"
	$PKTYP=%4=<Z .PKTYP>		
	%4 A (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ %0B+
	$PKVRT=%0b=<Z .PKRSV>		
	%1A (<B>,.PKRSVC,D)B>,.PKRSVC,JYV $Xr%K
	$RBUFMG$Y==<Z RNGSW>		
	$Y0A (<B>,RNGSWC,D)B>,RNGSWC,J$J $3"#
	$RDDHT=$3B=<Z .RDDHT>		
	$3`A (<B>,.RDDHTC,D)B>,.RDDHTC,J$J $4*#&
	$RDDHV=$4J=<Z .RDDHV>		
	$4hA (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz $1#
	$RDDST=$12=<Z .RDDST>		
	$1PA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ $2#
	$RDDSV=$2:=<Z .RDDSV>		
	$2XA (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y $/"|
	$RDMDG=$/"=<Z .RDMDG>		
	$/@A (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 $0
#
	$RDMMS=$0*=<Z .RDMMS>		
	$0HA (<B>,.RDMMSC,D)B>,.RDMMSC,J&y $-z"s
	$RDPORT$.==<Z .RDSTS>		
	$.8A (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy $"
"k
	$RDVCST$-==<Z .RDSTS>		
	$-8A (<B>,.RDSTSC,D)B>,.RDSTSCJMm $]%m
	$RINTLK$]2==<Z RNGSW>		
	$]PA (<B>,RNGSWC,D)B>,RNGSWC,Jty; $TR%)
	$RNGEVC$Tr==<Z .REECL>		
	$UA (<B>,.REECLC,D)B>,.REECLCJtz $SB% 
	$RNGHED$Sb==<Z .REHED>		
	$TA (<B>,.REHEDC,D)B>,.REHEDCJt{ $UR%1
	$RNGLEN$Ur==<Z .REECL>		
	$VA (<B>,.REECLC,D)B>,.REECLCKu $Yz%S
	$RPACKT$Z==<Z RNGSW>		
	$Z8A (<B>,RNGSWC,D)B>,RNGSWC,K $[%\
	$RPITRN$["==<Z RNGSW>		
	$[@A (<B>,RNGSWC,D)B>,RNGSWC,KV $^:%w
	$RPQFLK$^Z==<Z .REPQF>		
	$^xA (<B>,.REPQFC,D)B>,.REPQFCKV $_B&
	$RPQFMG$_b==<Z .REPQF>		
	$`A (<B>,.REPQFC,D)B>,.REPQFCK- $\
%d
	$RPRTQU$\*==<Z RNGSW>		
	$\HA (<B>,RNGSWC,D)B>,RNGSWC,K89 $Wj%B
	$RSCASY$X
==<Z RNGSW>		
	$X(A (<B>,RNGSWC,D)B>,RNGSWC,Kq $Vb%:
	$RSYSCA$W==<Z RNGSW>		
	$W A (<B>,RNGSWC,D)B>,RNGSWC,N: $J!(
	$SBCHN=$j=<Z .SBDSP>		
	$A (<B>,.SBDSPC,D)B>,.SBDSPC,NL $J!0
	$SBDPA=$j=<Z .SBDSP>		
	$A (<B>,.SBDSPC,D)B>,.SBDSPC,NL $"!~
	$SBDPS=$B=<Z .SBDPS>		
	$`A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX $ ""
	$SBDRP=$ B=<Z .SBDPS>		
	$ `A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX $R!9
	$SBDRQH$r==<Z .SBDRQ>		
	$A (<B>,.SBDRQC,D)B>,.SBDRQCNM $z!k
	$SBDTHW$==<Z .SBDHT>		
	$8A (<B>,.SBDHTC,D)B>,.SBDHTCNM $j!Z
	$SBDTSW$
==<Z .SBDST>		
	$(A (<B>,.SBDSTC,D)B>,.SBDSTCNMT $!t
	$SBDVHW$"==<Z .SBDHV>		
	$@A (<B>,.SBDHVC,D)B>,.SBDHVCNMY $r!c
	$SBDVSW$==<Z .SBDSV>		
	$0A (<B>,.SBDSVC,D)B>,.SBDSVCNk #_r"


	$SBFLG=$!*=<Z .SBFLG>		
	$!HA (<B>,.SBFLGC,D)B>,.SBFLGC,Nks $$B"(
	$SBFOFL$$b==<Z .SBFLG>		
	$%A (<B>,.SBFLGC,D)B>,.SBFLGCNk{ $#:"
	$SBFOVC$#Z==<Z .SBFLG>		
	$#xA (<B>,.SBFLGC,D)B>,.SBFLGCNm $"2"
	$SBFTMG$"R==<Z .SBFLG>		
	$"pA (<B>,.SBFLGC,D)B>,.SBFLGCNK1 $Z!A
	$SBLMBH$z==<Z .SBLMB>		
	$A (<B>,.SBLMBC,D)B>,.SBLMBCN^ $b!R
	$SBMXDG$==<Z .SBMMS>		
	$ A (<B>,.SBMMSC,D)B>,.SBMMSCN^ $b!J
	$SBMXMG$==<Z .SBMMS>		
	$ A (<B>,.SBMMSC,D)B>,.SBMMSCNm $2!
	$SBNTC=$R=<Z .SBVCS>		
	$pA (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ $&2"7
	$SBOBB=$&R=<Z .SBOBB>		
	$&pA (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw $:!
	$SBOKO=$Z=<Z .SBVCS>		
	$xA (<B>,.SBVCSC,D)B>,.SBVCSC,N<z #V".
	$SBSST=$%J=<Z .SBSST>		
	$%hA (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy $B! 
	$SBVCST$b==<Z .SBVCS>		
	$A (<B>,.SBVCSC,D)B>,.SBVCSCNyT $B!
	$SBWFI=$b=<Z .SBVCS>		
	$A (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ #VB6
	$SID==<#VbZ >		
	A (<B>,C,D)A (<B>,OX] %7r+C
	$SRMBZ=%8=<Z .SRRSV>		
	%80A (<B>,.SRRSVC,D)B>,.SRRSVC,OY %;
+\
	$SRMDG=%;*=<Z .SRMMS>		
	%;HA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 %:+T
	$SRMMG=%:"=<Z .SRMMS>		
	%:@A (<B>,.SRMMSC,D)B>,.SRMMSC,OlY %8z+K
	$SRVRS=%9=<Z .SRRSV>		
	%98A (<B>,.SRRSVC,D)B>,.SRRSVC,V #W*<
	$UBITS=#WJ=<Z >		
	A (<B>,C,D)A (<Bbuh6 $HR$I
	$XNNAM=$Hr=<Z .XNNAM>		
	$IA (<B>,.XNNAMC,D)B>,.XNNAMC,bun $FB$8
	$XNNXT=$Fb=<Z .XNNXT>		
	$GA (<B>,.XNNXTC,D)B>,.XNNXTC,bv

[ $GJ$@
	$XNPRV=$Gj=<Z .XNPRV>		
	$HA (<B>,.XNPRVC,D)B>,.XNPRVC,bv= $IZ$Q
	$XNSTK=$Iz=<Z .XNSTK>		
	$JA (<B>,.XNSTKC,D)B>,.XNSTKC,;] %b)
	  IFGE %<<<B>&777777>-..% BSIZ>,<
		PRINTX%@ ?WORD offset gre%`ater than $BUILD %size parameter>
% 	  SET0. (\<B>,C,<A>)
	B>,;LH %	b(^
	IFNDEF %
C,<PRINTX C IS %
 NOT DEFINED
	  %
@A (<B>,D,FWMASK%
`)>	
	IFDEF C,<
	IFNDEF %C,<
	%   A (<B>,D,C)%@>	
	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