Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/build/p.unv
There are 15 other files named p.unv in the archive. Click here to see a list.
x
,5n@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 GtzP Gt9P Gt;wP Gt<P GtH:P GtHRP GtI1P 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[$) @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= y H

	IFN Dy@EBUG,<EXTERNAL COy`RESW,KILL,KILLF,%zATIME,%RATIM
z 
	IFDIF <A><O>,<z@ EXTERNAL %KILLAz`,%KILFA>

	IFD{IF <A><G><
	MOV{ EI	TA,0
	CALLI	T{@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##>
	IFIDN <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 	`IFE.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: 	 IB
	PUSHJ	PP,TST.A##
J	PM2.MPP@M2NIPPM2tY`PQM3&NQMM3<WP"M6QPM:ySPMM:&LQQM:,YPM@M:|<QM@M:}LzQPM:~=1P@M:~I@PPM>(xPPM>)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 	 I4
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@PF/g!`P 
	INTERNAh@L COBOLA
 	ZZ%=h`=0				
 IFE ONESiEG,<IFDIF <A><B>i <IFDIF <A><G><ZZi@%==1>>>	
 IFN ONi`ESEG,<IFIDN <A><jA><ZZ%==1>>			
 j IFN ZZ%,<IFDIF <j@A><A>,<PORTAL	.+1j`>>	
	MOVEI	TA,"kA"
	MOVEM	TA,PHAk SEN##
	MOVE	PP,Pk@POINT##
 IFDIF <k`A><O>< EXTERNAL lPUREA>		


IFl N ZZ%,<
 IFE ONEl@SEG,<
	MOVEI	TA,l`KILL##
	MOVEM	TAm,WEDIED##+1
>
 m IFE TOPS20,<
	MOm@VEI	TA,UUOKIL##		m`;[1345] POINT TO nARG BLOCK
	MOVEMn 	TA,.JBINT##		;[1n@345] 
	MOVE	TA,[n`XWD 4,UUOC1##]	;[o1345] LNGTH, RTN
	MOVEM	TA,UUOKILo@+0		;[1345]
	MOVo`E	TA,[EXP ER.MSG!pER.EIJ]	;[1345] Np O MONITOR MSG
	Mp@OVEM	TA,UUOKIL+1	p`	;[1345]
	SETZM	qUUOKIL+2		;[1345]q  WILL BE PROG'S Pq@C
	SETZM	UUOKIL+q`3		;[1345] WILL BrE INTERRUPT CAUSEr 
 >;[1345]
	MOVr@EI	TA,REDO##
	HRr`RM	TA,.JBSA##
	MsOVEI	TA,RESTRT##
	HRRM	TA,.JBREN#s@#
	MOVE	TA,[PUSHs`J PP,UUOCAL##]
	tMOVEM	TA,.JB41##
	MOVEI	TA,XPNPPLt@##
	HRRM	TA,.JBAt`PR##
	MOVEI	TA,$uAPRF
	CALLI	TA,$u APREN
 >
 IF2,<u@	PURGE	ZZ%>

 Iu`FN DEBUG,<EXTERNAvL %ATIME,%RATIMv 
  IFE TOPS20,<Ev@XTERN	DDT>
  IFDv`IF <A><A><IFDIF w<A><G><IFDIF <Aw ><B><
	TTCALL	3,w@[ASCIZ "PHASE A
"]
 >>>
	CALLIx	TA,$TIME
	MOVEMx 	TA,%ATIME
	MOVx@EI	TA,0
	CALLI	Tx`A,$RTIME
	MOVEM	TA,%RATIM
>M	gP gP gP gmmP !g"#@P +g&=c@P 0g'D-P :g'TS@P g.,:P g/h6 	I8
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@ b FSWTEST A,ZSWTEST A,g^|iY g`F>SWTEST A,ZASWTEST A,g^}` a`FSWTEST A,OSWTEST A,g^}l` g F:SWTEST 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)a>
	IFN A&777777a ,<TDB SW,[A]>
	>
	SW,[A]>
gcP gfl+P gft:P NghtzP ght9P ght;wP ght<P ghtH:P ghtHRP ghtI1P 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	CD,200,100,CD	
	>
IF	ANS74,<
	TABSE	1,20,AKTTAB	,2,2,1
	TABSET	D	 EB,2,10,DEBTAB,2,	@2,1
>
	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: 	@I>
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<0 b`FSWTEST A,CSWTEST A,iO<` c FSWTEST A,NESWTEST A,iO<h` f F2SWTEST A,CESWTEST A,iO<l` e F*SWTEST A,OESWTEST A,iO<n@ d F"SWTEST A,ZESWTEST A,iO>@ c`FSWTEST A,NNSWTEST A,iO>H` f`F6SWTEST A,CNSWTEST A,iO>L` e`F.SWTEST A,ONSWTEST A,iO>N@ d`F&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

Y/k]  	I

$ (A,B,C,D,E,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 31dP 31eLP  31fP 31iP 31jP 31jP 31j1P @31kP 31kP 31kYP 31lXP 31m\P 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 ",I1P 	"-	P ".*7P ".:=P 	".kP K><QP >}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.