PDP-10 Archive: 6-1-monitor/scapar.unv from SRI_NIC_PERM_SRC_1

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-1-monitor/scapar.unv

There are 23 other files named scapar.unv in the archive. Click here to see a list.

x
,5K@P CN 1i

	..CNTQ.==3		;Init the cpounter
	..STR.==

0		;Init the stri

0ng

IRPC A,<

P
	..CHR.=="A"

p;Getathercurrent 
	..CHRHR.S<^D8*..lace
	..STR.==..0STR.!..CHR.	;Add Pit to the currentp
	..CNT.==..CNT.-1	;Decrement the0 four word block Pcounter

IFL ..pCNT.,<
	EXP ..STR.		;Generate a w0ord of what is lePft
	..CNT.==3		;pInit the four char chunk counter
0	..STR.==0		;InitP the string
>;Enpd IFL ..CNT.

>;End IPRC A

I0FN ..STR.,	EXP ..PSTR.	;If there arpe 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"@ =ko
	  IFE =1B,<..TA==0>
	  =PIFN B,<EXP ..TA=p
		    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@lD1d#CALLSC.POFCALLISC.POG&}`&LadfCALL SC.PONCALL SC.POG,t<zQ  G,uLQ G,uLzQ @G,v0Q G,vPQ G,v	rQ G4,;:P G4,;VP G4-iP 
	A==<-1bXB<C>+1B<C-D>> bx
	IF1,<IFDEF %Ac,<PRINTX ?A ALREc8ADY DEFINED>>
	DcXEFINE %A (OP,AC,cxY,MSK)<
	$A==<Zd 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,;PBL;<QQL;H@Q @L; Q  M2  1Qk

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^= ?(4
	A==C	?H	
	IF1,<IFDEF %?hA,<PRINTX ?A ALR@EADY DEFINED>>
	@(DEFINE %A (OP,AC@H,Y,MSK)<
	$A==<@hZ 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"@ >1l
	IFN <<.>Q.TA>&B>,<PRINTX>p ?Initial field n?ot zero in $SET>
	?P..TVAL==<C>
	?p..TMSK==<B>
	  ..TA==..TA!@<FLD(..TVAL,..TMS@0K)>
	  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 2k!
	  IFDEF21 ..BSIZ,<PRINTX ?2PMissing $EOB afte2pr a $BUILD>
	  .3.BSIZ==0			
	  .30.BLOC==.			
	  R3PEPEAT A,<			
		3pBLD0.(\..BSIZ,0)	4
		..BSIZ==..BSIZ+1>	
	==..BSI	

	$BUILQD (.SSAFT+1)	;Sizpe of the block

	$SET (.SSDGR,,<0MSEC1,,SINDGR>)	;PDatagram receivedp
	$SET (.SSMGR,,<MSEC1,,SINMGR>)	0;Message receivedP
	$SET (.SSPBC,,p<MSEC1,,SINPBC>)	;Port broke conne0ction
	$SET (.SSPCTL,,<MSEC1,,SINCpTL>)	;Connect to listen
	$SET (.S0SCRA,,<MSEC1,,SINPCRA>)	;Connect repsponse available
	$SET (.SSMSC,,<0MSEC1,,SINPSC>)	;PMessage/datagram psend complete
	$SET (.SSDDG,,<MSE0C1,,R>)	;DatagramP dropped
	$SET (p.SSLCL,,<MSEC1,,SINLCL>)	;Little c0redit left
	$SETP (.SSNCO,,<MSEC1,p,R>)	;Node came o nline
	$SET (.SS 0OSD,,<MSEC1,,SINO PSD>)	;OK to send  pdata
	$SET (.SSR!ID,,<MSEC1,,SINRI!0D>)	;Remote initi!Pated disconnect
!p	$SET (.SSCIA,,<M"SEC1,,SINCIA>)	;C"0redit is availabl"Pe
	$SET (.SSDMA,"p,<MSEC1,,SINDMA>)#  ;DMA complete

	$EOB

te
	N< #Qj[

	...FO#qO==0		;Init the o$rder checker vari$0able

	$ENT (.S$PTORQ,SC.ORQ)	;Con$pnect request
	$E%NT (.STORS,SC.ORS%0)	;Connect respon%Pse
	$ENT (.STARQ%p,SC.ARQ)	;Accept &request
	$ENT (.&0STARS,SC.ARS)	;Ac&Pcept response
	$&pENT (.STRRQ,SC.RR'Q)	;Reject reques'0t
	$ENT (.STRRS,'PSC.RRS)	;Reject r'pesonse
	$ENT (.S(TDRQ,SC.DRQ)	;Dis(0connect request
(P	$ENT (.STDRS,SC.(pDRS)	;Disconnect )response
	$ENT ()0.STCRQ,SC.CRQ)	;C)Predit request
	$)pENT (.STCRS,SC.CR*S)	;Credit respon*0se
	$ENT (.STAMG*P,SC.AMG)	;Applica*ption message
	$E+NT (.STADG,SC.ADG+0)	;Application datagram

on da	v@ +qju

IFN ..,.FOO,<
IFN <A-.,0..FOO-1>,<IF2 <PR,PINTX Dispatch tab,ple out of order! -(A)>>
>;End IFN-0 ...FOO

	...FO-PO==A		;Get the c-purrent value of .A

	XWD 1,B		;.0Section one addre.Pss of a handler routine

ler r	|  9ke
	  IFNDE91F ..BSIZ,<PRINTX 9P?$EOB without pre9pvious $BUILD>
	 : IFN <.-..BLOC>,<:0PRINTX ?Address c:Phange between $BU:pILD and $EOB>
;	;  XLIST			
	  ..;0T==0
	  REPEAT .;P.BSIZ,<
	    BLD;p0.(\..T,1)		
	  <  ..T==..T+1 >
	<0  PURGE ..BSIZ,..<PT,..BLOC	
;	  LIST
	C	
;	  LI	2$:2 AhW

	LOAD aA,INDEX,B	;Get the index from th	1e CID source
	AD	PD A,CIDTAB		;Add	p the base address
 of the CB addres
0s table
	MOVE A
P,(A)		;Now get t
phe address of the CB

s of the	NyS Qi!
;	CALL SqC.OFF		;Turn off disconnect processing
ct proces	N{@ Qi)
;	CALL SqC.ON		;Release the disconnect interlock
ect inte	N9Q @qm	

	$BUILAD (.SSLST+1)

	A0$SET (.SSCON,<>,<APMSEC1,,SCSCON>)
Ap	$SET (.SSLIS,<>,B<MSEC1,,SCSLIS>)
	$SET (.SSDIS,<>BP,<MSEC1,,SCSDIS>)Bp
	$SET (.SSREJ,<C>,<MSEC1,,SCSREJ>C0)
	$SET (.SSSDG,CP<>,<MSEC1,,SCSSDGCp>)
	$SET (.SSQRDD,<>,<MSEC1,,SCSQRD0D>)
	$SET (.SSSMDPG,<>,<MSEC1,,SCSSDpMG>)
	$SET (.SSQERM,<>,<MSEC1,,SCSE0QRM>)
	$SET (.SSEPCSP,<>,<MSEC1,,SCEpSCSP>)
	$SET (.SFSRCD,<>,<MSEC1,,SF0CSRCD>)
	$SET (.FPSSSTS,<>,<MSEC1,,FpSCSSTS>)
	$SET (G.SSRMG,<>,<MSEC1,G0,SCSRMG>)
	$SET GP(.SSMAP,<>,<MSEC1Gp,,SCSMAP>)
	$SETH (.SSUMP,<>,<MSECH01,,SCSUMP>)
	$SEHPT (.SSSND,<>,<MSEHpC1,,SCSSND>)
	$SIET (.SSREQ,<>,<MSI0EC1,,SCSREQ>)
	$IPSET (.SSAIC,<>,<MIpSEC1,,SCSAIC>)
	J$SET (.SSRPC,<>,<J0MSEC1,,SCSRPC>)
JP	$SET (.SSRDG,<>,Jp<MSEC1,,SCSRDG>)
	$SET (.SSCRD,<>K0,<MSEC1,,SCSCRD>)KP
	$SET (.SSCRM,<Kp>,<MSEC1,,SCSCRM>L)
	$SET (.SSACC,L0<>,<MSEC1,,SCSACCLP>)
	$SET (.SSGDELp,<>,<MSEC1,,SCSGDME>)
	$SET (.SSEVM0T,<>,<MSEC1,,SCSEMPVT>)
	$SET (.SSGMpLN,<>,<MSEC1,,SCSNGLN>)
	$SET (.SSN0RBS,<>,<MSEC1,,SCNPSRBS>)
	$SET (.SNpSRPS,<>,<MSEC1,,SOCSRPS>)

	$SET O0(.SSMDR,<>,<MSEC1OP,,UJSYS>)
	$SET Op(.SSMDS,<>,<MSEC1P,,UJSYS>)
	$SET P0(.SSSRS,<>,<MSEC1PP,,UJSYS>)
	$SET Pp(.SSRRS,<>,<MSEC1Q,,UJSYS>)

	$EOB

>)

	$EO	N.@ 4Qk5
	  IFNDE4qF ..BSIZ,<PRINTX 5?$SET without pre50vious $BUILD>
	 5P IFNB <B>,<..STR5p0 (..SET,<C>,B,6A)>
	IFB  <B60>,<..STR0 (..SET,6P<C>,FWMASK,A)>
	,FWMASK,A)>CAIA,,0	ON88 Qi?

	XWD MqSEC1,CFSINI##	;Init the Common fil0e system
	XWD MSPEC1,MSCINI##	;Inipt MSCP
	XWD MSEC1,MSSINI	;Init th0e MSCP server
	XPWD MSEC1,SCSINI	;pInit the SCS% JSYS SYSAP

 JSY
;<s Vym;
	$.PKSFDW==<Z .PKSTS>		
	W8A (<B>,.PKSTSC,D)B>,.PKSTSC
n iYfQ
	$BBNXT=iy=<Z .BBNXT>		
	jA (<B>,.BBNXTC,D)B>,.BBNXTC,
]P jafZ
	$BBUVA=k=<Z .BBUVA>		
	k A (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR c)f
	$BDFFD=cI=<Z .BDFFD>		
	chA (<B>,.BDFFDC,D)B>,.BDFFDC,
$k gIf@
	$BDFLD=gi=<Z .BDFLD>		
	hA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 e9f/
	$BDFMG=eY=<Z .BDFMG>		
	exA (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR d1f'
	$BDLFD=dQ=<Z .BDFFD>		
	dpA (<B>,.BDFFDC,D)B>,.BDFFDC,
%K hQfI
	$BDLLD=hq=<Z .BDLLD>		
	iA (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 fAf8
	$BDLMG=fa=<Z .BDLMG>		
	gA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n {	f
	$BDNXT=a9=<Z .BDNXT>		
	aXA (<B>,.BDNXTC,D)B>,.BDNXTC,
&

R b!f
	$BDPRE=bA=<Z .BDPRE>		
	b`A (<B>,.BDPREC,D)B>,.BDPREC,(X 0Ic
	$CBBBQ=0i=<Z .CBBBQ>		
	1A (<B>,.CBBBQC,D)B>,.CBBBQC,) *bU
	$CBBDQ=*9=<Z .CBBDQ>		
	*XA (<B>,.CBBDQC,D)B>,.CBBDQC,)8 .9bw
	$CBBEQ=.Y=<Z .CBBEQ>		
	.xA (<B>,.CBBEQC,D)B>,.CBBEQC,*y !`
	$CBBKSTA==<Z .CBSTS>		
	`A (<B>,.CBSTSC,D)B>,.CBSTSC+8 (	bD
	$CBBMQ=()=<Z .CBBMQ>		
	(HA (<B>,.CBBMQC,D)B>,.CBBMQC,. ,)bf
	$CBBXQ=,I=<Z .CBBXQ>		
	,hA (<B>,.CBBXQC,D)B>,.CBBXQC,9 Qb
	$CBCDD=q=<Z .CBCDD>		
	 A (<B>,.CBCDDC,D)B>,.CBCDDC,;Y !`&
	$CBCNSTA==<Z .CBSTS>		
	`A (<B>,.CBSTSC,D)B>,.CBSTSCHt )a6
	$CBDCIDI==<Z .CBDCI>		
	hA (<B>,.CBDCIC,D)B>,.CBDCICI 9aO
	$CBDDREY==<Z .CBREA>		
	xA (<B>,.CBREAC,D)B>,.CBREACIu #qb#
	$CBDGJ=$=<Z .CBDGJ>		
	$0A (<B>,.CBDGJC,D)B>,.CBDGJC,KW `
	$CBDNOD9==<Z .CBSBI>		
	XA (<B>,.CBSBIC,D)B>,.CBSBIC^ `
	$CBEXPR9==<Z .CBSBI>		
	XA (<B>,.CBSBIC,D)B>,.CBSBICh1 Y`A
	$CBFABTy==<Z .CBFLG>		
	A(<B>,.CBFLGC,D)B>,.CBFLGCh{ 
	$CBFCVCFLG>		
	A (<B>,.CBFLGC,D)B>,.CBFLGCi 	i`R
	$CBFDCL
	==<Z .CBFLG>		
	
(A (<B>,.CBFLGC,D)B>,.CBFLGCi 9a'
	$CBFDEFY==<Z .CBFLG>		
	xA (<B>,.CBFLGC,D)B>,.CBFLGCi !a
	$CBFDISA==<Z .CBFLG>		
	`A (<B>,.CBFLGC,D)B>,.CBFLGCi )a
	$CBFDRQI==<Z .CBFLG>		
	hA (<B>,.CBFLGC,D)B>,.CBFLGCi9 a
	$CBFERR9==<Z .CBFLG>		
	XA (<B>,.CBFLGC,D)B>,.CBFLGCjY Q`9
	$CBFJSYq==<Z .CBFLG>		
	A (<B>,.CBFLGC,D)B>,.CBFLGCjt 
q`[
	$CBFKIL==<Z .CBFLG>		
	0A (<B>,.CBFLGC,D)B>,.CBFLGCk2 y`c
	$CBFMDC

==<Z .CBFLG>

8A (<B>,.CBFLGC,D)B>,.CBFLGCkW I`0
	$CBFNNCi==<Z .CBFLG>		
	A (<B>,.CBFLGC,D)B>,.CBFLGCky $qb+
	$CBFORK%==<Z .CBFRK>		
	%0A (<B>,.CBFRKC,D)B>,.CBFRKCl `}
	$CBFPTC1==<Z .CBFLG>		
	PA (<B>,.CBFLGC,D)B>,.CBFLGClP a`J
	$CBFRAP	==<Z .CBFLG>		
		 A (<B>,.CBFLGC,D)B>,.CBFLGClw 1a
	$CBFSNMQ==<Z .CBFLG>		
	pA (<B>,.CBFLGC,D)B>,.CBFLGClw 	`t
	$CBFSOB)==<Z .CBFLG>		
	HA (<B>,.CBFLGC,D)B>,.CBFLGC 1aG
	$CBIDB=Q=<Z .CBBUF>		
	pA (<B>,.CBBUFC,D)B>,.CBBUFC,1 1a?
	$CBIMB=Q=<Z .CBBUF>		
	pA (<B>,.CBBUFC,D)B>,.CBBUFC,+q %yb3
	$CBJOB=&=<Z .CBFRK>		
	&8A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu "ib
	$CBMGJ=#	=<Z .CBMGJ>		
	#(A (<B>,.CBMGJC,D)B>,.CBMGJC,[Y Aah
	$CBMNRCa==<Z .CBMCD>		
	A (<B>,.CBMCDC,D)B>,.CBMCDC[Y Aa`
	$CBMNSCa==<Z .CBMCD>		
	A (<B>,.CBMCDC,D)B>,.CBMCDCl Iap
	$CBNPO=i=<Z .CBNPO>		
	A (<B>,.CBNPOC,D)B>,.CBNPOC,	 3Yc!
	$CBPDA=3y=<Z .CBPS1>		
	4A (<B>,.CBPS1C,D)B>,.CBPS1C,	 2Qc
	$CBPDG=2q=<Z .CBPS0>		
	3A (<B>,.CBPS0C,D)B>,.CBPS0C,	; 4Yc)
	$CBPEV=4y=<Z .CBPS1>		
	5A (<B>,.CBPS1C,D)B>,.CBPS1C,3 1Qc
	$CBPMG=1q=<Z .CBPS0>		
	2A (<B>,.CBPS0C,D)B>,.CBPS0C,(w Iax
	$CBRCNTi==<Z .CBNPO>		
	A (<B>,.CBNPOC,D)B>,.CBNPOC8t zia.
	$CBSCIDA==<Z .CBSCI>		
	`A (<B>,.CBSCIC,D)B>,.CBSCIC9 9aW
	$CBSDREY==<Z .CBREA>		
	xA (<B>,.CBREAC,D)B>,.CBREACHX /Ac
	$CBTBQ=/a=<Z .CBTBQ>		
	0A (<B>,.CBTBQC,D)B>,.CBTBQC,I )bM
	$CBTDQ=)1=<Z .CBTDQ>		
	)PA (<B>,.CBTDQC,D)B>,.CBTDQC,I8 -1bo
	$CBTEQ=-Q=<Z .CBTEQ>		
	-pA (<B>,.CBTEQC,D)B>,.CBTEQC,K8 'b<
	$CBTMQ='!=<Z .CBTMQ>		
	'@A (<B>,.CBTMQC,D)B>,.CBTMQC,N +!b^
	$CBTXQ=+A=<Z .CBTXQ>		
	+`A (<B>,.CBTXQC,D)B>,.CBTXQC,$<z ZaeZ
	$CDCST=[=<Z .CDCST>		
	[ A (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht [ieb
	$CDDCI=\	=<Z .CDDCI>		
	\(A (<B>,.CDDCIC,D)B>,.CDDCIC,$LR ^ye{
	$CDDREA_==<Z .CDREA>		
	_8A (<B>,.CDREAC,D)B>,.CDREAC%kr \qek
	$CDNOD=]=<Z .CDNOD>		
	]0A (<B>,.CDNODC,D)B>,.CDNODC,&<R ]yes
	$CDSREA^==<Z .CDREA>		
	^8A (<B>,.CDREAC,D)B>,.CDREAC+Q  Yb	
	$CPJNB= y=<Z .CBJNB>		
	!A (<B>,.CBJNBC,D)B>,.CBJNBC,, !ab
	$CPJPB="=<Z .CBJPB>		
	" A (<B>,.CBJPBC,D)B>,.CBJPBC,;2 M	dl
	$E0CMD=M)=<Z .PBER0>		
	MHA (<B>,.PBER0C,D)B>,.PBER0C,k Q)e
	$E0FLI=QI=<Z .PBER0>		
	QhA (<B>,.PBER0C,D)B>,.PBER0C,X] P!e
	$E0MBZ=PA=<Z .PBER0>		
	P`A (<B>,.PBER0C,D)B>,.PBER0C,2 Ndu
	$E0QUE=N1=<Z .PBER0>		
	NPA (<B>,.PBER0C,D)B>,.PBER0C,)9 Od}
	$E0RES=O9=<Z .PBER0>		
	OXA (<B>,.PBER0C,D)B>,.PBER0C,;r wigB
	$EBCOD=x	=<Z .EBCOD>		
	x(A (<B>,.EBCODC,D)B>,.EBCODC,I7 vig:
	$EBLEN=w	=<Z .EBCOD>		
	w(A (<B>,.EBCODC,D)B>,.EBCODC,&&7 )h>
	$IDPAO=I=<Z RIDSTS>		
	hA (<B>,RIDSTSC,D)B>,RIDSTSC,&&W 1hG
	$IDPBO=Q=<Z RIDSTS>		
	pA (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< {)_k
	$INDEX=}9=<Z >		
	A (<B>,C,D)A (<B*@Y `1f
	$JH%DGB`Q==<Z .JHFLG>		
	`pA (<B>,.JHFLGC,D)B>,.JHFLGC4, ~a_x
	$M%ALII==<Z >		
	A (<B>,C,D)A (<4,4 }y_q
	$M%AMII~==<Z >		
	A (<B>,C,D)A (<4,+ 1`
	$M%BLIIQ==<Z >		
	A (<B>,C,D)A (<4,+4 I_~
	$M%BMIIi==<Z >		
	A (<B>,C,D)A (<6 Y pig
	$MD%DMDq	==<Z >		
	A (<B>,C,D)A (<6 YV p	g
	$MD%FLGp)==<Z >		
	A (<B>,C,D)A (<6,:2 uag2
	$MECID=v=<Z .MECID>		
	v A (<B>,.MECIDC,D)B>,.MECIDC,6,k sYg!
	$MEFLG=sy=<Z .METYP>		
	tA (<B>,.METYPC,D)B>,.METYPC,6,lU qIg
	$MEFRK=qi=<Z .MEFRK>		
	rA (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 rQg
	$MELEN=rq=<Z .MEFRK>		
	sA (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 tYg)
	$METYP=ty=<Z .METYP>		
	uA (<B>,.METYPC,D)B>,.METYPC,6@Hr QQn
	$MH$CDTay==<Z .MHTYP>		
	bA (<B>,.MHTYPC,D)B>,.MHTYPC6@I din*
	$MH$DCIe	==<Z .MHDCI>		
	e(A (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 gynC
	$MH$MCRh==<Z .MHSTS>		
	h8A (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 bYn
	$MH$MSGby==<Z .MHTYP>		
	cA (<B>,.MHTYPC,D)B>,.MHTYPC6@L j	nT
	$MH$PKLj)==<Z .MHPKL>		
	jHA (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq eqn3
	$MH$SCIf==<Z .MHSCI>		
	f0A (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv inL
	$MH$SMCi!==<Z .MHSTS>		
	i@A (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz fyn;
	$MH$STSg==<Z .MHSTS>		
	g8A (<B>,.MHSTSC,D)B>,.MHSTSC6@M can"
	$MH$TYPd==<Z .MHTYP>		
	d A (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ Sam"
	$PKDRV=T=<Z .PKRSV>		
	T A (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 [m]
	$PKMAI=[1=<Z .PKPST>		
	[PA (<B>,.PKPSTC,D)B>,.PKPSTC,B^

W \me
	$PKPRND\1==<Z .PKPST>		
	\PA (<B>,.PKPSTC,D)B>,.PKPSTCB^

Y ZmU
	$PKPRSTZ1==<Z .PKPST>		
	ZPA (<B>,.PKPSTC,D)B>,.PKPSTCB^8p Tim*
	$PKSCA=U	=<Z .PKRSV>		
	U(A (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q RYm
	$PKSRB=Ry=<Z .PKRSV>		
	SA (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 YmM
	$PKTYP=Y1=<Z .PKTYP>		
	YPA (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ Uqm3
	$PKVRT=V=<Z .PKRSV>		
	V0A (<B>,.PKRSVC,D)B>,.PKRSVC,JYV ~!gv
	$RBUFMG~A==<Z RNGSW>		
	~`A (<B>,RNGSWC,D)B>,RNGSWC,J$J XQeI
	$RDDHT=Xq=<Z .RDDHT>		
	YA (<B>,.RDDHTC,D)B>,.RDDHTC,J$J YYeQ
	$RDDHV=Yy=<Z .RDDHV>		
	ZA (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz VAe8
	$RDDST=Va=<Z .RDDST>		
	WA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ WIe@
	$RDDSV=Wi=<Z .RDDSV>		
	XA (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y T1e'
	$RDMDG=TQ=<Z .RDMDG>		
	TpA (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 U9e/
	$RDMMS=UY=<Z .RDMMS>		
	UxA (<B>,.RDMMSC,D)B>,.RDMMSC,J&y S)e
	$RDPORTSI==<Z .RDSTS>		
	ShA (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy G9e
	$RDVCSTRI==<Z .RDSTS>		
	RhA (<B>,.RDSTSC,D)B>,.RDSTSCJMm Ah
	$RINTLKa==<Z RNGSW>		
	A (<B>,RNGSWC,D)B>,RNGSWC,Jty; zgT
	$RNGEVCz!==<Z .REECL>		
	z@A (<B>,.REECLC,D)B>,.REECLCJtz xqgK
	$RNGHEDy==<Z .REHED>		
	y0A (<B>,.REHEDC,D)B>,.REHEDCJt{ {g\
	$RNGLEN{!==<Z .REECL>		
	{@A (<B>,.REECLC,D)B>,.REECLCKu )g~
	$RPACKTI==<Z RNGSW>		
	hA (<B>,RNGSWC,D)B>,RNGSWC,K 1h
	$RPITRNQ==<Z RNGSW>		
	pA (<B>,RNGSWC,D)B>,RNGSWC,KV ih"
	$RPQFLK	==<Z .REPQF>		
	(A (<B>,.REPQFC,D)B>,.REPQFCKV qh+
	$RPQFMG==<Z .REPQF>		
	0A (<B>,.REPQFC,D)B>,.REPQFCK- 9h
	$RPRTQUY==<Z RNGSW>		
	xA (<B>,RNGSWC,D)B>,RNGSWC,K89 }gm
	$RSCASY}9==<Z RNGSW>		
	}XA (<B>,RNGSWC,D)B>,RNGSWC,Kq |ge
	$RSYSCA|1==<Z RNGSW>		
	|PA (<B>,RNGSWC,D)B>,RNGSWC,N: 9ycS
	$SBCHN=:=<Z .SBDSP>		
	:8A (<B>,.SBDSPC,D)B>,.SBDSPC,NL :yc[
	$SBDPA=;=<Z .SBDSP>		
	;8A (<B>,.SBDSPC,D)B>,.SBDSPC,NL DQd)
	$SBDPS=Dq=<Z .SBDPS>		
	EA (<B>,.SBDPSC,D)B>,.SBDPSC,NLX EQd1
	$SBDRP=Eq=<Z .SBDPS>		
	FA (<B>,.SBDPSC,D)B>,.SBDPSC,NLX <cd
	$SBDRQH<!==<Z .SBDRQ>		
	<@A (<B>,.SBDRQC,D)B>,.SBDRQCNM B)d
	$SBDTHWBI==<Z .SBDHT>		
	BhA (<B>,.SBDHTC,D)B>,.SBDHTCNM @d
	$SBDTSW@9==<Z .SBDST>		
	@XA (<B>,.SBDSTC,D)B>,.SBDSTCNMT C1d
	$SBDVHWCQ==<Z .SBDHV>		
	CpA (<B>,.SBDHVC,D)B>,.SBDHVCNMY A!d
	$SBDVSWAA==<Z .SBDSV>		
	A`A (<B>,.SBDSVC,D)B>,.SBDSVCNk !d7
	$SBFLG=FY=<Z .SBFLG>		
	FxA (<B>,.SBFLGC,D)B>,.SBFLGC,Nks IqdS
	$SBFOFLJ==<Z .SBFLG>		
	J0A (<B>,.SBFLGC,D)B>,.SBFLGCNk{ HidJ
	$SBFOVCI	==<Z .SBFLG>		
	I(A (<B>,.SBFLGC,D)B>,.SBFLGCNm GadB
	$SBFTMGH==<Z .SBFLG>		
	H A (<B>,.SBFLGC,D)B>,.SBFLGCNK1 =	cl
	$SBLMBH=)==<Z .SBLMB>		
	=HA (<B>,.SBLMBC,D)B>,.SBLMBCN^ ?c}
	$SBMXDG?1==<Z .SBMMS>		
	?PA (<B>,.SBMMSC,D)B>,.SBMMSCN^ >cu
	$SBMXMG>1==<Z .SBMMS>		
	>PA (<B>,.SBMMSC,D)B>,.SBMMSCNm 5ac2
	$SBNTC=6=<Z .SBVCS>		
	6 A (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ Kadb
	$SBOBB=L=<Z .SBOBB>		
	L A (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw 6ic:
	$SBOKO=7	=<Z .SBVCS>		
	7(A (<B>,.SBVCSC,D)B>,.SBVCSC,N<z {IdY
	$SBSST=Jy=<Z .SBSST>		
	KA (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy 8qcK
	$SBVCST9==<Z .SBVCS>		
	90A (<B>,.SBVCSC,D)B>,.SBVCSCNyT 7qcC
	$SBWFI=8=<Z .SBVCS>		
	80A (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ {q_a
	$SID==<|Z >		
	A (<B>,C,D)A (<B>,OX] ]!mn
	$SRMBZ=]A=<Z .SRRSV>		
	]`A (<B>,.SRRSVC,D)B>,.SRRSVC,OY `9n
	$SRMDG=`Y=<Z .SRMMS>		
	`xA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 _1m
	$SRMMG=_Q=<Z .SRMMS>		
	_pA (<B>,.SRMMSC,D)B>,.SRMMSC,OlY ^)mv
	$SRVRS=^I=<Z .SRRSV>		
	^hA (<B>,.SRRSVC,D)B>,.SRRSVC,V |Y_g
	$UBITS=|y=<Z >		
	A (<B>,C,D)A (<Bbuh6 nft
	$XNNAM=n!=<Z .XNNAM>		
	n@A (<B>,.XNNAMC,D)B>,.XNNAMC,bun kqfc
	$XNNXT=l=<Z .XNNXT>		
	l0A (<B>,.XNNXTC,D)B>,.XNNXTC,bv

[ lyfk
	$XNPRV=m=<Z .XNPRV>		
	m8A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= o	f|
	$XNSTK=o)=<Z .XNSTK>		
	oHA (<B>,.XNSTKC,D)B>,.XNSTKC,;] 7kE
	  IFGE 71<<<B>&777777>-..7PBSIZ>,<
		PRINTX7p ?WORD offset gre8ater than $BUILD 80size parameter>
8P	  SET0. (\<B>,C,<A>)
	B>,;LH /k	
	IFNDEF /1C,<PRINTX C IS /PNOT DEFINED
	  /pA (<B>,D,FWMASK0)>	
	IFDEF C,<
	IFNDEF %C,<
	0P  A (<B>,D,C)0p>	
	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