Google
 
Trailing-Edge - PDP-10 Archives - BB-4148D-BM - dbms-v5a/source/infdcl.unv
There is 1 other file named infdcl.unv in the archive. Click here to see a list.
x
,5*@P B;%\A  B;%\B;%\	A  B;%\	C2`A  C2`C?q@ C?R@ C?9<@ C?X<P C?:@ CJ<RA  CJ<RCJ=|A  CJ=|E2^:= tH&
	  A==OthFFS.
	  OFFS.==0
	
	  OFFS.==0EV5J9A  EV5J9Eg$\` y(P
	  POS.=yH=-1
	  IRP B,<DyhUMMY(A,B)>
	  zOFFS.==OFFS.+1
	FS.==OFFS.+1
	F@}G"
	  ACHA}HN==B
	  $$$A==}h1B<^D35-B>
	  I~NI.CH==INI.CH ! $$$A
	I.CH ! $I%A  I%IVm^  	( J
	ONEBYT(A,B,C)
	YT(K;&.' eh>B
	  ACT.=f=0
	  IFNB <D>,f(<ACT.==D>
	  IFfHE MODE.-PORTAL,<<fhC>B<EV%VERB>+<ACgT.>B<EV%FLAG>+ Bg(##>
	  IFE MODE.gH-GATE,<
	    IRPgh A,<
		A:
		EhNTRY A
	    >
h(	    PUSHJ P,OTSCALL
	  >
	TSCK;&.9 ]h>*
	ENTRY.	](CLOSED,CLOSE$,C.\xCLOSE)
	ENTRY.	(^OPEND,OPEN$,C.OPE^0N)
	
	; ***	DBI^PNFO SPECIAL ENTRY^p POINTS
	ENTRY.	_(SSBIND,SSBIN$,C.`0BIND,OK.NOSS!SCH._0IO)
	ENTRY.	(BIN`PD,PBIND$,C.BIND,S_PCH.IO)
	ENTRY.	(_pEBIND,PENDB$,C.BI`ND,SCH.IO)
	ENTRbY.	(CREF.,CREF$,Cb(.HOST,SCH.IO)
	EbHNTRY.	(DUMP,DUMP$bh,C.HOST)
	ENTRY.c	(DUMPS,DUMPS$,C.c(HOST)
	ENTRY.	(FcHREE,FREE$,C.HOST)ch
	ENTRY.	(MAP.,MdAP$,C.HOST,SCH.IOd()
	ENTRY.	(USAGEdH,USAGE$,C.HOST)
dh	ENTRY.	(USAGS,USeAGS$,C.HOST)
	ENe(TRY.	(IDNAME,IDNAM$,C.HOST)
	NAKc4 hh>FC.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.
	O$PP Q&=P Q7YgP R:7P S:4IA  S:4IS:IhtP YYgP Y7YgP [J,s@P \@ _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>M8A  a>M8a"Lz@ a2~p@ a?H6P a?`P aR`@ aReX<P ev3P evKzP evz2@ e8 ;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==-f:7P g

V@ 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
	g'TxPVg'TP@$g'V	g<%\sP 	g<%i<P 	g<&)3P 	g<,M@P g<-\sP g<-i<P g<.)3P g<tM@P g<u\sP g<ui<P g<v)3P gRM9@ gR^:=P  hDpP iJ,s@P %QP &3QP 	,CQP 	hTP 	<t*:P 	ChTP 	NhTP 	OhTP 

Q |S@P 8Q |C%@Q {N,<Q zNO) Q }O$Q {>}{woP