PDP-10 Archive: dbms-v5a/source/ddldcl.unv from BB-4148D-BM

Trailing-Edge - PDP-10 Archives - BB-4148D-BM_1980 - dbms-v5a/source/ddldcl.unv

There is 1 other file named ddldcl.unv in the archive. Click here to see a list.

x
,5'@P B;D A  B;D B;D@A  B;D@B;%\A  B;%\B;%\	A  B;%\	C
~-A  C
~-C
~-A  C
~-C
~-A  C
~-C&>6 WH->
	  COPI	WhSYMTYP(SYM),$A
	TYP(SYM),$A
C.x@&C.|`P& C.~ P&@C/P&@C/P&`C/PP&HC/PP&@C/0P&PC2uP%C2v[ P$C;HA  C;HCJM|P CVP%CV@P%@CVP%CVHP% CVL@P%`CVNP% E&y2A  E&y2E2%m6 U(-2
	  IFB <UHD>,<FUNCT	BLD.PLUh,<B>>
	  IFNB <VD>,<FUNCT BLD.NMV(,<C,D>>
	  MOVEM	R1,A
	 MOVE2^:= 0 
	  A==OPFFS.
	  OFFS.==0
	
	  OFFS.==0FE
P FIP FQP FUP FU"P FU2P FYP 
FY"P ;FY"DP G*:@ G>nz@ G>v=P"G>vcV pH

	IF2,<
ph	IFDEF CA,<CA==qCA+1>
	IFNDEF Cq(A,<CA==1>
	>
	T2.==CA
	>
GK(@ I$PP @I
7P I` qh
	M.==B
	T1.==M._-^D3
	r(CONV.M	\T1.
	A=M.+T2.
	
	A=K>P K>4*:A  K>4*:K>`A  K>`K?*:A  K?*:KK;ZA  KK;ZM&-I 0!G
	  T1.=1P
	pIFNB <B>,<
	    T1.==B
	    IFN 100000*T1.0-100000*B,<T1.==PT1.+1>
	  >
	  pA=OFFS.
	  OFFS.==OFFS.+T1.
	M&d+AM&d+M&eI9P  MJ
	  IFB <RHC>,<FUNCT	GET.PLRh>
	  IFNB <C>,<SFUNCT GET.NM,<B,S(C>>
	  MOVEM	R1,A
	 MOVEM	R1O?%m6 Sh-&
	  IFB <TC>,<FUNCT	GOT.PLT(>
	  IFNB <C>,<THFUNCT GOT.NM,<B,ThC>>
	  MOVEM	R1,A
	 MOVEM	R1OJ,p "0"-		
	  IFB"P <B>,<GREG.==GRE"pG.-1>
	  IFNB <#B>,<GREG.==B>
	#0  IFL GREG.-LGREG#P.,<LGREG.=GREG.>
	  A=GREG.
	  $IFDEF .A,<
	$P $0 IFN .A+GREG.,<
	      PRINTX "$pA" ALTER-EGO ALRE%ADY IN USE
	    %0>
	  >
	  IFNDE%PF .A,<  .A==-GREG.>
	.A==-GROJ,s@P Q&=P Q7YgP Su|R I(,P
	IRP A,IH<
	HLRZ	R0,TOKORIhI(TOKCUR)
	CAIN	JR0,$A
	ADDI	TOKCUR,1
	>
	TOKS:J`A  S:J`S:7A  S:7S:@P SO+x L(,j
	  HLRZ	LHR0,TOKORI(TOKCUR)Lh
	  XORI	R0,A
M	  TRNE	R0,A
	 M( TDZA	R1,R1
	  MOVEI	R1,1
	  MSO%zr <H,>
	  DYN.=C=0				
	  TOK.=0<h
	  IRP A,<
	 C(   TOK.=TOK.+1
	CH    IFE ALNID - <ChALNID&$A>,<DYN.=D=1>	
	  >

	  D(IFN DYN.,<REFSYM	DHTOKORI
		    HRRDhZ	R0,SYMTYP(SYM)>E
	  IFE DYN.,<HLE(RZ	R0,TOKORI(TOKCEHUR)>
	  MOVEI	R1Eh,TOK.
	  IFG TOKF.-1,<
	  CAME R0F(,[IRP A,<$A>]-1FH(R1)
	  SOJG	R1,Fh.-1
	  >
	  IFEG TOK.-1,<
	  CAIG(E	R0,$A
	  TDZAGH	R1,R1
	  ADDI	TGhOKCUR,1
	  >
	KCUR,1
	  >
	SR-PP  WLSP  WN|RP"Y`@ Y<A  Y<YFH1A  YFH1YYgP Y&tT A  Y&tT Y&uX<P PY&u`A  Y&u`Y&v98@ Y7YgP Y8t,@ Y8uI7@ Y8uJ7@ Y8um6@ Y>=|P Z8P![<`A  [<`['0P [J,s@P [`t*:P ]em6P ]

P"]6L@A  ]6L@]>P!]>`P!]>t+A  ]>t+]?P! ]?$A  ]?$]?$[vA  ]?$[v]?%m6A  ]?%m6]?&
1A  ]?&
1]?&mA  ]?&m]@P @_63@P _CP!_C%wP _KAhTP _S\Y _(.


	  IFNB _H<B>,<JUMPE	R0,[F_hILERR (<A>,B)]>`
	  IFB <B>,<
`(	    IFNB <A>,<J`HUMPE	R0,[FILERR (`h<A>,ABORT)]>
	 a   IFB <A>,<JUMPa(E R0,[FILERR (DDLaHSAF##,ABORT)]>
	  >
	ORT)]>
	AhTPHa8wA  a8wa$th1P a$ukZP a$um6P  a$v`P @aJIhTP aJ|xXA  aJ|xXaJ||PP aJ~
	  HLRZ	JhR0,TOKORI(TOKCUR)K
	  XORI	R0,A
K(	  TRNE	R0,A
	 KH SYNERX	<"A">
	Kh  ADDI	TOKCUR,1
	DDI	TOKCUR,1
aVt=P @e6>6 Vh-8
	  HRRZ	WSYM,A(TOKCUR)
	M,A(TOKCUR)
	ee|Pe Mh-
	IRP A,N<
	  IFDIF <A><N(EOS>,<
	  IFN ALNHNID - <ALNID&$A>Nh,<HLRZ	R0,TOKORI(OTOKCUR)>
	  IFE O(ALNID - <ALNID&$OHA>,<REFSYM	TOKORIOh
				     HRRZ	RP0,SYMTYP(SYM)>
	P(  CAIE	R0,$A
	 PH SYNERX	<"A">
	Ph  ADDI	TOKCUR,1
Q	  >
	  IFIDN <Q(A><EOS>,<
	  CAMQHE	TOKCUR,TOKCNT		Qh
	  SYNERX	<"EOS">
	  >
	>
	e\[P @g
k@ @g9k@ @g>>6 Q%
	
	  OFQ0FS.==0
	  LMREG.QP==0
	  LGREG.==1Qp6
	
	  IFDEF MURREG.,<MREG.=MUREGR0.>
	  IFNDEF MURRPEG.,<MREG.==TREG.Rp>
	  HMREG.==MRESG.
	  HIGH==1
	
	  HIGH==1
	g&>6 X(-f
	  REG.=XH=CRU
	  IFNB <CXh>,<REG.==C>
	ADYDSYM	(A)
	FUNCTY(	STORE%,<[TID.B]YH>
	OTSERR	DDLSAFYh##,ABORT
	MOVEM	ZR0,SYMDBK(SYM)			Z(
	MOVEM	R1,REG.
	IFDEF B.NAM,<
	  COPI	A.PT1,B[.NAM(REG.)
	  CO[(PI	A.PT2,SM.BP(SY[HM)
	  FUNCT	COPS[hTR,<VARY @A.PT1,@\A.PT2>
	>
	IFDE\(F B.NMID,<
	  A\HOS	R1,NMID
	  ST\h	R1, B,NMID,(REG.)
	>
	D,(REGg'UJ7P g.,+A  g.,+g4t,A  g4t,g4t,A  g4t,g4uI7P g4v\yA  g4v\ygR@P gRM9@ gR^:=@ @g\u92A  g\u92g\vd{A  g\vd{gfh@ gfim@ 3gfl-3@ gflHU@ gfnH1A  gfnH1gfnN8@ gft\X ^(-v
	  JRST	^H[MOVEI	R5,[ASCIZ\^hA\]
		 JRST	ABORTP]
	JRST	ABOgft\\ ](-n
	  JRST	]H[MOVEI	R5,[ASCIZ\]hA\]
		 JRST	ABORTX]
	JRST	ABOggRA  ggRghv>9A  ghv>9hDpP hHpP i*:@ iAhTP i>\89 H(,F
	  JRST	HH[JRST	.+1
	  IRPHh A,<AOJA TOKCUR,A>](R1)
	CUR,i>\;ZA  i>\;Zi>\=9@ i>]X<@ <i>]{(A  i>]{(i>]|TA  i>]|Ti>^i1A  i>^i1iJ,s@P k;<[sA  k;<[skO>6P!m&	hTP ohwA  ohw	99@&@+	6I9@&@	e9@&@	e@@&@	eK{@& 	fx<@&@	g9@% 	P@& 	X @&@	X4@&@	X7@%@	X9@&@	@% 	0@&@	w@%@	:3@&@	 @& 	.K`@&@

:z@&@	
,ky@&@	
M`@&@	
Mi@&@	
N@@&@	,iR@&@	H@&

	e|r@&@,	}Kw@ @	}[0@&@	}\@&@7	}\@&@		~ @&@
	~[Z@& 	.+Q@&@;	.,R@&@
	H7@%`	9<@&@

	\`@&@5	,0@&@	N)1@&@	N*r@% 	N<@&@	N<@&@	N<

@&@	.@&@9	.

`@&@	t;r@&@	t@@&@-	tLq@&@	|0@&H	|`@&@	~0@@	=@&@4	D98@&@	D;@&@	Mi@&@-	N,z@&@	O	2@&@	ex:@&@	~ @& 	Y @&@.	{ @& 	.@@&@.	&0@&@4	&lr@&@	&p@&@;	&v99@&@/	&vI9@&@	&vK`@&@7	&vku@&@/	'@& 	*~\W@&@	./@& 	2

yq@&@	B.(r@ @	B.*7@&@	BL0@&@	Bf\`@!	Cy@&@	CP@&@	Cx`@&@	C}@&@	C[\@%@	J@&@!	K-m7@&@:	N	6@&@"	N,=@&@#	N-M@&@8	N.@@&@#	N.KP@%@	N.L`@&@6	NDR@&@9	NO) @&@$	N~-@&@%	O$@@ @	O$@&@:	O%|R@&@3	O,,q@&@$	O,,u@%@	O.

@&@6	ON=@&@%	R-\@&@&	R/
	RMY9@& 		Rx@&@&	SY@&@'	SN	 @&@'	VtZ@&@(	Vv\r@!	WH:@&@(	Wr@&@5	WP@&@3	W\T@% 	WS@&@)	ZL@&@*	^NJ@&@*	^~)@&@+S@P PQ {O$Q zOMPQ {R}8zQ z>}{woP