Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-build/dbsdcl.unv
There are 18 other files named dbsdcl.unv in the archive. Click here to see a list.
x
,5@@PB;\PC$;P	C%XZP	C%]rP	C%m6PC%{QP	C&	vP	C&

Ct+P Ct-3P Ct86P 

Ct:P Ct;P Ct;P Ct=9P CtKQP 
Ctj6P CuP CuP CuH9P CuKuP CuhZP 
CukP Cum6P Cu{QP 	Cv	vP Cv
7P Cv

tP	Cv,P	Cv:Ph	CvHZPjCvHtPlCvKPmCvKpP*CvLWP;CvLqPXCv[ZP]CHYPkP 	C0%{QP 	C0&

tP 	C0&:P 	C0&>6P 	C0-XZP C0-]rP C0-k4P C0-{QP C0.

tP C0.:P C0.>6P C0rzP C0t*zP C0t+P C0t86P C0t;P C0tKQP C0tj6P 	C0uH9P C0uKuP C0uX9P 	C0uXZP 	C0u]rP 	C0uh6P C0uhZP C0ukP 
C0uk4P C0u{QP C0v

tP C0v,P C0v:P C0v<`P C0v>6P C0vK8P 
CJ,0P 5E@ E $RP 	E $-3P 	E $kP 	E &[ZP 	E ,RP E ,-3P E ,;P E ,<P E ,kP E -I<P E -JyP E -LtP E .KpP E .[ZP E tRP E t-3P E tLP E tkP E u,P E uLZP E v3P E vKpP E v[ZP E v|TP E$t*:P E$t;rP E/)h4P E/)hTP E2^:= z8'U
	  A==OzXFFS.
	  OFFS.==0
	
	  OFFS.==0E6yhTQ @Eg$\` qX'
	  POS.=qx=-1
	  IRP B,<DrUMMY(A,B)>
	  r8OFFS.==OFFS.+1
	FS.==OFFS.+1
	F:RPF:PF:KyPF:KzPF:$[PF:$[PF:5RPF:<]PF:E|zPF:MlrPF:myP F:~	7P F:~ZP F;[7P F;KyP F;-m9P F;.99P FJ 1YA.BIT==1<A.COD-1>T==1Gt*:Q Gt*:P Gt;rP G $*P 	G %m6P 	G ,*P G -m6P G t*P G u,P G uLZP G um6P G v|TP G0$89P 	G0%P 	G0%P 	G0%=P 	G0,89P G0-P G0-P G0-=P G0tP G0tP'wG0tRP'wG0t89P G0uP G0uP G0uP G0u,WP'rG0u<rP G0u=P G0v-7P'tG0wsP G:/QQ G>$S[P GC8P GK)k:P  GLt*:P GLt;rP GTt*:P GTt;rP I$89P 	I%=P 	I%xqP I&J2P 	I&N8P I,89P I-=P I-xqP 
XKP I
XLP 
XLtP I
X[P I
X\P 
X\tP I
YkP I
YlP I
YltPBI4\@0R(9)MAJVER(6)XMINVER(18)EDITNOINVER(18)EDITNOI	hTQ @IvvP#PIvJP I!hTQ I0$86P I0%P 	I0%kP I0%k4P 	I0%xqP I0&P I0&

RPI0&8pP I0&;P I0&N8P I0&[ZP 	I0,86P I0-P I0-kP I0-k4P I0-xqP 

RP I0.8pP I0.;P I0.N8P I0.[ZP I0tP'wI0t86P I0uP I0ukP I0uk4P I0uxqP I0uySP I0u{VP'{I0vP I0v

RP I0v8pP I0v96P'zI0v:=P I0v;P I0v;P I0v<`P I0v=P I0vN8P I0v[ZP I3I7P !I6yhTQ  I>4k0P <IC5[rP IPtE@P IPtE`P IPtF P IPtHUP IPuX<@ IPv
2P IPv=P ITrzP ITtQP ITuH9P ITukzP IVm^  o8&{
	ONEBYT(A,B,C)
	YT(K$kP 	K%3P 	K,kP K-3P K.+`P KtP KtkP KuP Ku3P Ku8VP Kuh6P KukP K0$kP 	K0%3P 	K0%jvP 	K0%k4P 	K0,kP K0-3P K0-jvP K0-k4P K0.+`P K0tkP K0u3P K0uh6P K0ujvP K0ukP K0uk4P K0v<`P K4v
2P K7jXP }K;	h6P K;	j@P K;	ltP K;	nP K>1hTQ  KHv
2P LLrzP'zLLuH9P'yLLui<P'xLLuySP LLv

TP'yMYm `1t
	  IRP @A,<
	    TB.A==MB.A
	    IFN T B.A-OB.A,<PRINT X ?MEMBER-OWNER P@TR OFFSETS MUST AGREE>
	  >
	AM)nP Mt2P MtsQ Mt;ZP MtI;P MtJ9P Mt^P Mtj6P MtkQ Mu	P Mv

TP Mv:=P Mv<P MvI6P 

M $kP 	M &[ZP 	M ,2Q M ,kP M -lQ M .

YQ M .[ZP M tkP M v=P M v[ZP M&-I tx'5
	  T1.=1u
	u8IFNB <B>,<
	    T1.==B
	 uX   IFN 100000*T1.ux-100000*B,<T1.==vT1.+1>
	  >
	  v8A==OFFS.
	  OFFvXS.==OFFS.+T1.
	.==OFFS.+T1.
	M0$sP M0$+P 	M0$kP M0,sP M0,+P M0,kP M0t2P M0tsP M0t+P M0t;ZP M0tI;P M0tJ9P M0t^P M0tj6P M0tkP M0v

TP M0v<P M0vI6P 

M?cQQ  M?:=P OJ,p aX&'		
	  IFBax <B>,<GREG.==GREbG.-1>
	  IFNB <b8B>,<GREG.==B>
	bX  IFL GREG.-LGREGbx.,<LGREG.=GREG.>
	  A=GREG.
	  c8IFDEF .A,<
	cx cX IFN .A+GREG.,<
	      PRINTX ;"dA" ALTER-EGO ALRd8EADY IN USE
	   dX >
	  >
	  IFNDdxEF .A,<  .A==-GREG.>
	.A==-GOJ,s@P Qd`P'QjQP QjXP QnP Q$t;rP Q&=P Q7YgP S0uh6P S0ukP S0v

zP S0v;P S:1d8P S:1d9Q  S:1kQ S:1k7Q S:1kWQ @S:N] 80A
	  IFNDEXF DBINFO,<DBINFO=x=0>
	8IFNDEF DBMEND,<DBMEND==0>
	  IFNDEF V3DBMSX,<V3DBMS==0>
	  xIFNDEF DBCONV,<DBCONV==0>
	  DBCS8==1
	  IFN DBINFXO!DBMEND!V3DBMS!DxBCONV,<DBCS==0>
	  IFN DBINFO,<SE8ARCH INFDCL>
	  XIFN DBMEND,<SEARCxH MNDDCL>	;[6%41] V6 uses MNDDCL n8ot MNDSYM

	  IXFN V3DBMS,<SEARCHx VTVDCL>
	  IFN DBCONV,<SEARCH CNVDCL>
	ARCH CNS;hTQ  SShTQ @TD$QP 	TD&
2P 	TD,QP TD.
2P TDtQP TDtH:P TDu6P 
TDuJ<P TDu]P 
TDui2@ TDv3P TDv
2P TDvvP 

TDv$`P TDv%@P TDv(1P 	TDv)2P TDv+TP TDv-7P TDv8tP TDvJP 

TDvLPP 	U$8wP 	U$<tP 	U&wP 	U&

tP 	U,8wP U,<tP U.wP U.

tP Ut8wP Ut<tP Ut=9P Uu	P UvwP Uv

RP Uv

tP Uv+TP U

uP U

vN8PU$uSPU$uI7PU$v{0PkU2	U@%HwP 	U@%LtP 	U@&
2P 	U@*zP U@,QP U@,kP U@-HwP U@-LtP U@.
2P U@rzP U@tQP U@t*<P U@tkP U@u9<P U@uHwP U@uLtP U@ui2@ U@v
2P U@v98P U@v[ZP UHt)VP UHt:P UHu}ZP @UHv

PP UHv

tP UHv\P UJyhTQ UK1hTQ UPuP UPuI7P UPuh6P UTtP UTt;RP UTt=9P W$;P 	W%[rP 	W,;P W-[rP WtRP Wt;P WtX@P Wu[rP W

u92P W

u9<P W

uX<@ W

vJ2P W

vJ<P W

v\rP WH 0C[$$A]WIh9P WIhpP WIiP WIkWP WIlPP WIlw@ W0$;P 	W0&\sP 	W0,;P W0.\sP W0tTP W0t;P W0v\sP Yt*:P Yt;rP Yv
2PdYd6PYP Y %ySP Y &,tP Y &J2P Y -ySP Y .,tP Y .J2P 
Y/uySP Y/v,tP Y/vJ2P Y&u3QQ @Y&vz2PY,,RPY,,8TPY,-,WPY,-lVP@Y,-|PY,.3PY,.):PY,.\P Y,.\PtY,tWPtY,tPtY,tyPuY,t^PvY,u	PY,u	0P]Y,uKP Y,uKuP Y,ulVP Y,vP Y,vXP Y,v:P Y,v\P Y,vx4P 7Y.K7P!Y.M7P!Y.[7P!Y.]7P!Y.	kPAY.	k7PAY.	k{PAY.	l:PAY.	m7PDY.	mhPxY.Qk{PPY/K7PpY/LP-AX.JB,<MAX.JB==SIZ.JA>>X.JB==SIZ.JA>[Dli@ 

[FLiP [$M8P [$kP 	[%YP 	[%^5P 	[%^9P 	[%|RP [&)9P 	[&:P [&;yP [,M8P [,kP [-YP [-^5P [-^9P [-|RP [.)9P [.:P 
[.;yP [tM8P [tkP [uYP [u^5P [u^9P [uksP [u{sP [u|RP [vsP [v)9P [v:P [v;yP [0$M8P [0%P 	[0%YP 	[0%ksP [0%{sP [0%|RP [0&sP [0&)9P 	[0&:P [0&;yP [0,M8P [0-P [0-YP [0-ksP 
[0.;yP [0tM8P [0uP [0uYP [0uksP [0u{sP [0u|RP [0vsP [0v)9P [0v:P [0v;yP [:!hTQ [J,s@P ]hTQ @]mI7P ]*)hTQ ]?CQQ _%[1P 	_%\QP 	_-[1P _-\QP _t;RP _t;{P _t<P _t=9P _t=TP _uP _uwP _u[1P _u\QP _uh6P _ukP _uksP _u{sP _vsP _v)1P _vLqP _wsP _w@P _63@P _,ukyP _,v=9P _0%k4P 	_0%ksP _0&sP _0'YP 	_0'sP 	_0-k4P _0-ksP _0.sP _0/YP _0/sP _0uh6P _0ukP _0uk2P _0uk4P _0uksP _0vsP _0v<`P _0wYP _0wsP _:,.: ox'	
	  IFNB p<D>,<D.B=OFFS.p8-A.D>
	  A.BpX==OFFS.
	  A$Bpx==C
	  POS.==POqS.+C
	  A%B==POS.
	 A%B==_@tP'w_@t;wP _@t^P's_@u,WP'r_@v

WP't_@v):P'u_@v\P'u_HrzP _HtHUP _HtM8P _HuH9P _Hui<P _HukwP _Hv

TP-Hv;yPHvz7PKaOhTQ!aa>z2P9wPkaO9i0Pk@aO9i7PkaO9jWPiaO9jYPkaO9kPkPaO9k:PkaO9kYP"aO9lPP<aO9lRPJaO9lzPzaO9mP\@aO9mPjaO9m8P>aO9mRP"d;\P e$KsP 	e$kP 	e%K P 	e%[qP 	e%mP 	e&(1P 	e&)P 	e&+1P 	e&+qP 	e&-P 	e&-qP 	e&LtP 	e&[ZP 	e,KsP e,kP e-K P e-[qP e-mP e.(1P e.)P e.+1P e.+qP e.-P e.-qP e.LtP e.[ZP et*:Q et=9P etKsP etkP euP euwP euK P euKqP eu[qP eu^0P eu^2P euh6P eukP eumP eux\P ev(1P ev)P ev+1P ev+qP ev-P ev-qP evJ2P evLqP evLtP ev[ZP evz2P euh6P euh7P e0$KsP e0$LtP e0%P 	e0%K P e0%h9P e0%iP e0%k2P e0%k4P 	e0%k{P e0&J2P e0,KsP 
	
	  OF*xFS.==0
	  LMREG.+==0
	  LGREG.==1+86
	
	  IFDEF MU+XREG.,<MREG.=MUREG+x.>
	  IFNDEF MUR,EG.,<MREG.==TREG.,8>
	  HMREG.==MRE,XG.
	  HIGH==1
	
	  HIGH==1
	g t P g t`P g t:P g uX7P g u[ P g u[RP g u[`P g u|P g"~-P g'Qh1P g'Qh6P g'QhTP g'QhtP g'QhvP g'QiP g'QiP 
g'Qi1P g'Qi6P g'QiTP g'Qj6P g'QjQP g'QjTP g'QjVP 

g'QjZP g'QjZP g'QjqP g'QjvP g'QkP g'QkP g'Qk1P g'Qk6P g'Qk9P g'QkqP 
g'QkvP g'QlP g'QlQP 
g'QlVP g'QlvP 	g'QlzP g'QmP g'Qm6P g'QmQP g'QmVP g'QmqP g'QmvP g'QnP g'QnP g'Qn1P g'Qn6P g'RQP g'RVP g'R)QP g'R)VP g,v
2P g.,:P g0%JyP 	g0%KZP 	g0-JyP g0-KZP g0tyP g0t:P g0tYP g0u
7P g0u
:P g0u+QP g0u+zP g0u,tP g0uJyP g0uKZP g0uKuP g0u[P g0uh9P g0umP g0v-7P g0v>9P g0v[ZP g0w1P g8%I7P 	g8%i<P 	g8-I7P g8-i<P g8uP g8uI7P g8uh6P g8ui<P g?hzP g?kP gK%|RP gP$;P 	gP%HvP 	gP,;P gP-HvP gPt;P gPuHvP gPuJ9P gR^	Y@ gWh6@'wgWh9P'wgWlRP'vgWlrP'vggk4P ggJ2P hDpP iIhTP iIhwP iuksP iu{sP ivsP i
IhTP i
IhwP it*:P  it;rP iEX<P 2i&!h6A  i&!h6i&!h9P i&!hvA  i&!hvi&!iA  i&!ii&!i6A  i&!i6i&!iVA  i&!iVi&!j6A  i&!j6i&!jvA  i&!jvi&!k6A  i&!k6i&!kvA  i&!kvi&!lVA  i&!lVi&!lvA  i&!lvi&!mA  i&!mi&!m6A  i&!m6i&!mVA  i&!mVi&!mvA  i&!mvi&!nP i&!nP i&!nP i&!n6A  i&!n6i&%X<P i&~:=P i0v<`P i0vI<P i0vKP iJhTQ @iJ,s@P iLt*:P iLt;rP i`t*:P @i`t;rP idt(9P idtkP idvP khTQ k/IhTQ k0uKuP k0uX9P k0uh6P k0ukP k4,2A k4,yA k4,;wQ k4,J7A k4,^Q k4-z8Q @k4-}Q  k4.

WQ k4.):Q k4.I6Q  k4.\Q @k4/vQ k4t;yP k4t;zP k4t^P k4t^P k4v

YP k4v

ZP k4vYP kN-X<P mhTP mhpP mm8P m*:P m$9P 	m%=P 	m,9P m-=P mt9P mu=P mu^1P mu^<P m#@ P1S
	  IFDEFp XSTAT.,<
	    GETLEN <A>
	    0IFE LEN.-3,<ASCIZP/A      />
	   p IFE LEN.-4,<ASCIZ/A     />
	   0 IFE LEN.-5,<ASCIPZ/A    />
	    pIFE LEN.-6,<ASCIZ/A   />
	    IF0E LEN.-7,<ASCIZ/PA  />
	    IFE LpEN.-8,<ASCIZ/A />
	  >
	  IFNDE0F XSTAT.,<FIELD(C.A)>
	FIELD(Cm,g H11
	
	VERB(.	(HOST)				;LET PTHESE HAVE STATUSp CODE OF ZERO
	VERB.	(CLOSE)
	VE0RB.	(DELETE)
	VEPRB.	(FIND)
	VERBp.	(USER)				;[6%46] FORMERLY "FREE0"
	VERB.	(GET)
P	VERB.	(UNUSED)		p	;[6%46] FORMERLY "KEEP/RETAIN"
	0VERB.	(INSERT)
	PVERB.	(MODIFY)
	pVERB.	(OPEN)
	VERB.	(OPNT)		;[6%201] USE UNUSED SLOPTS
;[6%21]	VERB.p	(UNUSED)
	VERB.	(REMOVE)
	VERB.0	(STORE)
	VERB.	P(CLOTR)		;[6%21]
;[6%21]	VERB.	(UNUSED)
	VERB.	(D0ELTR)		;[6%21]
;P[6%21]	VERB.	(UNUpSED)
	VERB.	(BIND)
	VERB.	(CALL)
	VERB.	(CALL)m:7 0
	  LOC	1837
	  BYTE	(3)CUXSVER(9)MAJVER(6)MxINVER(18)EDITNO
	  RELOC		   
m&	hpP m&	iP m&	k2P m&	lwP m0%jrP 	m0&N8P 	m0-jrP m0.N8P m0ujrP m0vN8P mJyhTQ o&)P 	o&)P 	o.)P o.)P orzP ouH9P oulXP ov)P ov)P ov+XP ov;XP o0%P 	o0&)P 	o0&)P 	o0&)1P 	o0-P o0.)P o0.)P o0.)1P o0rzP o0uP o0uH9P o0v)P o0v)P o0v)1P o?@ t'#
	  BYTESt8(A,<B>)
	  OFFS.==0
	
	  OFFqd2P qd6P qdRP 	qdVP #qfSQQ @qk0P 	q0t;ZP q0ui<P q0u}wP q0v

TPq8u9<Pq8v;wPqAhTQst@Pst\Pst\PstlPsutPsuLPsultPs0$VP	s0$|P	s0%m6P	s0&>6P	s0,VPs0,|Ps0-m6Ps0.>6Ps0tVPs0t|Ps0t\Ps0t\Ps0tlPs0utPs0uLPs0ultPs0um6Ps0v;Ps0v;PPs0v>6Pvp	t0A  	t0	v@A  	v@	u0A  	u0	4v`A  	4v`	<uPA  	<uP	<wA  	<w	Ht@A  	Ht@	HuPA  	HuP	HupA  	Hup	HvpA  	Hvp	LtA  	Lt	LtPA  	LtP	Lv A  	Lv 	LvPA  	LvP	LwA  	Lw	Xt0A  	Xt0
0Q yS@P >}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.