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
,5 n@ P C
P C
P C
P C
0 P 0C
@ P @C
P P PC
` P `C
p P pCC \P C \gP [C&X'P C!` P CT, ` C4GP `C$\GP `C2a` P cC2e}gP 'C3GP aC3 GP @C3 s@P @C3$\GP C3&+GP !C7{GP C:!` P bC;f P C;u P C;I` P
CJ)` P bCJ,@P CJ:XQ M CJ: qQ CJ:)XQ N 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 "E5|GP dE=GP dE&p P E&v.'P :E' P E2q` P
Gp P GtzP Gt9 P Gt;wP Gt< P GtH:P GtHRP GtI1P Gt^P Gtj6P GtkP Gu P GuJ:P Gu[RP Gv
WP Gv)7P Gv,P GvH3P GvI6P Gv\rP Gvh6P Gt'P G ]P AGp P VG7 @ G`p P UG" @ G>{P eG>$S@P G>a` P WG>eH'P BG>h P 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@ @ GCH P GJ0 P GO$ P GP @ GWmP GW#@P G[$) @ G[$) ` G[$+` G[$HZ I P I$@P $I$GP I$SGP I$XgP $I$]gP DIIc@P BI
7P I
IP I
\^'P DI
n0 P I
n5 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 FI$P ;I 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?=c@P hIOEGP EIOEgP EIOF'P FIP @ IWC@P I\ P I^4 P I^MXRP " Ift'P GJ9 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 )J9B0 P )J9B@ P *J9BP P *J9B` P +J9Bp P +J9C P ,J9C P ,J9H P J9J P -J9J P -J9J P .J9J0 P .J9J@ P /J9JP P /J9J` P 0J9Jp P 0J9K P 1J9K P 1K @ K @ K 0 @ K @ @ K
HgP QK
\P KN@ K I` P "K2NI6P K3 S@P K6I` P "K7N'P
+P K:!` P K:$h= y H
IFN Dy@EBUG,<EXTERNAL COy`RESW,KILL,KILLF,%z ATIME,%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##>
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 COB OLO
OF IN COBK:%GP hK:% @ K;$\GP K;&.'P
K;5 GP $K?` P GKBI` P #KG,P iKJ P KK;r `IF E.A==:A
.XCREF E.AP K!KZ-c@P K <KZ..'P K jK^+U K @ K^+[ KbKc%h'P LE` P M%)P ! MMh1P Me P Mf~(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[P %M&d[GP M&eI'P M&f=P 1M&tP YM&tC@P M'=P kM2
x: IB
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 P M:~=1P @ M:~I@P P M>(xP P 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;%y P ^ O<p P ^ O>gP ^ O@ @ ^ OJ, P ^ mOJ~\P ZO^^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
S8p P 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,<SIX BIT /A/>
SIXS;$|GP S;%s@P oS;4P oS;5zgP SS<p P mS> {GP &SBH P SLp P bSN
@ YqlwP " Y
C@P pY6C@P IY 3@@ 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 {YN P YO P YZadP YZad(P YZae
P m YZaeKP YZaekP v [ +gP ~[E\P - [F=1P $ [ P% [l,GP &P '[?4S@P [?6; @ [?6;` [?6<U ` [?6= [C<9<P [N9` P [R 7P [R {YP @ [S ySP ! [S {@P " [S p P $ [VfJ'P [VfLP (]h P ]n,{Q ]% GP K]
:`P ]< P r]FC@P s]{ZP
]2NC@P >]<p P ? s]>$P P ? ]>& ]Ht^P $ ]HuRP " ]N}l`P ]Vl,GP \]Vl\GP t]^MiP
TXgP v ( \GP J!` P ;p P n1` P 6NMP J8p P u:.93P :g@P @ @ B-c@P BuX<P Bv:=P C%gP )Hp P uJ<GP LRD\GP &W&
_^t\GP a P a<S@P $a P 9a P a
@ aP 7akgP
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 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 aS XzP aS.9 P aSDi9P 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 Med P 5ed:P edX'P el'P el GP ,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 ep P We p P Te&=
g C@P {g \GP .g-3@P
g=Y'P .gdXgP /gfMGP gmgP {gtC@P gvC@P {glwP $ g\GP Ng
9'P =,gS@P F /g!` P
INTERNAh@L COBOLA
ZZ%=h`=0
IFE ONESi EG,<IFDIF <A><B>i <IFDIF <A><G><ZZi@%==1>>>
IFN ONi`ESEG,<IFIDN <A><j A><ZZ%==1>>
j IFN ZZ%,<IFDIF <j@A><A>,<PORTAL .+1j`>>
MOVEI TA,"k A"
MOVEM TA,PHAk SEN##
MOVE PP,Pk@POINT##
IFDIF <k`A><O>< EXTERNAL l PUREA>
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 n ARG BLOCK
MOVEMn TA,.JBINT## ;[1n@345]
MOVE TA,[n`XWD 4,UUOC1##] ;[o 1345] LNGTH, RTN
MOVEM TA,UUOKILo@+0 ;[1345]
MOVo`E TA,[EXP ER.MSG!p ER.EIJ] ;[1345] Np O MONITOR MSG
Mp@OVEM TA,UUOKIL+1 p` ;[1345]
SETZM q UUOKIL+2 ;[1345]q WILL BE PROG'S Pq@C
SETZM UUOKIL+q`3 ;[1345] WILL Br E INTERRUPT CAUSEr
>;[1345]
MOVr@EI TA,REDO##
HRr`RM TA,.JBSA##
Ms OVEI TA,RESTRT##
HRRM TA,.JBREN#s@#
MOVE TA,[PUSHs`J PP,UUOCAL##]
t MOVEM TA,.JB41##
MOVEI TA,XPNPPLt@##
HRRM TA,.JBAt`PR##
MOVEI TA,$u APRF
CALLI TA,$u APREN
>
IF2,<u@ PURGE ZZ%>
Iu`FN DEBUG,<EXTERNAv L %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 g P g P g P g mmP !g"#@P +g&=c@P 0g'D-P :g'TS@P g.,:P g/h6 I8
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 OgN
IP gN P 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 F SWTEST A, Z SWTEST A,g^|iY g`F> SWTEST A, ZA SWTEST A,g^}` a`F SWTEST A, O SWTEST A,g^}l` g F: SWTEST A, OA SWTEST 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]>
gc P gfl+P gft:P NghtzP ght9 P 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
LI ST
0,0
LIi9: @I>
IFN G,< `CD.A==ZZ
ZZ==Z Z+1>
Z
ZZ==ZieN P biS@P 2i @ i
@ i
t P i
tH@P @ i
t\ P i
tx@P i
v PP i P i @ i @ iS@P i[P #iFC@P i"` P Qi?4HP iJ
3@P iJ<0 b`F SWTEST A, C SWTEST A,iO<` c F SWTEST A, NE SWTEST A,iO<h` f F2 SWTEST A, CE SWTEST A,iO<l` e F* SWTEST A, OE SWTEST A,iO<n@ d F" SWTEST A, ZE SWTEST A,iO>@ c`F SWTEST A, NN SWTEST A,iO>H` f`F6 SWTEST A, CN SWTEST A,iO>L` e`F. SWTEST A, ON SWTEST A,iO>N@ d`F& SWTEST A, ZN SWTEST A,iSH P ic%I7P (igP P igS@P Sk-J6P 0k:h'P (k: {ZP k:NC@P xk; I9P 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 @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` 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
.0 P 3TP 3YP 3YP qh9P $ qi1P " ah1P ah7P akZP pP "aj|P "akP "alQP "alqP "alvP "alyP "al|P "am8P "amRP "amTP "amXP 2CWP 2CWP 2CYP 31d P 31eLP 31f P 31iP 31j P 31jP 31j1P @ 31k P 31kP 31kYP 31lXP 31m\P 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
~,}P ~. P S@P ",I1P "- P ".*7P ".:=P ".kP K><QP >}{woP
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.