Google
 

Trailing-Edge - PDP-10 Archives - BB-4148D-BM_1980 - dbms-v5a/source/dbkern.unv
There are 2 other files named dbkern.unv in the archive. Click here to see a list.
x
,5@P CJ,V@ I$+ j>u		
	IFN Vj83DBMS,<
	  TXNE	jXSS,V3.BIT
	  JRSjxT	[LD	A, OLH,TIDk,B
		 JRST	.+2]k8
	>
	LD	A, LH,kXTID,B
	CAIL	A,kxSYSTID			
	CAMLEl	A,TIDHIGH(SS)
l8	JRST	[CAIE	A,TIlXD.XL		
		 EXCEP	lx(DAT)			
		 IFDEmF TENBLK,<
		 MOm8VEI	TENBLK,MEXBLKmX(X)	
		 SETZM	REmxCBLK		
		 >
		 nJRST	C]
	ADD	An8, TIDVEC(SS)
	SKnXIPG	ADR.RB(A)
	EXCEP	(NNS)
		I&X@ q?		
	CAMLEq8	A,TIDHIGH(SS)
qX	EXCEP	(DAT)
	ADqxD	A, TIDVEC(SS)
	,WTIDVEC(SS)
	CAILE	o8A,SYSTID
	CAMLE	oXA,TIDHIGH(SS)
	oxEXCEP	(DAT)
	ADDp	A, TIDVEC(SS)
p8	SKIPG	A,ADR.RB(pXA)
	EXCEP	(NNS)
		EXCEP	(NNS)OH'PQ&=PQ7YgP U@P YYgP Y&p@ Y&u	@ Y&v
	  SKIPEdX	R1,NUWA(X)			;CAeN'T USE UWA?
	  e8AOJN	R1,[				;RIGeXHT, USE LOCKED BUexFFER
		 HLRZ	A,fNUWA(X)		;START Wf8ITH ACTU LOC OF RfXECORD
		 HLRE	R1fx,LISTPT		;FIND OUgT WHICH KEY
		 Ag8DD	R1,NUWA(X)		;NgXUWA WAS 1 PAST ENgxD OF DATLIST
		 hLD	R1, RB,RDB,(R1h8)		;...SO R1 PTEDhX AT RIGHT DATBLK hxNODE
		 ADD	A,DiB.OFF(R1)
		 JRSi8T	.+2]
	MOVE	iXA,DB.UWA(DATBLK)
	.UWA(DATBLK)		
	  IFNH LMREG.,<MREG.==LhMREG.
			LMREG.==0>
	HIFB <B>,(<MREG.==MREG.+1>
	  IFNB <B>,<MRhEG.==B>
	  IFB  <A>,<MREG.=TREG. (>
	  IFG MREG.-H HMREG.,<HMREG.=MRE hG.>
	 IFNB <A>,!<
	  A=MREG.
	!(  IFDEF .A,<
	 !H   IFN .A+MREG.,!h<
	      PRINTX ""A" ALTER-EGO AL"(READY IN USE
	  "H  >
	  >
	  IFN"hDEF .A,<  .A==-MREG.>
	 >
	-[J,s@P [WYg@ _63@P a8@ a=	@ a` r8?
	  MOVE	rXPAG,A
	  TLZ	PArxG,(1B0)
	  PALONL
	)
	  PALONaam wx?C
	  MOVE	xPAG,A
	  TLZ	PAx8G,(1B0)
	  PALONL
	)
	  PALONaam` u?-
	  SKIPGu8	PAG,A
	  GLOYOuX	WIN.LE				
	  PALONL
		
	  Paamp s8?%
	  SKIPNsX	PAG,A
	tJRST	sx[SKIPL	WINDOW(X)
		 EXCEP	(DAT)
t8		 EXCEP	(CNU)]
tX	  TLZ	PAG,(1B0)
	  PALONL
	)y v?;
	  SKIPGv8	PAG,A
	  GLOYOvX	WIN.LE			
	  SKvxIPE	PAG			
	  MOwVEM	PAG,INIDBK(X)w8		
	  PALONL
		
	  PALONL
	ae{V xx?c
	IFE V3DyBMS,<
	  LSHC	PAy8G,-LINWID
	  LSHyX	LIN,-<^D36-LINWIyxD>
	  >
	IFN V3zDBMS,<
	  TXNE	Sz8S,V3.BIT
	  PUSHzXJ	P,[LDB	LIN,DBK.zxOL
		 LDB	PAG,DB{K.OP
		 AOS	0(P){8			
		XPOPJ	P,]
	  PUSHJ P,[LSHC{x	PAG,-LINWID
		 |LSH	LIN,-<^D36-LI|8NWID>
		 POPJ	P,]
	>
	POPJ	P,dH@ dL@ dP@ dT@ e8 #("(
	  A=B#H
	#hIFDEF .A,<
	    IFN .A+B,$<
	      PRINTX $("A" ALTER-EGO AL$HREADY IN USE
	  $h  >
	  >
	  IFN%DEF .A,<  .A==-B>
	<  .A==-g=Y7 r(
	  TWOSErHG
	  RELOC	0
	 rh GDATA.==0				
	  SEGSYM
		
	g>>6 oh
	
	  OFpFS.==0
	  LMREG.p(==0
	  LGREG.==1pH6
	
	  IFDEF MUphREG.,<MREG.=MUREGq.>
	  IFNDEF MURq(EG.,<MREG.==TREG.qH>
	  HMREG.==MREqhG.
	  HIGH==1
	
	  HIGH==1
	g$HU |x?s
	  IFN }A-PAG,<MOVE	A,PA}8G>
	}xIFE V3DBMS}X,<LSH A,LINWID>
	  IFN V3DBMS,<L~SH A,@DBK.LS(SS)~8>		
	  ADD	A,LIN
	  ADD	A,LIiJ,s@P X1Q S@P 2M`Q |2MjQ ~2MlQ }B
pQ }B
zQ ~>}{woP