Google
 
Trailing-Edge - PDP-10 Archives - BB-4148D-BM_1980 - dbms-v5a/source/dbcsym.unv
There are 4 other files named dbcsym.unv in the archive. Click here to see a list.
x
,5u@P C!n@ CH1P 	CKPP 	CLQP CX1P C[PP C\QP Ch1P CkPP ClQP C2+ 5;^
	  IFNDE5 F AL.NAM,<
	   5@ FUNCT	ALC.M,<[SI5`Z.AB]>
	    MOV6EM	R0,CIC
	  >
6 	  IFDEF AL.NAM,6@<
	    HRRZ	R0,6`AL.NLEN(CRU)
	  7  MOVEI	CIC,SIZ.7 AB
	    GLOYO	TR[email protected]		
	    MOV7`SI	R1,AL.NLEN(CR8U)
	    HRRI	R1,8 AB.NLEN(CIC)
	 8@   BLT 	R1,@R0
	8`    FUNCT	UPDSY.,9<AB.ID(CIC)>
	 9  >
	  IFDEF AL.9@NMID,<
	    LD	R9`1, AL,NMID,(CRU):
	    ADD	R1,IDV: EC(SS)
	    HRLI:@	CIC,TID.AL
	  :`  MOVEM	CIC,0(R1);
	    IFDEF AL.; NAM,<MOVEM R1,AB;@.ID(CIC)>
	    H;`RRZS	CIC			
	  >
	CIC			
	  >C2aly@ 	C>=9@ 6CJ,@ CJt @ CJ|jr #@:.
	  MOVE	#`B,AREALST(SS)
	$  LD	C, ADR,AB,($ B)		
	  CAMLE	$@A,AB.LASP(C)
	 $` AOBJN	B,.-2
	 % JUMPGE B,EXJRST%  (KIA)		
	  CAMG%@E	A,AB.1STP(C)	%`	
	  EXCEP	(KIA)				
	EP	(KIA)CK  0h#
	  T1.==11
	  IFNB <B>,<1(
	    T1.==B
	1H    IFN 100000*T11h.-100000*B,<T1.=2=T1.+1>
	  >
	 2( A==OFFS. - 1
	2H  OFFS.==OFFS.+T1.
	.==OFFS.+T1E2^:= 3#
	  A==O3(FFS.
	  OFFS.==0
	
	  OFFS.==0EV9:@ 6Eg$\` *H"Z
	  POS.=*h=-1
	  IRP B,<D+UMMY(A,B)>
	  +(OFFS.==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	R1.`,B
	  HRRI	R1,/A
	  DEQ.	R1,
	/     EXCEP (QOS)
/@	>
	IFN TOPS20<
	  MOVEI	R1,B
0	  MOVEI	R2,A
	0   DEQ
	    EXCEP (QOS)
	>
	EPI'@ 9I<td` @@<


	  FUNCT@`	FIND3%,<KEY NEXTA,ZERO,[A],KEY SEA T>
	  JUMPE	R0,A@B
	  MOVEM	R1,CRU
	MOVEM	R1,CRIVm^  (("B
	ONEBYT(A,B,C)
	YT(K:!n@ K;	j@ 'K;	j@ !K;	j@ %K;	j: & :n
	IFN TOP&@S10,<
	  MOVSI	R&`1,B
	  HRRI	R1,'A
	  ENQ.	R1,
' 	    JRST [CAIN	R'@1,ENQRU%
		 C
'`		 CAIN	R1,ENQDR%(
		 EXCEP	(DOR)
		 CAIE	R1,ENQQE(@%
		 CAIN	R1,ENQ(`NC%
		 EXCEP	(RS)X)		;MONITOR RAN ) OUT OF ROOM IN SO)@ME WAY
		 EXCEP	)`(QOS)]			;ALL OTH*ERS
	>				;END I* FN TOPS10
	IFN T*@OPS20,<
	  MOVEI*`	R1,B
	  MOVEI	+R2,A
	  ENQ
	 +    JRST [CAIN	R1,+@ENQX6
		 C
		 +`CAIN	R1,ENQX5
		, EXCEP	(DOR)
		 , CAIE	R1,ENQX18
	,@	 CAIN	R1,IPCFX8	,`	;NO MONITOR CORE-
		 EXCEP	(RSX)
		 EXCEP	(QOS)]	-@		;ALL ELSE
	>		-`		;END IFN TOPS20
	D IFN TOPS20K;	l@@ "K;	m @ #K;

3T 0`;$
	IFN TOP1S10,<
	  MOVEI	R1 0,A
	  MOVEI	R11@,OTSTAT(X)			;(MU1`ST BE AC+1)USE TH2ESE 3 WDS
	  ENQ2 C.	R0,
	    EXCE2@P (QOS)
	  HRRE	2`R0,OTSTAT(X)
	>
	IFN TOPS20,<
	3   MOVEI	R1,.ENQCS3@
	3`MOVEI	R2,A
	  MOVEI	R3,OTST4AT(X)
	  ENQC
	4     EXCEP (QOS)
4@	  HRRE	R0,OTSTAT(X)
	>
	TSTATK;

<Z@ (K;&.'  86
	  ACT.=@=0
	  IFNB <D>,`<ACT.==D>
	  IFE MODE.-PORTAL,<< C>B<EV%VERB>+<AC@T.>B<EV%FLAG>+ B`##>
	  IFE MODE.-GATE,<
	    IRP  A,<
		A:
		E@NTRY A
	    >
`	    PUSHJ P,OTSCALL
	  >
	TSCK;&.9 `8
	ENTRY.	a(CLOSED,CLOSE$,C.`8CLOSE,ENQ.X)		;ENa(Q.X SINCE PLAYS WaHITH J LABEL PAGE
	ENTRY.	(DELETR,bDELET$,C.DELETE,Jb0R.UPD!ENQ.X!CRU.MbPUST!VAC.UPD)
	ENbpTRY.	(FIND1,FIND1d0$,C.FIND,ENQ.SH)
	ENTRY.	(FIND2,FcIND2$,C.FIND,ENQ.dSH)
	ENTRY.	(FINcpD3,FIND3$,C.FIND,cPENQ.SH)
	ENTRY.	d`(FINDO,FINDO$,C.FeIND,ENQ.SH)
	ENTe RY.	(FIND4,FIND4$e@,C.FIND,ENQ.SH)
e`	ENTRY.	(FIND5,FIfND5$,C.FIND,ENQ.Sf H)
	ENTRY.	(FINSf@6,FINS6$,C.FIND,Ef`NQ.SH)
	ENTRY.	(g<GETS,GET>,GET$,Cg .GET,CRU.MUST!ENQ[email protected])
	ENTRY.	(<Ig`NSRT,INSERT>,INSEhR$,C.INSERT,JR.UPh D!ENQ.X!CRU.MUST![email protected])
	ENTRY.h`	(<MODIF,MODIFY>,iMODIF$,C.MODIFY,Ji R.UPD!ENQ.X!CRU.Mi@UST!VAC.UPD)
	ENi`TRY.	(OPEND,OPEN$j,C.OPEN,ENQ.ALT)	j 	;ENQ.ALT PLAYS Sj@AFE SINCE OPEN CAj`N INCREASE SIMULTkANEITY
	ENTRY.	(k <REMOV,REMOVE>,REk@MOV$,C.REMOVE,JR.k`UPD!ENQ.X!CRU.MUSlT!VAC.UPD)
	ENTRl Y.	(<STORE,STOREDl@>,STORE$,C.STORE,l`JR.UPD!ENQ.X!VAC.mUPD)
	
	; ***	Cm ONTEXT AFFECTING m@ENTRY. PTS
	ENTRm`Y.	(SBIND,SBIND$,nC.BIND,OK.NOSS!VAn C.BIND!OK.SUS!SCH[email protected])
	; ***	OK.Sn`US ON IN 2 BELOW oSO THAT THE BINDIo NG EXCEP WILL BE o@CORRECTLY RETURNEo`D
	; ***	BUT NO pOTHER VERBS AFTERp  THE FAULTY BINDIp@NG WILL SUCCEED
p`	ENTRY.	(BIND,BINqD$,C.BIND,VAC.BINq D!OK.SUS!SCH.IO)
	ENTRY.	(EBIND,Eq`BIND$,C.BIND,VAC.rBIND!OK.SUS!SCH.Ir O)
	IFN COBOL,<Er@NTRY. (INITDB,USEr`$,C.BIND,VAC.BINDs!OK.NOSS)>
	IFN s FORTRA,<ENTRY. (Ss@ETUSE,USE$,C.BINDs`,VAC.BIND)>
	ENTtRY.	(SETDB,SETDB$t ,C.CALL,VAC.CALL![email protected])
	ENTRY.	t`(UNSET,UNSET$,C.CuALL,VAC.CALL!OK.Su US)
	ENTRY.	(SAVu@ESS,SAVES$,C.CALLu`,VAC.CALL)
	; **v*	JOURNAL ENTRY. v PTS
	ENTRY.	(JMNv@AME,JMNAM$,C.CALLv`,VAC.CALL)
	ENTRwY.	(JMDISK,JMDIS$w ,C.CALL,VAC.CALL)w@
	ENTRY.	(JMAFT,w`JMAFT$,C.CALL,VACx.CALL)
	ENTRY.	(x JMBEF,JMBEF$,C.CAx@LL,VAC.CALL)
	ENx`TRY.	(JMBOTH,JMBOyT$,C.CALL,VAC.CALy L)
	ENTRY.	(JMNOy@NE,JMNON$,C.CALL,y`VAC.CALL)
	ENTRYz.	(JSTRAN,JSTRA$,z C.CALL,VAC.CALL!J[email protected]!JR.UPD!ENQ.z`X)
	ENTRY.	(JETR{AN,JETRA$,C.CALL,{ VAC.CALL!JR.OVU!J{@R.UPD!ENQ.X)
	EN{`TRY.	(JBTRAN,JBTR|A$,C.CALL,VAC.CAL| L!JR.OVU!JR.UPD!E|@NQ.X!OK.SUS)
	EN|`TRY.	(JRDATA,JRDA}T$,C.CALL,VAC.CAL} L!JR.OVU!JR.UPD!E}@NQ.X)
	ENTRY.	(J}`RTEXT,JRTEX$,C.CA~LL,VAC.CALL!JR.OV~ U!JR.UPD!ENQ.X)
~@	; ***	STATISTICS~`
	ENTRY.	(STATS,STATS$,C.CALL,VAC .CALL)
	; ***	PS@EUDO-HOST ACTIONS`: PREDICATES & COPY
	ENTRY.	(MOVE C,MOVE$,C.HOST)
@	ENTRY.	(<EMPTY,S`ETCON>,EMPTY$,C.HOST,ENQ.SH)			;KE EP LOUSY NAMES RA@THER THAN CHANGE `COMPILER
	ENTRY.	(<RECMO,TENANT>, TENAN$,C.HOST,ENQ@.SH)
	ENTRY.	(<R`ECMEM,MEMBER>,MEMB$,C.HOST,ENQ.SH) 
	ENTRY.	(<RECOW@N,OWNER>,OWNER$,C`.HOST,ENQ.SH)
	HOST,ENQ.SH)
	KJ)0@ 

KJ @8\ERCAL EXJRST(A)RCAL EXJRKJm@ KKX`@ 	KK]@ KKH:@ Kb

= 8NXCA:Kb\ 
`8VPUSHJ P,XC.A##PUSHJ P,XCKby 8^XC%A##KbV,z 8XXC.A##Kbm 8PXC$AKbn9` 8RXC$A##Kbuy  8D
XC.A::
	  XC%A==:XC.A`-VEC.XC+1
	  IFNB <B>,<PUSHJ P,X CB>
	  IFB <B>@,<PUSHJ P,DBSABORT>
	 P,DBSABORKc4 	8HC.A*^D100 + EXCODE(B)00Kc4 	@8LC.A*^D100 + XC%BA*^D100M&-I -h"z
	  T1.=1.
	.(IFNB <B>,<
	    T1.==B
	 .H   IFN 100000*T1..h-100000*B,<T1.==/T1.+1>
	  >
	  /(A=OFFS.
	  OFFS.==OFFS.+T1.
	M:!d @ M?S@ M?+@ M?:=P O$PP OJ,p H!n		
	  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>
	  >
	  IFNDEhF .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>

@ 9

	  TREG= =R0
	  IFNB <D>@,<TREG==D>
	SKI`PL	A,B		
	CAMLE	A,IDHIGH(SS)
 	LINK	ARG.SYM				@
	SKIPN	TREG,A	`		
	JRST	e
	ADD	A,IDVEC(SS)		
	IFN TREG,<HLRZ @TREG,0(A)>
	IFN`B <C>,<
	  IFE TREG,<HLRZ TREG,0 (A)>
	  CAIE	TR@EG,C
	  EXCEP	(`ARG)
	>
	HRRZ	A,0(A)		
	IFB < C>,<JUMPE	A,EXJ@RST (ARG)>		
e:
	ARG)>		
e:Y>

HW < <		
	  TRE<@G==R0
	  IFNB <<`C>,<TREG==C>
	J=UMPLE	A,EXJRST (= SOB)
	CAMLE	A,I=@DHIGH(SS)
	EXCEP=`	(SOB)
	ADD	A,I>DVEC(SS)
	IFN TR> EG,<HLRZ TREG,0(>@A)>
	IFNB <B>,<>`
	  IFE TREG,<HL?RZ TREG,0(A)>
	?   CAIE	TREG,B
	?@  JUMPN	TREG,EXJR?`ST (SOB)		
	>
	@HRRZ	A,0(A)
	SKIPG	A
	)
	SY>

I  @9b
		
	  TRE`G==R0
	  IFNB <D>,<TREG==D>
	S KIPL	A,B		
	CA@MLE	A,IDHIGH(SS)`
	LINK	ARG.SYM				
	SKIPN	TREG, A			
	JRST	e+1
	ADD	A,IDVEC(SS`)		
	IFN TREG,<HLRZ TREG,0(A)>
 	IFNB <C>,<
	  @IFE TREG,<HLRZ TR`EG,0(A)>
	  CAIE	TREG,C
	  EXC EP	(ARG)
	>
	HR@RZ	A,0(A)		
	I`FB <C>,<JUMPE	A,EXJRST (ARG)>		; EMPTY SLOT ILLEGAL
e:
	ILLEGAY>

I2 98	
	  TREG ==R0
	  IFNB <D@>,<TREG==D>
	SK`IPLE	A,B		
	CAMLE	A,IDHIGH(SS) 
	LINK	ARG.SYM		@		
	ADD	A,IDVEC`(SS)		
	IFN TREG,<HLRZ TREG,0(A) >
	IFNB <C>,<
@	  IFE TREG,<HLRZ` TREG,0(A)>
	  CAIE	TREG,C
	   EXCEP	(ARG)
	>
@	HRRZ	A,0(A)
	`JUMPE	A,EXJRST (ARG)		;EMPTY SLOT ILLEGAL
	SLOTY>

K@ `:


		
	  TREG==R0
	  IFNB < D>,<TREG==D>
	S@KIPL	A,B		
	CA`MLE	A,IDHIGH(SS)
	LINK	ARG.SYM		 		
	SKIPN	TREG,@A			
	JRST	e
	`ADD	A,IDVEC(SS)		
	IFN TREG,<HLR Z TREG,0(A)>
	I@FNB <C>,<
	  IF`E TREG,<HLRZ TREG ,0(A)>
	  CAIE	  TREG,C
	  EXCEP @	(ARG)
	>
	HRRZ `	A,0(A)		
	IFB! <C>,<JUMPE	A,E! XJRST (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 _:,.: (h"P
	  IFNB )<D>,<D.B=OFFS.)(-A.D>
	  A.B)H==OFFS.
	  A$B)h==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 

@8l
	  MOVE	

`R1,B
	0,MOVEI	R(R1)
	AST	R1, RB,RAB,+
	  ST	R0, RB,RWB,+A
	, RB,et}t@ ?e=9@ *eKs@ +eJ9@ +eh6@ e<R@ edY9@ /et @ .e&h6@ ?g4(9@ ,g59<@ @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%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  8`
	##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 ":
	LOADN	R" ECBLK,A
	MOVE	R"@ECBLK,CUR.RB(SS)	"`	
	CAME	RECBLK,C#UR.RB(SS)
	EXCEP	(RWT)
		EXCEPmdy@ m6|I @ mPvK8P o&tK{@ o?@ -"j
	  BYTES-((A,<B>)
	  OFFS.==0
	
	  OFFp@ q.
2@ S@P OQ z`Q y>}{woP