Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-sources/anadpy.unv
There is 1 other file named anadpy.unv in the archive. Click here to see a list.
x
,5}@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"\ *(XH
IFB  <A*'b>,<	LOCAL <PARAMS*'B>		>
IFNB <A>,<)bR	LOCAL <PARAMS,A+>	>
	LALL
DEFIN+ E LH<0(PARAMS)>
+@DEFINE LP<1(PARAM+`S)>
DEFINE FH<2(+PARAMS)>
DEFINE + FP<3(PARAMS)>
DE+@FINE JCN<4(PARAMS+`)>
DEFINE WILDOK+<5(PARAMS)>
DEFI+ NE FN<6(PARAMS)>
DEFINE ARG1<7(PA+`RAMS)>
DEFINE AR+	G2<10(PARAMS)>
	SALL
RAMS)>
	G"\ +	BXP
	PURGE L+	bH,LP,FH,FP,JCN,WI+
LDOK,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= :3^
	A==<-1:(B<C>+1B<C-D>> :H
	IF1,<IFDEF %A:h,<PRINTX ?A ALRE;ADY DEFINED>>
	D;(EFINE %A (OP,AC,;HY,MSK)<
	$A==<Z;h B>		
	OP (<AC>,B'Y,MSK)><AC>I6|R +$rZG	IF1 <IFDE+%F A,<PRINTX ? Mu+%0ltiply defined of+%Pfset in DEFWRD>>

; Make symbol +&printable or not +&0depending on if o+&Pverlaps AC's

	+&pA==:..OFST			; S+'et value as offse+'0t into table
	IF+'PB <B>,<..OFST==.+'p.OFST+1>	; Increm+(ent offset
	IFNB+(0 <B>,<..OFST==..+(POFST+B> ; Incrme+(pnt by buffer size
y buffer sizeI0@ 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@ )1"K


	IFN $AC)1BVNM,<JRST A>
	IFE $ACVNM,<RET>M&v({P M&v;ZP M.E|zP ~MHP MJm8Q  MPt(xP O'8 ,
2`S,/8<C>B1!<B>B5!<A>B35!<B
b|ZU0_C%wXu0	PO\,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 QJ&tQ xQJ&t 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 S]@ )
H@IFN KLFLG,<A>IFN KLFLG,SP )JH<IFN SMFLG,<A>IFN SMFLG,SpP  S"

L@Q S"@ )lBN^
	MOVEI C)l"X,2(A)
	ADDI CX)kb,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,)9ZA,B,C)
  OPTIO)9:N(I,NOP,,^D1,^D1,)FRA,B,C)
  OPTI)^2ON(I,LSR,C,^D3,^D)^P7,A,B,C)
  OP)^pTION(I,RRT,,^D7,^)_D7,A,B,C)
  O)_0PTION(I,SID,C,^D8)_P,^D4,A,B,C)
 )_p OPTION(I,SSR,,^D)`9,^D7,A,B,C)
)`0  OPTION(I,STY,C,)`P^D2,^D11,A,B,C)`p)

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

8,A,SSH[P W25I`P X:P  Y
e|P YmQ Yf
zP Y&'Q Y2Mj`P #Y2}<@Q Y:e<@P'Y> )#BJ0
	IFG $AC)#bVNM,<	$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 +<
_@

; The +<*following section+<H is the same amon+<hg all NCT's
.NCT+=B=:.			; Set add+=(ress of this NCT
	EXP	0		; Link w+=hord to next NCT i+>n list
				; (fi+>(lled in by MNTINI+>H)
NCTNUM==NCTNUM+>h+1		; Increment n+?umber of NCTS def+?(ined

	XWD	NT.T+?HYP,NT.DEV	; Proto+?hcal and device co+@des
	EXP	NT.NUM	+@(	; Net index
NT.+@HNUM==NT.NUM+1		; +@hincrement net ind+Aex
	EXP	-1		; In+A(ternet network nu+AHmber (not yet set+Ah)
	EXP	-1		; Int+Bernet Address of +B(this interface
	+BHEXP	0		; Logical +Bhhost mask for thi+Cs network
IFB  <+C(C>,<XWD 377777,-+CH1>	; Maximum pack+Chet size
IFNB <C+D>,<EXP C>		; Max+D(imum packet size


;NCP/AN20+Dh  MAKSAV  MACRO  +ECreates  an  inte+E(rrupt AC save and+EH dispatch
;routi+Ehne in the  curren+Ft  NCT  at  the  +F(current  location+FH.  Uses  The
;fo+Fhllowing  location+Gs  (which  theref+G(ore must be defin+GHed for that net
+Gh;type). The argum+Hent PDP is the ad+H(dress of a Push  +HHdown  pointer  fo+Hhr
;this routine.+I DISP is the offs+I(et of the dispatc+IHh address.

DEF+IhINE MAKSAV(PDP,DI+JSP)
<	MOVEM P,.N+J(CTB+NTSVAC+17	; +JHSave P
	MOVEI P,+Jh.NCTB+NTSVAC	; W+Khere the AC's go
	BLT P,.NCTB+NT+KHSVAC+16	; Save al+Khl
	MOVE P,PDP			+L; Set new P
	XMO+L(VEI P1,.NCTB		; +LHPoint to NCT
	CA+LhLL	@DISP(P1)		; A+Mnd Goto routine
+M(>					; End of MA+MHKSAV


;MAKRES+Mh  - Make a 3 word+N AC restore , dis+N(miss interrupt ro+NHutine. AC's
;are+Nh assumed stored  +Oat  NTSVAC.  Arg +O( PCW  is  the  ad+OHdress  of  the
;+Ohinterrupt PC.

+PDEFINE	MAKRES(PCW+P()
<	MOVSI P,.NCT+PHB+NTSVAC	; From +Phthere to 0
	BLT +QP,P				; Restore +Q(all AC's
	XJEN .+QHNCTB+PCW		; And +Qhdismiss the inter+Rrupt
>					; End+R( of MAKRES MACRO

IFE <<NT.TYP-N+RhT.NCP>!<NT.DEV-NT+S.ANX>>,<

	ANI=+S(=520		; Input dev+SHice address
	ANO+Sh==524		; Output s+Tide address

	C+T(ONSZ ANI,(T1)		; +THNTCNSZ - CONSZ In+Thput
	CONSO ANI,(+UT1)		; NTCNSO - C+U(ONSO Input
	CONO+UH ANI,(T1)		; NTCO+UhNO - CONO Input
+V	CONI ANI,T1		; N+V(TCONI - CONI Inpu+VHt
	DATAO ANI,T1	+Vh	; NTDATO - DATAO+W Input
	DATAI AN+W(I,T1		; NTDATI - +WHDATAI Input
	IFI+WhW!ANXINI		; NTINI+X  - Initializatio+X(n instruction
	I+XHFIW!ANXKIL		; NTK+XhILL - Shutdown in+Ystruction
	IFIW!+Y(ANXRSS		; NTRSRT +YH- Restart instruc+Yhtion
	IFIW!ANISR+ZT		; NTISRT - Sta+Z(rt input instruct+ZHion
	IFIW!ANOSRT+Zh		; NTOSRT - Star+[t output instruct+[(ion
	IFIW!IMPEIN+[H		; NTIDUN - Inpu+[ht done dispatch
+\	IFIW!IMODUN		; N+\(TODUN - Output do+\Hne dispatch
	IFI+\hW!IMPHDR		; NTLLD+]R - Make header i+](nstruction
	IFIW+]H!RSKP		; NTOTOK -+]h CLear packet for+^ output
	IFIW!R	+^(		; NTMAIN - Main+^Htainance
	IFIW!A+^hNXSCK		; NTSCHK -+_ Status check ins+_(truction
	BLOCK +_HNTOCNO-NTIB	; NTI+_hB through  NTOTYP+`
	CONO ANO,(T1)	+`(	; NTOCNO - CONO +`HOutput
	CONI ANO+`h,T1		; NTOCNI - C+aONI Output
	CONS+a(O ANO,(T1)		; NTO+aHCSO - CONSO Outpu+aht
	CONSZ ANO,(T1+b)		; NTOCSZ - CON+b(SZ Output
	DATAO+bH ANO,T1		; NTODTO+bh - DATAO Output
+c	DATAI ANO,T1		; +c(NTODTI - DATAI Ou+cHtput
	XPCW .+1		+ch; NTIINT - Interr+dupt instruction
+d(	BLOCK 2			; NTIP+dHCW - Inturrupt PC+dh storage
	EXP 0	+e		; NTINPC - New +e(flags (Input)
	X+eHWD MSEC1,.+1		;  +eh        New PC (I+fnput save)
	MAKS+f(AV (IMPPDP,NTIDSP+fH)	; NTIISV - 6 wo+fhrds of AC save ro+gutine
	MAKRES (N+g(TIPCW)		; NTIIRS +gH- 3 words of AC r+ghestore routine
	+hXPCW .+1	       	+h(; NTOINT - Interr+hHupt instruction
+hh	BLOCK 2			; NTOP+iCW - PC storage
+i(	EXP 0			; NTONPC+iH - New flags
	XW+ihD MSEC1,.+1		;   +j       New PC (Ou+j(tput Save)
	MAKS+jHAV (IMPPDP,NTODSP+jh)	; NTIOSV _ 6 wo+krds of AC Save
	+k(MAKRES (NTOPCW)		+kH; NTIORS   3 word+khs of AC restore
+l	BLOCK 20		; NTSV+l(AC - AC storage
+lH>				; End of NCP+lh/ANX conditional

IFN STANSW,<
; MEIS based Eth+mHernet (3 and 10MB+mh)

IFE <NT.DEV-+nNT.MEI>,<
	HALT	+n(		; CONSZ Input
+nH	HALT			; CONSO I+nhnput
	HALT			; C+oONO Input
	HALT	+o(		; CONI Input
	+oHHALT			; DATAO In+ohput
	HALT			; DA+pTAI Input
	IFIW!+p(ETHINI		; NTINI -+pH Initialization i+phnstruction
	IFIW+q!ETHOFF		; NTKILL+q( - Shutdown instr+qHuction
	IFIW!ETH+qhON		; NTRSRT - Re+rstart instruction+r(
	IFIW!R			; NTI+rHSRT - Start input+rh instruction
	IF+sIW!ETHOUT		; NTOS+s(RT - Start output+sH instruction
	IF+shIW!R			; NTIDUN -+t Input done dispa+t(tch
	IFIW!R			; +tHNTODUN - Output d+thone dispatch
	IF+uIW!R			; NTLLDR -+u( Make header inst+uHruction
	IFIW!ET+uhHOOK		; NTOTOK - +vClear packet for +v(output
	IFIW!R		+vH	; NTMAIN - Maint+vhainance
	IFIW!R	+w		; NTSCHK - Stat+w(us check instruct+wHion
	BLOCK	NTSVA+whC+17-NTIB	; Stora+xge
	>	
>;IFN STANSW

>;IFNST[^
_P	XWD MSEC1,.NCTAWD MSEC1[EyP [EIP [F98Q [FKyP [&uP 
[&vJP 
[.t= +,
[\	XALL			; +,*Show the lines te+,Hmporarily
NT.NUM+,h==0			; Start wit+-h Interface 0

+-(NCTNUM==0			; Sta+-Hrt out at zero
I+-hFE STANSW,<
NT.T+.YP==NT.NCP			; Ne+.(twork Type is NCP+.H
NT.DEV==NT.ANX	+.h		; Device type A+/N20
DV.NUM==0			+/(; Back to number +/H0
MAKNCT(\DV.NUM+/h,\NCTNUM,^D576)	;+0 Make that type N+0(CT
DV.NUM==DV.NU+0HM+1		; increment +0hnumber of that ty+1pe
>;IFE STANSW
IFN STANSW,<
;2+1HWe put the AN20 M+1hAKNCT macro in a +2"REPEAT ANXN" con+2(ditional so that
;we don't get a +2hspurious NCT defi+3ned if we don't h+3(ave an AN20.

N+3HT.TYP==NT.NCP			;+3h Network Type is +4NCP
NT.DEV==NT.A+4(NX			; Device typ+4He AN20
DV.NUM==0+4h			; Back to numb+5er 0
REPEAT ANXN+5(,<
MAKNCT(\DV.NU+5HM,\NCTNUM,^D576)	+5h; Make that type +6NCT
DV.NUM==DV.N+6(UM+1		; increment+6H number of that t+6hype
>;REPEAT ANX+7N
NT.TYP==NT.ETH+7(			; Network Type+7H (reset by MNETDV+7h at startup)
NT.+8DEV==NT.MEI			; D+8(evice type MEIS
+8HDV.NUM==0			; Sta+8hrt with number 0
REPEAT MEISN,<
+9(MAKNCT(\DV.NUM,\N+9HCTNUM,^D576)	; Ma+9hke that type NCT
DV.NUM==DV.NUM+1+:(		; increment num+:Hber of that type
>;REPEAT MEISN
+;>;IFN STANSW
	SA+;(LL			; Again supp+;Hress expansions
ss expansions
[/LY +xJ_L
..TMP==0+xj			; Start at NCT+y #0
REPEAT %NETS+y(,<
	MAKPTR(\..TM+yHP)
	..TMP==..TMP+1>
TMP==..TMP[/<: )*Id
	ROT T2,)J-^D9
	LSHC T1,^D27
	HRRI T1,A[;$86 +)2ZKCALL @A(P1)CALL @A(P[;%,Y +)rZOJRST @A(P1)JRST @A(P[;'z )bIvXCT A(P1)XCT A(P1)[>&98 *
2PSTLZ A,(-MAXSEQ)LZ A,(-M[Ne|P [b>z1P ]
>@P']Y Q x]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 )2bKG
	TXNN	B)2B,.NETCA		; Class )2"A network?
	7JRS)2T	[LOAD	A,NETCA,)7+B	; Get number
		 JRST	c]
	TX)7XNN	B,.NETCB		; C)7xlass B?
	 JRST	[)8LOAD	A,NETCB,+B)88
		 JRST	c]
	L)8XOAD	A,NETCC,+B	)8x	; Must be class C
c:!e class ]%{@P ]"YP ]2|;P ]?|P ]?&>7P ]Pr;1P ]Pt\P ]Pt(WP ]Pt:P ]Pt;ZP ]Pt]P ]PuY4P ]PuhxP ]Puj7P ]Pum7P ]Q
zP ]RiVP ]RP ]RP ]RlwP ]Rl}P ]R{TP ]R{WP ]R$P ]R$P ]R$]@P']R-\P ]R-hzP ]R.,SP ]R.JP ]R5L`P ]RExTP ]RExWP ]RF=P ]RF=P ]RF=P ]RL P 

]RLLxP 	]RMZP ]RMYP #]RM{P  ]RMj P ]RMlP ]RMlP ]RMxTP ]RMxWP ]RM|YP *]RM|{P ']RN{P ]RN7P ]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}lP &]R~{P %]R~)P ]R~<ZP ]R~KuP 
]R~N8P ]R~\P ]S*7P ]S:=P ]SN P ]S<ZP ]S:P ]SHtP ]SXWP ]Sh1P +]S%}:P ]S'Q x]SDKZP ]SF\P _,P _C%w )a2N
IFDIF <*'"C>,<C>,<	BOPT==)aRD	>
IFIDN <C>,<)arC>,<	BOPT==CPYOPT+D	>
==CPYOP`:P `H@ `L@ `P@ a0Q a<`Q xa%@Q a@Q aQ xa}@Q a\ Q aM`Q  ad|`Q a@Q a&<`Q xa&$`Q a&%Q xa&%pQ @a&5I`Q a&5pP#xa&F+Q a&FL@Q a&dN Q a&l`P$a&vKQ  a'@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? 

hpfG<^L<<A>&<-<A>>>><<A>&<a@(]YQa@,J`Qa@,M7Q a@,yQa@,|yQaa@-]QQ@a@.JHuP aJP aJsP aJ+QP aJ+zP aJ9zP aJK9P aJx5P aJ{sP aJ|<}P aK@Q aKD@Q aKEQ aN Q aN.Q xaOQ `aO} Q aOM`Q @aP )cN	.X==B
	)br		IRP C,<.X==.X+)c2PT%%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 )JIlHRLZI A,BHRLZI A,a^tK`Q xac Q c:/

zP e-i:P e.LtP e.LwP eKy )/"K
	IFLE $A)/BCVNM+$STVNM+$TMVN)/`M,<$IPMSG(\.,<?Ex)0tra RESTORE macro)0 >,\$ACVNM,\$STVNM)0@,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg )
I`HRLI A,BHRLI A,Bg&%|P Dg65I`P g;I8Q gO|P gR

:v )(bJX
	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,,$STVgRAgftVP gft92P gfv({P gfv;ZP iI\P'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 @iY:Q iYYQ iZQ iZ<Q iZYQ @i[Q  i[TQ @i[ZQ i\Q i\Q i\Q i\Q i\qQ  i\rQ  i\zQ @i\|Q  i]Q i]9Q  i]ZQ i]vQ i]zQ  i(t@ ?i(w@ >ilP i| *R6
  OPTION*
r(I,END,,^D0,^D1,*BA,B,C)
  OPTIO*bN(I,NOP,,^D1,^D1,*&A,B,C)
  OPTI*& ON(T,MSL,,^D2,^D4*&@,A,B,C)
  OPT*&`ION(T,LBL,,^D33,^D4,A,B,C)
^i$,`Q xi&< P'i,0P"i.-P i.MP 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&  '\2=c<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v )&BJB
	IFDEF )&bA,<$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	".)  ) bJ
	$INFO
	$INIT
	$INFO
	&tk` KA
B	&u )
I|
	DEFINE )$INFO(X,Y)<X
Y> 
$ACVNM==0
$STVN)@M==0
$TMVNM==0
=0
$TMVNM==0
	'\s )!"J


PRINTX B )!Bat 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 +"Z#
	XMOVEI +T1,A		; Process +
bto signal
  IFE +BB,<
	MOVE T3,TO+DCLK		; Now
	SKI+0PL T2,PRCWAK(T1)	+P; If no wakeup se+pt, NOW is ok
	 C+AMLE T2,T3		; If +0past due, queue
+P	  SKIPLE NSKED		+p; NOW is ok unles+s NOSKED
	   JRS+0T c		; No.  Get +Pin Q for FIFO beh+pavior
	PUSH P,PR+ OC		; Do it NOW
+ 0	MOVEM T3,PRCSGT(+ PT1)	; TODCLK of m+ post recent SIGNAL+!
	CALL TCPTSK		;+!0 Call the task
	+!PPOP P,PROC		; Res+!ptore our ID as ru+"nning process
	J+"0RST d		; All don+"Pe
c:	>	;IFE B

; Avoid stack +#overflow on KA, a+#0lways queue
	MOV+#PX T2,B		; Number+#p of milliseconds
	CALL SIGNAL
  +$0IFE B,<
d:  >

B,<
d:;> )+BJ\$STKL2(A)$STKL2(A)	O%;	 ),Jh
	$STKL3(),"A,\$STVNM)
	IFB),@ <B>,<$STVNM==$S),`TVNM+1>
	IFNB <)-B>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 )-BJv
	IFDEF )-bA,<$IPMSG(\.,<?ST).ACKL local A alr). eady defined>)>
).@	DEFINE A<^OB+1).`(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 +
Y"
	$BBLIP=+*=<Z 11>		
	A (<B>,11C,D) (<
m +jY
	$BCNT==+
<Z BFRCNT>		
	A+( (<B>,BFRCNTC,D)B>,BFRCNTC,
$ +
BXz
	$BDADR=+=<Z BFRDAD>		
	+ A (<B>,BFRDADC,D)B>,BFRDADC,
-{ +

rXk
	$BEOL==+G>		
	A+B>,BFRFLGC,D)B>,BFRFLGC,
6*| +BY
	$BFRKX=+b=<Z 10>		
	A (<B>,10C,D) (<
D +rY	
	$BHADR=+=<Z 6>		
	A (<B>,6C,D)A (<
L;Z +ZY
	$BICNT=+z=<Z 7>		
	A (<B>,7C,D)A (<
LN +JYV
	$BIDX==+j<Z 13>		
	A (<B>,13C,D) (<
n3 +jY(
	$BMPAG=+
=<Z 11>		
	A (<B>,11C,D) (<L@ +RY1
	$BPTR==+r<Z BFRPTR>		
	A+ (<B>,BFRPTRC,D)B>,BFRPTRC,LP +bYJ
	$BPTRA=+=<Z BFRPTR>		
	+ A (<B>,BFRPTRC,D)B>,BFRPTRC,LX +ZY9
	$BPTRP=+z=<Z BFRPTR>		
	+A (<B>,BFRPTRC,D)B>,BFRPTRC,LY +bYB
	$BPTRS=+=<Z BFRPTR>		
	+ A (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ +jYP
	$BTCB==+
<Z 13>		
	A (<B>,13C,D) (<&0 +2Y]
	$BTS==<+RZ 14>		
	A (<B>,14C,D) (<B.3 +"Y
	$BUPAG=+B=<Z 10>		
	A (<B>,10C,D) (<.)` +jXb
	$BURG==+

<Z BFRFLG>		
	A+

(X(<B>,BFRFLGC,D)B>,BFRFLGC,=P +
	$BWM==<+Z BFRFLG>		
	A +8(<B>,BFRFLGC,D)B>,BFRFLGC,Dl:y *
Pj
	$CMCKS=*
	A (<B>,0C,D)A (<l;r *

"Pd
	$CMCOD=*

B=<Z 0>		
	A (<B>,0C,D)A (<l}p **Q
	$CMGWA=*J=<Z 1>		
	A(<B>,1C,D)A (<m *
	$CMID==*<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=*b=<Z 1>		
	A (<B>,1C,D)A (<n98 *ZPw
	$CMSEQ=*z=<Z 1>		
	A (<B>,1C,D)A (<nLw *Q
	$CMTSO=*2=<Z 2>		
	A (<B>,2C,D)A (<nLy *zQ
	$CMTSR=*=<Z 3>		
	A (<B>,3C,D)A (<nLz *bQ
	$CMTST=*=<Z 4>		
	A (<B>,4C,D)A (<nN8 *:P]
	$CMTYP=*Z=<Z 0>		
	A (<B>,0C,D)A (<&0 )fN4
	$DDS==<)f"Z PPBFSZ+1>		
	)f@A (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 )crN#
	$DFLAG=)d=<Z PPBFSZ+0>		
)d2	A (<B>,PPBFSZ+0C,D),PPBFSZ+= )h
ND
	$DPKTP=)h*=<Z PPBFSZ+3>		
)hH	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ )iNM
	$DPTRC=)i2=<Z PPBFSZ+4>		
)iP	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 )eN,
	$DSS==<)e"Z PPBFSZ+1>		
	)e@A (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 )gN<
	$DTIME=)g"=<Z PPBFSZ+2>		
)g@	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 *Q2
	$GWHIS=*"=<Z 0>		
	A (<B>,0C,D)A (<=z *JQ>
	$GWICT=*j=<Z 0>		
	A (<B>,0C,D)A (<>
8 *2Q%
	$GWPIP=*R=<Z 0>		
	A (<B>,0C,D)A (<>< *jQ8
	$GWSPC=*
=<Z 0>		
	A (<B>,0C,D)A (<>N8 *Q+
	$GWTYP=*:=<Z 0>		
	A (<B>,0C,D)A (<>\ *JQ
	$GWUP==*j<Z 0>		
	A (<B>,0C,D)A (<B"D;Z )IM
	$HHCNT=):=<Z .NBHHL>		
	)XA (<B>,.NBHHLC,D)B>,.NBHHLC,#Mh ,B`0
	$HRDW0=,b=<Z NTHST0>		
	,A (<B>,NTHST0C,D)B>,NTHST0C,#Mh ,B`8
	$HRDW1=,b=<Z NTHST1>		
	,A (<B>,NTHST1C,D)B>,NTHST1C,#\ *	RPO
	$HSMPL=*	r=<Z 1>		
	A (<B>,1C,D)A (<#J2 ,"`
	$HSTIDX,B==<Z HOSTN>		
	,`A (<B>,HOSTNC,D)B>,HOSTNC,#KV ,*`
	$HSTNMP,J==<Z HOSTN>		
	,hA (<B>,HOSTNC,D)B>,HOSTNC,#%} *jPH
	$HTOTL=*	
=<Z 0>		
	A (<B>,0C,D)A (<&
  +|:_e
	$IAHI==+|Z<Z 0>		
	A (<B>,0C,D)A (<B&

z +}"_l
	$IAHST=+}B=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=+~"=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=+b=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=+=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=+{r=<Z 0>		
	A (<B>,0C,D)A (<&D )RI	
	$IHADR=)r=<Z .NBLD1>		
	)A (<B>,.NBLD1C,D)B>,.NBLD1C,&Dm )
:HW
	$IHFTY=)
Z=<Z .NBLD0>		
	)
xA (<B>,.NBLD0C,D)B>,.NBLD0C,&E

z )ZI
	$IHHST=)z=<Z .NBLD1>		
	)A)(<B>,.NBLD1C,D)B>,.NBLD1C,&E
	$IHHT2=)b=<Z .NBLD0>		
	)A)(<B>,.NBLD0C,D)B>,.NBLD0C,&E
	$IHHTY=)j=<Z .NBLD1>		
	)A (<B>,.NBLD1C,D)B>,.NBLD1C,&E8 )bI
	$IHIMP=)=<Z .NBLD1>		
	) A (<B>,.NBLD1C,D)B>,.NBLD1C,&EI )

BHh
	$IHLDF=)

b=<Z .NBLD0>		
	)(<B>,.NBLD0C,D)B>,.NBLD0C,&EI7 )zI;
	$IHLEN=)=<Z .NBLD2>		
	)8A (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU )bI"
	$IHLNK=)=<Z .NBLD1>		
	) A (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) )jI*
	$IHMI2=)
=<Z .NBLD2>		
	)(A(<B>,.NBLD2C,D)B>,.NBLD2C,&E] )
	$IHMTY=)D0>		
	)A (<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: )BH`
	$IHNET=)b=<Z .NBLD0>		
	)

A (<B>,.NBLD0C,D)B>,.NBLD0C,&F	 )zIC
	$IHPD1=)=<Z .NBLD2>		
	)8A (<B>,.NBLD2C,D)B>,.NBLD2C,&F= )rI3
	$IHSTY=)=<Z .NBLD2>		
	)0A (<B>,.NBLD2C,D)B>,.NBLD2C,&v

 )*I^
	$INPPR=)J=<Z .INPRO>		
	)hA)(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR=)B=<Z .INVER>		
	)`A (<B>,.INVERC,D)B>,.INVERC,&vKZ )3
K
	$INTNUM)3*==<Z >		
	A (<B>,C,D)A (<2;Z *:P5
	$LCCNT=*Z=<Z 3>		
	A (<B>,3C,D)A (<2LN *jP(
	$LIDX==*
<Z 1>		
	A (<B>,1C,D)A (<B2ezy *RP/
	$LLOKR=*r=<Z 2>		
	A (<B>,2C,D)A (<2uJy *PB
	$LNLKR=*"=<Z 4>		
	A (<B>,4C,D)A (<2}Jy *"P<
	$LOLKR=*B=<Z 4>		
	A (<B>,4C,D)A (<3=|R *P"
	$LWORD=*"=<Z 0>		
	A (<B>,0C,D)A (<:,} )	2HO
	$NBBSZ=)	R=<Z .NBHDR>		
	)	pA (<B>,.NBHDRC,D)B>,.NBHDRC,:2 )2HG
	$NBQUE=)R=<Z .NBHDR>		
	)pA (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp )4bK(
	$NETCA=)5=<Z 0>		
	A (<B>,0C,D)A (<:.Hq )5RK/
	$NETCB=)5r=<Z 0>		
	A (<B>,0C,D)A (<:.Hq )6:K5
	$NETCC=)6Z=<Z 0>		
	A (<B>,0C,D)A (<:.Hv )3rK!
	$NETCLS)4==<Z 0>		
	A (<B>,0C,D)A (<;$I; ,z`!
	$NTDEV=,=<Z 1>		
	A (<B>,1C,D)A (<;%KU ,2`
	$NTLNK=,R=<Z 0>		
	A (<B>,0C,D)A (<;%m6 ,Z`'
	$NTNUM=,z=<Z 2>		
	A (<B>,2C,D)A (<;&N8 ,`
	$NTTYP=,:=<Z 1>		
	A (<B>,1C,D)A (<B

:` *JQ~
	$PACK==*j<Z 3>		
	A (<B>,3C,D)A (<BB

:y *BQ^
	$PACKS=*b=<Z 2>		
	A (<B>,2C,D)A (<BK **Qd
	$PCTL==*J<Z 3>		
	A (<B>,3C,D)A (<BB$= )D"L$
	$PDCT==)DB<Z 5>		
	A (<B>,5C,D)A (<BB& *rQQ
	$PDP==<*Z 0>		
	A (<B>,0C,D)A (<B>B-{ * 2R
	$PEOL==* R<Z 3>		
	A (<B>,3C,D)A (<BB.98 )ErL1
	$PESEQ=)F=<Z 7>		
	A (<B>,7C,D)A (<B5@ *"jR
	$PFIN==*#
<Z 3>		
	A (<B>,3C,D)A (<BB5Iy ):BKV
	$PFLGS=):b=<Z 1>		
	A (<B>,1C,D)A (<B6:= )<zKi
	$PFSIZ=)==<Z 1>		
	A (<B>,1C,D)A (<BL:y )ZBMZ
	$PICKS=)Zb=<Z PKTELI+.IPKPR)[>		
	A (<B>,PK)[ TELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ )T
M&
	$PIDF==)T*<Z PKTELI+.IPKSG>)TH		
	A (<B>,PKT)ThELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ )]Mo
	$PIDH==)]2<Z PKTELI+.IPKDH>)]P		
	A (<B>,PKT)]pELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` )H"LH
	$PIDO==)HB<Z PKTELI+.IPKVR>)H`		
	A (<B>,PKT)IELI+.IPKVRC,D)LI+.IPKVRC,D)BLk )RbM
	$PIFLG=)S=<Z PKTELI+.IPKSG)S >		
	A (<B>,PK)S@TELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` )VJM:
	$PIFO==)Vj<Z PKTELI+.IPKSG>)W		
	A (<B>,PKT)W(ELI+.IPKSGC,D)LI+.IPKSGC,D)BM

V )NjL|
	$PIHRL=)O
=<Z PKTELI+.IPKVR)O(>		
	A (<B>,PK)OHTELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR=)Mb=<Z PKTELI+.IPKVR)N>		
	A (<B>,PK)N TELI+.IPKVRC,D)LI+.IPKVRC,D)BMI )LLg
	$PILDY=)L:=<Z PKTELI+.IPKVR)LX>		
	A (<B>,PK)LxTELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ )U*M0
	$PIMF==)UJ<Z PKTELI+.IPKSG>)Uh		
	A (<B>,PKT)VELI+.IPKSGC,D)LI+.IPKSGC,D)BMm )<Kc
	$PINTL=)<2=<Z 1>		
	A (<B>,1C,D)A (<BN )PM
	$PIPL==)P2<Z PKTELI+.IPKVR>)PP		
	A (<B>,PKT)PpELI+.IPKVRC,D)LI+.IPKVRC,D)BN

Q )JrL]
	$PIPRC=)K=<Z PKTELI+.IPKVR)K0>		
	A (<B>,PK)KPTELI+.IPKVRC,D)LI+.IPKVRC,D)BN

W )YMO
	$PIPRO=)Y:=<Z PKTELI+.IPKPR)YX>		
	A (<B>,PK)YxTELI+.IPKPRC,D)LI+.IPKPRC,D)BN: )[jMd
	$PISH==)\
<Z PKTELI+.IPKSH>)\(		
	A (<B>,PKT)\HELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 )Q:M
	$PISID=)QZ=<Z PKTELI+.IPKSG)Qx>		
	A (<B>,PK)RTELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy )IJLR
	$PITOS=)Ij=<Z PKTELI+.IPKVR)J>		
	A (<B>,PK)J(TELI+.IPKVRC,D)LI+.IPKVRC,D)BNM )WrME
	$PITTL=)X=<Z PKTELI+.IPKPR)X0>		
	A (<B>,PK)XPTELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 )FzL=
	$PIVER=)G=<Z PKTELI+.IPKVR)G8>		
	A (<B>,PK)GXTELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; )AL

	$PLCLO=)A"=<Z 1>		
	A (<B>,1C,D)A (<BuHv )?2K}
	$PNLCL=)?R=<Z 1>		
	A (<B>,1C,D)A (<C+s );*K\
	$PPROG=);J=<Z 1>		
	A (<B>,1C,D)A (<C= *!R
	$PRST==*!:<Z 3>		
	A (<B>,3C,D)A (<BC	 )=bKp
	$PRXD==)><Z 1>		
	A (<B>,1C,D)A (<BC
  )C:L
	$PRXI==)CZ<Z 4>		
	A (<B>,4C,D)A (<BC<@ )>JKv
	$PSCR==)>j<Z 1>		
	A (<B>,1C,D)A (<BC\  *ZQW
	$PSEQ==*z<Z 1>		
	A (<B>,1C,D)A (<BC *
QJ
	$PSP==<**Z 0>		
	A (<B>,0C,D)A (<B>C+z )@L
	$PSROU=)@:=<Z 1>		
	A (<B>,1C,D)A (<C@ *"R
	$PSYN==*""<Z 3>		
	A (<B>,3C,D)A (<BC$:y *$:R%
	$PTCKS=*$Z=<Z 4>		
	A (<B>,4C,D)A (<C$= *zQq
	$PTCTL=*=<Z 3>		
	A (<B>,3C,D)A (<C$K` *Qk
	$PTDO==*2<Z 3>		
	A (<B>,3C,D)A (<BC$p )AjL
	$PTG==<)B
Z 2>		
	A (<B>,2C,D)A (<B>C&0 )E
L*
	$PTS==<)E*Z 6>		
	A (<B>,6C,D)A (<B>C&m +:X'
	$PTVT==+Z<Z TTNETW>		
	A+x (<B>,TTNETWC,D)B>,TTNETWC,C.)` *bQx
	$PURG==*<Z 3>		
	A (<B>,3C,D)A (<BC.)x *%"R,
	$PURGP=*%B=<Z 4>		
	A (<B>,4C,D)A (<C=i *#RR
	$PWNDO=*#r=<Z 3>		
	A (<B>,3C,D)A (<CF@ )BRL
	$PXT==<)BrZ 3>		
	A (<B>,3C,D)A (<B>Ft^ )lbNh
	$QNEXT=)m=<Z 0>		
	A (<B>,0C,D)A (<G); *P
	$QPREV=*:=<Z 0>		
	A (<B>,0C,D)A (<R

- *bV
	$TABTFX*b2==<Z 54>		
	A (<B>,54C,D) (RHL +BX
	$TCDB8=+b=<Z 170>		
	A (<B>,170C,D)(RH{ *ZW
	$TCDCW=*z=<Z 170>		
	A (<B>,170C,D)(RIY *zWR
	$TCDFS=*z"=<Z 170>		
	A (<B>,170C,D)(RIr *|:We
	$TCDGE=*|Z=<Z 170>		
	A (<B>,170C,D)(RIw *{RW_
	$TCDGN=*{r=<Z 170>		
	A (<B>,170C,D)(RJ *yWK
	$TCDHT=*y:=<Z 170>		
	A (<B>,170C,D)(RJ1 *~rWy
	$TCDIB=*=<Z 170>		
	A (<B>,170C,D)(RKq *~
Wr
	$TCDOB=*~*=<Z 170>		
	A (<B>,170C,D)(RKx +*X


	$TCDOQ=+J=<Z 170>		
	A (<B>,170C,D)(RK{ *zjWX
	$TCDOW=*{
=<Z 170>		
	A (<B>,170C,D)(RL *}"Wl
	$TCDPS=*}B=<Z 170>		
	A (<B>,170C,D)(RL +X
	$TCDPU=+2=<Z 170>		
	A (<B>,170C,D)(RM9 +zX
	$TCDUR=+=<Z 170>		
	A (<B>,170C,D)(RMz *x2WE
	$TCDWT=*xR=<Z 170>		
	A (<B>,170C,D)(RHY *t:W%
	$TCTBS=*tZ=<Z 165>		
	A (<B>,165C,D)(RLx *uW+
	$TCTSQ=*u:=<Z 165>		
	A (<B>,165C,D)(R$X` *6bS8
	$TDEC==*7<Z 13>		
	A (<B>,13C,D) (<R.(S *rrW
	$TERBF=*s=<Z 164>		
	A (<B>,164C,D)(R.*W *sRW
	$TERJN=*sr=<Z 164>		
	A (<B>,164C,D)(R.,@ *-zRq
	$TERR==*.<Z 13>		
	A (<B>,13C,D) (<R.,S *WbU@
	$TERRF=*X=<Z 37>		
	A (<B>,37C,D) (<R.,Z *6S2
	$TERRT=*6"=<Z 13>		
	A (<B>,13C,D) (<R5 *)rRQ
	$TFH==<**Z 7>		
	A (<B>,7C,D)A (<B>R5` **ZRW
	$TFHC==**z<Z 7>		
	A (<B>,7C,D)A (<BR6 *,*Rd
	$TFP==<*,JZ 11>		
	A (<B>,11C,D) (<BRLi *_bV
	$TIFDF=*`=<Z 54>		
	A (<B>,54C,D) (<RM| *nrVy
	$TIOPF=*o=<Z 66>		
	A (<B>,66C,D) (<RN	 *lBVf
	$TIPDO=*lb=<Z 66>		
	A (<B>,66C,D) (<RNy *m*Vl
	$TIPOR=*mJ=<Z 66>		
	A (<B>,66C,D) (<RNz *nVs
	$TIPOU=*n2=<Z 66>		
	A (<B>,66C,D) (<RT;@ *)RJ
	$TJCN==*)*<Z 6>		
	A (<B>,6C,D)A (<BRTk@ +ZX
	$TJFN==+z<Z 170>		
	A (<B>,170C,D)(<Re *+BR^
	$TLH==<*+bZ 10>		
	A (<B>,10C,D) (<BRf *-Rk
	$TLP==<*-2Z 12>		
	A (<B>,12C,D) (<BRmlZ *ZUS
	$TMNRT=*Z2=<Z 40>		
	A (<B>,40C,D) (<Ro

Z *ZzUY
	$TMXRT=*[=<Z 41>		
	A (<B>,41C,D) (<RvYV *e"V,
	$TNUFM=*eB=<Z 56>		
	A (<B>,56C,D) (<R|lU *XBUF
	$TOFRK=*Xb=<Z 37>		
	A (<B>,37C,D) (<R~	T *fjV8
	$TOPFH=*g
=<Z 57>		
	A (<B>,57C,D) (<R~	X *dBV&
	$TOPFP=*db=<Z 56>		
	A (<B>,56C,D) (<R~ *gRV?
	$TOPLH=*gr=<Z 60>		
	A (<B>,60C,D) (<R~S *VzU9
	$TOPNF=*W=<Z 37>		
	A (<B>,37C,D) (<R~{Y *("RD
	$TOWNR=*(B=<Z 6>		
	A (<B>,6C,D)A (<Sp *OZU
	$TPICA=*Oz=<Z TCBPIC>		
	*PA (<B>,TCBPICC,D)B>,TCBPICC,Sr *MZTq
	$TPICE=*Mz=<Z TCBPIC>		
	*NA (<B>,TCBPICC,D)B>,TCBPICC,Sy *KRTa
	$TPICR=*Kr=<Z TCBPIC>		
	*LA (<B>,TCBPICC,D)B>,TCBPICC,Sy *LZTi
	$TPICS=*Lz=<Z TCBPIC>		
	*MA (<B>,TCBPICC,D)B>,TCBPICC,Sz *JJTX
	$TPICU=*Jj=<Z TCBPIC>		
	*KA (<B>,TCBPICC,D)B>,TCBPICC,S| *NZTy
	$TPICX=*Nz=<Z TCBPIC>		
	*OA (<B>,TCBPICC,D)B>,TCBPICC,SP *UrU3
	$TPIFA=*V=<Z TCBPIF+2>		
*V0	A (<B>,TCBPIF+2C,D),TCBPIF+SR *SjU"
	$TPIFE=*T
=<Z TCBPIF+1>		
*T(	A (<B>,TCBPIF+1C,D),TCBPIF+SY *QbU
	$TPIFR=*R=<Z TCBPIF+0>		
*R 	A (<B>,TCBPIF+0C,D),TCBPIF+SY *RjU
	$TPIFS=*S
=<Z TCBPIF+1>		
*S(	A (<B>,TCBPIF+1C,D),TCBPIF+SZ *PbU

	$TPIFU=*Q=<Z TCBPIF+0>		
*Q 	A (<B>,TCBPIF+0C,D),TCBPIF+S\ *TrU+
	$TPIFX=*U=<Z TCBPIF+2>		
*U0	A (<B>,TCBPIF+2C,D),TCBPIF+S,h *vjW8
	$TPRS1=*w
=<Z 167>		
	A (<B>,167C,D)(S,i *wJW>
	$TPRS2=*wj=<Z 167>		
	A (<B>,167C,D)(S:1 *IBTP
	$TPSIC=*Ib=<Z TCBPIC>		
	*JA (<B>,TCBPICC,D)B>,TCBPICC,S,` *HZTG
	$TRBS==*Hz<Z 30>		
	A (<B>,30C,D) (<S8@ *G
T:
	$TRCB==*G*<Z 26>		
	A (<B>,26C,D) (<S8\ *GrTA
	$TRCBY=*H=<Z 27>		
	A (<B>,27C,D) (<S` *CrT!
	$TRIS==*D<Z 23>		
	A (<B>,23C,D) (<SH5 *i"VL
	$TRLAK=*iB=<Z 62>		
	A (<B>,62C,D) (<SIZ *DZT'
	$TRLFT=*Dz=<Z 24>		
	A (<B>,24C,D) (<SMw *j
VR
	$TRLWN=*j*=<Z 63>		
	A (<B>,63C,D) (<S

 *2jS
	$TRPP==*3
<Z 13>		
	A (<B>,13C,D) (<S>7 *8"SD
	$TRSYN=*8B=<Z 13>		
	A (<B>,13C,D) (<S\S *>"St
	$TRURG=*>B=<Z 13>		
	A (<B>,13C,D) (<S\X *EBT.
	$TRURP=*Eb=<Z 25>		
	A (<B>,25C,D) (<S{R *F*T4
	$TRWND=*FJ=<Z 26>		
	A (<B>,26C,D) (<S
  *[bU`
	$TRXI==*\<Z 42>		
	A (<B>,42C,D) (<S

 *\JUf
	$TRXP==*\j<Z 43>		
	A (<B>,43C,D) (<S

 *^Us
	$TRXPD=*^:=<Z 43>		
	A (<B>,43C,D) (<S

 *^zUy
	$TRXPI=*_=<Z 43>		
	A (<B>,43C,D) (<S

 *]2Um
	$TRXPN=*]R=<Z 43>		
	A (<B>,43C,D) (<SZ *<Sb
	$TSABT=*<"=<Z 13>		
	A (<B>,13C,D) (<S *5"S,
	$TSAP==*5B<Z 13>		
	A (<B>,13C,D) (<S.: *h:VE
	$TSBYT=*hZ=<Z 61>		
	A (<B>,61C,D) (<S8@ *B"T
	$TSCB==*BB<Z 17>		
	A (<B>,17C,D) (<S< *vW2
	$TSCPK=*v"=<Z 166>		
	A (<B>,166C,D)(S<@ *3RS
	$TSCR==*3r<Z 13>		
	A (<B>,13C,D) (<S\ *2S
	$TSEP==*2"<Z 13>		
	A (<B>,13C,D) (<Sl *1S
	$TSFP==*1:<Z 13>		
	A (<B>,13C,D) (<SIZ *?
Sz
	$TSLFT=*?*=<Z 14>		
	A (<B>,14C,D) (<SMQ *cZV
	$TSLVC=*cz=<Z 55>		
	A (<B>,55C,D) (<SMW *bzV
	$TSLVN=*c=<Z 55>		
	A (<B>,55C,D) (<S\Z *Y*UL
	$TSMRT=*YJ=<Z 40>		
	A (<B>,40C,D) (<S^ *jrVY
	$TSMXB=*k=<Z 64>		
	A (<B>,64C,D) (<S^ *kZV_
	$TSMXP=*kz=<Z 65>		
	A (<B>,65C,D) (<S| *:BSV
	$TSOPN=*:b=<Z 13>		
	A (<B>,13C,D) (<S

Y *;"S\
	$TSPRS=*;B=<Z 13>		
	A (<B>,13C,D) (<S98 *?rT
	$TSSEQ=*@=<Z 15>		
	A (<B>,15C,D) (<S=@ *<bSh
	$TSSV==*=<Z 13>		
	A (<B>,13C,D) (<S>7 *9SJ
	$TSSYN=*9"=<Z 13>		
	A (<B>,13C,D) (<SH: *7BS>
	$TSTAT=*7b=<Z 13>		
	A (<B>,13C,D) (<SK` *C
T
	$TSTO==*C*<Z 20>		
	A (<B>,20C,D) (<S[x *9bSP
	$TSUOP=*:=<Z 13>		
	A (<B>,13C,D) (<S\S *=BSn
	$TSURG=*=b=<Z 13>		
	A (<B>,13C,D) (<S\X *@ZT
	$TSURP=*@z=<Z 16>		
	A (<B>,16C,D) (<S{R *ABT
	$TSWND=*Ab=<Z 17>		
	A (<B>,17C,D) (<S%| *r
W
	$TTOPF=*r*=<Z 67>		
	A(<B>,67C,D) (<S%|` *a2V
	$TTOS==*aR<Z 54>		
	A (<B>,54C,D) (<S&	 *oZV
	$TTPDO=*oz=<Z 67>		
	A (<B>,67C,D) (<S&y *pBW
	$TTPOR=*pb=<Z 67>		
	A (<B>,67C,D) (<S&z *q*W


	$TTPOU=*qJ=<Z 67>		
	A (<B>,67C,D) (<S&K *`JV
	$TTTL==*`j<Z 54>		
	A (<B>,54C,D) (<S&m *4:S%
	$TTVT==*4Z<Z 13>		
	A (<B>,13C,D) (<S6K *fV2
	$TVTL==*f"<Z 56>		
	A (<B>,56C,D) (<S=I *.bRx
	$TWLDN=*/=<Z 13>		
	A (<B>,13C,D) (<S=I *02S
	$TWLDP=*0R=<Z 13>		
	A (<B>,13C,D) (<S=I */JR~
	$TWLDT=*/j=<Z 13>		
	A (<B>,13C,D) (<:|lzP P DVP 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 :;ZP :MhP :	P :
P :IP :IP.:I	P:P K%,z h96E<<<A>&<BhX>>B<^D70-POS(B)>><^D70-POS(B)>N)VP RPP RQP RSP RTP RWP RYP RyP R	TP R	VP R	XP R
8P RP RP RxP R{P RF)P RF-8P `Q A>}{woP