Google
 

Trailing-Edge - PDP-10 Archives - tops20_v7_0_tcpip_distribution_tape - tcpip-sources/anaunv.unv
There are 32 other files named anaunv.unv in the archive. Click here to see a list.
x
,Sm@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"\ %
j.n
IFB  <A%
J>,<	LOCAL <PARAMS%
*>		>
IFNB <A>,<$G:	LOCAL <PARAMS,A%jj>	>
	LALL
DEFIN%kE LH<0(PARAMS)>
%k(DEFINE LP<1(PARAM%kHS)>
DEFINE FH<2(%khPARAMS)>
DEFINE %lFP<3(PARAMS)>
DE%l(FINE JCN<4(PARAMS%lH)>
DEFINE WILDOK%lh<5(PARAMS)>
DEFI%mNE FN<6(PARAMS)>
DEFINE ARG1<7(PA%mHRAMS)>
DEFINE AR%mhG2<10(PARAMS)>
	SALL
RAMS)>
	G"\ %n*.v
	PURGE L%nJH,LP,FH,FP,JCN,WI%nhLDOK,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= H(B
	A==<-1hB<C>+1B<C-D>> 
	IF1,<IFDEF %A(,<PRINTX ?A ALREHADY DEFINED>>
	DhEFINE %A (OP,AC,Y,MSK)<
	$A==<Z( B>		
	OP (<AC>,B'Y,MSK)><AC>I6|R &:0a	IF1 <IFDE&ZF A,<PRINTX ? Mu&xltiply defined of&	fset in DEFWRD>>

;Make symbol p&	Xrintable or not d&	xepending on if ov&
erlaps AC's

	&
8A==:..OFST			;Set&
X value as offset &
xinto table
	IFB &<B>,<..OFST==..O&8FST+1>	;Increment&X offset
	IFNB <&xB>,<..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@ $
!2
	IFN $AC$*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 #}i&th<C>B1!<B>B5!<A>B35!<B
7'=0PRTX16=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"@ $Q*%
	MOVEI C$Q
X,2(A)
	ADDI CX$PJ,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$(I,END,,^D0,^D1,$BA,B,C)
  OPTIO$"N(I,NOP,,^D1,^D1,$+:A,B,C)
  OPTI$CON(I,LSR,C,^D3,^D$C87,A,B,C)
  OP$CXTION(I,RRT,,^D7,^$CxD7,A,B,C)
  O$DPTION(I,SID,C,^D8$D8,^D4,A,B,C)
 $DX OPTION(I,SSR,,^D$Dx9,^D7,A,B,C)
$E  OPTION(I,STY,C,$E8^D2,^D11,A,B,C$EX)

  OPTION(I,T$ExSP,,^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$JVNM,<	$IPMSG(\.,<$h?LOCAL: Missing R$ESTORE>,\$ACVNM)
			$ACVNM==0>
	$HIRP A,<	IFGE $AC$hVNM-NLOCLS,<$IPMS$G(\.,<?Too many L$(OCALs>)>
			$DFA$HCL(A,\<$ACVNM>)
			$ACVNM==$ACVNM+1>CVNM==$ACVNY><}P Y>e<@Q xYO|P AY^~)Q []hz &:6%

;The f&Zollowing section &xis the same among& all NCT's
.NCT&8B=:.			;Set addre&Xss of this NCT
	&xEXP	0		;Link word& to next NCT in l&8ist
				;(filled&X in by MNTINI)
N&xCTNUM==NCTNUM+1		&;Increment number&8 of NCTS defined

	XWD	NT.TYP,NT&x.DEV	;Protocal an&d device codes
	&8EXP	NT.NUM		;Net &Xindex
NT.NUM==NT&x.NUM+1		;incremen&t net index
	EXP&8	-1		;Internet ne&Xtwork number (not&x yet set)
	EXP	-&1		;Internet Addr&8ess of this inter&Xface
	EXP	0		;Lo&xgical host mask f& or this network
& 8IFB  <C>,<XWD 37& X7777,-1>	;Maximum& x packet size
IFN&!B <C>,<EXP C>		&!8;Maximum packet s&!Xize

;NCP/&!xAN20  MAKSAV  MAC&"RO  Creates  an  &"8interrupt  AC  sa&"Xve and dispatch
&"x;routine in the c&#urrent NCT at the&#8 current location&#X. Uses The follow&#xing
;locations (&$which therefore m&$8ust be defined fo&$Xr  that  net  typ&$xe).  The
;argume&%nt  PDP  is the a&%8ddress of a Push &%Xdown pointer for &%xthis routine.
;D&&ISP is the offset&&8 of the dispatch &&Xaddress.

DEFIN&&xE MAKSAV(PDP,DISP&')
<	MOVEM P,.NCT&'8B+NTSVAC+17	;Sav&'Xe P
	MOVEI P,.NC&'xTB+NTSVAC	;Where&( the AC's go
	BL&(8T P,.NCTB+NTSVAC&(X+16	;Save all
	M&(xOVE P,PDP			;Set &)new P
	XMOVEI P1&)8,.NCTB		;Point t&)Xo NCT
	CALL	@DIS&)xP(P1)		;And Goto &*routine
>					;E&*8nd of MAKSAV
&*X
;MAKRES  -  Mak&*xe  a 3 word AC re&+store , dismiss i&+8nterrupt routine.&+X AC's
;are assum&+xed stored at NTSV&,AC. Arg PCW is th&,8e address of the &,X interrupt
;PC.

DEFINE	MAKRES(&-PCW)
<	MOVSI P,.&-8NCTB+NTSVAC	;Fro&-Xm there to 0
	BL&-xT P,P				;Restore&. all AC's
	XJEN &.8.NCTB+PCW		;And &.Xdismiss the inter&.xrupt
>					;End &/of MAKRES MACRO
&/8
IFE <<NT.TYP-NT&/X.NCP>!<NT.DEV-NT.&/xANX>>,<

	ANI==&0520		;Input devic&08e address
	ANO==&0X524		;Output side&0x address

	CONS&1Z ANI,(T1)		;NTCN&18SZ - CONSZ Input
	CONSO ANI,(T1)	&1x	;NTCNSO - CONSO &2Input
	CONO ANI,&28(T1)		;NTCONO - C&2XONO Input
	CONI &2xANI,T1		;NTCONI -&3 CONI Input
	DAT&38AO ANI,T1		;NTDAT&3XO - DATAO Input
&3x	DATAI ANI,T1		;N&4TDATI - DATAI Inp&48ut
	NCTDSP ANXIN&4XI		;NTINI  - Init&4xialization instru&5ction
	NCTDSP AN&58XKIL		;NTKILL - S&5Xhutdown instructi&5xon
	NCTDSP ANXRS&6S		;NTRSRT - Rest&68art instruction
&6X	NCTDSP ANISRT		;&6xNTISRT - Start in&7put instruction
&78	NCTDSP ANOSRT		;&7XNTOSRT - Start ou&7xtput instruction
	NCTDSP IMPEIN		&88;NTIDUN - Input d&8Xone dispatch
	NC&8xTDSP IMODUN		;NTO&9DUN - Output done&98 dispatch
	NCTDS&9XP IMPHDR		;NTLLDR&9x - Make header in&:struction
	NCTDS&:8P RSKP		;NTOTOK -&:X CLear packet for&:x output
	NCTDSP &;R		;NTMAIN - Main&;8tainance
	NCTDSP&;X ANXSCK		;NTSCHK &;x- Status check in&<struction
	BLOCK&<8 NTOCNO-NTIB	;NTI&<XB through  NTOTYP&<x
	CONO ANO,(T1)	&=	;NTOCNO - CONO O&=8utput
	CONI ANO,&=XT1		;NTOCNI - CON&=xI Output
	CONSO &>ANO,(T1)		;NTOCSO&>8 - CONSO Output
&>X	CONSZ ANO,(T1)		&>x;NTOCSZ - CONSZ O&?utput
	DATAO ANO&?8,T1		;NTODTO - DA&?XTAO Output
	DATA&?xI ANO,T1		;NTODTI&@ - DATAI Output
&@8	XPCW .+1		;NTIIN&@XT - Interrupt ins&@xtruction
	BLOCK &A2			;NTIPCW - Int&A8urrupt PC storage&AX
	EXP 0			;NTINP&AxC - New flags (In&Bput)
	XCDSEC,,.+&B81		;         New &BXPC (Input save)
&Bx	MAKSAV (IMPPDP,N&CTIDSP)	;NTIISV - &C86 words of AC sav&CXe routine
	MAKRE&CxS (NTIPCW)		;NTII&DRS - 3 words of A&D8C restore routine&DX
	XPCW .+1	     &Dx  	;NTOINT - Inte&Errupt instruction&E8
	BLOCK 2			;NTO&EXPCW - PC storage
	EXP 0			;NTONPC&F - New flags
	XC&F8DSEC,,.+1		;     &FX    New PC (Outpu&Fxt save)
	MAKSAV &G(IMPPDP,NTODSP)	;&G8NTIOSV _ 6 words &GXof AC Save
	MAKR&GxES (NTOPCW)		;NTI&HORS   3 words of &H8AC restore
	BLOC&HXK 20		;NTSVAC - A&HxC storage
>				;&IEnd of NCP/ANX co&I8nditional
&IX
IFE <<NT.TYP-NT.&IxNUN>!<NT.DEV-NT.N&JIP>>,<

	JFCL  &J8        		;NTCNSZ&JX - CONSZ Input
	&JxJFCL          		;&KNTCNSO - CONSO In&K8put
	JFCL       &KX   		;NTCONO - CO&KxNO Input
	JFCL  &L        		;NTCONI&L8 - CONI Input
	J&LXFCL          		;N&LxTDATO - DATAO Inp&Mut
	JFCL        &M8  		;NTDATI - DAT&MXAI Input
	NCTDSP&Mx NIPINI		;NTINI  &N- Initialization &N8instruction
	NCT&NXDSP NIPKIL		;NTKI&NxLL - Shutdown ins&Otruction
	NCTDSP&O8 NIPRST		;NTRSRT &OX- Restart instruc&Oxtion
	NCTDSP R  &P   		;NTISRT - St&P8art input instruc&PXtion
	NCTDSP NIP&PxSTO		;NTOSRT - St&Qart output instru&Q8ction
	NCTDSP R &QX    		;NTIDUN - I&Qxnput done dispatc&Rh
	NCTDSP R     &R8  		;NTODUN - Out&RXput done dispatch&Rx
	NCTDSP NIPHDR	&S	;NTLLDR - Make h&S8eader instruction&SX
	NCTDSP RSKP		;&SxNTOTOK - CLear pa&Tcket for output
&T8	NCTDSP R      		&TX;NTMAIN - Maintai&Txnance
	NCTDSP NI&UPSTA		;NTSCHK - S&U8tatus check instr&UXuction
	BLOCK NT&UxSVAC-NTIB	;NTIB t&Vhrough  NTOTYP
>&V8				;End of NIN/N&VXIP conditional
&Vx

;IPCI nct d&Wefinition

	IFE&W8 <<NT.TYP-NT.NUN>&WX!<NT.DEV-NT.CIP>>&Wx,<

	JFCL      &X    		; NTCNSZ - &X8CONSZ Input
	JFC&XXL          		; NT&XxCNSO - CONSO Inpu&Yt
	JFCL         &Y8 		; NTCONO - CON&YXO Input
	JFCL   &Yx       		; NTCONI&Z - CONI Input
	J&Z8FCL          		; &ZXNTDATO - DATAO In&Zxput
	JFCL       &[   		; NTDATI - D&[8ATAI Input
	NCTD&[XSP CIPINI		; NTIN&[xI  - Initializati&\on instruction
	&\8NCTDSP CIPKIL		; &\XNTKILL - Shutdown&\x instruction
	NC&]TDSP CIPRST		; NT&]8RSRT - Restart in&]Xstruction
	NCTDS&]xP R     		; NTISR&^T - Start input i&^8nstruction
	NCTD&^XSP CIPSTO		; NTOS&^xRT - Start output&_ instruction
	NC&_8TDSP R     		; NT&_XIDUN - Input done&_x dispatch
	NCTDS&`P R      		; NTOD&`8UN - Output done &`Xdispatch
	NCTDSP&`x CIPHDR		; NTLLDR&a - Make header in&a8struction
	NCTDS&aXP RSKP		; NTOTOK &ax- CLear packet fo&br output
	NCTDSP&b8 R      		; NTMAI&bXN - Maintainance
	NCTDSP CIPSTA		&c; NTSCHK - Status&c8 check instructio&cXn
	BLOCK NTSVAC-&cxNTIB	; NTIB throu&dgh  NTOTYP
>				&d8; End of IPCIN/CI&dXP conditional

conditional

[^ &fZ65XCDSEC,,.NCTAXCDSEC,,.N[EyP [EIP [F98Q [FKyP [&uP 
[&vJP 
[.t= &Z1G	XALL			;S&zhow the lines tem&porarily

NT.NU&8M==0			;Start wit&Xh Interface 0
NC&xTNUM==0			;Start &out at zero
DV.N&8UM==0			;Back to &Xnumber 0

IFN A&xNXN,<
NT.TYP==NT&.NCP			;Network T&8ype is NCP
NT.DE&XV==NT.ANX			;Devi&xce type AN20
MAK&NCT(\DV.NUM,\NCTN&8UM,^D576)>	;Make &Xthat type NCT

&xIFN IPNIN,<
NT.T&YP==NT.NUN			;No &8local protocol 
&XNT.DEV==NT.NIP			&x;Device type IPNI&
DV.NUM==DV.NUM+&81		;NCT number
M&XAKNCT(\DV.NUM,\NC&xTNUM,^D576)>	;Mak&e that type NCT
&8
IFN IPCIN,<
NT&X.TYP==NT.NUN			;N&xo local protocol &
NT.DEV==NT.CIP	&8		;Device type IP&XCI
DV.NUM==DV.NU&xM+1		;NCT number
MAKNCT(\DV.NUM,\&8NCTNUM,^D576)>	;M&Xake that type NCT&x

DV.NUM==DV.NU&M+1		; increment &8number of that ty&Xpe
	SALL			; Aga&xin suppress expansions
ss expan[/LY &e61
..TMP==0&e:			;Start at NCT &eX#0
REPEAT %NETS,&ex<
	MAKPTR(\..TMP&f)
	..TMP==..TMP+1>
TMP==..TMP+[/<: #}jp
	ROT T2,#~
-^D9
	LSHC T1,^D27
	HRRI T1,A[;$86 &
Z0eCALL@A(P1)CALL@A(P[;%,Y &o&yTLZ A,(-MAXSEQ)LZ A,(-M[Ne|P [b>z1P ]
>@P']Y Q x]$Lx &0qXCDSEC,,<A&777777>EC,,<]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 $J!n
	TXNN	B$*,.NETCA		; Class $
A network?
	JRS$jT	[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 ]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 $F$5
IFDIF <%
C>,<C>,<	BOPT==$F:D	>
IFIDN <C>,<$FZC>,<	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? 0<^L<<A>&<-<A>>>><<A>&<a@(]YQ a@,J`Q a@,M7Q a@,yQ a@,|yQ  a@-]Q @a@.
	$GZ		IRP C,<.X==.X+$HPT%%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 #gr?HRLZI A,BHRLZI A,a^tK`Q xac Q c:/
zP e-i:P e.LtP e.LwP eKy $
!*
	IFLE $A$*CVNM+$STVNM+$TMVN$HM,<$IPMSG(\.,<?Ex$htra RESTORE macro$>,\$ACVNM,\$STVNM$(,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg #h2CHRLI A,BHRLI A,Bg&%|P Dg;I8Q gO|P gR
:v$
	IFG+$AC$NM,<	$IPM$SG(\.,<?STACKL: M$(issing RESTORE>,\$H$ACVNM,\$STVNM)
$h				$ACVNM==0
		$		$STVNM==0>
	IR$(P A,<	$STKL1(A)$H>
	JSP CX,.TRSET$h##
	$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| $oz(\
  OPTION$oZ(I,END,,^D0,^D1,$}*A,B,C)
  OPTIO$}JN(I,NOP,,^D1,^D1,%
jA,B,C)
  OPTI%ON(T,MSL,,^D2,^D4%(,A,B,C)
  OPT%HION(T,LBL,,^D33,^D4,A,B,C)
^i$,`Q xi&< P'i,0P"i.-P i.MP in $J ^
	IFG $TM$jVNM+$STVNM+$STVNM$	,<	$IPMSG(\.,<?TE$	(MP: Missing RESTO$	HRE>,\$ACVNM,\$STV$	hNM,\$TMVNM)
				$
	$STVNM==0
					$
($TMVNM==0
					$$
HACVNM==0>
	IRP $
hA,<	IFGE $TMVNM-N$TEMPS,<$IPMSG(\.,$(<?Too many TEMPs>$H)>
			$DFTMP(A,$h\<$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&  "
<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v $* @
	IFDEF $JA,<$IPMSG(\.,<?LO$hCAL AC A already$ defined>)>
	PUS$(H P,T1+NTEMPS+B
	A==T1+NTEMPS+$hB
	$PURGE A
	$$POP T1+NTEMPS+BOP T1+NTEMPS+B	6K8 $
* h
	IFDEF $
JA,<$IPMSG(\.,<?TE$
hMPeA)already def$
	A==T1+B
	$PURGE A+	".)  $J 
	$INFO
	$INIT
	$INFO
	&tk` !,A
B	&u #~Jz
	DEFINE #~j$INFO(X,Y)<X
Y>
$ACVNM==0
$STVN#(M==0
$TMVNM==0
=0
$TMVNM==0
	'\s $
 

PRINTX B $*at A (C,D,E)t A (C,D,E)	B~ $j 
	GSOPDEF$
 %POP%,<POP P,>
$(	$REMOTE (<%POP% A>)TE (<%POP% 	C.)r $j $REMOTE (<PURGE A>)TE (<	J-[z #j $INFO(<DEF$
INE $INFO(X,Y)><X
A,Y>)X,Y)><X	NL{V %p
0?
	XMOVEI %ojT1,A		;Process t%oJo signal
  IFE %p*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%; $*!$STKL2(A)$STKL2(A)	O%;	 $j!
	$STKL3($
A,\$STVNM)
	IFB$( <B>,<$STVNM==$S$HTVNM+1>
	IFNB <$hB>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 $*!
	IFDEF $JA,<$IPMSG(\.,<?ST$hACKL local A alr$eady defined>)>
$(	DEFINE A<^OB+1$H(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 %xr/I
	$BBLIP=%y=<Z 11>		
	A (<B>,11C,D) (<
m %tR/)
	$BCNT==%tr<Z BFRCNT>		
	A%u (<B>,BFRCNTC,D)B>,BFRCNTC,
$ %o*/ 
	$BDADR=%sj=<Z BFRDAD>		
	%tA (<B>,BFRDADC,D)B>,BFRDADC,
-{ %qZ/
	$BEOL==%qz<Z BFRFLG>		
	A%r (<B>,BFRFLGC,D)B>,BFRFLGC,
6*| %w*/<
	$BFRKX=%wJ=<Z 10>		
	A (<B>,10C,D) (<
D %uZ//
	$BHADR=%uz=<Z 6>		
	A (<B>,6C,D)A (<
L;Z %vB/6
	$BICNT=%vb=<Z 7>		
	A (<B>,7C,D)A (<
LN %2/}
	$BIDX==%R<Z 13>		
	A (<B>,13C,D) (<
n3 %yR/O
	$BMPAG=%yr=<Z 11>		
	A (<B>,11C,D) (<L@ %z:/W
	$BPTR==%zZ<Z BFRPTR>		
	A%zx (<B>,BFRPTRC,D)B>,BFRPTRC,LP %}J/p
	$BPTRA=%}j=<Z BFRPTR>		
	%~A (<B>,BFRPTRC,D)B>,BFRPTRC,LX %{B/`
	$BPTRP=%{b=<Z BFRPTR>		
	%|A (<B>,BFRPTRC,D)B>,BFRPTRC,LY %|J/h
	$BPTRS=%|j=<Z BFRPTR>		
	%}A (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ %~R/w
	$BTCB==%~r<Z 13>		
	A (<B>,13C,D) (<&0 &0
	$BTS==<&:Z 14>		
	A (<B>,14C,D) (<B.3 %x
/B
	$BUPAG=%x*=<Z 10>		
	A (<B>,10C,D) (<.)` %pR/	
	$BURG==%pr<Z BFRFLG>		
	A%q (<B>,BFRFLGC,D)B>,BFRFLGC,=P %rb/
	$BWM==<%sZ BFRFLG>		
	A %s (<B>,BFRFLGC,D)B>,BFRFLGC,Dl:y $qr'
	$CMCKS=$r=<Z 0>		
	A (<B>,0C,D)A (<l;r $q
'

	$CMCOD=$q*=<Z 0>		
	A (<B>,0C,D)A (<l}p $u'+
	$CMGWA=$u2=<Z 1>		
	A (<B>,1C,D)A (<m $rZ'
	$CMID==$rz<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=$tJ=<Z 1>		
	A (<B>,1C,D)A (<n98 $sB'
	$CMSEQ=$sb=<Z 1>		
	A (<B>,1C,D)A (<nLw $uz'1
	$CMTSO=$v=<Z 2>		
	A (<B>,2C,D)A (<nLy $vb'8
	$CMTSR=$w=<Z 3>		
	A (<B>,3C,D)A (<nLz $wJ'>
	$CMTST=$wj=<Z 4>		
	A (<B>,4C,D)A (<nN8 $p"'
	$CMTYP=$pB=<Z 0>		
	A (<B>,0C,D)A (<&0 $Jj$Z
	$DDS==<$K
Z PPBFSZ+1>		
	$K(A (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 $HZ$I
	$DFLAG=$Hz=<Z PPBFSZ+0>		
$I	A (<B>,PPBFSZ+0C,D),PPBFSZ+= $Lr$k
	$DPKTP=$M=<Z PPBFSZ+3>		
$M0	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ $Mz$s
	$DPTRC=$N=<Z PPBFSZ+4>		
$N8	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 $Ij$R
	$DSS==<$J
Z PPBFSZ+1>		
	$J(A (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 $Kj$b
	$DTIME=$L
=<Z PPBFSZ+2>		
$L(	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 $zj'X
	$GWHIS=${
=<Z 0>		
	A (<B>,0C,D)A (<=z $|2'e
	$GWICT=$|R=<Z 0>		
	A (<B>,0C,D)A (<>
8 $y'K
	$GWPIP=$y:=<Z 0>		
	A (<B>,0C,D)A (<>< ${R'_
	$GWSPC=${r=<Z 0>		
	A (<B>,0C,D)A (<>N8 $z'R
	$GWTYP=$z"=<Z 0>		
	A (<B>,0C,D)A (<>\ $x2'E
	$GWUP==$xR<Z 0>		
	A (<B>,0C,D)A (<B"D;Z #yBP
	$HHCNT=#yb=<Z .NBHHL>		
	#zA (<B>,.NBHHLC,D)B>,.NBHHLC,#\ $n:&u
	$HSMPL=$nZ=<Z 1>		
	A (<B>,1C,D)A (<#J2 &lr6k
	$HSTIDX&m==<Z HOSTN>		
	&m0A (<B>,HOSTNC,D)B>,HOSTNC,#KV &mz6s
	$HSTNMP&n==<Z HOSTN>		
	&n8A (<B>,HOSTNC,D)B>,HOSTNC,#%} $mR&o
	$HTOTL=$mr=<Z 0>		
	A (<B>,0C,D)A (<&
  &i
6J
	$IAHI==&i*<Z 0>		
	A (<B>,0C,D)A (<B&
z &ir6Q
	$IAHST=&j=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=&jr=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=&l2=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=&kR=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=&hB=<Z 0>		
	A (<B>,0C,D)A (<&D #pz
	$IHADR=#q=<Z .NBLD1>		
	#q8A (<B>,.NBLD1C,D)B>,.NBLD1C,&Dm #jbZ
	$IHFTY=#k=<Z .NBLD0>		
	#k A (<B>,.NBLD0C,D)B>,.NBLD0C,&E
z #r
	$IHHST=#r"=<Z .NBLD1>		
	#r@A#(<B>,.NBLD1C,D)B>,.NBLD1C,&E
	$IHHT2=#o
=<Z .NBLD0>		
	#o(A#(<B>,.NBLD0C,D)B>,.NBLD0C,&E
	$IHHTY=#p=<Z .NBLD1>		
	#p0A (<B>,.NBLD1C,D)B>,.NBLD1C,&E8 #s

	$IHIMP=#s*=<Z .NBLD1>		
	#sHA (<B>,.NBLD1C,D)B>,.NBLD1C,&EI #ljj
	$IHLDF=#m
=<Z .NBLD0>		
	#m(A (<B>,.NBLD0C,D)B>,.NBLD0C,&EI7 #w">
	$IHLEN=#wB=<Z .NBLD2>		
	#w`A (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU #t
$
	$IHLNK=#t*=<Z .NBLD1>		
	#tHA (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) #u-
	$IHMI2=#u2=<Z .NBLD2>		
	#uPA (<B>,.NBLD2C,D)B>,.NBLD2C,&E] #mjr
	$IHMTY=#n
=<Z .NBLD0>		
	#n(A (<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: #kjb
	$IHNET=#l
=<Z .NBLD0>		
	#l(A (<B>,.NBLD0C,D)B>,.NBLD0C,&F	 #x"F
	$IHPD1=#xB=<Z .NBLD2>		
	#x`A (<B>,.NBLD2C,D)B>,.NBLD2C,&F= #v5
	$IHSTY=#v:=<Z .NBLD2>		
	#vXA (<B>,.NBLD2C,D)B>,.NBLD2C,&v
 #{Ra
	$INPPR=#{r=<Z .INPRO>		
	#|A#(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR=#zj=<Z .INVER>		
	#{A (<B>,.INVERC,D)B>,.INVERC,&vKZ $r!A
	$INTNUM$==<Z >		
	A (<B>,C,D)A (<2;Z $k"&\
	$LCCNT=$kB=<Z 3>		
	A (<B>,3C,D)A (<2LN $iR&O
	$LIDX==$ir<Z 1>		
	A (<B>,1C,D)A (<B2ezy $j:&U
	$LLOKR=$jZ=<Z 2>		
	A (<B>,2C,D)A (<2uJy $lj&h
	$LNLKR=$m
=<Z 4>		
	A (<B>,4C,D)A (<2}Jy $l
&b
	$LOLKR=$l*=<Z 4>		
	A (<B>,4C,D)A (<3=|R $hj&H
	$LWORD=$i
=<Z 0>		
	A (<B>,0C,D)A (<:,} #iZQ
	$NBBSZ=#iz=<Z .NBHDR>		
	#jA (<B>,.NBHDRC,D)B>,.NBHDRC,:2 #hZI
	$NBQUE=#hz=<Z .NBHDR>		
	#iA (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp $B!N
	$NETCA=$b=<Z 0>		
	A (<B>,0C,D)A (<:.Hq $2!U
	$NETCB=$R=<Z 0>		
	A (<B>,0C,D)A (<:.Hq $"!\
	$NETCC=$B=<Z 0>		
	A (<B>,0C,D)A (<:.Hv $Z!G
	$NETCLS$z==<Z 0>		
	A (<B>,0C,D)A (<;$I; &pJ7
	$NTDEV=&pj=<Z 1>		
	A (<B>,1C,D)A (<;%KU &o6z
	$NTLNK=&o"=<Z 0>		
	A (<B>,0C,D)A (<;%m6 &q*7

	$NTNUM=&qJ=<Z 2>		
	A (<B>,2C,D)A (<;&N8 &oj7
	$NTTYP=&p
=<Z 1>		
	A (<B>,1C,D)A (<B
:` %2(%
	$PACK==%R<Z 3>		
	A (<B>,3C,D)A (<BB
:y %*(
	$PACKS=%J=<Z 2>		
	A (<B>,2C,D)A (<BK %(
	$PCTL==%2<Z 3>		
	A (<B>,3C,D)A (<BB$= $)
"J
	$PDCT==$)*<Z 5>		
	A (<B>,5C,D)A (<BB& $~Z'w
	$PDP==<$~zZ 0>		
	A (<B>,0C,D)A (<B>B-{ %(+
	$PEOL==%:<Z 3>		
	A (<B>,3C,D)A (<BB.98 $*Z"W
	$PESEQ=$*z=<Z 7>		
	A (<B>,7C,D)A (<B5@ %R(?
	$PFIN==%r<Z 3>		
	A (<B>,3C,D)A (<BB5Iy $*!|
	$PFLGS=$J=<Z 1>		
	A (<B>,1C,D)A (<B6:= $!b"
	$PFSIZ=$"=<Z 1>		
	A (<B>,1C,D)A (<BL:y $?*$
	$PICKS=$?J=<Z PKTELI+.IPKPR$?h>		
	A (<B>,PK$@TELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ $8r#M
	$PIDF==$9<Z PKTELI+.IPKSG>$90		
	A (<B>,PKT$9PELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ $Az$
	$PIDH==$B<Z PKTELI+.IPKDH>$B8		
	A (<B>,PKT$BXELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` $-
"n
	$PIDO==$-*<Z PKTELI+.IPKVR>$-H		
	A (<B>,PKT$-hELI+.IPKVRC,D)LI+.IPKVRC,D)BLk $7J#B
	$PIFLG=$7j=<Z PKTELI+.IPKSG$8>		
	A (<B>,PK$8(TELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` $;2#a
	$PIFO==$;R<Z PKTELI+.IPKSG>$;p		
	A (<B>,PKT$<ELI+.IPKSGC,D)LI+.IPKSGC,D)BM
V $3R##
	$PIHRL=$3r=<Z PKTELI+.IPKVR$4>		
	A (<B>,PK$40TELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR=$2J=<Z PKTELI+.IPKVR$2h>		
	A (<B>,PK$3TELI+.IPKVRC,D)LI+.IPKVRC,D)BMI $1#
	$PILDY=$1"=<Z PKTELI+.IPKVR$1@>		
	A (<B>,PK$1`TELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ $:#W
	$PIMF==$:2<Z PKTELI+.IPKSG>$:P		
	A (<B>,PKT$:pELI+.IPKSGC,D)LI+.IPKSGC,D)BMm $ z"	
	$PINTL=$!=<Z 1>		
	A (<B>,1C,D)A (<BN $4z#-
	$PIPL==$5<Z PKTELI+.IPKVR>$58		
	A (<B>,PKT$5XELI+.IPKVRC,D)LI+.IPKVRC,D)BN
Q $/Z#
	$PIPRC=$/z=<Z PKTELI+.IPKVR$0>		
	A (<B>,PK$08TELI+.IPKVRC,D)LI+.IPKVRC,D)BN
W $>#v
	$PIPRO=$>"=<Z PKTELI+.IPKPR$>@>		
	A (<B>,PK$>`TELI+.IPKPRC,D)LI+.IPKPRC,D)BN: $@R$
	$PISH==$@r<Z PKTELI+.IPKSH>$A		
	A (<B>,PKT$A0ELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 $6"#8
	$PISID=$6B=<Z PKTELI+.IPKSG$6`>		
	A (<B>,PK$7TELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy $.2"y
	$PITOS=$.R=<Z PKTELI+.IPKVR$.p>		
	A (<B>,PK$/TELI+.IPKVRC,D)LI+.IPKVRC,D)BNM $<Z#k
	$PITTL=$<z=<Z PKTELI+.IPKPR$=>		
	A (<B>,PK$=8TELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 $+b"d
	$PIVER=$,=<Z PKTELI+.IPKVR$, >		
	A (<B>,PK$,@TELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; $%j"0
	$PLCLO=$&
=<Z 1>		
	A (<B>,1C,D)A (<BuHv $$"#
	$PNLCL=$$:=<Z 1>		
	A (<B>,1C,D)A (<C+s $ "
	$PPROG=$ 2=<Z 1>		
	A (<B>,1C,D)A (<C= %(2
	$PRST==%"<Z 3>		
	A (<B>,3C,D)A (<BC	 $"J"
	$PRXD==$"j<Z 1>		
	A (<B>,1C,D)A (<BC
  $(""D
	$PRXI==$(B<Z 4>		
	A (<B>,4C,D)A (<BC<@ $#2"
	$PSCR==$#R<Z 1>		
	A (<B>,1C,D)A (<BC\  $B'~
	$PSEQ==$b<Z 1>		
	A (<B>,1C,D)A (<BC $}r'q
	$PSP==<$~Z 0>		
	A (<B>,0C,D)A (<B>C+z $%"*
	$PSROU=$%"=<Z 1>		
	A (<B>,1C,D)A (<C@ %j(8
	$PSYN==%
<Z 3>		
	A (<B>,3C,D)A (<BC$:y %	"(L
	$PTCKS=%	B=<Z 4>		
	A (<B>,4C,D)A (<C$= %b(
	$PTCTL=%=<Z 3>		
	A (<B>,3C,D)A (<C$K` %z(
	$PTDO==%<Z 3>		
	A (<B>,3C,D)A (<BC$p $&R"7
	$PTG==<$&rZ 2>		
	A (<B>,2C,D)A (<B>C&0 $)r"Q
	$PTS==<$*Z 6>		
	A (<B>,6C,D)A (<B>C&m %i".N
	$PTVT==%iB<Z TTNETW>		
	A%i` (<B>,TTNETWC,D)B>,TTNETWC,C.)` %J(
	$PURG==%j<Z 3>		
	A (<B>,3C,D)A (<BC.)x %

(R
	$PURGP=%
*=<Z 4>		
	A (<B>,4C,D)A (<C=i %:(E
	$PWNDO=%Z=<Z 3>		
	A (<B>,3C,D)A (<CF@ $':"=
	$PXT==<$'ZZ 3>		
	A (<B>,3C,D)A (<B>Ft^ $QJ%
	$QNEXT=$Qj=<Z 0>		
	A (<B>,0C,D)A (<G); $h&B
	$QPREV=$h"=<Z 0>		
	A (<B>,0C,D)A (<R
- %Fz,9
	$TABTFX%G==<Z 54>		
	A (<B>,54C,D) (RHL %e*.,
	$TCDB8=%eJ=<Z 170>		
	A (<B>,170C,D)(RH{ %dB.&
	$TCDCW=%db=<Z 170>		
	A (<B>,170C,D)(RIY %^j-x
	$TCDFS=%_
=<Z 170>		
	A (<B>,170C,D)(RIr %a".

	$TCDGE=%aB=<Z 170>		
	A (<B>,170C,D)(RIw %`:.
	$TCDGN=%`Z=<Z 170>		
	A (<B>,170C,D)(RJ %^-r
	$TCDHT=%^"=<Z 170>		
	A (<B>,170C,D)(RJ1 %cZ.
	$TCDIB=%cz=<Z 170>		
	A (<B>,170C,D)(RKq %br.
	$TCDOB=%c=<Z 170>		
	A (<B>,170C,D)(RKx %f.3
	$TCDOQ=%f2=<Z 170>		
	A (<B>,170C,D)(RK{ %_R-
	$TCDOW=%_r=<Z 170>		
	A (<B>,170C,D)(RL %b
.
	$TCDPS=%b*=<Z 170>		
	A (<B>,170C,D)(RL %fz.9
	$TCDPU=%g=<Z 170>		
	A (<B>,170C,D)(RM9 %gb.@
	$TCDUR=%h=<Z 170>		
	A (<B>,170C,D)(RMz %]-k
	$TCDWT=%]:=<Z 170>		
	A (<B>,170C,D)(RHY %Y"-L
	$TCTBS=%YB=<Z 165>		
	A (<B>,165C,D)(RLx %Z-R
	$TCTSQ=%Z"=<Z 165>		
	A (<B>,165C,D)(R$X` %J)^
	$TDEC==%j<Z 13>		
	A (<B>,13C,D) (<R.(S %WZ-?
	$TERBF=%Wz=<Z 164>		
	A (<B>,164C,D)(R.*W %X:-E
	$TERJN=%XZ=<Z 164>		
	A (<B>,164C,D)(R.,@ %b)
	$TERR==%<Z 13>		
	A (<B>,13C,D) (<R.,S %<J+f
	$TERRF=%<j=<Z 37>		
	A (<B>,37C,D) (<R.,Z %j)X
	$TERRT=%
=<Z 13>		
	A (<B>,13C,D) (<R5 %Z(w
	$TFH==<%zZ 7>		
	A (<B>,7C,D)A (<B>R5` %B(~
	$TFHC==%b<Z 7>		
	A (<B>,7C,D)A (<BR6 %)
	$TFP==<%2Z 11>		
	A (<B>,11C,D) (<BRLi %DJ,&
	$TIFDF=%Dj=<Z 54>		
	A (<B>,54C,D) (<RM| %SZ-
	$TIOPF=%Sz=<Z 66>		
	A (<B>,66C,D) (<RN	 %Q*-

	$TIPDO=%QJ=<Z 66>		
	A (<B>,66C,D) (<RNy %R-
	$TIPOR=%R2=<Z 66>		
	A (<B>,66C,D) (<RNz %Rz-
	$TIPOU=%S=<Z 66>		
	A(<B>,66C,D) (<RT;@ %
	$TJCN==%<Z 6>		
	A (<B>,6C,D)A (<BRTk@ %hB.F
	$TJFN==%hb<Z 170>		
	A (<B>,170C,D)(<Re %*)
	$TLH==<%JZ 10>		
	A (<B>,10C,D) (<BRf %z)
	$TLP==<%Z 12>		
	A (<B>,12C,D) (<BRmlZ %>z+y
	$TMNRT=%?=<Z 40>		
	A (<B>,40C,D) (<Ro
Z %?b,
	$TMXRT=%@=<Z 41>		
	A (<B>,41C,D) (<RvYV %J
,R
	$TNUFM=%J*=<Z 56>		
	A (<B>,56C,D) (<R|lU %=*+l
	$TOFRK=%=J=<Z 37>		
	A (<B>,37C,D) (<R~	T %KR,_
	$TOPFH=%Kr=<Z 57>		
	A (<B>,57C,D) (<R~	X %I*,L
	$TOPFP=%IJ=<Z 56>		
	A (<B>,56C,D) (<R~ %L:,e
	$TOPLH=%LZ=<Z 60>		
	A (<B>,60C,D) (<R~S %;b+`
	$TOPNF=%<=<Z 37>		
	A (<B>,37C,D) (<R~{Y %
(j
	$TOWNR=%
	A (<B>,6C,D)A (<Sp %4B+(
	$TPICA=%4b=<Z TCBPIC>		
	%5A (<B>,TCBPICC,D)B>,TCBPICC,Sr %2B+
	$TPICE=%2b=<Z TCBPIC>		
	%3A (<B>,TCBPICC,D)B>,TCBPICC,Sy %0:+
	$TPICR=%0Z=<Z TCBPIC>		
	%0xA (<B>,TCBPICC,D)B>,TCBPICC,Sy %1B+
	$TPICS=%1b=<Z TCBPIC>		
	%2A (<B>,TCBPICC,D)B>,TCBPICC,Sz %/2*
	$TPICU=%/R=<Z TCBPIC>		
	%/pA (<B>,TCBPICC,D)B>,TCBPICC,S| %3B+ 
	$TPICX=%3b=<Z TCBPIC>		
	%4A (<B>,TCBPICC,D)B>,TCBPICC,SP %:Z+Y
	$TPIFA=%:z=<Z TCBPIF+2>		
%;	A (<B>,TCBPIF+2C,D),TCBPIF+SR %8R+I
	$TPIFE=%8r=<Z TCBPIF+1>		
%9	A (<B>,TCBPIF+1C,D),TCBPIF+SY %6J+8
	$TPIFR=%6j=<Z TCBPIF+0>		
%7	A (<B>,TCBPIF+0C,D),TCBPIF+SY %7R+A
	$TPIFS=%7r=<Z TCBPIF+1>		
%8	A (<B>,TCBPIF+1C,D),TCBPIF+SZ %5J+0
	$TPIFU=%5j=<Z TCBPIF+0>		
%6	A (<B>,TCBPIF+0C,D),TCBPIF+S\ %9Z+Q
	$TPIFX=%9z=<Z TCBPIF+2>		
%:	A (<B>,TCBPIF+2C,D),TCBPIF+S,h %[R-_
	$TPRS1=%[r=<Z 167>		
	A (<B>,167C,D)(S,i %\2-e
	$TPRS2=%\R=<Z 167>		
	A (<B>,167C,D)(S:1 %.**v
	$TPSIC=%.J=<Z TCBPIC>		
	%.hA (<B>,TCBPICC,D)B>,TCBPICC,S,` %-B*n
	$TRBS==%-b<Z 30>		
	A (<B>,30C,D) (<S8@ %+r*a
	$TRCB==%,<Z 26>		
	A (<B>,26C,D) (<S8\ %,Z*g
	$TRCBY=%,z=<Z 27>		
	A (<B>,27C,D) (<S` %(Z*G
	$TRIS==%(z<Z 23>		
	A (<B>,23C,D) (<SH5 %N
,r
	$TRLAK=%N*=<Z 62>		
	A (<B>,62C,D) (<SIZ %)B*N
	$TRLFT=%)b=<Z 24>		
	A (<B>,24C,D) (<SMw %Nr,y
	$TRLWN=%O=<Z 63>		
	A (<B>,63C,D) (<S
 %R)?
	$TRPP==%r<Z 13>		
	A (<B>,13C,D) (<S>7 %
)j
	$TRSYN=%*=<Z 13>		
	A (<B>,13C,D) (<S\S %#
*
	$TRURG=%#*=<Z 13>		
	A (<B>,13C,D) (<S\X %***T
	$TRURP=%*J=<Z 25>		
	A (<B>,25C,D) (<S{R %+*[
	$TRWND=%+2=<Z 26>		
	A (<B>,26C,D) (<S
  %@J,
	$TRXI==%@j<Z 42>		
	A (<B>,42C,D) (<S
%A2,
	$TRXP==%AR<Z 43>		
	A (<B>,43C,D) (<S
 %C,
	$TRXPD=%C"=<Z 43>		
	A (<B>,43C,D) (<S
 %Cb, 
	$TRXPI=%D=<Z 43>		
	A (<B>,43C,D) (<S
 %B,
	$TRXPN=%B:=<Z 43>		
	A (<B>,43C,D) (<SZ % j*
	$TSABT=%!
=<Z 13>		
	A (<B>,13C,D) (<S %
)R
	$TSAP==%*<Z 13>		
	A (<B>,13C,D) (<S.: %M",l
	$TSBYT=%MB=<Z 61>		
	A (<B>,61C,D) (<S8@ %'
*:
	$TSCB==%'*<Z 17>		
	A (<B>,17C,D) (<S< %Zj-X
	$TSCPK=%[
=<Z 166>		
	A (<B>,166C,D)(S<@ %:)E
	$TSCR==%Z<Z 13>		
	A (<B>,13C,D) (<S\ %j)8
	$TSEP==%
<Z 13>		
	A (<B>,13C,D) (<Sl %)2
	$TSFP==%"<Z 13>		
	A (<B>,13C,D) (<SIZ %#r*!
	$TSLFT=%$=<Z 14>		
	A (<B>,14C,D) (<SMQ %HB,F
	$TSLVC=%Hb=<Z 55>		
	A (<B>,55C,D) (<SMW %Gb,@
	$TSLVN=%H=<Z 55>		
	A (<B>,55C,D) (<S\Z %>+s
	$TSMRT=%>2=<Z 40>		
	A (<B>,40C,D) (<S^ %OZ,
	$TSMXB=%Oz=<Z 64>		
	A (<B>,64C,D) (<S^ %PB-
	$TSMXP=%Pb=<Z 65>		
	A (<B>,65C,D) (<S| %*)|
	$TSOPN=%J=<Z 13>		
	A (<B>,13C,D) (<S
Y % 
*
	$TSPRS=% *=<Z 13>		
	A (<B>,13C,D) (<S98 %$Z*'
	$TSSEQ=%$z=<Z 15>		
	A (<B>,15C,D) (<S=@ %!J*
	$TSSV==%!j<Z 13>		
	A (<B>,13C,D) (<S>7 %j)p
	$TSSYN=%
=<Z 13>		
	A (<B>,13C,D) (<SH: %*)d
	$TSTAT=%J=<Z 13>		
	A (<B>,13C,D) (<SK` %'r*A
	$TSTO==%(<Z 20>		
	A (<B>,20C,D) (<S[x %J)v
	$TSUOP=%j=<Z 13>		
	A (<B>,13C,D) (<S\S %"**
	$TSURG=%"J=<Z 13>		
	A (<B>,13C,D) (<S\X %%B*.
	$TSURP=%%b=<Z 16>		
	A (<B>,16C,D) (<S{R %&**4
	$TSWND=%&J=<Z 17>		
	A (<B>,17C,D) (<S%| %Vr-9
	$TTOPF=%W=<Z 67>		
	A (<B>,67C,D) (<S%|` %F,3
	$TTOS==%F:<Z 54>		
	A (<B>,54C,D) (<S&	 %TB-&
	$TTPDO=%Tb=<Z 67>		
	A (<B>,67C,D) (<S&y %U*-,
	$TTPOR=%UJ=<Z 67>		
	A (<B>,67C,D) (<S&z %V-3
	$TTPOU=%V2=<Z 67>		
	A (<B>,67C,D) (<S&K %E2,-
	$TTTL==%ER<Z 54>		
	A (<B>,54C,D) (<S&m %")L
	$TTVT==%B<Z 13>		
	A (<B>,13C,D) (<S6K %Jj,X
	$TVTL==%K
<Z 56>		
	A (<B>,56C,D) (<S=I %J)
	$TWLDN=%j=<Z 13>		
	A (<B>,13C,D) (<S=I %)+
	$TWLDP=%:=<Z 13>		
	A (<B>,13C,D) (<S=I %2)%
	$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 L8\e<<<A>&<BLX>>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