PDP-10 Archive: t20sub/scapar.unv from BB-KL11L-BM

Trailing-Edge - PDP-10 Archives - BB-KL11L-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 #n*0

	..CNT#nJ.==3		;Init the c#nhounter
	..STR.==#o0		;Init the stri#o(ng

IRPC A,<
#oH
	..CHR.=="A"		#oh;Get the current #pcharacter
	..CHR#p(.==..CHR._<^D8*..#pHCNT.+4> ;Shift it#ph into the right p#qlace
	..STR.==..#q(STR.!..CHR.	;Add #qHit to the current#qh
	..CNT.==..CNT.#r-1	;Decrement the#r( four word block #rHcounter

IFL ..#rhCNT.,<
	EXP ..ST#sR.		;Generate a w#s(ord of what is le#sHft
	..CNT.==3		;#shInit the four cha#tr chunk counter
#t(	..STR.==0		;Init#tH the string
>;En#thd IFL ..CNT.

>#u;End IPRC A

I#u(FN ..STR.,	EXP ..#uHSTR.	;If there ar#uhe characters left#v 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"*
	  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@ #'*:CALL SC.PFFCALL SC.PFG&}` #/Z}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  $
!H<<<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">
	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	
 R

	$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
	$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
	$SET (.SSOSD,$,<XCDSEC,,SINOSD>$()	;[7.1043]OK to $Hsend data
	$SET $h(.SSRID,,<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!

	...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
	$ENTA(.STARQ$ept $
	$ENTS(.$.ARS)	;Ac$
	$$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@ $
!0

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" 
	  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 #i:n

	LOAD #iZA,INDEX,B	;Get #izthe index from th#l*e CID source
	AD#lHD A,CIDTAB		;Add#lh the base address#m of the CB addres#m(s table
	MOVE A#mH,(A)		;Now get t#mhhe address of the CB

s of the	NyS #vJ8
;	CALL S#vjC.OFF		;Turn off #wdisconnect processing
ct proces	N{@ #wJ@
;	CALL S#wjC.ON		;Release th#xe disconnect interlock
ect inte	N9Q $(*#f

	$BUIL$(JD (.SSLST+1)

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

	$EOB

>)	N.@ $
!p
	  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 #xJl

	XWD M#xjSEC1,CFSINI##	;In#yit the Common fil#y(e system
	XWD MS#yHEC1,MSCINI##	;Ini#yht MSCP
	XWD MSEC#z1,MSSINI	;Init th#z(e MSCP server
	X#zHWD XCDSEC,SCSINI	#zh;[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 $BR$
	$.PKSFD$Br==<Z .PKSTS>		
	$CA (<B>,.PKSTSC,D)B>,.PKSTSC
n #LRi
	$BBNXT=#Lr=<Z .BBNXT>		
	#MA (<B>,.BBNXTC,D)B>,.BBNXTC,
]P #MZq
	$BBUVA=#Mz=<Z .BBUVA>		
	#NA (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR #F"6
	$BDFFD=#FB=<Z .BDFFD>		
	#F`A (<B>,.BDFFDC,D)B>,.BDFFDC,
$k #JBX
	$BDFLD=#Jb=<Z .BDFLD>		
	#KA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 #H2G
	$BDFMG=#HR=<Z .BDFMG>		
	#HpA (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR #G*>
	$BDLFD=#GJ=<Z .BDFFD>		
	#GhA (<B>,.BDFFDC,D)B>,.BDFFDC,
%K #KJ`
	$BDLLD=#Kj=<Z .BDLLD>		
	#LA (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 #I:O
	$BDLMG=#IZ=<Z .BDLMG>		
	#IxA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n "^%
	$BDNXT=#D2=<Z .BDNXT>		
	#DPA (<B>,.BDNXTC,D)B>,.BDNXTC,
&

R #E-
	$BDPRE=#E:=<Z .BDPRE>		
	#EXA (<B>,.BDPREC,D)B>,.BDPREC,(X #B 
	$CBBBQ=#b=<Z .CBBBQ>		
	#A(<B>,.CBBBQC,D)B>,.CBBBQC,) #
	$CBBDQ=#DQ>		
	#(<B>,.CBBDQC,D)B>,.CBBDQC,)8 #2
	$CBBEQ=#R=<Z .CBBEQ>		
	#pA (<B>,.CBBEQC,D)B>,.CBBEQC,*y "f5
	$CBBKST"f:==<Z .CBSTS>		
	"fXA (<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 #J
	$CBCDD=#j=<Z .CBCDD>		
	#A (<B>,.CBCDDC,D)B>,.CBCDDC,;Y "g=
	$CBCNST"g:==<Z .CBSTS>		
	"gXA (<B>,.CBSTSC,D)B>,.CBSTSCHt "y"N
	$CBDCID"yB==<Z .CBDCI>		
	"y`A (<B>,.CBDCIC,D)B>,.CBDCICI "|2g
	$CBDDRE"|R==<Z .CBREA>		
	"|pA (<B>,.CBREAC,D)B>,.CBREACIu #j:
	$CBDGJ=#
=<Z .CBDGJ>		
	#(A (<B>,.CBDGJC,D)B>,.CBDGJC,KW "d%
	$CBDNOD"d2==<Z .CBSBI>		
	"dPA (<B>,.CBSBIC,D)B>,.CBSBIC^ "e-
	$CBEXPR"e2==<Z .CBSBI>		
	"ePA (<B>,.CBSBIC,D)B>,.CBSBICh1 "jRY
	$CBFABT"jr==<Z .CBFLG>		
	"kA (<B>,.CBFLGC,D)B>,.CBFLGCh{ "oz
	$CBFCVC"p==<Z .CBFLG>		
	"p8A (<B>,.CBFLGC,D)B>,.CBFLGCi "lbj
	$CBFDCL"m==<Z .CBFLG>		
	"m A (<B>,.CBFLGC,D)B>,.CBFLGCi "w2?
	$CBFDEF"wR==<Z .CBFLG>		
	"wpA (<B>,.CBFLGC,D)B>,.CBFLGCi "t%
	$CBFDIS"t:==<Z .CBFLG>		
	"tXA (<B>,.CBFLGC,D)B>,.CBFLGCi "u".
	$CBFDRQ"uB==<Z .CBFLG>		
	"u`A (<B>,.CBFLGC,D)B>,.CBFLGCi9 "s
	$CBFERR"s2==<Z .CBFLG>		
	"sPA (<B>,.CBFLGC,D)B>,.CBFLGCjY "iJP
	$CBFJSY"ij==<Z .CBFLG>		
	"jA (<B>,.CBFLGC,D)B>,.CBFLGCjt "mjr
	$CBFKIL"n
==<Z .CBFLG>		
	"n(A (<B>,.CBFLGC,D)B>,.CBFLGCk2 "nr{
	$CBFMDC"o==<Z .CBFLG>		
	"o0A (<B>,.CBFLGC,D)B>,.CBFLGCkW "hBH
	$CBFNNC"hb==<Z .CBFLG>		
	"iA (<B>,.CBFLGC,D)B>,.CBFLGCky #jB
	$CBFORK#
==<Z .CBFRK>		
	#(A (<B>,.CBFRKC,D)B>,.CBFRKCl "r

	$CBFPTC"r*==<Z .CBFLG>		
	"rHA (<B>,.CBFLGC,D)B>,.CBFLGClP "kZa
	$CBFRAP"kz==<Z .CBFLG>		
	"lA (<B>,.CBFLGC,D)B>,.CBFLGClw "v*6
	$CBFSNM"vJ==<Z .CBFLG>		
	"vhA (<B>,.CBFLGC,D)B>,.CBFLGClw "q


	$CBFSOB"q"==<Z .CBFLG>		
	"q@A (<B>,.CBFLGC,D)B>,.CBFLGC "{*^
	$CBIDB="{J=<Z .CBBUF>		
	"{hA (<B>,.CBBUFC,D)B>,.CBBUFC,1 "z*V
	$CBIMB="zJ=<Z .CBBUF>		
	"zhA (<B>,.CBBUFC,D)B>,.CBBUFC,+q #rK
	$CBJOB=#	=<Z .CBFRK>		
	#	0A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu #b2
	$CBMGJ=#=<Z .CBMGJ>		
	# A (<B>,.CBMGJC,D)B>,.CBMGJC,[Y ":
	$CBMNRC"Z==<Z .CBMCD>		
	"xA (<B>,.CBMCDC,D)B>,.CBMCDC[Y "~:w
	$CBMNSC"~Z==<Z .CBMCD>		
	"~xA (<B>,.CBMCDC,D)B>,.CBMCDCl #B
	$CBNPO=#b=<Z .CBNPO>		
	#A (<B>,.CBNPOC,D)B>,.CBNPOC,	 #R9
	$CBPDA=#r=<Z .CBPS1>		
	#A (<B>,.CBPS1C,D)B>,.CBPS1C,	 #J0
	$CBPDG=#j=<Z .CBPS0>		
	#A (<B>,.CBPS0C,D)B>,.CBPS0C,	; #RA
	$CBPEV=#r=<Z .CBPS1>		
	#A (<B>,.CBPS1C,D)B>,.CBPS1C,3 #J(
	$CBPMG=#j=<Z .CBPS0>		
	#A (<B>,.CBPS0C,D)B>,.CBPS0C,(w #B
	$CBRCNT#b==<Z .CBNPO>		
	#A (<B>,.CBNPOC,D)B>,.CBNPOC8t "]bE
	$CBSCID"x:==<Z .CBSCI>		
	"xXA (<B>,.CBSCIC,D)B>,.CBSCIC9 "}2o
	$CBSDRE"}R==<Z .CBREA>		
	"}pA (<B>,.CBREAC,D)B>,.CBREACHX #:
	$CBTBQ=#Z=<Z .CBTBQ>		
	#xA (<B>,.CBTBQC,D)B>,.CBTBQC,I #

d
	$CBTDQ=#

*=<Z .CBTDQ>		
	#

HA (<B>,.CBTDQC,D)B>,.CBTDQC,I8 #*
	$CBTEQ=#J=<Z .CBTEQ>		
	#hA (<B>,.CBTEQC,D)B>,.CBTEQC,K8 #	zS
	$CBTMQ=#
=<Z .CBTMQ>		
	#
8A (<B>,.CBTMQC,D)B>,.CBTMQC,N #u
	$CBTXQ=#:=<Z .CBTXQ>		
	#XA (<B>,.CBTXQC,D)B>,.CBTXQC,$<z #=Zq
	$CDCST=#=z=<Z .CDCST>		
	#>A (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht #>bz
	$CDDCI=#?=<Z .CDDCI>		
	#? A (<B>,.CDDCIC,D)B>,.CDDCIC,$LR #Ar
	$CDDREA#B==<Z .CDREA>		
	#B0A (<B>,.CDREAC,D)B>,.CDREAC%kr #?j
	$CDNOD=#@
=<Z .CDNOD>		
	#@(A (<B>,.CDNODC,D)B>,.CDNODC,&<R #@r
	$CDSREA#A==<Z .CDREA>		
	#A0A (<B>,.CDREAC,D)B>,.CDREAC+Q #R!
	$CPJNB=#r=<Z .CBJNB>		
	#A (<B>,.CBJNBC,D)B>,.CBJNBC,, #Z)
	$CPJPB=#z=<Z .CBJPB>		
	#A (<B>,.CBJPBC,D)B>,.CBJPBC,;2 #0
	$E0CMD=#0"=<Z .PBER0>		
	#0@A (<B>,.PBER0C,D)B>,.PBER0C,k #4"&
	$E0FLI=#4B=<Z .PBER0>		
	#4`A (<B>,.PBER0C,D)B>,.PBER0C,X] #3
	$E0MBZ=#3:=<Z .PBER0>		
	#3XA (<B>,.PBER0C,D)B>,.PBER0C,2 #1


	$E0QUE=#1*=<Z .PBER0>		
	#1HA (<B>,.PBER0C,D)B>,.PBER0C,)9 #2
	$E0RES=#22=<Z .PBER0>		
	#2PA (<B>,.PBER0C,D)B>,.PBER0C,;r #ZbZ
	$EBCOD=#[=<Z .EBCOD>		
	#[ A (<B>,.EBCODC,D)B>,.EBCODC,I7 #YbR
	$EBLEN=#Z=<Z .EBCOD>		
	#Z A (<B>,.EBCODC,D)B>,.EBCODC,&&7 #j"V
	$IDPAO=#jB=<Z RIDSTS>		
	#j`A (<B>,RIDSTSC,D)B>,RIDSTSC,&&W #k*^
	$IDPBO=#kJ=<Z RIDSTS>		
	#khA (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< "^"
	$INDEX="`2=<Z >		
	A (<B>,C,D)A (<B*@Y #C*
	$JH%DGB#CJ==<Z .JHFLG>		
	#ChA (<B>,.JHFLGC,D)B>,.JHFLGC4, "aZ
	$M%ALII"az==<Z >		
	A (<B>,C,D)A (<4,4 "`r	
	$M%AMII"a==<Z >		
	A (<B>,C,D)A (<4,+ "c*
	$M%BLII"cJ==<Z >		
	A (<B>,C,D)A (<4,+4 "bB
	$M%BMII"bb==<Z >		
	A (<B>,C,D)A (<6 Y #Sb 
	$MD%DMD#T==<Z >		
	A (<B>,C,D)A (<6 YV #S
	$MD%FLG#S"==<Z >		
	A (<B>,C,D)A (<6,:2 #XZI
	$MECID=#Xz=<Z .MECID>		
	#YA (<B>,.MECIDC,D)B>,.MECIDC,6,k #VR9
	$MEFLG=#Vr=<Z .METYP>		
	#WA (<B>,.METYPC,D)B>,.METYPC,6,lU #TB(
	$MEFRK=#Tb=<Z .MEFRK>		
	#UA (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 #UJ0
	$MELEN=#Uj=<Z .MEFRK>		
	#VA (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 #WRA
	$METYP=#Wr=<Z .METYP>		
	#XA (<B>,.METYPC,D)B>,.METYPC,6@Hr $=*$o
	$MH$CDT$MR==<Z .MHTYP>		
	$MpA (<B>,.MHTYPC,D)B>,.MHTYPC6@I $PB%
	$MH$DCI$Pb==<Z .MHDCI>		
	$QA (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 $SR%!
	$MH$MCR$Sr==<Z .MHSTS>		
	$TA (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 $N2$w
	$MH$MSG$NR==<Z .MHTYP>		
	$NpA (<B>,.MHTYPC,D)B>,.MHTYPC6@L $Ub%2
	$MH$PKL$V==<Z .MHPKL>		
	$V A (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq $QJ%
	$MH$SCI$Qj==<Z .MHSCI>		
	$RA (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv $TZ%)
	$MH$SMC$Tz==<Z .MHSTS>		
	$UA (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz $RR%
	$MH$STS$Rr==<Z .MHSTS>		
	$SA (<B>,.MHSTSC,D)B>,.MHSTSC6@M $O:$
	$MH$TYP$OZ==<Z .MHTYP>		
	$OxA (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ $?:#
	$PKDRV=$?Z=<Z .PKRSV>		
	$?xA (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 $Fj$:
	$PKMAI=$G
=<Z .PKPST>		
	$G(A (<B>,.PKPSTC,D)B>,.PKPSTC,B^

W $Gj$B
	$PKPRND$H
==<Z .PKPST>		
	$H(A (<B>,.PKPSTC,D)B>,.PKPSTCB^

Y $Ej$2
	$PKPRST$F
==<Z .PKPST>		
	$F(A (<B>,.PKPSTC,D)B>,.PKPSTCB^8p $@B$
	$PKSCA=$@b=<Z .PKRSV>		
	$AA (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q $>2#w
	$PKSRB=$>R=<Z .PKRSV>		
	$>pA (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 $Dj$*
	$PKTYP=$E
=<Z .PKTYP>		
	$E(A (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ $AJ$
	$PKVRT=$Aj=<Z .PKRSV>		
	$BA (<B>,.PKRSVC,D)B>,.PKRSVC,JYV #a
	$RBUFMG#a:==<Z RNGSW>		
	#aXA (<B>,RNGSWC,D)B>,RNGSWC,J$J #;J`
	$RDDHT=#;j=<Z .RDDHT>		
	#<A (<B>,.RDDHTC,D)B>,.RDDHTC,J$J #<Ri
	$RDDHV=#<r=<Z .RDDHV>		
	#=A (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz #9:O
	$RDDST=#9Z=<Z .RDDST>		
	#9xA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ #:BX
	$RDDSV=#:b=<Z .RDDSV>		
	#;A (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y #7*>
	$RDMDG=#7J=<Z .RDMDG>		
	#7hA (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 #82G
	$RDMMS=#8R=<Z .RDMMS>		
	#8pA (<B>,.RDMMSC,D)B>,.RDMMSC,J&y #6"6
	$RDPORT#6B==<Z .RDSTS>		
	#6`A (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy #*2.
	$RDVCST#5B==<Z .RDSTS>		
	#5`A (<B>,.RDSTSC,D)B>,.RDSTSCJMm #e:/
	$RINTLK#eZ==<Z RNGSW>		
	#exA (<B>,RNGSWC,D)B>,RNGSWC,Jty; #\zk
	$RNGEVC#]==<Z .REECL>		
	#]8A (<B>,.REECLC,D)B>,.REECLCJtz #[jb
	$RNGHED#\
==<Z .REHED>		
	#\(A (<B>,.REHEDC,D)B>,.REHEDCJt{ #]zs
	$RNGLEN#^==<Z .REECL>		
	#^8A (<B>,.REECLC,D)B>,.REECLCKu #b"
	$RPACKT#bB==<Z RNGSW>		
	#b`A (<B>,RNGSWC,D)B>,RNGSWC,K #c*
	$RPITRN#cJ==<Z RNGSW>		
	#chA (<B>,RNGSWC,D)B>,RNGSWC,KV #fb:
	$RPQFLK#g==<Z .REPQF>		
	#g A (<B>,.REPQFC,D)B>,.REPQFCKV #gjB
	$RPQFMG#h
==<Z .REPQF>		
	#h(A (<B>,.REPQFC,D)B>,.REPQFCK- #d2'
	$RPRTQU#dR==<Z RNGSW>		
	#dpA (<B>,RNGSWC,D)B>,RNGSWC,K89 #`
	$RSCASY#`2==<Z RNGSW>		
	#`PA (<B>,RNGSWC,D)B>,RNGSWC,Kq #_
|
	$RSYSCA#_*==<Z RNGSW>		
	#_HA (<B>,RNGSWC,D)B>,RNGSWC,N: #rk
	$SBCHN=#=<Z .SBDSP>		
	#0A (<B>,.SBDSPC,D)B>,.SBDSPC,NL #rs
	$SBDPA=#=<Z .SBDSP>		
	#0A (<B>,.SBDSPC,D)B>,.SBDSPC,NL #'J@
	$SBDPS=#'j=<Z .SBDPS>		
	#(A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #(JH
	$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 ##
	$SBDTSW##2==<Z .SBDST>		
	##PA (<B>,.SBDSTC,D)B>,.SBDSTCNMT #&*6
	$SBDVHW#&J==<Z .SBDHV>		
	#&hA (<B>,.SBDHVC,D)B>,.SBDHVCNMY #$%
	$SBDVSW#$:==<Z .SBDSV>		
	#$XA (<B>,.SBDSVC,D)B>,.SBDSVCNk "hO
	$SBFLG=#)R=<Z .SBFLG>		
	#)pA (<B>,.SBFLGC,D)B>,.SBFLGC,Nks #,jj
	$SBFOFL#-
==<Z .SBFLG>		
	#-(A (<B>,.SBFLGC,D)B>,.SBFLGCNk{ #+bb
	$SBFOVC#,==<Z .SBFLG>		
	#, A (<B>,.SBFLGC,D)B>,.SBFLGCNm #*ZY
	$SBFTMG#*z==<Z .SBFLG>		
	#+A (<B>,.SBFLGC,D)B>,.SBFLGCNK1 # 
	$SBLMBH# "==<Z .SBLMB>		
	# @A (<B>,.SBLMBC,D)B>,.SBLMBCN^ #"

	$SBMXDG#"*==<Z .SBMMS>		
	#"HA (<B>,.SBMMSC,D)B>,.SBMMSCN^ #!


	$SBMXMG#!*==<Z .SBMMS>		
	#!HA (<B>,.SBMMSC,D)B>,.SBMMSCNm #ZI
	$SBNTC=#z=<Z .SBVCS>		
	#A (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ #.Zy
	$SBOBB=#.z=<Z .SBOBB>		
	#/A (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw #bR
	$SBOKO=#=<Z .SBVCS>		
	# A (<B>,.SBVCSC,D)B>,.SBVCSC,N<z "^Bq
	$SBSST=#-r=<Z .SBSST>		
	#.A (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy #jb
	$SBVCST#
==<Z .SBVCS>		
	#(A (<B>,.SBVCSC,D)B>,.SBVCSCNyT #jZ
	$SBWFI=#
=<Z .SBVCS>		
	#(A (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ "^jx
	$SID==<"_
Z >		
	A (<B>,C,D)A (<B>,OX] $Hz$K
	$SRMBZ=$I=<Z .SRRSV>		
	$I8A (<B>,.SRRSVC,D)B>,.SRRSVC,OY $L$e
	$SRMDG=$L2=<Z .SRMMS>		
	$LPA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 $K
$\
	$SRMMG=$K*=<Z .SRMMS>		
	$KHA (<B>,.SRMMSC,D)B>,.SRMMSC,OlY $J$T
	$SRVRS=$J"=<Z .SRRSV>		
	$J@A (<B>,.SRRSVC,D)B>,.SRRSVC,V "_R
	$UBITS="_r=<Z >		
	A (<B>,C,D)A (<Bbuh6 #Pz
	$XNNAM=#Q=<Z .XNNAM>		
	#Q8A (<B>,.XNNAMC,D)B>,.XNNAMC,bun #Njz
	$XNNXT=#O
=<Z .XNNXT>		
	#O(A (<B>,.XNNXTC,D)B>,.XNNXTC,bv

[ #Or
	$XNPRV=#P=<Z .XNPRV>		
	#P0A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= #R
	$XNSTK=#R"=<Z .XNSTK>		
	#R@A (<B>,.XNSTKC,D)B>,.XNSTKC,;] $J"
	  IFGE $j<<<B>&777777>-..$BSIZ>,<
		PRINTX$( ?WORD offset gre$Hater than $BUILD $hsize parameter>
$ 	  SET0. (\<B>,C,<A>)
	B>,;LH $J!D
	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