Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-build/p.unv
There are 15 other files named p.unv in the archive. Click here to see a list.
x
,5@P C
P C
P C
 P  C
0P 0C
@P @C
PP PC
`P `C
pPpCC\P0C\gP[C&X'P!7C!`PCT,b`C4GP`C$\GP `C2a`P cC2e}gP 'C3+GP 	C3'P @C3GP aC3	'P BC3P @C3GP AC3

CCN'P =CJ)`PbCJ,@PMCJ:XQMCJ:qQCJ:)XQ CJ:-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"EJgP=E5|GPdE=GPdE&pPE&v.'P:E2q`P GpP GtzP Gt;wP Gt<P GtH:P GtHRP GtI1P Gt^P Gtj6P GtkP GuP GuJ:P Gu[RP Gv

SP 	Gv

WPGv(wPGv)7PGv,P GvH3PGvI6P	Gv\rP Gvh6PGt'PG]P 1GpPVG@G;pP UG"{P eG>$S@P G>a`P WG>eH'P 1G>e{GP zG>hP G>mS@P G>mX P 3G>m[GP BG>n@P BG>n'P BG>nGP NG>ngP CG>nGP /G>n
6P XG>nJ'P G>tigP #G>v;P aG>vC@P G>vH'P CG>vLGP XG>vlZP G>vlgP CG>vmP DG?@P G?T  2REMARKG?#@P fG?-mP G@@ GCHP GJ0P GP@ GWmP GW#@P G[$) @G[$) `G[$+` G[$HZ  IP I$@P $I$GP I$SGP I$XgP $I$]gP DIIc@P 2I
7P I
IP I
\^'P DI
n0P I
n5@P IYZP I[7P I\P I\tP I\wP I\xP I]8P I

P IpP UIY`P IYgP 2IH'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?9`P DI?=c@P hIOEGP EIOEgP EIOF'P FIP@ IWC@P I\P I^4P I^MXRP"Ift'P 3J9P 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 J9B P J9B@P J9B`P J9BP J9B P J9B@P J9B`P J9BP J9B P J9BP (J9BP J9B P J9B@P J9B`P J9BP J9B P J9B@P J9B`P J9BP J9B P J9B P )J9B$P J9B$ P J9B$@P J9B$`P J9B%P J9B% P J9B%@P J9B%`P J9B&P J9B& P J9B0P )J9B4P J9B4 P J9B4@P  J9B4`P  J9B5P !J9B5 P !J9B5@P "J9B5`P "J9B6P #J9B6 P #J9B@P *J9BDP $J9BD P $J9BD@P %J9BD`P %J9BEP &J9BE P &J9BE@P 'J9BE`P 'J9BFP (J9BF P (J9BPP *J9BTP )J9BT P )J9BT@P *J9BT`P *J9BUP +J9BU P +J9BU@P ,J9BU`P ,J9BVP -J9BV P -J9B`P +J9BdP .J9Bd P .J9Bd@P /J9Bd`P /J9BeP 0J9Be P 0J9Be@P 1J9Be`P 1J9BfP 2J9Bf P 2J9BpP +J9BtP 3J9Bt P 3J9Bt@P 4J9Bt`P 4J9BuP 5J9Bu P 5J9Bu@P 6J9Bu`P 6J9BvP 7J9Bv P 7J9CP ,J9CP 8J9C P 8J9C@P 9J9C`P 9J9CP :J9C P :J9C@P ;J9C`P ;J9CP <J9C P <J9CP ,J9CP =J9C P =J9C@P >J9C`P >J9CP ?J9C P ?J9C@P @J9C`P @J9CP AJ9C P AJ9HP J9JP -J9JP BJ9JP -J9J P .J9J0P .J9J@P /J9JPP /J9J`P 0J9JpP 0J9KP 1J9KP 1K@ K @ K0@ K@@ K
HgP ;KN@ KI`P "K2NI6P K3S@P K6I`P "K7N'P 

+P K:!`P K:$h= 	
pI'

 IFN D	EBUG,<EXTERNAL CO	0RESW,KILL,KILLF,%	PATIME,%RATIM
	p
  IFDIF <A><G><	


    IFE TOPS20,	

0<
	MOVEI	TA,0
		

PCALLI	TA,$RTIME
	

p	MOVEM	TA,%RATIM	
	CALLI	TA,$TI	
	MOVEM	TA,%A	
    >
p 	IFN TOPS20,<
		MOVEI	T1,.FHSLF	;	0Get runtime for t	Phis fork
	RUNTM%	p			;Get runtime a	nd current time
	0	MOVEM	T1,%RATIM	P+1	;Save runtime
	MOVEM	T3,%ATIM	E+1	;Save current	0 time
    >
	MO	PVE	TA,CORESW
	TL	pNE	TA,%KILLA
	J	RST	KILL
	TLNE	T	0A,%KILFA
	JRST		PKILLF
 >>

	IF	pIDN <A><A><	JRST		COBOLB##>
	IFID	0N <A><B><	JRST	C	POBOLC##>
	IFIDN 	p<A><C><	JRST	COB	OLD##>
	IFIDN <	0A><D><	JRST	COBOL	PE##>
	IFIDN <A>	p<E><
	SKIPE	OPTS	W##
	JRST	COBOLO	0##
	JRST	COBOLF#	P#>
	IFIDN <A><F	p><	JRST	COBOLG##>


COBOLG##>K:%GP hK:%P K:'P _K;$\GP K;&.'P 
K;5GP $K?`P 3KBI`P #KG,P iKJP KK;r 	*0JSE.A==:A
		.XCREFE.APQ!KXtI8PKKXv:=PKXv=PPKZKZ..'P jKZ4ZQ  KZM\Q @KZu}Q @KZwwQ  KZ~JQ K[4;P K[4[P K[8ZQ K[%

QQ K[%

ZQK[=	7QbK^+U@K^+[cPKbc$[R `Kc$\GP EKc%h'P LE`P 	M%)P!MMh1P MeP Mf9'P EMf~(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[GP M&eI'P M&f=P 1M&tP YM&tC@P M'=P kM0uJ1P M0v);P M2

x: 	*pJW
	PUSHJ	PP,TST.A##
J	PM2.MPP@M2NIPPM2tY`PQM3&NQMM3<WP"M6QPM:ySPMM:&LQQM:,YPM@M:|<QM@M:}LzQQM:~=1PPM:~I@PPM>(xPQM>)1QOM>~C@PPYM?@PPM?`PPkMB.-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@@^OJ,P^mOJ~\P^ZO^ O^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 

SNp @S8pP nS:$XvP S:$^P GS:%gP [S:%h'P S:'	P HS:NC@P S:NJ'P S:NKP S;]P nS;gP S;-P S;H'P &S;$\G 	'0J=
INTERN		'PA
IFN DEBUG,<SIXBIT /A/>
	SIXS;$|GP S;%s@P oS;4P oS;5zgP SS<pP mS>{GP &S>5 b0FO
	IOLIST bPSRC,200,^D36,7,0
	IOLIST LST,200,c7,7,0
	IOLIST BIc0N,200,^D36,^D36,0cP
	IOLIST LIB,200cp,^D36,7,0
	IOLISdT NAM,200,^D36,^Dd036,1
	IOLIST ERAdP,200,^D36,^D36,1
	IOLIST GEN,200,e^D36,^D36,1
	IOLe0IST CPY,200,^D36,eP7,1
	IOLIST AS1,ep200,^D36,^D36,1
f	IOLIST AS2,200,^f0D36,^D36,1
	IOLIfPST AS3,200,^D36,^fpD36,1
	IOLIST LIgT,0,^D36,^D36,1
g0	IOLIST CRF,200,^gPD36,^D36,1
	IOLIgpST SF1,200,^D36,^hD36,1
	IOLIST SFh02,200,^D36,^D36,1hP
	IOLIST SF3,200hp,^D36,^D36,1
	IOiLIST DMP,200,7,7
 IFN DBMS,<
	IOiPLIST DBC,200,7,7,ip1
	IOLIST DBD,200,7,7,1
>BD,20SBHP SLpP bSb$P Sb$ P Sb%}`P SbE@P Sbe}{P Sc[zP Sc1P SctP Sc%2P Sc%yP ScT\WP U?.+GP +UWC@P HWP  WHP pY[P YC@P Y

@ YqlwP"Y

C@P pY6C@P IY3@@ qY&P Y&i`P IY&tgP 5Y&tS@P qY&u9gP QY' P Y'$\GP Y/kQ Y8@ Y:<;gP 5Y:>JP Y>3@P rY?4P `YC[GP {YNP YO P YZadP YZad(P YZae

PmYZaeKPYZaekPv[+gP~[E\P-[EJ:P$[F=1P%[F{P&[P4[l,GP6 @[?6;` [?6<U `[?6=  [C<9<P [N9`P 

ZP$[ST\WP![VfJ'P [VfLP ([bfEjP <[bfF	P P[c\SP ]hP ]n,{Q ]%GP 6]

:`P ]<P r]FC@P s]{ZP 
]2NC@P>]<pP?s]>$PPH]>&$]HuRP"]N}l`P ]Vl,GP \]VlYP G]Vl\GP t]^MiP 
TXgP (_\GP J_!`P ;_pP n_1`P _6NMP J_8pP u_:.93P _:g@P _@@ _B

8rP _B

=P -_B

IP _B

IP _B

MP ?BP BQP ,B,P 8BJ;P B[RP B^P BKyP BLRP B]6P B{P #B{8P B=1P B$;P B$;P B$[P )B%pP -B%xP B%@P B%QP B,i7P 3B,m7P 2B-LrP 
_B-c@P 	_B-iP _B-iP _B-iP '_B-lZP 6_B-mP _B.

SP <_B.(:P _B.)P 5_B.)7P 4_B.-7P 4_B.h6P :_B.iwP >_B.kRP =_B.lyP >_B/

P _B4[XP 1_B6[PP 2_B<[YP *_B=TP &_B=pP 

_B=yP 

_BL`P _BLh`P _BLiP ,_BLmP 	_BLm P 
_BMj:P )_BMlP %_BMlqP 6_BMlxP _BMlyP 7_BMlzP 7_BN

SP);BNKPX;BV[8PXB\^ PY$Bf9P[Bl\SP['Bm}RP[Bn[P\Bn[P\BuX<P]aBu{xP#Bv:=PIBvL\PXB~	7PXB~]P[%CWP[PC\SP]P 9C]P C]P C]P CQP C|ZP $C
3P 	CKxP CLWP/CLZP CX@P CXSP C\P 8C{sP :C{wP 9C$wP !C$\VP *C%gP )C&(1P +C&-2P <C,I6P 0C-lrP 0C-lzP 1C.9P C.9 P C.:7P &C>*:P CLXqP "HpP uJ$\GP GJ<GP 7RD\GP &W&
	PUSH	PPv0,T1
	HRROI	T1,AvP
	PSOUT%
	POP	PP,T1
%
	POP	P_[kP 

_^t\GP aP a$C@P Ha<S@P $aP 9aP a

@ akgP 
apPaVai`PaamPa+a pP Ta&`P Ka+= +a+-\ 5@a3`P ]a3.3@P }a;&#@P  a@@ aBq`P QaJ<gP *aJMmP 8aJMyP |aJM|GP aJ|3@P aJ|9'P waJ}k'P aJ~C@P aJ~HgP -aK4>'P aO%c@P *aO%igP *aO&c@P vaR
:P aRn[P aRv)9P aS\`P  aSXzP aS.9 P aSDi9P aWs@P 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\GP8edP5ed:PedX'P el'P em}GP et'P LeH'P xeHgP e|GP ]eIgP e[GP ,e\GP -e]P ^e$P *e$'P e&#@P e&\GP e4\GP ye=GP ye>-P epP Wel-Q emI7Q emyP He pP Te&=

gC@P {g\GP .g=Y'P .gdXgP /gfMGP gmgP {gtC@P gvC@P {glwP$g\GP 9g

9'P=,gS@PS/g!`P 
	INTERNAw0L COBOLA
 	ZZ%=wP=0				
 IFE ONESwpEG,<IFDIF <A><B>x<IFDIF <A><G><ZZx0%==1>>>	
 IFN ONxPESEG,<IFIDN <A><xpA><ZZ%==1>>			
 yIFN ZZ%,<IFDIF <y0A><A>,<PORTAL	.+1yP>>	
	MOVEI	TA,"ypA"
	MOVEM	TA,PHAzSEN##
 IFN TOPS2z00,<IFDIF <A><A>,zP<MOVE	PP,PPOINT##zp>>	
 IFDIF <A><{O>< EXTERNAL PURE{0A>		


IFN ZZ{P%,<
 IFE ONESEG,{p<
	MOVEI	TA,KILL|##
	MOVEM	TA,WED|0IED##+1
>
IFE T|POPS20,<
	MOVEI	T|pA,UUOKIL##		
	MO}VEM	TA,.JBINT##		}0
	DMOVE	TA,[4,,U}PUOC1##		
		EXP E}pR.MSG!ER.EIJ]	
	~DMOVEM	TA,UUOKIL	~0	
	SETZM	UUOKIL+~P2		
	SETZM	UUOKI~pL+3		
>
	MOVEI	TA,REDO##
	HRRM	0TA,.JBSA##
	MOVEPI	TA,RESTRT##
	HpRRM	TA,.JBREN##
		MOVE	TA,[PUSHJ P	0P,UUOCAL##]
	MOV	PEM	TA,.JB41##
IF	pE TOPS20,<
	MOVE	I	TA,XPNPPL##
	H	0RRM	TA,.JBAPR##
	P	MOVEI	TA,$APRF
	p	CALLI	TA,$APREN
  >
 >
 IF2,<		0PURGE	ZZ%>

	IF	PN DEBUG,<EXTERNAL	p %ATIME,%RATIM
  IFE TOPS20,<EX	0TERN	DDT>
  IFDI	PF <A><A><IFDIF <	pA><G><IFDIF <A>	<B><
   IFE TOPS	020,<
	OUTSTR	[AS	PCIZ "PHASE A
"]	p
    >
   IFN T	OPS20,<
	PUSH	PP	0,T1
	HRROI	T1,[A	PSCIZ "PHASE A
"	p]
	PSOUT%
	POP		PP,T1
    >
 >>	0>
    IFE TOPS20	P,<
	CALLI	TA,$TI	pME
	MOVEM	TA,%A	TIME
	MOVEI	TA,0	0
	CALLI	TA,$RTIM	PE
	MOVEM	TA,%RA	pTIM
    >
    I	FN TOPS20,<
	MOV	0EI	T1,.FHSLF	;Get	P runtime for this	p fork
	RUNTM%					;Get runtime and 		0current time
	MO		PVEM	T1,%RATIM	;S		pave runtime
	MOV	
EM	T3,%ATIME	;Sa	
0ve current time
    >
> time
gP gP gP gmmP !g"#@P +g&=c@P 0g'D-P :g'TS@P g.,:P g/h6 	(JA
IFN DEBUG,<JRST	.+2>
	g2:Pg~g>pPgg>tP g?C@P 

9'P agB,:'P 1gB,;GP gJP gK%YgP 9gN

IP gNP gRM'P gR$gP 6gRtD'P :gRtDGP IgR~P gR~)'P gSGP gSi`P /gV'P gVGP gVgP gVLGP gVi`P gW

GP g\@ g\r-qP!g\tjQ g\t	Q g\v9wP"g\v=Q  g^|i@ pGSWTEST A,ZSWTEST A,g^|iY uPG-SWTEST A,ZASWTEST A,g^}` oPF}SWTEST A,OSWTEST A,g^}l` uG)SWTEST A,OASWTEST A,g_]Q (

g_$:P g_$\z mPFy
	IFLE Amp-777777,<TRB SW,nA>
	IFG A-7777n077,<
	IFE A&777nP777,<TLB SW,(A)np>
	IFN A&777777o,<TDB SW,[A]>
	>
	SW,[A]>
gcP gfGP 	gfl+P gft:P NghtzP ght9P ght;wP ght<P ghtH:P ghtHRP ghtI1P ghtKqP ght^P ghtj6P ghtkP ghuP ghuJ:P ghu[RP ghu\uP ghu}9P 
ghv

KP ghv

SP ghv

WP ghv(wP ghv,P ghv,P 
ghv,P ghv91P ghvI6P ghvK)P ghv\rP ghvh6P'hDP hHP hLP i@ iI'P iI9 	0J
	XLIST
	P	TABSET NAM,900,0	p,NAMTAB,2,2,0
	T	ABSET EOP,50,20,E	0OPTAB,2,0,0
	TAB	PSET SEC,200,10,SE	pCTAB,2,2,0
	TABS	ET FIL,150,50,FIL	0TAB,1,2,1
	TABSE	PT DAT,800,600,DAT	pAB,1,2,1
	TABSET	 CON,50,100,CONTA	0B,1,2,1
	TABSET 	PLIT,500,200,LITAB	p,2,2,1
	TABSET P	RO,200,150,PROTAB	0,1,2,1
	TABSET E	PXT,600,50,EXTAB,2	p,1,1
	TABSET VAL	,100,200,VALTAB,1	0,0,1
	TABSET MNE	P,40,10,MNETAB,1,2	p,1
	TABSET FLO,2	00,200,FLOTAB,1,2	0,1
	TABSET CPY,3	P0,30,CPYTAB,0,0,1	p
	TABSET HLD,50,	20,HLDTAB,1,0,1
	0	TABSET RPW,2,200	P,RPWTAB,1,0,1
	T	pABSET RCO,2,100,R	COTAB,1,0,1
	TAB	0SET USE,2,10,USET	PAB,1,0,1
IFN DBM	pS,<
	TABSET DBD,	600,200,DBDTAB,0,	00,1
	>
IFN MCS,	P<
	TABSET CD,200	p,100,CDTAB,2,2,1
	>
	TABSET	AKT,	01,20,AKTTAB,2,2,1	P
	TABSET	DEB,2,1	p0,DEBTAB,2,2,1
		 TABSET ALT,20,20,	 0ALTAB,2,2,0
	TAB	 PSET REN,2,10,RENT	 pAB,1,0,1
	TABSET	!	PRG,10,10,PRGTAB	!0,2,2,1
	TABSET T	!PAG,300,100,TAGTAB	!p,2,1,0
	TABSET R	"ES,20,10,RESTAB,2	"0,0,0
	TABSET TEM	"P,12,10,TEMTAB,0,0	"p,1
	TABSET CRF,2	#,1000,CRFTAB,0,0,0
	LIST

	0,i9: 	(PJG
IFN G,<	(pCD.A==ZZ
	ZZ==ZZ+1>
Z
	ZZ==ZiS@P 2i@ i

@ i

t P i

tH@P @i

t\P  i

tx@P i

v	PPi@i@iS@Pi[P#iC@PIiFC@Pi"`P <i?4HP iJ

3@P iJ

90P iJ

92P iJ

92P iJ

94P iJ

98PiJ,S@P,JiO<0pPGSWTESTA,CSWTESTAA,iO<`qG	SWTESTA,NESWTESTAA,iO<h`tG!SWTESTA,CESWTESTAA,iO<l`sGSWTESTA,OESWTESTA,iO<n@SrGSWTESTA,ZESWTESTA,iO>@KqPG 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 B 	#PJ7

IFE D,<	#p
IFDIF <B><0>,<	$IFNDEF B,<EXTERN	$0 B>>
	>
NS.==-	$P1
IRP F<NS.==NS	$p.+1>
IFE NS.,<
	%IFIDN <F><0><NS.	%0==-1>
	>
	INTER	%P. A
IFN DEBUG,<	%pXLIST>
A:	XWD 	&B,NS.*1B23+D*1B2	&04+E*1B25+C
	XL	&PIST
IFGE NS.,<BY	&pTE	(18)F>
	LIST
	8)F>
	LIST	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 
P 
PP 
.0P3TP3YP3YPqh9P$qi1P"qlhP$qliP!ah1Pah7P	akZPP "alP 
"alQP "alqP "alvP "alyP "al|P "am8P "amRP "amTP "amXP .MIPP .MIQP .MIQP .MIRP .MIRP .MISP  .MISP @.MIWP!.MKP .MKP .MKP .MKP .MKP .MKP .MKP .MKP  .MKP @2CWP 2CYP 31dP 31eLP  31fP 31iP 31jP 31jP 31j1P @31kP 31kP 31kYP 31lXP 31m\P ?sTP ?sYP ?sYP 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 f~,}P G~.P FS@P ",I1P c"-	P ".*7P ".:=P c".kP bK><QP >}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.