Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - conversion/utility/p.unv
There are 15 other files named p.unv in the archive. Click here to see a list.
x
,5k@P C
P C
P C
 P  C
0P 0C
@P @C
PP PC
`P `C
pPpCC\P C\gP [C&X'P  C!`P CT, `C4GP `C$\GP `C2a`P cC2e}gP 'C3GP aC3GP @C3s@P @C3$\GP C3&+GP !C7{GP C:!`P bC;fP C;uP C;I`P 
CJ)`P bCJ,@PCJ:XQMCJ:qQCJ:)XQNCJ:-qQ CJ<,rQ CJ=
<`P CNqP @CND P CND@P CNXQP CNd@P @CNkP CN'P 9CNiP cCNxzP CN{@P @CN:<P  CN-mP CNMh`P"CNlyP'COWP @CO[P CO{GP "CO\qP CO$wP  CO$\GP ~COHP CPpP cCW%
GP"E5|GPdE=GPdE&pPE&v.'P:E'PE2q`P 
GpP Gt9P Gt;wP Gt<P GtH:P GtHRP Gt^P Gtj6P GtkP GuP GuJ:P Gu[RP Gv
WPGv)7PGv,PGvH3P GvI6P Gv\rPGvh6PGt'P G]PAGpPVG7@ G`pPUG" @G>{P eG>$S@P G>a`P WG>eH'P BG>hP G>mS@P G>mX P 3G>n@P BG>n'P BG>nGP NG>ngP CG>nGP /G>n
6P XG>nJ'P G>tigP #G>v;P aG>vH'P CG>vLGP XG>vlZP G?@P G?#@P fG?-mP G@@ GCHP GJ0P GO$P GP@ GWmP GW#@P G[!myP G[$) @G[$) `G[$+` G[$HZ  IP I$@P $I$GP I$SGP I$XgP $I$]gP DIIc@P BI
7P I
IP I
\^'P DI
n0P I
n5P I
n5@P IYZP I[7P I\P I\tP I\wP I\xP I]8P I
P IpP UIY`P IYgP FI$P ;IH'P fIGP 4I4\GP 5Id]P Iv::P 8I[GP gIJP I;GP gIC@P I'GP I'P I'5P I'5gP I2MYP %I2M\GP %I?=c@P hIOEGP EIOEgP EIOF'P FIP@ IWC@P I\P I^4P I^MXRP"Ift'P GJ9P J9
P J9
P 2J9
 P 2J9
@P 3J9
`P 3J9
P 4J9
 P 4J9
@P 5J9
`P 5J9
P 6J9
 P 6J9
P J9
P 7J9
 P 7J9
@P 8J9
`P 8J9
P 9J9
 P 9J9
@P :J9
`P :J9
P ;J9
 P ;J9
 P J9
$P <J9
$ P <J9
$@P =J9
$`P =J9
%P >J9
% P >J9
%@P ?J9
%`P ?J9
&P @J9
& P @J9
0P J9
4P AJ9
4 P AJ9
4@P BJ9
4`P BJ9
5P CJ9
5 P CJ9
5@P DJ9
5`P DJ9
6P EJ9
6 P EJ9
@P J9
DP FJ9
D P FJ9
D@P GJ9
D`P GJ9
EP HJ9
E P HJ9
E@P IJ9
E`P IJ9
FP JJ9
F P JJ9
PP J9
TP KJ9
T P KJ9
T@P LJ9
T`P LJ9
UP MJ9
U P MJ9
U@P NJ9
U`P NJ9
VP OJ9
V P OJ9
`P J9
dP PJ9
d P PJ9
d@P QJ9
d`P QJ9
eP RJ9
e P RJ9
e@P SJ9
e`P SJ9
fP TJ9
f P TJ9
pP J9
tP UJ9
t P UJ9
t@P VJ9
t`P VJ9
uP WJ9
u P WJ9
u@P XJ9
u`P XJ9
vP YJ9
v P YJ9P 	J9P ZJ9 P ZJ9@P [J9`P [J9P \J9 P \J9@P ]J9`P ]J9P ^J9 P ^J9P 	J9P _J9 P _J9@P `J9`P `J9P aJ9 P aJ9@P bJ9`P bJ9P cJ9 P cJ9P J9P 
J9P dJ9 P dJ9@P eJ9`P eJ9P fJ9 P fJ9@P gJ9`P gJ9P hJ9 P hJ9P 
J9P iJ9 P iJ9@P jJ9`P jJ9P kJ9 P kJ9@P lJ9`P lJ9P mJ9 P mJ9 P J9$P nJ9$ P nJ9$@P oJ9$`P oJ9%P pJ9% P pJ9%@P qJ9%`P qJ9&P rJ9& P rJ90P J94P sJ94 P sJ94@P tJ94`P tJ95P uJ95 P uJ95@P vJ95`P vJ96P wJ96 P wJ9@P 
J9DP xJ9D P xJ9D@P yJ9D`P yJ9EP zJ9E P zJ9E@P {J9E`P {J9FP |J9F P |J9PP 
J9TP }J9T P }J9T@P ~J9T`P ~J9UP J9U P J9U@P J9U`P J9VP J9V P J9`P 
J9u`P 
J9vP J9v P J9P J9P 
J9 P 
J9@P J9 P J9@P J9`P J9P J9 P J9P J9P J9 P J9@P J9`P J9P J9 P J9@P J9`P J9P J9 P J9P J9P J9P J9 P J9@P J9`P J9P J9 P J9@P J9`P J9P J9 P J9P J9P J9 P J9@P J9`P J9P J9 P J9@P J9`P J9P J9 P J9 P J9$P  J9$ P  J9$@P !J9$`P !J9%P "J9% P "J9%@P #J9%`P #J9&P $J9& P $J90P J94P %J94 P %J94@P &J94`P &J95P 'J95 P 'J95@P (J95`P (J96P )J96 P )J9@P J9DP *J9D P *J9D@P +J9D`P +J9EP ,J9E P ,J9E@P -J9E`P -J9FP .J9F P .J9PP J9TP /J9T P /J9T@P 0J9T`P 0J9UP 1J9U P 1J9U@P 2J9U`P 2J9VP 3J9V P 3J9`P J9dP 4J9d P 4J9d@P 5J9d`P 5J9eP 6J9e P 6J9e@P 7J9e`P 7J9fP 8J9f P 8J9pP J9tP 9J9t P 9J9t@P :J9t`P :J9uP ;J9u P ;J9u@P <J9u`P <J9vP =J9v P =J9P J9P >J9 P >J9@P ?J9`P ?J9P @J9 P @J9@P AJ9`P AJ9P BJ9 P BJ9P J9P CJ9 P CJ9@P DJ9`P DJ9P EJ9 P EJ9@P FJ9`P FJ9P GJ9 P GJ9 P J9"P J9"P HJ9" P HJ9"@P IJ9"`P IJ9"P JJ9" P JJ9"@P KJ9"`P KJ9"P LJ9" P LJ9"P J9"P MJ9" P MJ9"@P NJ9"`P NJ9"P OJ9" P OJ9"@P PJ9"`P PJ9"P QJ9" P QJ9" P J9"$P RJ9"$ P RJ9"$@P SJ9"$`P SJ9"%P TJ9"% P TJ9"%@P UJ9"%`P UJ9"&P VJ9"& P VJ9"0P J9"4P WJ9"4 P WJ9"4@P XJ9"4`P XJ9"5P YJ9"5 P YJ9"5@P ZJ9"5`P ZJ9"6P [J9"6 P [J9"@P J9"DP \J9"D P \J9"D@P ]J9"D`P ]J9"EP ^J9"E P ^J9"E@P J9"E`P J9"FP `J9"F P `J9"PP J9"TP aJ9"T P aJ9"T@P bJ9"T`P bJ9"UP cJ9"U P cJ9"U@P dJ9"U`P dJ9"VP eJ9"V P eJ9"`P J9"dP fJ9"d P fJ9"d@P gJ9"d`P gJ9"eP hJ9"e P hJ9"e@P iJ9"e`P iJ9"fP jJ9"f P jJ9"pP J9"tP kJ9"t P kJ9"t@P lJ9"t`P lJ9"uP mJ9"u P mJ9"u@P nJ9"u`P nJ9"vP oJ9"v P oJ9#P J9#P pJ9# P pJ9#@P qJ9#`P qJ9#P rJ9# P rJ9#@P sJ9#`P sJ9#P tJ9# P tJ9#P J9#P uJ9# P uJ9#@P vJ9#`P vJ9#P wJ9# P wJ9#@P xJ9#`P xJ9#P yJ9# P yJ9(P J9*P J9*P zJ9* P zJ9*@P {J9*`P {J9*P |J9* P |J9*@P }J9*`P }J9*P ~J9* P ~J9*P J9*P J9* P J9*@P J9*`P J9*P J9* P J9*@P J9*`P J9*P J9* P J9* P J9*$P J9*$ P J9*$@P J9*$`P J9*%P J9*% P J9*%@P J9*%`P J9*&P J9*& P J9*0P J9*4P 	J9*4 P 	J9*4@P 
J9*4`P 
J9*5P J9*5 P J9*5@P 
J9*5`P 
J9*6P J9*DP J9*D P J9*D@P J9*D`P J9*EP J9*E P J9*E@P J9*E`P J9*FP J9*F P J9*PP J9*TP J9*T P J9*T@P J9*T`P J9*UP J9*U P J9*U@P J9*U`P J9*VP J9*V P J9*`P J9*dP J9*d P J9*d@P J9*d`P J9*eP J9*e P J9*e@P J9*e`P J9*fP J9*f P J9*pP J9*tP J9*t P J9*t@P J9*t`P J9*uP J9*u P J9*u@P  J9*u`P  J9*vP !J9*v P !J9+P J9+P "J9+ P "J9+@P #J9+`P #J9+P $J9+ P $J9+@P %J9+`P %J9+P &J9+ P &J9+P J9+P 'J9+ P 'J9+@P (J9+`P (J9+P )J9+ P )J9+@P *J9+`P *J9+P +J9+ P +J90P J92P J92P ,J92 P ,J92@P -J92`P -J92P .J92 P .J92@P /J92`P /J92P 0J92 P 0J92P J92P 1J92 P 1J92@P 2J92`P 2J92P 3J92 P 3J92@P 4J92`P 4J92P 5J92 P 5J92 P J92$P 6J92$ P 6J92$@P 7J92$`P 7J92%P 8J92% P 8J92%@P 9J92%`P 9J92&P :J92& P :J920P J924P ;J924 P ;J924@P <J924`P <J925P =J925 P =J925@P >J925`P >J926P ?J926 P ?J92@P  J92DP @J92D P @J92D@P AJ92D`P AJ92EP BJ92E P BJ92E@P CJ92E`P CJ92FP DJ92F P DJ92PP  J92TP EJ92T P EJ92T@P FJ92T`P FJ92UP GJ92U P GJ92U@P HJ92U`P HJ92VP IJ92V P IJ92`P !J92dP JJ92d P JJ92d@P KJ92d`P KJ92eP LJ92e P LJ92e@P MJ92e`P MJ92fP NJ92f P NJ92pP !J92tP OJ92t P OJ92t@P PJ92t`P PJ92uP QJ92u P QJ92u@P RJ92u`P RJ92vP SJ92v P SJ93P "J93P TJ93 P TJ93@P UJ93`P UJ93P VJ93 P VJ93@P WJ93`P WJ93P XJ93 P XJ93P "J93P YJ93 P YJ93@P ZJ93`P ZJ93P [J93 P [J93@P \J93`P \J93P ]J93 P ]J98P J9:P #J9:P ^J9: P ^J9:@P J9:`P J9:P `J9: P `J9:@P aJ9:`P aJ9:P bJ9: P bJ9:P #J9:P cJ9: P cJ9:@P dJ9:`P dJ9:P eJ9: P eJ9:@P fJ9:`P fJ9:P gJ9: P gJ9: P $J9:$P hJ9:$ P hJ9:$@P iJ9:$`P iJ9:%P jJ9:% P jJ9:%@P kJ9:%`P kJ9:&P lJ9:& P lJ9:0P $J9:4P mJ9:4 P mJ9:4@P nJ9:4`P nJ9:5P oJ9:5 P oJ9:5@P pJ9:5`P pJ9:6P qJ9:6 P qJ9:@P %J9:DP rJ9:D P rJ9:D@P sJ9:D`P sJ9:EP tJ9:E P tJ9:E@P uJ9:E`P uJ9:FP vJ9:F P vJ9:PP %J9:TP wJ9:T P wJ9:T@P xJ9:T`P xJ9:UP yJ9:U P yJ9:U@P zJ9:U`P zJ9:VP {J9:V P {J9:`P &J9:dP |J9:d P |J9:d@P }J9:d`P }J9:eP ~J9:e P ~J9:e@P J9:e`P J9:fP J9:f P J9:pP &J9:tP J9:t P J9:t@P J9:t`P J9:uP J9:u P J9:u@P J9:u`P J9:vP J9:v P J9;P 'J9;P J9; P J9;@P J9;`P J9;P J9; P J9;@P 	J9;`P 	J9;P 
J9; P 
J9;P 'J9;P J9; P J9;@P 
J9;`P 
J9;P J9;`P J9;P J9; P J9@P J9BP (J9BP J9BP (J9B P )J9B0P )J9B@P *J9BPP *J9B`P +J9BpP +J9CP ,J9CP ,J9HP J9JP -J9JP -J9J P .J9J0P .J9J@P /J9JPP /J9J`P 0J9JpP 0J9KP 1J9KP 1K@ K @ K0@ K@@ K
HgP QK
\P KN@ KI`P "K2NI6P K3S@P K6I`P "K7N'P 
+P K:!`P K:$h= x@H

	IFN Dx`EBUG,<EXTERNAL COyRESW,KILL,KILLF,%y ATIME,%RATIM
y@
	IFDIF <A><O>,<y` EXTERNAL %KILLAz,%KILFA>

	IFDz IF <A><G><
	MOVz@EI	TA,0
	CALLI	Tz`A,$RTIME
	MOVEM	{TA,%RATIM+1
	CA{ LLI	TA,$TIME
	MO{@VEM	TA,%ATIME+1
	IFDIF <A><O><
	MOVE	TA,CORESW
	TLNE	TA,%KILLA|@
	JRST	KILL
	TL|`NE	TA,%KILFA
	J}RST	KILLF
	>>>
} 
	IFIDN <A><A><}@	JRST	COBOLB##>
}`	IFIDN <A><B><	J~RST	COBOLC##>
	I~ FIDN <A><C><	JRS~@T	COBOLD##>
	IFI~`DN <A><D><	JRST	COBOLE##>
	IFIDN  <A><E><IFE FT68@274,<
	SKIPE	OPT`SW##
	JRST	COBOL	O##>
	JRST	COBOL	 F##>
	IFIDN <A>	@<F><	JRST	COBOLG#	`#>
	;NOTE THAT T	HERE IS NO ENTRY 	 FOR "G", THAT'S T	@AKEN CARE OF IN C	`OBOLG
	;NOTE THA	T THERE IS NO ENT	 RY FOR "O" -- TAK	@EN CARE OF IN COBOLO
	OF IN COBK:%GP hK:%@ K;$\GP K;&.'P 
K;5GP $K?`P GKBI`P #KG,P iKJP KK;r 	`I>E.A==:A
		.XCREFE.APK!KZ-c@PK<KZ..'PKjK^+UK@K^+[KbKc%h'P LE`P 	M%)P!MMh1P MeP Mf~(P Mv[ P  MP M0P$M^P @MwP M9P$M93P"MX@P M
Lx{P @M
v[ P MwP @MX@P M? P MdhP MdiP M}XtP$M}]rP"M~ Q  MpP FM,-3Q M8`Q  M{ Q M|Q M%P M|`Q @M|iHP#M|iIP MP$M+yP M(`Q  MF
@P MH6Q MMLqP  Mex:P M$X`P  M.LzP#!MtY`P M%Z7P  M&	9P!M"-LP!M&<;GP M&dS@P jM&dXgP %M&d[P %M&d[GP M&eI'P M&f=P 1M&tP YM&tC@P M'=P kM2
x:I:iM2.MP@M2NIPLM2tY`PM3&NQM3<WP"M6Q`M:ySPM:&LQQM:,YP$@M:|<Q.@M:}LzQMM:~=1P%M:~I@P M>(xP M>)1Q M>~C@P YM?@P M?`P kM?LGP MB.-rP MJ,S@P MJ,YP )MJ,[ZQ MJ,xtP$MJ,}rP"MJ-KqP MJe@Q MJ}S@P lMJ~[RP MK&=P MN
O;%yP^O<pP^O>gP^O@@^OJ,P^mOJ~\PZO^^5D(Q O^5D)Q O^5D)Q O^5D*Q @O^5D*Q  O^5F Q O^5K`P$O^G@P O^eP"O^uJ:P O^u}P$O\{P!OwP @Q,I1Q Q.*7Q @Q.kQ  Q
IgP ZQ'4P `R@P RDP RHP RLP RPP SpP GSpP StI8P S8pP nS:$XvP S:$^P GS:%gP [S:%h'P S:'	P HS:NC@P S:NKP S;]P nS;gP IS;-P S;H'P &S;$\G 	@I.
INTERN		`A
IFN DEBUG,<SIXBIT /A/>
	SIXS;$|GPS;%s@PoS;4PoS;5zgPSS<pPmS>{GP&SBHP SLpP bSN
@ YqlwP"Y
C@P pY6C@P IY3@@ qY&P Y&i`P IY&tgP IY&tS@P qY&u9gP QY' P Y'$\GP Y/kQ Y8@ Y:<;gP JY:>JP Y>3@P rY?4P `YC[GP {YNP YO P YZadP YZad(P YZae
PmYZaeKPYZaekPv[+gP~[E\P-[F=1P$[P%[l,GP&P '[?4S@P [?6; @[?6;` [?6<U `[?6=  [C<9<P [N9`P 7P  [R{YP @[SySP![S{@P"[SpP$[VfJ'P [VfLP (]hP ]n,{Q ]%GP K]
:`P ]<P r]FC@P s]{ZP 
]2NC@P>]<pP?s]>$PP?]>& 	]Ht^P$]HuRP"]N}l`P ]Vl,GP \]Vl\GP t]^MiP 
TXgPv(\GP J!`P ;pP n1`P 6NMP J8pP u:.93P :g@P @@ B-c@P 	BuX<P Bv:=P C%gP )HpP uJ<GP LRD\GP &W&
_^t\GP aP a<S@P $aP 9aP a
@ aP 7akgP 
apPaVai`PaamPa+a pP Ta&`P Ka+= +a+-\ 5@a3`P ]a3.3@P }a;&#@P  a@@ aBq`P QaJ<gP *aJMmP MaJMyP |aJM|GP aJ|3@P aJ|9'P waJ}k'P aJ~C@P aK4>'P aO%c@P *aO%igP *aO&c@P vaR
:P aRn[P aRv)9P aS\`P  aSXzP aS.9 P aSDi9P cV.Y'P cV~I'P aetC@P +e@ epP Ke
C@P 
e
LGP (e
MgP)e`Pwe]GPeh'Pe)P8e$YGPLe-C@Pxe4\GPMedP5ed:PedX'P el'P elGP ,em}GP et'P LeH'P xe|GP ]eIgP e[GP ,e\GP -e]P ^e$P *e$'P e&#@P e&\GP e4\GP ye=GP ye>-P epP We pP Te&=
gC@P {g\GP .g-3@P 
g=Y'P .gdXgP /gfMGP gmgP {gtC@P gvC@P {glwP$g\GP Ng
9'P=,gS@P@/g!`P 
	INTERNAg`L COBOLA
 	ZZ%=h=0				
 IFE ONESh EG,<IFDIF <A><B>h@<IFDIF <A><G><ZZh`%==1>>>	
 IFN ONiESEG,<IFIDN <A><i A><ZZ%==1>>			
 i@IFN ZZ%,<IFDIF <i`A><A>,<PORTAL	.+1j>>	
	MOVEI	TA,"j A"
	MOVEM	TA,PHAj@SEN##
	MOVE	PP,Pj`POINT##
 IFDIF <kA><O>< EXTERNAL k PUREA>		


IFk@N ZZ%,<
 IFE ONEk`SEG,<
	MOVEI	TA,lKILL##
	MOVEM	TAl ,WEDIED##+1
>
 l@IFE TOPS20,<
	MOl`VEI	TA,UUOKIL##		m;[1345] POINT TO m ARG BLOCK
	MOVEMm@	TA,.JBINT##		;[1m`345] 
	MOVE	TA,[nXWD 4,UUOC1##]	;[n 1345] LNGTH, RTN
	MOVEM	TA,UUOKILn`+0		;[1345]
	MOVoE	TA,[EXP ER.MSG!o ER.EIJ]	;[1345] No@O MONITOR MSG
	Mo`OVEM	TA,UUOKIL+1	p	;[1345]
	SETZM	p UUOKIL+2		;[1345]p@ WILL BE PROG'S Pp`C
	SETZM	UUOKIL+q3		;[1345] WILL Bq E INTERRUPT CAUSEq@
 >;[1345]
	MOVq`EI	TA,REDO##
	HRrRM	TA,.JBSA##
	Mr OVEI	TA,RESTRT##
	HRRM	TA,.JBREN#r`#
	MOVE	TA,[PUSHsJ PP,UUOCAL##]
	s MOVEM	TA,.JB41##
	MOVEI	TA,XPNPPLs`##
	HRRM	TA,.JBAtPR##
	MOVEI	TA,$t APRF
	CALLI	TA,$t@APREN
 >
 IF2,<t`	PURGE	ZZ%>

 IuFN DEBUG,<EXTERNAu L %ATIME,%RATIMu@
  IFE TOPS20,<Eu`XTERN	DDT>
  IFDvIF <A><A><IFDIF v <A><G><IFDIF <Av@><B><
	TTCALL	3,v`[ASCIZ "PHASE A
"]
 >>>
	CALLIw 	TA,$TIME
	MOVEMw@	TA,%ATIME
	MOVw`EI	TA,0
	CALLI	TxA,$RTIME
	MOVEM	TA,%RATIM
>M	gP gP gP gmmP !g"#@P +g&=c@P 0g'D-P :g'TS@P g.,:P g/h6 	 I2
IFN DEBUG,<JRST	.+2>
	g2:Pg~g>pPgg>tP g?C@P 
9'P agB,:'P 1gB,;GP gJP gK%YgP OgN
IP gNP gRM'P gR$gP 6gRtD'P OgR~P gR~)'P gSGP gSi`P /gV'P gVGP gVgP gVLGP gVi`P gW
GP g\@ g^|i@ a@F
SWTEST A,ZSWTEST A,g^|iY gF8SWTEST A,ZASWTEST A,g^}` aFSWTEST A,OSWTEST A,g^}l` f@F4SWTEST A,OASWTEST A,g_]Q 8>g_$:P g_$\z _F
	IFLE A_ -777777,<TRB SW,_@A>
	IFG A-7777_`77,<
	IFE A&777`777,<TLB SW,(A)` >
	IFN A&777777`@,<TDB SW,[A]>
	>
	SW,[A]>
gcP gfl+P gft:P Nght9P ght;wP ght<P ghtH:P ghtHRP ghtI;P ghtKqP ght^P ghtj6P 
ghv
KP ghv
WP ghv,P ghv,P ghv,P 
ghvI6P ghvK)P ghv\rP ghvh6P'i@ iI'P iI9 	I
	XLIST
	 	TABSET NAM,900,0	@,NAMTAB,2,2,0
	T	`ABSET EOP,50,20,E	OPTAB,2,0,0
	TAB	 SET SEC,200,10,SE	@CTAB,2,2,0
	TABS	`ET FIL,150,50,FIL	TAB,1,2,1
	TABSE	 T DAT,800,600,DAT	@AB,1,2,1
	TABSET	` CON,50,100,CONTA	B,1,2,1
	TABSET 	 LIT,500,200,LITAB	@,2,2,1
	TABSET P	`RO,200,150,PROTAB	,1,2,1
	TABSET E	 XT,600,50,EXTAB,2	@,1,1
	TABSET VAL	`,100,200,VALTAB,1	,0,1
	TABSET MNE	 ,40,10,MNETAB,1,2	@,1
	TABSET FLO,2	`00,200,FLOTAB,1,2		,1
	TABSET CPY,3		 0,30,CPYTAB,0,0,1		@
	TABSET HLD,50,		`20,HLDTAB,1,0,1
	
	TABSET RPW,2,200	
 ,RPWTAB,1,0,1
IF	
@N DBMS!ANS74,<
		
`TABSET USE,2,10,U	SETAB,1,0,1
>
I	 FN DBMS,<
	TABSE	@T DBD,600,200,DBD	`TAB,0,0,1
	>
IF	
N MCS!TCS,<
	TAB	
 SET CD,200,100,CD	
@TAB,2,2,1
	>
IF	
`N ANS74,<
	TABSE	1,20,AKTTAB	
	TABSET	D	EBTAB,2,	
>
	TABSET A	LT,20,20,ALTAB,2,	 2,0
	TABSET REN,	@2,10,RENTAB,1,0,1	`
	TABSET TAG,300	,100,TAGTAB,2,1,0	 
	TABSET RES,20,	@10,RESTAB,2,0,0
	`	TABSET TEM,12,10	,TEMTAB,0,0,1
	T	 ABSET CRF,2,1000,	@CRFTAB,0,0,0
	LIST

	0,0
	LIi9: 	`I8
IFN G,<	CD.A==ZZ
	ZZ==ZZ+1>
Z
	ZZ==ZieN P biS@P 2i@ i
@ i
t P i
tH@P @i
t\P  i
tx@P i
v	PPiPi@i@iS@Pi[P#iFC@Pi"`P Qi?4HP iJ
3@P iJ!eLP iO!elP iO!iP iO!jP iO!jP iO!j1P iO!kP iO!kYP iO!lXP iO!m\P iO<0 bFSWTEST A,CSWTEST A,iO<` b@FSWTEST A,NESWTEST A,iO<h` e@F,SWTEST A,CESWTEST A,iO<l` d@F$SWTEST A,OESWTEST A,iO<n@ c@FSWTEST A,ZESWTEST A,iO>@ cFSWTEST A,NNSWTEST A,iO>H` fF0SWTEST A,CNSWTEST A,iO>L` eF(SWTEST A,ONSWTEST A,iO>N@ dF SWTEST A,ZNSWTEST A,iSHP ic%I7P (igPP igS@P Sk-J6P 0k:h'P (k:{ZP k:NC@P xk;I9P 0k;L@P 1k;LGP k;%P ~k@pP kB$P kB}c@P kN
y'P OkN)`P kN.+GP kN=YP kNMigP mfY'P Om'P m#@P &m&	`P -m>\:P nD@ nH@ o"-c@P o'%@P o'%GP o?LgP 2o?:'P PoJNI'P qBvLzP us@P buhP  	`I(

IFE D,<	
IFDIF <B><0>,<	 IFNDEF B,<EXTERN	@ B>>
	>
NS.==-	`1
IRP F<NS.==NS	.+1>
IFE NS.,<
	 IFIDN <F><0><NS.	@==-1>
	>
	INTER	`. A
IFN DEBUG,<	XLIST>
A:	XWD 	 B,NS.*1B23+D*1B2	@4+E*1B25+C
	XL	`IST
IFGE NS.,<BY	TE	(18)F>
	LIST
	8)F>
	LISTY@ 	I

$ (A,B,C,D,E,F)
]  I

,F)
	f@P)@P"0	46P 	
M`PP	&P!	f5PP	}lvPP	~)PP	P 	PP 
	.htP 	N)1P 	dPP 	0P"	$P  	~@P 	`P'@	EP 	0P 	&93P 	# P 	&eY6P  	&pP 	20P 	3@P @	7$P  	:}i<P 	?.@P 	BUx@P 
	C}SP"	G P 	J.9:P 	J.pP 	K%2P 	K-`P 	RMY P 		RnyP 	S'P 	[ P 	^

8`P 
@P 
4 P 
d+P 
P 
PP 
.0P3TP3YP3YPqh9P$qi1P"ah1P	ah7PakZPpP 	"aj|P "akP "alQP "alqP "alvP "alyP "al|P "am8P "amRP "amTP "amXP 2CWP 2CWP 2CYP J!d+P J!d@P J!e P J!eIP J!fP J9hsP J9htP J9iP J9kP J9kXP J9lP J9lP J9lP J9lSP J9lTP J9lvP J9lyP J9mVP JieQP JieqP JihWP Jii1P JilpP Ki;P KkrP Wd1P WdQP WhhP WhiP WhiP WiP WiP WiP Wi1P Wj7P W!iP W!i9P W!j7P W!kP W!kxP W!lXP }[0P z~+P ~,YP 
~,}P ~.P S@P "-	P ".*7P ".:=P 	".kP K><QP >}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.