Google
 

Trailing-Edge - PDP-10 Archives - BB-H580E-SB_1985 - p.unv
There are 15 other files named p.unv in the archive. Click here to see a list.
x
,5o@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= 
ugy

	IFN D
u0EBUG,<EXTERNAL CO
uPRESW,KILL,KILLF,%
upATIME,%RATIM

v
	IFDIF <A><O>,<
v0 EXTERNAL %KILLA
vP,%KILFA>

	IFD
vpIF <A><G><
	MOV
wEI	TA,0
	CALLI	T
w0A,$RTIME
	MOVEM	
wPTA,%RATIM+1
	CA
wpLLI	TA,$TIME
	MO
xVEM	TA,%ATIME+1
x0
	IFDIF <A><O><
xP
	MOVE	TA,CORESW
xp
	TLNE	TA,%KILLA
y
	JRST	KILL
	TL
y0NE	TA,%KILFA
	J
yPRST	KILLF
	>>>
yp
	IFIDN <A><A><
z	JRST	COBOLB##>
z0	IFIDN <A><B><	J
zPRST	COBOLC##>
	I
zpFIDN <A><C><	JRS
{T	COBOLD##>
	IFI
{0DN <A><D><	JRST	
{PCOBOLE##>
	IFIDN
{p <A><E><IFE FT68
|274,<
	SKIPE	OPT
|0SW##
	JRST	COBOL
|PO##>
	JRST	COBOL
|pF##>
	IFIDN <A>
}<F><	JRST	COBOLG#
}0#>
	;NOTE THAT T
}PHERE IS NO ENTRY 
}pFOR "G", THAT'S T
~AKEN CARE OF IN C
~0OBOLG
	;NOTE THA
~PT THERE IS NO ENT
~pRY FOR "O" -- TAK
EN CARE OF IN COBOLO
	OF IN COBK:%GP hK:%@ K;$\GP K;&.'P 
K;5GP$K?`PAGKBI`P #KG,P iKHtZ5P  KHu\sQ @KJP KK;r 
		.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:
	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 
S8pPnS:$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 
INTERN	
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 
dg%
	INTERNA
d0L COBOLA
 	ZZ%=
dP=0				
 IFE ONES
dpEG,<IFDIF <A><B>
e<IFDIF <A><G><ZZ
e0%==1>>>	
 IFN ON
ePESEG,<IFIDN <A><
epA><ZZ%==1>>			
 
fIFN ZZ%,<IFDIF <
f0A><A>,<PORTAL	.+1
fP>>	
	MOVEI	TA,"
fpA"
	MOVEM	TA,PHA
gSEN##
	MOVE	PP,P
g0POINT##
 IFDIF <
gPA><O>< EXTERNAL 
gpPUREA>		


IF
hN ZZ%,<
 IFE ONE
h0SEG,<
	MOVEI	TA,
hPKILL##
	MOVEM	TA
hp,WEDIED##+1
>
 
iIFE TOPS20,<
	MO
i0VEI	TA,UUOKIL##		
iP;[1345] POINT TO 
ipARG BLOCK
	MOVEM
j	TA,.JBINT##		;[1
j0345] 
	MOVE	TA,[
jPXWD 4,UUOC1##]	;[
jp1345] LNGTH, RTN
k
	MOVEM	TA,UUOKIL
k0+0		;[1345]
	MOV
kPE	TA,[EXP ER.MSG!
kpER.EIJ]	;[1345] N
lO MONITOR MSG
	M
l0OVEM	TA,UUOKIL+1	
lP	;[1345]
	SETZM	
lpUUOKIL+2		;[1345]
m WILL BE PROG'S P
m0C
	SETZM	UUOKIL+
mP3		;[1345] WILL B
mpE INTERRUPT CAUSE
n
 >;[1345]
	MOV
n0EI	TA,REDO##
	HR
nPRM	TA,.JBSA##
	M
npOVEI	TA,RESTRT##
o
	HRRM	TA,.JBREN#
o0#
	MOVE	TA,[PUSH
oPJ PP,UUOCAL##]
	
opMOVEM	TA,.JB41##
p
	MOVEI	TA,XPNPPL
p0##
	HRRM	TA,.JBA
pPPR##
	MOVEI	TA,$
ppAPRF
	CALLI	TA,$
qAPREN
 >
 IF2,<
q0	PURGE	ZZ%>

 I
qPFN DEBUG,<EXTERNA
qpL %ATIME,%RATIM
r
  IFE TOPS20,<E
r0XTERN	DDT>
  IFD
rPIF <A><A><IFDIF 
rp<A><G><IFDIF <A
s><B><
	TTCALL	3,
s0[ASCIZ "PHASE A
sP
"]
 >>>
	CALLI
sp	TA,$TIME
	MOVEM
t	TA,%ATIME
	MOV
t0EI	TA,0
	CALLI	T
tPA,$RTIME
	MOVEM	TA,%RATIM
>M	gP gP gP gmmP !g"#@P +g&=c@P 0g'D-P :g'TS@P g.,:P g/h6 
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@ 
^eqSWTEST A,ZSWTEST A,g^|iY 
cPfSWTEST A,ZASWTEST A,g^}` 
]PemSWTEST A,OSWTEST A,g^}l` 
cfSWTEST A,OASWTEST A,g_]Q 0tg_$:P g_$\z 
[Pei
	IFLE A
[p-777777,<TRB SW,
\A>
	IFG A-7777
\077,<
	IFE A&777
\P777,<TLB SW,(A)
\p>
	IFN A&777777
],<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 
Phi
	XLIST
p	TABSET,NAM,900,0
	TABSET,EOP,50,20,E
	TABTBSEC,200,10,SE
	TABSFIL,150,50,FIL
	TABSET,800,600,DAT
	TABSET50,100,CONTA
	TABSET00,200,LITAB
	TABSET0P150,PROTAB
	TABSET0E50,EXTAB,2
	TABSET2VALVALTAB,1
	TABSET0MNEETAB,1,2
	TABSET0FLO,2AB,1,2
	TABSETCCPY,3,0,0,1
	TABSETDHLD,50,,1
P	TABSET,RPW,2,200
IFN DBMS!ANS74,<
	0TABSET1USE,2,10,U
>
IpFN DBMS,<
	TABSED,600,200,DBD
	>
IFN MCS!TCS,<
	TABT,CD,200,100,CD
	>
IFN ANS74,<
	TABSET,1,20,AKTTAB
	TABSET	D
EB,2,10,DEBTAB,2,
02,1
>
	TABSET A
PLT,20,20,ALTAB,2,
p2,0
	TABSETRREN,B,1,0,1
	TABSETTTAG,300,1,0
	TABSET RES,20,
10,RESTAB,2,0,0

0	TABSET TEM,12,10
P,TEMTAB,0,0,1
	T
pABSETBCRF,2,1000,
	LIST

	0,0
	LIi9: 
IFNDG,<=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 
^PeuSWTEST A,CSWTEST A,iO<` 
_eySWTEST A,NESWTEST A,iO<h` 
bfSWTEST A,CESWTEST A,iO<l` 
af	SWTEST A,OESWTEST A,iO<n@ 
`fSWTEST A,ZESWTEST A,iO>@ 
_Pe}SWTEST A,NNSWTEST A,iO>H` 
bPfSWTEST A,CNSWTEST A,iO>L` 
aPfSWTEST A,ONSWTEST A,iO>N@ 
`PfSWTEST 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  

IFE D,<
IFDIFD<B><0>,<TERN
	>
NS.==-
IRP+F<NS.==NS
IFE NS.,<
pIFIDN <F><0><NS.
	>
	INTER
IFNLDEBUG,<
A:	XWD*B23+D*1B2
	XLST
IFGE	NS.,<BY
	LIST
	8)F>
	LISTY@ hk

O;%y]  

$ (A,B,C,D,E,F)
	f@P)@P"0	46P 	
M`PP	&P!	dX9PP	f5PP	}lvPP	~) P 	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.