PDP-10 Archive: conversion/utility/dbsdcl.unv from BB-H506E-SM

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - conversion/utility/dbsdcl.unv

There are 18 other files named dbsdcl.unv in the archive. Click here to see a list.

x
,5D@PB;\PC$;P	C%XZP	C%]rP	C%m6PC%{QP	C&	vP	C&

Ct+P Ct-3@ Ct86@

Ct:@ Ct;@ Ct;P Ct=9@ CtKQ@ 
Ctj6@ Cu@ Cu@ CuH9@ CuKu@ CuhZ@ 
Cuk@ Cum6P Cu{QP 	Cv	vP Cv
7@ Cv

t@	Cv,@	Cv:Ph	CvHZ@jCvHt@lCvK@mCvKp@*CvLW@;CvLq@XCv[ZP]CHYPkP 	C0%{QP 	C0&

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

tP C0.:P C0.>6P C0rz@ C0t*z@ C0t+P C0t86@ C0t;@ C0tKQ@ C0tj6@ 	C0uH9@ C0uKu@ C0uX9P 	C0uXZP 	C0u]rP 	C0uh6@ C0uhZ@ C0uk@ 
C0uk4P C0u{QP C0v

tP C0v,@ C0v:P C0v<`@ C0v>6P C0vK8@ 
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,@ E uLZ@ E v3@ E vKp@ E v[ZP E v|T@ E$t*:P E$t;rP E/)h4P E/)hTP E2^:= n8&u
	  A==OnXFFS.
	  OFFS.==0
	
	  OFFS.==0E6yhTQ @Eg$\` ex&5
	  POS.=f=-1
	  IRP B,<Df8UMMY(A,B)>
	  fXOFFS.==OFFS.+1
	FS.==OFFS.+1
	F:R@F:@F:Ky@F:Kz@F:$[@F:$[@F:5R@F:<]@F:E|z@F:Mlr@F:my@ F:~	7@ F:~Z@ F;[7@ F;Ky@ F;-m9@ F;.99@ FJ `0A.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,@ G uLZ@ G um6P G v|T@ G0$89P 	G0%P 	G0%P 	G0%=P 	G0,89P G0-P G0-P G0-=P G0t@ G0tP'wG0tRP'wG0t89P G0uP G0uP G0u@ G0u,WP'rG0u<r@ G0u=P G0v-7P'tG0ws@ 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
YltP I4\@ kh.bBYTE  (3)%lDBCUV(9)%DBMAV(6)l(%DBMIV(18)%DBEDTDBMIV(18)%DBEDTI	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 I0uyS@ I0u{VP'{I0vP I0v

RP I0v8pP I0v96P'zI0v:=@ I0v;P I0v;P I0v<`@ I0v=@ 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^  cX&
	ONEBYT(A,B,C)
	YT(K$kP 	K%3P 	K,kP K-3P K.+`P Kt@ KtkP Ku@ Ku3P Ku8V@ Kuh6@ Kuk@ K0$kP 	K0%3P 	K0%jvP 	K0%k4P 	K0,kP K0-3P K0-jvP K0-k4P K0.+`P K0tkP K0u3P K0uh6@ K0ujvP K0uk@ K0uk4P K0v<`@ K4v
2P K7jXP }K;	h6P K;	j@P K;	ltP K;	nP K>1hTQ  KHv
2P LLrzP'zLLuH9P'yLLui<P'xLLuySP LLv

TP'yMYm 009
	  IRP A,<
	    TB.A==PMB.A
	    IFN TpB.A-OB.A,<PRINTPX ?MEMBER-OWNER PTR OFFSETS MUST AGREE>
	  >
	AM)nP Mt2@ MtsA Mt;Z@ MtI;@ MtJ9@ Mt^@ Mtj6@ MtkA Mu	P Mv

T@ Mv:=@ Mv<@ MvI6@

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

YQ M .[ZP M tkP M v=@ M v[ZP M&-I i&U
	  T1.=1i8
	iXIFNB <B>,<
	    T1.==B
	 ix   IFN 100000*T1.j-100000*B,<T1.==j8T1.+1>
	  >
	  jXA=OFFS.
	  OFFS.==OFFS.+T1.
	M0$sP M0$+P 	M0$kP M0,sP M0,+P M0,kP M0t2@ M0tsP M0t+P M0t;Z@ M0tI;@ M0tJ9@ M0t^@ M0tj6@ M0tkP M0v

T@ M0v<@ M0vI6@

M?cQQ  M?:=P OJ,p Ux%I		
	  IFBV <B>,<GREG.==GREV8G.-1>
	  IFNB <VXB>,<GREG.==B>
	Vx  IFL GREG.-LGREGW.,<LGREG.=GREG.>
	  A=GREG.
	  WXIFDEF .A,<
	X Wx IFN .A+GREG.,<
	      PRINTX "X8A" ALTER-EGO ALREXXADY IN USE
	    Xx>
	  >
	  IFNDEYF .A,<  .A==-GREG.>
	.A==-GROJ,s@P Qd`P'QjQP QjXP QnP Q$t;rP Q&=P Q7YgP S0uh6@ S0uk@ S0v

z@ S0v;@ S:1d8P S:1d9Q  S:1kQ S:1k7Q S:1kWQ @S:N] mh/
	  IFNDEnF DBINFO,<DBINFO=n(=0>
	nhIFNDEF DBnHMEND,<DBMEND==0>
	  IFNDEF V3DBMSo,<V3DBMS==0>
	  o(IFNDEF DBCONV,<DBoHCONV==0>
	  DBCSoh==1
	  IFN DBINFpO!DBMEND!V3DBMS!Dp(BCONV,<DBCS==0>
pH	  IFN DBINFO,<SEphARCH INFDCL>
	  qIFN DBMEND,<SEARCq(H MNDDCL>	;V6 useqHs MNDDCL not MNDSqhYM

	  IFN V3DBrMS,<SEARCH VTVDCLr(>
	  IFN DBCONV,rH<SEARCH CNVDCL>
	ARCH CNVDCL>
S;hTQ  SShTQ @TD$QP 	TD&
2P 	TD,QP TD.
2P TDtQP TDtH:@ TDu6@ 
TDuJ<@ TDu]@ 
TDui2@ TDv3@ TDv
2P TDvv@

TDv$`@ TDv%@@ TDv(1@ 	TDv)2@ TDv+T@ TDv-7@ TDv8t@ TDvJ@

TDvLP@ 	U$8wP 	U$<tP 	U&wP 	U&

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

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

RP Uv

tP Uv+T@ U

u@ U

vN8@U$uS@U$uI7@U$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*<@ U@tkP U@u9<P U@uHwP U@uLtP U@ui2@ U@v
2P U@v98@ U@v[Z@ UHt)VP UHt:P UHu}ZP @UHv

PP UHv

tP UHv\P UJyhTQ UK1hTQ UPu@ UPuI7@ UPuh6@ UTt@ UTt;R@ UTt=9@ W$;P 	W%[rP 	W,;P W-[rP WtR@ Wt;P WtX@@ Wu[rP W

u92P W

u9<P W

uX<@ W

vJ2P W

vJ<P W

v\rP WH /[$$A]	WIh9P WIhpP WIiP WIkWP WIlPP WIlw@ W0$;P 	W0&\sP 	W0,;P W0.\sP W0tT@ 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,$WPY,%[rPY,&[ZPY,,WPY,,RPY,,8TPY,-,WPY,-[rP Y,-lVPt@Y,-|PtY,.3PtY,.):PuY,.[ZPvY,.\PY,.\P]Y,tWP Y,tP Y,ty@ Y,t^P Y,u	P Y,u	0@ Y,uK@ Y,uKuP Y,u[rP!Y,ulVP!Y,vP!Y,vXP!Y,v:PAY,v[ZPAY,v\PAY,vx4PAY.K7PDY.M7PHY.[7PPY.]7P@Y.	k@-Y.	k7PPY.	k{@SY.	l:@Y.	m7PSY.	mh@DY.Qk{@ Y/K7P Y/LP

[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 [uks@ [u{s@ [u|RP [vs@ [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;R@ _t;{P _t<@ _t=9@ _t=T@ _u@ _uw@ _u[1P _u\QP _uh6@ _uk@ _uks@ _u{s@ _vs@ _v)1@ _vLq@ _ws@ _w@@ _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 _0uh6@ _0uk@ _0uk2@ _0uk4P _0uksP _0vsP _0v<`@ _0wYP _0wsP _:,.: d&+
	  IFNB d8<D>,<D.B=OFFS.dX-A.D>
	  A.Bdx==OFFS.
	  A$Be==C
	  POS.==POe8S.+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=9@ etKsP etkP eu@ euw@ euK P euKq@ eu[qP eu^0@ eu^2@ euh6@ euk@ eumP eux\@ ev(1P ev)P ev+1P ev+qP ev-P ev-qP evJ2@ evLq@ evLtP ev[ZP evz2@ 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+8FS.==0
	  LMREG.+X==0
	  LGREG.==1+x6
	
	  IFDEF MU,REG.,<MREG.=MUREG,8.>
	  IFNDEF MUR,XEG.,<MREG.==TREG.,x>
	  HMREG.==MRE-G.
	  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 g0ty@ g0t:@ g0tY@ g0u
7@ g0u
:@ g0u+Q@ g0u+z@ g0u,t@ g0uJyP g0uKZP g0uKu@ g0u[@ g0uh9@ g0um@ g0v-7@ g0v>9@ g0v[Z@ g0w1@ g8%I7P 	g8%i<P 	g8-I7P g8-i<P g8u@ g8uI7P g8uh6P g8ui<P g?hzP g?kP gK%|RP gP$;P 	gP%HvP 	gP,;P gP-HvP gPt;P gPuHvP gPuJ9@ 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<`@ i0vI<@ i0vK@ iJhTQ @iJ,s@P iLt*:P iLt;rP i`t*:P @i`t;rP idt(9P idtkP idvP khTQ k/IhTQ k0uKu@ k0uX9@ k0uh6@ k0uk@ 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^1@ mu^<@ m#@  0
	  IFDEF@ XSTAT.,<
	    G`ETLEN <A>
	    IFE LEN.-3,<ASCIZ /A      />
	   @ IFE LEN.-4,<ASCI`Z/A     />
	    IFE LEN.-5,<ASCI Z/A    />
	    @IFE LEN.-6,<ASCIZ`/A   />
	    IFE LEN.-7,<ASCIZ/ A  />
	    IFE L@EN.-8,<ASCIZ/A /`>
	  >
	  IFNDEF XSTAT.,<FIELD(C.A)>
	FIELD(Cm,g xx/v
	
	VERBxX.	(HOST)			;LET TzHESE HAVE STATUS z CODE OF ZERO
	VEz@RB.	(CLOSE)
	VERz`B.	(DELETE)
	VER{B.	(FIND)
	VERB.{ 	(USER)			;FORMER{@LY "FREE"
	VERB.{`	(GET)
	VERB.	(U|NUSED)		;FORMERLY|  "KEEP/RETAIN"
	|@VERB.	(INSERT)
	|`VERB.	(MODIFY)
	}VERB.	(OPEN)
	VE} RB.	(OPNT)			;USE}@ UNUSED SLOTS
	V}`ERB.	(REMOVE)
	V~ERB.	(STORE)
	VE~ RB.	(CLOTR)
	VER~@B.	(DELTR)
	VERB~`.	(BIND)
	VERB.	(CALL)
	VERB.	m:7 lh.j
	  LOC	1m37
	  DBVER				;m([1147]
	  RELOC		   
	  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 orz@ ouH9@ 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 o0rz@ o0uP o0uH9@ o0v)P o0v)P o0v)1P o?@ h8&E
	  BYTEShX(A,<B>)
	  OFFS.==0
	
	  OFFqd2P qd6P qdRP 	qdVP #qfSQQ @qk0P 	q0t;Z@ q0ui<@ q0u}w@ q0v

T@q8u9<Pq8v;w@qAhTQst@@st\@st\@stl@sut@suL@sult@s0$VP	s0$|P	s0%m6P	s0&>6P	s0,VPs0,|Ps0-m6Ps0.>6Ps0tVPs0t|Ps0t\@s0t\@s0tl@s0ut@s0uL@s0ult@s0um6Ps0v;@s0v;P@s0v>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) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.