PDP-10 Archive: t20sub/anaunv.unv from bb-l014y-bm_tops20_v7_0_tsu02_1_of

Trailing-Edge - PDP-10 Archives - bb-l014y-bm_tops20_v7_0_tsu02_1_of_2 - t20sub/anaunv.unv

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

x
,U@P C;BP (C;BP ,E
eQ xEv@Q E

L@QE}@Q:E@E;ZP EH2P E]4P EkP E>Q xE|P E

L@Q E&mQ E&'P'E7`P'EC& Q EC&( P'EC&,Q ~EC&,`Q |ER Q xESQ EW`P'EWpQ  E^hQ G"\ "ir!!
IFB  <A#.b>,<	LOCAL <PARAMS#/>		>
IFNB <A>,<#/"	LOCAL <PARAMS,A$>	>
	LALL
DEFIN$8E LH<0(PARAMS)>
$XDEFINE LP<1(PARAM$xS)>
DEFINE FH<2($PARAMS)>
DEFINE $8FP<3(PARAMS)>
DE$XFINE JCN<4(PARAMS$x)>
DEFINE WILDOK$<5(PARAMS)>
DEFI$8NE FN<6(PARAMS)>
DEFINE ARG1<7(PA$xRAMS)>
DEFINE AR$G2<10(PARAMS)>
	SALL
RAMS)>
	G"\ $Z!)
	PURGE L$zH,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=  
	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#>	IF1 <IFDE$/JF A,<PRINTX ? Mu$/
ltiply defined of$/*fset in DEFWRD>>

;Make symbol p$5*rintable or not d$5Hepending on if ov$5herlaps AC's

	$6A==:..OFST			;Set$6( value as offset $6Hinto table
	IFB $6h<B>,<..OFST==..O$7FST+1>	;Increment$7( offset
	IFNB <$7HB>,<..OFST==..OFS$7hT+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@ "7Z?
	IFN $AC"7zVNM,<JRST A>
	IFE $ACVNM,<RET>M&v({P M&v;ZP M.E|zP ~MHP MJm8Q  MPt(xP O ,XQ @O ,K1Q  O'8 "bv%?x<C>B1!<B>B5!<A>B35!<B
,H0PR <.*v0ERO\,8P O\,M6P O\-

zP O\.

VP O^<}P O^E`Q ?@O^L=P'O_Q  O_`Q 8O_'Q O_.Q @Q"mQ Q'L}P Q2&,}P QNnQ QO$yP QO%P'QO%\uQ QO%iP'QO%j1Q @QO%k8Q xQO&MQ xQR~KQ QSHZP @QSH[XP SEQ ~SF=Q ~SM\P!Se}`P SmP!St]Q |ShYP ShY1P ShY9P ShZ8P ShZ9P Sh\P Sh\RP Sh\xP Sh]P Sh]P Sh]P SpP  S"

L@Q S"@ "sb
	MOVEI C"sBX,2(A)
	ADDI CX"s,0(B)
	AOS 0(CX)B)
	AOS 0(CXS"6N Q @S"F=Q |S"FD@P S"FN Q xS"M\Q S"dI@P!pS"d[@Q ?pS"ej`P S"m@Q xS"nN P xS"t]Q ?`S#D P S#N Q @S2&,}P S78tP S7
8Q @S;

@Q ?`S;l@Q xS;%KUP MS;%m6Q xSB~
  OPTION"?r(I,END,,^D0,^D1,"@2A,B,C)
  OPTIO"@RN(I,NOP,,^D1,^D1,"MrA,B,C)
  OPTI"eRON(I,LSR,C,^D3,^D"ep7,A,B,C)
  OP"fTION(I,RRT,,^D7,^"f0D7,A,B,C)
  O"fPPTION(I,SID,C,^D8"fp,^D4,A,B,C)
 "g OPTION(I,SSR,,^D"g09,^D7,A,B,C)
"gP  OPTION(I,STY,C,"gp^D2,^D11,A,B,C"h)

  OPTION(I,T"h0SP,,^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> "$z;
	IFG $AC"%VNM,<	$IPMSG(\.,<"%8?LOCAL: Missing R"%XESTORE>,\$ACVNM)
			$ACVNM==0>
	"&IRP A,<	IFGE $AC"&8VNM-NLOCLS,<$IPMS"&XG(\.,<?Too many L"&xOCALs>)>
			$DFA"'CL(A,\<$ACVNM>)
			$ACVNM==$ACVNM+1>CVNM==$ACVNY><}P Y>e<@Q xYO|P AY^~)Q []hz $OJ*`

;The f$Ojollowing section $Pis the same among$P( all NCT's
.NCT$PHB=:.			;Set addre$Phss of this NCT
	$QEXP	0		;Link word$Q( to next NCT in l$QHist
				;(filled$Qh in by MNTINI)
N$RCTNUM==NCTNUM+1		$R(;Increment number$RH of NCTS defined

	XWD	NT.TYP,NT$S.DEV	;Protocal an$S(d device codes
	$SHEXP	NT.NUM		;Net $Shindex
NT.NUM==NT$T.NUM+1		;incremen$T(t net index
	EXP$TH	-1		;Internet ne$Thtwork number (not$U yet set)
	EXP	-$U(1		;Internet Addr$UHess of this inter$Uhface
	EXP	0		;Lo$Vgical host mask f$V(or this network
$VHIFB  <C>,<XWD 37$Vh7777,-1>	;Maximum$W packet size
IFN$W(B <C>,<EXP C>		$WH;Maximum packet s$Whize


;NCP/$XAN20  MAKSAV  MAC$X(RO  Creates  an  $XHinterrupt  AC  sa$Xhve and dispatch
$Y;routine in the c$Y(urrent NCT at the$YH current location$Yh. Uses The follow$Zing
;locations ($Z(which therefore m$ZHust be defined fo$Zhr  that  net  typ$[e).  The
;argume$[(nt  PDP  is the a$[Hddress of a Push $[hdown pointer for $\this routine.
;D$\(ISP is the offset$\H of the dispatch $\haddress.

DEFIN$]E MAKSAV(PDP,DISP$]()
<	MOVEM P,.NCT$]HB+NTSVAC+17	;Sav$]he P
	MOVEI P,.NC$^TB+NTSVAC	;Where$^( the AC's go
	BL$^HT P,.NCTB+NTSVAC$^h+16	;Save all
	M$_OVE P,PDP			;Set $_(new P
	XMOVEI P1$_H,.NCTB		;Point t$_ho NCT
	CALL	@DIS$`P(P1)		;And Goto $`(routine
>					;E$`Hnd of MAKSAV

$`h
;MAKRES  -  Mak$ae  a 3 word AC re$a(store , dismiss i$aHnterrupt routine.$ah AC's
;are assum$bed stored at NTSV$b(AC. Arg PCW is th$bHe address of the $bh interrupt
;PC.

DEFINE	MAKRES($c(PCW)
<	MOVSI P,.$cHNCTB+NTSVAC	;Fro$chm there to 0
	BL$dT P,P				;Restore$d( all AC's
	XJEN $dH.NCTB+PCW		;And $dhdismiss the inter$erupt
>					;End $e(of MAKRES MACRO
$eH
IFE <<NT.TYP-NT$eh.NCP>!<NT.DEV-NT.$fANX>>,<

	ANI==$f(ANXA		;[9115] In$fHput device addres$fhs
	ANO==ANXA+4	$g	;[9115] Output s$g(ide address

	C$gHONSZ ANI,(T1)		;N$ghTCNSZ - CONSZ INP$hUT
	CONSO ANI,(T$h(1)		;NTCNSO - CON$hHSO INPUT
	CONO A$hhNI,(T1)		;NTCONO $i- CONO INPUT
	CO$i(NI ANI,T1		;NTCON$iHI - CONI INPUT
	$ihDATAO ANI,T1		;NT$jDATO - DATAO INPU$j(T
	DATAI ANI,T1	$jH	;NTDATI - DATAI $jhINPUT
	NCTDSP AN$kXINI		;NTINI  - I$k(NITIALIZATION INS$kHTRUCTION
	NCTDSP$kh ANXKIL		;NTKILL $l- SHUTDOWN INSTRU$l(CTION
	NCTDSP AN$lHXRSS		;NTRSRT - R$lhESTART INSTRUCTIO$mN
	NCTDSP ANISRT$m(		;NTISRT - START$mH INPUT INSTRUCTIO$mhN
	NCTDSP ANOSRT$n		;NTOSRT - START$n( OUTPUT INSTRUCTI$nHON
	NCTDSP IMPEI$nhN		;NTIDUN - INPU$oT DONE DISPATCH
$o(	NCTDSP IMODUN		;$oHNTODUN - OUTPUT D$ohONE DISPATCH
	NC$pTDSP IMPHDR		;NTL$p(LDR - MAKE HEADER$pH INSTRUCTION
	NC$phTDSP RSKP		;NTOTO$qK - CLEAR PACKET $q(FOR OUTPUT
	NCTD$qHSP R		;NTMAIN - M$qhAINTAINANCE
	NCT$rDSP ANXSCK		;NTSC$r(HK - STATUS CHECK$rH INSTRUCTION
	BL$rhOCK NTOCNO-NTIB	;$sNTIB THROUGH  NTO$s(TYP
	CONO ANO,(T$sH1)		;NTOCNO - CON$shO OUTPUT
	CONI A$tNO,T1		;NTOCNI - $t(CONI OUTPUT
	CON$tHSO ANO,(T1)		;NTO$thCSO - CONSO OUTPU$uT
	CONSZ ANO,(T1$u()		;NTOCSZ - CONS$uHZ OUTPUT
	DATAO $uhANO,T1		;NTODTO -$v DATAO OUTPUT
	D$v(ATAI ANO,T1		;NTO$vHDTI - DATAI OUTPU$vhT
	XPCW .+1		;NT$wIINT - INTERRUPT $w(INSTRUCTION
	BLO$wHCK 2			;NTIPCW - $whINTURRUPT PC STOR$xAGE
	EXP 0			;NT$x(INPC - NEW FLAGS $xH(INPUT)
	XCDSEC,$xh,.+1		;         N$yEW PC (INPUT SAVE$y()
	MAKSAV (IMPDP$yHA,NTIDSP) ;[9115$yh] NTIISV - 6 word$zs of AC save rout$z(ine
	MAKRES (NTI$zHPCW)		;NTIIRS - 3$zh WORDS OF AC REST${ORE ROUTINE
	XPC${(W .+1	       	;NT${HOINT - INTERRUPT ${hINSTRUCTION
	BLO$|CK 2			;NTOPCW - $|(PC STORAGE
	EXP $|H0			;NTONPC - NEW$|h FLAGS
	XCDSEC,,$}.+1		;         NE$}(W PC (OUTPUT SAVE$}H)
	MAKSAV (IMPDP$}hA,NTODSP) ;[9115$~] NTIOSV - 6 word$~(s of AC save
	MA$~HKRES (NTOPCW)		;N$~hTIORS   3 WORDS O$F AC RESTORE
	BL$(OCK 20		;NTSVAC -$H AC storage
	PUR$hGE ANI,ANO		;[911%5] Zap junk symbo%(ls
>				;End of %HNCP/ANX condition%hal

;IPNI NCT %defifition

IFE%( <<NT.TYP-NT.NUN>%H!<NT.DEV-NT.NIP>>%h,<

	JFCL      %    		;NTCNSZ - C%(ONSZ Input
	JFCL%H          		;NTCN%hSO - CONSO Input
	JFCL          	%(	;NTCONO - CONO I%Hnput
	JFCL      %h    		;NTCONI - C%ONI Input
	JFCL %(         		;NTDAT%HO - DATAO Input
%h	JFCL          		%;NTDATI - DATAI I%(nput
	NCTDSP NIP%HINI		;NTINI  - In%hitialization inst%ruction
	NCTDSP %(NIPKIL		;NTKILL -%H Shutdown instruc%htion
	NCTDSP NIP%RST		;NTRSRT - Re%(start instruction%H
	NCTDSP R     	%h	;NTISRT - Start %input instruction%(
	NCTDSP NIPSTO	%H	;NTOSRT - Start %houtput instructio%	n
	NCTDSP R     %	(		;NTIDUN - Input%	H done dispatch
	%	hNCTDSP R       		%
;NTODUN - Output %
(done dispatch
	N%
HCTDSP NIPHDR		;NT%
hLLDR - Make heade%r instruction
	N%(CTDSP RSKP		;NTOT%HOK - CLear packet%h for output
	NCT%

DSP R      		;NTM%

(AIN - Maintainanc%

He
	NCTDSP NIPSTA%

h		;NTSCHKn-tStatu%
	BLOCK	NTSVAC%hrou%
>				%;End of NIN/NIP c%(onditional

;[9%H135] IPNIA NCT de%hfifition

IFE <%<NT.TYP-NT.NUN>!<%(NT.DEV-NT.NIA>>,<%H	;[9135] IPNIA ps%huedo device
	JFC%L          		;[91%(35] NTCNSZ - CONS%HZ Input
	JFCL   %h       		;[9135] %NTCNSO - CONSO In%(put
	JFCL       %H   		;[9135] NTCO%hNO - CONO Input
%	JFCL          		%(;[9135] NTCONI - %HCONI Input
	JFCL%h          		;[913%5] NTDATO - DATAO%( Input
	JFCL    %H      		;[9135] N%hTDATI - DATAI Inp%ut
	NCTDSP NIAIN%(I		;[9135] NTINI %H - Initialization%h instruction
	NC%TDSP NIAKIL		;[91%(35] NTKILL - Shut%Hdown instruction
	NCTDSP NIARST		%;[9135] NTRSRT - %(Restart instructi%Hon
	NCTDSP R    %h 		;[9135] NTISRT% - Start input in%(struction
	NCTDS%HP NIASTO		;[9135]%h NTOSRT - Start o%utput instruction%(
	NCTDSP R     	%H	;[9135] NTIDUN -%h Input done dispa%tch
	NCTDSP R   %(    		;[9135] NTO%HDUN - Output done%h dispatch
	NCTDS%P NIAHDR		;[9135]%( NTLLDR - Make he%Hader instruction
	NCTDSP RSKP		;[%9135] NTOTOK - CL%(ear packet for ou%Htput
	NCTDSP R  %h    		;[9135] NTM%AIN - Maintainanc%(e
	NCTDSP NIASTA%H		;[9135] NTSCHK %h- Status check in%struction
	BLOCK%( NTSVAC-NTIB	;[91%H35] NTIB through %h NTOTYP
>				;[9%135] End of NIN/N%(IA conditional

%H

;IPCI nct def%hinition

	IFE <%<NT.TYP-NT.NUN>!<%(NT.DEV-NT.CIP>>,<%H

	JFCL        %h  		; NTCNSZ - CO% NSZ Input
	JFCL % (         		; NTCN% HSO - CONSO Input
	JFCL          	%!	; NTCONO - CONO %!(Input
	JFCL     %!H     		; NTCONI -%!h CONI Input
	JFC%"L          		; NT%"(DATO - DATAO Inpu%"Ht
	JFCL         %"h 		; NTDATI - DAT%#AI Input
	NCTDSP%#( CIPINI		; NTINI %#H - Initialization%#h instruction
	NC%$TDSP CIPKIL		; NT%$(KILL - Shutdown i%$Hnstruction
	NCTD%$hSP CIPRST		; NTRS%%RT - Restart inst%%(ruction
	NCTDSP %%HR     		; NTISRT %%h- Start input ins%&truction
	NCTDSP%&( CIPSTO		; NTOSRT%&H - Start output i%&hnstruction
	NCTD%'SP R     		; NTID%'(UN - Input done d%'Hispatch
	NCTDSP %'hR      		; NTODUN%( - Output done di%((spatch
	NCTDSP C%(HIPHDR		; NTLLDR -%(h Make header inst%)ruction
	NCTDSP %)(RSKP		; NTOTOK - %)HCLear packet for %)houtput
	NCTDSP R%*      		; NTMAIN %*(- Maintainance
	%*HNCTDSP CIPSTA		; %*hNTSCHK - Status c%+heck instruction
	BLOCK NTSVAC-NT%+HIB	; NTIB through%+h  NTOTYP
>				; %,End of IPCIN/CIP conditional

[^%.
*pXCDSEC,,.NCTAXCDSEC,,.N[EyP [EIP [F98Q [FKyP [&uP 
[&vJP 
[.t= $:*$x	XALL			;S$:Jhow the lines tem$:hporarily
NT.NUM=$;=0			;Start with $;(Interface 0
NCTN$;HUM==0			;Start ou$;ht at zero
DV.NUM$<==0			;Back to nu$<(mber 0
IFN ANXN,$<H<			;[9115] Is th$<his balanced now
$=NT.TYP==NT.NCP			$=(;Network Type is $=HNCP
NT.DEV==NT.A$=hNX			;Device type$> AN20
REPEAT ANX$>(N,<			;[9115] For$>H all AN20s
	MAKN$>hCT(\DV.NUM,\NCTNU$?M,^D576) ;[9115] $?(Make that type NC$?HT for AN20
	DV.N$?hUM==DV.NUM+1	;[91$@15] Step to next $@(device if any
>	$@H			;[9115] End of$@h REPEAT ANXN
>		$A		;[9115] End of $A(IFN ANXN
IFN IPN$AHIN,<			;[9115] If$Ah NIA20 support
N$BT.TYP==NT.NUN			;$B(No local protocol$BH 
NT.DEV==NT.NIP$Bh			;Device type I$CPNI
MAKNCT(\DV.N$C(UM,\NCTNUM,^D576)$CH	;Make that type $ChNCT
DV.NUM==DV.N$DUM+1		;[9115] Cou$D(nt up the NCT num$DHber used
>				;[$Dh9115] End of IFN $EIPNIN

IFN IPNI$E(AN,<			;[9135] If$EH NIA20 alternat a$Ehddress support
N$FT.TYP==NT.NUN			;$F([9135] No local p$FHrotocol 
NT.DEV=$Fh=NT.NIA			;[9135]$G Device type IPNI$G( alternate addres$GHs
REPEAT IPNIAN,$Gh<			;[9135] For e$Hach of these devi$H(ces
	MAKNCT(\DV.$HHNUM,\NCTNUM,^D576$Hh) ;[9135] Make th$Iat type NCT
	DV.$I(NUM==DV.NUM+1	;[9$IH135] Count up the$Ih NCT number used
	>			;[9135] End$J( of REPEAT IPNIAN$JH
>				;[9135] En$Jhd of IFN IPNIAN
$K
IFN IPCIN,<			;$K([9115] If CI20 su$KHpport
NT.TYP==NT$Kh.NUN			;No local $Lprotocol 
NT.DEV$L(==NT.CIP			;Devic$LHe type IPCI
MAKN$LhCT(\DV.NUM,\NCTNU$MM,^D576)	;[9115] $M(Make that type NC$MHT
DV.NUM==DV.NUM$Mh+1		;[9115] Count$N up that NCT numb$N(er
>				;[9115] $NHEnd of IFN IPCIN
	SALL			; Again $Osuppress expansions
ss expansio[/LY %,J*l
..TMP==0%,j			;Start at NCT %-#0
REPEAT %NETS,%-(<
	MAKPTR(\..TMP%-H)
	..TMP==..TMP+1>
TMP==..TMP+[/<: ":}
	ROT T2,"Z-^D9
	LSHC T1,^D27
	HRRITT1,A[;$86S$8*#BCALLe@A(P1)CALL @A(P[;%,Y $8j#FJRST @A(P1)JRST @A(P[;'z $9*#JXCT A(P1)XCT A(P1)[>&98 #R
>@P']Y Q x]$Lx $9j#NXCDSEC,,<A&777777>EC,,<]8 r@
   IFNDEraF A,<
	A==:B>A,<
	A==:B>]$8 Q |]$8@Q ~]$8`Q ]$;Q ]%m6 "9{
	TXNN	B"8z,.NETCA		; Class "8ZA network?
	=JRS"8:T	[LOAD	A,NETCA,"=R+B	; Get number
		 JRST	c]
	TX">NN	B,.NETCB		; C">0lass B?
	 JRST	[">PLOAD	A,NETCB,+B">p
		 JRST	c]
	L"?OAD	A,NETCC,+B	"?0	; Must be class C
c:!e class ]%{@P ]"YP ]&EYP ]&EZP ]2|;P ]?|P ]?&>7P ]Pt\P ]Pt:8P ]PuhxP ]Puj0P ]Puj7P ]Puj8P ]Pum7P ]Q
zP ]RiVP ]RlwP ]Rl}P ]R{TP ]R{WP ]R$P ]R$P ]R$]@P']R-\P ]R.,SP ]R5L`P ]RExTP ]RExWP ]RL P

]RLLxP 	]RMZP ]RMYP #]RM{P  ]RMj P ]RMlP ]RMlP ]RMxTP ]RMxWP ]RM|YP *]RM|{P ']RN{P ]RN<ZP ]RNN8P ]RN\P ]R]P ]RdP ]ReIP 
]Rej`Q ]RexTP ]RexWP ]Rl7P ]Rt]P ]RuJP ]Ru|P ]Rv[ P']R| P

]R|;TP ]R|;WP ]R|<wP ]R|<}P ]R|LxP &]R~{P %]R~)P ]R~<ZP ]R~KuP 
]R~N8P ]R~\P ]S*7P ]S:=P ]SN P ]S<ZP ]S:P ]SHtP ]Sh1P +]S%}:P ]S'Q x]SDKZP ]SF\P _,P _C%w "hRI
IFDIF <#.BC>,<C>,<	BOPT=="hrD	>
IFIDN <C>,<"iC>,<	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@.
	"j		IRP C,<.X==.X+"jRPT%%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 "	*JHRLZI A,BHRLZI A,a^tK`Q xac Q c:/

zP e-i:P e.LtP e.LwP eKy "5Z7
	IFLE $A"5zCVNM+$STVNM+$TMVN"6M,<$IPMSG(\.,<?Ex"68tra RESTORE macro"6X>,\$ACVNM,\$STVNM"6x,\$TMVNM)>
	$HERETMVNM)>
	$HEReK%|Pgg "
PHRLI A,BHRLI A,Bg&%|P Dg;I8Q gO|P gR

:v "/
	IFG $AC"/:VNM+$STVNM,<	$IPM"/XSG(\.,<?STACKL: M"/xissing RESTORE>,\"0$ACVNM,\$STVNM)
"08				$ACVNM==0
		"0X		$STVNM==0>
	IR"0xP A,<	$STKL1(A)"1>
	JSP CX,.TRSET"18##
	$STVNM,,$STVNM	$STVNM,,$STVgSHYQP gSH]1P gSM|P AgftVP gft92P gfv({P gfv;ZP iI\P'i@ i`P i@P #i P (iHuP i
1P i
3P,iP8iP:iPIiPPKi\PLi(XPLP2iLPP iL\P iM P 7i$&Q i$=`Q i$l`Q i$y Q i${@Q i%

`Q i&\@Q i&}Q @iYQ iY1Q @iY6Q iY9Q @i[Q  i\Q i\Q i]9Q  i]vQ i(t@ Ai(w@ AilP i| #2p
  OPTION#(I,END,,^D0,^D1,#bA,B,C)
  OPTIO# N(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.-`Q i=iQ i,0P"i.-P i.MP in "*k
	IFG $TM"*:VNM+$STVNM+$STVNM"*X,<	$IPMSG(\.,<?TE"*xMP: Missing RESTO"+RE>,\$ACVNM,\$STV"+8NM,\$TMVNM)
				"+X	$STVNM==0
					"+x$TMVNM==0
					$",ACVNM==0>
	IRP ",8A,<	IFGE $TMVNM-N",XTEMPS,<$IPMSG(\.,",x<?Too many TEMPs>"-)>
			$DFTMP(A,"-8\<$TMVNM>)
			$TMVNM==$TMVNM+1>i)@Q xi+@P'i Q @i)@Q xi-P$i@Q iD0Q iQ i&4I@Q @i&~	@P'i'K`Q i'|@Q |i'} Q xi*`P'i*5`P'i*L( @ @i*L) @ @i*|( @ ?i*|)@@ ?i2@Q i3Q i6,`Q i6v-Q i7F-Q i;,k P$i>6*`P'i?jQ i?lQ xi?JQ i?i@Q `i?=l@Q xiBL8 P iBL9 P'piBL<@Q |iBL<`Q xiBL= Q ~iBL>P `iBLh P'iBLi P'iBLl@P'iBLl`Q xiBLm Q xiBLnQ xiB^@@ iC4 Q xiC4@P'iC`Q iJ0Q iJ P'iJ. Q iJmQ piJN0Q iJd`Q iJdmQ iJf{@Q iJo

Q xiKQ @iK@P 8iK.)`P iK.,Q iK=iQ xiKD@P!iKEQ iN

-P iNQ iNi`Q iNQ iN P'iN
`Q iN Q  iN$]@Q iN.Q iN6Q iNN0Q iNdmQ iNfh`P'iNfk@Q xiNo

P'iN~@P iO|P "iO,`P iO\ Q iOJQ iO`P iO@P iO$P ?iO%pQ iO&k`P @iO-|P  iO.)`P iO.,Q iO=iQ xiRt]P iR~	@P'iR~0Q xiSK`Q iS|@Q |iS} Q xiS%@Q ?`iS6@Q i[%@P i^dK@Q  i^dLQ i^dMQ kF:=P k:`Q xkLQ xkK@Q `k<Q `o&   3"<^L<-<<A>_<^L<A>>>-1>>>qP q P q3P 0	kVP 	4v "'zM
	IFDEF "(A,<$IPMSG(\.,<?LO"(8CAL AC A already"(X defined>)>
	PUS"(xH P,T1+NTEMPS+B
	A==T1+NTEMPS+")8B
	$PURGE A
	$")XPOP T1+NTEMPS+BOP T1+NTEMPS+B	6K8 "-zu
	IFDEF ".A,<$IPMSG(\.,<?TE".8MP A already def".Xined>)>
	A==T1+B
	$PURGE A+	".)  ""
	$INFO
	$INIT
	$INFO
	&tk` 9A
BR	&u " 
	DEFINE " :$INFO(X,Y)<X
Y>X
$ACVNM==0
$STVN" xM==0
$TMVNM==0
=0
$TMVNM==0
	'\s ""Z
PRINTX B ""zat A (C,D,E)t A (C,D,E)	B~ "#:
	GSOPDEF"#Z %POP%,<POP P,>
"#x	$REMOTE<(<%POP%NA>)TE)(<%POP% 	C.)r "$:#$REMOTE (<PURGE A>)TE (<	J-[z "!:
A,Y>)X,Y)><X	NL{V $:"r
	XMOVEI $T1,A		;Process t$zo signal
  IFE $ZB,<
	MOVE T3,TOD$'*CLK		;Now
	SKIPL$'H T2,PRCWAK(T1)	;I$'hf no wakeup set, $(NOW is ok
	 CAML$((E T2,T3		;If past$(H due, queue
	  S$(hKIPLE NSKED		;NOW$) is ok unless NOS$)(KED
	* JRST c	$)H	;No.  Get in Q f$)hor FIFO behavior
	PUSH P,PROC		;D$*(o it NOW
	MOVEM $*HT3,PRCSGT(T1)	;TO$*hDCLK of most rece$+nt SIGNAL
	CALL $+(TCPTSK		;Call the$+H task
	POP P,PRO$+hC		;Restore our I$,D as running proc$,(ess
	JRST d		;A$,Hll done
c:	>	;I$,hFE B

;Avoid s$-tack overflow on $-(KA, always queue
	MOVX T2,B		;Nu$-hmber of milliseco$.nds
	CALL SIGNAL$.(
  IFE B,<
d:  >

B,<
d:	O%; "1z$STKL2(A)$STKL2(A)	O%;	 "2:
	$STKL3("2ZA,\$STVNM)
	IFB"2x <B>,<$STVNM==$S"3TVNM+1>
	IFNB <"38B>,<$STVNM==$STVNM+B>VNM==$STVN	O%;	 "3z)
	IFDEF "4A,<$IPMSG(\.,<?ST"48ACKL local A alr"4Xeady defined>)>
"4x	DEFINE A<^OB+1"5(P6)>
	$PURGE A6)>
	$PURGE A	O&kVP 	RnkVP 
J8 $"!|
	$BBLIP=$B=<Z 11>		
	A (<B>,11C,D) (<
m $!\
	$BCNT==$"<Z BFRCNT>		
	A$@ (<B>,BFRCNTC,D)B>,BFRCNTC,
$ $Z!S
	$BDADR=$=<Z BFRDAD>		
	$8A (<B>,BFRDADC,D)B>,BFRDADC,
-{ $
!D
	$BEOL==$*<Z BFRFLG>		
	A$H (<B>,BFRFLGC,D)B>,BFRFLGC,
6*| $Z!o
	$BFRKX=$z=<Z 10>		
	A (<B>,10C,D) (<
D $
!b
	$BHADR=$*=<Z 6>		
	A (<B>,6C,D)A (<
L;Z $r!i
	$BICNT=$=<Z 7>		
	A (<B>,7C,D)A (<
LN $%b"0
	$BIDX==$&<Z 13>		
	A (<B>,13C,D) (<
n3 $ "
	$BMPAG=$ "=<Z 11>		
	A (<B>,11C,D) (<L@ $ j"

	$BPTR==$!
<Z BFRPTR>		
	A$!( (<B>,BFRPTRC,D)B>,BFRPTRC,LP $#z"#
	$BPTRA=$$=<Z BFRPTR>		
	$$8A (<B>,BFRPTRC,D)B>,BFRPTRC,LX $!r"
	$BPTRP=$"=<Z BFRPTR>		
	$"0A (<B>,BFRPTRC,D)B>,BFRPTRC,LY $"z"
	$BPTRS=$#=<Z BFRPTR>		
	$#8A (<B>,BFRPTRC,D)B>,BFRPTRC,$8@ $%"*
	$BTCB==$%"<Z 13>		
	A (<B>,13C,D) (<&0 $&J"6
	$BTS==<$&jZ 14>		
	A (<B>,14C,D) (<B.3 $:!u
	$BUPAG=$Z=<Z 10>		
	A (<B>,10C,D) (<.)` $!<
	$BURG==$"<Z BFRFLG>		
	A$@ (<B>,BFRFLGC,D)B>,BFRFLGC,=P $!M
	$BWM==<$2Z BFRFLG>		
	A $P(<B>,BFRFLGC,D)B>,BFRFLGC,Dl:y #*$
	$CMCKS=#J=<Z 0>		
	A (<B>,0C,D)A (<l;r #B
	$CMCOD=#b=<Z 0>		
	A (<B>,0C,D)A (<l}p #J>
	$CMGWA=#j=<Z 1>		
	A (<B>,1C,D)A (<m #+
	$CMID==#2<Z 1>		
	A (<B>,1C,D)A (<Bn
	$CMPTR=#=<Z 1>		
	A (<B>,1C,D)A (<n98 #z1
	$CMSEQ=#=<Z 1>		
	A (<B>,1C,D)A (<nLw #2E
	$CMTSO=#R=<Z 2>		
	A (<B>,2C,D)A (<nLy #K
	$CMTSR=#:=<Z 3>		
	A (<B>,3C,D)A (<nLz #R
	$CMTST=#"=<Z 4>		
	A (<B>,4C,D)A (<nN8 #Z
	$CMTYP=#z=<Z 0>		
	A (<B>,0C,D)A (<&0 "m"n
	$DDS==<"mBZ PPBFSZ+1>		
	"m`A (<B>,PPBFSZ+1C,D),PPBFSZ+15H3 "k]
	$DFLAG="k2=<Z PPBFSZ+0>		
"kR	A (<B>,PPBFSZ+0C,D),PPBFSZ+= "o*~
	$DPKTP="oJ=<Z PPBFSZ+3>		
"oh	A (<B>,PPBFSZ+3C,D),PPBFSZ+LQ "p2
	$DPTRC="pR=<Z PPBFSZ+4>		
"pp	A (<B>,PPBFSZ+4C,D),PPBFSZ+0 "l"f
	$DSS==<"lBZ PPBFSZ+1>		
	"l`A (<B>,PPBFSZ+1C,D),PPBFSZ+1%2 "n"v
	$DTIME="nB=<Z PPBFSZ+2>		
"n`	A (<B>,PPBFSZ+2C,D),PPBFSZ+=
9 #"l
	$GWHIS=#B=<Z 0>		
	A (<B>,0C,D)A (<=z #jx
	$GWICT=#
=<Z 0>		
	A (<B>,0C,D)A (<>
8 #R_
	$GWPIP=#r=<Z 0>		
	A (<B>,0C,D)A (<>< #
r
	$GWSPC=#*=<Z 0>		
	A (<B>,0C,D)A (<>N8 #:e
	$GWTYP=#Z=<Z 0>		
	A (<B>,0C,D)A (<>\ #jX
	$GWUP==#
<Z 0>		
	A (<B>,0C,D)A (<B"D;Z "]
	$HHCNT="2=<Z .NBHHL>		
	"PA (<B>,.NBHHLC,D)B>,.NBHHLC,#\ #r	
	$HSMPL=#=<Z 1>		
	A (<B>,1C,D)A (<#J2 %4"+&
	$HSTIDX%4B==<Z HOSTN>		
	%4`A (<B>,HOSTNC,D)B>,HOSTNC,#KR %72+?
	$HSTNDX%7R==<Z HOSTPN>		
	%7pA (<B>,HOSTPNC,D)B>,HOSTPNC#KT %62+7
	$HSTNIC%6R==<Z HOSTN>		
	%6pA (<B>,HOSTNC,D)B>,HOSTNC,#KV %5*+.
	$HSTNMP%5J==<Z HOSTN>		
	%5hA (<B>,HOSTNC,D)B>,HOSTNC,#M %8:+G
	$HSTTTL%8Z==<Z HOSTPN>		
	%8xA (<B>,HOSTPNC,D)B>,HOSTPNC#%} #

	$HTOTL=#*=<Z 0>		
	A (<B>,0C,D)A (<&
  %0:+
	$IAHI==%0Z<Z 0>		
	A (<B>,0C,D)A (<B&

z %1"+


	$IAHST=%1B=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAIMP=%2"=<Z 0>		
	A(<B>,0C,D)A (<&
	$IALOW=%3b=<Z 0>		
	A(<B>,0C,D)A (<&
	$IAMID=%3=<Z 0>		
	A(<B>,0C,D)A (<&
	$IANET=%/r=<Z 0>		
	A (<B>,0C,D)A (<&D "J
	$IHADR="j=<Z .NBLD1>		
	"A (<B>,.NBLD1C,D)B>,.NBLD1C,&Dm "

2g
	$IHFTY="

R=<Z .NBLD0>		
	"

pA (<B>,.NBLD0C,D)B>,.NBLD0C,&E

z "R!
	$IHHST="r=<Z .NBLD1>		
	"A"(<B>,.NBLD1C,D)B>,.NBLD1C,&E
	$IHHT2="Z=<Z .NBLD0>		
	"xA"(<B>,.NBLD0C,D)B>,.NBLD0C,&E
	$IHHTY="b=<Z .NBLD1>		
	"A (<B>,.NBLD1C,D)B>,.NBLD1C,&E8 "Z)
	$IHIMP="z=<Z .NBLD1>		
	"A (<B>,.NBLD1C,D)B>,.NBLD1C,&EI ":w
	$IHLDF="Z=<Z .NBLD0>		
	"xA (<B>,.NBLD0C,D)B>,.NBLD0C,&EI7 "rK
	$IHLEN="=<Z .NBLD2>		
	"0A (<B>,.NBLD2C,D)B>,.NBLD2C,&EKU "Z1
	$IHLNK="z=<Z .NBLD1>		
	"A (<B>,.NBLD1C,D)B>,.NBLD1C,&EZ) "b:
	$IHMI2="=<Z .NBLD2>		
	" A (<B>,.NBLD2C,D)B>,.NBLD2C,&E] ":
	$IHMTY="Z=<Z .NBLD0>		
	"xA(<B>,.NBLD0C,D)B>,.NBLD0C,&Ei: "
	$IHNET="D0>		
	"(<B>,.NBLD0C,D)B>,.NBLD0C,&F	 "rS
	$IHPD1="=<Z .NBLD2>		
	"0A (<B>,.NBLD2C,D)B>,.NBLD2C,&F= "jB
	$IHSTY="
=<Z .NBLD2>		
	"(A (<B>,.NBLD2C,D)B>,.NBLD2C,&v

 ""n
	$INPPR="B=<Z .INPRO>		
	"`A"(<B>,.INPROC,D)B>,.INPROC,&v
	$INPVR=":=<Z .INVER>		
	"XA (<B>,.INVERC,D)B>,.INVERC,&vKZ "9BN
	$INTNUM"9b==<Z >		
	A(<B>,C,D)A (<2;Z #
	$LCCNT=#
	A (<B>,3C,D)A (<2LN #

b
	$LIDX==#

*<Z 1>		
	A (<B>,1C,D)A (<B2ezy #

ri
	$LLOKR=#
	A (<B>,2C,D)A (<2uJy #"|
	$LNLKR=#B=<Z 4>		
	A (<B>,4C,D)A (<2}Jy #Bv
	$LOLKR=#b=<Z 4>		
	A (<B>,4C,D)A (<3=|R #"\
	$LWORD=#B=<Z 0>		
	A (<B>,0C,D)A (<:,} "*^
	$NBBSZ="J=<Z .NBHDR>		
	"hA (<B>,.NBHDRC,D)B>,.NBHDRC,:2 "
*V
	$NBQUE="
J=<Z .NBHDR>		
	"
hA (<B>,.NBHDRC,D)B>,.NBHDRC,:.Hp ";[
	$NETCA=";2=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "<b
	$NETCB="<"=<Z 0>		
	A (<B>,0C,D)A (<:.Hq "<ri
	$NETCC="==<Z 0>		
	A (<B>,0C,D)A (<:.Hv ":*T
	$NETCLS":J==<Z 0>		
	A (<B>,0C,D)A (<;$I; %;
+Z
	$NTDEV=%;*=<Z 1>		
	A (<B>,1C,D)A (<;%KU %9B+N
	$NTLNK=%9b=<Z 0>		
	A (<B>,0C,D)A (<;%m6 %;j+`
	$NTNUM=%<
=<Z 2>		
	A (<B>,2C,D)A (<;&N8 %:*+T
	$NTTYP=%:J=<Z 1>		
	A (<B>,1C,D)A (<B

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

:y #"b
	$PACKS=##=<Z 2>		
	A (<B>,2C,D)A (<BK ##J
	$PCTL==##j<Z 3>		
	A (<B>,3C,D)A (<BB$= "KB^
	$PDCT=="Kb<Z 5>		
	A (<B>,5C,D)A (<BB& #!
	$PDP==<#!2Z 0>		
	A (<B>,0C,D)A (<B>B-{ #'R?
	$PEOL==#'r<Z 3>		
	A (<B>,3C,D)A (<BB.98 "Mk
	$PESEQ="M2=<Z 7>		
	A (<B>,7C,D)A (<B5@ #*
R
	$PFIN==#**<Z 3>		
	A (<B>,3C,D)A (<BB5Iy "@z	
	$PFLGS="A=<Z 1>		
	A (<B>,1C,D)A (<B6:= "C2
	$PFSIZ="CR=<Z 1>		
	A (<B>,1C,D)A (<BL:y "ab
	$PICKS="b=<Z PKTELI+.IPKPR"b >		
	A (<B>,PK"b@TELI+.IPKPRC,D)LI+.IPKPRC,D)BLI@ "[*`
	$PIDF=="[J<Z PKTELI+.IPKSG>"[h		
	A (<B>,PKT"\ELI+.IPKSGC,D)LI+.IPKSGC,D)BLJ "d2)
	$PIDH=="dR<Z PKTELI+.IPKDH>"dp		
	A (<B>,PKT"eELI+.IPKDHC,D)LI+.IPKDHC,D)BLK` "OB
	$PIDO=="Ob<Z PKTELI+.IPKVR>"P		
	A (<B>,PKT"P ELI+.IPKVRC,D)LI+.IPKVRC,D)BLk "ZV
	$PIFLG="Z"=<Z PKTELI+.IPKSG"Z@>		
	A (<B>,PK"Z`TELI+.IPKSGC,D)LI+.IPKSGC,D)BLk` "]jt
	$PIFO=="^
<Z PKTELI+.IPKSG>"^(		
	A (<B>,PKT"^HELI+.IPKSGC,D)LI+.IPKSGC,D)BM

V "V
6
	$PIHRL="V*=<Z PKTELI+.IPKVR"VH>		
	A (<B>,PK"VhTELI+.IPKVRC,D)LI+.IPKVRC,D)BM
	$PIHTR="U=<Z PKTELI+.IPKVR"U >		
	A (<B>,PK"U@TELI+.IPKVRC,D)LI+.IPKVRC,D)BMI "S:!
	$PILDY="SZ=<Z PKTELI+.IPKVR"Sx>		
	A (<B>,PK"TTELI+.IPKVRC,D)LI+.IPKVRC,D)BMY@ "\Jj
	$PIMF=="\j<Z PKTELI+.IPKSG>"]		
	A (<B>,PKT"](ELI+.IPKSGC,D)LI+.IPKSGC,D)BMm "BJ
	$PINTL="Bj=<Z 1>		
	A (<B>,1C,D)A (<BN "W2A
	$PIPL=="WR<Z PKTELI+.IPKVR>"Wp		
	A (<B>,PKT"XELI+.IPKVRC,D)LI+.IPKVRC,D)BN

Q "R
	$PIPRC="R2=<Z PKTELI+.IPKVR"RP>		
	A (<B>,PK"RpTELI+.IPKVRC,D)LI+.IPKVRC,D)BN

W "`:	
	$PIPRO="`Z=<Z PKTELI+.IPKPR"`x>		
	A (<B>,PK"aTELI+.IPKPRC,D)LI+.IPKPRC,D)BN: "c

	$PISH=="c*<Z PKTELI+.IPKSH>"cH		
	A (<B>,PKT"chELI+.IPKSHC,D)LI+.IPKSHC,D)BN:2 "XZK
	$PISID="Xz=<Z PKTELI+.IPKSG"Y>		
	A (<B>,PK"Y8TELI+.IPKSGC,D)LI+.IPKSGC,D)BNKy "Pj


	$PITOS="Q
=<Z PKTELI+.IPKVR"Q(>		
	A (<B>,PK"QHTELI+.IPKVRC,D)LI+.IPKVRC,D)BNM "_
	$PITTL="_2=<Z PKTELI+.IPKPR"_P>		
	A (<B>,PK"_pTELI+.IPKPRC,D)LI+.IPKPRC,D)BNi9 "Nw
	$PIVER="N:=<Z PKTELI+.IPKVR"NX>		
	A (<B>,PK"NxTELI+.IPKVRC,D)LI+.IPKVRC,D)Bd; "G:=
	$PLCLO="GZ=<Z 1>		
	A (<B>,1C,D)A (<Be8r "H"D
	$PLKCD="HB=<Z 1>		
	A (<B>,1C,D)A (<BuHv "Ej0
	$PNLCL="F
=<Z 1>		
	A (<B>,1C,D)A (<C+s "Ab
	$PPROG="B=<Z 1>		
	A (<B>,1C,D)A (<C= #(:E
	$PRST==#(Z<Z 3>		
	A (<B>,3C,D)A (<BC	 "D#
	$PRXD=="D:<Z 1>		
	A (<B>,1C,D)A (<BC
  "JZW
	$PRXI=="Jz<Z 4>		
	A (<B>,4C,D)A (<BC<@ "E*
	$PSCR=="E"<Z 1>		
	A (<B>,1C,D)A (<BC\  #!z
	$PSEQ==#"<Z 1>		
	A (<B>,1C,D)A (<BC # *
	$PSP==<# JZ 0>		
	A (<B>,0C,D)A (<B>C+z "FR7
	$PSROU="Fr=<Z 1>		
	A (<B>,1C,D)A (<C@ #)"L
	$PSYN==#)B<Z 3>		
	A (<B>,3C,D)A (<BC$:y #+Z_
	$PTCKS=#+z=<Z 4>		
	A (<B>,4C,D)A (<C$= #%+
	$PTCTL=#%:=<Z 3>		
	A (<B>,3C,D)A (<C$K` #$2%
	$PTDO==#$R<Z 3>		
	A (<B>,3C,D)A (<BC$p "I
J
	$PTG==<"I*Z 2>		
	A (<B>,2C,D)A (<B>C&0 "L*d
	$PTS==<"LJZ 6>		
	A (<B>,6C,D)A (<B>C&m $R!
	$PTVT==$r<Z TTNETW>		
	A$ (<B>,TTNETWC,D)B>,TTNETWC,C.)` #&2
	$PURG==#&"<Z 3>		
	A (<B>,3C,D)A (<BC.)x #,Bf
	$PURGP=#,b=<Z 4>		
	A (<B>,4C,D)A (<C=i #*rY
	$PWNDO=#+=<Z 3>		
	A (<B>,3C,D)A (<CF@ "IrQ
	$PXT==<"JZ 3>		
	A (<B>,3C,D)A (<B>Ft^ "t"
	$QNEXT="t"=<Z 0>		
	A (<B>,0C,D)A (<G); #
:U
	$QPREV=#
Z=<Z 0>		
	A (<B>,0C,D)A (<R

- #m2m
	$TABTFX#mR==<Z 62>		
	A (<B>,62C,D) (RHL $Z _
	$TCDB8=$z=<Z 175>		
	A (<B>,175C,D)(RH{ $
r Y
	$TCDCW=$=<Z 175>		
	A (<B>,175C,D)(RIY $ +
	$TCDFS=$:=<Z 175>		
	A (<B>,175C,D)(RIr $R ?
	$TCDGE=$r=<Z 175>		
	A (<B>,175C,D)(RIw $j 8
	$TCDGN=$
=<Z 175>		
	A (<B>,175C,D)(RJ $2 %
	$TCDHT=$R=<Z 175>		
	A (<B>,175C,D)(RJ1 $

 R
	$TCDIB=$
*=<Z 175>		
	A (<B>,175C,D)(RKq $	" L
	$TCDOB=$	B=<Z 175>		
	A (<B>,175C,D)(RKx $

B f
	$TCDOQ=$

b=<Z 175>		
	A (<B>,175C,D)(RK{ $ 2
	$TCDOW=$"=<Z 175>		
	A (<B>,175C,D)(RL $: E
	$TCDPS=$Z=<Z 175>		
	A(<B>,175C,D)(RL $
	$TCDPU=$		
	A (<B>,175C,D)(RM9 $ s
	$TCDUR=$2=<Z 175>		
	A (<B>,175C,D)(RMz $J 
	$TCDWT=$j=<Z 175>		
	A (<B>,175C,D)(RHY #R
	$TCTBS=#r=<Z 172>		
	A (<B>,172C,D)(RLx $2 
	$TCTSQ=$R=<Z 172>		
	A (<B>,172C,D)(R\[ #fz9
	$TCURW=#g=<Z 45>		
	A (<B>,45C,D) (<R{R #gb@
	$TCWND=#h=<Z 46>		
	A (<B>,46C,D) (<R$X` #>r
	$TDEC==#>"<Z 13>		
	A (<B>,13C,D) (<R.(S #~
r
	$TERBF=#~*=<Z 171>		
	A (<B>,171C,D)(R.*W #~jx
	$TERJN=#
=<Z 171>		
	A (<B>,171C,D)(R.,@ #5+
	$TERR==#5:<Z 13>		
	A (<B>,13C,D) (<R.,S #a*


	$TERRF=#aJ=<Z 40>		
	A (<B>,40C,D) (<R.,Z #="l
	$TERRT=#=B=<Z 13>		
	A (<B>,13C,D) (<R5 #1
	$TFH==<#12Z 7>		
	A (<B>,7C,D)A (<B>R5` #1z
	$TFHC==#2<Z 7>		
	A (<B>,7C,D)A (<BR6 #3J
	$TFP==<#3jZ 11>		
	A (<B>,11C,D) (<BRLi #kZ
	$TIFDF=#k"=<Z 62>		
	A (<B>,62C,D) (<RM| #z
R
	$TIOPF=#z*=<Z 73>		
	A (<B>,73C,D) (<RN	 #wZ?
	$TIPDO=#wz=<Z 73>		
	A (<B>,73C,D) (<RNy #xBF
	$TIPOR=#xb=<Z 73>		
	A (<B>,73C,D) (<RNz #y*L
	$TIPOU=#yJ=<Z 73>		
	A (<B>,73C,D) (<RT;@ #0"
	$TJCN==#0J<Z 6>		
	A (<B>,6C,D)A (<BRTk@ $r y
	$TJFN==$<Z 175>		
	A (<B>,175C,D)(<Re #2b
	$TLH==<#3Z 10>		
	A (<B>,10C,D) (<BRf #42%
	$TLP==<#4RZ 12>		
	A (<B>,12C,D) (<BRlX9 #f3
	$TMEAS=#f2=<Z 44>		
	A (<B>,44C,D) (<RmlZ #br
	$TMNRT=#c=<Z 41>		
	A (<B>,41C,D) (<Ro

Z #cZ
	$TMXRT=#cz=<Z 42>		
	A (<B>,42C,D) (<RvYV #pB
	$TNUFM=#pb=<Z 64>		
	A (<B>,64C,D) (<R|lU #b

	$TOFRK=#b*=<Z 40>		
	A (<B>,40C,D) (<R~	T #r

	$TOPFH=#r*=<Z 65>		
	A (<B>,65C,D) (<R~	X #ob
	$TOPFP=#p=<Z 64>		
	A (<B>,64C,D) (<R~ #rr
	$TOPLH=#s=<Z 66>		
	A (<B>,66C,D) (<R~S #`B
	$TOPNF=#`b=<Z 40>		
	A (<B>,40C,D) (<R~{Y #/B~
	$TOWNR=#/b=<Z 6>		
	A (<B>,6C,D)A (<Sp #Y"N
	$TPICA=#YB=<Z TCBPIC>		
	#Y`A (<B>,TCBPICC,D)B>,TCBPICC,Sr #W">
	$TPICE=#WB=<Z TCBPIC>		
	#W`A (<B>,TCBPICC,D)B>,TCBPICC,Sy #U-
	$TPICR=#U:=<Z TCBPIC>		
	#UXA (<B>,TCBPICC,D)B>,TCBPICC,Sy #V"6
	$TPICS=#VB=<Z TCBPIC>		
	#V`A (<B>,TCBPICC,D)B>,TCBPICC,Sz #T%
	$TPICU=#T2=<Z TCBPIC>		
	#TPA (<B>,TCBPICC,D)B>,TCBPICC,S| #X"F
	$TPICX=#XB=<Z TCBPIC>		
	#X`A (<B>,TCBPICC,D)B>,TCBPICC,SP #_:
	$TPIFA=#_Z=<Z TCBPIF+2>		
#_x	A (<B>,TCBPIF+2C,D),TCBPIF+SR #]2o
	$TPIFE=#]R=<Z TCBPIF+1>		
#]p	A (<B>,TCBPIF+1C,D),TCBPIF+SY #[*^
	$TPIFR=#[J=<Z TCBPIF+0>		
#[h	A (<B>,TCBPIF+0C,D),TCBPIF+SY #\2g
	$TPIFS=#\R=<Z TCBPIF+1>		
#\p	A (<B>,TCBPIF+1C,D),TCBPIF+SZ #Z*V
	$TPIFU=#ZJ=<Z TCBPIF+0>		
#Zh	A (<B>,TCBPIF+0C,D),TCBPIF+S\ #^:w
	$TPIFX=#^Z=<Z TCBPIF+2>		
#^x	A (<B>,TCBPIF+2C,D),TCBPIF+S,h $ 
	$TPRS1=$"=<Z 174>		
	A (<B>,174C,D)(S,i $b 
	$TPRS2=$=<Z 174>		
	A (<B>,174C,D)(S:1 #S

	$TPSIC=#S*=<Z TCBPIC>		
	#SHA (<B>,TCBPICC,D)B>,TCBPICC,S,` #R"
	$TRBS==#RB<Z 31>		
	A (<B>,31C,D) (<S8@ #PR
	$TRCB==#Pr<Z 27>		
	A(<B>,27C,D) (<S8\ #Q:
	$TRCBY=#QZ=<Z 30>		
	A (<B>,30C,D) (<S;Z #e*,
	$TRCNT=#eJ=<Z 43>		
	A (<B>,43C,D) (<S` #M:m
	$TRIS==#MZ<Z 24>		
	A (<B>,24C,D) (<SH5 #tB&
	$TRLAK=#tb=<Z 70>		
	A (<B>,70C,D) (<SIZ #N"t
	$TRLFT=#NB=<Z 25>		
	A (<B>,25C,D) (<SMw #u*,
	$TRLWN=#uJ=<Z 71>		
	A (<B>,71C,D) (<S^ #v3
	$TRMXP=#v2=<Z 72>		
	A (<B>,72C,D) (<S

 #:
R
	$TRPP==#:*<Z 13>		
	A (<B>,13C,D) (<S>7 #@"
	$TRSYN=#@B=<Z 13>		
	A (<B>,13C,D) (<S\S #G:
	$TRURG=#G"=<Z 13>		
	A (<B>,13C,D) (<S\X #O
z
	$TRURP=#O*=<Z 26>		
	A (<B>,26C,D) (<S{R #Or
	$TRWND=#P=<Z 27>		
	A (<B>,27C,D) (<S	 #>bx
	$TRXD==#?<Z 13>		
	A (<B>,13C,D) (<S
  #dB&
	$TRXI==#db<Z 43>		
	A (<B>,43C,D) (<SZ #Db(
	$TSABT=#E=<Z 13>		
	A (<B>,13C,D) (<S #<Bf
	$TSAP==#<b<Z 13>		
	A (<B>,13C,D) (<SS #i2M
	$TSAVG=#iR=<Z 50>		
	A (<B>,50C,D) (<S.: #sZ
	$TSBYT=#sz=<Z 67>		
	A (<B>,67C,D) (<S8@ #Kj`
	$TSCB==#L
<Z 20>		
	A (<B>,20C,D) (<S< $ 
	$TSCPK=$:=<Z 173>		
	A (<B>,173C,D)(S<@ #:rY
	$TSCR==#;<Z 13>		
	A (<B>,13C,D) (<SI; #jS
	$TSDEV=#j:=<Z 51>		
	A (<B>,51C,D) (<S\ #9"L
	$TSEP==#9B<Z 13>		
	A (<B>,13C,D) (<Sl #8:E
	$TSFP==#8Z<Z 13>		
	A (<B>,13C,D) (<S` #Gj@
	$TSIS==#H
<Z 14>		
	A (<B>,14C,D) (<SIZ #HRG
	$TSLFT=#Hr=<Z 15>		
	A (<B>,15C,D) (<SMQ #nzy
	$TSLVC=#o=<Z 63>		
	A (<B>,63C,D) (<SMW #ns
	$TSLVN=#n:=<Z 63>		
	A (<B>,63C,D) (<S^ #vr9
	$TSMXP=#w=<Z 72>		
	A (<B>,72C,D) (<S| #C"
	$TSOPN=#CB=<Z 13>		
	A (<B>,13C,D) (<S

Y #D"
	$TSPRS=#D"=<Z 13>		
	A (<B>,13C,D) (<S98 #I:M
	$TSSEQ=#IZ=<Z 16>		
	A (<B>,16C,D) (<S= #hJF
	$TSSTH=#hj=<Z 47>		
	A (<B>,47C,D) (<S=@ #EB.
	$TSSV==#Eb<Z 13>		
	A (<B>,13C,D) (<S>7 #A

	$TSSYN=#A"=<Z 13>		
	A (<B>,13C,D) (<SH: #?B~
	$TSTAT=#?b=<Z 13>		
	A (<B>,13C,D) (<SK` #LRg
	$TSTO==#Lr<Z 21>		
	A (<B>,21C,D) (<SMW #Ab
	$TSTVO=#B=<Z 13>		
	A (<B>,13C,D) (<S[x #BB
	$TSUOP=#Bb=<Z 13>		
	A (<B>,13C,D) (<S\S #F"4
	$TSURG=#FB=<Z 13>		
	A (<B>,13C,D) (<S\X #J"T
	$TSURP=#JB=<Z 17>		
	A (<B>,17C,D) (<S{R #K
Z
	$TSWND=#K*=<Z 20>		
	A (<B>,20C,D) (<S%| #}"l
	$TTOPF=#}B=<Z 74>		
	A (<B>,74C,D) (<S%|` #lRg
	$TTOS==#lr<Z 62>		
	A (<B>,62C,D) (<S&	 #zrY
	$TTPDO=#{=<Z 74>		
	A (<B>,74C,D) (<S&y #{Z_
	$TTPOR=#{z=<Z 74>		
	A (<B>,74C,D) (<S&z #|Bf
	$TTPOU=#|b=<Z 74>		
	A (<B>,74C,D) (<S&K #kj`
	$TTTL==#l
<Z 62>		
	A (<B>,62C,D) (<S&m #;Z_
	$TTVT==#;z<Z 13>		
	A (<B>,13C,D) (<S6K #q"


	$TVTL==#qB<Z 64>		
	A (<B>,64C,D) (<S=I #62
	$TWLDN=#6"=<Z 13>		
	A (<B>,13C,D) (<S=I #7R?
	$TWLDP=#7r=<Z 13>		
	A (<B>,13C,D) (<S=I #6j8
	$TWLDT=#7
=<Z 13>		
	A (<B>,13C,D) (<V&u $4
#&
	$UDPCK=$4*=<Z PKTELI+.UDLNC$4H>		
	A (<B>,PK$4hTELI+.UDLNCC,D)LI+.UDLNCC,D)V&	 $1:#
	$UDPDP=$1Z=<Z PKTELI+.UDSDP$1x>		
	A (<B>,PK$2TELI+.UDSDPC,D)LI+.UDSDPC,D)V& $2b#
	$UDPLN=$3=<Z PKTELI+.UDLNC$3 >		
	A (<B>,PK$3@TELI+.UDLNCC,D)LI+.UDLNCC,D)V&

x $0#
	$UDPSP=$02=<Z PKTELI+.UDSDP$0P>		
	A (<B>,PK$0pTELI+.UDSDPC,D)LI+.UDSDPC,D):|lzP 3P mTP S@P P >	VP =P &YVP &DIP &DJP &DZ6P &D\RP &D\[P &D]wP &E	rP &ErP &EQP &EkxP &F)3P &F)9P &F)WP &v

WP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vLP &vMYP &vi9P '9P '<P '<sP '<tP '=YP :MhP :	P :
P :IP :IP :I	P :.HpQ :.HqQ :L:P :L[HP :L[IP :LxsP :L}P :MZP :MI7P :MZ9P @P K%,z 	ILK<<<A>&<B	I8>>B<^D70-POS(<B>)>>D70-POS(<B>N)VP RPP RQP RSP RTP RWP RYP R	VP R{P RF)P RF-8P V%KQP V&	P V&	VP V&9P `Q A>}{woP