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