Google
 
Trailing-Edge - PDP-10 Archives - dbmsv5a - vtvdcl.unv
There are no other files named vtvdcl.unv in the archive.
x
,I@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^:= e*
	  A==Oe(FFS.
	  OFFS.==0
	
	  OFFS.==0Eg$\` ihT
	  POS.=j=-1
	  IRP B,<Dj(UMMY(A,B)>
	  jHOFFS.==OFFS.+1
	FS.==OFFS.+1
	F@mG"
	  ACHAnN==B
	  $$$A==n(1B<^D35-B>
	  InHNI.CH==INI.CH ! $$$A
	I.CH ! $GZ

I<PGZ{P I%A  I%I
YkP 2I
YkvA  I
YkvI
YkxA  I
YkxIVm^  yhN
	ONEBYT(A,B,C)
	YT(K;&.' UX-A
	  ACT.=Ux=0
	  IFNB <D>,V<ACT.==D>
	  IFV8E MODE.-PORTAL,<<VXC>B<EV%VERB>+<ACVxT.>B<EV%FLAG>+ BW##>
	  IFE MODE.W8-GATE,<
	    IRPWX A,<
		A:
		EWxNTRY A
	    >
X	    PUSHJ P,OTSCALL
	  >
	TSCK;&.9 O-
	
	; **N@*	DBMEND SPECIAL N ENTRY POINTS
	ENO TRY.	(SKBIND,SKBIM8N$,C.BIND,OK.NOSSOh!SCH.IO)
	ENTRY.Ph	(OSKBIN,OSKBI$,CO@.BIND,OK.NOSS!SCHQh.IO)
	ENTRY.	(BIMXND,PBIND$,C.BIND,P(SCH.IO)
	ENTRY.	PH(EBIND,PENDB$,C.BN`IND,SCH.IO)
	ENTRRY.	(PUNG,PUNG$,CP.HOST)
	ENTRY.	(RXV3V5,V3V5$,C.HOSTQH)
	ENTRY.	(INDEXS.,INDEX$,C.HOST)
	ENTRY.	(IDNAME,QIDNAM$,C.HOST)
	NAM$,C.HOST)
	Kc4 XX-EC.A*^D100 + EXCODE(B)00M&-I |l
	  T1.=1|(
	|HIFNB <B>,<
	    T1.==B
	 |h   IFN 100000*T1.}-100000*B,<T1.==}(T1.+1>
	  >
	  }HA=OFFS.
	  OFFS.==OFFS.+T1.
	O$PP Q&=P Q7YgP S:IhtP YtI6P YYgP Y7YgP [J,s@P \@ ]><`A  ]><`_`LP _`\P _aj3@ _akP@ _alP _63@P _2&<`A  _2&<`_2@IP _2@KZP _2@LtP _2@MP _2@YP 	_2@[ZP _2@\tP _2@]P _2AiP _2AkZP _2AltP _2AmP _6`J3P _6`KWP _6`KwP _6`LP _6`Z3P _6`[WP _6`[wP _6`\P 

_6aj3P _6akWP _6akwP _6alP _:,.: "H
	  IFNB "h<D>,<D.B=OFFS.#-A.D>
	  A.B#(==OFFS.
	  A$B#H==C
	  POS.==PO#hS.+C
	  A%B==POS.
	jA%B==>>`J3P	>>`KWP>>`LPB>`Z3PB>`[WPB>`\PBAkZ@ J`IP J`J3P J`MP J`MP J`YP J`Z3P J`]P J`]P JaiP Jaj3P JakP@ JamP JamP N`HVP 	N`J3P 	N`XVP N`Z3P NahVP Naj3P a=m6A  a=m6a=}TA  a=}TaX1A  aX1a?H6P a?`P eu]P evz2@ e8 ,n
	  A=B,(
	,HIFDEF .A,<
	    IFN .A+B,,h<
	      PRINTX -"A" ALTER-EGO AL-(READY IN USE
	  -H  >
	  >
	  IFN-hDEF .A,<  .A==-B>
	<  .A==-f:7P g @ g@@ g`@ g>>6 5h>
	
	  OF6FS.==0
	  LMREG.6(==0
	  LGREG.==16H6
	
	  IFDEF MU6hREG.,<MREG.=MUREG7.>
	  IFNDEF MUR7(EG.,<MREG.==TREG.7H>
	  HMREG.==MRE7hG.
	  HIGH==1
	
	  HIGH==1
	g'TxP g'Ux6P g'U{vP g'U|VP g.~cXP gR-A  gR-gRM9@ gR^:=P @g\v:A  g\v:hDpP i&!iP 2iJ	9A  iJ	9iJ,s@P kN-H9@ 2lNd@A  lNd@mS4IA  mS4Io?@ ^r
	  BYTES^((A,<B>)
	  OFFS.==0
	
	  OFF&3QP 	,CQP 	hTP 	<t*:P 	ChTP 	NhTP 

Q |S@P 8Q |N,<Q {N,<	Q {N,<	P O$Q }>}{woP