PDP-10 Archive: autopatch/anaunv.unv from bb-l014w-bm_tops20_v7_0_atpch

Trailing-Edge - PDP-10 Archives - bb-l014w-bm_tops20_v7_0_atpch_23 - autopatch/anaunv.unv

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

x
,Uq@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"\ #!
 
IFB  <A# j>,<	LOCAL <PARAMS# J>		>
IFNB <A>,<"[Z	LOCAL <PARAMS,A$J>	>
	LALL
DEFIN$hE LH<0(PARAMS)>
$DEFINE LP<1(PARAM$(S)>
DEFINE FH<2($HPARAMS)>
DEFINE $hFP<3(PARAMS)>
DE$FINE JCN<4(PARAMS$()>
DEFINE WILDOK$H<5(PARAMS)>
DEFI$hNE FN<6(PARAMS)>
DEFINE ARG1<7(PA$(RAMS)>
DEFINE AR$HG2<10(PARAMS)>
	SALL
RAMS)>
	G"\ $
 $
	PURGE L$*H,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 $"	IF1 <IFDE$:F A,<PRINTX ? Mu$Xltiply defined of$xfset in DEFWRD>>

;Make symbol p$8rintable or not d$Xepending on if ov$xerlaps AC's

	$ A==:..OFST			;Set$ 8 value as offset $ Xinto table
	IFB $ x<B>,<..OFST==..O$!FST+1>	;Increment$!8 offset
	IFNB <$!XB>,<..OFST==..OFS$!xT+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@ ")BN
	IFN $AC")bVNM,<JRST A>
	IFE $ACVNM,<RET>M&v({P M&v;ZP M.E|zP ~MHP MJm8Q  MPt(xP O ,XQ @O ,K1Q  O'8 "J%(<C>B1!<B>B5!<A>B35!<B
)X0PR <.(0ERO\,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 QNnQ QO$yP QO%P'QO%\uQ QO%k8Q 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"@ "eJ&
	MOVEI C"e*X,2(A)
	ADDI CX"dj,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 @S7VP S78tP S7
8Q @S;

@Q ?`S;l@Q xS;%KUP MS;%m6Q xSB~
  OPTION"1Z(I,END,,^D0,^D1,"2A,B,C)
  OPTIO"2:N(I,NOP,,^D1,^D1,"?ZA,B,C)
  OPTI"W:ON(I,LSR,C,^D3,^D"WX7,A,B,C)
  OP"WxTION(I,RRT,,^D7,^"XD7,A,B,C)
  O"X8PTION(I,SID,C,^D8"XX,^D4,A,B,C)
 "Xx OPTION(I,SSR,,^D"Y9,^D7,A,B,C)
"Y8  OPTION(I,STY,C,"YX^D2,^D11,A,B,C"Yx)

  OPTION(I,T"ZSP,,^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> "bJ
	IFG $AC"VNM,<	$IPMSG(\.,<" ?LOCAL: Missing R"@ESTORE>,\$ACVNM)
			$ACVNM==0>
	"IRP A,<	IFGE $AC" VNM-NLOCLS,<$IPMS"@G(\.,<?Too many L"`OCALs>)>
			$DFA"CL(A,\<$ACVNM>)
			$ACVNM==$ACVNM+1>CVNM==$ACVNY><}P Y>e<@Q xYO|P AY^~)Q []hz $3z(

;The f$4ollowing section $48is the same among$4X all NCT's
.NCT$4xB=:.			;Set addre$5ss of this NCT
	$58EXP	0		;Link word$5X to next NCT in l$5xist
				;(filled$6 in by MNTINI)
N$68CTNUM==NCTNUM+1		$6X;Increment number$6x of NCTS defined

	XWD	NT.TYP,NT$78.DEV	;Protocal an$7Xd device codes
	$7xEXP	NT.NUM		;Net $8index
NT.NUM==NT$88.NUM+1		;incremen$8Xt net index
	EXP$8x	-1		;Internet ne$9twork number (not$98 yet set)
	EXP	-$9X1		;Internet Addr$9xess of this inter$:face
	EXP	0		;Lo$:8gical host mask f$:Xor this network
$:xIFB  <C>,<XWD 37$;7777,-1>	;Maximum$;8 packet size
IFN$;XB <C>,<EXP C>		$;x;Maximum packet s$<ize

;NCP/$<8AN20  MAKSAV  MAC$<XRO  Creates  an  $<xinterrupt  AC  sa$=ve and dispatch
$=8;routine in the c$=Xurrent NCT at the$=x current location$>. Uses The follow$>8ing
;locations ($>Xwhich therefore m$>xust be defined fo$?r  that  net  typ$?8e).  The
;argume$?Xnt  PDP  is the a$?xddress of a Push $@down pointer for $@8this routine.
;D$@XISP is the offset$@x of the dispatch $Aaddress.

DEFIN$A8E MAKSAV(PDP,DISP$AX)
<	MOVEM P,.NCT$AxB+NTSVAC+17	;Sav$Be P
	MOVEI P,.NC$B8TB+NTSVAC	;Where$BX the AC's go
	BL$BxT P,.NCTB+NTSVAC$C+16	;Save all
	M$C8OVE P,PDP			;Set $CXnew P
	XMOVEI P1$Cx,.NCTB		;Point t$Do NCT
	CALL	@DIS$D8P(P1)		;And Goto $DXroutine
>					;E$Dxnd of MAKSAV

$E
;MAKRES  -  Mak$E8e  a 3 word AC re$EXstore , dismiss i$Exnterrupt routine.$F AC's
;are assum$F8ed stored at NTSV$FXAC. Arg PCW is th$Fxe address of the $G interrupt
;PC.

DEFINE	MAKRES($GXPCW)
<	MOVSI P,.$GxNCTB+NTSVAC	;Fro$Hm there to 0
	BL$H8T P,P				;Restore$HX all AC's
	XJEN $Hx.NCTB+PCW		;And $Idismiss the inter$I8rupt
>					;End $IXof MAKRES MACRO
$Ix
IFE <<NT.TYP-NT$J.NCP>!<NT.DEV-NT.$J8ANX>>,<

	ANI==$JXANXA		;[9115] In$Jxput device addres$Ks
	ANO==ANXA+4	$K8	;[9115] Output s$KXide address

	C$KxONSZ ANI,(T1)		;N$LTCNSZ - CONSZ INP$L8UT
	CONSO ANI,(T$LX1)		;NTCNSO - CON$LxSO INPUT
	CONO A$MNI,(T1)		;NTCONO $M8- CONO INPUT
	CO$MXNI ANI,T1		;NTCON$MxI - CONI INPUT
	$NDATAO ANI,T1		;NT$N8DATO - DATAO INPU$NXT
	DATAI ANI,T1	$Nx	;NTDATI - DATAI $OINPUT
	NCTDSP AN$O8XINI		;NTINI  - I$OXNITIALIZATION INS$OxTRUCTION
	NCTDSP$P ANXKIL		;NTKILL $P8- SHUTDOWN INSTRU$PXCTION
	NCTDSP AN$PxXRSS		;NTRSRT - R$QESTART INSTRUCTIO$Q8N
	NCTDSP ANISRT$QX		;NTISRT - START$Qx INPUT INSTRUCTIO$RN
	NCTDSP ANOSRT$R8		;NTOSRT - START$RX OUTPUT INSTRUCTI$RxON
	NCTDSP IMPEI$SN		;NTIDUN - INPU$S8T DONE DISPATCH
$SX	NCTDSP IMODUN		;$SxNTODUN - OUTPUT D$TONE DISPATCH
	NC$T8TDSP IMPHDR		;NTL$TXLDR - MAKE HEADER$Tx INSTRUCTION
	NC$UTDSP RSKP		;NTOTO$U8K - CLEAR PACKET $UXFOR OUTPUT
	NCTD$UxSP R		;NTMAIN - M$VAINTAINANCE
	NCT$V8DSP ANXSCK		;NTSC$VXHK - STATUS CHECK$Vx INSTRUCTION
	BL$WOCK NTOCNO-NTIB	;$W8NTIB THROUGH  NTO$WXTYP
	CONO ANO,(T$Wx1)		;NTOCNO - CON$XO OUTPUT
	CONI A$X8NO,T1		;NTOCNI - $XXCONI OUTPUT
	CON$XxSO ANO,(T1)		;NTO$YCSO - CONSO OUTPU$Y8T
	CONSZ ANO,(T1$YX)		;NTOCSZ - CONS$YxZ OUTPUT
	DATAO $ZANO,T1		;NTODTO -$Z8 DATAO OUTPUT
	D$ZXATAI ANO,T1		;NTO$ZxDTI - DATAI OUTPU$[T
	XPCW .+1		;NT$[8IINT - INTERRUPT $[XINSTRUCTION
	BLO$[xCK 2			;NTIPCW - $\INTURRUPT PC STOR$\8AGE
	EXP 0			;NT$\XINPC - NEW FLAGS $\x(INPUT)
	XCDSEC,$],.+1		;         N$]8EW PC (INPUT SAVE$]X)
	MAKSAV (IMPDP$]xA,NTIDSP) ;[9115$^] NTIISV - 6 word$^8s of AC save rout$^Xine
	MAKRES (NTI$^xPCW)		;NTIIRS - 3$_ WORDS OF AC REST$_8ORE ROUTINE
	XPC$_XW .+1	       	;NT$_xOINT - INTERRUPT $`INSTRUCTION
	BLO$`8CK 2			;NTOPCW - $`XPC STORAGE
	EXP $`x0			;NTONPC - NEW$a FLAGS
	XCDSEC,,$a8.+1		;         NE$aXW PC (OUTPUT SAVE$ax)
	MAKSAV (IMPDP$bA,NTODSP) ;[9115$b8] NTIOSV - 6 word$bXs of AC save
	MA$bxKRES (NTOPCW)		;N$cTIORS   3 WORDS O$c8F AC RESTORE
	BL$cXOCK 20		;NTSVAC -$cx AC storage
	PUR$dGE ANI,ANO		;[911$d85] Zap junk symbo$dXls
>				;End of $dxNCP/ANX condition$eal

IFE$<<$e8NT.TYP-NT.NUN>!<N$eXT.DEV-NT.NIP>>,<$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$vice $(type AN20
REPEAT$(8 ANXN,<			;[9115]$(X For all AN20s
	$(xMAKNCT(\DV.NUM,\N$)CTNUM,^D576) ;[91$)815] Make that typ$)Xe NCT for AN20
	$)xDV.NUM==DV.NUM+1	$*;[9115] Step to n$*8ext device if any$*X
>				;[9115] En$*xd of REPEAT ANXN
>				;[9115] End$+8 of IFN ANXN

I$+XFN IPNIN,<			;[91$+x15] If NIA20 supp$,ort
NT.TYP==NT.N$,8UN			;No local pr$,Xotocol 
NT.DEV==$,xNT.NIP			;Device $-type IPNI
MAKNCT$-8(\DV.NUM,\NCTNUM,$-X^D576)	;Make that$-x type NCT
DV.NUM$.==DV.NUM+1		;[911$.85] Count up the N$.XCT number used
>$.x				;[9115] End o$/f IFN IPNIN

IF$/8N IPCIN,<			;[911$/X5] If CI20 suppor$/xt
NT.TYP==NT.NUN$0			;No local prot$08ocol 
NT.DEV==NT$0X.CIP			;Device ty$0xpe IPCI
MAKNCT(\$1DV.NUM,\NCTNUM,^D$18576)	;[9115] Make$1X that type NCT
D$1xV.NUM==DV.NUM+1		$2;[9115] Count up $28that NCT number
$2X>				;[9115] End $2xof IFN IPCIN

	$3SALL			; Again su$38ppress expansions
ssexpansions[/LY %Z(
..TMP==0%z			;Start at NCT %#0
REPEAT %NETS,%8<
	MAKPTR(\..TMP%X)
	..TMP==..TMP+1>
TMP==..TMP+[/<: ""

	ROT T2,"B-^D9
	LSHC T1,^D27
	HRRI T1,A[;$86 $":"CALL @A(P1)CALL @A(P[;%,Y $"z"JRST @A(P1)JRST @A(P[;'z $#:"XCT A(P1)XCT A(P1)[>&98 #:TLZ A,(-MAXSEQ)LZ A,(-M[Ne|P [b>z1P ]
>@P']Y Q x]$Lx $#z"XCDSEC,,<A&777777>EC,,<]8 r@
   IFNDEraF A,<
	A==:B>A,<
	A==:B>]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 "+	
	TXNN	B"*b,.NETCA		; Class "*BA network?
	/JRS"*"T	[LOAD	A,NETCA,"/:+B	; Get number
		 JRST	c]
	TX"/xNN	B,.NETCB		; C"0lass B?
	 JRST	["08LOAD	A,NETCB,+B"0X
		 JRST	c]
	L"0xOAD	A,NETCC,+B	"1	; Must be class C
c:!e class ]%{@P ]"YP ]&EYP ]&EZP ]2|;P ]?|P ]?&>7P ]Pt\P ]Pt:8P ]PuhxP ]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 "Z:W
IFDIF <# *C>,<C>,<	BOPT=="ZZD	>
IFIDN <C>,<"ZzC>,<	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@.
	"[z		IRP C,<.X==.X+"\: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 "'BF
	IFLE $A"'bCVNM+$STVNM+$TMVN"(M,<$IPMSG(\.,<?Ex"( tra RESTORE macro"(@>,\$ACVNM,\$STVNM"(`,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg !{j^HRLI A,BHRLI A,Bg&%|P Dg;I8Q gO|P gR

:v "!
	IFG $AC"!"VNM+$STVNM,<	$IPM"!@SG(\.,<?STACKL: M"!`issing RESTORE>,\""$ACVNM,\$STVNM)
"" 				$ACVNM==0
		""@		$STVNM==0>
	IR""`P A,<	$STKL1(A)"#>
	JSP CX,.TRSET"# ##
	$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 
3P iP iP iP iPP i\P i(XP

i,P	i8XPi:=P@iIP@iK`P+iLPiL@P0iLPP iL\P iM P 5i$&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@ ?i(w@ >ilP i| #~
  OPTION#z(I,END,,^D0,^D1,#JA,B,C)
  OPTIO#jN(I,NOP,,^D1,^D1,#
A,B,C)
  OPTI#(ON(T,MSL,,^D2,^D4#H,A,B,C)
  OPT#hION(T,LBL,,^D33,^D4,A,B,C)
^i$,`Q xi&< P'i,0P"i.-P i.MP in "z
	IFG $TM""VNM+$STVNM+$STVNM"@,<	$IPMSG(\.,<?TE"`MP: Missing RESTO"RE>,\$ACVNM,\$STV" NM,\$TMVNM)
				"@	$STVNM==0
					"`$TMVNM==0
					$"ACVNM==0>
	IRP " A,<	IFGE $TMVNM-N"@TEMPS,<$IPMSG(\.,"`<?Too many TEMPs>")>
			$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 i6v-P'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 iKQ @iK@P 8iK.)`P iK.,Q iK=iQ xiKEQ iKFQ iKF	Q xiKF
 P'iKF@Q `iN

-P iNQ iNQ iN P'iN
`Q iN Q  iN.Q iN6Q iNdmQ iNfh`P'iNfk@Q xiNn-Q xiNo@Q iNo

Q iN~@P iO|P "iO,`P iO\ Q 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 o&   %"*<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v "b\
	IFDEF "A,<$IPMSG(\.,<?LO" CAL AC A already"@ defined>)>
	PUS"`H P,T1+NTEMPS+B
	A==T1+NTEMPS+" B
	$PURGE A
	$"@POP T1+NTEMPS+BOP T1+NTEMPS+B	6K8 "b
	IFDEF " A,<$IPMSG(\.,<?TE"  MP A already def" @ined>)>
	A==T1+B
	$PURGE A+	".)  " 
	$INFO
	$INIT
	$INFO
	&tk` HA
B	&u "
	DEFINE ""$INFO(X,Y)<X
Y>@
$ACVNM==0
$STVN"`M==0
$TMVNM==0
=0
$TMVNM==0
	'\s "B&
PRINTX B "bat A (C,D,E)t A (C,D,E)	B~ "".
	GSOPDEF"B %POP%,<POP P,>
"`	$REMOTE (<%POP% A>)TE (<%POP% 	C.)r ""2$REMOTE (<PURGE A>)TE (<	J-[z ""$INFO(<DEF"BINE $INFO(X,Y)><X
A,Y>)X,Y)><X	NL{V $j!m
	XMOVEI $JT1,A		;Process t$*o signal
  IFE $
B,<
	MOVE T3,TOD$ZCLK		;Now
	SKIPL$x T2,PRCWAK(T1)	;I$f no wakeup set, $8NOW is ok
	 CAML$XE T2,T3		;If past$x due, queue
	  S$KIPLE NSKED		;NOW$8 is ok unless NOS$XKED
	8 JRST c	$x	;No.  Get in Q f$or FIFO behavior
	PUSH P,PROC		;D$Xo it NOW
	MOVEM $xT3,PRCSGT(T1)	;TO$DCLK of most rece$8nt SIGNAL
	CALL $XTCPTSK		;Call the$x task
	POP P,PRO$C		;Restore our I$8D as running proc$Xess
	JRST d		;A$xll done
c:	>	;I$FE B

;Avoid s$8tack overflow on $XKA, always queue
	MOVX T2,B		;Nu$mber of milliseco$8nds
	CALL SIGNAL$X
  IFE B,<
d:  >

B,<
d:	O%; "#b$STKL2(A)$STKL2(A)	O%;	 "$"*
	$STKL3("$BA,\$STVNM)
	IFB"$` <B>,<$STVNM==$S"%TVNM+1>
	IFNB <"% B>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 "%b8
	IFDEF "&A,<$IPMSG(\.,<?ST"& ACKL local A alr"&@eady defined>)>
"&`	DEFINE A<^OB+1"'(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 $R w
	$BBLIP=$r=<Z 11>		
	A (<B>,11C,D) (<
m $
2 W
	$BCNT==$
R<Z BFRCNT>		
	A$
p (<B>,BFRCNTC,D)B>,BFRCNTC,
$ $
 N
	$BDADR=$	J=<Z BFRDAD>		
	$	hA (<B>,BFRDADC,D)B>,BFRDADC,
-{ $: ?
	$BEOL==$Z<Z BFRFLG>		
	A$x (<B>,BFRFLGC,D)B>,BFRFLGC,
6*| $
 j
	$BFRKX=$	
	A (<B>,10C,D) (<
D $: ]
	$BHADR=$Z=<Z 6>		
	A (<B>,6C,D)A (<
L;Z $

" d
	$BICNT=$

B=<Z 7>		
	A (<B>,7C,D)A (<
LN $!+
	$BIDX==$2<Z 13>		
	A (<B>,13C,D) (<
n3 $2 }
	$BMPAG=$R=<Z 11>		
	A (<B>,11C,D) (<L@ $!
	$BPTR==$:<Z BFRPTR>		
	A$X (<B>,BFRPTRC,D)B>,BFRPTRC,LP $*!
	$BPTRA=$J=<Z BFRPTR>		
	$hA (<B>,BFRPTRC,D)B>,BFRPTRC,LX $"!
	$BPTRP=$B=<Z BFRPTR>		
	$`A (<B>,BFRPTRC,D)B>,BFRPTRC,LY $*!
	$BPTRS=$J=<Z BFRPTR>		
	$hA (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ $2!%
	$BTCB==$R<Z 13>		
	A (<B>,13C,D) (<&0 $z!1
	$BTS==<$Z 14>		
	A(<B>,14C,D) (<B.3 $
	$BUPAG=$
=<Z 10>		
	A (<B>,10C,D) (<.)` $2 7
	$BURG==$R<Z BFRFLG>		
	A$p (<B>,BFRFLGC,D)B>,BFRFLGC,=P $B H
	$BWM==<$bZ BFRFLG>		
	A $	(<B>,BFRFLGC,D)B>,BFRFLGC,Dl:y #3
	$CMCKS=#2=<Z 0>		
	A (<B>,0C,D)A (<l;r #*,
	$CMCOD=#J=<Z 0>		
	A (<B>,0C,D)A (<l}p #	2M
	$CMGWA=#	R=<Z 1>		
	A (<B>,1C,D)A (<m #z9
	$CMID==#<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=#j=<Z 1>		
	A (<B>,1C,D)A (<n98 #b@
	$CMSEQ=#=<Z 1>		
	A (<B>,1C,D)A (<nLw #
S
	$CMTSO=#
:=<Z 2>		
	A (<B>,2C,D)A (<nLy #Z
	$CMTSR=#"=<Z 3>		
	A (<B>,3C,D)A (<nLz #j`
	$CMTST=#

=<Z 4>		
	A (<B>,4C,D)A (<nN8 #B&
	$CMTYP=#b=<Z 0>		
	A (<B>,0C,D)A (<&0 "_
|
	$DDS==<"_*Z PPBFSZ+1>		
	"_HA (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 "\zk
	$DFLAG="]=<Z PPBFSZ+0>		
"]:	A (<B>,PPBFSZ+0C,D),PPBFSZ+= "a
	$DPKTP="a2=<Z PPBFSZ+3>		
"aP	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ "b
	$DPTRC="b:=<Z PPBFSZ+4>		
"bX	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 "^
t
	$DSS==<"^*Z PPBFSZ+1>		
	"^HA (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 "`

	$DTIME="`*=<Z PPBFSZ+2>		
"`H	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 #
z
	$GWHIS=#*=<Z 0>		
	A (<B>,0C,D)A (<=z #R
	$GWICT=#r=<Z 0>		
	A (<B>,0C,D)A (<>
8#
	$GWPIP=#
	A (<B>,0C,D)A (<>< #r
	$GWSPC=#=<Z 0>		
	A (<B>,0C,D)A (<>N8 #"t
	$GWTYP=#B=<Z 0>		
	A (<B>,0C,D)A (<>\ #

Rg
	$GWUP==#

r<Z 0>		
	A (<B>,0C,D)A (<B"D;Z "

zk
	$HHCNT="HL>		
	"(<B>,.NBHHLC,D)B>,.NBHHLC,#\ #Z
	$HSMPL=#z=<Z 1>		
	A (<B>,1C,D)A (<#J2 %2(G
	$HSTIDX%R==<Z HOSTN>		
	%pA (<B>,HOSTNC,D)B>,HOSTNC,#KV %	:(O
	$HSTNMP%	Z==<Z HOSTN>		
	%	xA (<B>,HOSTNC,D)B>,HOSTNC,#%} #r
	$HTOTL=#=<Z 0>		
	A (<B>,0C,D)A (<&
  %J(&
	$IAHI==%j<Z 0>		
	A (<B>,0C,D)A (<B&

z %2(-
	$IAHST=%R=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=%2=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=%r=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=%=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=%=<Z 0>		
	A (<B>,0C,D)A (<&D "2'
	$IHADR="R=<Z .NBLD1>		
	"pA (<B>,.NBLD1C,D)B>,.NBLD1C,&Dm !~u
	$IHFTY=!~:=<Z .NBLD0>		
	!~XA (<B>,.NBLD0C,D)B>,.NBLD0C,&E

z ":/
	$IHHST="Z=<Z .NBLD1>		
	"xA"(<B>,.NBLD1C,D)B>,.NBLD1C,&E
	$IHHT2="B=<Z .NBLD0>		
	"`A"(<B>,.NBLD0C,D)B>,.NBLD0C,&E
	$IHHTY="J=<Z .NBLD1>		
	"hA (<B>,.NBLD1C,D)B>,.NBLD1C,&E8 "B8
	$IHIMP="b=<Z .NBLD1>		
	"A (<B>,.NBLD1C,D)B>,.NBLD1C,&EI ""
	$IHLDF="B=<Z .NBLD0>		
	"`A (<B>,.NBLD0C,D)B>,.NBLD0C,&EI7 "
ZY
	$IHLEN="
z=<Z .NBLD2>		
	"A (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU "B@
	$IHLNK="b=<Z .NBLD1>		
	"A (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) "JH
	$IHMI2="j=<Z .NBLD2>		
	"	A (<B>,.NBLD2C,D)B>,.NBLD2C,&E] ""
	$IHMTY="B=<Z .NBLD0>		
	"`A (<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: !"~
	$IHNET=!B=<Z .NBLD0>		
	!`A (<B>,.NBLD0C,D)B>,.NBLD0C,&F	 "Za
	$IHPD1="z=<Z .NBLD2>		
	"

A (<B>,.NBLD2C,D)B>,.NBLD2C,&F= "	RQ
	$IHSTY="	r=<Z .NBLD2>		
	"
A (<B>,.NBLD2C,D)B>,.NBLD2C,&v

 "
|
	$INPPR="*=<Z .INPRO>		
	"HA"(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR=""=<Z .INVER>		
	"@A (<B>,.INVERC,D)B>,.INVERC,&vKZ "+*\
	$INTNUM"+J==<Z >		
	A (<B>,C,D)A (<2;Z "B~
	$LCCNT="b=<Z 3>		
	A (<B>,3C,D)A (<2LN "}rq
	$LIDX=="~<Z 1>		
	A (<B>,1C,D)A (<B2ezy "~Zw
	$LLOKR="~z=<Z 2>		
	A (<B>,2C,D)A (<2uJy #


	$LNLKR=#*=<Z 4>		
	A (<B>,4C,D)A (<2}Jy #*
	$LOLKR=#J=<Z 4>		
	A (<B>,4C,D)A (<3=|R "}
j
	$LWORD="}*=<Z 0>		
	A (<B>,0C,D)A (<:,} !}m
	$NBBSZ=!}2=<Z .NBHDR>		
	!}PA (<B>,.NBHDRC,D)B>,.NBHDRC,:2 !|e
	$NBQUE=!|2=<Z .NBHDR>		
	!|PA (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp ",zi
	$NETCA="-=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "-jp
	$NETCB=".
=<Z 0>		
	A (<B>,0C,D)A (<:.Hq ".Zw
	$NETCC=".z=<Z 0>		
	A (<B>,0C,D)A (<:.Hv ",c
	$NETCLS",2==<Z 0>		
	A (<B>,0C,D)A (<;$I; %

(b
	$NTDEV=%

*=<Z 1>		
	A (<B>,1C,D)A (<;%KU %
B(V
	$NTLNK=%
b=<Z 0>		
	A (<B>,0C,D)A (<;%m6 %

j(h
	$NTNUM=%
=<Z 2>		
	A (<B>,2C,D)A (<;&N8 %*(\
	$NTTYP=%J=<Z 1>		
	A (<B>,1C,D)A (<B

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

:y #J&
	$PACKS=#j=<Z 2>		
	A (<B>,2C,D)A (<BK #2-
	$PCTL==#R<Z 3>		
	A (<B>,3C,D)A (<BB$= "=*l
	$PDCT=="=J<Z 5>		
	A (<B>,5C,D)A (<BB& #z
	$PDP==<#Z 0>		
	A (<B>,0C,D)A (<B>B-{ #:M
	$PEOL==#Z<Z 3>		
	A (<B>,3C,D)A (<BB.98 ">zy
	$PESEQ="?=<Z 7>		
	A (<B>,7C,D)A (<B5@ #ra
	$PFIN==#<Z 3>		
	A (<B>,3C,D)A (<BB5Iy "2b
	$PFLGS="3=<Z 1>		
	A (<B>,1C,D)A (<B6:= "5+
	$PFSIZ="5:=<Z 1>		
	A (<B>,1C,D)A (<BL:y "SJ"
	$PICKS="Sj=<Z PKTELI+.IPKPR"T>		
	A (<B>,PK"T(TELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ "Mo
	$PIDF=="M2<Z PKTELI+.IPKSG>"MP		
	A (<B>,PKT"MpELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ "V7
	$PIDH=="V:<Z PKTELI+.IPKDH>"VX		
	A (<B>,PKT"VxELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` "A*
	$PIDO=="AJ<Z PKTELI+.IPKVR>"Ah		
	A (<B>,PKT"BELI+.IPKVRC,D)LI+.IPKVRC,D)BLk "Kjd
	$PIFLG="L
=<Z PKTELI+.IPKSG"L(>		
	A (<B>,PK"LHTELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` "OR
	$PIFO=="Or<Z PKTELI+.IPKSG>"P		
	A (<B>,PKT"P0ELI+.IPKSGC,D)LI+.IPKSGC,D)BM

V "GrE
	$PIHRL="H=<Z PKTELI+.IPKVR"H0>		
	A (<B>,PK"HPTELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR="Fj=<Z PKTELI+.IPKVR"G>		
	A (<B>,PK"G(TELI+.IPKVRC,D)LI+.IPKVRC,D)BMI "E"0
	$PILDY="EB=<Z PKTELI+.IPKVR"E`>		
	A (<B>,PK"FTELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ "N2y
	$PIMF=="NR<Z PKTELI+.IPKSG>"Np		
	A (<B>,PKT"OELI+.IPKSGC,D)LI+.IPKSGC,D)BMm "42%
	$PINTL="4R=<Z 1>		
	A (<B>,1C,D)A (<BN "IO
	$PIPL=="I:<Z PKTELI+.IPKVR>"IX		
	A (<B>,PKT"IxELI+.IPKVRC,D)LI+.IPKVRC,D)BN

Q "Cz%
	$PIPRC="D=<Z PKTELI+.IPKVR"D8>		
	A (<B>,PK"DXTELI+.IPKVRC,D)LI+.IPKVRC,D)BN

W "R"
	$PIPRO="RB=<Z PKTELI+.IPKPR"R`>		
	A (<B>,PK"STELI+.IPKPRC,D)LI+.IPKPRC,D)BN: "Tr-
	$PISH=="U<Z PKTELI+.IPKSH>"U0		
	A (<B>,PKT"UPELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 "JBZ
	$PISID="Jb=<Z PKTELI+.IPKSG"K>		
	A (<B>,PK"K TELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy "BR
	$PITOS="Br=<Z PKTELI+.IPKVR"C>		
	A(<B>,PK"C0TELI+.IPKVRC,D)LI+.IPKVRC,D)BNM "Pz
	$PITTL="Q=<Z PKTELI+.IPKPR"Q8>		
	A (<B>,PK"QXTELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 "@
	$PIVER="@"=<Z PKTELI+.IPKVR"@@>		
	A (<B>,PK"@`TELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; "9"L
	$PLCLO="9B=<Z 1>		
	A (<B>,1C,D)A (<Be8r ":
R
	$PLKCD=":*=<Z 1>		
	A (<B>,1C,D)A (<BuHv "7R?
	$PNLCL="7r=<Z 1>		
	A (<B>,1C,D)A (<C+s "3J
	$PPROG="3j=<Z 1>		
	A (<B>,1C,D)A (<C= #"T
	$PRST==#B<Z 3>		
	A (<B>,3C,D)A (<BC	 "62
	$PRXD=="6"<Z 1>		
	A (<B>,1C,D)A (<BC
  "<Bf
	$PRXI=="<b<Z 4>		
	A (<B>,4C,D)A (<BC<@ "6j8
	$PSCR=="7
<Z 1>		
	A (<B>,1C,D)A (<BC\  #b 
	$PSEQ==#<Z 1>		
	A (<B>,1C,D)A (<BC #
	$PSP==<#2Z 0>		
	A (<B>,0C,D)A (<B>C+z "8:E
	$PSROU="8Z=<Z 1>		
	A (<B>,1C,D)A (<C@ #
Z
	$PSYN==#*<Z 3>		
	A (<B>,3C,D)A (<BC$:y #Bn
	$PTCKS=#b=<Z 4>		
	A (<B>,4C,D)A (<C$= #:
	$PTCTL=#"=<Z 3>		
	A (<B>,3C,D)A (<C$K` #3
	$PTDO==#:<Z 3>		
	A (<B>,3C,D)A (<BC$p ":rY
	$PTG==<";Z 2>		
	A (<B>,2C,D)A (<B>C&0 ">s
	$PTS==<">2Z 6>		
	A (<B>,6C,D)A (<B>C&m #|
	$PTVT==#"<Z TTNETW>		
	A#@ (<B>,TTNETWC,D)B>,TTNETWC,C.)` #j@
	$PURG==#
<Z 3>		
	A (<B>,3C,D)A (<BC.)x #*t
	$PURGP=#J=<Z 4>		
	A (<B>,4C,D)A (<C=i #Zg
	$PWNDO=#z=<Z 3>		
	A (<B>,3C,D)A (<CF@ ";Z_
	$PXT==<";zZ 3>		
	A (<B>,3C,D)A (<B>Ft^ "ej0
	$QNEXT="f
=<Z 0>		
	A (<B>,0C,D)A (<G); "|"d
	$QPREV="|B=<Z 0>		
	A (<B>,0C,D)A (<R

- #\Zg
	$TABTFX#\z==<Z 54>		
	A (<B>,54C,D) (RHL #{
Z
	$TCDB8=#{*=<Z 170>		
	A (<B>,170C,D)(RH{ #z"T
	$TCDCW=#zB=<Z 170>		
	A (<B>,170C,D)(RIY #tJ&
	$TCDFS=#tj=<Z 170>		
	A (<B>,170C,D)(RIr #w:
	$TCDGE=#w"=<Z 170>		
	A (<B>,170C,D)(RIw #v3
	$TCDGN=#v:=<Z 170>		
	A (<B>,170C,D)(RJ #sb 
	$TCDHT=#t=<Z 170>		
	A (<B>,170C,D)(RJ1 #y:M
	$TCDIB=#yZ=<Z 170>		
	A (<B>,170C,D)(RKq #xRG
	$TCDOB=#xr=<Z 170>		
	A (<B>,170C,D)(RKx #{ra
	$TCDOQ=#|=<Z 170>		
	A (<B>,170C,D)(RK{ #u2-
	$TCDOW=#uR=<Z 170>		
	A (<B>,170C,D)(RL #wj@
	$TCDPS=#x
=<Z 170>		
	A (<B>,170C,D)(RL #|Zg
	$TCDPU=#|z=<Z 170>		
	A (<B>,170C,D)(RM9 #}Bn
	$TCDUR=#}b=<Z 170>		
	A (<B>,170C,D)(RMz #rz
	$TCDWT=#s=<Z 170>		
	A (<B>,170C,D)(RHY #oz
	$TCTBS=#o"=<Z 165>		
	A (<B>,165C,D)(RLx #ob
	$TCTSQ=#p=<Z 165>		
	A (<B>,165C,D)(R$X` #/j
	$TDEC==#0
<Z 13>		
	A (<B>,13C,D) (<R.(S #m:m
	$TERBF=#mZ=<Z 164>		
	A (<B>,164C,D)(R.*W #ns
	$TERJN=#n:=<Z 164>		
	A (<B>,164C,D)(R.,@ #':
	$TERR==#'"<Z 13>		
	A (<B>,13C,D) (<R.,S #QJ
	$TERRF=#Qj=<Z 37>		
	A (<B>,37C,D) (<R.,Z #/
z
	$TERRT=#/*=<Z 13>		
	A (<B>,13C,D) (<R5 #"z
	$TFH==<##Z 7>		
	A (<B>,7C,D)A (<B>R5` ##b 
	$TFHC==#$<Z 7>		
	A (<B>,7C,D)A (<BR6 #%2-
	$TFP==<#%RZ 11>		
	A (<B>,11C,D) (<BRLi #Z*T
	$TIFDF=#ZJ=<Z 54>		
	A (<B>,54C,D) (<RM| #i:M
	$TIOPF=#iZ=<Z 66>		
	A (<B>,66C,D) (<RN	 #g
:
	$TIPDO=#g*=<Z 66>		
	A (<B>,66C,D) (<RNy #grA
	$TIPOR=#h=<Z 66>		
	A (<B>,66C,D) (<RNz #hZG
	$TIPOU=#hz=<Z 66>		
	A (<B>,66C,D) (<RT;@ #"

	$TJCN==#"2<Z 6>		
	A (<B>,6C,D)A (<BRTk@ #~"t
	$TJFN==#~B<Z 170>		
	A (<B>,170C,D)(<Re #$J&
	$TLH==<#$jZ 10>		
	A (<B>,10C,D) (<BRf #&3
	$TLP==<#&:Z 12>		
	A (<B>,12C,D) (<BRmlZ #Sr!
	$TMNRT=#T=<Z 40>		
	A (<B>,40C,D) (<Ro

Z #TZ'
	$TMXRT=#Tz=<Z 41>		
	A (<B>,41C,D) (<RvYV #_j
	$TNUFM=#`
=<Z 56>		
	A (<B>,56C,D) (<R|lU #R*
	$TOFRK=#RJ=<Z 37>		
	A(<B>,37C,D) (<R~	T #a2
	$TOPFH=#aR=<Z 57>		
	A (<B>,57C,D) (<R~	X #_
z
	$TOPFP=#_*=<Z 56>		
	A (<B>,56C,D) (<R~ #b
	$TOPLH=#b:=<Z 60>		
	A (<B>,60C,D) (<R~S #Pb
	$TOPNF=#Q=<Z 37>		
	A (<B>,37C,D) (<R~{Y #!*


	$TOWNR=#!J=<Z 6>		
	A (<B>,6C,D)A (<Sp #IBP
	$TPICA=#Ib=<Z TCBPIC>		
	#JA (<B>,TCBPICC,D)B>,TCBPICC,Sr #GB@
	$TPICE=#Gb=<Z TCBPIC>		
	#HA (<B>,TCBPICC,D)B>,TCBPICC,Sy #E:/
	$TPICR=#EZ=<Z TCBPIC>		
	#ExA (<B>,TCBPICC,D)B>,TCBPICC,Sy #FB8
	$TPICS=#Fb=<Z TCBPIC>		
	#GA (<B>,TCBPICC,D)B>,TCBPICC,Sz #D2'
	$TPICU=#DR=<Z TCBPIC>		
	#DpA (<B>,TCBPICC,D)B>,TCBPICC,S| #HBH
	$TPICX=#Hb=<Z TCBPIC>		
	#IA (<B>,TCBPICC,D)B>,TCBPICC,SP #OZ
	$TPIFA=#Oz=<Z TCBPIF+2>		
#P	A (<B>,TCBPIF+2C,D),TCBPIF+SR #MRq
	$TPIFE=#Mr=<Z TCBPIF+1>		
#N	A (<B>,TCBPIF+1C,D),TCBPIF+SY #KJ`
	$TPIFR=#Kj=<Z TCBPIF+0>		
#L	A (<B>,TCBPIF+0C,D),TCBPIF+SY #LRi
	$TPIFS=#Lr=<Z TCBPIF+1>		
#M	A (<B>,TCBPIF+1C,D),TCBPIF+SZ #JJX
	$TPIFU=#Jj=<Z TCBPIF+0>		
#K	A (<B>,TCBPIF+0C,D),TCBPIF+S\ #NZy
	$TPIFX=#Nz=<Z TCBPIF+2>		
#O	A (<B>,TCBPIF+2C,D),TCBPIF+S,h #q2
	$TPRS1=#qR=<Z 167>		
	A (<B>,167C,D)(S,i #r
	$TPRS2=#r2=<Z 167>		
	A (<B>,167C,D)(S:1 #C*
	$TPSIC=#CJ=<Z TCBPIC>		
	#ChA (<B>,TCBPICC,D)B>,TCBPICC,S,` #BB
	$TRBS==#Bb<Z 30>		
	A (<B>,30C,D) (<S8@ #@r	
	$TRCB==#A<Z 26>		
	A (<B>,26C,D) (<S8\ #AZ
	$TRCBY=#Az=<Z 27>		
	A (<B>,27C,D) (<S;Z #V*4
	$TRCNT=#VJ=<Z 42>		
	A (<B>,42C,D) (<S` #=Zo
	$TRIS==#=z<Z 23>		
	A (<B>,23C,D) (<SH5 #cj 
	$TRLAK=#d
=<Z 62>		
	A (<B>,62C,D) (<SIZ #>Bv
	$TRLFT=#>b=<Z 24>		
	A (<B>,24C,D) (<SMw #dR'
	$TRLWN=#dr=<Z 63>		
	A (<B>,63C,D) (<S

 #+ra
	$TRPP==#,<Z 13>		
	A (<B>,13C,D) (<S>7 #1*


	$TRSYN=#1J=<Z 13>		
	A (<B>,13C,D) (<S\S #8
B
	$TRURG=#8*=<Z 13>		
	A (<B>,13C,D) (<S\X #?*|
	$TRURP=#?J=<Z 25>		
	A (<B>,25C,D) (<S{R #@
	$TRWND=#@2=<Z 26>		
	A (<B>,26C,D) (<S
  #UB.
	$TRXI==#Ub<Z 42>		
	A (<B>,42C,D) (<S

 #W;
	$TRXP==#W2<Z 43>		
	A (<B>,43C,D) (<S

 #XbH
	$TRXPD=#Y=<Z 43>		
	A (<B>,43C,D) (<S

 #YBN
	$TRXPI=#Yb=<Z 43>		
	A (<B>,43C,D) (<S

 #WzA
	$TRXPN=#X=<Z 43>		
	A (<B>,43C,D) (<SZ #5j0
	$TSABT=#6
=<Z 13>		
	A (<B>,13C,D) (<S #.*t
	$TSAP==#.J<Z 13>		
	A (<B>,13C,D) (<S.: #c
	$TSBYT=#c"=<Z 61>		
	A (<B>,61C,D) (<S8@ #<
b
	$TSCB==#<*<Z 17>		
	A (<B>,17C,D) (<S< #pJ
	$TSCPK=#pj=<Z 166>		
	A (<B>,166C,D)(S<@ #,Zg
	$TSCR==#,z<Z 13>		
	A (<B>,13C,D) (<S\ #+
Z
	$TSEP==#+*<Z 13>		
	A (<B>,13C,D) (<Sl #*"T
	$TSFP==#*B<Z 13>		
	A (<B>,13C,D) (<SIZ #8rI
	$TSLFT=#9=<Z 14>		
	A (<B>,14C,D) (<SMQ #^"t
	$TSLVC=#^B=<Z 55>		
	A (<B>,55C,D) (<SMW #]Bn
	$TSLVN=#]b=<Z 55>		
	A (<B>,55C,D) (<S\Z #S
	$TSMRT=#S2=<Z 40>		
	A (<B>,40C,D) (<S^ #e:-
	$TSMXB=#eZ=<Z 64>		
	A (<B>,64C,D) (<S^ #f"4
	$TSMXP=#fB=<Z 65>		
	A (<B>,65C,D) (<S| #4*$
	$TSOPN=#4J=<Z 13>		
	A (<B>,13C,D) (<S

Y #5
*
	$TSPRS=#5*=<Z 13>		
	A (<B>,13C,D) (<S98 #9ZO
	$TSSEQ=#9z=<Z 15>		
	A (<B>,15C,D) (<S=@ #6J6
	$TSSV==#6j<Z 13>		
	A (<B>,13C,D) (<S>7 #2

	$TSSYN=#2*=<Z 13>		
	A (<B>,13C,D) (<SH: #0J
	$TSTAT=#0j=<Z 13>		
	A (<B>,13C,D) (<SK` #<ri
	$TSTO==#=<Z 20>		
	A (<B>,20C,D) (<SMW #2j
	$TSTVO=#3
=<Z 13>		
	A (<B>,13C,D) (<S[x #3J
	$TSUOP=#3j=<Z 13>		
	A (<B>,13C,D) (<S\S #7*<
	$TSURG=#7J=<Z 13>		
	A (<B>,13C,D) (<S\X #:BV
	$TSURP=#:b=<Z 16>		
	A (<B>,16C,D) (<S{R #;*\
	$TSWND=#;J=<Z 17>		
	A (<B>,17C,D) (<S%| #lRg
	$TTOPF=#lr=<Z 67>		
	A (<B>,67C,D) (<S%|` #[za
	$TTOS==#\<Z 54>		
	A (<B>,54C,D) (<S&	 #j"T
	$TTPDO=#jB=<Z 67>		
	A (<B>,67C,D) (<S&y #k
Z
	$TTPOR=#k*=<Z 67>		
	A (<B>,67C,D) (<S&z #kra
	$TTPOU=#l=<Z 67>		
	A (<B>,67C,D) (<S&K #[[
	$TTTL==#[2<Z 54>		
	A (<B>,54C,D) (<S&m #-Bn
	$TTVT==#-b<Z 13>		
	A (<B>,13C,D) (<S6K #`J
	$TVTL==#`j<Z 56>		
	A (<B>,56C,D) (<S=I #'j@
	$TWLDN=#(
=<Z 13>		
	A (<B>,13C,D) (<S=I #):M
	$TWLDP=#)Z=<Z 13>		
	A (<B>,13C,D) (<S=I #(RG
	$TWLDT=#(r=<Z 13>		
	A (<B>,13C,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 `Q A>}{woP