Google
 
Trailing-Edge - PDP-10 Archives - dbmsv5a - dbcsym.unv
There are 4 other files named dbcsym.unv in the archive. Click here to see a list.
x
,u@P C!n@ CH1P 	CKPP 	CLQP CX1P C[PP C\QP Ch1P CkPP ClQP C2+ h)d
	  IFNDEF AL.NAM,<
	   ( FUNCT	ALC.M,<[SIHZ.AB]>
	    MOVhEM	R0,CIC
	  >
	  IFDEF AL.NAM,(<
	    HRRZ	R0,HAL.NLEN(CRU)
	  h  MOVEI	CIC,SIZ.AB
	    GLOYO	TR(U.BLK		
	    MOVHSI	R1,AL.NLEN(CRhU)
	    HRRI	R1,AB.NLEN(CIC)
	 (   BLT 	R1,@R0
	H    FUNCT	UPDSY.,h<AB.ID(CIC)>
	  >
	  IFDEF AL.(NMID,<
	    LD	RH1, AL,NMID,(CRU)h
	    ADD	R1,IDVEC(SS)
	    HRLI(	CIC,TID.AL
	  H  MOVEM	CIC,0(R1)h
	    IFDEF AL.NAM,<MOVEM R1,AB(.ID(CIC)>
	    HHRRZS	CIC			
	  >
	CIC			
	  >C2aly@ 	C>=9@ 6CJ,@ CJt @ CJ|jr ((4
	  MOVE	HB,AREALST(SS)
	h  LD	C, ADR,AB,(B)		
	  CAMLE	(A,AB.LASP(C)
	 H AOBJN	B,.-2
	 h JUMPGE B,EXJRST (KIA)		
	  CAMG(E	A,AB.1STP(C)	H	
	  EXCEP	(KIA)				
	EP	(KIA)CK  a
	  T1.==a(1
	  IFNB <B>,<aH
	    T1.==B
	ah    IFN 100000*T1b.-100000*B,<T1.=b(=T1.+1>
	  >
	 bH A==OFFS. - 1
	bh  OFFS.==OFFS.+T1.
	.==OFFS.+T1E2^:= eH.
	  A==OehFFS.
	  OFFS.==0
	
	  OFFS.==0EV9:@ 6Eg$\` j(X
	  POS.=jH=-1
	  IRP B,<DjhUMMY(A,B)>
	  kOFFS.==OFFS.+1
	FS.==OFFS.+1
	GeMr@ G"YlQ@ 7G0t;z@ G0vJ6@ G;!ip@ "G;!ir@ !G;!iw@ "G;!l@ #G>$S[P GC8P GWlQ@ $GWlZ@ #GWly@ )GW8p@ 7I$:@ $I
3YA  I
3YI
3\A  I
3\I
Yj@ 8I
Yl@ 8IH1P *I	j: )
	IFN TOP(S10<
	  MOVSI	R1H,B
	  HRRI	R1,hA
	  DEQ.	R1,
	    EXCEP (QOS)
(	>
	IFN TOPS20<
	  MOVEI	R1,B
h	  MOVEI	R2,A
	  DEQ
	    EXCEP (QOS)
	>
	EPI'@ 9I<td` !(*
	  FUNCT!H	FIND3%,<KEY NEXT!h,ZERO,[A],KEY SE"T>
	  JUMPE	R0,"(B
	  MOVEM	R1,CRU
	MOVEM	R1,CRIVm^  z(R
	ONEBYT(A,B,C)
	YT(K:!n@ K;	j@ 'K;	j@ !K;	j@ %K;	j: (t
	IFN TOP(S10,<
	  MOVSI	RH1,B
	  HRRI	R1,hA
	  ENQ.	R1,
	    JRST [CAIN	R(1,ENQRU%
		 C
H		 CAIN	R1,ENQDR%h
		EXCEP	(DOR)
		 CAIE	R1,ENQQE	(%
		 CAIN	R1,ENQ	HNC%
		 EXCEP	(RS	hX)		;MONITOR RAN 
OUT OF ROOM IN SO
(ME WAY
		 EXCEP	
H(QOS)]			;ALL OTH
hERS
	>				;END IFN TOPS10
	IFN T(OPS20,<
	  MOVEIH	R1,B
	  MOVEI	hR2,A
	  ENQ
	 

   JRST [CAIN	R1,

(ENQX6
		 C
		 

HCAIN	R1,ENQX5
		

h EXCEP	(DOR)
		AE	R1,ENQX18
	;CAIN	R1,IPCFX8	
		EXCEP	(RSX)
		 EXCEP	(QOS)]	(		;ALL ELSE
	>		H		;END IFN TOPS20
	D IFN TOPS20K;	l@@ "K;	m @ #K;

3T H)*
	IFN TOPhS10,<
	  MOVEI	R0,A
	  MOVEI	R1(,OTSTAT(X)			;(MUHST BE AC+1)USE THhESE 3 WDS
	  ENQC.	R0,
	    EXCE(P (QOS)
	  HRRE	HR0,OTSTAT(X)
	>h
	IFN TOPS20,<
	  MOVEI	R1,.ENQCS(
	HMOVEI	R2,A
	  MOVEI	R3,OTSThAT(X)
	  ENQC
	    EXCEP (QOS)
(	  HRRE	R0,OTSTAT(X)
	>
	TSTATK;

<Z@ (K;&.' e&<
	  ACT.=e(=0
	  IFNB <D>,eH<ACT.==D>
	  IFehE MODE.-PORTAL,<<fC>B<EV%VERB>+<ACf(T.>B<EV%FLAG>+ BfH##>
	  IFE MODE.fh-GATE,<
	    IRPg A,<
		A:
		Eg(NTRY A
	    >
gH	    PUSHJ P,OTSCALL
	  >
	TSCK;&.9 A&$
	ENTRY.	Ap(CLOSED,CLOSE$,C.A CLOSE,ENQ.X)		;ENBQ.X SINCE PLAYS WB0ITH J LABEL PAGE
	ENTRY.	(DELETR,BxDELET$,C.DELETE,JCR.UPD!ENQ.X!CRU.MC8UST!VAC.UPD)
	ENCXTRY.	(FIND1,FIND1E$,C.FIND,ENQ.SH)
	ENTRY.	(FIND2,FCxIND2$,C.FIND,ENQ.DxSH)
	ENTRY.	(FINDXD3,FIND3$,C.FIND,D8ENQ.SH)
	ENTRY.	EH(FINDO,FINDO$,C.FEhIND,ENQ.SH)
	ENTFRY.	(FIND4,FIND4$F(,C.FIND,ENQ.SH)
FH	ENTRY.	(FIND5,FIFhND5$,C.FIND,ENQ.SGH)
	ENTRY.	(FINSG(6,FINS6$,C.FIND,EGHNQ.SH)
	ENTRY.	(Gh<GETS,GET>,GET$,CH.GET,CRU.MUST!ENQH(.SH)
	ENTRY.	(<IHHNSRT,INSERT>,INSEHhR$,C.INSERT,JR.UPID!ENQ.X!CRU.MUST!I(VAC.UPD)
	ENTRY.IH	(<MODIF,MODIFY>,IhMODIF$,C.MODIFY,JJR.UPD!ENQ.X!CRU.MJ(UST!VAC.UPD)
	ENJHTRY.	(OPEND,OPEN$Jh,C.OPEN,ENQ.ALT)	K	;ENQ.ALT PLAYS SK(AFE SINCE OPEN CAKHN INCREASE SIMULTKhANEITY
	ENTRY.	(L<REMOV,REMOVE>,REL(MOV$,C.REMOVE,JR.LHUPD!ENQ.X!CRU.MUSLhT!VAC.UPD)
	ENTRMY.	(<STORE,STOREDM(>,STORE$,C.STORE,MHJR.UPD!ENQ.X!VAC.MhUPD)
	
	; ***	CNONTEXT AFFECTING N(ENTRY. PTS
	ENTRNHY.	(SBIND,SBIND$,NhC.BIND,OK.NOSS!VAOC.BIND!OK.SUS!SCHO(.IO)
	; ***	OK.SOHUS ON IN 2 BELOW OhSO THAT THE BINDIPNG EXCEP WILL BE P(CORRECTLY RETURNEPHD
	; ***	BUT NO PhOTHER VERBS AFTERQ THE FAULTY BINDIQ(NG WILL SUCCEED
QH	ENTRY.	(BIND,BINQhD$,C.BIND,VAC.BINRD!OK.SUS!SCH.IO)
	ENTRY.	(EBIND,ERHBIND$,C.BIND,VAC.RhBIND!OK.SUS!SCH.ISO)
	IFN COBOL,<ES(NTRY. (INITDB,USESH$,C.BIND,VAC.BINDSh!OK.NOSS)>
	IFN TFORTRA,<ENTRY. (ST(ETUSE,USE$,C.BINDTH,VAC.BIND)>
	ENTThRY.	(SETDB,SETDB$U,C.CALL,VAC.CALL!U(OK.SUS)
	ENTRY.	UH(UNSET,UNSET$,C.CUhALL,VAC.CALL!OK.SVUS)
	ENTRY.	(SAVV(ESS,SAVES$,C.CALLVH,VAC.CALL)
	; **Vh*	JOURNAL ENTRY. WPTS
	ENTRY.	(JMNW(AME,JMNAM$,C.CALLWH,VAC.CALL)
	ENTRWhY.	(JMDISK,JMDIS$X,C.CALL,VAC.CALL)X(
	ENTRY.	(JMAFT,XHJMAFT$,C.CALL,VACXh.CALL)
	ENTRY.	(YJMBEF,JMBEF$,C.CAY(LL,VAC.CALL)
	ENYHTRY.	(JMBOTH,JMBOYhT$,C.CALL,VAC.CALZL)
	ENTRY.	(JMNOZ(NE,JMNON$,C.CALL,ZHVAC.CALL)
	ENTRYZh.	(JSTRAN,JSTRA$,[C.CALL,VAC.CALL!J[(R.OVU!JR.UPD!ENQ.[HX)
	ENTRY.	(JETR[hAN,JETRA$,C.CALL,\VAC.CALL!JR.OVU!J\(R.UPD!ENQ.X)
	EN\HTRY.	(JBTRAN,JBTR\hA$,C.CALL,VAC.CAL]L!JR.OVU!JR.UPD!E](NQ.X!OK.SUS)
	EN]HTRY.	(JRDATA,JRDA]hT$,C.CALL,VAC.CAL^L!JR.OVU!JR.UPD!E^(NQ.X)
	ENTRY.	(J^HRTEXT,JRTEX$,C.CA^hLL,VAC.CALL!JR.OV_U!JR.UPD!ENQ.X)
_(	; ***	STATISTICS_H
	ENTRY.	(STATS,_hSTATS$,C.CALL,VAC`.CALL)
	; ***	PS`(EUDO-HOST ACTIONS`H: PREDICATES & CO`hPY
	ENTRY.	(MOVEaC,MOVE$,C.HOST)
a(	ENTRY.	(<EMPTY,SaHETCON>,EMPTY$,C.HahOST,ENQ.SH)			;KEbEP LOUSY NAMES RAb(THER THAN CHANGE bHCOMPILER
	ENTRY.bh	(<RECMO,TENANT>,cTENAN$,C.HOST,ENQc(.SH)
	ENTRY.	(<RcHECMEM,MEMBER>,MEMchB$,C.HOST,ENQ.SH)d
	ENTRY.	(<RECOWd(N,OWNER>,OWNER$,CdH.HOST,ENQ.SH)
	HOST,ENQ.SH)
	KJ)0@ 

KJ l(&bERCAL EXJRST(A)RCAL EXJRKJm@ KKX`@ 	KK]@ KKH:@ Kb

= &TXCA:Kb\ kH&\PUSHJ P,XC.A##PUSHJ P,XCKby &dXC%A##KbV,z &^XC.A##Kbm &VXC$AKbn9` &XXC$A##Kbuy h&J
XC.A::
	  XC%A==:XC.AhH-VEC.XC+1
	  IFNhhB <B>,<PUSHJ P,XiCB>
	  IFB <B>i(,<PUSHJ P,DBSABORT>
	 P,DBSABORKc4 ih&NC.A*^D100 + EXCODE(B)00Kc4 j(&RC.A*^D100 + XC%BA*^D100M&-I |Hp
	  T1.=1|h
	}IFNB <B>,<
	    T1.==B
	 }(   IFN 100000*T1.}H-100000*B,<T1.==}hT1.+1>
	  >
	  ~A=OFFS.
	  OFFS.==OFFS.+T1.
	M:!d @ M?S@ M?+@ M?:=P O$PP OJ,p HV		
	  IFBh <B>,<GREG.==GREG.-1>
	  IFNB <(B>,<GREG.==B>
	H  IFL GREG.-LGREGh.,<LGREG.=GREG.>
	  A=GREG.
	  	(IFDEF .A,<
		h 	H IFN .A+GREG.,<
	      PRINTX "
A" ALTER-EGO ALRE
(ADY IN USE
	    
H>
	  >
	  IFNDE
hF .A,<  .A==-GREG.>
	.A==-GROJ,s@PwOO$@=/Q@%QSEt@ &S4X`@ &S:LHU@ :S:Mlz@ -SRmLz@ :U

;Z@ ;UHt(z@ UHt+@ UHt-3@ UHt:@ 
UHtj6@ 
UHuI3@ UHvz@ 

UHv2@ 

UHv+T@ UHvj2@ ULv:7@ 0ULv;z@ 0WcH@ Yh1@ 'Y-3@ 'YCY@ )YYgP Y&u3W@ Y&u3X@ Y7YgP Y>

@ nh'

	  TREG=o=R0
	  IFNB <D>o(,<TREG==D>
	SKIoHPL	A,B		
	CAMLohE	A,IDHIGH(SS)
p	LINK	ARG.SYM				p(
	SKIPN	TREG,A	pH		
	JRST	e
	ADphD	A,IDVEC(SS)		
	IFN TREG,<HLRZ q(TREG,0(A)>
	IFNqHB <C>,<
	  IFE qhTREG,<HLRZ TREG,0r(A)>
	  CAIE	TRr(EG,C
	  EXCEP	(rHARG)
	>
	HRRZ	rhA,0(A)		
	IFB <sC>,<JUMPE	A,EXJs(RST (ARG)>		
e:
	ARG)>		
e:Y>

HW *		
	  TRE(G==R0
	  IFNB <HC>,<TREG==C>
	JhUMPLE	A,EXJRST (SOB)
	CAMLE	A,I(DHIGH(SS)
	EXCEPH	(SOB)
	ADD	A,IhDVEC(SS)
	IFN TREG,<HLRZ TREG,0((A)>
	IFNB <B>,<H
	  IFE TREG,<HLhRZ TREG,0(A)>
	   CAIE	TREG,B
	 (  JUMPN	TREG,EXJR HST (SOB)		
	>
	 hHRRZ	A,0(A)
	SKIPG	A
	)
	SY>

I  x('h
		
	  TRExHG==R0
	  IFNB <xhD>,<TREG==D>
	SyKIPL	A,B		
	CAy(MLE	A,IDHIGH(SS)yH
	LINK	ARG.SYM		yh		
	SKIPN	TREG,zA			
	JRST	e+1
	ADD	A,IDVEC(SSzH)		
	IFN TREG,<HzhLRZ TREG,0(A)>
{	IFNB <C>,<
	  {(IFE TREG,<HLRZ TR{HEG,0(A)>
	  CAI{hE	TREG,C
	  EXC|EP	(ARG)
	>
	HR|(RZ	A,0(A)		
	I|HFB <C>,<JUMPE	A|h,EXJRST (ARG)>		;}EMPTY SLOT ILLEGAL
e:
	ILLEGAY>

I2 sh'>	
	  TREGt==R0
	  IFNB <Dt(>,<TREG==D>
	SKtHIPLE	A,B		
	CAthMLE	A,IDHIGH(SS)u
	LINK	ARG.SYM		u(		
	ADD	A,IDVECuH(SS)		
	IFN TREGuh,<HLRZ TREG,0(A)v>
	IFNB <C>,<
v(	  IFE TREG,<HLRZvH TREG,0(A)>
	  vhCAIE	TREG,C
	  wEXCEP	(ARG)
	>
w(	HRRZ	A,0(A)
	wHJUMPE	A,EXJRST (whARG)		;EMPTY SLOT ILLEGAL
	SLOTY>

K@ }H(
		
	  TRE}hG==R0
	  IFNB <~D>,<TREG==D>
	S~(KIPL	A,B		
	CA~HMLE	A,IDHIGH(SS)~h
	LINK	ARG.SYM				
	SKIPN	TREG,(A			
	JRST	e
	HADD	A,IDVEC(SS)	h	
	IFN TREG,<HLRZ TREG,0(A)>
	I(FNB <C>,<
	  IFHE TREG,<HLRZ TREGh,0(A)>
	  CAIE	TREG,C
	  EXCEP(	(ARG)
	>
	HRRZH	A,0(A)		
	IFBh <C>,<JUMPE	A,EXJRST (ARG)>		;EM(PTY SLOT ILLEGAL
	SKIPA
e:
	Y?9n@ C[AjQP 
[Al@ ([AlyP [AnP <[D+@ ,s@P ]mI7P ],HT@ (]Vn)9@ )]Vn\@ )]W<@ ;_
V)1@ <_63@P _:,.: #"
	  IFNB #(<D>,<D.B=OFFS.#H-A.D>
	  A.B#h==OFFS.
	  A$B$==C
	  POS.==PO$(S.+C
	  A%B==POS.
	 A%B==_@r@ _Sh(@ 4_Sh)@ 4_Sh1@ _Shw@ 2_Sm7@ 3_SJ9@ _SH:@ 3_W%Y@ ._^tHU@ <a={@ =a&!i@ 5a&!lr@ 5a?H6P a?`P aJMY @ =aO8@ *etxV@ >et{0 m(&r
	  MOVE	mHR1,B
	  MOVEI	Rmh0, AB.1STP(R1)
	n  ST	R1, RB,RAB,+n(A
	  ST	R0, RB,RWB,+A
	, RB,et}t@ ?e=9@ *eKs@ +eJ9@ +eh6@ e<R@ edY9@ /et @ .e&h6@ ?g4(9@ ,g59<@ @g>>6 6(B
	
	  OF6HFS.==0
	  LMREG.6h==0
	  LGREG.==176
	
	  IFDEF MU7(REG.,<MREG.=MUREG7H.>
	  IFNDEF MUR7hEG.,<MREG.==TREG.8>
	  HMREG.==MRE8(G.
	  HIGH==1
	
	  HIGH==1
	g%xx@l@g&\@ Ag"~-P g'Qk]P 1g'QlYP g'QlqP g'QlyP 3g'QnP g'V<rP g.,:@ -g.,J:P g.-h6@ ,g..-7@ .gL@ gLuh6@ gLuk@ gLv

:x@ *gg;v@ /gg)1@ /hDpP i&%
3@ 0i&&i1@ 0i&ily@ 1i&lHQ@ 1i&nK8@ i&~:=P i7lQ@ Bi7lq@ Bi7n@ Ci7q@ *i7I3@ Ai7h6@ .i7h9@ /i7k@ i7m6@ i7\r@ iJ

9  &f
	##iJ,s@P iLv3@ k6\^ @ kN-H9@ 2kN.

W@ kN.i1@ 2kNH@ ,kNx@ -kOl@ kX&

WP 	kX'rP 	kX.

WP kX/rP kXv

WP kXwrP m*2@ m*<@ 3m-@ mN8 h(
	LOADN	RECBLK,A
	MOVE	R(ECBLK,CUR.RB(SS)	H	
	CAME	RECBLK,ChUR.RB(SS)
	EXCEP	(RWT)
		EXCEPmdy@ m6|I @ mPvK8P o&tK{@ o?@ ^Hv
	  BYTES^h(A,<B>)
	  OFFS.==0
	
	  OFFp@ q.
2@ S@P OQ z`Q y>}{woP