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

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

There are 18 other files named gendcl.unv in the archive. Click here to see a list.

x
,5

@P C@@ CJ8I0P CJ8MP CJ8M7P CJ8Y0P CJ8]P CJ8]7P CJ9i0P CJ9mP CJ9m7P 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.+T1CO %H"8
	GETLEN	%h<C>
A:	POINT 7&,.+2
	XWD	B,LEN&(.
	ASCII\C\
	T&H1.==<LEN.+4>/5
	&hT1.==T1.*5
	T1.='=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP #v17B12+AE2^:= 3#
	  A==O3(FFS.
	  OFFS.==0
	
	  OFFS.==0E3&x v8
	  T1.==v(B-A+1
	  SUB	PvH,[T1.,,T1.]
	  HvhRLZ	AP,P
	  ADD	wAP,[1,,A]
	  BLT	AP,B
		  BLE3&8; t(,
	  HRRZ	tHR0,P
	  ADD	R0,[thA,,1]		
	  BLT	uR0,B(P)
	  T1.=u(=B-A+1
	  ADD	uHP,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ 'H">
	  POINT'h A$B,A.BC,A%B
	A.BC,AE@$X P E@&yP E@&:=P E@&[ZP E@,X P E@.yP E@.:=P E@.[ZP E@tX P E@vyP E@v:=P E@v[ZP Eg$\` *H"Z
	  POS.=*h=-1
	  IRP B,<D+UMMY(A,B)>
	  +(OFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ +h"d
	  POS.=,=-1
	  IRP C,<D,(UMMY(A,C,B)>
,H	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP H$B
	  JRST	H(@[EXP .+1,B](A)
	.+1,B](A)GH1 &dCASA::G~	@ rP'^D36B5+OF%NWT+OF%PLN5+OF%G"
	  ACHAohN==B
	  $$$A==ph1B<^D35-B>
	  IqNI.CH==INI.CH ! $$$A
	I.CH ! $G? T%(
	WHATYP	T(<A>
	IFE SYM..+TH1,<
	MOVEI	A,BTh>
	IFN SYM..+1,<U
	MOVEI	0,B
	MOVEM	0,A>

	MG? Q(%
	WHATYP	QH<A>
	IFE SYM..+Qh1,<
	MOVE	A,B>R
	IFN SYM..+1,<
	  WHATYP <B>
RH	  IFN SYM..+1,<
	  MOVE	0,B
	 S MOVEM	0,A>
	  S(IFE SYM..+1,<
	 SH MOVEM	B,A>
	>
EM	B,A>
	>GC8P I$ H!P
	IFB<B>h,<	A: BLOCK 1>
	IFNB<B>,<	A: BLOCK B>
	A: BI Hh$H		
	REPEAIT 5-B,<IBP	A>
	SOS	A
	A>
I~  V(%N
	WHATYP	VH<A>
	IFE SYM..+Vh1,<
	MOVE	A,B
	MOVE	A+1,1+B
	>
	IFN SYM..+1WH,<
	  WHATYP	<BWh>
	  IFN SYM..+1X,<
	X(MOVE	0,B
	  MOVEM	0,A
	XH  MOVE	0,1+B
	 Xh MOVEM	0,1+A
	 Y >
	  IFE SYM..+Y(1,<
	  MOVEM	B,YHA
	  MOVEM	B+1Yh,1+A
	  >
	>
	A
	  >
	>
I6~i6 UH%.
	MOVEM	UhA,B
	MOVEM	A+1,1+B
	EM	A+1IVm^  (("B
	ONEBYT(A,B,C)
	YT(KK (<
	FUNCT	T YPOUT,<A>
	IFNB@ <B>,<JRST	B>
	KK0  (4
	JRST	[F@UNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P 
M&-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\Y (<
	FUNCT	T YPOUT,<A>
	IFNB@ <B>,<JRST	B>
	M&d\Y  (4
	JRST	[F@UNCT	TYPOUT,<A>
		 JRST	B]
	M'4P $[5]M?.  $[4]MVt= `(
	SALL
	ARGS.=0
	IF2, <I FNDEF A,<EXTERNA@L A>>
	IFB <`B>,<	PUSHJ P,A>
	  IFNB <B>,<
 	  IRP B,<ARGS.=@ARGS.+1>
	  MOVE`I	AP,[-ARGS.,,0
	  IRP B,<B>
	   ]+1
	  PUSHJ	P,A
	  >
	OH  H!H
	  IFNDEhF GDATA.,<EXTERN A>
	  IFDEF GDA(TA.,<
	    IFB<HB>,<A:: BLOCK 1>h
	    IFNB<B>,<A:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 <h#h
	  LEN.==0
	  IRPC A,<LEN.=LEN.+1>
	LEO2` H!
	IF2, <IhFNDEF A,<EXTERNAL A>>
	PUSHJ	P,A		
	PUSHJ	P,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==-GRQlYP S;HwP 	S;IZP 	S;XwP S;YZP S;h9@ S;hwP S;hx@ S;iZP S;H1P S;J2P S;J7P S;K2P 	S;KxP S;X1P S;Z2P S;Z7P S;[2P S;[xP S;h1P S;j2P S;j7P S;k2P S;kxP S;  #t2B12+AhY Z(%r
	  IFNDEZHF B$C,<T1.==^D3Zh6>
	  IFDEF B$[C,<T1.==B$C>
	[(  IFE T1.-^D36,<M[HOVE A,B.CD>
[h	  IFN T1.-^D36,<\
	    IFN T1.-^D\(18,<LDB A,[BP (\HB,C,D)]>
	    \hIFE T1.-^D18,<
	]      T1.==B%C
	      IFE T1.-^]HD17,<HLRZ A,B.]hCD>
	      IFE ^T1.-^D35,<HRRZ A^(,B.CD>
	    >
	  >
		    >Y/ ^h&		
	  IFN_DEF B$C,<T1.==^_(D36>
	 hIFDEF BH$C,<T1.==B$C>
	  IFE T1.-^D36,`<MOVE A,B.CD>`(
	  IFN T1.-^D36`H,<
	    IFN T1.-`h^D18,<LDB A,[BP a(B,C,D)]>
	aHa(  IFE T1.-^D18,<
	      T1.==B%ahC
	      IFE T1.b-^D17,<HLRE A,Bb(.CD>
	      IFbHE T1.-^D35,<HRRE bhA,B.CD>
	    >
	  >
		   Yi  }hnPOP$A+HMREG.-MREG.$A+HMREY&u0 (!&
	SALL
	HARGS.=0
	IF2, <IhFNDEF A,<EXTERNAL A>>
	HIFB <(B>,<	PUSHJ P,A>
	  IFNB <B>,<
h	  IRP B,<ARGS.=ARGS.+1>
	  MOVE(I	AP,[-ARGS.,,0
H	  IRP B,<B>
	h  ]+1
	  PUSHJ	P,A
	  >
	[3@ 5h#.<<<1_<A>>-1>B<B>>_<A>>[83 8h#b
	EXP	[
9	  IRP B,<
	  A9(CT..=0
	    IRPC9H B,<IFIDN <-><B9h>,<ACT..=1>
				:  STOPI>
	    IF:(N ACT..,<
	    :HB
	    >
	    I:hFE ACT..,<
		GET;LEN <B>
		ADDR.;(==[EXP LEN.
			A;HSCIZ\B\]
		EXP ;h<ADDR.+1>
	    ><
	  >
			0	]
	<(A:: MSG..
	MSG..=MSG..+2
	SG.[2N@ A$
	17B12+[ASCIZ\A\]
	+[[4t@ [4t=9@ [4v:=@ [J,p ("		
	  IFNH LMREG.,<MREG.==LhMREG.
			LMREG.==0>
	HIFB <B>,(<MREG.==MREG.+1>
	  IFNB <B>,<MRhEG.==B>
	  IFB  <A>,<MREG.=TREG. (>
	  IFG MREG.-H HMREG.,<HMREG.=MRE hG.>
	 IFNB <A>,!<
	  A=MREG.
	!(  IFDEF .A,<
	 !H   IFN .A+MREG.,!h<
	      PRINTX ""A" ALTER-EGO AL"(READY IN USE
	  "H  >
	  >
	  IFN"hDEF .A,<  .A==-MREG.>
	 >
	-] 6(#4
	  IFNDE6HF	A,<A==B>
		A,<A==B>
	_63@P _:( #z[1] T_:,.: (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==_RD89 n(&z
	  REPEAnHT <CA.UMAX-CA.USRnh+1>,<
	    CASLAoB(\CA.USR)
	  o(CA.USR==CA.USR+1
	  >
	.USR+1a&LW 7#B
	  STR.S7(T=.
	  BYTE (12)7HB
	  LEN.==0
	7h  IRP B,<LEN.==L8EN.+1>
A:	  POI8(NT	^D12,STR.ST
	  XWD	0,LEN.
	a$\YP a$kP

a%X2P 	a%[P 	a%h7P a&<qP a,\YP a,kP a-X2P a-[P a-h7P a.<qP at88@ at94@ atJ9@ at\YP atkP auX2P au[P auh7P av97@ av<qP a>Mm 5#*<POINT	WID5((B),A,POS(B)>B),A,POS(B)>a? |(j
	T1.==MR|HEG.
	REPEAT <MRE|hG.-TREG.>,<
	  R}ESTOR	T1.
	  T1.}(=T1.-1
	>




	
	>


a?K8 x@RESTOR<R5,R4,R3,R2>OR<R5,a? 4(#$<^L<A>+^L4H<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< /h#
	  B.C0==OFFS.-A.B
	 0( FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 #("(
	  A=B#H
	#hIFDEF .A,<
	    IFN .A+B,$<
	      PRINTX $("A" ALTER-EGO AL$HREADY IN USE
	  $h  >
	  >
	  IFN%DEF .A,<  .A==-B>
	<  .A==-eKy sh
	IRP A,<	POP	P,A> A,e&\W ~(x
	  IFN M~HREG.-TREG.,<JRST	~hLEAVE>
	  IFE MREG.-TREG.,<POPJ	P,>
	G.,<POPJ	PeL$:P 	eL$|WP 	eL%vP eL%I;P eL%m6P 	eL&wP 	eL&,4P 	eL&-8P 	eL&:P eL&:=P 	eL&[ZP eL,:P eL,|WP eL-vP eL-I;P eL-m6P eL.wP eL.,4P eL.-8P eL.:P eL.:=P eL.[ZP eLt:P eLt|WP eLuvP eLuI;P eLuKq@ eLum6P eLvwP eLv,4P eLv-8P eLv:P eLv:=P eLv[ZP g4 xH^
	  IFN HxhMREG.-MREG.,<		
y	    T1.==TREG.
y(	    REPEAT <MREGyH.-TREG.>,<
	    yh  T1.==T1.+1
	  z    SAVE	T1.
	  z(  >
	    IFDEF UzHNWIND,<MOVEM P,UNzhWIND>
	    IFDEF{ MY.INI,<JSP R1,M{(Y.INI>
	  >
	  {HIFE HMREG.-MREG.,{h<JSP	R1,SAV$A>




	V$A>
g4P s(
	IRP A,<	PUSH	P,A>A,g6K8 wH<SAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 r(
	  TWOSErHG
	  RELOC	0
	 rh GDATA.==0				
	  SEGSYM
		
	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$W iH&P
	  MOVEMih	P,FRAMCON
	  COjPI	PARSCON,A
	I	PARSCON,A
	g$ =H#p
	 GETLEN=h	A
	  ADDR.=1B1>2 + [	LEN.
			 ASCII/A/]+1
	Ag$89 m&n
	  CA.Am(==CA.USR
	  CASLmHAB(\CA.USR)
	  CmhA.USR==CA.USR+1
	SR==CA.USR+1
g'@ $[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP c(&:
	  IFNDEcHF B$C,<T1.==^D3ch6>
	  IFDEF B$dC,<T1.==B$C>
	d(  IFE T1.-^D36,<MdHOVEM A,B.CD>
	  IFN T1.-^D36,e<
	    IFN T1.-^e(D18,<DPB A,[BP (eHB,C,D)]>
	   eh IFE T1.-^D18,<
f	      T1.==B%Cf(
	      IFE T1.-fH^D17,<HRLM A,B.fhCD>
	      IFEg T1.-^D35,<HRRM g(A,B.CD>
	    >
	  >
		    gR5 gh&H		
	  T1.h==B%C
	  IFE Th(1.-^D17,<MOVSM AhH,B.CD>
	  IFEhh T1.-^D35,<IFN Ai-D,<MOVEM A,B.CD>>
	A,B.gS BH$
	GETLEN Bh(<A>)
	POINT	7,C[ASCII\A\]
	EXP	LEN.
	]
	EXPgSY AH$
	GETLEN Ah(<B>)
	EXP LEN.B
A:	ASCII/B/
	A:	ASCII/B/
gft\Y (<
	FUNCT	T YPOUT,<A>
	IFNB@ <B>,<JRST	B>
	gft\Y  (4
	JRST	[F@UNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y (<
	FUNCT	T YPOUT,<A>
	IFNB@ <B>,<JRST	B>
	gg\Y  (4
	JRST	[F@UNCT	TYPOUT,<A>
		 JRST	B]
	hDpP i@ i#Y  #~[3]iJ,s@P iWks J$PTXZ A,BRTXZ A,BiWkw IH$LTXO	A,BNTXO	A,Bi^x #|[2]P i` JH$Z
	IFE C&Jh777777,<TLA	B,(KC)>
	IFN C&777K(777,<TRA	B,C>
	<TRA	B,C>TX(C,A,B)TX(C,A,BibtP Kh$^TX(NE,A,B)TX(NE,A,ibu` L($bTX(NN,A,B)TX(NN,A,ibx N($rTX(O,A,B)TX(O,A,Bib| Lh$fTX(OA,A,B)TX(OA,A,ib|P M($jTX(OE,A,B)TX(OE,A,ib}` Mh$nTX(ON,A,B)TX(ON,A,icP P(%TX(Z,A,B)TX(Z,A,BicT Nh$vTX(ZA,A,B)TX(ZA,A,icTP O($zTX(ZE,A,B)TX(ZE,A,icU` Oh$~TX(ZN,A,B)TX(ZN,A,k2Mj` `(.
	SALL
	ARGS.=0
	  IFB < B>,<	PUSHJ P,A>@
	`IFNB <B>,<
	  IRP B,<ARGS.=ARGS.+1>
	@MOV EI	AP,[-ARGS.,,0
	  IRP B,<B>
`	  ]+1
	  PUSHJ	P,A
	  >
	kO\Y (<
	FUNCT	T YPOUT,<A>
	IFNB@ <B>,<JRST	B>
	kO\Y  (4
	JRST	[F@UNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ `(.
	SALL
	ARGS.=0
	  IFB < B>,<	PUSHJ P,A>@
	`IFNB <B>,<
	  IRP B,<ARGS.=ARGS.+1>
	@MOV EI	AP,[-ARGS.,,0
	  IRP B,<B>
`	  ]+1
	  PUSHJ	P,A
	  >
	kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m #r1B12+A(o` l(&b
	FUNCT	TYPOUT,<A>
		Toj@ (<
	FUNCT	T YPOUT,<A>
	IFNB@ <B>,<JRST	B>
	ol`  (4
	JRST	[F@UNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 CH$<
	SYM..==Ch0
	  IRPC A,<
D	  IFIDN <A><@>,D(<SYM..=1
			  STDHOPI>
	  IFIDN <DhA><(>,<SYM..=2
	E		  STOPI>
	  IFE(IDN <A><[>,<SYM.EH.=3
			  STOPI>
	  IFIDN <A><+>F,<SYM..=4
			  SF(TOPI>
	  IFIDN <FHA><->,<SYM..=4
Fh			  STOPI>
	  >G
	G(IFE SYM..,<
	    IFDEF .A,<GHSYM..=-1>
	  >
	..=-1>
	  >
o&  3h#<^L<-<<A>_<^L<A>>>-1>>>o?@ -"j
	  BYTES-((A,<B>)
	  OFFS.==0
	
	  OFFs?Mp H!

	PUSHJ	P,A		
	PUSHJ	Pup #x[0]+A	-hz qH'p
	IFG HIGrH,<
	  RELOC	400rp000
	tPHIGH==-1
	  IFG MREG.-TREqhG.,<
SAV$A:
	  sPT1.==TREG.
	  REs0PEAT <MREG.-TREG.t0>,<
	    T1.==T1sp.+1
	    SAVE	T1u@.
	  >
	  IFDEFt UNWIND,<
	    Mu OVEM P,UNWIND
	 v(   IFDEF UNWEXIT,v<
	      IFDEF MtxY.EXIT,<COPI UNWEvxXIT,MY.EXIT>
	  vX    IFNDEF MY.EXIw`T,<COPI UNWEXIT,PxOP$A-1>
	    >
x 	  >
	  IFDEF MYx@.INI,<JRST MY.INIx`>	
	y IFNDEF MY.yINI,<JRST	0(R1)>
	  >
	  IFDEF Uy@NWEXIT,<IFNDEF MYy`.EXIT,<MOVE P,UNWzIND>>
POP$A:
	 z  POPALL
	  POPJ	z@P,
	>

A:
	Ez`NTRY A
	IFN LMR{EG.,<MREG.==LMREG{ .
			LMREG.==0>
	AOFF.=0
	IFNB {`<B>,<
	  IRP B|,<
	  B=AOFF.
|@	  AOFF.=AOFF.+1
	  >
	>
	IFN M|`REG.-TREG.,<SAVAL}L>		
	IFE MREG.-} TREG.,<
	  IFDEF}@ UNWIND,<MOVEM P,}`UNWIND>
	  IFDEF~ MY.INI,<JSP R1,MY.INI>
	>
	~7	e~7

h x
	IFG HIG
	00RELOC	400
	  HIGH==-1
			MREG.==TREG.	
	  HMREG.==MREG.				
POP$A:
	  POPJ	P,
	>
HA:
	ENTRY A
	hIFE LMREG.,<LMREG.==MREG.>
	MREG.=TREG.			
	EG.	2Mj` qH'p
	IFG HIGrH,<
	  RELOC	400rp000
	tPHIGH==-1
	  IFG MREG.-TREqhG.,<
SAV$A:
	  sPT1.==TREG.
	  REs0PEAT <MREG.-TREG.t0>,<
	    T1.==T1sp.+1
	    SAVE	T1u@.
	  >
	  IFDEFt UNWIND,<
	    Mu OVEM P,UNWIND
	 v(   IFDEF UNWEXIT,v<
	      IFDEF MtxY.EXIT,<COPI UNWEvxXIT,MY.EXIT>
	  vX    IFNDEF MY.EXIw`T,<COPI UNWEXIT,PxOP$A-1>
	    >
x 	  >
	  IFDEF MYx@.INI,<JRST MY.INIx`>	
	y IFNDEF MY.yINI,<JRST	0(R1)>
	  >
	  IFDEF Uy@NWEXIT,<IFNDEF MYy`.EXIT,<MOVE P,UNWzIND>>
POP$A:
	 z  POPALL
	  POPJ	z@P,
	>

A:
	Ez`NTRY A
	IFN LMR{EG.,<MREG.==LMREG{ .
			LMREG.==0>
	AOFF.=0
	IFNB {`<B>,<
	  IRP B|,<
	  B=AOFF.
|@	  AOFF.=AOFF.+1
	  >
	>
	IFN M|`REG.-TREG.,<SAVAL}L>		
	IFE MREG.-} TREG.,<
	  IFDEF}@ UNWIND,<MOVEM P,}`UNWIND>
	  IFDEF~ MY.INI,<JSP R1,MY.INI>
	>
	~7	VeU ~@(
A:
	IF~`E LMREG.,<LMREG.==MREG.>
	MREG.=T REG.			
	AOFF.=0@
	IFNB <B>,<
	`  IRP B,<
	  B=AOFF.
	  AOFF.= AOFF.+1
	  >
	>
		W% ~@(
A:
	IF~`E LMREG.,<LMREG.==MREG.>
	MREG.=T REG.			
	AOFF.=0@
	IFNB <B>,<
	`  IRP B,<
	  B=AOFF.
	  AOFF.= AOFF.+1
	  >
	>
		f` H!
A:
	IFhE LMREG.,<LMREG.==MREG.>
	MREG.=TREG.			
	EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP