Google
 
Trailing-Edge - PDP-10 Archives - dbmsv5a - dbkern.unv
There are 2 other files named dbkern.unv in the archive. Click here to see a list.
x
,@P CJ,V@ I$+ K,|		
	IFN VK 3DBMS,<
	  TXNE	K@SS,V3.BIT
	  JRSK`T	[LD	A, OLH,TIDL,B
		 JRST	.+2]L 
	>
	LD	A, LH,L@TID,B
	CAIL	A,L`SYSTID			
	CAMLEM	A,TIDHIGH(SS)
M 	JRST	[CAIE	A,TIM@D.XL		
		 EXCEP	M`(DAT)			
		 IFDENF TENBLK,<
		 MON VEI	TENBLK,MEXBLKN@(X)	
		 SETZM	REN`CBLK		
		 >
		 OJRST	C]
	ADD	AO , TIDVEC(SS)
	SKO@IPG	ADR.RB(A)
	EXCEP	(NNS)
		I&X@ R-		
	CAMLER 	A,TIDHIGH(SS)
R@	EXCEP	(DAT)
	ADR`D	A, TIDVEC(SS)
	,WTIDVEC(SS)


	CAILE	P A,SYSTID
	CAMLE	P@A,TIDHIGH(SS)
	P`EXCEP	(DAT)
	ADDQ	A, TIDVEC(SS)
Q 	SKIPG	A,ADR.RB(Q@A)
	EXCEP	(NNS)
		EXCEP	(NNS)OH'PQ&=PQ7YgP U@P YYgP Y&p@ Y&u	@ Y&v
	  SKIPEE@	R1,NUWA(X)			;CAFN'T USE UWA?
	  F AOJN	R1,[				;RIGF@HT, USE LOCKED BUF`FFER
		 HLRZ	A,GNUWA(X)		;START WG ITH ACTU LOC OF RG@ECORD
		 HLRE	R1G`,LISTPT		;FIND OUHT WHICH KEY
		 AH DD	R1,NUWA(X)		;NH@UWA WAS 1 PAST ENH`D OF DATLIST
		 ILD	R1, RB,RDB,(R1I )		;...SO R1 PTEDI@ AT RIGHT DATBLK I`NODE
		 ADD	A,DJB.OFF(R1)
		 JRSJ T	.+2]
	MOVE	J@A,DB.UWA(DATBLK)
	.UWA(DATBLK)

		
	  IFN( LMREG.,<MREG.==LHMREG.
			LMREG.=h=0>
	(IFB <B>,<MREG.==MREG.+1>
	  IFNB <B>,<MRHEG.==B>
	  IFB h<A>,<MREG.=TREG.>
	  IFG MREG.-H(MREG.,<HMREG.=MREHG.>
	 IFNB <A>,h<
	  A=MREG.
	   IFDEF .A,<
	  (   IFN .A+MREG., H<
	      PRINTX  h"A" ALTER-EGO AL!READY IN USE
	  !(  >
	  >
	  IFN!HDEF .A,<  .A==-MREG.>
	 >
	-[J,s@P [WYg@ _63@P a8@ a=	@ a` S -
	  MOVE	S@PAG,A
	  TLZ	PAS`G,(1B0)
	  PALONL
	)
	  PALONaam X`-J
	  MOVE	YPAG,A
	  TLZ	PAY G,(1B0)
	  PALONL
	)
	  PALONaam` V-4
	  SKIPGV 	PAG,A
	  GLOYOV@	WIN.LE				
	  PALONL
		
	  Paamp T -,
	  SKIPNT@	PAG,A
	UJRST	T`[SKIPL	WINDOW(X)
		 EXCEP	(DAT)
U 		 EXCEP	(CNU)]
U@	  TLZ	PAG,(1B0)
	  PALONL
	)y W-B
	  SKIPGW 	PAG,A
	  GLOYOW@	WIN.LE			
	  SKW`IPE	PAG			
	  MOXVEM	PAG,INIDBK(X)X 		
	  PALONL
		
	  PALONL
	ae{V Y`-j
	IFE V3DZBMS,<
	  LSHC	PAZ G,-LINWID
	  LSHZ@	LIN,-<^D36-LINWIZ`D>
	  >
	IFN V3[DBMS,<
	  TXNE	S[ S,V3.BIT
	  PUSH[@J	P,[LDB	LIN,DBK.[`OL
		 LDB	PAG,DB\K.OP
		 AOS	0(P)\ 			
		@POPJ	P,]
	  PUSHJ P,[LSHC\`	PAG,-LINWID
		 ]LSH	LIN,-<^D36-LI] NWID>
		 POPJ	P,]
	>
	POPJ	P,dH@ dL@ dP@ dT@ e8 ,Hr
	  A=B,h
	-IFDEF .A,<
	    IFN .A+B,-(<
	      PRINTX -H"A" ALTER-EGO AL-hREADY IN USE
	  .  >
	  >
	  IFN.(DEF .A,<  .A==-B>
	<  .A==-g=Y7 5(.
	  TWOSE5HG
	  RELOC	0
	 5h GDATA.==0				
	  SEGSYM
		
	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$HU ]`-z
	  IFN ^A-PAG,<MOVE	A,PA^ G>
	^`IFE V3DBMS^@,<LSH A,LINWID>
	  IFN V3DBMS,<L_SH A,@DBK.LS(SS)_ >		
	  ADD	A,LIN
	  ADD	A,LIiJ,s@P X1Q S@P 2M`Q |2MjQ ~2MlQ }B

pQ }B

zQ ~>}{woP