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
0 P 0C
@ P @C
P P PC
` P `C
p P pCC \P 0 C \gP [C&X'P ! 7C!` P CT, b ` C4GP `C$\GP `C2a` P cC2e}gP 'C3+GP C3'P @C3GP aC3 'P BC3 P @C3 GP AC3
CCN'P =CJ)` P bCJ,@P MCJ:XQ M CJ: qQ CJ:)XQ CJ:-qQ CJ<,rQ CJ=
<`P CN qP @ CN D P CN D@P CN XQP CN d@P @CN kP CN 'P 9CN iP cCN xzP CN {@P @CN :<P CN-mP CNMh`P " CNlyP ' CO WP @ CO[ P CO {GP "CO \qP CO$wP CO$\GP ~COH P CPp P cCW%
GP "E JgP =E5|GP dE=GP dE&p P E&v.'P :E2q` P Gp P GtzP Gt;wP Gt< P GtH:P GtHRP GtI1P Gt^P Gtj6P GtkP Gu P GuJ:P Gu[RP Gv
SP Gv
WP Gv(wP Gv)7P Gv,P GvH3P GvI6P Gv\rP Gvh6P Gt'P G ]P 1Gp P VG @ G;p P UG"{P eG>$S@P G>a` P WG>eH'P 1G>e{GP zG>h P 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 2 REMARK G?#@P fG?-mP G@ @ GCH P GJ0 P GP @ GWmP GW#@P G[$) @ G[$) ` G[$+` G[$HZ I P I$@P $I$GP I$SGP I$XgP $I$]gP DIIc@P 2I
7P I
IP I
\^'P DI
n0 P I
n5@P I YZP I [7P I \P I \tP I \wP I \xP I ]8P I
P Ip P UIY`P IYgP 2I H'P fI GP 4I4\GP 5Id]P Iv::P 8I[GP gIJP I ;GP gI C@P I' GP I' P I'5P I'5 gP I2MYP %I2M\GP %I?9` P DI?=c@P hIOEGP EIOEgP EIOF'P FIP @ IWC@P I\ P I^4 P I^MXRP " Ift'P 3J9 P 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
0 P J9
4 P AJ9
4 P AJ9
4@P BJ9
4`P BJ9
5 P CJ9
5 P CJ9
5@P DJ9
5`P DJ9
6 P EJ9
6 P EJ9
@ P J9
D P FJ9
D P FJ9
D@P GJ9
D`P GJ9
E P HJ9
E P HJ9
E@P IJ9
E`P IJ9
F P JJ9
F P JJ9
P P J9
T P KJ9
T P KJ9
T@P LJ9
T`P LJ9
U P MJ9
U P MJ9
U@P NJ9
U`P NJ9
V P OJ9
V P OJ9
` P J9
d P PJ9
d P PJ9
d@P QJ9
d`P QJ9
e P RJ9
e P RJ9
e@P SJ9
e`P SJ9
f P TJ9
f P TJ9
p P J9
t P UJ9
t P UJ9
t@P VJ9
t`P VJ9
u P WJ9
u P WJ9
u@P XJ9
u`P XJ9
v P YJ9
v P YJ9 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 aJ9 P aJ9 @P bJ9 `P bJ9 P cJ9 P cJ9 P J9 P
J9 P dJ9 P dJ9@P eJ9`P eJ9 P fJ9 P fJ9@P gJ9`P gJ9 P hJ9 P hJ9 P
J9 P iJ9 P iJ9@P jJ9`P jJ9 P kJ9 P kJ9@P lJ9`P lJ9 P mJ9 P mJ9 P J9$ P nJ9$ P nJ9$@P oJ9$`P oJ9% P pJ9% P pJ9%@P qJ9%`P qJ9& P rJ9& P rJ90 P J94 P sJ94 P sJ94@P tJ94`P tJ95 P uJ95 P uJ95@P vJ95`P vJ96 P wJ96 P wJ9@ P
J9D P xJ9D P xJ9D@P yJ9D`P yJ9E P zJ9E P zJ9E@P {J9E`P {J9F P |J9F P |J9P P
J9T P }J9T P }J9T@P ~J9T`P ~J9U P J9U P J9U@P J9U`P J9V P J9V P J9` P
J9u`P
J9v P J9v 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`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 $J90 P J94 P %J94 P %J94@P &J94`P &J95 P 'J95 P 'J95@P (J95`P (J96 P )J96 P )J9@ P J9D P *J9D P *J9D@P +J9D`P +J9E P ,J9E P ,J9E@P -J9E`P -J9F P .J9F P .J9P P J9T P /J9T P /J9T@P 0J9T`P 0J9U P 1J9U P 1J9U@P 2J9U`P 2J9V P 3J9V P 3J9` P J9d P 4J9d P 4J9d@P 5J9d`P 5J9e P 6J9e P 6J9e@P 7J9e`P 7J9f P 8J9f P 8J9p P J9t P 9J9t P 9J9t@P :J9t`P :J9u P ;J9u P ;J9u@P <J9u`P <J9v P =J9v P =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 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"0 P J9"4 P WJ9"4 P WJ9"4@P XJ9"4`P XJ9"5 P YJ9"5 P YJ9"5@P ZJ9"5`P ZJ9"6 P [J9"6 P [J9"@ P J9"D P \J9"D P \J9"D@P ]J9"D`P ]J9"E P ^J9"E P ^J9"E@P J9"E`P J9"F P `J9"F P `J9"P P J9"T P aJ9"T P aJ9"T@P bJ9"T`P bJ9"U P cJ9"U P cJ9"U@P dJ9"U`P dJ9"V P eJ9"V P eJ9"` P J9"d P fJ9"d P fJ9"d@P gJ9"d`P gJ9"e P hJ9"e P hJ9"e@P iJ9"e`P iJ9"f P jJ9"f P jJ9"p P J9"t P kJ9"t P kJ9"t@P lJ9"t`P lJ9"u P mJ9"u P mJ9"u@P nJ9"u`P nJ9"v P 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*0 P J9*4 P J9*4 P J9*4@P
J9*4`P
J9*5 P J9*5 P J9*5@P
J9*5`P
J9*6 P J9*D P J9*D P J9*D@P J9*D`P J9*E P J9*E P J9*E@P J9*E`P J9*F P J9*F P J9*P P J9*T P J9*T P J9*T@P J9*T`P J9*U P J9*U P J9*U@P J9*U`P J9*V P J9*V P J9*` P J9*d P J9*d P J9*d@P J9*d`P J9*e P J9*e P J9*e@P J9*e`P J9*f P J9*f P J9*p P J9*t P J9*t P J9*t@P J9*t`P J9*u P J9*u P J9*u@P J9*u`P J9*v P !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 +J90 P J92 P J92 P ,J92 P ,J92@P -J92`P -J92 P .J92 P .J92@P /J92`P /J92 P 0J92 P 0J92 P J92 P 1J92 P 1J92@P 2J92`P 2J92 P 3J92 P 3J92@P 4J92`P 4J92 P 5J92 P 5J92 P J92$ P 6J92$ P 6J92$@P 7J92$`P 7J92% P 8J92% P 8J92%@P 9J92%`P 9J92& P :J92& P :J920 P J924 P ;J924 P ;J924@P <J924`P <J925 P =J925 P =J925@P >J925`P >J926 P ?J926 P ?J92@ P J92D P @J92D P @J92D@P AJ92D`P AJ92E P BJ92E P BJ92E@P CJ92E`P CJ92F P DJ92F P DJ92P P J92T P EJ92T P EJ92T@P FJ92T`P FJ92U P GJ92U P GJ92U@P HJ92U`P HJ92V P IJ92V P IJ92` P !J92d P JJ92d P JJ92d@P KJ92d`P KJ92e P LJ92e P LJ92e@P MJ92e`P MJ92f P NJ92f P NJ92p P !J92t P OJ92t P OJ92t@P PJ92t`P PJ92u P QJ92u P QJ92u@P RJ92u`P RJ92v P SJ92v P SJ93 P "J93 P TJ93 P TJ93@P UJ93`P UJ93 P VJ93 P VJ93@P WJ93`P WJ93 P XJ93 P XJ93 P "J93 P YJ93 P YJ93@P ZJ93`P ZJ93 P [J93 P [J93@P \J93`P \J93 P ]J93 P ]J98 P 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:0 P $J9:4 P mJ9:4 P mJ9:4@P nJ9:4`P nJ9:5 P oJ9:5 P oJ9:5@P pJ9:5`P pJ9:6 P qJ9:6 P qJ9:@ P %J9:D P rJ9:D P rJ9:D@P sJ9:D`P sJ9:E P tJ9:E P tJ9:E@P uJ9:E`P uJ9:F P vJ9:F P vJ9:P P %J9:T P wJ9:T P wJ9:T@P xJ9:T`P xJ9:U P yJ9:U P yJ9:U@P zJ9:U`P zJ9:V P {J9:V P {J9:` P &J9:d P |J9:d P |J9:d@P }J9:d`P }J9:e P ~J9:e P ~J9:e@P J9:e`P J9:f P J9:f P J9:p P &J9:t P J9:t P J9:t@P J9:t`P J9:u P J9:u P J9:u@P J9:u`P J9:v P 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 J9B P (J9B P J9B P J9B@P J9B`P J9B P J9B P J9B@P J9B`P J9B P J9B P J9B P (J9B P J9B P J9B@P J9B`P J9B P J9B P J9B@P J9B`P J9B P J9B P J9B P )J9B$ P J9B$ P J9B$@P J9B$`P J9B% P J9B% P J9B%@P J9B%`P J9B& P J9B& P J9B0 P )J9B4 P J9B4 P J9B4@P J9B4`P J9B5 P !J9B5 P !J9B5@P "J9B5`P "J9B6 P #J9B6 P #J9B@ P *J9BD P $J9BD P $J9BD@P %J9BD`P %J9BE P &J9BE P &J9BE@P 'J9BE`P 'J9BF P (J9BF P (J9BP P *J9BT P )J9BT P )J9BT@P *J9BT`P *J9BU P +J9BU P +J9BU@P ,J9BU`P ,J9BV P -J9BV P -J9B` P +J9Bd P .J9Bd P .J9Bd@P /J9Bd`P /J9Be P 0J9Be P 0J9Be@P 1J9Be`P 1J9Bf P 2J9Bf P 2J9Bp P +J9Bt P 3J9Bt P 3J9Bt@P 4J9Bt`P 4J9Bu P 5J9Bu P 5J9Bu@P 6J9Bu`P 6J9Bv P 7J9Bv P 7J9C P ,J9C P 8J9C P 8J9C@P 9J9C`P 9J9C P :J9C P :J9C@P ;J9C`P ;J9C P <J9C P <J9C P ,J9C P =J9C P =J9C@P >J9C`P >J9C P ?J9C P ?J9C@P @J9C`P @J9C P AJ9C P AJ9H P J9J P -J9J P BJ9J P -J9J P .J9J0 P .J9J@ P /J9JP P /J9J` P 0J9Jp P 0J9K P 1J9K P 1K @ K @ K 0 @ K @ @ K
HgP ;KN@ K I` P "K2NI6P K3 S@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;5 GP $K?` P 3KBI` P #KG,P iKJ P KK;r *0JS E.A==:A
.XCREF E.AP Q!KXtI8P K KXv:=P KXv=P P KZKZ..'P jKZ4ZQ KZM\Q @ KZu}Q @ KZw wQ KZ~JQ K[ 4;P K[ 4[P K[ 8ZQ K[%
QQ K[%
ZQ K[= 7Q b K^+U @ K^+[ c P Kbc$[R ` Kc$\GP EKc%h'P LE` P M%)P ! MMh1P Me P Mf9'P EMf~(P Mv[ P M P M0 P $ M ^P @ M wP M 9P $ M 93P " M X@P M
Lx{P @ M
v[ P M wP @M X@P M ? P Md hP Md iP M}XtP $ M}]rP " M~ Q Mp P FM,-3Q M 8`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 #! M tY`P M %Z7P M & 9P ! M"-L P ! 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 P P,TST.A##
J PM2.MP P@ M2NIP P M2tY`P Q M3&N Q M M3< WP " M6 Q P M: ySP M M:&LQQ M:,YP M @M:|< Q M @ M:}LzQ Q M:~=1P P M:~I@P P M>(xP Q M>)1Q O M>~C@P P YM?@ P P M?` P P kMB.-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;%y P ^ O<p P ^ 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^e P " O^uJ:P O^u} P $ O\{P ! O wP @ Q,I1Q Q.*7Q @ Q.kQ Q
IgP ZQ'4P `R@ P RD P RH P RL P RP P Sp P GSp P StI8P
SNp @ S8p P 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,<SIX BIT /A/>
SIXS;$|GP S;%s@P oS;4P oS;5zgP SS<p P 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,20 0,7,7,1
>BD,20SBH P SLp P bSb$ P Sb$ P Sb%}`P SbE @P Sbe}{P Sc[zP Sc 1P Sc tP Sc%2P Sc%y P ScT\WP U?.+GP +UW C@P HW P WH P pY[P Y C@P Y
@ YqlwP " Y
C@P pY6C@P IY 3@@ 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 {YN P YO P YZadP YZad(P YZae
P m YZaeKP YZaekP v [ +gP ~[E\P - [EJ:P $ [F=1P % [F{P & [ P4 [l,GP 6 @ [?6;` [?6<U ` [?6= [C<9<P [N9` P [R
ZP $ [ST\WP ! [VfJ'P [VfLP ([bfEjP <[bfF P P[c\SP ]h P ]n,{Q ]% GP 6]
:`P ]< P r]FC@P s]{ZP
]2NC@P >]<p P ? s]>$P P H ]>&$ ]HuRP " ]N}l`P ]Vl,GP \]VlYP G]Vl\GP t]^MiP
TXgP (_ \GP J_!` P ;_p P n_1` P _6NMP J_8p P u_:.93P _:g@P _@ @ _B
8rP _B
=P -_B
I P _B
IP _B
MP ?B P B QP ,B ,P 8B J;P B [RP B ^P B KyP B LRP 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=p P
_B=yP
_BL` P _BLh`P _BLiP ,_BLm P _BLm P
_BMj:P )_BMlP %_BMlqP 6_BMlxP _BMlyP 7_BMlzP 7_BN
SP ) ; BNK P X ; BV[8P X B\^ P Y $ Bf9P [ Bl\SP [ ' Bm}RP [ Bn[ P \ Bn[P \ BuX<P ] a Bu{xP # Bv:=P I BvL\P X B~ 7P X B~]P [ % C WP [ P C\SP ] P 9C ]P C ]P C ]P C QP C |ZP $C
3P C KxP C LWP /C LZP C X@P C XSP 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 "Hp P uJ$\GP GJ<GP 7RD\GP &W&
PUSH PPv0,T1
HRROI T1,AvP
PSOUT%
POP P P,T1
%
POP P_[kP
_^t\GP a P a$C@P Ha<S@P $a P 9a P a
@ akgP
ap P a Va i` P a a mP a +a p P 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 aS XzP aS.9 P aSDi9P aWs@P cV.Y'P cV~I'P aetC@P +e @ ep P Ke
C@P
e
LGP (e
MgP )e` P we ]GP e h'P e )P 8e$YGP Le-C@P xe4\GP 8ed P 5ed:P edX'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 ep P Wel-Q emI7Q emyP He p P Te&=
g C@P {g \GP .g=Y'P .gdXgP /gfMGP gmgP {gtC@P gvC@P {glwP $ g\GP 9g
9'P =,gS@P S /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
g P g P g P g mmP !g"#@P +g&=c@P 0g'D-P :g'TS@P g.,:P g/h6 (JA
IFN DEBU G,<JRST .+2>
g2:P g~g>p P g g>tP g?C@P
9'P agB,:'P 1gB,;GP gJ P gK%YgP 9gN
IP gN P 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@ pG SWTEST A, Z SWTEST A,g^|iY uPG- SWTEST A, ZA SWTEST A,g^}` oPF} SWTEST A, O SWTEST A,g^}l` uG) SWTEST A, OA SWTEST 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]>
gc P gf GP gfl+P gft:P NghtzP ght9 P ght;wP ght< P ghtH:P ghtHRP ghtI1P ghtKqP ght^P ghtj6P ghtkP ghu P 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 'hD P hH P hL P 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==Z Z+1>
Z
ZZ==ZiS@P 2i @ i
@ i
t P i
tH@P @ i
t\ P i
tx@P i
v PP i @ i @ iS@P i[P #i C@P IiFC@P i"` P <i?4HP iJ
3@P iJ
90P iJ
92P iJ
92P iJ
94P iJ
98P iJ,S@P ,JiO<0 pPG SWTEST A, C SWTESTAA,iO<` qG SWTEST A, NE SWTESTAA,iO<h` tG! SWTEST A, CE SWTESTAA,iO<l` sG SWTEST A, OE SWTEST A,iO<n@ S rG SWTESTA, ZE SWTEST A,iO>@ K qPG 0k; L@P 1k; LGP k;%P ~k@p P 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 buh P 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` P P & P ! f5P P }lvP P ~)P P P P P
.htP N)1P dP P 0 P " $ P ~@ P `P '@ E P 0 P &93P # P &eY6P &p P 20 P 3@ P @ 7$ P :}i<P ?.@ P BUx@P
C}SP " G P J.9:P J.p P K%2P K-` P RMY P RnyP S' P [ P ^
8`P
@ P
4 P
d+ P
~)`P
P
P P
.0 P 3TP 3YP 3YP qh9P $ qi1P " qlhP $ qliP ! ah1P ah7P akZP P "alP
"alQP "alqP "alvP "alyP "al|P "am8P "amRP "amTP "amXP .MIPP .MIQP .MIQP .MIRP .MIRP .MISP .MISP @ .MIWP ! .MK P .MKP .MKP .MKP .MKP .MKP .MKP .MKP .MKP @ 2CWP 2CYP 31d P 31eLP 31f P 31iP 31j P 31jP 31j1P @ 31k P 31kP 31kYP 31lXP 31m\P ?sTP ?sYP ?sYP J!d+P J!d@P J!e P J!eIP J!f P 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 Wi P Wi P WiP Wi1P Wj7P W!iP W!i9P W!j7P W!kP W!kxP W!lXP }[0P z ~+P ~,YP f ~,}P G ~. P F S@P ",I1P c "- P ".*7P ".:=P c ".kP b K><QP >}{woP
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.