PDP-10 Archive: 6-1-sources/anaunv.unv from tops20_v6_1_tcpip_distribution_tp

Trailing-Edge - PDP-10 Archives - tops20_v6_1_tcpip_distribution_tp_ft6 - 6-1-sources/anaunv.unv

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

x
,Qm@P 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"\ $&z(?
IFB  <A$&Z>,<	LOCAL <PARAMS$&:>		>
IFNB <A>,<#aJ	LOCAL <PARAMS,A%z>	>
	LALL
DEFIN%E LH<0(PARAMS)>
%8DEFINE LP<1(PARAM%XS)>
DEFINE FH<2(%xPARAMS)>
DEFINE %FP<3(PARAMS)>
DE%8FINE JCN<4(PARAMS%X)>
DEFINE WILDOK%x<5(PARAMS)>
DEFI%NE FN<6(PARAMS)>
DEFINE ARG1<7(PA%XRAMS)>
DEFINE AR%xG2<10(PARAMS)>
	SALL
RAMS)>
	G"\ %:(G
	PURGE L%ZH,LP,FH,FP,JCN,WI%xLDOK,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 %"J*2	IF1 <IFDE%"jF A,<PRINTX ? Mu%#ltiply defined of%#(fset in DEFWRD>>

;Make symbol p%#hrintable or not d%$epending on if ov%$(erlaps AC's

	%$HA==:..OFST			;Set%$h value as offset %%into table
	IFB %%(<B>,<..OFST==..O%%HFST+1>	;Increment%%h offset
	IFNB <%&B>,<..OFST==..OFS%&(T+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@ #0
	IFN $AC#0:VNM,<JRST A>
	IFE $ACVNM,<RET>M&v({P M&v;ZP M.E|zP ~MHP MJm8Q  MPt(xP O ,XQ @O ,K1Q  O'8 #":&X<C>B1!<B>B5!<A>B35!<B
10PR82,0$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 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"@ #k:U
	MOVEI C#kX,2(A)
	ADDI CX#jZ,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#9(I,END,,^D0,^D1,#8RA,B,C)
  OPTIO#82N(I,NOP,,^D1,^D1,#EJA,B,C)
  OPTI#]*ON(I,LSR,C,^D3,^D#]H7,A,B,C)
  OP#]hTION(I,RRT,,^D7,^#^D7,A,B,C)
  O#^(PTION(I,SID,C,^D8#^H,^D4,A,B,C)
 #^h OPTION(I,SSR,,^D#_9,^D7,A,B,C)
#_(  OPTION(I,STY,C,#_H^D2,^D11,A,B,C#_h)

  OPTION(I,T#`SP,,^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> #:
	IFG $AC#ZVNM,<	$IPMSG(\.,<#x?LOCAL: Missing R#ESTORE>,\$ACVNM)
			$ACVNM==0>
	#XIRP A,<	IFGE $AC#xVNM-NLOCLS,<$IPMS#G(\.,<?Too many L#8OCALs>)>
			$DFA#XCL(A,\<$ACVNM>)
			$ACVNM==$ACVNM+1>CVNM==$ACVNY><}P Y>e<@Q xYO|P AY^~)Q []hz %4*0



;The f%4Jollowing section %4his the same among%5 all NCT's
.NCT%5(B=:.			;Set addre%5Hss of this NCT
	%5hEXP	0		;Link word%6 to next NCT in l%6(ist
				;(filled%6H in by MNTINI)
N%6hCTNUM==NCTNUM+1		%7;Increment number%7( of NCTS defined

	XWD	NT.TYP,NT%7h.DEV	;Protocal an%8d device codes
	%8(EXP	NT.NUM		;Net %8Hindex
NT.NUM==NT%8h.NUM+1		;incremen%9t net index
	EXP%9(	-1		;Internet ne%9Htwork number (not%9h yet set)
	EXP	-%:1		;Internet Addr%:(ess of this inter%:Hface
	EXP	0		;Lo%:hgical host mask f%;or this network
%;(IFB  <C>,<XWD 37%;H7777,-1>	;Maximum%;h packet size
IFN%<B <C>,<EXP C>		%<(;Maximum packet s%<Hize

;NCP/%<hAN20  MAKSAV  MAC%=RO  Creates  an  %=(interrupt  AC  sa%=Hve and dispatch
%=h;routine in the c%>urrent NCT at the%>( current location%>H. Uses The follow%>hing
;locations (%?which therefore m%?(ust be defined fo%?Hr  that  net  typ%?he).  The
;argume%@nt  PDP  is the a%@(ddress of a Push %@Hdown pointer for %@hthis routine.
;D%AISP is the offset%A( of the dispatch %AHaddress.

DEFIN%AhE MAKSAV(PDP,DISP%B)
<	MOVEM P,.NCT%B(B+NTSVAC+17	;Sav%BHe P
	MOVEI P,.NC%BhTB+NTSVAC	;Where%C the AC's go
	BL%C(T P,.NCTB+NTSVAC%CH+16	;Save all
	M%ChOVE P,PDP			;Set %Dnew P
	XMOVEI P1%D(,.NCTB		;Point t%DHo NCT
	CALL	@DIS%DhP(P1)		;And Goto %Eroutine
>					;E%E(nd of MAKSAV

%EH
;MAKRES  -  Make%Eh  a 3 word AC res%Ftore , dismiss in%F(terrupt routine. %FHAC's
;are assume%Fhd stored at NTSVA%GC. Arg PCW is the%G( address of the  %GHinterrupt
;PC.
%Gh
DEFINE	MAKRES(P%HCW)
<	MOVSI P,.N%H(CTB+NTSVAC	;From%HH there to 0
	BLT%Hh P,P				;Restore %Iall AC's
	XJEN .%I(NCTB+PCW		;And d%IHismiss the interr%Ihupt
>					;End o%Jf MAKRES MACRO
%J(
IFE <<NT.TYP-NT.%JHNCP>!<NT.DEV-NT.A%JhNX>>,<

	ANI==5%K20		;Input device%K( address
	ANO==5%KH24		;Output side %Khaddress

	CONSZ%L ANI,(T1)		;NTCNS%L(Z - CONSZ Input
%LH	CONSO ANI,(T1)		%Lh;NTCNSO - CONSO I%Mnput
	CONO ANI,(%M(T1)		;NTCONO - CO%MHNO Input
	CONI A%MhNI,T1		;NTCONI - %NCONI Input
	DATA%N(O ANI,T1		;NTDATO%NH - DATAO Input
	%NhDATAI ANI,T1		;NT%ODATI - DATAI Inpu%O(t
	NCTDSP ANXINI%OH		;NTINI  - Initi%Ohalization instruc%Ption
	NCTDSP ANX%P(KIL		;NTKILL - Sh%PHutdown instructio%Phn
	NCTDSP ANXRSS%Q		;NTRSRT - Resta%Q(rt instruction
	%QHNCTDSP ANISRT		;N%QhTISRT - Start inp%Rut instruction
	%R(NCTDSP ANOSRT		;N%RHTOSRT - Start out%Rhput instruction
%S	NCTDSP IMPEIN		;%S(NTIDUN - Input do%SHne dispatch
	NCT%ShDSP IMODUN		;NTOD%TUN - Output done %T(dispatch
	NCTDSP%TH IMPHDR		;NTLLDR %Th- Make header ins%Utruction
	NCTDSP%U( RSKP		;NTOTOK - %UHCLear packet for %Uhoutput
	NCTDSP R%V			;NTMAIN - Main%V(tainance
	NCTDSP%VH ANXSCK		;NTSCHK %Vh- Status check in%Wstruction
	BLOCK%W( NTOCNO-NTIB	;NTI%WHB through  NTOTYP%Wh
	CONO ANO,(T1)	%X	;NTOCNO - CONO O%X(utput
	CONI ANO,%XHT1		;NTOCNI - CON%XhI Output
	CONSO %YANO,(T1)		;NTOCSO%Y( - CONSO Output
%YH	CONSZ ANO,(T1)		%Yh;NTOCSZ - CONSZ O%Zutput
	DATAO ANO%Z(,T1		;NTODTO - DA%ZHTAO Output
	DATA%ZhI ANO,T1		;NTODTI%[ - DATAI Output
%[(	XPCW .+1		;NTIIN%[HT - Interrupt ins%[htruction
	BLOCK %\2			;NTIPCW - Int%\(urrupt PC storage%\H
	EXP 0			;NTINP%\hC - New flags (In%]put)
	IFE REL6,<%](MSEC1,,.+1>	;    %]H     New PC (Inpu%]ht save)
	IFN REL%^6,<XCDSEC,,.+1>	;%^(         New PC (%^HInput save)
	MAK%^hSAV (IMPPDP,NTIDS%_P)	;NTIISV - 6 wo%_(rds of AC save ro%_Hutine
	MAKRES (N%_hTIPCW)		;NTIIRS -%` 3 words of AC re%`(store routine
	X%`HPCW .+1	       	;%`hNTOINT - Interrup%at instruction
	B%a(LOCK 2			;NTOPCW %aH- PC storage
	EX%ahP 0			;NTONPC - N%bew flags
	IFE RE%b(L6,<MSEC1,,.+1>	;%bH         New PC (%bhOutput save)
	IF%cN REL6,<XCDSEC,,.%c(+1>	;         New%cH PC (Output save)%ch
	MAKSAV (IMPPDP%d,NTODSP)	;NTIOSV %d(_ 6 words of AC S%dHave
	MAKRES (NTO%dhPCW)		;NTIORS   3%e words of AC rest%e(ore
	BLOCK 20		;%eHNTSVAC - AC stora%ehge
>				;End of %fNCP/ANX condition%f(al

IFE <<%fHNT.TYP-NT.NUN>!<N%fhT.DEV-NT.NIP>>,<

	JFCL         %g( 		;NTCNSZ - CONS%gHZ Input
	JFCL   %gh       		;NTCNSO %h- CONSO Input
	J%h(FCL          		;N%hHTCONO - CONO Inpu%hht
	JFCL         %i 		;NTCONI - CONI%i( Input
	JFCL    %iH      		;NTDATO -%ih DATAO Input
	JF%jCL          		;NT%j(DATI - DATAI Inpu%jHt
	NCTDSP NIPINI%jh		;NTINI  - Initi%kalization instruc%k(tion
	NCTDSP NIP%kHKIL		;NTKILL - Sh%khutdown instructio%ln
	NCTDSP NIPRST%l(		;NTRSRT - Resta%lHrt instruction
	%lhNCTDSP R     		;N%mTISRT - Start inp%m(ut instruction
	%mHNCTDSP NIPSTO		;N%mhTOSRT - Start out%nput instruction
%n(	NCTDSP R     		;%nHNTIDUN - Input do%nhne dispatch
	NCT%oDSP R       		;NT%o(ODUN - Output don%oHe dispatch
	NCTD%ohSP NIPHDR		;NTLLD%pR - Make header i%p(nstruction
	NCTD%pHSP RSKP		;NTOTOK %ph- CLear packet fo%qr output
	NCTDSP%q( R      		;NTMAIN%qH - Maintainance
%qh	NCTDSP NIPSTA		;%rNTSCHK - Status c%r(heck instruction
	BLOCK NTSVAC-NT%rhIB	;NTIB through %s NTOTYP
>				;En%s(d of NIN/NIP cond%sHitional

;%shIPCI nct definiti%ton

IFN REL6,<I%t(FE <<NT.TYP-NT.NU%tHN>!<NT.DEV-NT.CIP%th>>,<

	JFCL    %u      		; NTCNSZ %u(- CONSZ Input
	J%uHFCL          		; %uhNTCNSO - CONSO In%vput
	JFCL       %v(   		; NTCONO - C%vHONO Input
	JFCL %vh         		; NTCO%wNI - CONI Input
%w(	JFCL          		%wH; NTDATO - DATAO %whInput
	JFCL     %x     		; NTDATI -%x( DATAI Input
	NC%xHTDSP CIPINI		; NT%xhINI  - Initializa%ytion instruction
	NCTDSP CIPKIL		%yH; NTKILL - Shutdo%yhwn instruction
	%zNCTDSP CIPRST		; %z(NTRSRT - Restart %zHinstruction
	NCT%zhDSP R     		; NTI%{SRT - Start input%{( instruction
	NC%{HTDSP CIPSTO		; NT%{hOSRT - Start outp%|ut instruction
	%|(NCTDSP R     		; %|HNTIDUN - Input do%|hne dispatch
	NCT%}DSP R      		; NT%}(ODUN - Output don%}He dispatch
	NCTD%}hSP CIPHDR		; NTLL%~DR - Make header %~(instruction
	NCT%~HDSP RSKP		; NTOTO%~hK - CLear packet %for output
	NCTD%(SP R      		; NTM%HAIN - Maintainanc%he
	NCTDSP CIPSTA&		; NTSCHK - Stat&(us check instruct&Hion
	BLOCK NTSVA&hC-NTIB	; NTIB thr&ough  NTOTYP
>>	&(			; End of IPCIN&H/CIP/REL6 conditional

conditi[^XCDSEC,,.NCTAXCDSEC,,.N[EyP [EIP [F98Q [FKyP [&uP 
[&vJP 
[.t= %)*+	XALL			;S%)Jhow the lines tem%)hporarily

NT.NU%*M==0			;Start wit%*(h Interface 0
NC%*HTNUM==0			;Start %*hout at zero
DV.N%+UM==0			;Back to %+(number 0

IFN A%+HNXN,<
NT.TYP==NT%+h.NCP			;Network T%,ype is NCP
NT.DE%,(V==NT.ANX			;Devi%,Hce type AN20
MAK%,hNCT(\DV.NUM,\NCTN%-UM,^D576)>	;Make %-(that type NCT

%-HIFN IPNIN,<
NT.T%-hYP==NT.NUN			;No %.local protocol 
%.(NT.DEV==NT.NIP			%.H;Device type IPNI%.h
DV.NUM==DV.NUM+%/1		;NCT number
M%/(AKNCT(\DV.NUM,\NC%/HTNUM,^D576)>	;Mak%/he that type NCT
%0
IFN REL6,<
IFN%0( IPCIN,<
NT.TYP=%0H=NT.NUN			;No loc%0hal protocol 
NT.%1DEV==NT.CIP			;De%1(vice type IPCI
D%1HV.NUM==DV.NUM+1		%1h;NCT number
MAKN%2CT(\DV.NUM,\NCTNU%2(M,^D576)>>	;Make %2Hthat type NCT

%2hDV.NUM==DV.NUM+1	%3	; increment numb%3(er of that type
%3H	SALL			; Again s%3huppress expansions
ss expansion[/LY &
0
..TMP==0&*			;Start at NCT &H#0
REPEAT %NETS,&h<
	MAKPTR(\..TMP&)
	..TMP==..TMP+1>
TMP==..TMP+[/<: #zA
	ROT T2,#-^D9
	LSHC T1,^D27
	HRRI T1,A[;$86 %&j*6CALL @A(P1)CALL @A(P[;%,Y %'**:JRST @A(P1)JRST @A(P[;'z %'j*>XCT A(P1)XCT A(P1)[>&98 $	* JTLZ A,(-MAXSEQ)LZ A,(-M[Ne|P [b>z1P ]
>@P']Y Q x]$Lx %(**FIFE REL6,<%(JMSEC1,,A>
		  I%(hFN REL6,<XCDSEC,,<A&777777>>C,,]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 #1Z?
	TXNN	B#1:,.NETCA		; Class #1A network?
	6JRS#0zT	[LOAD	A,NETCA,#6+B	; Get number
		 JRST	c]
	TX#6PNN	B,.NETCB		; C#6plass B?
	 JRST	[#7LOAD	A,NETCB,+B#70
		 JRST	c]
	L#7POAD	A,NETCC,+B	#7p	; 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 #`*
IFDIF <$&C>,<C>,<	BOPT==#`JD	>
IFIDN <C>,<#`jC>,<	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 @a:d;Q a? }P/m<^L<<A>&<-<A>>>><<A>&<a@(]YQ a@,J`Q a@,M7Q a@,yQ a@,|yQ  a@-]Q @a@.
	.X==B
	#aj		IRP C,<.X==.X+#b*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 #HRLZI A,BHRLZI A,a^tK`Q xac Q c:/

zP e-i:P e.LtP e.LwP eb`P eKy #.{
	IFLE $A#.:CVNM+$STVNM+$TMVN#.XM,<$IPMSG(\.,<?Ex#.xtra RESTORE macro#/>,\$ACVNM,\$STVNM#/8,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg #BHRLI A,BHRLI A,Bg&%|P Dg;I8Q gO|P gR

:v #'ZO
	IFG $AC#'zVNM+$STVNM,<	$IPM#(SG(\.,<?STACKL: M#(8issing RESTORE>,\#(X$ACVNM,\$STVNM)
#(x				$ACVNM==0
		#)		$STVNM==0>
	IR#)8P A,<	$STKL1(A)#)X>
	JSP CX,.TRSET#)x##
	$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$	j(I,END,,^D0,^D1,$:A,B,C)
  OPTIO$ZN(I,NOP,,^D1,^D1,$$zA,B,C)
  OPTI$%ON(T,MSL,,^D2,^D4$%8,A,B,C)
  OPT$%XION(T,LBL,,^D33,^D4,A,B,C)
^i$,`Q xi&< P'i,0P"i.-P i.MP in #"Z/
	IFG $TM#"zVNM+$STVNM+$STVNM##,<	$IPMSG(\.,<?TE##8MP: Missing RESTO##XRE>,\$ACVNM,\$STV##xNM,\$TMVNM)
				#$	$STVNM==0
					#$8$TMVNM==0
					$#$XACVNM==0>
	IRP #$xA,<	IFGE $TMVNM-N#%TEMPS,<$IPMSG(\.,#%8<?Too many TEMPs>#%X)>
			$DFTMP(A,#%x\<$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-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 iJN0Q 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 iNo@Q iNo

Q iN~@P iO|P "iO,`P iO\ Q iO`P iO@P iO$P ?iO%pQ 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&  !,*
b<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v # :
	IFDEF # ZA,<$IPMSG(\.,<?LO# xCAL AC A already#! defined>)>
	PUS#!8H P,T1+NTEMPS+B
	A==T1+NTEMPS+#!xB
	$PURGE A
	$#"POP T1+NTEMPS+BOP T1+NTEMPS+B	6K8 #&:9
	IFDEF #&ZA,<$IPMSG(\.,<?TE#&xMP A already def#'ined>)>
	A==T1+B
	$PURGE A+	".)  #ZU
	$INFO
	$INIT
	$INFO
	&tk` }A
B	&u #ZK
	DEFINE #z$INFO(X,Y)<X
Y>
$ACVNM==0
$STVN#8M==0
$TMVNM==0
=0
$TMVNM==0
	'\s #[
PRINTX B #:at A (C,D,E)t A (C,D,E)	B~ #zc
	GSOPDEF# %POP%,<POP P,>
#8	$REMOTE (<%POP% A>)TE (<%POP% 	C.)r #zg$REMOTE (<PURGE A>)TE (<	J-[z #zQ$INFO(<DEF#INE $INFO(X,Y)><X
A,Y>)X,Y)><X	NL{V %
*
	XMOVEI %	zT1,A		;Process t%	Zo signal
  IFE %
:B,<
	MOVE T3,TOD%
CLK		;Now
	SKIPL%( T2,PRCWAK(T1)	;I%Hf no wakeup set, %hNOW is ok
	 CAML%E T2,T3		;If past%( due, queue
	  S%HKIPLE NSKED		;NOW%h is ok unless NOS%KED
	h JRST c	%(	;No.  Get in Q f%Hor FIFO behavior
	PUSH P,PROC		;D%o it NOW
	MOVEM %(T3,PRCSGT(T1)	;TO%HDCLK of most rece%hnt SIGNAL
	CALL %TCPTSK		;Call the%( task
	POP P,PRO%HC		;Restore our I%hD as running proc% ess
	JRST d		;A% (ll done
c:	>	;I% HFE B

;Avoid s% htack overflow on %!KA, always queue
	MOVX T2,B		;Nu%!Hmber of milliseco%!hnds
	CALL SIGNAL%"
  IFE B,<
d:  >

B,<
d:	O%; #*:S$STKL2(A)$STKL2(A)	O%;	 #*z_
	$STKL3(#+A,\$STVNM)
	IFB#+8 <B>,<$STVNM==$S#+XTVNM+1>
	IFNB <#+xB>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 #,:m
	IFDEF #,ZA,<$IPMSG(\.,<?ST#,xACKL local A alr#-eady defined>)>
#-8	DEFINE A<^OB+1#-X(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 %)
	$BBLIP=%"=<Z 11>		
	A (<B>,11C,D) (<
m %b(z
	$BCNT==%<Z BFRCNT>		
	A%  (<B>,BFRCNTC,D)B>,BFRCNTC,
$ %	:(q
	$BDADR=%AD>		
	%A (<B>,BFRDADC,D)B>,BFRDADC,
-{ %j(b
	$BEOL==%

<Z BFRFLG>		
	A%

( (<B>,BFRFLGC,D)B>,BFRFLGC,
6*| %:)
	$BFRKX=%Z=<Z 10>		
	A (<B>,10C,D) (<
D %j)
	$BHADR=%
=<Z 6>		
	A (<B>,6C,D)A (<
L;Z %R)
	$BICNT=%r=<Z 7>		
	A (<B>,7C,D)A (<
LN %B)N
	$BIDX==%b<Z 13>		
	A (<B>,13C,D) (<
n3 %b) 
	$BMPAG=%=<Z 11>		
	A (<B>,11C,D) (<L@ %J)(
	$BPTR==%j<Z BFRPTR>		
	A% (<B>,BFRPTRC,D)B>,BFRPTRC,LP %Z)A
	$BPTRA=%z=<Z BFRPTR>		
	%A (<B>,BFRPTRC,D)B>,BFRPTRC,LX %R)1
	$BPTRP=%r=<Z BFRPTR>		
	%A (<B>,BFRPTRC,D)B>,BFRPTRC,LY %Z)9
	$BPTRS=%z=<Z BFRPTR>		
	%A (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ %b)H
	$BTCB==%<Z 13>		
	A (<B>,13C,D) (<&0 %*)T
	$BTS==<%JZ 14>		
	A (<B>,14C,D) (<B.3 %)
	$BUPAG=%:=<Z 10>		
	A (<B>,10C,D) (<.)` %
b(Z
	$BURG==%<Z BFRFLG>		
	A%  (<B>,BFRFLGC,D)B>,BFRFLGC,=P %

r(k
	$BWM==<%>		
	A%>,BFRFLGC,D)B>,BFRFLGC,Dl:y $

 b
	$CMCKS=$

"=<Z 0>		
	A (<B>,0C,D)A (<l;r $ [
	$CMCOD=$:=<Z 0>		
	A (<B>,0C,D)A (<l}p $" |
	$CMGWA=$B=<Z 1>		
	A (<B>,1C,D)A (<m $

j h
	$CMID==$
<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=$Z=<Z 1>		
	A(<B>,1C,D)A (<n98 $
	$CMSEQ=$
	A (<B>,1C,D)A (<nLw $
!
	$CMTSO=$*=<Z 2>		
	A (<B>,2C,D)A (<nLy $r!	
	$CMTSR=$=<Z 3>		
	A (<B>,3C,D)A (<nLz $Z!
	$CMTST=$z=<Z 4>		
	A (<B>,4C,D)A (<nN8 $
2 U
	$CMTYP=$
R=<Z 0>		
	A (<B>,0C,D)A (<&0 #dz+
	$DDS==<#eZ PPBFSZ+1>		
	#e8A (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 #bj
	$DFLAG=#c
=<Z PPBFSZ+0>		
#c*	A (<B>,PPBFSZ+0C,D),PPBFSZ+= #g<
	$DPKTP=#g"=<Z PPBFSZ+3>		
#g@	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ #h
D
	$DPTRC=#h*=<Z PPBFSZ+4>		
#hH	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 #cz#
	$DSS==<#dZ PPBFSZ+1>		
	#d8A (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 #ez3
	$DTIME=#f=<Z PPBFSZ+2>		
#f8	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 $z!)
	$GWHIS=$=<Z 0>		
	A (<B>,0C,D)A (<=z $B!6
	$GWICT=$b=<Z 0>		
	A (<B>,0C,D)A (<>
8 $*!
	$GWPIP=$J=<Z 0>		
	A (<B>,0C,D)A (<>< $b!0
	$GWSPC=$=<Z 0>		
	A (<B>,0C,D)A (<>N8 $!#
	$GWTYP=$2=<Z 0>		
	A (<B>,0C,D)A (<>\ $B!
	$GWUP==$b<Z 0>		
	A (<B>,0C,D)A (<B"D;Z #R!
	$HHCNT=#r=<Z .NBHHL>		
	#A (<B>,.NBHHLC,D)B>,.NBHHLC,#\ $J F
	$HSMPL=$j=<Z 1>		
	A (<B>,1C,D)A (<#J2 &	b0R
	$HSTIDX&
==<Z HOSTN>		
	&
 A (<B>,HOSTNC,D)B>,HOSTNC,#KV &
j0Z
	$HSTNMP&
==<Z HOSTN>		
	&(A (<B>,HOSTNC,D)B>,HOSTNC,#%} $b @
	$HTOTL=$=<Z 0>		
	A (<B>,0C,D)A (<&
  &z01
	$IAHI==&<Z 0>		
	A (<B>,0C,D)A (<B&

z &b08
	$IAHST=&=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=&b=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=&	"=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=&B=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=&2=<Z 0>		
	A (<B>,0C,D)A (<&D #
\
	$IHADR=#*=<Z .NBLD1>		
	#HA (<B>,.NBLD1C,D)B>,.NBLD1C,&Dm #r+
	$IHFTY=#=<Z .NBLD0>		
	#0A (<B>,.NBLD0C,D)B>,.NBLD0C,&E

z #

e
	$IHHST=#

2=<Z .NBLD1>		
	#

PA(<B>,.NBLD1C,D)B>,.NBLD1C,&E
	$IHHT2=#	=<Z .NBLD0>		
	#	8A#(<B>,.NBLD0C,D)B>,.NBLD0C,&E
T
	$IHHTY=#
"=<Z .NBLD1>		
	#
@Am(<B>,.NBLD1C,D)B>,.NBLD1C,&E8 #
	$IHIMP=#D1>		
	#(<B>,.NBLD1C,D)B>,.NBLD1C,&EI #z;
	$IHLDF=#=<Z .NBLD0>		
	#8A (<B>,.NBLD0C,D)B>,.NBLD0C,&EI7 #2
	$IHLEN=#R=<Z .NBLD2>		
	#pA (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU #u
	$IHLNK=#:=<Z .NBLD1>		
	#XA (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) #"~
	$IHMI2=#B=<Z .NBLD2>		
	#`A (<B>,.NBLD2C,D)B>,.NBLD2C,&E] #zC
	$IHMTY=#=<Z .NBLD0>		
	#8A (<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: #z3
	$IHNET=#=<Z .NBLD0>		
	#8A (<B>,.NBLD0C,D)B>,.NBLD0C,&F	 #2
	$IHPD1=#R=<Z .NBLD2>		
	#pA (<B>,.NBLD2C,D)B>,.NBLD2C,&F= #*
	$IHSTY=#J=<Z .NBLD2>		
	#hA (<B>,.NBLD2C,D)B>,.NBLD2C,&v

 #b2
	$INPPR=#=<Z .INPRO>		
	#A#(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR=#z=<Z .INVER>		
	#A (<B>,.INVERC,D)B>,.INVERC,&vKZ #2
	$INTNUM#2"==<Z >		
	A (<B>,C,D)A (<2;Z $2 -
	$LCCNT=$R=<Z 3>		
	A (<B>,3C,D)A (<2LN $b  
	$LIDX==$<Z 1>		
	A (<B>,1C,D)A (<B2ezy $J &
	$LLOKR=$j=<Z 2>		
	A (<B>,2C,D)A (<2uJy $z 9
	$LNLKR=$=<Z 4>		
	A (<B>,4C,D)A (<2}Jy $ 3
	$LOLKR=$:=<Z 4>		
	A (<B>,4C,D)A (<3=|R $z 
	$LWORD=$=<Z 0>		
	A (<B>,0C,D)A (<:,} #j"
	$NBBSZ=#
=<Z .NBHDR>		
	#(A (<B>,.NBHDRC,D)B>,.NBHDRC,:2 #j
	$NBQUE=#
=<Z .NBHDR>		
	#(A (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp #3R
	$NETCA=#3r=<Z 0>		
	A (<B>,0C,D)A (<:.Hq #4B&
	$NETCB=#4b=<Z 0>		
	A (<B>,0C,D)A (<:.Hq #52-
	$NETCC=#5R=<Z 0>		
	A (<B>,0C,D)A (<:.Hv #2j
	$NETCLS#3
==<Z 0>		
	A(<B>,0C,D)A (<;$I; &
	$NTDEV=&
	A (<B>,1C,D)A (<;%KU &r0a
	$NTLNK=&

=<Z 0>		
	A (<B>,0C,D)A (<;%m6 &0s
	$NTNUM=&:=<Z 2>		
	A (<B>,2C,D)A (<;&N8 &

Z0g
	$NTTYP=&

z=<Z 1>		
	A (<B>,1C,D)A (<B

:` $B!v
	$PACK==$b<Z 3>		
	A (<B>,3C,D)A (<BB

:y $:!U
	$PACKS=$Z=<Z 2>		
	A (<B>,2C,D)A (<BK $"!\
	$PCTL==$B<Z 3>		
	A (<B>,3C,D)A (<BB$= #C
	$PDCT==#C:<Z 5>		
	A (<B>,5C,D)A (<BB& $j!H
	$PDP==<$
Z 0>		
	A (<B>,0C,D)A (<B>B-{ $*!|
	$PEOL==$J<Z 3>		
	A (<B>,3C,D)A (<BB.98 #Dj(
	$PESEQ=#E
=<Z 7>		
	A (<B>,7C,D)A (<B5@ $!b"
	$PFIN==$"<Z 3>		
	A (<B>,3C,D)A (<BB5Iy #9:M
	$PFLGS=#9Z=<Z 1>		
	A (<B>,1C,D)A (<B6:= #;ra
	$PFSIZ=#<=<Z 1>		
	A (<B>,1C,D)A (<BL:y #Y:Q
	$PICKS=#YZ=<Z PKTELI+.IPKPR#Yx>		
	A (<B>,PK#ZTELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ #S
	$PIDF==#S"<Z PKTELI+.IPKSG>#S@		
	A (<B>,PKT#S`ELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ #\
f
	$PIDH==#\*<Z PKTELI+.IPKDH>#\H		
	A (<B>,PKT#\hELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` #G?
	$PIDO==#G:<Z PKTELI+.IPKVR>#GX		
	A (<B>,PKT#GxELI+.IPKVRC,D)LI+.IPKVRC,D)BLk #QZ
	$PIFLG=#Qz=<Z PKTELI+.IPKSG#R>		
	A (<B>,PK#R8TELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` #UB2
	$PIFO==#Ub<Z PKTELI+.IPKSG>#V		
	A (<B>,PKT#V ELI+.IPKSGC,D)LI+.IPKSGC,D)BM

V #Mbt
	$PIHRL=#N=<Z PKTELI+.IPKVR#N >		
	A (<B>,PK#N@TELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR=#LZ=<Z PKTELI+.IPKVR#Lx>		
	A (<B>,PK#MTELI+.IPKVRC,D)LI+.IPKVRC,D)BMI #K_
	$PILDY=#K2=<Z PKTELI+.IPKVR#KP>		
	A (<B>,PK#KpTELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ #T"(
	$PIMF==#TB<Z PKTELI+.IPKSG>#T`		
	A (<B>,PKT#UELI+.IPKSGC,D)LI+.IPKSGC,D)BMm #;
Z
	$PINTL=#;*=<Z 1>		
	A (<B>,1C,D)A (<BN #O
~
	$PIPL==#O*<Z PKTELI+.IPKVR>#OH		
	A (<B>,PKT#OhELI+.IPKVRC,D)LI+.IPKVRC,D)BN

Q #IjT
	$PIPRC=#J
=<Z PKTELI+.IPKVR#J(>		
	A (<B>,PK#JHTELI+.IPKVRC,D)LI+.IPKVRC,D)BN

W #XG
	$PIPRO=#X2=<Z PKTELI+.IPKPR#XP>		
	A (<B>,PK#XpTELI+.IPKPRC,D)LI+.IPKPRC,D)BN: #Zb\
	$PISH==#[<Z PKTELI+.IPKSH>#[ 		
	A (<B>,PKT#[@ELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 #P2	
	$PISID=#PR=<Z PKTELI+.IPKSG#Pp>		
	A (<B>,PK#QTELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy #HBJ
	$PITOS=#Hb=<Z PKTELI+.IPKVR#I>		
	A (<B>,PK#I TELI+.IPKVRC,D)LI+.IPKVRC,D)BNM #Vj<
	$PITTL=#W
=<Z PKTELI+.IPKPR#W(>		
	A (<B>,PK#WHTELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 #Er5
	$PIVER=#F=<Z PKTELI+.IPKVR#F0>		
	A (<B>,PK#FPTELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; #?z
	$PLCLO=#@=<Z 1>		
	A (<B>,1C,D)A (<BuHv #>*t
	$PNLCL=#>J=<Z 1>		
	A (<B>,1C,D)A (<C+s #:"T
	$PPROG=#:B=<Z 1>		
	A (<B>,1C,D)A (<C= $ "
	$PRST==$ 2<Z 3>		
	A (<B>,3C,D)A (<BC	 #<Zg
	$PRXD==#<z<Z 1>		
	A (<B>,1C,D)A (<BC
  #B2
	$PRXI==#BR<Z 4>		
	A (<B>,4C,D)A (<BC<@ #=Bn
	$PSCR==#=b<Z 1>		
	A (<B>,1C,D)A (<BC\  $R!O
	$PSEQ==$r<Z 1>		
	A (<B>,1C,D)A (<BC $!B
	$PSP==<$"Z 0>		
	A (<B>,0C,D)A (<B>C+z #?{
	$PSROU=#?2=<Z 1>		
	A (<B>,1C,D)A (<C@ $ z"	
	$PSYN==$!<Z 3>		
	A (<B>,3C,D)A (<BC$:y $#2"
	$PTCKS=$#R=<Z 4>		
	A (<B>,4C,D)A (<C$= $r!i
	$PTCTL=$=<Z 3>		
	A (<B>,3C,D)A (<C$K` $
!b
	$PTDO==$*<Z 3>		
	A (<B>,3C,D)A (<BC$p #@b
	$PTG==<#AZ 2>		
	A (<B>,2C,D)A (<B>C&0 #D"
	$PTS==<#D"Z 6>		
	A (<B>,6C,D)A (<B>C&m %2(
	$PTVT==%R<Z TTNETW>		
	A%p (<B>,TTNETWC,D)B>,TTNETWC,C.)` $Z!o
	$PURG==$z<Z 3>		
	A (<B>,3C,D)A (<BC.)x $$"#
	$PURGP=$$:=<Z 4>		
	A (<B>,4C,D)A (<C=i $"J"
	$PWNDO=$"j=<Z 3>		
	A (<B>,3C,D)A (<CF@ #AJ
	$PXT==<#AjZ 3>		
	A (<B>,3C,D)A (<B>Ft^ #kZ_
	$QNEXT=#kz=<Z 0>		
	A (<B>,0C,D)A (<G); $ 
	$QPREV=$2=<Z 0>		
	A (<B>,0C,D)A (<R

- $a
&

	$TABTFX$a*==<Z 54>		
	A (<B>,54C,D) (RHL $:'}
	$TCDB8=$Z=<Z 170>		
	A (<B>,170C,D)(RH{ $~R'w
	$TCDCW=$~r=<Z 170>		
	A (<B>,170C,D)(RIY $xz'I
	$TCDFS=$y=<Z 170>		
	A (<B>,170C,D)(RIr ${2']
	$TCDGE=${R=<Z 170>		
	A (<B>,170C,D)(RIw $zJ'V
	$TCDGN=$zj=<Z 170>		
	A (<B>,170C,D)(RJ $x'C
	$TCDHT=$x2=<Z 170>		
	A (<B>,170C,D)(RJ1 $}j'p
	$TCDIB=$~
=<Z 170>		
	A (<B>,170C,D)(RKq $}'j
	$TCDOB=$}"=<Z 170>		
	A (<B>,170C,D)(RKx %"(
	$TCDOQ=%B=<Z 170>		
	A (<B>,170C,D)(RK{ $yb'P
	$TCDOW=$z=<Z 170>		
	A (<B>,170C,D)(RL $|'c
	$TCDPS=$|:=<Z 170>		
	A (<B>,170C,D)(RL %
(

	$TCDPU=%*=<Z 170>		
	A (<B>,170C,D)(RM9 %r(
	$TCDUR=%=<Z 170>		
	A (<B>,170C,D)(RMz $w*'<
	$TCDWT=$wJ=<Z 170>		
	A (<B>,170C,D)(RHY $s2'
	$TCTBS=$sR=<Z 165>		
	A (<B>,165C,D)(RLx $t'#
	$TCTSQ=$t2=<Z 165>		
	A (<B>,165C,D)(R$X` $5Z#/
	$TDEC==$5z<Z 13>		
	A (<B>,13C,D) (<R.(S $qj'
	$TERBF=$r
=<Z 164>		
	A (<B>,164C,D)(R.*W $rJ'
	$TERJN=$rj=<Z 164>		
	A (<B>,164C,D)(R.,@ $,r"i
	$TERR==$-<Z 13>		
	A (<B>,13C,D) (<R.,S $VZ%7
	$TERRF=$Vz=<Z 37>		
	A (<B>,37C,D) (<R.,Z $4z#)
	$TERRT=$5=<Z 13>		
	A (<B>,13C,D) (<R5 $(j"H
	$TFH==<$)
Z 7>		
	A (<B>,7C,D)A (<B>R5` $)R"O
	$TFHC==$)r<Z 7>		
	A (<B>,7C,D)A (<BR6 $+""\
	$TFP==<$+BZ 11>		
	A (<B>,11C,D) (<BRLi $^Z%w
	$TIFDF=$^z=<Z 54>		
	A (<B>,54C,D) (<RM| $mj&p
	$TIOPF=$n
=<Z 66>		
	A (<B>,66C,D) (<RN	 $k:&]
	$TIPDO=$kZ=<Z 66>		
	A (<B>,66C,D) (<RNy $l"&d
	$TIPOR=$lB=<Z 66>		
	A (<B>,66C,D) (<RNz $m
&j
	$TIPOU=$m*=<Z 66>		
	A (<B>,66C,D) (<RT;@ $'z"B
	$TJCN==$("<Z 6>		
	A (<B>,6C,D)A (<BRTk@ %R(
	$TJFN==%r<Z 170>		
	A (<B>,170C,D)(<Re $*:"U
	$TLH==<$*ZZ 10>		
	A (<B>,10C,D) (<BRf $,
"b
	$TLP==<$,*Z 12>		
	A (<B>,12C,D) (<BRmlZ $Y
%J
	$TMNRT=$Y*=<Z 40>		
	A (<B>,40C,D) (<Ro

Z $Yr%Q
	$TMXRT=$Z=<Z 41>		
	A (<B>,41C,D) (<RvYV $d&#
	$TNUFM=$d:=<Z 56>		
	A (<B>,56C,D) (<R|lU $W:%=
	$TOFRK=$WZ=<Z 37>		
	A (<B>,37C,D) (<R~	T $eb&0
	$TOPFH=$f=<Z 57>		
	A (<B>,57C,D) (<R~	X $c:&
	$TOPFP=$cZ=<Z 56>		
	A (<B>,56C,D) (<R~ $fJ&6
	$TOPLH=$fj=<Z 60>		
	A (<B>,60C,D) (<R~S $Ur%1
	$TOPNF=$V=<Z 37>		
	A (<B>,37C,D) (<R~{Y $'";
	$TOWNR=$':=<Z 6>		
	A (<B>,6C,D)A (<Sp $NR$y
	$TPICA=$Nr=<Z TCBPIC>		
	$OA (<B>,TCBPICC,D)B>,TCBPICC,Sr $LR$i
	$TPICE=$Lr=<Z TCBPIC>		
	$MA (<B>,TCBPICC,D)B>,TCBPICC,Sy $JJ$X
	$TPICR=$Jj=<Z TCBPIC>		
	$KA (<B>,TCBPICC,D)B>,TCBPICC,Sy $KR$a
	$TPICS=$Kr=<Z TCBPIC>		
	$LA (<B>,TCBPICC,D)B>,TCBPICC,Sz $IB$P
	$TPICU=$Ib=<Z TCBPIC>		
	$JA (<B>,TCBPICC,D)B>,TCBPICC,S| $MR$q
	$TPICX=$Mr=<Z TCBPIC>		
	$NA (<B>,TCBPICC,D)B>,TCBPICC,SP $Tj%*
	$TPIFA=$U
=<Z TCBPIF+2>		
$U(	A (<B>,TCBPIF+2C,D),TCBPIF+SR $Rb%
	$TPIFE=$S=<Z TCBPIF+1>		
$S 	A (<B>,TCBPIF+1C,D),TCBPIF+SY $PZ%	
	$TPIFR=$Pz=<Z TCBPIF+0>		
$Q	A (<B>,TCBPIF+0C,D),TCBPIF+SY $Qb%
	$TPIFS=$R=<Z TCBPIF+1>		
$R 	A (<B>,TCBPIF+1C,D),TCBPIF+SZ $OZ%
	$TPIFU=$Oz=<Z TCBPIF+0>		
$P	A (<B>,TCBPIF+0C,D),TCBPIF+S\ $Sj%"
	$TPIFX=$T
=<Z TCBPIF+2>		
$T(	A (<B>,TCBPIF+2C,D),TCBPIF+S,h $ub'0
	$TPRS1=$v=<Z 167>		
	A (<B>,167C,D)(S,i $vB'6
	$TPRS2=$vb=<Z 167>		
	A (<B>,167C,D)(S:1 $H:$G
	$TPSIC=$HZ=<Z TCBPIC>		
	$HxA (<B>,TCBPICC,D)B>,TCBPICC,S,` $GR$?
	$TRBS==$Gr<Z 30>		
	A (<B>,30C,D) (<S8@ $F$2
	$TRCB==$F"<Z 26>		
	A (<B>,26C,D) (<S8\ $Fj$8
	$TRCBY=$G
=<Z 27>		
	A (<B>,27C,D) (<S` $Bj$
	$TRIS==$C
<Z 23>		
	A (<B>,23C,D) (<SH5 $h&C
	$TRLAK=$h:=<Z 62>		
	A (<B>,62C,D) (<SIZ $CR$
	$TRLFT=$Cr=<Z 24>		
	A (<B>,24C,D) (<SMw $i&J
	$TRLWN=$i"=<Z 63>		
	A (<B>,63C,D) (<S

 $1b#
	$TRPP==$2<Z 13>		
	A (<B>,13C,D) (<S>7 $7#;
	$TRSYN=$7:=<Z 13>		
	A (<B>,13C,D) (<S\S $=#k
	$TRURG=$=:=<Z 13>		
	A (<B>,13C,D) (<S\X $D:$%
	$TRURP=$DZ=<Z 25>		
	A (<B>,25C,D) (<S{R $E"$,
	$TRWND=$EB=<Z 26>		
	A (<B>,26C,D) (<S
  $ZZ%W
	$TRXI==$Zz<Z 42>		
	A (<B>,42C,D) (<S

 $[B%^
	$TRXP==$[b<Z 43>		
	A (<B>,43C,D) (<S

 $]%k
	$TRXPD=$]2=<Z 43>		
	A (<B>,43C,D) (<S

 $]r%q
	$TRXPI=$^=<Z 43>		
	A (<B>,43C,D) (<S

 $\*%d
	$TRXPN=$\J=<Z 43>		
	A (<B>,43C,D) (<SZ $:z#Y
	$TSABT=$;=<Z 13>		
	A (<B>,13C,D) (<S $4##
	$TSAP==$4:<Z 13>		
	A (<B>,13C,D) (<S.: $g2&=
	$TSBYT=$gR=<Z 61>		
	A (<B>,61C,D) (<S8@ $A$
	$TSCB==$A:<Z 17>		
	A (<B>,17C,D) (<S< $tz')
	$TSCPK=$u=<Z 166>		
	A (<B>,166C,D)(S<@ $2J#
	$TSCR==$2j<Z 13>		
	A (<B>,13C,D) (<S\ $0z#	
	$TSEP==$1<Z 13>		
	A (<B>,13C,D) (<Sl $0#
	$TSFP==$02<Z 13>		
	A (<B>,13C,D) (<SIZ $>#r
	$TSLFT=$>"=<Z 14>		
	A (<B>,14C,D) (<SMQ $bR&
	$TSLVC=$br=<Z 55>		
	A (<B>,55C,D) (<SMW $ar&
	$TSLVN=$b=<Z 55>		
	A (<B>,55C,D) (<S\Z $X"%D
	$TSMRT=$XB=<Z 40>		
	A (<B>,40C,D) (<S^ $ij&P
	$TSMXB=$j
=<Z 64>		
	A (<B>,64C,D) (<S^ $jR&W
	$TSMXP=$jr=<Z 65>		
	A (<B>,65C,D) (<S| $9:#M
	$TSOPN=$9Z=<Z 13>		
	A (<B>,13C,D) (<S

Y $:#S
	$TSPRS=$::=<Z 13>		
	A (<B>,13C,D) (<S98 $>j#x
	$TSSEQ=$?
=<Z 15>		
	A (<B>,15C,D) (<S=@ $;Z#_
	$TSSV==$;z<Z 13>		
	A (<B>,13C,D) (<S>7 $7z#A
	$TSSYN=$8=<Z 13>		
	A (<B>,13C,D) (<SH: $6:#5
	$TSTAT=$6Z=<Z 13>		
	A (<B>,13C,D) (<SK` $B$
	$TSTO==$B"<Z 20>		
	A (<B>,20C,D) (<S[x $8Z#G
	$TSUOP=$8z=<Z 13>		
	A (<B>,13C,D) (<S\S $<:#e
	$TSURG=$<Z=<Z 13>		
	A (<B>,13C,D) (<S\X $?R#
	$TSURP=$?r=<Z 16>		
	A (<B>,16C,D) (<S{R $@:$
	$TSWND=$@Z=<Z 17>		
	A (<B>,17C,D) (<S%| $q'

	$TTOPF=$q"=<Z 67>		
	A (<B>,67C,D) (<S%|` $`*&
	$TTOS==$`J<Z 54>		
	A (<B>,54C,D) (<S&	 $nR&w
	$TTPDO=$nr=<Z 67>		
	A (<B>,67C,D) (<S&y $o:&}
	$TTPOR=$oZ=<Z 67>		
	A (<B>,67C,D) (<S&z $p"'
	$TTPOU=$pB=<Z 67>		
	A (<B>,67C,D) (<S&K $_B%~
	$TTTL==$_b<Z 54>		
	A (<B>,54C,D) (<S&m $32#
	$TTVT==$3R<Z 13>		
	A (<B>,13C,D) (<S6K $dz&)
	$TVTL==$e<Z 56>		
	A (<B>,56C,D) (<S=I $-Z"o
	$TWLDN=$-z=<Z 13>		
	A (<B>,13C,D) (<S=I $/*"|
	$TWLDP=$/J=<Z 13>		
	A (<B>,13C,D) (<S=I $.B"v
	$TWLDT=$.b=<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 ?X[<<<A>&<B?x>>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