Google
 
Trailing-Edge - PDP-10 Archives - BB-4148D-BM_1980 - dbms-v5a/source/dabdcl.unv
There is 1 other file named dabdcl.unv in the archive. Click here to see a list.
x
,53@P B;%\A  B;%\B;%\	A  B;%\	C2ajW@ 8E2^:= tH&
	  A==OthFFS.
	  OFFS.==0
	
	  OFFS.==0Eg$\` y(P
	  POS.=yH=-1
	  IRP B,<DyhUMMY(A,B)>
	  zOFFS.==OFFS.+1
	FS.==OFFS.+1
	GNcT V5Q
	  IFN TVXOPS10,<
	X0  MOVXE R1,[4,,IPC.RJ]
	XP  IPCFR. R1,
	      YOYO DABEXpRR
	  >
	  IFN YTOPS20,<
	    MOYpVEI R1,4
	    MOY0VEI R2,IPC.RJ
	 YP   MRECV
	      ZYOYO DABERR
	  >
	DABERR
	  >G(@ G4t@ G4u]@ G4vv@ G4v)2@ G4vJ@ G4vkv@ G4vz@@ G6  8(CMDATA+CM.ACMDATA+CM.G6$A  G6$GWJ6A  GWJ6I	j: cP6C
	  IFN TcpOPS10,<
	    MOVdSI R1,.DEQID
	  d0  HRR R1,JN.TCH(WdPJ)
	    DEQ. R1,dp
	      JRST	[CAeIE	R1,ENQNO%		
	e0		 CAIN	R1,ENQNE%eP
			 JRST	.+1			ep
			 YOYO	DABERRf]
	  >
	  IFN Tf0OPS20,<
	    SAVfPE R2
	    MOVEI fpR1,.DEQID
	    LgD R2, JN,TCH,(WJ)g0
	    DEQ
	    gP  JRST	[CAIN	R1,EgpNQX7
			 JRST	.+h1
			 YOYO	DABERh0R]
	    RESTOR R2
	  >
	TOR RIvvP#PIvJP IVm^  	( J
	ONEBYT(A,B,C)
	YT(K;	j: ZP6
	  MOVEIZp	R0,JN.SCHEMA(CJ)[		
	  HRRM	R0,EN[0Q.J+RS.LOCK
	  L[PD	R0, JN,TCH,(CJ)[p
	  ST	R0, RS,RQ\ID,+ENQ.JH		
	  \0IFN TOPS10,<
	  \P  MOVE R1,[.ENQSI\p,,ENQ.JH]
	    E]NQ. R1,
	      J]0RST	[CAIE	R1,ENQR]PU%
			 YOYO	DABE]pRR
			 TXZ	STATU^S,$LKA.BIT	
			 ^0RETURN]
	  >
	 ^P IFN TOPS20,<
	 ^p   MOVEI R0,-NODE_S(CJ)				;GET OFF_0SET TO DET RUPT C_PH
	    IDIVI R0,_pSIZ.JN
	    ADDI` R0,^D36-MAX.JN
`0	    ST	R0, RS,RU`PPT,+ENQ.JH
	    `p; *** NOW THE ACTaU ENQ
	    MOVEIa0 R1,.ENQSI
	    aPMOVEI R2,ENQ.JH
ap	    ENQ
	      bJRST	[CAIE	R1,ENQb0X6
			 YOYO	DABEbPRR
			 TXZ	STATUbpS,$LKA.BIT	
			 cRETURN]
	  >
	ETURN]
	  >
	Kc4 @8,C.A*^D100 + EXCODE(B)00M&-I H h
	  T1.=1h
	  IFNB <B>,<


	    T1.==B
	 

(   IFN 100000*T1.

H-100000*B,<T1.==

hT1.+1>
	  >
	AOFFS.
	  OFFS.==OFFS.+T1.
	OtH1 N@5-
	GDATA	(N A.TMP1)			;STRLIBNx ARG HANDLING
	GODATA	(A.TMP2)
	GO8DATA	(CMDATA,SIZ.OXCM)
	GDATA	(CURTOxIM)			;USED TO COPNTROL TIMING OF PP8OLL LOOP
	GDATA	PX(JOFVOL)			;PROMPPxT DEFAULT VOL FORQ J (ONLY ACTIVE IQ8F 1 PROMPT ACTIVEQX)
	GDATA	(J.LISTQx)			;HEAD OF J'S RDAEMDB IS PROCESSR8ING
	GDATA	(J.PORXLL)			;POLL PERIORxD
	GDATA	(J.THRESSH)			;JT COPY PAS8GE-THRESHOLD
	GDSXATA	(NODES,ALL.JNSx)			;ALL THE SPACTE FOR THE JNODES
	GDATA	(RUPT.J)	TX		;IF JT.COPY IS TxINTERP FOR ANY REUASON, SET THIS
	U8GDATA	(TEMPBP,2)	UX		;STRLIB INTERFACE TEMP
	TERFAOH  h!"
	  IFNDEF GDATA.,<EXTERN (A>
	  IFDEF GDAHTA.,<
	    IFB<hB>,<A:: BLOCK 1>
	    IFNB<B>,<(A:: BLOCK B>
	  >
	CK B>
	Q&=P Q7YgP S(@ T:ezA  T:ezT:uyP T;{A  T;{T;%

RA  T;%

RUtWP  Ut;P Ut<RP Uu8P UuKuP Uu[zP @Uv

WP `Uv2P UvL\P Uv{P U&p hp6Q
	  IFDIFi <C><0>,<JT.POS(i0C)>
	  IFIDN <iPC><0>,<IFN TOPS10ip,<MOVE R0,A>>
	j  JIO	(A,B,D,IN)
	A,B,D,IU&x m07
	  IFN TmPOPS10,<
	    ST mpR0, UUO,CHAN,+WD.nD
	    XCT WD.n0D
	      SKIPA
nP	      JRST C
	np  >
	  IFN TOPS2o0,<
	    MOVE R1o0,A
	    MOVE R2oP,[POINT 36,B]
	op    MOVNI R3,JR.PpSIZ
	    SD
	 p0     ERJMP C
	  >
	JMP C
	 U8%i<P 	U8&

RP 	U8-i<P U8.

RP U8t@ U8tk@ U8uHw@ U8uXt@ U8u]@ U8ui<P U8um9@ U8vv@ U8v

RP U8v)2@ U8v8t@ U8vHt@ U8vk@ U>6kvA  U>6kvU?.@ jP6g
	  IFDIFjp <C><0>,<JT.POS(kC,O)>
	kpIFIDN k0<C><0>,<IFN TOPSkP10,<MOVE R0,A>>
	  IFIDN <B><JRl.BUF>,<JIO (A,Bl0,D,OUT)>
	  IFDlPIF <B><JR.BUF>,<lpJIO (A,B,D,LOUT)>
	B,D,LOUUPvy q7(

	  IFN Tq@OPS10,<
	    MOVq`E R0,JN.TCH(CJ)
r	    ST R0, UUO,Cr HAN,+WD.USB
	  r@  MOVEI R1,A
	 r`   LSH R1,2			
	s    XCT WD.USB
s 	  >
	  IFN TOPSs@20,<
	    MOVE Rs`1,JN.TCH(CJ)
	  t  MOVEI R2,A
	 t    SUBI R2,1		
	t@    LSH R2,^D9		
	    SFPTR
	   u ERJMP JT.ERR
	  >
	JT.ERR
	 8R7IYYgP Y7YgP [AjWP [J,s@P ]>$\`A  ]>$\`_63@P _:,.: 2#
	  IFNB 2(<D>,<D.B=OFFS.2H-A.D>
	  A.B2h==OFFS.
	  A$B3==C
	  POS.==PO3(S.+C
	  A%B==POS.
	 A%B==a&p u@7>
	  IFDIFu` <C><0>,<MOVEI Rv1,-1+C>
	  IFIDv N <C><0>,<HRRZ Rv@1,JN.LCOP(CJ)>
	v`  HRL	R1,A
	  MwOVE	R2,[.FHSLF,,Pw AGJRB]
	  MOVSI	w@R3,(PM%RWX)
	  Pw`MAP
	ERJMP D
	
	?ERJMPD?.@ x 7P
	  IFDIFx@ <C><0>,<MOVEI Rx`1,-1+C>
	  IFIDyN <C><0>,<HRRZ Ry 1,JN.LCOP(CJ)>
	y@  HRL	R1,A
	  My`OVEI R2,1
	  UFPzGS
	    ERJMP D
	    ERJMP De8 ;H#j
	  A=B;h
	<IFDEF .A,<
	    IFN .A+B,<(<
	      PRINTX <H"A" ALTER-EGO AL<hREADY IN USE
	  =  >
	  >
	  IFN=(DEF .A,<  .A==-B>
	<  .A==-eWCUA  eWCUeWCY z@7|
	  IFN Tz`OPS10,<
	    SET{OM R1			;WAKE SEL{ F
	    TXNE STAT{@US,$SL.BIT
	    {`WAKE R1,
	      |JFCL
	    DEBRK.| 
	      HALT
	||@     YOYO DABERR
	  >
	  IFN TOP}S20,<
	    MOVSI}  R1,(1B5)				;SWI}@TCH TO USER MODE }`IF ASLEEP
	    T~XNE STATUS,$SL.BI~ T
	    IORM R1,P~@C.R3				;WILL CAU~`SE ABORTION OF SLEEP STATE
	    D EBRK
	      ERJM@P DABERR
	  >
	DABERR
	  >
	g>>6 E($:
	
	  OFEHFS.==0
	  LMREG.Eh==0
	  LGREG.==1F6
	
	  IFDEF MUF(REG.,<MREG.=MUREGFH.>
	  IFNDEF MURFhEG.,<MREG.==TREG.G>
	  HMREG.==MREG(G.
	  HIGH==1
	
	  HIGH==1
	gtCT @8$
	  COPI `PACK.S+DABCODE,DAXA
	  IFN TOPS1 0,<
	    MOVE R1@,[4,,IPC.SJ]
	  `  IPCFS. R1,
	      YOYO DABERR
 	  >
	  IFN TOPS@20,<
	    MOVEI `R1,4
	    MOVEI R2,IPC.SJ
	    M SEND
	      YOYO@ DABERR
	  >
	DABERR
	  >
	g'QhvP g'QjWP gRM9@ gR^:=P  g^N@ 8
	  SWIT. ==SWIT.+1
	  IFB@ <B>,<XWD [ASCIZ`/A/],$A>
	  IFNB <B>,<XWD [ASCIZ/A/],B>
	ChDpP@inXATPinXiJ,s@PQ	QhTP	##QP	2\Q@	6.#QPQ@	K.y>}{woP