Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - monitor/scapar.unv
There are 23 other files named scapar.unv in the archive. Click here to see a list.
x
,SL@P CN 4yke

	..CNT5.==3		;Init the c58ounter
	..STR.==5X0		;Init the stri5xng

IRPC A,<
6
	..CHR.=="A"		68;Get the current 6Xcharacter
	..CHR6x.==..CHR._<^D8*..7CNT.+4> ;Shift it78 into the right p7Xlace
	..STR.==..7xSTR.!..CHR.	;Add 8it to the current88
	..CNT.==..CNT.8X-1	;Decrement the8x four word block 9counter

IFL ..98CNT.,<
	EXP ..ST9XR.		;Generate a w9xord of what is le:ft
	..CNT.==3		;:8Init the four cha:Xr chunk counter
:x	..STR.==0		;Init; the string
>;En;8d IFL ..CNT.

>;X;End IPRC A

I;xFN ..STR.,	EXP ..<STR.	;If there ar<8e characters left<X 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"@ kn_
	  IFE k9B,<..TA==0>
	  kXIFN B,<EXP ..TAkx
		    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@ myfoCALL SC.PFFCALL SC.PFG&}` v)g2CALL SC.PONCALL SC.POG,t<zQ  G,uLQ G,uLzQ @G,v0Q G,vPQ G,v	rQ G3.

TPlG4,;:PlG4,;VPhG4-iPGBV@Q I6= nX'
	A==<-1nxB<C>+1B<C-D>> o
	IF1,<IFDEF %Ao8,<PRINTX ?A ALREoXADY DEFINED>>
	DoxEFINE %A (OP,AC,pY,MSK)<
	$A==<Zp8 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  Ym}<<<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^= Sx5+
	A==C	T	
	IF1,<IFDEF %T8A,<PRINTX ?A ALRTXEADY DEFINED>>
	TxDEFINE %A (OP,ACU,Y,MSK)<
	$A==<U8Z 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"@ l9ns
	IFN <<.lY.TA>&B>,<PRINTXlx ?Initial field nmot zero in $SET>
	mX..TVAL==<C>
	mx..TMSK==<B>
	  ..TA==..TA!n<FLD(..TVAL,..TMSn8K)>
	  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 `n
	  IFDEF`9 ..BSIZ,<PRINTX ?`XMissing $EOB afte`xr a $BUILD>
	  .a.BSIZ==0			
	  .a8.BLOC==.			
	  RaXEPEAT A,<			
		axBLD0.(\..BSIZ,0)	b
		..BSIZ==..BSIZ+1>	
	==..BSI	

	$BUILDyD (.SSAFT+1)	;SizEe of the block
E8
	$SET (.SSDGR,,<EXXCDSEC,,SINDGR>)	Ex;[7.1043]DatagramF received
	$SET F8(.SSMGR,,<XCDSEC,FX,SINMGR>)	;[7.104Fx3]Message receiveGd
	$SET (.SSPBC,G8,<XCDSEC,,SINPBC>GX)	;[7.1043]Port bGxroke connection
H	$SET (.SSCTL,,<XH8CDSEC,,SINCTL>)	;HX[7.1043]Connect tHxo listen
	$SET (I.SSCRA,,<XCDSEC,,I8SINCRA>)	;[7.1043IX]Connect responseIx available
	$SETJ (.SSMSC,,<XCDSECJ8,,SINPSC>)	;[7.10JX43]Message/datagrJxam send complete
	$SET (.SSDDG,,<K8MSEC1,,R>) 	;DataKXgram dropped
	$SKxET (.SSLCL,,<XCDSLEC,,SINLCL>)	;[7.L81043]Little crediLXt left
	$SET (.SLxSNCO,,<MSEC1,,R>)M	;Node came onlinM8e
	$SET (.SSOSD,MX,<XCDSEC,,SINOSD>Mx)	;[7.1043]OK to Nsend data
	$SET N8(.SSRID,,<XCDSEC,NX,SINRID>)	;[7.104Nx3]Remote initiateOd disconnect
	$SO8ET (.SSCIA,,<XCDSOXEC,,SINCIA>)	;[7.Ox1043]Credit is avPailable
	$SET (.P8SSDMA,,<XCDSEC,,SPXINDMA>)	;[7.1043]PxDMA complete

	$EOB

te

		N< Q9mI

	...FOQYO==0		;Init the oQxrder checker variRable

	$ENT (.SR8TORQ,SC.ORQ)	;ConRXnect request
	$ERxNT (.STORS,SC.ORSS)	;Connect responS8se
	$ENT (.STARQSX,SC.ARQ)	;Accept Sxrequest
	$ENT (.TSTARS,SC.ARS)	;AcT8cept response
	$TXENT (.STRRQ,SC.RRTxQ)	;Reject requesUt
	$ENT (.STRRS,U8SC.RRS)	;Reject rUXesonse
	$ENT (.SUxTDRQ,SC.DRQ)	;DisVconnect request
V8	$ENT (.STDRS,SC.VXDRS)	;Disconnect Vxresponse
	$ENT (W.STCRQ,SC.CRQ)	;CW8redit request
	$WXENT (.STCRS,SC.CRWxS)	;Credit responXse
	$ENT (.STAMGX8,SC.AMG)	;ApplicaXXtion message
	$EXxNT (.STADG,SC.ADGY)	;Application datagram

on da	v@ YYme

IFN ..Yy.FOO,<
IFN <A-.Z..FOO-1>,<IF2 <PRZ8INTX Dispatch tabZXle out of order! Zx(A)>>
>;End IFN[ ...FOO

	...FO[8O==A		;Get the c[Xurrent value of [xA

	XWD XCDSEC,\B		;[7.1037]Sect\8ion six address o\Xf a handler routine

ler routi	|  gnU
	  IFNDEg9F ..BSIZ,<PRINTX gX?$EOB without pregxvious $BUILD>
	 h IFN <.-..BLOC>,<h8PRINTX ?Address chXhange between $BUhxILD and $EOB>
;	i  XLIST			
	  ..i8T==0
	  REPEAT .iX.BSIZ,<
	    BLDix0.(\..T,1)		
	  j  ..T==..T+1 >
	j8  PURGE ..BSIZ,..jXT,..BLOC	
;	  LIST
	C	
;	  LI	2$:2 0	k#

	LOAD 0)A,INDEX,B	;Get 0Ithe index from th2ye CID source
	AD3D A,CIDTAB		;Add38 the base address3X of the CB addres3xs table
	MOVE A4,(A)		;Now get t48he address of the CB

s of the	NyS =km
;	CALL S=9C.OFF		;Turn off =Xdisconnect processing
ct proces	N{@ >ku
;	CALL S>9C.ON		;Release th>Xe disconnect interlock
ect inte	N9Q nyp

	$BUILoD (.SSLST+1)

	o8$SET (.SSCON,<>,<oXXCDSEC,,SCSCON>) ox;[7.1043]
	$SET p(.SSLIS,<>,<XCDSEp8C,,SCSLIS>) ;[7.1pX043]
	$SET (.SSDpxIS,<>,<XCDSEC,,SCqSDIS>) ;[7.1043]
	$SET (.SSREJ,<>qX,<XCDSEC,,SCSREJ>qx) ;[7.1043]
	$SErT (.SSSDG,<>,<XCDr8SEC,,SCSSDG>) ;[7rX.1043]
	$SET (.SrxSQRD,<>,<XCDSEC,,sSCSQRD>) ;[7.1043s8]
	$SET (.SSSMG,sX<>,<XCDSEC,,SCSSMsxG>) ;[7.1043]
	$tSET (.SSQRM,<>,<Xt8CDSEC,,SCSQRM>) ;tX[7.1043]
	$SET (tx.SSCSP,<>,<XCDSECu,,SCSCSP>) ;[7.10u843]
	$SET (.SSRCuXD,<>,<XCDSEC,,SCSuxRCD>) ;[7.1043]
v	$SET (.SSSTS,<>,v8<XCDSEC,,SCSSTS>)vX ;[7.1043]
	$SETvx (.SSRMG,<>,<XCDSwEC,,SCSRMG>) ;[7.w81043]
	$SET (.SSwXMAP,<>,<XCDSEC,,SwxCSMAP>) ;[7.1043]x
	$SET (.SSUMP,<x8>,<XCDSEC,,SCSUMPxX>) ;[7.1043]
	$SxxET (.SSSND,<>,<XCyDSEC,,SCSSND>) ;[y87.1043]
	$SET (.yXSSREQ,<>,<XCDSEC,yx,SCSREQ>) ;[7.104z3]
	$SET (.SSAICz8,<>,<XCDSEC,,SCSAzXIC>) ;[7.1043]
	zx$SET (.SSRPC,<>,<{XCDSEC,,SCSRPC>) {8;[7.1043]
	$SET {X(.SSRDG,<>,<XCDSE{xC,,SCSRDG>) ;[7.1|043]
	$SET (.SSC|8RD,<>,<XCDSEC,,SC|XSCRD>) ;[7.1043]
	$SET (.SSCRM,<>},<XCDSEC,,SCSCRM>}8) ;[7.1043]
	$SE}XT (.SSACC,<>,<XCD}xSEC,,SCSACC>) ;[7~.1043]
	$SET (.S~8SGDE,<>,<XCDSEC,,~XSCSGDE>) ;[7.1043~x]
	$SET (.SSEVT,<>,<XCDSEC,,SCSEV8T>) ;[7.1043]
	$XSET (.SSGLN,<>,<XxCDSEC,,SCSGLN>) ;[7.1043]
	$SET (8.SSRBS,<>,<XCDSECX,,SCSRBS>) ;[7.10x43]
	$SET (.SSRPS,<>,<XCDSEC,,SCS8RPS>) ;[7.1043]
X
	$SET (.SSMDR,<x>,<MSEC1,,UJSYS>)
	$SET (.SSMDS,<8>,<MSEC1,,UJSYS>)X
	$SET (.SSSRS,<x>,<MSEC1,,UJSYS>)
	$SET (.SSRRS,<8>,<MSEC1,,UJSYS>)

	$EOB

>)	N.@ bYn%
	  IFNDEbyF ..BSIZ,<PRINTX c?$SET without prec8vious $BUILD>
	 cX IFNB <B>,<..STRcx0 (..SET,<C>,B,dA)>
	IFB  <Bd8>,<..STR0 (..SET,dX<C>,FWMASK,A)>
	,FWMASK,A)>CAIA,,0	ON88 ?l!

	XWD M?9SEC1,CFSINI##	;In?Xit the Common fil?xe system
	XWD MS@EC1,MSCINI##	;Ini@8t MSCP
	XWD MSEC@X1,MSSINI	;Init th@xe MSCP server
	XAWD XCDSEC,SCSINI	A8;[7.1043]Init theAX SCS% JSYS SYSAP
	XWD XCDSEC,CLUIBNI	;[7.1076] InitB8 CLUDGR SYSYAP
 BX  IFN CLEQIN,<			Bx;[7.1072] If clusCter ENQ code presC8ent
	XWD XCDSEC,CXEQSINI	;[7.1072] CxInit the ENQSRV SDYSAP
   >				;[7.1072]

		;[7
;<s 	!pN
	$.PKSFD	A==<Z .PKSTS>		
		`A (<B>,.PKSTSC,D)B>,.PKSTSC
n !i
	$BBNXT=A=<Z .BBNXT>		
	`A (<B>,.BBNXTC,D)B>,.BBNXTC,
]P )i&
	$BBUVA=I=<Z .BBUVA>		
	hA (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR 

qhk
	$BDFFD=FD>		
	(<B>,.BDFFDC,D)B>,.BDFFDC,
$k i
	$BDFLD=1=<Z .BDFLD>		
	PA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 h|
	$BDFMG=!=<Z .BDFMG>		
	@A (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR
	$BDLFD==<Z .BDFFD>		
	8A (<B>,.BDFFDC,D)B>,.BDFFDC,
%K i
	$BDLLD=9=<Z .BDLLD>		
	XA (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 	i
	$BDLMG=)=<Z .BDLMG>		
	HA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n $QhZ
	$BDNXT==<Z .BDNXT>		
	 A (<B>,.BDNXTC,D)B>,.BDNXTC,
&

R ihb
	$BDPRE=

	=<Z .BDPRE>		
	

(A (<B>,.BDPREC,D)B>,.BDPREC,(X ZeU
	$CBBBQ=Z1=<Z .CBBBQ>		
	ZPA (<B>,.CBBBQC,D)B>,.CBBBQC,) Sae"
	$CBBDQ=T=<Z .CBBDQ>		
	T A (<B>,.CBBDQC,D)B>,.CBBDQC,)8 XeD
	$CBBEQ=X!=<Z .CBBEQ>		
	X@A (<B>,.CBBEQC,D)B>,.CBBEQC,*y ,ibj
	$CBBKST-	==<Z .CBSTS>		
	-(A (<B>,.CBSTSC,D)B>,.CBSTSC+8 QQe
	$CBBMQ=Qq=<Z .CBBMQ>		
	RA (<B>,.CBBMQC,D)B>,.CBBMQC,. Uqe3
	$CBBXQ=V=<Z .CBBXQ>		
	V0A (<B>,.CBBXQC,D)B>,.CBBXQC,9 IdM
	$CBCDD=I9=<Z .CBCDD>		
	IXA (<B>,.CBCDDC,D)B>,.CBCDDC,;Y -ibr
	$CBCNST.	==<Z .CBSTS>		
	.(A (<B>,.CBSTSC,D)B>,.CBSTSCHt ?qd
	$CBDCID@==<Z .CBDCI>		
	@0A (<B>,.CBDCIC,D)B>,.CBDCICI Cd
	$CBDDREC!==<Z .CBREA>		
	C@A (<B>,.CBREAC,D)B>,.CBREACIu M9do
	$CBDGJ=MY=<Z .CBDGJ>		
	MxA (<B>,.CBDGJC,D)B>,.CBDGJC,KW *abZ
	$CBDNOD+==<Z .CBSBI>		
	+ A (<B>,.CBSBIC,D)B>,.CBSBIC^ +abb
	$CBEXPR,==<Z .CBSBI>		
	, A (<B>,.CBSBIC,D)B>,.CBSBICh1 1!c
	$CBFABT1A==<Z .CBFLG>		
	1`A (<B>,.CBFLGC,D)B>,.CBFLGCh{ 6Ic8
	$CBFCVC6i==<Z .CBFLG>		
	7A (<B>,.CBFLGC,D)B>,.CBFLGCi 31c
	$CBFDCL3Q==<Z .CBFLG>		
	3pA (<B>,.CBFLGC,D)B>,.CBFLGCi >ct
	$CBFDEF>!==<Z .CBFLG>		
	>@A (<B>,.CBFLGC,D)B>,.CBFLGCi :icZ
	$CBFDIS;	==<Z .CBFLG>		
	;(A (<B>,.CBFLGC,D)B>,.CBFLGCi ;qcc
	$CBFDRQ<==<Z .CBFLG>		
	<0A (<B>,.CBFLGC,D)B>,.CBFLGCi9 9acR
	$CBFERR:==<Z .CBFLG>		
	: A (<B>,.CBFLGC,D)B>,.CBFLGCjY 0c
	$CBFJSY09==<Z .CBFLG>		
	0XA (<B>,.CBFLGC,D)B>,.CBFLGCjt 49c'
	$CBFKIL4Y==<Z .CBFLG>		
	4xA (<B>,.CBFLGC,D)B>,.CBFLGCk2 5Ac0
	$CBFMDC5a==<Z .CBFLG>		
	6A (<B>,.CBFLGC,D)B>,.CBFLGCkW /b}
	$CBFNNC/1==<Z .CBFLG>		
	/PA (<B>,.CBFLGC,D)B>,.CBFLGCky N9dw
	$CBFORKNY==<Z .CBFRK>		
	NxA (<B>,.CBFRKC,D)B>,.CBFRKCl 8YcI
	$CBFPTC8y==<Z .CBFLG>		
	9A (<B>,.CBFLGC,D)B>,.CBFLGClP 2)c
	$CBFRAP2I==<Z .CBFLG>		
	2hA (<B>,.CBFLGC,D)B>,.CBFLGClw <yck
	$CBFSNM===<Z .CBFLG>		
	=8A (<B>,.CBFLGC,D)B>,.CBFLGClw 7QcA
	$CBFSOB7q==<Z .CBFLG>		
	8A (<B>,.CBFLGC,D)B>,.CBFLGC Ayd
	$CBIDB=B=<Z .CBBUF>		
	B8A (<B>,.CBBUFC,D)B>,.CBBUFC,1 @yd
	$CBIMB=A=<Z .CBBUF>		
	A8A (<B>,.CBBUFC,D)B>,.CBBUFC,+q OAe
	$CBJOB=Oa=<Z .CBFRK>		
	PA (<B>,.CBFRKC,D)B>,.CBFRKC,Yu L1dg
	$CBMGJ=LQ=<Z .CBMGJ>		
	LpA (<B>,.CBMGJC,D)B>,.CBMGJC,[Y F	d4
	$CBMNRCF)==<Z .CBMCD>		
	FHA (<B>,.CBMCDC,D)B>,.CBMCDC[Y E	d,
	$CBMNSCE)==<Z .CBMCD>		
	EHA (<B>,.CBMCDC,D)B>,.CBMCDCl Gd=
	$CBNPO=G1=<Z .CBNPO>		
	GPA (<B>,.CBNPOC,D)B>,.CBNPOC,	 ]!en
	$CBPDA=]A=<Z .CBPS1>		
	]`A (<B>,.CBPS1C,D)B>,.CBPS1C,	 \ee
	$CBPDG=\9=<Z .CBPS0>		
	\XA (<B>,.CBPS0C,D)B>,.CBPS0C,	; ^!ev
	$CBPEV=^A=<Z .CBPS1>		
	^`A (<B>,.CBPS1C,D)B>,.CBPS1C,3 [e]
	$CBPMG=[9=<Z .CBPS0>		
	[XA (<B>,.CBPS0C,D)B>,.CBPS0C,(w HdE
	$CBRCNTH1==<Z .CBNPO>		
	HPA (<B>,.CBNPOC,D)B>,.CBNPOC8t $1cz
	$CBSCID?	==<Z .CBSCI>		
	?(A (<B>,.CBSCIC,D)B>,.CBSCIC9 Dd$
	$CBSDRED!==<Z .CBREA>		
	D@A (<B>,.CBREAC,D)B>,.CBREACHX Y	eL
	$CBTBQ=Y)=<Z .CBTBQ>		
	YHA (<B>,.CBTBQC,D)B>,.CBTBQC,I RYe
	$CBTDQ=Ry=<Z .CBTDQ>		
	SA (<B>,.CBTDQC,D)B>,.CBTDQC,I8 Vye;
	$CBTEQ=W=<Z .CBTEQ>		
	W8A (<B>,.CBTEQC,D)B>,.CBTEQC,K8 PIe
	$CBTMQ=Pi=<Z .CBTMQ>		
	QA (<B>,.CBTMQC,D)B>,.CBTMQC,N Tie*
	$CBTXQ=U	=<Z .CBTXQ>		
	U(A (<B>,.CBTXQC,D)B>,.CBTXQC,$<z )h&
	$CDCST=I=<Z .CDCST>		
	hA (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht 1h/
	$CDDCI=Q=<Z .CDDCI>		
	pA (<B>,.CDDCIC,D)B>,.CDDCIC,$LR AhH
	$CDDREAa==<Z .CDREA>		
		A (<B>,.CDREAC,D)B>,.CDREAC%kr 9h7
	$CDNOD=Y=<Z .CDNOD>		
	xA (<B>,.CDNODC,D)B>,.CDNODC,&<R Ah@
	$CDSREAa==<Z .CDREA>		
	A (<B>,.CDREAC,D)B>,.CDREAC+Q J!dV
	$CPJNB=JA=<Z .CBJNB>		
	J`A (<B>,.CBJNBC,D)B>,.CBJNBC,, K)d^
	$CPJPB=KI=<Z .CBJPB>		
	KhA (<B>,.CBJPBC,D)B>,.CBJPBC,;2 vQg9
	$E0CMD=vq=<Z .PBER0>		
	wA (<B>,.PBER0C,D)B>,.PBER0C,k zqg[
	$E0FLI={=<Z .PBER0>		
	{0A (<B>,.PBER0C,D)B>,.PBER0C,X] yigR
	$E0MBZ=z	=<Z .PBER0>		
	z(A (<B>,.PBER0C,D)B>,.PBER0C,2 wYgA
	$E0QUE=wy=<Z .PBER0>		
	xA (<B>,.PBER0C,D)B>,.PBER0C,)9 xagJ
	$E0RES=y=<Z .PBER0>		
	y A (<B>,.PBER0C,D)B>,.PBER0C,;r !1j
	$EBCOD=!Q=<Z .EBCOD>		
	!pA (<B>,.EBCODC,D)B>,.EBCODC,I7  1j
	$EBLEN= Q=<Z .EBCOD>		
	 pA (<B>,.EBCODC,D)B>,.EBCODC,&&7 0qk
	$IDPAO=1=<Z RIDSTS>		
	10A (<B>,RIDSTSC,D)B>,RIDSTSC,&&W 1yk
	$IDPBO=2=<Z RIDSTS>		
	28A (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< $qb8
	$INDEX='=<Z >		
	A (<B>,C,D)A (<B*@Y 	yhS
	$JH%DGB
==<Z .JHFLG>		
	
8A (<B>,.JHFLGC,D)B>,.JHFLGC4, ()bD
	$M%ALII(I==<Z >		
	A (<B>,C,D)A (<4,4 'Ab>
	$M%AMII'a==<Z >		
	A (<B>,C,D)A (<4,+ )ybQ
	$M%BLII*==<Z >		
	A (<B>,C,D)A (<4,+4 )bK
	$M%BMII)1==<Z >		
	A (<B>,C,D)A (<6 Y 1iU
	$MD%DMDQ==<Z >		
	A (<B>,C,D)A (<6 YV QiO
	$MD%FLGq==<Z >		
	A (<B>,C,D)A (<6,:2 )i~
	$MECID=I=<Z .MECID>		
	hA (<B>,.MECIDC,D)B>,.MECIDC,6,k !in
	$MEFLG=A=<Z .METYP>		
	`A (<B>,.METYPC,D)B>,.METYPC,6,lU i]
	$MEFRK=1=<Z .MEFRK>		
	PA (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 ie
	$MELEN=9=<Z .MEFRK>		
	XA (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 !iv
	$METYP=A=<Z .METYP>		
	`A (<B>,.METYPC,D)B>,.METYPC,6@Hr yq$
	$MH$CDT!==<Z .MHTYP>		
	@A (<B>,.MHTYPC,D)B>,.MHTYPC6@I q=
	$MH$DCI1==<Z .MHDCI>		
	PA (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 !qV
	$MH$MCRA==<Z .MHSTS>		
	`A (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 q,
	$MH$MSG!==<Z .MHTYP>		
	@A (<B>,.MHTYPC,D)B>,.MHTYPC6@L 1qg
	$MH$PKLQ==<Z .MHPKL>		
	pA (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq qE
	$MH$SCI9==<Z .MHSCI>		
	XA (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv )q^
	$MH$SMCI==<Z .MHSTS>		
	hA (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz !qN
	$MH$STSA==<Z .MHSTS>		
	`A (<B>,.MHSTSC,D)B>,.MHSTSC6@M 	q4
	$MH$TYP)==<Z .MHTYP>		
	HA (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ 	p4
	$PKDRV=)=<Z .PKRSV>		
	HA(<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 
	$PKMAI=ST>		
	(<B>,.PKPSTC,D)B>,.PKPSTC,B^

W 9pw
	$PKPRNDY==<Z .PKPST>		
	xA (<B>,.PKPSTC,D)B>,.PKPSTCB^

Y 

9pg
	$PKPRST

Y==<Z .PKPST>		
	

xA (<B>,.PKPSTC,D)B>,.PKPSTCB^8p p=
	$PKSCA=1=<Z .PKRSV>		
	PA (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q p,
	$PKSRB=!=<Z .PKRSV>		
	@A (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 9p_
	$PKTYP=Y=<Z .PKTYP>		
	xA (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ pE
	$PKVRT=9=<Z .PKRSV>		
	XA (<B>,.PKRSVC,D)B>,.PKRSVC,JYV 'ijB
	$RBUFMG(	==<Z RNGSW>		
	((A (<B>,RNGSWC,D)B>,RNGSWC,J$J h
	$RDDHT=9=<Z .RDDHT>		
	XA (<B>,.RDDHTC,D)B>,.RDDHTC,J$J !h
	$RDDHV=A=<Z .RDDHV>		
	`A (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz 	h
	$RDDST=)=<Z .RDDST>		
	HA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ h
	$RDDSV=1=<Z .RDDSV>		
	PA (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y }ygs
	$RDMDG=~=<Z .RDMDG>		
	~8A (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 g|
	$RDMMS=!=<Z .RDMMS>		
	@A (<B>,.RDMMSC,D)B>,.RDMMSC,J&y |qgk
	$RDPORT}==<Z .RDSTS>		
	}0A (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy qgc
	$RDVCST|==<Z .RDSTS>		
	|0A (<B>,.RDSTSC,D)B>,.RDSTSCJMm ,	jd
	$RINTLK,)==<Z RNGSW>		
	,HA (<B>,RNGSWC,D)B>,RNGSWC,Jty; #Ij 
	$RNGEVC#i==<Z .REECL>		
	$A (<B>,.REECLC,D)B>,.REECLCJtz "9j
	$RNGHED"Y==<Z .REHED>		
	"xA (<B>,.REHEDC,D)B>,.REHEDCJt{ $Ij(
	$RNGLEN$i==<Z .REECL>		
	%A (<B>,.REECLC,D)B>,.REECLCKu (qjK
	$RPACKT)==<Z RNGSW>		
	)0A (<B>,RNGSWC,D)B>,RNGSWC,K )yjS
	$RPITRN*==<Z RNGSW>		
	*8A (<B>,RNGSWC,D)B>,RNGSWC,KV -1jo
	$RPQFLK-Q==<Z .REPQF>		
	-pA (<B>,.REPQFC,D)B>,.REPQFCKV .9jw
	$RPQFMG.Y==<Z .REPQF>		
	.xA (<B>,.REPQFC,D)B>,.REPQFCK- +j\
	$RPRTQU+!==<Z RNGSW>		
	+@A (<B>,RNGSWC,D)B>,RNGSWC,K89 &aj:
	$RSCASY'==<Z RNGSW>		
	' A (<B>,RNGSWC,D)B>,RNGSWC,Kq %Yj1
	$RSYSCA%y==<Z RNGSW>		
	&A (<B>,RNGSWC,D)B>,RNGSWC,N: cAf 
	$SBCHN=ca=<Z .SBDSP>		
	dA (<B>,.SBDSPC,D)B>,.SBDSPC,NL dAf(
	$SBDPA=da=<Z .SBDSP>		
	eA (<B>,.SBDSPC,D)B>,.SBDSPC,NL nfu
	$SBDPS=n9=<Z .SBDPS>		
	nXA (<B>,.SBDPSC,D)B>,.SBDPSC,NLX of}
	$SBDRP=o9=<Z .SBDPS>		
	oXA (<B>,.SBDPSC,D)B>,.SBDPSC,NLX eIf0
	$SBDRQHei==<Z .SBDRQ>		
	fA (<B>,.SBDRQC,D)B>,.SBDRQCNM kqfc
	$SBDTHWl==<Z .SBDHT>		
	l0A (<B>,.SBDHTC,D)B>,.SBDHTCNM iafR
	$SBDTSWj==<Z .SBDST>		
	j A (<B>,.SBDSTC,D)B>,.SBDSTCNMT lyfk
	$SBDVHWm==<Z .SBDHV>		
	m8A (<B>,.SBDHVC,D)B>,.SBDHVCNMY jifZ
	$SBDVSWk	==<Z .SBDSV>		
	k(A (<B>,.SBDSVC,D)B>,.SBDSVCNk .ig
	$SBFLG=p!=<Z .SBFLG>		
	p@A (<B>,.SBFLGC,D)B>,.SBFLGC,Nks s9g
	$SBFOFLsY==<Z .SBFLG>		
	sxA (<B>,.SBFLGC,D)B>,.SBFLGCNk{ r1g
	$SBFOVCrQ==<Z .SBFLG>		
	rpA (<B>,.SBFLGC,D)B>,.SBFLGCNm q)g
	$SBFTMGqI==<Z .SBFLG>		
	qhA (<B>,.SBFLGC,D)B>,.SBFLGCNK1 fQf9
	$SBLMBHfq==<Z .SBLMB>		
	gA (<B>,.SBLMBC,D)B>,.SBLMBCN^ hYfI
	$SBMXDGhy==<Z .SBMMS>		
	iA (<B>,.SBMMSC,D)B>,.SBMMSCN^ gYfA
	$SBMXMGgy==<Z .SBMMS>		
	hA (<B>,.SBMMSC,D)B>,.SBMMSCNm _)e~
	$SBNTC=_I=<Z .SBVCS>		
	_hA (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ u)g.
	$SBOBB=uI=<Z .SBOBB>		
	uhA (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw `1f
	$SBOKO=`Q=<Z .SBVCS>		
	`pA (<B>,.SBVCSC,D)B>,.SBVCSC,N<z %g&
	$SBSST=tA=<Z .SBSST>		
	t`A (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy b9f
	$SBVCSTbY==<Z .SBVCS>		
	bxA (<B>,.SBVCSC,D)B>,.SBVCSCNyT a9f
	$SBWFI=aY=<Z .SBVCS>		
	axA (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ %9b-
	$SID==<%YZ >		
	A (<B>,C,D)A (<B>,OX] Iq
	$SRMBZ=i=<Z .SRRSV>		
	A (<B>,.SRRSVC,D)B>,.SRRSVC,OY aq
	$SRMDG==<Z .SRMMS>		
	 A (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 Yq
	$SRMMG=y=<Z .SRMMS>		
	A (<B>,.SRMMSC,D)B>,.SRMMSC,OlY Qq	
	$SRVRS=q=<Z .SRRSV>		
	A (<B>,.SRRSVC,D)B>,.SRRSVC,V &!b4
	$UBITS=&A=<Z >		
	A (<B>,C,D)A (<Bbuh6 Ii@
	$XNNAM=i=<Z .XNNAM>		
	A (<B>,.XNNAMC,D)B>,.XNNAMC,bun 9i/
	$XNNXT=Y=<Z .XNNXT>		
	xA (<B>,.XNNXTC,D)B>,.XNNXTC,bv

[ Ai8
	$XNPRV=a=<Z .XNPRV>		
	A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= QiI
	$XNSTK=q=<Z .XNSTK>		
	A (<B>,.XNSTKC,D)B>,.XNSTKC,;] en5
	  IFGE e9<<<B>&777777>-..eXBSIZ>,<
		PRINTXex ?WORD offset grefater than $BUILD f8size parameter>
fX	  SET0. (\<B>,C,<A>)
	B>,;LH ]my
	IFNDEF ]9C,<PRINTX C IS ]XNOT DEFINED
	  ]xA (<B>,D,FWMASK^)>	
	IFDEF C,<
	IFNDEF %C,<
	^X  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