Google
 

Trailing-Edge - PDP-10 Archives - bb-penea-bm - t20sub/anaunv.unv
There are 32 other files named anaunv.unv in the archive. Click here to see a list.
x
,U@P C;BP (C;BP ,E
eQ xEv@Q E
L@QE}@Q:E@E;ZP EH2P E]4P EkP E>Q xE|P E
L@Q E&mQ E&'P'E7`P'EC& Q EC&( P'EC&,Q ~EC&,`Q |ER Q xESQ EW`P'EWpQ  E^hQ G"\ "pB!V
IFB  <A#52>,<	LOCAL <PARAMS#5R>		>
IFNB <A>,<#5r	LOCAL <PARAMS,A$j>	>
	LALL
DEFIN$E LH<0(PARAMS)>
$(DEFINE LP<1(PARAM$HS)>
DEFINE FH<2($hPARAMS)>
DEFINE $FP<3(PARAMS)>
DE$(FINE JCN<4(PARAMS$H)>
DEFINE WILDOK$h<5(PARAMS)>
DEFI$NE FN<6(PARAMS)>
DEFINE ARG1<7(PA$HRAMS)>
DEFINE AR$hG2<10(PARAMS)>
	SALL
RAMS)>
	G"\ $*!^
	PURGE L$JH,LP,FH,FP,JCN,WI$hLDOK,FN,ARG1,ARG2
	RESTORE
RG2G"\P G6<`Q xG6yQ ?`G6>x Q xG6L@Q `G7L@Q @G7\ Q xG7&;`Q xG7&<@Q xG7&=Q xG7'Q @GCM|P @GfJ6P IP'I6=  
	A==<-1@B<C>+1B<C-D>> `
	IF1,<IFDEF %A,<PRINTX ?A ALRE ADY DEFINED>>
	D@EFINE %A (OP,AC,`Y,MSK)<
	$A==<Z B>		
	OP (<AC>,B'Y,MSK)><AC>I6|R $5:#s	IF1 <IFDE$6F A,<PRINTX ? Mu$5Zltiply defined of$5zfset in DEFWRD>>

;Make symbol p$;zrintable or not d$<epending on if ov$<8erlaps AC's

	$<XA==:..OFST			;Set$<x value as offset $=into table
	IFB $=8<B>,<..OFST==..O$=XFST+1>	;Increment$=x offset
	IFNB <$>B>,<..OFST==..OFS$>8T+B> ;Incrment by buffer size
I0@ Id`Q IB^LQ xIC&(`Q IOQ xIRMY P'IT,lSP IT-
zP IT-i:P IT.
WP IT.
ZP IT.<SP IWP J:P @KP PK P @K3P pK3 P `K:%|P KKP KbN@ ">*t
	IFN $AC">JVNM,<JRST A>
	IFE $ACVNM,<RET>M&v({P M&v;ZP M.E|zP ~MHP MJm8Q  MPt(xP O ,XQ @O ,K1Q  O'8 "%2+%Lh<C>B1!<B>B5!<A>B35!<B
,g}0PR0S,+]0ER O\,8P O\,M6P O\-
zP O\.
VP O^<}P O^E`Q ?@O^L=P'O_Q  O_`Q 8O_'Q O_.Q @Q"mQ Q'L}P Q2&,}P QNnQ QO$yP QO%P'QO%\uQ QO%iP'QO%j1Q @QO%k8Q xQO&MQ xQR~KQ QSHZP @QSH[XP SEQ ~SF=Q ~SM\P!Se}`P SmP!St]Q |ShYP ShY1P ShY9P ShZ8P ShZ9P Sh\P Sh\RP Sh\xP Sh]P Sh]P Sh]P SpP  S"
L@Q S"@ "z2M
	MOVEI C"zX,2(A)
	ADDI CX"yR,0(B)
	AOS 0(CX)B)
	AOS 0(CXS"6N Q @S"F=Q |S"FD@P S"FN Q xS"M\Q S"dI@P!pS"d[@Q ?pS"ej`P S"m@Q xS"nN P xS"t]Q ?`S#D P S#N Q @S2&,}P S78tP S7
8Q @S;
@Q ?`S;l@Q xS;%KUP MS;%m6Q xSB~
  OPTION"FB(I,END,,^D0,^D1,"GA,B,C)
  OPTIO"G"N(I,NOP,,^D1,^D1,"TBA,B,C)
  OPTI"l"ON(I,LSR,C,^D3,^D"l@7,A,B,C)
  OP"l`TION(I,RRT,,^D7,^"mD7,A,B,C)
  O"m PTION(I,SID,C,^D8"m@,^D4,A,B,C)
 "m` OPTION(I,SSR,,^D"n9,^D7,A,B,C)
"n   OPTION(I,STY,C,"n@^D2,^D11,A,B,C"n`)

  OPTION(I,T"oSP,,^D68,^D8,A,B,C)

8,A,SSH[P Up@ X:P  Y
e|P YmQ Yf
zP Y&'Q Y2}<@Q Y:e<@P'Y> "+Jp
	IFG $AC"+jVNM,<	$IPMSG(\.,<",?LOCAL: Missing R",(ESTORE>,\$ACVNM)
			$ACVNM==0>
	",hIRP A,<	IFGE $AC"-VNM-NLOCLS,<$IPMS"-(G(\.,<?Too many L"-HOCALs>)>
			$DFA"-hCL(A,\<$ACVNM>)
			$ACVNM==$ACVNM+1>CVNM==$ACVNY><}P Y>e<@Q xYO|P AY^~)Q []hz $V+G

;The f$V:ollowing section $VXis the same among$Vx all NCT's
.NCT$WB=:.			;Set addre$W8ss of this NCT
	$WXEXP	0		;Link word$Wx to next NCT in l$Xist
				;(filled$X8 in by MNTINI)
N$XXCTNUM==NCTNUM+1		$Xx;Increment number$Y of NCTS defined

	XWD	NT.TYP,NT$YX.DEV	;Protocal an$Yxd device codes
	$ZEXP	NT.NUM		;Net $Z8index
NT.NUM==NT$ZX.NUM+1		;incremen$Zxt net index
	EXP$[	-1		;Internet ne$[8twork number (not$[X yet set)
	EXP	-$[x1		;Internet Addr$\ess of this inter$\8face
	EXP	0		;Lo$\Xgical host mask f$\xor this network
$]IFB  <C>,<XWD 37$]87777,-1>	;Maximum$]X packet size
IFN$]xB <C>,<EXP C>		$^;Maximum packet s$^8ize

;NCP/$^XAN20  MAKSAV  MAC$^xRO  Creates  an  $_interrupt  AC  sa$_8ve and dispatch
$_X;routine in the c$_xurrent NCT at the$` current location$`8. Uses The follow$`Xing
;locations ($`xwhich therefore m$aust be defined fo$a8r  that  net  typ$aXe).  The
;argume$axnt  PDP  is the a$bddress of a Push $b8down pointer for $bXthis routine.
;D$bxISP is the offset$c of the dispatch $c8address.

DEFIN$cXE MAKSAV(PDP,DISP$cx)
<	MOVEM P,.NCT$dB+NTSVAC+17	;Sav$d8e P
	MOVEI P,.NC$dXTB+NTSVAC	;Where$dx the AC's go
	BL$eT P,.NCTB+NTSVAC$e8+16	;Save all
	M$eXOVE P,PDP			;Set $exnew P
	XMOVEI P1$f,.NCTB		;Point t$f8o NCT
	CALL	@DIS$fXP(P1)		;And Goto $fxroutine
>					;E$gnd of MAKSAV
$g8
;MAKRES  -  Mak$gXe  a 3 word AC re$gxstore , dismiss i$hnterrupt routine.$h8 AC's
;are assum$hXed stored at NTSV$hxAC. Arg PCW is th$ie address of the $i8 interrupt
;PC.

DEFINE	MAKRES($ixPCW)
<	MOVSI P,.$jNCTB+NTSVAC	;Fro$j8m there to 0
	BL$jXT P,P				;Restore$jx all AC's
	XJEN $k.NCTB+PCW		;And $k8dismiss the inter$kXrupt
>					;End $kxof MAKRES MACRO
$l
IFE <<NT.TYP-NT$l8.NCP>!<NT.DEV-NT.$lXANX>>,<

	ANI==$lxANXA		;[9115] In$mput device addres$m8s
	ANO==ANXA+4	$mX	;[9115] Output s$mxide address

	C$nONSZ ANI,(T1)		;N$n8TCNSZ - CONSZ INP$nXUT
	CONSO ANI,(T$nx1)		;NTCNSO - CON$oSO INPUT
	CONO A$o8NI,(T1)		;NTCONO $oX- CONO INPUT
	CO$oxNI ANI,T1		;NTCON$pI - CONI INPUT
	$p8DATAO ANI,T1		;NT$pXDATO - DATAO INPU$pxT
	DATAI ANI,T1	$q	;NTDATI - DATAI $q8INPUT
	NCTDSP AN$qXXINI		;NTINI  - I$qxNITIALIZATION INS$rTRUCTION
	NCTDSP$r8 ANXKIL		;NTKILL $rX- SHUTDOWN INSTRU$rxCTION
	NCTDSP AN$sXRSS		;NTRSRT - R$s8ESTART INSTRUCTIO$sXN
	NCTDSP ANISRT$sx		;NTISRT - START$t INPUT INSTRUCTIO$t8N
	NCTDSP ANOSRT$tX		;NTOSRT - START$tx OUTPUT INSTRUCTI$uON
	NCTDSP IMPEI$u8N		;NTIDUN - INPU$uXT DONE DISPATCH
$ux	NCTDSP IMODUN		;$vNTODUN - OUTPUT D$v8ONE DISPATCH
	NC$vXTDSP IMPHDR		;NTL$vxLDR - MAKE HEADER$w INSTRUCTION
	NC$w8TDSP RSKP		;NTOTO$wXK - CLEAR PACKET $wxFOR OUTPUT
	NCTD$xSP R		;NTMAIN - M$x8AINTAINANCE
	NCT$xXDSP ANXSCK		;NTSC$xxHK - STATUS CHECK$y INSTRUCTION
	BL$y8OCK NTINTT-NTIB	;$yX[9175] NTIB throu$yxgh NTRDY
	SIXBIT$z/AN20/		;[9175] N$z8TINTT - Interface$zX type
	BLOCK NTO$zxCNO-NTORDY	;[9175${] NTORDY through ${8NTOTYP
	CONO ANO${X,(T1)		;NTOCNO - ${xCONO OUTPUT
	CON$|I ANO,T1		;NTOCNI$|8 - CONI OUTPUT
	$|XCONSO ANO,(T1)		;$|xNTOCSO - CONSO OU$}TPUT
	CONSZ ANO,$}8(T1)		;NTOCSZ - C$}XONSZ OUTPUT
	DAT$}xAO ANO,T1		;NTODT$~O - DATAO OUTPUT
	DATAI ANO,T1		;$~XNTODTI - DATAI OU$~xTPUT
	XPCW .+1		$;NTIINT - INTERRU$8PT INSTRUCTION
	$XBLOCK 2			;NTIPCW$x - INTURRUPT PC S%TORAGE
	EXP 0			%8;NTINPC - NEW FLA%XGS (INPUT)
	XCDS%xEC,,.+1		;       %  NEW PC (INPUT S%8AVE)
	MAKSAV (IM%XPDPA,NTIDSP) ;[9%x115] NTIISV - 6 w%ords of AC save r%8outine
	MAKRES (%XNTIPCW)		;NTIIRS %x- 3 WORDS OF AC R%ESTORE ROUTINE
	%8XPCW .+1	       	%X;NTOINT - INTERRU%xPT INSTRUCTION
	%BLOCK 2			;NTOPCW%8 - PC STORAGE
	E%XXP 0			;NTONPC - %xNEW FLAGS
	XCDSE%C,,.+1		;        %8 NEW PC (OUTPUT S%XAVE)
	MAKSAV (IM%xPDPA,NTODSP) ;[9%115] NTIOSV - 6 w%8ords of AC save
%X	MAKRES (NTOPCW)	%x	;NTIORS   3 WORD%S OF AC RESTORE
%8	BLOCK 20		;NTSVA%XC - AC storage
	%xPURGE ANI,ANO		;[%9115] Zap junk sy%8mbols
>				;End %Xof NCP/ANX condit%xional
;IPNI N%	CT defifition

%	8IFE <<NT.TYP-NT.N%	XUN>!<NT.DEV-NT.NI%	xP>>,<

	JFCL   %
       		;NTCNSZ %
8- CONSZ Input
	J%
XFCL          		;N%
xTCNSO - CONSO Inp%ut
	JFCL        %8  		;NTCONO - CON%XO Input
	JFCL   %x       		;NTCONI %
- CONI Input
	JF%
8CL          		;NT%
XDATO - DATAO Inpu%
xt
	JFCLNTDATI - %ATA%
	NCTDSP	%;NTINIn -%nstruction
	NCTD%8SP NIPKIL		;NTKIL%XL - Shutdown inst%xruction
	NCTDSP %NIPRST		;NTRSRT -%8 Restart instruct%Xion
	NCTDSP R   %x  		;NTISRT - Sta%rt input instruct%8ion
	NCTDSP NIPS%XTO		;NTOSRT - Sta%xrt output instruc%tion
	NCTDSP R  %8   		;NTIDUN - In%Xput done dispatch%x
	NCTDSP R      % 		;NTODUN - Outp%8ut done dispatch
	NCTDSP NIPHDR		%x;NTLLDR - Make he%ader instruction
	NCTDSP RSKP		;N%XTOTOK - CLear pac%xket for output
	%NCTDSP R      		;%8NTMAIN - Maintain%Xance
	NCTDSP NIP%xSTA		;NTSCHK - St%atus check instru%8ction
	BLOCK NTI%XNTT-NTIB	;[9175] %xNTIB through NTRD%Y
	SIXBIT/IPNI/	%8	;[9175] NTINTT -%X Interface type
%x	BLOCK NTSVAC-NTO%RDY	;[9175] NTORD%8Y through NTIORS

>				;End of N%xIN/NIP conditiona%l

;[9135] IPNI%8A NCT defifition

IFE <<NT.TYP-N%xT.NUN>!<NT.DEV-NT%.NIA>>,<	;[9135] %8IPNIA psuedo devi%Xce
	JFCL        %x  		;[9135] NTCNS%Z - CONSZ Input
%8	JFCL          		%X;[9135] NTCNSO - %xCONSO Input
	JFC%L          		;[91%835] NTCONO - CONO%X Input
	JFCL    %x      		;[9135] N%TCONI - CONI Inpu%8t
	JFCL         %X 		;[9135] NTDATO%x - DATAO Input
	%JFCL          		;%8[9135] NTDATI - D%XATAI Input
	NCTD%xSP NIAINI		;[9135%] NTINI  - Initia%8lization instruct%Xion
	NCTDSP NIAK%xIL		;[9135] NTKIL%L - Shutdown inst%8ruction
	NCTDSP %XNIARST		;[9135] N%xTRSRT - Restart i% nstruction
	NCTD% 8SP R     		;[9135% X] NTISRT - Start % xinput instruction%!
	NCTDSP NIASTO	%!8	;[9135] NTOSRT -%!X Start output ins%!xtruction
	NCTDSP%" R     		;[9135] %"8NTIDUN - Input do%"Xne dispatch
	NCT%"xDSP R       		;[9%#135] NTODUN - Out%#8put done dispatch%#X
	NCTDSP NIAHDR	%#x	;[9135] NTLLDR -%$ Make header inst%$8ruction
	NCTDSP %$XRSKP		;[9135] NTO%$xTOK - CLear packe%%t for output
	NC%%8TDSP R      		;[9%%X135] NTMAIN - Mai%%xntainance
	NCTDS%&P NIASTA		;[9135]%&8 NTSCHK - Status %&Xcheck instruction%&x
	BLOCK NTINTT-N%'TIB	;[9175] NTIB %'8through NTRDY
	S%'XIXBIT/IPNIA/		;[9%'x175] NTINTT - Int%(erface type
	BLO%(8CK NTSVAC-NTORDY	%(X;[9175] NTORDY th%(xrough NTIORS
>		%)		;[9135] End of %)8NIN/NIA condition%)Xal

;IPCI nc%)xt definition

	%*IFE <<NT.TYP-NT.N%*8UN>!<NT.DEV-NT.CI%*XP>>,<

	JFCL   %*x       		; NTCNSZ%+ - CONSZ Input
	%+8JFCL          		;%+X NTCNSO - CONSO I%+xnput
	JFCL      %,    		; NTCONO - %,8CONO Input
	JFCL%,X          		; NTC%,xONI - CONI Input
	JFCL          	%-8	; NTDATO - DATAO%-X Input
	JFCL    %-x      		; NTDATI %.- DATAI Input
	N%.8CTDSP CIPINI		; N%.XTINI  - Initializ%.xation instruction%/
	NCTDSP CIPKIL	%/8	; NTKILL - Shutd%/Xown instruction
%/x	NCTDSP CIPRST		;%0 NTRSRT - Restart%08 instruction
	NC%0XTDSP R     		; NT%0xISRT - Start inpu%1t instruction
	N%18CTDSP CIPSTO		; N%1XTOSRT - Start out%1xput instruction
%2	NCTDSP R     		;%28 NTIDUN - Input d%2Xone dispatch
	NC%2xTDSP R      		; N%3TODUN - Output do%38ne dispatch
	NCT%3XDSP CIPHDR		; NTL%3xLDR - Make header%4 instruction
	NC%48TDSP RSKP		; NTOT%4XOK - CLear packet%4x for output
	NCT%5DSP R      		; NT%58MAIN - Maintainan%5Xce
	NCTDSP CIPST%5xA		; NTSCHK - Sta%6tus check instruc%68tion
	BLOCK NTIN%6XTT-NTIB	;[9175] N%6xTIB through NTRDY%7
	SIXBIT/IPCI/		%78;[9175] NTINTT - %7XInterface type
	%7xBLOCK NTSVAC-NTOR%8DY	;[9175] NTORDY%88 through NTIORS
%8X>				; End of IPC%8xIN/CIP conditional

conditiona[^XCDSEC,,.NCTAXCDSEC,,.N[EyP [EIP [F98Q [FKyP [&uP 
[&vJP 
[.t= $@z%-	XALL			;S$Ahow the lines tem$A8porarily
NT.NUM=$AX=0			;Start with $AxInterface 0
NCTN$BUM==0			;Start ou$B8t at zero
DV.NUM$BX==0			;Back to nu$Bxmber 0
IFN ANXN,$C<			;[9115] Is th$C8is balanced now
$CXNT.TYP==NT.NCP			$Cx;Network Type is $DNCP
NT.DEV==NT.A$D8NX			;Device type$DX AN20
REPEAT ANX$DxN,<			;[9115] For$E all AN20s
	MAKN$E8CT(\DV.NUM,\NCTNU$EXM,^D576) ;[9115] $ExMake that type NC$FT for AN20
	DV.N$F8UM==DV.NUM+1	;[91$FX15] Step to next $Fxdevice if any
>	$G			;[9115] End of$G8 REPEAT ANXN
>		$GX		;[9115] End of $GxIFN ANXN
IFN IPN$HIN,<			;[9115] If$H8 NIA20 support
N$HXT.TYP==NT.NUN			;$HxNo local protocol$I 
NT.DEV==NT.NIP$I8			;Device type I$IXPNI
MAKNCT(\DV.N$IxUM,\NCTNUM,^D576)$J	;Make that type $J8NCT
DV.NUM==DV.N$JXUM+1		;[9115] Cou$Jxnt up the NCT num$Kber used
>				;[$K89115] End of IFN $KXIPNIN

IFN IPNI$KxAN,<			;[9135] If$L NIA20 alternat a$L8ddress support
N$LXT.TYP==NT.NUN			;$Lx[9135] No local p$Mrotocol 
NT.DEV=$M8=NT.NIA			;[9135]$MX Device type IPNI$Mx alternate addres$Ns
REPEAT IPNIAN,$N8<			;[9135] For e$NXach of these devi$Nxces
	MAKNCT(\DV.$ONUM,\NCTNUM,^D576$O8) ;[9135] Make th$OXat type NCT
	DV.$OxNUM==DV.NUM+1	;[9$P135] Count up the$P8 NCT number used
	>			;[9135] End$Px of REPEAT IPNIAN$Q
>				;[9135] En$Q8d of IFN IPNIAN
$QX
IFN IPCIN,<			;$Qx[9115] If CI20 su$Rpport
NT.TYP==NT$R8.NUN			;No local $RXprotocol 
NT.DEV$Rx==NT.CIP			;Devic$Se type IPCI
MAKN$S8CT(\DV.NUM,\NCTNU$SXM,^D576)	;[9115] $SxMake that type NC$TT
DV.NUM==DV.NUM$T8+1		;[9115] Count$TX up that NCT numb$Txer
>				;[9115] $UEnd of IFN IPCIN
	SALL			; Again $UXsuppress expansions
ss expansio[/LY %9:+S
..TMP==0%9Z			;Start at NCT %9x#0
REPEAT %NETS,%:<
	MAKPTR(\..TMP%:8)
	..TMP==..TMP+1>
TMP==..TMP+[/<: "&
2
	ROT T2,"&*-^D9
	LSHC T1,^D27
	HRRI T1,A[;$86 $>z#wCALL @A(P1)CALL @A(P[;%,Y $?:#{JRST @A(P1)JRST @A(P[;'z $?z#XCT A(P1)XCT A(P1)[>&98 #"BTLZ A,(-MAXSEQ)LZ A,(-M[Ne|P [b>z1P ]
>@P']Y Q x]$Lx $@:$XCDSEC,,<A&777777>EC,,<]8 r@
   IFNDEraF A,<
	A==:B>A,<
	A==:B>]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 "?j0
	TXNN	B"?J,.NETCA		; Class "?*A network?
	 JRS"?
T	[LOAD	A,NETCA,"D"+B	; Get number
		 JRST	c]
	TX"D`NN	B,.NETCB		; C"Elass B?
	 JRST	["E LOAD	A,NETCB,+B"E@
		 JRST	c]
	L"E`OAD	A,NETCC,+B	"F	; Must be class C
c:!e class ]%{@P ]"YP ]&EYP ]&EZP ]2|;P ]?|P ]?&>7P ]Pt\P ]Pt:8P ]PuhxP ]Puj0P ]Puj7P ]Puj8P ]Pum7P ]Q
zP ]RiVP ]RlwP ]Rl}P ]R{TP ]R{WP ]R$P ]R$P ]R$]@P']R-\P ]R.,SP ]R5L`P ]RExTP ]RExWP ]RL P 
]RLLxP 	]RMZP ]RMYP #]RM{P  ]RMj P ]RMlP ]RMlP ]RMmP ]RMxTP ]RMxWP ]RM|YP *]RM|{P ']RN{P ]RN<ZP ]RNN8P ]RN\P ]R]P ]RdP ]ReIP 
]Rej`Q ]RexTP ]RexWP ]Rl7P ]Rt]P ]RuJP ]Ru|P ]Rv[ P']R| P 
]R|;TP ]R|;WP ]R|<wP ]R|<}P ]R|LxP &]R~{P %]R~)P ]R~<ZP ]R~KuP 
]R~N8P ]R~\P ]S*7P ]S:=P ]SN P ]S<ZP ]S:P ]SHtP ]Sh1P ,]S%}:P ]S'Q x]SDKZP ]SF\P _,P _C%w "o"~
IFDIF <#5C>,<C>,<	BOPT=="oBD	>
IFIDN <C>,<"obC>,<	BOPT==CPYOPT+D	>
==CPYOP`:P`H@Q`L@a`P@`T@Qa0Qaa<`Qaxa%@Qaa@QPaQ@xa}@Qaa\QPaM`QaPad|`QPa@Qaa&<`QPxa&$`Qaa&%Qaxa&%pQa@a&5I`Qaa&5pP#xa&F+Qa&FL@Qa&dN Qa&l`P$a&vKQa'@Q xa'(`Q 8a'+`Q ?`a'Q xa'Q `a'%|`Q ?`a'&KQ @a'4\@Q xa/ @ a/$[P a/$kP a/&P a/&:4P a2K`Q @a2\9Q  a:d;Q a? |a<^L<<A>&<-<A>>>><<A>&<a@(]YQ a@,J`Q a@,M7Q a@,yQ a@,|yQ  a@-]Q @a@.
	.X==B
	"pb		IRP C,<.X==.X+"q"PT%%C>
			PT%A==.X>
			PT%AaP(Y4Q aP(Y7Q aP(Y9Q aP(Y:Q aP(YsP @aP(Y{P aP(Z1P  aP(Z7P  aP(Z8P aP([Q  aP([Q @aP([Q aP([Q aP([ZP aP([zP @aP(\|P aP(]P"aP(]8P!aP(]9P aP(]QQ aP(]SQ @aP(]TQ aP(]TQ aP(]WQ  aP(]XQ aP,.8Q 
NaP,9Q ",aP,:qQ "%aP,:yQ "%aP,:zQ "'aP,:|Q "'aP,J3Q 
2aP,yQ B,aP,zqQ B%aP,zyQ B%aP,zzQ B'aP,z|Q B'aP-Q ,aP-Q WaP-YQ 
MaP-qQ %aP-xQ 'aP-3Q LaP-8Q 7aP-PQ 
2aP-8yQ 
%aP-9Q 
JaP-9Q 
&aP-9YQ 
HaP-:0Q 
IaP-:7Q 
IaP-:8Q 
$aP-:9Q 
(aP-::Q 
(aP-<Q 
HaP.3Q 
0aP.Q 
LaP.)tQ 
WaP.){Q 
,aP.H1Q @aP.H5Q @aP.HRQ 8aP.HuQ AaP.IQ B,aP.IQ 
2aP.IQ RaP.I9Q DaP.J2Q 
8aP.J7Q NaP.J9Q 
@aP.J9Q !aP.J:Q #aP.JqQ 
%aP.JrQ 
&aP.JwQ 
'aP.JyQ 
$aP.JyQ 
&aP.JzQ 
(aP.J|Q 
'aP.KuQ !aP.KwQ .aP.KyQ AaP.LQ XaP.L9Q 
0aP.L<Q PaP.LPQ 1aP.LRQ ,aP.LYQ 
 aP.L\Q LaP.LqQ BaP.LrQ WaP.LvQ "aP.LzQ  aP.MQ 
/aP.YQ ,aP.YQ AWaP.ZxQ 	DaP.ZxQ 	'aP.ZyQ 	(aP.ZzQ 	(aP.\0Q !aP.\2Q AaP.\7Q 	LaP.\:Q 7aP.\UQ ,aP.\uQ WaP/P aP/P aP/	P aP/	P aP/
P aP/
P aP/P aP/P aP/
PaR<`Q`aRKQ?`aR%pQ xaR8Q aSQ aS6@P'aWpQ aW|Q xaW&91 "zHRLZI A,BHRLZI A,a^tK`Q xac Q c:/
zP e-i:P e.LtP e.LwP eKy "<*l
	IFLE $A"<JCVNM+$STVNM+$TMVN"<hM,<$IPMSG(\.,<?Ex"=tra RESTORE macro"=(>,\$ACVNM,\$STVNM"=H,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg "RHRLI A,BHRLI A,Bg&%|P Dg;I8Q gO|P gR
:v "5j@
	IFG $AC"6
VNM+$STVNM,<	$IPM"6(SG(\.,<?STACKL: M"6Hissing RESTORE>,\"6h$ACVNM,\$STVNM)
"7				$ACVNM==0
		"7(		$STVNM==0>
	IR"7HP A,<	$STKL1(A)"7h>
	JSP CX,.TRSET"8##
	$STVNM,,$STVNM	$STVNM,,$STVgSHYQP gSH]1P gSM|P AgftVP gft92P gfv({P gfv;ZP iI\P'i@ i`P i@P #i P (iHuP i
1P i
3P,iP8iP:iPIiPPKi\PLi(XPLP2iLPP iL\P iM P 7i$&Q i$=`Q i$l`Q i$y Q i${@Q i%
`Q i&\@Q i&}Q @iYQ iY1Q @iY6Q iY9Q @i[Q  i\Q i\Q i]9Q  i]vQ i(t@ Ai(w@ AilP i| #%
  OPTION#b(I,END,,^D0,^D1,#&2A,B,C)
  OPTIO#&RN(I,NOP,,^D1,^D1,#3rA,B,C)
  OPTI#4ON(T,MSL,,^D2,^D4#40,A,B,C)
  OPT#4PION(T,LBL,,^D33,^D4,A,B,C)
^i$,`Q xi&< P'i.-`Q i=iQ i,0P"i.-P i.MP in "0j 
	IFG $TM"1
VNM+$STVNM+$STVNM"1(,<	$IPMSG(\.,<?TE"1HMP: Missing RESTO"1hRE>,\$ACVNM,\$STV"2NM,\$TMVNM)
				"2(	$STVNM==0
					"2H$TMVNM==0
					$"2hACVNM==0>
	IRP "3A,<	IFGE $TMVNM-N"3(TEMPS,<$IPMSG(\.,"3H<?Too many TEMPs>"3h)>
			$DFTMP(A,"4\<$TMVNM>)
			$TMVNM==$TMVNM+1>i)@Q xi+@P'i Q @i)@Q xi-P$i@Q iD0Q iQ i&4I@Q @i&~	@P'i'K`Q i'|@Q |i'} Q xi*`P'i*5`P'i*L( @ @i*L) @ @i*|( @ ?i*|)@@ ?i2@Q i3Q i6,`Q i6v-Q i7F-Q i;,k P$i>6*`P'i?jQ i?lQ xi?JQ i?i@Q `i?=l@Q xiBL8 P iBL9 P'piBL<@Q |iBL<`Q xiBL= Q ~iBL>P `iBLh P'iBLi P'iBLl@P'iBLl`Q xiBLm Q xiBLnQ xiB^@@ iC4 Q xiC4@P'iC`Q iJ0Q iJ P'iJ. Q iJmQ piJN0Q iJd`Q iJdmQ iJf{@Q iJo
Q xiKQ @iK@P 8iK.)`P iK.,Q iK=iQ xiKD@P!iKEQ iN
-P iNQ iNi`Q iNQ iN P'iN
`Q iN Q  iN$]@Q iN.Q iN6Q iNN0Q iNdmQ iNfh`P'iNfk@Q xiNo
P'iN~@P iO|P "iO,`P iO\ Q iOJQ iO`P iO@P iO$P ?iO%pQ iO&k`P @iO-|P  iO.)`P iO.,Q iO=iQ xiRt]P iR~	@P'iR~0Q xiSK`Q iS|@Q |iS} Q xiS%@Q ?`iS6@Q i[%@P i^dK@Q  i^dLQ i^dMQ kF:=P k:`Q xkLQ xkK@Q `k<Q `o&   9bN<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v ".J
	IFDEF ".jA,<$IPMSG(\.,<?LO"/CAL AC A already"/( defined>)>
	PUS"/HH P,T1+NTEMPS+B
	A==T1+NTEMPS+"0B
	$PURGE A
	$"0(POP T1+NTEMPS+BOP T1+NTEMPS+B	6K8 "4J*
	IFDEF "4jA,<$IPMSG(\.,<?TE"5MP A already def"5(ined>)>
	A==T1+B
	$PURGE A+	".)  "(jF
	$INFO
	$INIT
	$INFO
	&tk` nA
B	&u "&j<
	DEFINE "'
$INFO(X,Y)<X
Y>(
$ACVNM==0
$STVN"'HM==0
$TMVNM==0
=0
$TMVNM==0
	'\s ")*L
PRINTX B ")Jat A (C,D,E)t A (C,D,E)	B~ "*
T
	GSOPDEF"** %POP%,<POP P,>
"*H	$REMOTE (<%POP% A>)TE (<%POP% 	C.)r "+
X$REMOTE (<PURGE A>)TE (<	J-[z "(
B$INFO(<DEF"(*INE $INFO(X,Y)><X
A,Y>)X,Y)><X	NL{V $
#'
	XMOVEI $jT1,A		;Process t$Jo signal
  IFE $*B,<
	MOVE T3,TOD$-zCLK		;Now
	SKIPL$. T2,PRCWAK(T1)	;I$.8f no wakeup set, $.XNOW is ok
	 CAML$.xE T2,T3		;If past$/ due, queue
	  S$/8KIPLE NSKED		;NOW$/X is ok unless NOS$/xKED
	0X JRST c	$0	;No.  Get in Q f$08or FIFO behavior
	PUSH P,PROC		;D$0xo it NOW
	MOVEM $1T3,PRCSGT(T1)	;TO$18DCLK of most rece$1Xnt SIGNAL
	CALL $1xTCPTSK		;Call the$2 task
	POP P,PRO$28C		;Restore our I$2XD as running proc$2xess
	JRST d		;A$3ll done
c:	>	;I$38FE B

;Avoid s$3Xtack overflow on $3xKA, always queue
	MOVX T2,B		;Nu$48mber of milliseco$4Xnds
	CALL SIGNAL$4x
  IFE B,<
d:  >

B,<
d:	O%; "8JD$STKL2(A)$STKL2(A)	O%;	 "9
P
	$STKL3("9*A,\$STVNM)
	IFB"9H <B>,<$STVNM==$S"9hTVNM+1>
	IFNB <":B>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 ":J^
	IFDEF ":jA,<$IPMSG(\.,<?ST";ACKL local A alr";(eady defined>)>
";H	DEFINE A<^OB+1";h(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 $%r"1
	$BBLIP=$&=<Z 11>		
	A (<B>,11C,D) (<
m $!R"
	$BCNT==$!r<Z BFRCNT>		
	A$" (<B>,BFRCNTC,D)B>,BFRCNTC,
$ $*"
	$BDADR=$ j=<Z BFRDAD>		
	$!A (<B>,BFRDADC,D)B>,BFRDADC,
-{ $Z!y
	$BEOL==$z<Z BFRFLG>		
	A$ (<B>,BFRFLGC,D)B>,BFRFLGC,
6*| $$*"$
	$BFRKX=$$J=<Z 10>		
	A (<B>,10C,D) (<
D $"Z"
	$BHADR=$"z=<Z 6>		
	A (<B>,6C,D)A (<
L;Z $#B"
	$BICNT=$#b=<Z 7>		
	A (<B>,7C,D)A (<
LN $,2"e
	$BIDX==$,R<Z 13>		
	A (<B>,13C,D) (<
n3 $&R"7
	$BMPAG=$&r=<Z 11>		
	A (<B>,11C,D) (<L@ $':"?
	$BPTR==$'Z<Z BFRPTR>		
	A$'x (<B>,BFRPTRC,D)B>,BFRPTRC,LP $*J"X
	$BPTRA=$*j=<Z BFRPTR>		
	$+A (<B>,BFRPTRC,D)B>,BFRPTRC,LX $(B"H
	$BPTRP=$(b=<Z BFRPTR>		
	$)A (<B>,BFRPTRC,D)B>,BFRPTRC,LY $)J"P
	$BPTRS=$)j=<Z BFRPTR>		
	$*A (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ $+R"_
	$BTCB==$+r<Z 13>		
	A (<B>,13C,D) (<&0 $-"k
	$BTS==<$-:Z 14>		
	A (<B>,14C,D) (<B.3 $%
"*
	$BUPAG=$%*=<Z 10>		
	A (<B>,10C,D) (<.)` $R!q
	$BURG==$r<Z BFRFLG>		
	A$ (<B>,BFRFLGC,D)B>,BFRFLGC,=P $b"
	$BWM==<$ Z BFRFLG>		
	A $  (<B>,BFRFLGC,D)B>,BFRFLGC,Dl:y #zY
	$CMCKS=#=<Z 0>		
	A (<B>,0C,D)A (<l;r #S
	$CMCOD=#2=<Z 0>		
	A (<B>,0C,D)A (<l}p #s
	$CMGWA=#:=<Z 1>		
	A (<B>,1C,D)A (<m #b`
	$CMID==#<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=#R=<Z 1>		
	A (<B>,1C,D)A (<n98 #Jf
	$CMSEQ=#j=<Z 1>		
	A (<B>,1C,D)A (<nLw #z
	$CMTSO=#"=<Z 2>		
	A (<B>,2C,D)A (<nLy #j
	$CMTSR=# 
=<Z 3>		
	A (<B>,3C,D)A (<nLz # R
	$CMTST=# r=<Z 4>		
	A (<B>,4C,D)A (<nN8 #*L
	$CMTYP=#J=<Z 0>		
	A (<B>,0C,D)A (<&0 "sr#
	$DDS==<"tZ PPBFSZ+1>		
	"t0A (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 "qb
	$DFLAG="r=<Z PPBFSZ+0>		
"r"	A (<B>,PPBFSZ+0C,D),PPBFSZ+= "uz3
	$DPKTP="v=<Z PPBFSZ+3>		
"v8	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ "w<
	$DPTRC="w"=<Z PPBFSZ+4>		
"w@	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 "rr
	$DSS==<"sZ PPBFSZ+1>		
	"s0A (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 "tr+
	$DTIME="u=<Z PPBFSZ+2>		
"u0	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 ##r!
	$GWHIS=#$=<Z 0>		
	A (<B>,0C,D)A (<=z #%:-
	$GWICT=#%Z=<Z 0>		
	A (<B>,0C,D)A (<>
8 #""
	$GWPIP=#"B=<Z 0>		
	A (<B>,0C,D)A (<>< #$Z'
	$GWSPC=#$z=<Z 0>		
	A (<B>,0C,D)A (<>N8 ##

	$GWTYP=##*=<Z 0>		
	A(<B>,0C,D)A (<>\ #!:
	$GWUP==#!Z<Z 0>		
	A (<B>,0C,D)A (<B"D;Z "!b
	$HHCNT=""=<Z .NBHHL>		
	"" A (<B>,.NBHHLC,D)B>,.NBHHLC,#\ #B>
	$HSMPL=#b=<Z 1>		
	A(<B>,1C,D)A (<#J2 %A,
	$HSTIDX%A2==<Z HOSTN>		
	%APA (<B>,HOSTNC,D)B>,HOSTNC,#KR %D",&
	$HSTNDX%DB==<Z HOSTPN>		
	%D`A (<B>,HOSTPNC,D)B>,HOSTPNC#KT %C",
	$HSTNIC%CB==<Z HOSTN>		
	%C`A (<B>,HOSTNC,D)B>,HOSTNC,#KV %B,
	$HSTNMP%B:==<Z HOSTN>		
	%BXA (<B>,HOSTNC,D)B>,HOSTNC,#M %E*,.
	$HSTTTL%EJ==<Z HOSTPN>		
	%EhA (<B>,HOSTPNC,D)B>,HOSTPNC#%} #Z7
	$HTOTL=#z=<Z 0>		
	A (<B>,0C,D)A (<&
  %=*+l
	$IAHI==%=J<Z 0>		
	A (<B>,0C,D)A (<B&
z %>+s
	$IAHST=%>2=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=%?=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=%@R=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=%?r=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=%<b=<Z 0>		
	A (<B>,0C,D)A (<&D "M
	$IHADR=":=<Z .NBLD1>		
	"XA (<B>,.NBLD1C,D)B>,.NBLD1C,&Dm "
	$IHFTY=""=<Z .NBLD0>		
	"@A (<B>,.NBLD0C,D)B>,.NBLD0C,&E
z ""V
	$IHHST="B=<Z .NBLD1>		
	"`A"(<B>,.NBLD1C,D)B>,.NBLD1C,&E
<
	$IHHT2="*=<Z .NBLD0>		
	"HA"(<B>,.NBLD0C,D)B>,.NBLD0C,&E
	$IHHTY="2=<Z .NBLD1>		
	"PA (<B>,.NBLD1C,D)B>,.NBLD1C,&E8 "*^
	$IHIMP="J=<Z .NBLD1>		
	"hA (<B>,.NBLD1C,D)B>,.NBLD1C,&EI "
,
	$IHLDF="*=<Z .NBLD0>		
	"HA (<B>,.NBLD0C,D)B>,.NBLD0C,&EI7 "B
	$IHLEN="b=<Z .NBLD2>		
	" A (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU "*f
	$IHLNK="J=<Z .NBLD1>		
	"hA (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) "2o
	$IHMI2="R=<Z .NBLD2>		
	"pA (<B>,.NBLD2C,D)B>,.NBLD2C,&E] "
4
	$IHMTY="*=<Z .NBLD0>		
	"HA (<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: "
$
	$IHNET="*=<Z .NBLD0>		
	"HA (<B>,.NBLD0C,D)B>,.NBLD0C,&F	 " B
	$IHPD1=" b=<Z .NBLD2>		
	"!A (<B>,.NBLD2C,D)B>,.NBLD2C,&F= ":w
	$IHSTY="Z=<Z .NBLD2>		
	"xA (<B>,.NBLD2C,D)B>,.NBLD2C,&v
 "#r#
	$INPPR="$=<Z .INPRO>		
	"$0A"(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR="#
=<Z .INVER>		
	"#(A (<B>,.INVERC,D)B>,.INVERC,&vKZ "@
	$INTNUM"@2==<Z >		
	A (<B>,C,D)A (<2;Z #*$
	$LCCNT=#J=<Z 3>		
	A (<B>,3C,D)A (<2LN #Z
	$LIDX==#z<Z 1>		
	A (<B>,1C,D)A (<B2ezy #B
	$LLOKR=#b=<Z 2>		
	A (<B>,2C,D)A (<2uJy #r1
	$LNLKR=#=<Z 4>		
	A (<B>,4C,D)A (<2}Jy #+
	$LOLKR=#2=<Z 4>		
	A (<B>,4C,D)A (<3=|R #r
	$LWORD=#=<Z 0>		
	A (<B>,0C,D)A (<:,} "z
	$NBBSZ="=<Z .NBHDR>		
	"8A (<B>,.NBHDRC,D)B>,.NBHDRC,:2 "z
	$NBQUE="=<Z .NBHDR>		
	"8A (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp "Ab
	$NETCA="B=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "BR
	$NETCB="Br=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "CB
	$NETCC="Cb=<Z 0>		
	A (<B>,0C,D)A (<:.Hv "@z	
	$NETCLS"A==<Z 0>		
	A (<B>,0C,D)A (<;$I; %Gz,A
	$NTDEV=%H=<Z 1>		
	A (<B>,1C,D)A (<;%KU %F2,5
	$NTLNK=%FR=<Z 0>		
	A (<B>,0C,D)A (<;%m6 %HZ,G
	$NTNUM=%Hz=<Z 2>		
	A (<B>,2C,D)A (<;&N8 %G,;
	$NTTYP=%G:=<Z 1>		
	A (<B>,1C,D)A (<B
:` #-:m
	$PACK==#-Z<Z 3>		
	A (<B>,3C,D)A (<BB
:y #)2M
	$PACKS=#)R=<Z 2>		
	A (<B>,2C,D)A (<BK #*S
	$PCTL==#*:<Z 3>		
	A (<B>,3C,D)A (<BB$= "R
	$PDCT=="R2<Z 5>		
	A (<B>,5C,D)A (<BB& #'b@
	$PDP==<#(Z 0>		
	A (<B>,0C,D)A (<B>B-{ #."t
	$PEOL==#.B<Z 3>		
	A (<B>,3C,D)A (<BB.98 "Sb 
	$PESEQ="T=<Z 7>		
	A (<B>,7C,D)A (<B5@ #0Z
	$PFIN==#0z<Z 3>		
	A (<B>,3C,D)A (<BB5Iy "GJ>
	$PFLGS="Gj=<Z 1>		
	A (<B>,1C,D)A (<B6:= "JR
	$PFSIZ="J"=<Z 1>		
	A (<B>,1C,D)A (<BL:y "h2I
	$PICKS="hR=<Z PKTELI+.IPKPR"hp>		
	A (<B>,PK"iTELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ "az
	$PIDF=="b<Z PKTELI+.IPKSG>"b8		
	A (<B>,PKT"bXELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ "k^
	$PIDH=="k"<Z PKTELI+.IPKDH>"k@		
	A (<B>,PKT"k`ELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` "V7
	$PIDO=="V2<Z PKTELI+.IPKVR>"VP		
	A (<B>,PKT"VpELI+.IPKVRC,D)LI+.IPKVRC,D)BLk "`R
	$PIFLG="`r=<Z PKTELI+.IPKSG"a>		
	A (<B>,PK"a0TELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` "d:)
	$PIFO=="dZ<Z PKTELI+.IPKSG>"dx		
	A (<B>,PKT"eELI+.IPKSGC,D)LI+.IPKSGC,D)BM
V "\Zk
	$PIHRL="\z=<Z PKTELI+.IPKVR"]>		
	A (<B>,PK"]8TELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR="[R=<Z PKTELI+.IPKVR"[p>		
	A (<B>,PK"\TELI+.IPKVRC,D)LI+.IPKVRC,D)BMI "Z
V
	$PILDY="Z*=<Z PKTELI+.IPKVR"ZH>		
	A (<B>,PK"ZhTELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ "c
	$PIMF=="c:<Z PKTELI+.IPKSG>"cX		
	A (<B>,PKT"cxELI+.IPKSGC,D)LI+.IPKSGC,D)BMm "IK
	$PINTL="I:=<Z 1>		
	A (<B>,1C,D)A (<BN "^v
	$PIPL=="^"<Z PKTELI+.IPKVR>"^@		
	A (<B>,PKT"^`ELI+.IPKVRC,D)LI+.IPKVRC,D)BN
Q "XbL
	$PIPRC="Y=<Z PKTELI+.IPKVR"Y >		
	A (<B>,PK"Y@TELI+.IPKVRC,D)LI+.IPKVRC,D)BN
W "g
>
	$PIPRO="g*=<Z PKTELI+.IPKPR"gH>		
	A (<B>,PK"ghTELI+.IPKPRC,D)LI+.IPKPRC,D)BN: "iZS
	$PISH=="iz<Z PKTELI+.IPKSH>"j		
	A (<B>,PKT"j8ELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 "_*
	$PISID="_J=<Z PKTELI+.IPKSG"_h>		
	A (<B>,PK"`TELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy "W:A
	$PITOS="WZ=<Z PKTELI+.IPKVR"Wx>		
	A (<B>,PK"XTELI+.IPKVRC,D)LI+.IPKVRC,D)BNM "eb4
	$PITTL="f=<Z PKTELI+.IPKPR"f >		
	A (<B>,PK"f@TELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 "Tj,
	$PIVER="U
=<Z PKTELI+.IPKVR"U(>		
	A (<B>,PK"UHTELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; "N
r
	$PLCLO="N*=<Z 1>		
	A (<B>,1C,D)A (<Be8r "Nry
	$PLKCD="O=<Z 1>		
	A (<B>,1C,D)A (<BuHv "L:e
	$PNLCL="LZ=<Z 1>		
	A (<B>,1C,D)A (<C+s "H2E
	$PPROG="HR=<Z 1>		
	A (<B>,1C,D)A (<C= #/
z
	$PRST==#/*<Z 3>		
	A (<B>,3C,D)A (<BC	 "JjX
	$PRXD=="K
<Z 1>		
	A (<B>,1C,D)A (<BC
  "Q*

	$PRXI=="QJ<Z 4>		
	A (<B>,4C,D)A (<BC<@ "KR_
	$PSCR=="Kr<Z 1>		
	A (<B>,1C,D)A (<BC\  #(JF
	$PSEQ==#(j<Z 1>		
	A (<B>,1C,D)A (<BC #&z9
	$PSP==<#'Z 0>		
	A (<B>,0C,D)A (<B>C+z "M"l
	$PSROU="MB=<Z 1>		
	A (<B>,1C,D)A (<C@ #/r
	$PSYN==#0<Z 3>		
	A (<B>,3C,D)A (<BC$:y #2*
	$PTCKS=#2J=<Z 4>		
	A (<B>,4C,D)A (<C$= #+j`
	$PTCTL=#,
=<Z 3>		
	A (<B>,3C,D)A (<C$K` #+Z
	$PTDO==#+"<Z 3>		
	A (<B>,3C,D)A (<BC$p "OZ
	$PTG==<"OzZ 2>		
	A (<B>,2C,D)A (<B>C&0 "Rz
	$PTS==<"SZ 6>		
	A (<B>,6C,D)A (<B>C&m $"!6
	$PTVT==$B<Z TTNETW>		
	A$` (<B>,TTNETWC,D)B>,TTNETWC,C.)` #,Rg
	$PURG==#,r<Z 3>		
	A (<B>,3C,D)A (<BC.)x #3
	$PURGP=#32=<Z 4>		
	A (<B>,4C,D)A (<C=i #1B
	$PWNDO=#1b=<Z 3>		
	A (<B>,3C,D)A (<CF@ "PB
	$PXT==<"PbZ 3>		
	A (<B>,3C,D)A (<B>Ft^ "zRW
	$QNEXT="zr=<Z 0>		
	A (<B>,0C,D)A (<G); #


	$QPREV=#*=<Z 0>		
	A (<B>,0C,D)A (<R
- #t"
	$TABTFX#t"==<Z 62>		
	A (<B>,62C,D) (RHL $*!
	$TCDB8=$J=<Z 175>		
	A (<B>,175C,D)(RH{ $B!
	$TCDCW=$b=<Z 175>		
	A (<B>,175C,D)(RIY $j `
	$TCDFS=$
=<Z 175>		
	A (<B>,175C,D)(RIr $" t
	$TCDGE=$B=<Z 175>		
	A(<B>,175C,D)(RIw $
	$TCDGN=$		
	A (<B>,175C,D)(RJ $ Z
	$TCDHT=$"=<Z 175>		
	A (<B>,175C,D)(RJ1 $Z!
	$TCDIB=$z=<Z 175>		
	A (<B>,175C,D)(RKq $r!
	$TCDOB=$=<Z 175>		
	A (<B>,175C,D)(RKx $!
	$TCDOQ=$2=<Z 175>		
	A (<B>,175C,D)(RK{ $
R g
	$TCDOW=$
r=<Z 175>		
	A (<B>,175C,D)(RL $
 z
	$TCDPS=$*=<Z 175>		
	A (<B>,175C,D)(RL $z!!
	$TCDPU=$=<Z 175>		
	A (<B>,175C,D)(RM9 $b!(
	$TCDUR=$=<Z 175>		
	A (<B>,175C,D)(RMz $
 S
	$TCDWT=$
:=<Z 175>		
	A (<B>,175C,D)(RHY $" 4
	$TCTBS=$B=<Z 172>		
	A (<B>,172C,D)(RLx $ :
	$TCTSQ=$"=<Z 172>		
	A (<B>,172C,D)(R\[ #mJn
	$TCURW=#mj=<Z 45>		
	A (<B>,45C,D) (<R{R #n2u
	$TCWND=#nR=<Z 46>		
	A (<B>,46C,D) (<R$X` #DR'
	$TDEC==#Dr<Z 13>		
	A (<B>,13C,D) (<R.(S $Z '
	$TERBF=$z=<Z 171>		
	A (<B>,171C,D)(R.*W $: -
	$TERJN=$Z=<Z 171>		
	A (<B>,171C,D)(R.,@ #;j`
	$TERR==#<
<Z 13>		
	A (<B>,13C,D) (<R.,S #gzA
	$TERRF=#h=<Z 40>		
	A (<B>,40C,D) (<R.,Z #Cr!
	$TERRT=#D=<Z 13>		
	A (<B>,13C,D) (<R5 #7b@
	$TFH==<#8Z 7>		
	A (<B>,7C,D)A (<B>R5` #8JF
	$TFHC==#8j<Z 7>		
	A (<B>,7C,D)A (<BR6 #:S
	$TFP==<#::Z 11>		
	A (<B>,11C,D) (<BRLi #qR
	$TIFDF=#qr=<Z 62>		
	A (<B>,62C,D) (<RM| $Z 
	$TIOPF=$z=<Z 73>		
	A (<B>,73C,D) (<RN	 #~*t
	$TIPDO=#~J=<Z 73>		
	A (<B>,73C,D) (<RNy #{
	$TIPOR=#2=<Z 73>		
	A (<B>,73C,D) (<RNz #z 
	$TIPOU=$=<Z 73>		
	A (<B>,73C,D) (<RT;@ #6r9
	$TJCN==#7<Z 6>		
	A (<B>,6C,D)A (<BRTk@ $B!.
	$TJFN==$b<Z 175>		
	A (<B>,175C,D)(<Re #92M
	$TLH==<#9RZ 10>		
	A (<B>,10C,D) (<BRf #;Z
	$TLP==<#;"Z 12>		
	A (<B>,12C,D) (<BRlX9 #lbh
	$TMEAS=#m=<Z 44>		
	A (<B>,44C,D) (<RmlZ #iBN
	$TMNRT=#ib=<Z 41>		
	A (<B>,41C,D) (<Ro
Z #j*T
	$TMXRT=#jJ=<Z 42>		
	A (<B>,42C,D) (<RvYV #w;
	$TNUFM=#w2=<Z 64>		
	A (<B>,64C,D) (<R|lU #hZG
	$TOFRK=#hz=<Z 40>		
	A (<B>,40C,D) (<R~	T #xZG
	$TOPFH=#xz=<Z 65>		
	A (<B>,65C,D) (<R~	X #v25
	$TOPFP=#vR=<Z 64>		
	A (<B>,64C,D) (<R~ #yBN
	$TOPLH=#yb=<Z 66>		
	A (<B>,66C,D) (<R~S #g;
	$TOPNF=#g2=<Z 40>		
	A (<B>,40C,D) (<R~{Y #63
	$TOWNR=#62=<Z 6>		
	A (<B>,6C,D)A (<Sp #_r
	$TPICA=#`=<Z TCBPIC>		
	#`0A (<B>,TCBPICC,D)B>,TCBPICC,Sr #]rs
	$TPICE=#^=<Z TCBPIC>		
	#^0A (<B>,TCBPICC,D)B>,TCBPICC,Sy #[jb
	$TPICR=#\
=<Z TCBPIC>		
	#\(A (<B>,TCBPICC,D)B>,TCBPICC,Sy #\rk
	$TPICS=#]=<Z TCBPIC>		
	#]0A (<B>,TCBPICC,D)B>,TCBPICC,Sz #ZbZ
	$TPICU=#[=<Z TCBPIC>		
	#[ A (<B>,TCBPICC,D)B>,TCBPICC,S| #^r{
	$TPICX=#_=<Z TCBPIC>		
	#_0A (<B>,TCBPICC,D)B>,TCBPICC,SP #f
4
	$TPIFA=#f*=<Z TCBPIF+2>		
#fH	A (<B>,TCBPIF+2C,D),TCBPIF+SR #d$
	$TPIFE=#d"=<Z TCBPIF+1>		
#d@	A (<B>,TCBPIF+1C,D),TCBPIF+SY #az
	$TPIFR=#b=<Z TCBPIF+0>		
#b8	A (<B>,TCBPIF+0C,D),TCBPIF+SY #c
	$TPIFS=#c"=<Z TCBPIF+1>		
#c@	A (<B>,TCBPIF+1C,D),TCBPIF+SZ #`z
	$TPIFU=#a=<Z TCBPIF+0>		
#a8	A (<B>,TCBPIF+0C,D),TCBPIF+S\ #e
,
	$TPIFX=#e*=<Z TCBPIF+2>		
#eH	A (<B>,TCBPIF+2C,D),TCBPIF+S,h $R G
	$TPRS1=$r=<Z 174>		
	A (<B>,174C,D)(S,i $	2 M
	$TPRS2=$	R=<Z 174>		
	A (<B>,174C,D)(S:1 #YZQ
	$TPSIC=#Yz=<Z TCBPIC>		
	#ZA (<B>,TCBPICC,D)B>,TCBPICC,S,` #XrI
	$TRBS==#Y<Z 31>		
	A (<B>,31C,D) (<S8@ #W"<
	$TRCB==#WB<Z 27>		
	A (<B>,27C,D) (<S8\ #X
B
	$TRCBY=#X*=<Z 30>		
	A (<B>,30C,D) (<S;Z #kza
	$TRCNT=#l=<Z 43>		
	A (<B>,43C,D) (<S` #T
"
	$TRIS==#T*<Z 24>		
	A (<B>,24C,D) (<SH5 #{[
	$TRLAK=#{2=<Z 70>		
	A (<B>,70C,D) (<SIZ #Tr)
	$TRLFT=#U=<Z 25>		
	A (<B>,25C,D) (<SMw #{za
	$TRLWN=#|=<Z 71>		
	A (<B>,71C,D) (<S^ #|bh
	$TRMXP=#}=<Z 72>		
	A (<B>,72C,D) (<S
 #@Z
	$TRPP==#@z<Z 13>		
	A (<B>,13C,D) (<S>7 #Fr9
	$TRSYN=#G=<Z 13>		
	A (<B>,13C,D) (<S\S #MRo
	$TRURG=#Mr=<Z 13>		
	A (<B>,13C,D) (<S\X #UZ/
	$TRURP=#Uz=<Z 26>		
	A (<B>,26C,D) (<S{R #VB6
	$TRWND=#Vb=<Z 27>		
	A (<B>,27C,D) (<S	 #E2-
	$TRXD==#ER<Z 13>		
	A (<B>,13C,D) (<S
  #k[
	$TRXI==#k2<Z 43>		
	A (<B>,43C,D) (<SZ #K2]
	$TSABT=#KR=<Z 13>		
	A (<B>,13C,D) (<S #C
	$TSAP==#C2<Z 13>		
	A (<B>,13C,D) (<SS #p
	$TSAVG=#p"=<Z 50>		
	A (<B>,50C,D) (<S.: #z*T
	$TSBYT=#zJ=<Z 67>		
	A (<B>,67C,D) (<S8@ #R:
	$TSCB==#RZ<Z 20>		
	A (<B>,20C,D) (<S< $j @
	$TSCPK=$
=<Z 173>		
	A (<B>,173C,D)(S<@ #AB
	$TSCR==#Ab<Z 13>		
	A (<B>,13C,D) (<SI; #pj
	$TSDEV=#q
=<Z 51>		
	A (<B>,51C,D) (<S\ #?r
	$TSEP==#@<Z 13>		
	A (<B>,13C,D) (<Sl #?
z
	$TSFP==#?*<Z 13>		
	A (<B>,13C,D) (<S` #N:u
	$TSIS==#NZ<Z 14>		
	A (<B>,14C,D) (<SIZ #O"|
	$TSLFT=#OB=<Z 15>		
	A (<B>,15C,D) (<SMQ #uJ.
	$TSLVC=#uj=<Z 63>		
	A (<B>,63C,D) (<SMW #tj(
	$TSLVN=#u
=<Z 63>		
	A (<B>,63C,D) (<S^ #}Bn
	$TSMXP=#}b=<Z 72>		
	A (<B>,72C,D) (<S| #IrQ
	$TSOPN=#J=<Z 13>		
	A (<B>,13C,D) (<S
Y #JRW
	$TSPRS=#Jr=<Z 13>		
	A (<B>,13C,D) (<S98 #P

	$TSSEQ=#P*=<Z 16>		
	A (<B>,16C,D) (<S= #o{
	$TSSTH=#o:=<Z 47>		
	A (<B>,47C,D) (<S=@ #Lc
	$TSSV==#L2<Z 13>		
	A (<B>,13C,D) (<S>7 #GR?
	$TSSYN=#Gr=<Z 13>		
	A (<B>,13C,D) (<SH: #F3
	$TSTAT=#F2=<Z 13>		
	A (<B>,13C,D) (<SK` #S"
	$TSTO==#SB<Z 21>		
	A (<B>,21C,D) (<SMW #H2E
	$TSTVO=#HR=<Z 13>		
	A (<B>,13C,D) (<S[x #IK
	$TSUOP=#I2=<Z 13>		
	A (<B>,13C,D) (<S\S #Lri
	$TSURG=#M=<Z 13>		
	A (<B>,13C,D) (<S\X #Pr	
	$TSURP=#Q=<Z 17>		
	A (<B>,17C,D) (<S{R #QZ
	$TSWND=#Qz=<Z 20>		
	A (<B>,20C,D) (<S%| $r !
	$TTOPF=$=<Z 74>		
	A (<B>,74C,D) (<S%|` #s"
	$TTOS==#sB<Z 62>		
	A (<B>,62C,D) (<S&	 $B 
	$TTPDO=$b=<Z 74>		
	A (<B>,74C,D) (<S&y $* 
	$TTPOR=$J=<Z 74>		
	A (<B>,74C,D) (<S&z $ 
	$TTPOU=$2=<Z 74>		
	A (<B>,74C,D) (<S&K #r:
	$TTTL==#rZ<Z 62>		
	A (<B>,62C,D) (<S&m #B*
	$TTVT==#BJ<Z 13>		
	A (<B>,13C,D) (<S6K #wrA
	$TVTL==#x<Z 64>		
	A (<B>,64C,D) (<S=I #<Rg
	$TWLDN=#<r=<Z 13>		
	A (<B>,13C,D) (<S=I #>"t
	$TWLDP=#>B=<Z 13>		
	A (<B>,13C,D) (<S=I #=:m
	$TWLDT=#=Z=<Z 13>		
	A (<B>,13C,D) (<V&u $:Z#[
	$UDPCK=$:z=<Z PKTELI+.UDLNC$;>		
	A (<B>,PK$;8TELI+.UDLNCC,D)LI+.UDLNCC,D)V&	 $8
#F
	$UDPDP=$8*=<Z PKTELI+.UDSDP$8H>		
	A (<B>,PK$8hTELI+.UDSDPC,D)LI+.UDSDPC,D)V& $92#Q
	$UDPLN=$9R=<Z PKTELI+.UDLNC$9p>		
	A (<B>,PK$:TELI+.UDLNCC,D)LI+.UDLNCC,D)V&
x $6b#<
	$UDPSP=$7=<Z PKTELI+.UDSDP$7 >		
	A (<B>,PK$7@TELI+.UDSDPC,D)LI+.UDSDPC,D):|lzP 4P mTP S@P P >	VP =P &YVP &DIP &DJP &DZ6P &D\RP &D\[P &D]wP &E	rP &ErP &EQP &EkxP &F)3P &F)9P &F)WP &v
WP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vMYP &vi9P '9P '<P '<sP '<tP '=YP :MhP :	P :
P :IP :IP :I	P :.HpQ :.HqQ :L:P :L[HP :L[IP :LxsP :L}P :MZP :MI7P :MZ9P @P K%,z 	OL{<<<A>&<B	O8>>B<^D70-POS(<B>)>>D70-POS(<B>N)VP RPP RQP RSP RTP RWP RYP R	VP R{P RF)P RF-8P V%KQP V&	P V&	VP V&9P `Q A>}{woP