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

Trailing-Edge - PDP-10 Archives - BB-KL11L-BM_1990 - 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"\ "jB!&
IFB  <A#/2>,<	LOCAL <PARAMS#/R>		>
IFNB <A>,<#/r	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 $/:#C	IF1 <IFDE$0F A,<PRINTX ? Mu$/Zltiply defined of$/zfset in DEFWRD>>

;Make symbol p$5zrintable or not d$6epending on if ov$68erlaps AC's

	$6XA==:..OFST			;Set$6x value as offset $7into table
	IFB $78<B>,<..OFST==..O$7XFST+1>	;Increment$7x offset
	IFNB <$8B>,<..OFST==..OFS$88T+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@ "8*D
	IFN $AC"8JVNM,<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{%@H<C>B1!<B>B5!<A>B35!<B
,M0PR0S,*{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"@ "t2
	MOVEI C"tX,2(A)
	ADDI CX"sR,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"@B(I,END,,^D0,^D1,"AA,B,C)
  OPTIO"A"N(I,NOP,,^D1,^D1,"NBA,B,C)
  OPTI"f"ON(I,LSR,C,^D3,^D"f@7,A,B,C)
  OP"f`TION(I,RRT,,^D7,^"gD7,A,B,C)
  O"g PTION(I,SID,C,^D8"g@,^D4,A,B,C)
 "g` OPTION(I,SSR,,^D"h9,^D7,A,B,C)
"h   OPTION(I,STY,C,"h@^D2,^D11,A,B,C"h`)

  OPTION(I,T"iSP,,^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> "%J@
	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 $P*e

;The f$P:ollowing section $PXis the same among$Px all NCT's
.NCT$QB=:.			;Set addre$Q8ss of this NCT
	$QXEXP	0		;Link word$Qx to next NCT in l$Rist
				;(filled$R8 in by MNTINI)
N$RXCTNUM==NCTNUM+1		$Rx;Increment number$S of NCTS defined

	XWD	NT.TYP,NT$SX.DEV	;Protocal an$Sxd device codes
	$TEXP	NT.NUM		;Net $T8index
NT.NUM==NT$TX.NUM+1		;incremen$Txt net index
	EXP$U	-1		;Internet ne$U8twork number (not$UX yet set)
	EXP	-$Ux1		;Internet Addr$Vess of this inter$V8face
	EXP	0		;Lo$VXgical host mask f$Vxor this network
$WIFB  <C>,<XWD 37$W87777,-1>	;Maximum$WX packet size
IFN$WxB <C>,<EXP C>		$X;Maximum packet s$X8ize

;NCP/$XXAN20  MAKSAV  MAC$XxRO  Creates  an  $Yinterrupt  AC  sa$Y8ve and dispatch
$YX;routine in the c$Yxurrent NCT at the$Z current location$Z8. Uses The follow$ZXing
;locations ($Zxwhich therefore m$[ust be defined fo$[8r  that  net  typ$[Xe).  The
;argume$[xnt  PDP  is the a$\ddress of a Push $\8down pointer for $\Xthis routine.
;D$\xISP is the offset$] of the dispatch $]8address.

DEFIN$]XE MAKSAV(PDP,DISP$]x)
<	MOVEM P,.NCT$^B+NTSVAC+17	;Sav$^8e P
	MOVEI P,.NC$^XTB+NTSVAC	;Where$^x the AC's go
	BL$_T P,.NCTB+NTSVAC$_8+16	;Save all
	M$_XOVE P,PDP			;Set $_xnew P
	XMOVEI P1$`,.NCTB		;Point t$`8o NCT
	CALL	@DIS$`XP(P1)		;And Goto $`xroutine
>					;E$and of MAKSAV

$a8
;MAKRES  -  Mak$aXe  a 3 word AC re$axstore , dismiss i$bnterrupt routine.$b8 AC's
;are assum$bXed stored at NTSV$bxAC. Arg PCW is th$ce address of the $c8 interrupt
;PC.

DEFINE	MAKRES($cxPCW)
<	MOVSI P,.$dNCTB+NTSVAC	;Fro$d8m there to 0
	BL$dXT P,P				;Restore$dx all AC's
	XJEN $e.NCTB+PCW		;And $e8dismiss the inter$eXrupt
>					;End $exof MAKRES MACRO
$f
IFE <<NT.TYP-NT$f8.NCP>!<NT.DEV-NT.$fXANX>>,<

	ANI==$fxANXA		;[9115] In$gput device addres$g8s
	ANO==ANXA+4	$gX	;[9115] Output s$gxide address

	C$hONSZ ANI,(T1)		;N$h8TCNSZ - CONSZ INP$hXUT
	CONSO ANI,(T$hx1)		;NTCNSO - CON$iSO INPUT
	CONO A$i8NI,(T1)		;NTCONO $iX- CONO INPUT
	CO$ixNI ANI,T1		;NTCON$jI - CONI INPUT
	$j8DATAO ANI,T1		;NT$jXDATO - DATAO INPU$jxT
	DATAI ANI,T1	$k	;NTDATI - DATAI $k8INPUT
	NCTDSP AN$kXXINI		;NTINI  - I$kxNITIALIZATION INS$lTRUCTION
	NCTDSP$l8 ANXKIL		;NTKILL $lX- SHUTDOWN INSTRU$lxCTION
	NCTDSP AN$mXRSS		;NTRSRT - R$m8ESTART INSTRUCTIO$mXN
	NCTDSP ANISRT$mx		;NTISRT - START$n INPUT INSTRUCTIO$n8N
	NCTDSP ANOSRT$nX		;NTOSRT - START$nx OUTPUT INSTRUCTI$oON
	NCTDSP IMPEI$o8N		;NTIDUN - INPU$oXT DONE DISPATCH
$ox	NCTDSP IMODUN		;$pNTODUN - OUTPUT D$p8ONE DISPATCH
	NC$pXTDSP IMPHDR		;NTL$pxLDR - MAKE HEADER$q INSTRUCTION
	NC$q8TDSP RSKP		;NTOTO$qXK - CLEAR PACKET $qxFOR OUTPUT
	NCTD$rSP R		;NTMAIN - M$r8AINTAINANCE
	NCT$rXDSP ANXSCK		;NTSC$rxHK - STATUS CHECK$s INSTRUCTION
	BL$s8OCK NTOCNO-NTIB	;$sXNTIB THROUGH  NTO$sxTYP
	CONO ANO,(T$t1)		;NTOCNO - CON$t8O OUTPUT
	CONI A$tXNO,T1		;NTOCNI - $txCONI OUTPUT
	CON$uSO ANO,(T1)		;NTO$u8CSO - CONSO OUTPU$uXT
	CONSZ ANO,(T1$ux)		;NTOCSZ - CONS$vZ OUTPUT
	DATAO $v8ANO,T1		;NTODTO -$vX DATAO OUTPUT
	D$vxATAI ANO,T1		;NTO$wDTI - DATAI OUTPU$w8T
	XPCW .+1		;NT$wXIINT - INTERRUPT $wxINSTRUCTION
	BLO$xCK 2			;NTIPCW - $x8INTURRUPT PC STOR$xXAGE
	EXP 0			;NT$xxINPC - NEW FLAGS $y(INPUT)
	XCDSEC,$y8,.+1		;         N$yXEW PC (INPUT SAVE$yx)
	MAKSAV (IMPDP$zA,NTIDSP) ;[9115$z8] NTIISV - 6 word$zXs of AC save rout$zxine
	MAKRES (NTI${PCW)		;NTIIRS - 3${8 WORDS OF AC REST${XORE ROUTINE
	XPC${xW .+1	       	;NT$|OINT - INTERRUPT $|8INSTRUCTION
	BLO$|XCK 2			;NTOPCW - $|xPC STORAGE
	EXP $}0			;NTONPC - NEW$}8 FLAGS
	XCDSEC,,$}X.+1		;         NE$}xW PC (OUTPUT SAVE$~)
	MAKSAV (IMPDP$~8A,NTODSP) ;[9115$~X] NTIOSV - 6 word$~xs of AC save
	MA$KRES (NTOPCW)		;N$8TIORS   3 WORDS O$XF AC RESTORE
	BL$xOCK 20		;NTSVAC -% AC storage
	PUR%8GE ANI,ANO		;[911%X5] Zap junk symbo%xls
>				;End of %NCP/ANX condition%8al

;IPNI NCT %Xdefifition

IFE%x <<NT.TYP-NT.NUN>%!<NT.DEV-NT.NIP>>%8,<

	JFCL      %X    		;NTCNSZ - C%xONSZ Input
	JFCL%          		;NTCN%8SO - CONSO Input
	JFCL          	%x	;NTCONO - CONO I%nput
	JFCL      %8    		;NTCONI - C%XONI Input
	JFCL %x         		;NTDAT%O - DATAO Input
%8	JFCL          		%X;NTDATI - DATAI I%xnput
	NCTDSP NIP%INI		;NTINI  - In%8itialization inst%Xruction
	NCTDSP %xNIPKIL		;NTKILL -% Shutdown instruc%8tion
	NCTDSP NIP%XRST		;NTRSRT - Re%xstart instruction%
	NCTDSP R     	%8	;NTISRT - Start %Xinput instruction%x
	NCTDSP NIPSTO	%		;NTOSRT - Start %	8output instructio%	Xn
	NCTDSP R     %	x		;NTIDUN - Input%
 done dispatch
	%
8NCTDSP R       		%
X;NTODUN - Output %
xdone dispatch
	N%CTDSP NIPHDR		;NT%8LLDR - Make heade%Xr instruction
	N%xCTDSP RSKP		;NTOT%

OK - CLear packet%

8 for output
	NCT%

XDSP R      		;NTM%

xAIN - Maintainanc%
	NCTDSPCNIPSTA%atu%
	BLOCK NTSVAC%-NTIB	;NTIB throu%8gh  NTOTYP
>				%X;End of NIN/NIP c%xonditional

;[9%135] IPNIA NCT de%8fifition

IFE <%X<NT.TYP-NT.NUN>!<%xNT.DEV-NT.NIA>>,<%	;[9135] IPNIA ps%8uedo device
	JFC%XL          		;[91%x35] NTCNSZ - CONS%Z Input
	JFCL   %8       		;[9135] %XNTCNSO - CONSO In%xput
	JFCL       %   		;[9135] NTCO%8NO - CONO Input
%X	JFCL          		%x;[9135] NTCONI - %CONI Input
	JFCL%8          		;[913%X5] NTDATO - DATAO%x Input
	JFCL    %      		;[9135] N%8TDATI - DATAI Inp%Xut
	NCTDSP NIAIN%xI		;[9135] NTINI % - Initialization%8 instruction
	NC%XTDSP NIAKIL		;[91%x35] NTKILL - Shut%down instruction
	NCTDSP NIARST		%X;[9135] NTRSRT - %xRestart instructi%on
	NCTDSP R    %8 		;[9135] NTISRT%X - Start input in%xstruction
	NCTDS%P NIASTO		;[9135]%8 NTOSRT - Start o%Xutput instruction%x
	NCTDSP R     	%	;[9135] NTIDUN -%8 Input done dispa%Xtch
	NCTDSP R   %x    		;[9135] NTO%DUN - Output done%8 dispatch
	NCTDS%XP NIAHDR		;[9135]%x NTLLDR - Make he%ader instruction
	NCTDSP RSKP		;[%X9135] NTOTOK - CL%xear packet for ou%tput
	NCTDSP R  %8    		;[9135] NTM%XAIN - Maintainanc%xe
	NCTDSP NIASTA%		;[9135] NTSCHK %8- Status check in%Xstruction
	BLOCK%x NTSVAC-NTIB	;[91%35] NTIB through %8 NTOTYP
>				;[9%X135] End of NIN/N%xIA conditional

%

;IPCI nct def%8inition

	IFE <%X<NT.TYP-NT.NUN>!<%xNT.DEV-NT.CIP>>,<% 

	JFCL        % 8  		; NTCNSZ - CO% XNSZ Input
	JFCL % x         		; NTCN%!SO - CONSO Input
	JFCL          	%!X	; NTCONO - CONO %!xInput
	JFCL     %"     		; NTCONI -%"8 CONI Input
	JFC%"XL          		; NT%"xDATO - DATAO Inpu%#t
	JFCL         %#8 		; NTDATI - DAT%#XAI Input
	NCTDSP%#x CIPINI		; NTINI %$ - Initialization%$8 instruction
	NC%$XTDSP CIPKIL		; NT%$xKILL - Shutdown i%%nstruction
	NCTD%%8SP CIPRST		; NTRS%%XRT - Restart inst%%xruction
	NCTDSP %&R     		; NTISRT %&8- Start input ins%&Xtruction
	NCTDSP%&x CIPSTO		; NTOSRT%' - Start output i%'8nstruction
	NCTD%'XSP R     		; NTID%'xUN - Input done d%(ispatch
	NCTDSP %(8R      		; NTODUN%(X - Output done di%(xspatch
	NCTDSP C%)IPHDR		; NTLLDR -%)8 Make header inst%)Xruction
	NCTDSP %)xRSKP		; NTOTOK - %*CLear packet for %*8output
	NCTDSP R%*X      		; NTMAIN %*x- Maintainance
	%+NCTDSP CIPSTA		; %+8NTSCHK - Status c%+Xheck instruction
	BLOCK NTSVAC-NT%,IB	; NTIB through%,8  NTOTYP
>				; %,XEnd of IPCIN/CIP conditional

[^%.Z*uXCDSEC,,.NCTAXCDSEC,,.N[EyP [EIP [F98Q [FKyP [&uP 
[&vJP 
[.t= $:z$}	XALL			;S$;how the lines tem$;8porarily
NT.NUM=$;X=0			;Start with $;xInterface 0
NCTN$<UM==0			;Start ou$<8t at zero
DV.NUM$<X==0			;Back to nu$<xmber 0
IFN ANXN,$=<			;[9115] Is th$=8is balanced now
$=XNT.TYP==NT.NCP			$=x;Network Type is $>NCP
NT.DEV==NT.A$>8NX			;Device type$>X AN20
REPEAT ANX$>xN,<			;[9115] For$? all AN20s
	MAKN$?8CT(\DV.NUM,\NCTNU$?XM,^D576) ;[9115] $?xMake that type NC$@T for AN20
	DV.N$@8UM==DV.NUM+1	;[91$@X15] Step to next $@xdevice if any
>	$A			;[9115] End of$A8 REPEAT ANXN
>		$AX		;[9115] End of $AxIFN ANXN
IFN IPN$BIN,<			;[9115] If$B8 NIA20 support
N$BXT.TYP==NT.NUN			;$BxNo local protocol$C 
NT.DEV==NT.NIP$C8			;Device type I$CXPNI
MAKNCT(\DV.N$CxUM,\NCTNUM,^D576)$D	;Make that type $D8NCT
DV.NUM==DV.N$DXUM+1		;[9115] Cou$Dxnt up the NCT num$Eber used
>				;[$E89115] End of IFN $EXIPNIN

IFN IPNI$ExAN,<			;[9135] If$F NIA20 alternat a$F8ddress support
N$FXT.TYP==NT.NUN			;$Fx[9135] No local p$Grotocol 
NT.DEV=$G8=NT.NIA			;[9135]$GX Device type IPNI$Gx alternate addres$Hs
REPEAT IPNIAN,$H8<			;[9135] For e$HXach of these devi$Hxces
	MAKNCT(\DV.$INUM,\NCTNUM,^D576$I8) ;[9135] Make th$IXat type NCT
	DV.$IxNUM==DV.NUM+1	;[9$J135] Count up the$J8 NCT number used
	>			;[9135] End$Jx of REPEAT IPNIAN$K
>				;[9135] En$K8d of IFN IPNIAN
$KX
IFN IPCIN,<			;$Kx[9115] If CI20 su$Lpport
NT.TYP==NT$L8.NUN			;No local $LXprotocol 
NT.DEV$Lx==NT.CIP			;Devic$Me type IPCI
MAKN$M8CT(\DV.NUM,\NCTNU$MXM,^D576)	;[9115] $MxMake that type NC$NT
DV.NUM==DV.NUM$N8+1		;[9115] Count$NX up that NCT numb$Nxer
>				;[9115] $OEnd of IFN IPCIN
	SALL			; Again $OXsuppress expansions
ss expansio[/LY %-*q
..TMP==0%-:			;Start at NCT %-X#0
REPEAT %NETS,%-x<
	MAKPTR(\..TMP%.)
	..TMP==..TMP+1>
TMP==..TMP+[/<: " 

	ROT T2," *-^D9
	LSHC T1,^D27
	HRRI T1,A[;$86 $8z#GCALL @A(P1)CALL @A(P[;%,Y $9:#KJRST @A(P1)JRST @A(P[;'z $9z#OXCT A(P1)XCT A(P1)[>&98 #"TLZ A,(-MAXSEQ)LZ A,(-M[Ne|P [b>z1P ]
>@P']Y Q x]$Lx $::#SXCDSEC,,<A&777777>EC,,<]8 r@
   IFNDEraF A,<
	A==:B>A,<
	A==:B>]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 "9j
	TXNN	B"9J,.NETCA		; Class "9*A network?
	 JRS"9
T	[LOAD	A,NETCA,">"+B	; Get number
		 JRST	c]
	TX">`NN	B,.NETCB		; C"?lass B?
	 JRST	["? LOAD	A,NETCB,+B"?@
		 JRST	c]
	L"?`OAD	A,NETCC,+B	"@	; 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 ]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 "i"N
IFDIF <#/C>,<C>,<	BOPT=="iBD	>
IFIDN <C>,<"ibC>,<	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@.
	"jb		IRP C,<.X==.X+"k"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 "	zOHRLZI A,BHRLZI A,a^tK`Q xac Q c:/

zP e-i:P e.LtP e.LwP eKy "6*<
	IFLE $A"6JCVNM+$STVNM+$TMVN"6hM,<$IPMSG(\.,<?Ex"7tra RESTORE macro"7(>,\$ACVNM,\$STVNM"7H,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg "
RUHRLI A,BHRLI A,Bg&%|P Dg;I8Q gO|P gR

:v "/j
	IFG $AC"0
VNM+$STVNM,<	$IPM"0(SG(\.,<?STACKL: M"0Hissing RESTORE>,\"0h$ACVNM,\$STVNM)
"1				$ACVNM==0
		"1(		$STVNM==0>
	IR"1HP A,<	$STKL1(A)"1h>
	JSP CX,.TRSET"2##
	$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| #u
  OPTION#b(I,END,,^D0,^D1,# 2A,B,C)
  OPTIO# RN(I,NOP,,^D1,^D1,#-rA,B,C)
  OPTI#.ON(T,MSL,,^D2,^D4#.0,A,B,C)
  OPT#.PION(T,LBL,,^D33,^D4,A,B,C)
^i$,`Q xi&< P'i.-`Q i=iQ i,0P"i.-P i.MP in "*jp
	IFG $TM"+
VNM+$STVNM+$STVNM"+(,<	$IPMSG(\.,<?TE"+HMP: Missing RESTO"+hRE>,\$ACVNM,\$STV",NM,\$TMVNM)
				",(	$STVNM==0
					",H$TMVNM==0
					$",hACVNM==0>
	IRP "-A,<	IFGE $TMVNM-N"-(TEMPS,<$IPMSG(\.,"-H<?Too many TEMPs>"-h)>
			$DFTMP(A,".\<$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&   3b<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v "(JR
	IFDEF "(jA,<$IPMSG(\.,<?LO")CAL AC A already")( defined>)>
	PUS")HH P,T1+NTEMPS+B
	A==T1+NTEMPS+"*B
	$PURGE A
	$"*(POP T1+NTEMPS+BOP T1+NTEMPS+B	6K8 ".Jz
	IFDEF ".jA,<$IPMSG(\.,<?TE"/MP A already def"/(ined>)>
	A==T1+B
	$PURGE A+	".)  ""j
	$INFO
	$INIT
	$INFO
	&tk` >A
B	&u " j

	DEFINE "!
$INFO(X,Y)<X
Y>(
$ACVNM==0
$STVN"!HM==0
$TMVNM==0
=0
$TMVNM==0
	'\s "#*
PRINTX B "#Jat A (C,D,E)t A (C,D,E)	B~ "$
$
	GSOPDEF"$* %POP%,<POP P,>
"$H	$REMOTE (<%POP% A>)TE (<%POP% 	C.)r "%
($REMOTE (<PURGE A>)TE (<	J-[z ""
$INFO(<DEF""*INE $INFO(X,Y)><X
A,Y>)X,Y)><X	NL{V $
"w
	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
	*X JRST c	$*	;No.  Get in Q f$*8or FIFO behavior
	PUSH P,PROC		;D$*xo it NOW
	MOVEM $+T3,PRCSGT(T1)	;TO$+8DCLK of most rece$+Xnt SIGNAL
	CALL $+xTCPTSK		;Call the$, task
	POP P,PRO$,8C		;Restore our I$,XD as running proc$,xess
	JRST d		;A$-ll done
c:	>	;I$-8FE B

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

B,<
d:	O%; "2J$STKL2(A)$STKL2(A)	O%;	 "3
 
	$STKL3("3*A,\$STVNM)
	IFB"3H <B>,<$STVNM==$S"3hTVNM+1>
	IFNB <"4B>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 "4J.
	IFDEF "4jA,<$IPMSG(\.,<?ST"5ACKL local A alr"5(eady defined>)>
"5H	DEFINE A<^OB+1"5h(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 $r"
	$BBLIP=$ =<Z 11>		
	A (<B>,11C,D) (<
m $R!a
	$BCNT==$r<Z BFRCNT>		
	A$ (<B>,BFRCNTC,D)B>,BFRCNTC,
$ $*!X
	$BDADR=$j=<Z BFRDAD>		
	$A (<B>,BFRDADC,D)B>,BFRDADC,
-{ $Z!I
	$BEOL==$z<Z BFRFLG>		
	A$ (<B>,BFRFLGC,D)B>,BFRFLGC,
6*| $*!t
	$BFRKX=$J=<Z 10>		
	A (<B>,10C,D) (<
D $Z!g
	$BHADR=$z=<Z 6>		
	A (<B>,6C,D)A (<
L;Z $B!n
	$BICNT=$b=<Z 7>		
	A (<B>,7C,D)A (<
LN $&2"5
	$BIDX==$&R<Z 13>		
	A (<B>,13C,D) (<
n3 $ R"
	$BMPAG=$ r=<Z 11>		
	A (<B>,11C,D) (<L@ $!:"
	$BPTR==$!Z<Z BFRPTR>		
	A$!x (<B>,BFRPTRC,D)B>,BFRPTRC,LP $$J"(
	$BPTRA=$$j=<Z BFRPTR>		
	$%A (<B>,BFRPTRC,D)B>,BFRPTRC,LX $"B"
	$BPTRP=$"b=<Z BFRPTR>		
	$#A (<B>,BFRPTRC,D)B>,BFRPTRC,LY $#J" 
	$BPTRS=$#j=<Z BFRPTR>		
	$$A (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ $%R"/
	$BTCB==$%r<Z 13>		
	A (<B>,13C,D) (<&0 $'";
	$BTS==<$':Z 14>		
	A (<B>,14C,D) (<B.3 $
!z
	$BUPAG=$*=<Z 10>		
	A (<B>,10C,D) (<.)` $R!A
	$BURG==$r<Z BFRFLG>		
	A$ (<B>,BFRFLGC,D)B>,BFRFLGC,=P $b!R
	$BWM==<$Z BFRFLG>		
	A $ (<B>,BFRFLGC,D)B>,BFRFLGC,Dl:y #z)
	$CMCKS=#=<Z 0>		
	A (<B>,0C,D)A (<l;r ##
	$CMCOD=#2=<Z 0>		
	A (<B>,0C,D)A (<l}p #C
	$CMGWA=#:=<Z 1>		
	A (<B>,1C,D)A (<m #b0
	$CMID==#<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=#R=<Z 1>		
	A (<B>,1C,D)A (<n98 #J6
	$CMSEQ=#j=<Z 1>		
	A (<B>,1C,D)A (<nLw #J
	$CMTSO=#"=<Z 2>		
	A (<B>,2C,D)A (<nLy #jP
	$CMTSR=#
=<Z 3>		
	A (<B>,3C,D)A (<nLz #RW
	$CMTST=#r=<Z 4>		
	A (<B>,4C,D)A (<nN8 #*
	$CMTYP=#J=<Z 0>		
	A (<B>,0C,D)A (<&0 "mrs
	$DDS==<"nZ PPBFSZ+1>		
	"n0A (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 "kbb
	$DFLAG="l=<Z PPBFSZ+0>		
"l"	A (<B>,PPBFSZ+0C,D),PPBFSZ+= "oz
	$DPKTP="p=<Z PPBFSZ+3>		
"p8	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ "q


	$DPTRC="q"=<Z PPBFSZ+4>		
"q@	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 "lrk
	$DSS==<"mZ PPBFSZ+1>		
	"m0A (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 "nr{
	$DTIME="o=<Z PPBFSZ+2>		
"o0	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 #rq
	$GWHIS=#=<Z 0>		
	A (<B>,0C,D)A (<=z #:}
	$GWICT=#Z=<Z 0>		
	A (<B>,0C,D)A (<>
8 #"d
	$GWPIP=#B=<Z 0>		
	A (<B>,0C,D)A (<>< #Zw
	$GWSPC=#z=<Z 0>		
	A (<B>,0C,D)A (<>N8 #
j
	$GWTYP=#*=<Z 0>		
	A (<B>,0C,D)A (<>\ #:]
	$GWUP==#Z<Z 0>		
	A (<B>,0C,D)A (<B"D;Z "bb
	$HHCNT="=<Z .NBHHL>		
	" A (<B>,.NBHHLC,D)B>,.NBHHLC,#\ #B
	$HSMPL=#b=<Z 1>		
	A (<B>,1C,D)A (<#J2 %4r++
	$HSTIDX%5==<Z HOSTN>		
	%50A (<B>,HOSTNC,D)B>,HOSTNC,#KR %8+D
	$HSTNDX%8"==<Z HOSTPN>		
	%8@A (<B>,HOSTPNC,D)B>,HOSTPNC#KT %7+<
	$HSTNIC%7"==<Z HOSTN>		
	%7@A (<B>,HOSTNC,D)B>,HOSTNC,#KV %5z+3
	$HSTNMP%6==<Z HOSTN>		
	%68A (<B>,HOSTNC,D)B>,HOSTNC,#M %9
+L
	$HSTTTL%9*==<Z HOSTPN>		
	%9HA (<B>,HOSTPNC,D)B>,HOSTPNC#%} #Z
	$HTOTL=#z=<Z 0>		
	A (<B>,0C,D)A (<&
  %1
+

	$IAHI==%1*<Z 0>		
	A (<B>,0C,D)A (<B&

z %1r+
	$IAHST=%2=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=%2r=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=%42=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=%3R=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=%0B=<Z 0>		
	A (<B>,0C,D)A (<&D "
	$IHADR=":=<Z .NBLD1>		
	"XA(<B>,.NBLD1C,D)B>,.NBLD1C,&Dm "
	$IHFTY="D0>		
	"(<B>,.NBLD0C,D)B>,.NBLD0C,&E

z ""&
	$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 "BP
	$IHLEN="b=<Z .NBLD2>		
	"A (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU "*6
	$IHLNK="J=<Z .NBLD1>		
	"hA (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) "2?
	$IHMI2="R=<Z .NBLD2>		
	"pA (<B>,.NBLD2C,D)B>,.NBLD2C,&E] "

	$IHMTY="*=<Z .NBLD0>		
	"HA (<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: "
t
	$IHNET="*=<Z .NBLD0>		
	"HA (<B>,.NBLD0C,D)B>,.NBLD0C,&F	 "BX
	$IHPD1="b=<Z .NBLD2>		
	"A (<B>,.NBLD2C,D)B>,.NBLD2C,&F= ":G
	$IHSTY="Z=<Z .NBLD2>		
	"xA (<B>,.NBLD2C,D)B>,.NBLD2C,&v

 "rs
	$INPPR="=<Z .INPRO>		
	"0A"(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR="
=<Z .INVER>		
	"(A (<B>,.INVERC,D)B>,.INVERC,&vKZ ":S
	$INTNUM":2==<Z >		
	A (<B>,C,D)A (<2;Z #*t
	$LCCNT=#J=<Z 3>		
	A (<B>,3C,D)A (<2LN #

Zg
	$LIDX==#

z<Z 1>		
	A(<B>,1C,D)A (<B2ezy #
	$LLOKR=#
	A (<B>,2C,D)A (<2uJy #r
	$LNLKR=#=<Z 4>		
	A (<B>,4C,D)A (<2}Jy #{
	$LOLKR=#2=<Z 4>		
	A (<B>,4C,D)A (<3=|R #ra
	$LWORD=#

=<Z 0>		
	A (<B>,0C,D)A (<:,} "zc
	$NBBSZ="

=<Z .NBHDR>		
	"

8A (<B>,.NBHDRC,D)B>,.NBHDRC,:2 "
z[
	$NBQUE="=<Z .NBHDR>		
	"8A (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp ";b`
	$NETCA="<=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "<Rg
	$NETCB="<r=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "=Bn
	$NETCC="=b=<Z 0>		
	A (<B>,0C,D)A (<:.Hv ":zY
	$NETCLS";==<Z 0>		
	A (<B>,0C,D)A (<;$I; %;Z+_
	$NTDEV=%;z=<Z 1>		
	A (<B>,1C,D)A (<;%KU %:+S
	$NTLNK=%:2=<Z 0>		
	A (<B>,0C,D)A (<;%m6 %<:+e
	$NTNUM=%<Z=<Z 2>		
	A (<B>,2C,D)A (<;&N8 %:z+Y
	$NTTYP=%;=<Z 1>		
	A (<B>,1C,D)A (<B

:` #':=
	$PACK==#'Z<Z 3>		
	A (<B>,3C,D)A (<BB

:y ##2
	$PACKS=##R=<Z 2>		
	A (<B>,2C,D)A (<BK #$#
	$PCTL==#$:<Z 3>		
	A (<B>,3C,D)A (<BB$= "Lc
	$PDCT=="L2<Z 5>		
	A (<B>,5C,D)A (<BB& #!b
	$PDP==<#"Z 0>		
	A (<B>,0C,D)A (<B>B-{ #("D
	$PEOL==#(B<Z 3>		
	A (<B>,3C,D)A (<BB.98 "Mbp
	$PESEQ="N=<Z 7>		
	A (<B>,7C,D)A (<B5@ #*ZW
	$PFIN==#*z<Z 3>		
	A (<B>,3C,D)A (<BB5Iy "AJ
	$PFLGS="Aj=<Z 1>		
	A (<B>,1C,D)A (<B6:= "D"
	$PFSIZ="D"=<Z 1>		
	A (<B>,1C,D)A (<BL:y "b2
	$PICKS="bR=<Z PKTELI+.IPKPR"bp>		
	A (<B>,PK"cTELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ "[ze
	$PIDF=="\<Z PKTELI+.IPKSG>"\8		
	A (<B>,PKT"\XELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ "e.
	$PIDH=="e"<Z PKTELI+.IPKDH>"e@		
	A (<B>,PKT"e`ELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` "P
	$PIDO=="P2<Z PKTELI+.IPKVR>"PP		
	A (<B>,PKT"PpELI+.IPKVRC,D)LI+.IPKVRC,D)BLk "ZR[
	$PIFLG="Zr=<Z PKTELI+.IPKSG"[>		
	A (<B>,PK"[0TELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` "^:y
	$PIFO=="^Z<Z PKTELI+.IPKSG>"^x		
	A (<B>,PKT"_ELI+.IPKSGC,D)LI+.IPKSGC,D)BM

V "VZ;
	$PIHRL="Vz=<Z PKTELI+.IPKVR"W>		
	A (<B>,PK"W8TELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR="UR=<Z PKTELI+.IPKVR"Up>		
	A (<B>,PK"VTELI+.IPKVRC,D)LI+.IPKVRC,D)BMI "T
&
	$PILDY="T*=<Z PKTELI+.IPKVR"TH>		
	A (<B>,PK"ThTELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ "]o
	$PIMF=="]:<Z PKTELI+.IPKSG>"]X		
	A (<B>,PKT"]xELI+.IPKSGC,D)LI+.IPKSGC,D)BMm "C
	$PINTL="C:=<Z 1>		
	A (<B>,1C,D)A (<BN "XF
	$PIPL=="X"<Z PKTELI+.IPKVR>"X@		
	A (<B>,PKT"X`ELI+.IPKVRC,D)LI+.IPKVRC,D)BN

Q "Rb
	$PIPRC="S=<Z PKTELI+.IPKVR"S >		
	A (<B>,PK"S@TELI+.IPKVRC,D)LI+.IPKVRC,D)BN

W "a

	$PIPRO="a*=<Z PKTELI+.IPKPR"aH>		
	A (<B>,PK"ahTELI+.IPKPRC,D)LI+.IPKPRC,D)BN: "cZ#
	$PISH=="cz<Z PKTELI+.IPKSH>"d		
	A (<B>,PKT"d8ELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 "Y*P
	$PISID="YJ=<Z PKTELI+.IPKSG"Yh>		
	A (<B>,PK"ZTELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy "Q:
	$PITOS="QZ=<Z PKTELI+.IPKVR"Qx>		
	A (<B>,PK"RTELI+.IPKVRC,D)LI+.IPKVRC,D)BNM "_b
	$PITTL="`=<Z PKTELI+.IPKPR"` >		
	A (<B>,PK"`@TELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 "Nj|
	$PIVER="O
=<Z PKTELI+.IPKVR"O(>		
	A (<B>,PK"OHTELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; "H
B
	$PLCLO="H*=<Z 1>		
	A (<B>,1C,D)A (<Be8r "HrI
	$PLKCD="I=<Z 1>		
	A (<B>,1C,D)A (<BuHv "F:5
	$PNLCL="FZ=<Z 1>		
	A (<B>,1C,D)A (<C+s "B2
	$PPROG="BR=<Z 1>		
	A (<B>,1C,D)A (<C= #)
J
	$PRST==#)*<Z 3>		
	A (<B>,3C,D)A (<BC	 "Dj(
	$PRXD=="E
<Z 1>		
	A (<B>,1C,D)A (<BC
  "K*\
	$PRXI=="KJ<Z 4>		
	A (<B>,4C,D)A (<BC<@ "ER/
	$PSCR=="Er<Z 1>		
	A (<B>,1C,D)A (<BC\  #"J
	$PSEQ==#"j<Z 1>		
	A (<B>,1C,D)A (<BC # z	
	$PSP==<#!Z 0>		
	A (<B>,0C,D)A (<B>C+z "G"<
	$PSROU="GB=<Z 1>		
	A (<B>,1C,D)A (<C@ #)rQ
	$PSYN==#*<Z 3>		
	A (<B>,3C,D)A (<BC$:y #,*d
	$PTCKS=#,J=<Z 4>		
	A (<B>,4C,D)A (<C$= #%j0
	$PTCTL=#&
=<Z 3>		
	A (<B>,3C,D)A (<C$K` #%*
	$PTDO==#%"<Z 3>		
	A (<B>,3C,D)A (<BC$p "IZO
	$PTG==<"IzZ 2>		
	A (<B>,2C,D)A (<B>C&0 "Lzi
	$PTS==<"MZ 6>		
	A (<B>,6C,D)A (<B>C&m $"!
	$PTVT==$B<Z TTNETW>		
	A$` (<B>,TTNETWC,D)B>,TTNETWC,C.)` #&R7
	$PURG==#&r<Z 3>		
	A (<B>,3C,D)A (<BC.)x #-k
	$PURGP=#-2=<Z 4>		
	A (<B>,4C,D)A (<C=i #+B^
	$PWNDO=#+b=<Z 3>		
	A (<B>,3C,D)A (<CF@ "JBV
	$PXT==<"JbZ 3>		
	A (<B>,3C,D)A (<B>Ft^ "tR'
	$QNEXT="tr=<Z 0>		
	A (<B>,0C,D)A (<G); #
Z
	$QPREV=#*=<Z 0>		
	A (<B>,0C,D)A (<R

- #nr
	$TABTFX#n"==<Z 62>		
	A (<B>,62C,D) (RHL $

* d
	$TCDB8=$

J=<Z 175>		
	A (<B>,175C,D)(RH{ $B ^
	$TCDCW=$b=<Z 175>		
	A (<B>,175C,D)(RIY $j 0
	$TCDFS=$
=<Z 175>		
	A (<B>,175C,D)(RIr $" D
	$TCDGE=$B=<Z 175>		
	A (<B>,175C,D)(RIw $: =
	$TCDGN=$Z=<Z 175>		
	A (<B>,175C,D)(RJ $ *
	$TCDHT=$"=<Z 175>		
	A (<B>,175C,D)(RJ1 $
Z W
	$TCDIB=$
z=<Z 175>		
	A (<B>,175C,D)(RKq $	r Q
	$TCDOB=$
=<Z 175>		
	A(<B>,175C,D)(RKx $
	$TCDOQ=$		
	A (<B>,175C,D)(RK{ $R 7
	$TCDOW=$r=<Z 175>		
	A (<B>,175C,D)(RL $	
 J
	$TCDPS=$	*=<Z 175>		
	A(<B>,175C,D)(RL $
	$TCDPU=$=<Z 175>		
	A (<B>,175C,D)(RM9 $b x
	$TCDUR=$=<Z 175>		
	A (<B>,175C,D)(RMz $ #
	$TCDWT=$:=<Z 175>		
	A (<B>,175C,D)(RHY $" 
	$TCTBS=$B=<Z 172>		
	A (<B>,172C,D)(RLx $ 

	$TCTSQ=$"=<Z 172>		
	A (<B>,172C,D)(R\[ #gJ>
	$TCURW=#gj=<Z 45>		
	A (<B>,45C,D) (<R{R #h2E
	$TCWND=#hR=<Z 46>		
	A (<B>,46C,D) (<R$X` #>Rw
	$TDEC==#>r<Z 13>		
	A (<B>,13C,D) (<R.(S #~Zw
	$TERBF=#~z=<Z 171>		
	A (<B>,171C,D)(R.*W #:}
	$TERJN=#Z=<Z 171>		
	A (<B>,171C,D)(R.,@ #5j0
	$TERR==#6
<Z 13>		
	A (<B>,13C,D) (<R.,S #az
	$TERRF=#b=<Z 40>		
	A (<B>,40C,D) (<R.,Z #=rq
	$TERRT=#>=<Z 13>		
	A (<B>,13C,D) (<R5 #1b
	$TFH==<#2Z 7>		
	A (<B>,7C,D)A (<B>R5` #2J
	$TFHC==#2j<Z 7>		
	A (<B>,7C,D)A (<BR6 #4#
	$TFP==<#4:Z 11>		
	A (<B>,11C,D) (<BRLi #kR_
	$TIFDF=#kr=<Z 62>		
	A (<B>,62C,D) (<RM| #zZW
	$TIOPF=#zz=<Z 73>		
	A (<B>,73C,D) (<RN	 #x*D
	$TIPDO=#xJ=<Z 73>		
	A (<B>,73C,D) (<RNy #yK
	$TIPOR=#y2=<Z 73>		
	A (<B>,73C,D) (<RNz #yzQ
	$TIPOU=#z=<Z 73>		
	A (<B>,73C,D) (<RT;@ #0r	
	$TJCN==#1<Z 6>		
	A (<B>,6C,D)A (<BRTk@ $B ~
	$TJFN==$b<Z 175>		
	A (<B>,175C,D)(<Re #32
	$TLH==<#3RZ 10>		
	A (<B>,10C,D) (<BRf #5*
	$TLP==<#5"Z 12>		
	A (<B>,12C,D) (<BRlX9 #fb8
	$TMEAS=#g=<Z 44>		
	A (<B>,44C,D) (<RmlZ #cB
	$TMNRT=#cb=<Z 41>		
	A (<B>,41C,D) (<Ro

Z #d*$
	$TMXRT=#dJ=<Z 42>		
	A (<B>,42C,D) (<RvYV #q
	$TNUFM=#q2=<Z 64>		
	A (<B>,64C,D) (<R|lU #bZ
	$TOFRK=#bz=<Z 40>		
	A (<B>,40C,D) (<R~	T #rZ
	$TOPFH=#rz=<Z 65>		
	A (<B>,65C,D) (<R~	X #p2
	$TOPFP=#pR=<Z 64>		
	A (<B>,64C,D) (<R~ #sB
	$TOPLH=#sb=<Z 66>		
	A (<B>,66C,D) (<R~S #a
	$TOPNF=#a2=<Z 40>		
	A (<B>,40C,D) (<R~{Y #0
	$TOWNR=#02=<Z 6>		
	A (<B>,6C,D)A (<Sp #YrS
	$TPICA=#Z=<Z TCBPIC>		
	#Z0A (<B>,TCBPICC,D)B>,TCBPICC,Sr #WrC
	$TPICE=#X=<Z TCBPIC>		
	#X0A (<B>,TCBPICC,D)B>,TCBPICC,Sy #Uj2
	$TPICR=#V
=<Z TCBPIC>		
	#V(A (<B>,TCBPICC,D)B>,TCBPICC,Sy #Vr;
	$TPICS=#W=<Z TCBPIC>		
	#W0A (<B>,TCBPICC,D)B>,TCBPICC,Sz #Tb*
	$TPICU=#U=<Z TCBPIC>		
	#U A (<B>,TCBPICC,D)B>,TCBPICC,S| #XrK
	$TPICX=#Y=<Z TCBPIC>		
	#Y0A (<B>,TCBPICC,D)B>,TCBPICC,SP #`

	$TPIFA=#`*=<Z TCBPIF+2>		
#`H	A (<B>,TCBPIF+2C,D),TCBPIF+SR #^t
	$TPIFE=#^"=<Z TCBPIF+1>		
#^@	A (<B>,TCBPIF+1C,D),TCBPIF+SY #[zc
	$TPIFR=#\=<Z TCBPIF+0>		
#\8	A (<B>,TCBPIF+0C,D),TCBPIF+SY #]l
	$TPIFS=#]"=<Z TCBPIF+1>		
#]@	A (<B>,TCBPIF+1C,D),TCBPIF+SZ #Zz[
	$TPIFU=#[=<Z TCBPIF+0>		
#[8	A (<B>,TCBPIF+0C,D),TCBPIF+S\ #_
|
	$TPIFX=#_*=<Z TCBPIF+2>		
#_H	A (<B>,TCBPIF+2C,D),TCBPIF+S,h $R 
	$TPRS1=$r=<Z 174>		
	A (<B>,174C,D)(S,i $2 
	$TPRS2=$R=<Z 174>		
	A (<B>,174C,D)(S:1 #SZ!
	$TPSIC=#Sz=<Z TCBPIC>		
	#TA (<B>,TCBPICC,D)B>,TCBPICC,S,` #Rr
	$TRBS==#S<Z 31>		
	A (<B>,31C,D) (<S8@ #Q"


	$TRCB==#QB<Z 27>		
	A (<B>,27C,D) (<S8\ #R

	$TRCBY=#R*=<Z 30>		
	A (<B>,30C,D) (<S;Z #ez1
	$TRCNT=#f=<Z 43>		
	A (<B>,43C,D) (<S` #N
r
	$TRIS==#N*<Z 24>		
	A (<B>,24C,D) (<SH5 #u+
	$TRLAK=#u2=<Z 70>		
	A (<B>,70C,D) (<SIZ #Nry
	$TRLFT=#O=<Z 25>		
	A (<B>,25C,D) (<SMw #uz1
	$TRLWN=#v=<Z 71>		
	A (<B>,71C,D) (<S^ #vb8
	$TRMXP=#w=<Z 72>		
	A (<B>,72C,D) (<S

 #:ZW
	$TRPP==#:z<Z 13>		
	A (<B>,13C,D) (<S>7 #@r	
	$TRSYN=#A=<Z 13>		
	A (<B>,13C,D) (<S\S #GR?
	$TRURG=#Gr=<Z 13>		
	A (<B>,13C,D) (<S\X #OZ
	$TRURP=#Oz=<Z 26>		
	A (<B>,26C,D) (<S{R #PB
	$TRWND=#Pb=<Z 27>		
	A (<B>,27C,D) (<S	 #?2}
	$TRXD==#?R<Z 13>		
	A (<B>,13C,D) (<S
  #e+
	$TRXI==#e2<Z 43>		
	A (<B>,43C,D) (<SZ #E2-
	$TSABT=#ER=<Z 13>		
	A (<B>,13C,D) (<S #=k
	$TSAP==#=2<Z 13>		
	A (<B>,13C,D) (<SS #jR
	$TSAVG=#j"=<Z 50>		
	A (<B>,50C,D) (<S.: #t*$
	$TSBYT=#tJ=<Z 67>		
	A (<B>,67C,D) (<S8@ #L:e
	$TSCB==#LZ<Z 20>		
	A (<B>,20C,D) (<S< $j 
	$TSCPK=$
=<Z 173>		
	A (<B>,173C,D)(S<@ #;B^
	$TSCR==#;b<Z 13>		
	A (<B>,13C,D) (<SI; #jjX
	$TSDEV=#k
=<Z 51>		
	A (<B>,51C,D) (<S\ #9rQ
	$TSEP==#:<Z 13>		
	A (<B>,13C,D) (<Sl #9
J
	$TSFP==#9*<Z 13>		
	A (<B>,13C,D) (<S` #H:E
	$TSIS==#HZ<Z 14>		
	A (<B>,14C,D) (<SIZ #I"L
	$TSLFT=#IB=<Z 15>		
	A (<B>,15C,D) (<SMQ #oJ~
	$TSLVC=#oj=<Z 63>		
	A (<B>,63C,D) (<SMW #njx
	$TSLVN=#o
=<Z 63>		
	A (<B>,63C,D) (<S^ #wB>
	$TSMXP=#wb=<Z 72>		
	A (<B>,72C,D) (<S| #Cr!
	$TSOPN=#D=<Z 13>		
	A (<B>,13C,D) (<S

Y #DR'
	$TSPRS=#Dr=<Z 13>		
	A (<B>,13C,D) (<S98 #J
R
	$TSSEQ=#J*=<Z 16>		
	A (<B>,16C,D) (<S= #iK
	$TSSTH=#i:=<Z 47>		
	A (<B>,47C,D) (<S=@ #F3
	$TSSV==#F2<Z 13>		
	A (<B>,13C,D) (<S>7 #AR
	$TSSYN=#Ar=<Z 13>		
	A (<B>,13C,D) (<SH: #@
	$TSTAT=#@2=<Z 13>		
	A (<B>,13C,D) (<SK` #M"l
	$TSTO==#MB<Z 21>		
	A (<B>,21C,D) (<SMW #B2
	$TSTVO=#BR=<Z 13>		
	A (<B>,13C,D) (<S[x #C
	$TSUOP=#C2=<Z 13>		
	A (<B>,13C,D) (<S\S #Fr9
	$TSURG=#G=<Z 13>		
	A (<B>,13C,D) (<S\X #JrY
	$TSURP=#K=<Z 17>		
	A (<B>,17C,D) (<S{R #KZ_
	$TSWND=#Kz=<Z 20>		
	A (<B>,20C,D) (<S%| #}rq
	$TTOPF=#~=<Z 74>		
	A (<B>,74C,D) (<S%|` #m"l
	$TTOS==#mB<Z 62>		
	A (<B>,62C,D) (<S&	 #{B^
	$TTPDO=#{b=<Z 74>		
	A (<B>,74C,D) (<S&y #|*d
	$TTPOR=#|J=<Z 74>		
	A (<B>,74C,D) (<S&z #}k
	$TTPOU=#}2=<Z 74>		
	A (<B>,74C,D) (<S&K #l:e
	$TTTL==#lZ<Z 62>		
	A (<B>,62C,D) (<S&m #<*d
	$TTVT==#<J<Z 13>		
	A (<B>,13C,D) (<S6K #qr
	$TVTL==#r<Z 64>		
	A (<B>,64C,D) (<S=I #6R7
	$TWLDN=#6r=<Z 13>		
	A (<B>,13C,D) (<S=I #8"D
	$TWLDP=#8B=<Z 13>		
	A (<B>,13C,D) (<S=I #7:=
	$TWLDT=#7Z=<Z 13>		
	A (<B>,13C,D) (<V&u $4Z#+
	$UDPCK=$4z=<Z PKTELI+.UDLNC$5>		
	A (<B>,PK$58TELI+.UDLNCC,D)LI+.UDLNCC,D)V&	 $2
#
	$UDPDP=$2*=<Z PKTELI+.UDSDP$2H>		
	A (<B>,PK$2hTELI+.UDSDPC,D)LI+.UDSDPC,D)V& $32#!
	$UDPLN=$3R=<Z PKTELI+.UDLNC$3p>		
	A (<B>,PK$4TELI+.UDLNCC,D)LI+.UDLNCC,D)V&

x $0b#


	$UDPSP=$1=<Z PKTELI+.UDSDP$1 >		
	A (<B>,PK$1@TELI+.UDSDPC,D)LI+.UDSDPC,D):|lzP 3P 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 	ILK<<<A>&<B	I8>>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