Google
 

Trailing-Edge - PDP-10 Archives - BB-KL11M-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 #t*`

	..CNT#tJ.==3		;Init the c#thounter
	..STR.==#u0		;Init the stri#u(ng

IRPC A,<
#uH
	..CHR.=="A"		#uh;Get the current #vcharacter
	..CHR#v(.==..CHR._<^D8*..#vHCNT.+4> ;Shift it#vh into the right p#wlace
	..STR.==..#w(STR.!..CHR.	;Add #wHit to the current#wh
	..CNT.==..CNT.#x-1	;Decrement the#x( four word block #xHcounter

IFL ..#xhCNT.,<
	EXP ..ST#yR.		;Generate a w#y(ord of what is le#yHft
	..CNT.==3		;#yhInit the four cha#zr chunk counter
#z(	..STR.==0		;Init#zH the string
>;En#zhd IFL ..CNT.

>#{;End IPRC A

I#{(FN ..STR.,	EXP ..#{HSTR.	;If there ar#{he characters left#| 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"@ $*J"Z
	  IFE $*jB,<..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&&
TP G&|i@ #-*jCALL SC.PFFCALL SC.PFG&}` #5Z-CALL 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[@Q xK8,:P K8,;P L;<Q L;H@Q @L; Q  M2  $
!x<<<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"@ $+j"n
	IFN <<.$,
.TA>&B>,<PRINTX$,( ?Initial field n$,Hot zero in $SET>
	-..TVAL==<C>
	-(..TMSK==<B>
	  ..TA==..TA!$-H<FLD(..TVAL,..TMS$-hK)>
	  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 $J"

	  IFDEF$j ..BSIZ,<PRINTX ?$ Missing $EOB afte$ (r a $BUILD>
	  .$ H.BSIZ==0			
	  .$ h.BLOC==.			
	  R$!EPEAT A,<			
		$!(BLD0.(\..BSIZ,0)	$!H
		..BSIZ==..BSIZ+1>	
	==..BSI	
!

	$BUIL$*D (.SSAFT+1)	;Siz$He of the block
$h
	$SET (.SSDGR,,<$XCDSEC,,SINDGR>)	$(;[7.1043]Datagram$H received
	$SET $h(.SSMGR,,<XCDSEC,$,SINMGR>)	;[7.104$(3]Message receive$Hd
	$SET (.SSPBC,$h,<XCDSEC,,SINPBC>$)	;[7.1043]Port b$(roke connection
$H	$SET (.SSCTL,,<X$hCDSEC,,SINCTL>)	;$[7.1043]Connect t$(o listen
	$SET ($H.SSCRA,,<XCDSEC,,$hSINCRA>)	;[7.1043$	]Connect response$	( available
	$SET$	H (.SSMSC,,<XCDSEC$	h,,SINPSC>)	;[7.10$
43]Message/datagr$
(am send complete
H
	$SET (.SSDDG,,<$
hMSEC1,,R>) 	;Data$gram dropped
	$S$(ET (.SSLCL,,<XCDS$HEC,,SINLCL>)	;[7.$h1043]Little credi$
t left
	$SET (.S$
(SNCO,,<MSEC1,,R>)$
H	;Node came onlin$
he
	$SETD(.SSOSD,$SD>$
	$SETR$D,,<XCDSEC,$,SINRID>)	;[7.104$(3]Remote initiate$Hd disconnect
	$S$hET (.SSCIA,,<XCDS$EC,,SINCIA>)	;[7.$(1043]Credit is av$Hailable
	$SET (.$hSSDMA,,<XCDSEC,,S$INDMA>)	;[7.1043]$(DMA complete

	$EOB

te

		N< $j!D

	...FO$
O==0		;Init the o$(rder checker vari$Hable

	$ENT (.S$hTORQ,SC.ORQ)	;Con$nect request
	$E$(NT (.STORS,SC.ORS$H)	;Connect respon$hse
	$ENT (.STARQ$,SC.ARQ)	;Accept $(request
	$ENT (.$HSTARS,SC.ARS)	;Ac$hcept response
	$$ENT (.STRRQ,SC.RR$(Q)	;Reject reques$Ht
	$ENT (.STRRS,$hSC.RRS)	;Reject r$esonse
	$ENT (.S$(TDRQ,SC.DRQ)	;Dis$Hconnect request
$h	$ENT (.STDRS,SC.$DRS)	;Disconnect $(response
	$ENT ($H.STCRQ,SC.CRQ)	;C$hredit request
	$$ENT (.STCRS,SC.CR$(S)	;Credit respon$Hse
	$ENT (.STAMG$h,SC.AMG)	;Applica$tion message
	$E$(NT (.STADG,SC.ADG$H)	;Application datagram

on da	v@ $
!`

IFN ..$*.FOO,<
IFN <A-.$H..FOO-1>,<IF2 <PR$hINTX Dispatch tab$le out of order! $((A)>>
>;End IFN$H ...FOO

	...FO$hO==A		;Get the c$urrent value of $(A

	XWD XCDSEC,$HB		;[7.1037]Sect$hion six address o$f a handler routine

ler routi	|  $&J"P
	  IFNDE$&jF ..BSIZ,<PRINTX $'?$EOB without pre$'(vious $BUILD>
	 $'H IFN <.-..BLOC>,<$'hPRINTX ?Address c$(hange between $BU$((ILD and $EOB>
;	$(H  XLIST			
	  ..$(hT==0
	  REPEAT .$).BSIZ,<
	    BLD$)(0.(\..T,1)		
	  $)H  ..T==..T+1 >
	$)h  PURGE ..BSIZ,..$*T,..BLOC	
;	  LIST
	C	
;	  LI	2$:2 #o:

	LOAD #oZA,INDEX,B	;Get #ozthe index from th#r*e CID source
	AD#rHD A,CIDTAB		;Add#rh the base address#s of the CB addres#s(s table
	MOVE A#sH,(A)		;Now get t#shhe address of the CB

s of the	NyS #|Jh
;	CALL S#|jC.OFF		;Turn off #}disconnect processing
ct proces	N{@ #}Jp
;	CALL S#}jC.ON		;Release th#~e disconnect interlock
ect inte	N9Q $.*$

	$BUIL$.JD (.SSLST+1)

	$.h$SET (.SSCON,<>,<$/XCDSEC,,SCSCON>) $/(;[7.1043]
	$SET $/H(.SSLIS,<>,<XCDSE$/hC,,SCSLIS>) ;[7.1$0043]
	$SET (.SSD$0(IS,<>,<XCDSEC,,SC$0HSDIS>) ;[7.1043]
	$SET (.SSREJ,<>$1,<XCDSEC,,SCSREJ>$1() ;[7.1043]
	$SE$1HT (.SSSDG,<>,<XCD$1hSEC,,SCSSDG>) ;[7$2.1043]
	$SET (.S$2(SQRD,<>,<XCDSEC,,$2HSCSQRD>) ;[7.1043$2h]
	$SET (.SSSMG,$3<>,<XCDSEC,,SCSSM$3(G>) ;[7.1043]
	$$3HSET (.SSQRM,<>,<X$3hCDSEC,,SCSQRM>) ;$4[7.1043]
	$SET ($4(.SSCSP,<>,<XCDSEC$4H,,SCSCSP>) ;[7.10$4h43]
	$SET (.SSRC$5D,<>,<XCDSEC,,SCS$5(RCD>) ;[7.1043]
$5H	$SET (.SSSTS,<>,$5h<XCDSEC,,SCSSTS>)$6 ;[7.1043]
	$SET$6( (.SSRMG,<>,<XCDS$6HEC,,SCSRMG>) ;[7.$6h1043]
	$SET (.SS$7MAP,<>,<XCDSEC,,S$7(CSMAP>) ;[7.1043]$7H
	$SET (.SSUMP,<$7h>,<XCDSEC,,SCSUMP$8>) ;[7.1043]
	$S$8(ET (.SSSND,<>,<XC$8HDSEC,,SCSSND>) ;[$8h7.1043]
	$SET (.$9SSREQ,<>,<XCDSEC,$9(,SCSREQ>) ;[7.104$9H3]
	$SET (.SSAIC$9h,<>,<XCDSEC,,SCSA$:IC>) ;[7.1043]
	$:($SET (.SSRPC,<>,<$:HXCDSEC,,SCSRPC>) $:h;[7.1043]
	$SET $;(.SSRDG,<>,<XCDSE$;(C,,SCSRDG>) ;[7.1$;H043]
	$SET (.SSC$;hRD,<>,<XCDSEC,,SC$<SCRD>) ;[7.1043]
	$SET (.SSCRM,<>$<H,<XCDSEC,,SCSCRM>$<h) ;[7.1043]
	$SE$=T (.SSACC,<>,<XCD$=(SEC,,SCSACC>) ;[7$=H.1043]
	$SET (.S$=hSGDE,<>,<XCDSEC,,$>SCSGDE>) ;[7.1043$>(]
	$SET (.SSEVT,$>H<>,<XCDSEC,,SCSEV$>hT>) ;[7.1043]
	$$?SET (.SSGLN,<>,<X$?(CDSEC,,SCSGLN>) ;$?H[7.1043]
	$SET ($?h.SSRBS,<>,<XCDSEC$@,,SCSRBS>) ;[7.10$@(43]
	$SET (.SSRP$@HS,<>,<XCDSEC,,SCS$@hRPS>) ;[7.1043]
$A
	$SET (.SSMDR,<$A(>,<MSEC1,,UJSYS>)$AH
	$SET (.SSMDS,<$Ah>,<MSEC1,,UJSYS>)$B
	$SET (.SSSRS,<$B(>,<MSEC1,,UJSYS>)$BH
	$SET (.SSRRS,<$Bh>,<MSEC1,,UJSYS>)

	$EOB

>)	N.@ $"
" 
	  IFNDE$"*F ..BSIZ,<PRINTX $"H?$SET without pre$"hvious $BUILD>
	 $# IFNB <B>,<..STR$#(0 (..SET,<C>,B,$#HA)>
	IFB  <B$#h>,<..STR0 (..SET,$$<C>,FWMASK,A)>
	,FWMASK,A)>CAIA,,0	ON88 #~J 

	XWD M#~jSEC1,CFSINI##	;In#it the Common fil#(e system
	XWD MS#HEC1,MSCINI##	;Ini#ht MSCP
	XWD MSEC$1,MSSINI	;Init th$(e MSCP server
	X$HWD XCDSEC,SCSINI	$h;[7.1043]Init the$ SCS% JSYS SYSAP
	XWD XCDSEC,CLUI$HNI	;[7.1076] Init$h CLUDGR SYSYAP
 $  IFN CLEQIN,<			$(;[7.1072] If clus$Hter ENQ code pres$hent
	XWD XCDSEC,$EQSINI	;[7.1072] $(Init the ENQSRV S$HYSAP
   >				;[7.1072]

		;[7
;<s $HR$I
	$.PKSFD$Hr==<Z .PKSTS>		
	$IA (<B>,.PKSTSC,D)B>,.PKSTSC
n #RR
	$BBNXT=#Rr=<Z .BBNXT>		
	#SA (<B>,.BBNXTC,D)B>,.BBNXTC,
]P #SZ!
	$BBUVA=#Sz=<Z .BBUVA>		
	#TA (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR #L"f
	$BDFFD=#LB=<Z .BDFFD>		
	#L`A (<B>,.BDFFDC,D)B>,.BDFFDC,
$k #PB
	$BDFLD=#Pb=<Z .BDFLD>		
	#QA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 #N2w
	$BDFMG=#NR=<Z .BDFMG>		
	#NpA (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR #M*n
	$BDLFD=#MJ=<Z .BDFFD>		
	#MhA (<B>,.BDFFDC,D)B>,.BDFFDC,
%K #QJ
	$BDLLD=#Qj=<Z .BDLLD>		
	#RA (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 #O:
	$BDLMG=#OZ=<Z .BDLMG>		
	#OxA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n "dU
	$BDNXT=#J2=<Z .BDNXT>		
	#JPA (<B>,.BDNXTC,D)B>,.BDNXTC,
&
R #K]
	$BDPRE=#K:=<Z .BDPRE>		
	#KXA (<B>,.BDPREC,D)B>,.BDPREC,(X #BP
	$CBBBQ=#b=<Z .CBBBQ>		
	#A (<B>,.CBBBQC,D)B>,.CBBBQC,) #
	$CBBDQ=#2=<Z .CBBDQ>		
	#PA (<B>,.CBBDQC,D)B>,.CBBDQC,)8 #2?
	$CBBEQ=#R=<Z .CBBEQ>		
	#pA (<B>,.CBBEQC,D)B>,.CBBEQC,*y "le
	$CBBKST"l:==<Z .CBSTS>		
	"lXA (<B>,.CBSTSC,D)B>,.CBSTSC+8 #

	$CBBMQ=#"=<Z .CBBMQ>		
	#@A (<B>,.CBBMQC,D)B>,.CBBMQC,. #".
	$CBBXQ=#B=<Z .CBBXQ>		
	#`A (<B>,.CBBXQC,D)B>,.CBBXQC,9 #JH
	$CBCDD=#j=<Z .CBCDD>		
	#	A (<B>,.CBCDDC,D)B>,.CBCDDC,;Y "mm
	$CBCNST"m:==<Z .CBSTS>		
	"mXA (<B>,.CBSTSC,D)B>,.CBSTSCHt ""~
	$CBDCID"B==<Z .CBDCI>		
	"`A (<B>,.CBDCIC,D)B>,.CBDCICI #2
	$CBDDRE#R==<Z .CBREA>		
	#pA (<B>,.CBREAC,D)B>,.CBREACIu #
jj
	$CBDGJ=#
=<Z .CBDGJ>		
	#(<B>,.CBDGJC,D)B>,.CBDGJC,KW "jU
	$CBDNOD"j2==<Z .CBSBI>		
	"jPA (<B>,.CBSBIC,D)B>,.CBSBIC^ "k]
	$CBEXPR"k2==<Z .CBSBI>		
	"kPA (<B>,.CBSBIC,D)B>,.CBSBICh1 "pR	
	$CBFABT"pr==<Z .CBFLG>		
	"qA (<B>,.CBFLGC,D)B>,.CBFLGCh{ "uz3
	$CBFCVC"v==<Z .CBFLG>		
	"v8A (<B>,.CBFLGC,D)B>,.CBFLGCi "rb
	$CBFDCL"s==<Z .CBFLG>		
	"s A (<B>,.CBFLGC,D)B>,.CBFLGCi "}2o
	$CBFDEF"}R==<Z .CBFLG>		
	"}pA (<B>,.CBFLGC,D)B>,.CBFLGCi "zU
	$CBFDIS"z:==<Z .CBFLG>		
	"zXA (<B>,.CBFLGC,D)B>,.CBFLGCi "{"^
	$CBFDRQ"{B==<Z .CBFLG>		
	"{`A (<B>,.CBFLGC,D)B>,.CBFLGCi9 "yM
	$CBFERR"y2==<Z .CBFLG>		
	"yPA (<B>,.CBFLGC,D)B>,.CBFLGCjY "oJ
	$CBFJSY"oj==<Z .CBFLG>		
	"pA (<B>,.CBFLGC,D)B>,.CBFLGCjt "sj"
	$CBFKIL"t
==<Z .CBFLG>		
	"t(A (<B>,.CBFLGC,D)B>,.CBFLGCk2 "tr+
	$CBFMDC"u==<Z .CBFLG>		
	"u0A (<B>,.CBFLGC,D)B>,.CBFLGCkW "nBx
	$CBFNNC"nb==<Z .CBFLG>		
	"oA(<B>,.CBFLGC,D)B>,.CBFLGCky #
	$CBFORK#
==<Z .CBFRK>		
	#(A (<B>,.CBFRKC,D)B>,.CBFRKCl "x
D
	$CBFPTC"x*==<Z .CBFLG>		
	"xHA (<B>,.CBFLGC,D)B>,.CBFLGClP "qZ
	$CBFRAP"qz==<Z .CBFLG>		
	"rA (<B>,.CBFLGC,D)B>,.CBFLGClw "|*f
	$CBFSNM"|J==<Z .CBFLG>		
	"|hA (<B>,.CBFLGC,D)B>,.CBFLGClw "w<
	$CBFSOB"w"==<Z .CBFLG>		
	"w@A (<B>,.CBFLGC,D)B>,.CBFLGC #*
	$CBIDB=#J=<Z .CBBUF>		
	#hA (<B>,.CBBUFC,D)B>,.CBBUFC,1 #*
	$CBIMB=#J=<Z .CBBUF>		
	#hA (<B>,.CBBUFC,D)B>,.CBBUFC,+q #r{
	$CBJOB=#=<Z .CBFRK>		
	#0A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu #bb
	$CBMGJ=#
=<Z .CBMGJ>		
	#
 A (<B>,.CBMGJC,D)B>,.CBMGJC,[Y #:/
	$CBMNRC#Z==<Z .CBMCD>		
	#xA (<B>,.CBMCDC,D)B>,.CBMCDC[Y #:'
	$CBMNSC#Z==<Z .CBMCD>		
	#xA (<B>,.CBMCDC,D)B>,.CBMCDCl #B8
	$CBNPO=#b=<Z .CBNPO>		
	#A (<B>,.CBNPOC,D)B>,.CBNPOC,	 #Ri
	$CBPDA=#r=<Z .CBPS1>		
	#A (<B>,.CBPS1C,D)B>,.CBPS1C,	 #J`
	$CBPDG=#j=<Z .CBPS0>		
	#A (<B>,.CBPS0C,D)B>,.CBPS0C,	; #Rq
	$CBPEV=#r=<Z .CBPS1>		
	#A (<B>,.CBPS1C,D)B>,.CBPS1C,3 #JX
	$CBPMG=#j=<Z .CBPS0>		
	#A (<B>,.CBPS0C,D)B>,.CBPS0C,(w #B@
	$CBRCNT#b==<Z .CBNPO>		
	#A (<B>,.CBNPOC,D)B>,.CBNPOC8t "cbu
	$CBSCID"~:==<Z .CBSCI>		
	"~XA (<B>,.CBSCIC,D)B>,.CBSCIC9 #2
	$CBSDRE#R==<Z .CBREA>		
	#pA (<B>,.CBREAC,D)B>,.CBREACHX #:G
	$CBTBQ=#Z=<Z .CBTBQ>		
	#xA (<B>,.CBTBQC,D)B>,.CBTBQC,I #

	$CBTDQ=#*=<Z .CBTDQ>		
	#HA (<B>,.CBTDQC,D)B>,.CBTDQC,I8 #*6
	$CBTEQ=#J=<Z .CBTEQ>		
	#hA (<B>,.CBTEQC,D)B>,.CBTEQC,K8 #z
	$CBTMQ=#=<Z .CBTMQ>		
	#8A (<B>,.CBTMQC,D)B>,.CBTMQC,N #%
	$CBTXQ=#:=<Z .CBTXQ>		
	#XA (<B>,.CBTXQC,D)B>,.CBTXQC,$<z #CZ!
	$CDCST=#Cz=<Z .CDCST>		
	#DA (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht #Db*
	$CDDCI=#E=<Z .CDDCI>		
	#E A (<B>,.CDDCIC,D)B>,.CDDCIC,$LR #GrC
	$CDDREA#H==<Z .CDREA>		
	#H0A (<B>,.CDREAC,D)B>,.CDREAC%kr #Ej2
	$CDNOD=#F
=<Z .CDNOD>		
	#F(A (<B>,.CDNODC,D)B>,.CDNODC,&<R #Fr;
	$CDSREA#G==<Z .CDREA>		
	#G0A (<B>,.CDREAC,D)B>,.CDREAC+Q #	RQ
	$CPJNB=#	r=<Z .CBJNB>		
	#
A (<B>,.CBJNBC,D)B>,.CBJNBC,, #
ZY
	$CPJPB=#
z=<Z .CBJPB>		
	#A (<B>,.CBJPBC,D)B>,.CBJPBC,;2 #64
	$E0CMD=#6"=<Z .PBER0>		
	#6@A (<B>,.PBER0C,D)B>,.PBER0C,k #:"V
	$E0FLI=#:B=<Z .PBER0>		
	#:`A (<B>,.PBER0C,D)B>,.PBER0C,X] #9M
	$E0MBZ=#9:=<Z .PBER0>		
	#9XA (<B>,.PBER0C,D)B>,.PBER0C,2 #7
<
	$E0QUE=#7*=<Z .PBER0>		
	#7HA (<B>,.PBER0C,D)B>,.PBER0C,)9 #8E
	$E0RES=#82=<Z .PBER0>		
	#8PA (<B>,.PBER0C,D)B>,.PBER0C,;r #`b

	$EBCOD=#a=<Z .EBCOD>		
	#a A (<B>,.EBCODC,D)B>,.EBCODC,I7 #_b
	$EBLEN=#`=<Z .EBCOD>		
	#` A (<B>,.EBCODC,D)B>,.EBCODC,&&7 #p"
	$IDPAO=#pB=<Z RIDSTS>		
	#p`A (<B>,RIDSTSC,D)B>,RIDSTSC,&&W #q*
	$IDPBO=#qJ=<Z RIDSTS>		
	#qhA (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< "d"3
	$INDEX="f2=<Z >		
	A (<B>,C,D)A (<B*@Y #I*N
	$JH%DGB#IJ==<Z .JHFLG>		
	#IhA (<B>,.JHFLGC,D)B>,.JHFLGC4, "gZ?
	$M%ALII"gz==<Z >		
	A (<B>,C,D)A (<4,4 "fr9
	$M%AMII"g==<Z >		
	A (<B>,C,D)A (<4,+ "i*L
	$M%BLII"iJ==<Z >		
	A (<B>,C,D)A (<4,+4 "hBF
	$M%BMII"hb==<Z >		
	A (<B>,C,D)A (<6 Y #YbP
	$MD%DMD#Z==<Z >		
	A (<B>,C,D)A (<6 YV #YJ
	$MD%FLG#Y"==<Z >		
	A (<B>,C,D)A (<6,:2 #^Zy
	$MECID=#^z=<Z .MECID>		
	#_A (<B>,.MECIDC,D)B>,.MECIDC,6,k #\Ri
	$MEFLG=#\r=<Z .METYP>		
	#]A (<B>,.METYPC,D)B>,.METYPC,6,lU #ZBX
	$MEFRK=#Zb=<Z .MEFRK>		
	#[A (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 #[J`
	$MELEN=#[j=<Z .MEFRK>		
	#\A (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 #]Rq
	$METYP=#]r=<Z .METYP>		
	#^A (<B>,.METYPC,D)B>,.METYPC,6@Hr $C*%
	$MH$CDT$SR==<Z .MHTYP>		
	$SpA (<B>,.MHTYPC,D)B>,.MHTYPC6@I $VB%8
	$MH$DCI$Vb==<Z .MHDCI>		
	$WA (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 $YR%Q
	$MH$MCR$Yr==<Z .MHSTS>		
	$ZA (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 $T2%'
	$MH$MSG$TR==<Z .MHTYP>		
	$TpA (<B>,.MHTYPC,D)B>,.MHTYPC6@L $[b%b
	$MH$PKL$\==<Z .MHPKL>		
	$\ A (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq $WJ%@
	$MH$SCI$Wj==<Z .MHSCI>		
	$XA (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv $ZZ%Y
	$MH$SMC$Zz==<Z .MHSTS>		
	$[A (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz $XR%I
	$MH$STS$Xr==<Z .MHSTS>		
	$YA (<B>,.MHSTSC,D)B>,.MHSTSC6@M $U:%/
	$MH$TYP$UZ==<Z .MHTYP>		
	$UxA (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ $E:$/
	$PKDRV=$EZ=<Z .PKRSV>		
	$ExA (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 $Lj$j
	$PKMAI=$M
=<Z .PKPST>		
	$M(A (<B>,.PKPSTC,D)B>,.PKPSTC,B^
W $Mj$r
	$PKPRND$N
==<Z .PKPST>		
	$N(A (<B>,.PKPSTC,D)B>,.PKPSTCB^
Y $Kj$b
	$PKPRST$L
==<Z .PKPST>		
	$L(A (<B>,.PKPSTC,D)B>,.PKPSTCB^8p $FB$8
	$PKSCA=$Fb=<Z .PKRSV>		
	$GA (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q $D2$'
	$PKSRB=$DR=<Z .PKRSV>		
	$DpA (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 $Jj$Z
	$PKTYP=$K
=<Z .PKTYP>		
	$K(A (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ $GJ$@
	$PKVRT=$Gj=<Z .PKRSV>		
	$HA (<B>,.PKRSVC,D)B>,.PKRSVC,JYV #g=
	$RBUFMG#g:==<Z RNGSW>		
	#gXA (<B>,RNGSWC,D)B>,RNGSWC,J$J #AJ
	$RDDHT=#Aj=<Z .RDDHT>		
	#BA (<B>,.RDDHTC,D)B>,.RDDHTC,J$J #BR
	$RDDHV=#Br=<Z .RDDHV>		
	#CA (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz #?:
	$RDDST=#?Z=<Z .RDDST>		
	#?xA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ #@B
	$RDDSV=#@b=<Z .RDDSV>		
	#AA (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y #=*n
	$RDMDG=#=J=<Z .RDMDG>		
	#=hA (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 #>2w
	$RDMMS=#>R=<Z .RDMMS>		
	#>pA (<B>,.RDMMSC,D)B>,.RDMMSC,J&y #<"f
	$RDPORT#<B==<Z .RDSTS>		
	#<`A (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy #02^
	$RDVCST#;B==<Z .RDSTS>		
	#;`A (<B>,.RDSTSC,D)B>,.RDSTSCJMm #k:_
	$RINTLK#kZ==<Z RNGSW>		
	#kxA (<B>,RNGSWC,D)B>,RNGSWC,Jty; #bz
	$RNGEVC#c==<Z .REECL>		
	#c8A (<B>,.REECLC,D)B>,.REECLCJtz #aj
	$RNGHED#b
==<Z .REHED>		
	#b(A (<B>,.REHEDC,D)B>,.REHEDCJt{ #cz#
	$RNGLEN#d==<Z .REECL>		
	#d8A (<B>,.REECLC,D)B>,.REECLCKu #h"F
	$RPACKT#hB==<Z RNGSW>		
	#h`A (<B>,RNGSWC,D)B>,RNGSWC,K #i*N
	$RPITRN#iJ==<Z RNGSW>		
	#ihA (<B>,RNGSWC,D)B>,RNGSWC,KV #lbj
	$RPQFLK#m==<Z .REPQF>		
	#m A (<B>,.REPQFC,D)B>,.REPQFCKV #mjr
	$RPQFMG#n
==<Z .REPQF>		
	#n(A (<B>,.REPQFC,D)B>,.REPQFCK- #j2W
	$RPRTQU#jR==<Z RNGSW>		
	#jpA (<B>,RNGSWC,D)B>,RNGSWC,K89 #f5
	$RSCASY#f2==<Z RNGSW>		
	#fPA (<B>,RNGSWC,D)B>,RNGSWC,Kq #e
,
	$RSYSCA#e*==<Z RNGSW>		
	#eHA (<B>,RNGSWC,D)B>,RNGSWC,N: #"r
	$SBCHN=##=<Z .SBDSP>		
	##0A (<B>,.SBDSPC,D)B>,.SBDSPC,NL ##r#
	$SBDPA=#$=<Z .SBDSP>		
	#$0A (<B>,.SBDSPC,D)B>,.SBDSPC,NL #-Jp
	$SBDPS=#-j=<Z .SBDPS>		
	#.A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #.Jx
	$SBDRP=#.j=<Z .SBDPS>		
	#/A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #$z+
	$SBDRQH#%==<Z .SBDRQ>		
	#%8A (<B>,.SBDRQC,D)B>,.SBDRQCNM #+"^
	$SBDTHW#+B==<Z .SBDHT>		
	#+`A (<B>,.SBDHTC,D)B>,.SBDHTCNM #)M
	$SBDTSW#)2==<Z .SBDST>		
	#)PA (<B>,.SBDSTC,D)B>,.SBDSTCNMT #,*f
	$SBDVHW#,J==<Z .SBDHV>		
	#,hA (<B>,.SBDHVC,D)B>,.SBDHVCNMY #*U
	$SBDVSW#*:==<Z .SBDSV>		
	#*XA (<B>,.SBDSVC,D)B>,.SBDSVCNk "n
	$SBFLG=#/R=<Z .SBFLG>		
	#/pA (<B>,.SBFLGC,D)B>,.SBFLGC,Nks #2j
	$SBFOFL#3
==<Z .SBFLG>		
	#3(A (<B>,.SBFLGC,D)B>,.SBFLGCNk{ #1b
	$SBFOVC#2==<Z .SBFLG>		
	#2 A (<B>,.SBFLGC,D)B>,.SBFLGCNm #0Z	
	$SBFTMG#0z==<Z .SBFLG>		
	#1A (<B>,.SBFLGC,D)B>,.SBFLGCNK1 #&4
	$SBLMBH#&"==<Z .SBLMB>		
	#&@A (<B>,.SBLMBC,D)B>,.SBLMBCN^ #(
D
	$SBMXDG#(*==<Z .SBMMS>		
	#(HA (<B>,.SBMMSC,D)B>,.SBMMSCN^ #'
<
	$SBMXMG#'*==<Z .SBMMS>		
	#'HA (<B>,.SBMMSC,D)B>,.SBMMSCNm #Zy
	$SBNTC=#z=<Z .SBVCS>		
	#A (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ #4Z)
	$SBOBB=#4z=<Z .SBOBB>		
	#5A (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw #b
	$SBOKO=# =<Z .SBVCS>		
	#  A (<B>,.SBVCSC,D)B>,.SBVCSC,N<z "dB!
	$SBSST=#3r=<Z .SBSST>		
	#4A (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy #!j
	$SBVCST#"
==<Z .SBVCS>		
	#"(A (<B>,.SBVCSC,D)B>,.SBVCSCNyT # j

	$SBWFI=#!
=<Z .SBVCS>		
	#!(A (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ "dj(
	$SID==<"e
Z >		
	A (<B>,C,D)A (<B>,OX] $Nz${
	$SRMBZ=$O=<Z .SRRSV>		
	$O8A (<B>,.SRRSVC,D)B>,.SRRSVC,OY $R%
	$SRMDG=$R2=<Z .SRMMS>		
	$RPA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 $Q
%

	$SRMMG=$Q*=<Z .SRMMS>		
	$QHA (<B>,.SRMMSC,D)B>,.SRMMSC,OlY $P%
	$SRVRS=$P"=<Z .SRRSV>		
	$P@A (<B>,.SRRSVC,D)B>,.SRRSVC,V "eR/
	$UBITS="er=<Z >		
	A (<B>,C,D)A (<Bbuh6 #Vz;
	$XNNAM=#W=<Z .XNNAM>		
	#W8A (<B>,.XNNAMC,D)B>,.XNNAMC,bun #Tj*
	$XNNXT=#U
=<Z .XNNXT>		
	#U(A (<B>,.XNNXTC,D)B>,.XNNXTC,bv
[ #Ur3
	$XNPRV=#V=<Z .XNPRV>		
	#V0A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= #XD
	$XNSTK=#X"=<Z .XNSTK>		
	#X@A (<B>,.XNSTKC,D)B>,.XNSTKC,;] $$J"0
	  IFGE $$j<<<B>&777777>-..$%BSIZ>,<
		PRINTX$%( ?WORD offset gre$%Hater than $BUILD $%hsize parameter>
$&	  SET0. (\<B>,C,<A>)
	B>,;LH $J!t
	IFNDEF $jC,<PRINTX C IS $NOT DEFINED
	  $(A (<B>,D,FWMASK$H)>	
	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