Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/build/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  l&o
	  T1.==l81
	  IFNB <B>,<lX
	    T1.==B
	lx    IFN 100000*T1m.-100000*B,<T1.=m8=T1.+1>
	  >
	 mX A==OFFS. - 1
	mx  OFFS.==OFFS.+T1.
	.==OFFS.+T1CO `x&
	GETLEN	a<C>
A:	POINT 7a8,.+2
	XWD	B,LENaX.
	ASCII\C\
	Tax1.==<LEN.+4>/5
	bT1.==T1.*5
	T1.=b8=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP 'Q17B12+AE2^:= n8&u
	  A==OnXFFS.
	  OFFS.==0
	
	  OFFS.==0E3&x 18#
	  T1.==1XB-A+1
	  SUB	P1x,[T1.,,T1.]
	  H2RLZ	AP,P
	  ADD	28AP,[1,,A]
	  BLT	AP,B
		  BLE3&8; /X#
	  HRRZ	/xR0,P
	  ADD	R0,[0A,,1]		
	  BLT	08R0,B(P)
	  T1.=0X=B-A+1
	  ADD	0xP,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ bx&
	  POINTc 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$\` ex&5
	  POS.=f=-1
	  IRP B,<Df8UMMY(A,B)>
	  fXOFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ g&?
	  POS.=g8=-1
	  IRP C,<DgXUMMY(A,C,B)>
gx	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP 8(
	  JRST	X@[EXP .+1,B](A)
	.+1,B](A)GH1 *?CASA::G~	@ .*p^D36B5+OF%NWT+OF%PLN5+OF%G"
	  ACHA+N==B
	  $$$A==,1B<^D35-B>
	  I,8NI.CH==INI.CH ! $$$A
	I.CH ! $G? 8)
	WHATYP	X<A>
	IFE SYM..+x1,<
	MOVEI	A,B>
	IFN SYM..+1,<8
	MOVEI	0,B
	MOVEM	0,A>

	MG? 
X(w
	WHATYP	
x<A>
	IFE SYM..+
	MOVE	A,B>
	IFN SYM..+1,<
	  WHATYP <B>
	 IFN SYM..+1,<
	  MOVE	0,B
	 8 MOVEM	0,A>
	  XIFE SYM..+1,<
	 x MOVEM	B,A>
	>
EM	B,A>
	>GC8P I$ Tx%+
	IFB<B>U,<	A: BLOCK 1>
U8	IFNB<B>,<	A: BLOCK B>
	A: BI (#		
	REPEA8T 5-B,<IBP	A>
	SOS	A
	A>
I~  X))
	WHATYP	x<A>
	IFE SYM..+1,<
	MOVE	A,B
	MOVE	A+1,1+B
	>
	IFN SYM..+1x,<
	  WHATYP	<B>
	  IFN SYM..+18,<
	XMOVE	0,B
	  MOVEM	0,A
	x  MOVE	0,1+B
	  MOVEM	0,1+A
	 8 >
	  IFE SYM..+X1,<
	  MOVEM	B,xA
	  MOVEM	B+1,1+A
	  >
	>
	A
	  >
	>
I6~i6 x)	
	MOVEM	A,B
	MOVEM	A+1,1+B
	EM	A+1IVm^  cX&
	ONEBYT(A,B,C)
	YT(KK B0,
	FUNCT	TBPYPOUT,<A>
	IFNBBp <B>,<JRST	B>
	KK0 AP,
	JRST	[FApUNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P 
M&-I i&U
	  T1.=1i8
	iXIFNB <B>,<
	    T1.==B
	 ix   IFN 100000*T1.j-100000*B,<T1.==j8T1.+1>
	  >
	  jXA=OFFS.
	  OFFS.==OFFS.+T1.
	M&d\Y B0,
	FUNCT	TBPYPOUT,<A>
	IFNBBp <B>,<JRST	B>
	M&d\Y AP,
	JRST	[FApUNCT	TYPOUT,<A>
		 JRST	B]
	M'4P '][5]'	M?.  '[[4]%/MVt= <+u
	SALL
	<0ARGS.=0
	IF2, <I<PFNDEF A,<EXTERNA<pL A>>
	=0IFB <=B>,<	PUSHJ P,A>
	  IFNB <B>,<
=P	  IRP B,<ARGS.==pARGS.+1>
	  MOVE>I	AP,[-ARGS.,,0
>0	  IRP B,<B>
	>P  ]+1
	  PUSHJ	P,A
	  >
	OH  Rx%#
	  IFNDESF GDATA.,<EXTERN S8A>
	  IFDEF GDASXTA.,<
	    IFB<SxB>,<A:: BLOCK 1>T
	    IFNB<B>,<T8A:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 x'C
	  LEN.=x80
	  IRPC A,<LEN.=LEN.+1>
	LEO2` Kx$c
	IF2, <ILFNDEF A,<EXTERNAL8L A>>
	PUSHJ	P,A		
	PUSHJ	P,OJ,p Ux%I		
	  IFBV <B>,<GREG.==GREV8G.-1>
	  IFNB <VXB>,<GREG.==B>
	Vx  IFL GREG.-LGREGW.,<LGREG.=GREG.>
	  A=GREG.
	  WXIFDEF .A,<
	X Wx IFN .A+GREG.,<
	      PRINTX "X8A" ALTER-EGO ALREXXADY IN USE
	    Xx>
	  >
	  IFNDEYF .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;  'O2B12+AY X)M
	  IFNDExF B$C,<T1.==^D36>
	  IFDEF B$8C,<T1.==B$C>
	X  IFE T1.-^D36,<MxOVE A,B.CD>
	  IFN T1.-^D36,<8
	    IFN T1.-^DX18,<LDB A,[BP (xB,C,D)]>
	    IFE T1.-^D18,<
	8      T1.==B%C
	      IFE T1.-^xD17,<HLRZ A,B.CD>
	      IFE 8T1.-^D35,<HRRZ AX,B.CD>
	    >
	  >
		    >Y/ )q		
	  IFN8DEF B$C,<T1.==^XD36>
	IFDEF Bx$C,<T1.==B$C>
	  IFE T1.-^D36,8<MOVE A,B.CD>X
	  IFN T1.-^D36x,<
	    IFN T1.-^D18,<LDB A,[BP 8(B,C,D)]>
	xX  IFE T1.-^D18,<
	      T1.==B%C
	      IFE T1.8-^D17,<HLRE A,BX.CD>
	      IFxE T1.-^D35,<HRRE A,B.CD>
	    >
	  >
		   Yi  9#IPOP$A+HMREG.-MREG.$A+HMREY&u0 MX%
	SALL
	MxARGS.=0
	IF2, <INFNDEF A,<EXTERNAN8L A>>
	NxIFB <NXB>,<	PUSHJ P,A>
	  IFNB <B>,<
O	  IRP B,<ARGS.=O8ARGS.+1>
	  MOVEOXI	AP,[-ARGS.,,0
Ox	  IRP B,<B>
	P  ]+1
	  PUSHJ	P,A
	  >
	[3@ q'	<<<1_<A>>-1>B<B>>_<A>>[83 t'=
	EXP	[
t8	  IRP B,<
	  AtXCT..=0
	    IRPCtx B,<IFIDN <-><Bu>,<ACT..=1>
				u8  STOPI>
	    IFuXN ACT..,<
	    uxB
	    >
	    IvFE ACT..,<
		GETv8LEN <B>
		ADDR.vX==[EXP LEN.
			AvxSCIZ\B\]
		EXP w<ADDR.+1>
	    >w8
	  >
			0	]
	wXA:: MSG..
	MSG..=MSG..+2
	SG.[2N@ |8'c
	17B12+[ASCIZ\A\]
	+[[4t@ [4t=9@ [4v:=@ [J,p YX%q		
	  IFNYx LMREG.,<MREG.==LZMREG.
			LMREG.=Z8=0>
	ZxIFB <B>,ZX<MREG.==MREG.+1>
	  IFNB <B>,<MR[EG.==B>
	  IFB [8<A>,<MREG.=TREG.[X>
	  IFG MREG.-H[xMREG.,<HMREG.=MRE\G.>
	 IFNB <A>,\8<
	  A=MREG.
	\X  IFDEF .A,<
	 \x   IFN .A+MREG.,]<
	      PRINTX ]8"A" ALTER-EGO AL]XREADY IN USE
	  ]x  >
	  >
	  IFN^DEF .A,<  .A==-MREG.>
	 >
	-] qX'
	  IFNDEqxF	A,<A==B>
		A,<A==B>
	_63@P _:( 'U[1]&_:,.: d&+
	  IFNB d8<D>,<D.B=OFFS.dX-A.D>
	  A.Bdx==OFFS.
	  A$Be==C
	  POS.==POe8S.+C
	  A%B==POS.
	 A%B==_RD89 )X*U
	  REPEA)xT <CA.UMAX-CA.USR*+1>,<
	    CASLA*8B(\CA.USR)
	  *XCA.USR==CA.USR+1
	  >
	.USR+1a&LW r8'
	  STR.SrXT=.
	  BYTE (12)rxB
	  LEN.==0
	s  IRP B,<LEN.==Ls8EN.+1>
A:	  POIsXNT	^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 p8'<POINT	WIDpX(B),A,POS(B)>B),A,POS(B)>a? 7X#E
	T1.==MR7xEG.
	REPEAT <MRE8G.-TREG.>,<
	  R88ESTOR	T1.
	  T1.8X=T1.-1
	>




	
	>


a?K8 38#RESTOR<R5,R4,R3,R2>OR<R5,a? oX&<^L<A>+^Lox<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< k&]
	  B.Ck8==OFFS.-A.B
	 kX FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 ^X&
	  A=B^x
	 IFDEF .A,<
	    IFN .A+B,_8<
	      PRINTX _X"A" ALTER-EGO AL_xREADY IN USE
	  `  >
	  >
	  IFN`8DEF .A,<  .A==-B>
	<  .A==-eKy /"y
	IRP A,<	POP	P,A> A,e&\W 9X#S
	  IFN M9xREG.-TREG.,<JRST	:LEAVE>
	  IFE MR:8EG.-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 3x#9
	  IFN H4MREG.-MREG.,<		
48	    T1.==TREG.
4X	    REPEAT <MREG4x.-TREG.>,<
	    5  T1.==T1.+1
	  58    SAVE	T1.
	  5X  >
	    IFDEF U5xNWIND,<MOVEM P,UN6WIND>
	    IFDEF68 MY.INI,<JSP R1,M6XY.INI>
	  >
	  6xIFE HMREG.-MREG.,7<JSP	R1,SAV$A>




	V$A>
g4P .X"u
	IRP A,<	PUSH	P,A>A,g6K8 2x#SAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 -X"q
	  TWOSE-xG

	  RELOC	0
.	  GDATA.==0				
	  SEGSYM
		6 +"i
	
	  OF+8FS.==0
	  LMREG.+X==0
	  LGREG.==1+x6
	
	  IFDEF MU,REG.,<MREG.=MUREG,8.>
	  IFNDEF MUR,XEG.,<MREG.==TREG.,x>
	  HMREG.==MRE-G.
	  HIGH==1
	
	  HIGH==1
	g$W $x*+
	  MOVEM%	P,FRAMCON
	  CO%8PI	PARSCON,A
	I	PARSCON,A
	g$ xx'K
	 GETLENy	A
	  ADDR.=1B1y82 + [	LEN.
			 ASCII/A/]+1
	Ag$89 (8*I
	  CA.A(X==CA.USR
	  CASL(xAB(\CA.USR)
	  C)A.USR==CA.USR+1
	SR==CA.USR+1
g'@ '_[6]%Mg'Qj7P g'Qk6P g'QlP g'QlYP gP X*
	  IFNDExF B$C,<T1.==^D36>
	  IFDEF B$8C,<T1.==B$C>
	X  IFE T1.-^D36,<MxOVEM A,B.CD>
	  IFN T1.-^D36, 8<
	    IFN T1.-^ XD18,<DPB A,[BP ( xB,C,D)]>
	   ! IFE T1.-^D18,<
!8	      T1.==B%C!X
	      IFE T1.-!x^D17,<HRLM A,B."CD>
	      IFE"8 T1.-^D35,<HRRM "XA,B.CD>
	    >
	  >
		    gR5 #*#		
	  T1.#8==B%C
	  IFE T#X1.-^D17,<MOVSM A#x,B.CD>
	  IFE$ T1.-^D35,<IFN A$8-D,<MOVEM A,B.CD>>
	A,B.gS }x's
	GETLEN ~(<A>)
	POINT	7,~8[ASCII\A\]
	EXP	LEN.
	]
	EXPgSY |x'k
	GETLEN }(<B>)
	EXP LEN.}8
A:	ASCII/B/
	A:	ASCII/B/
gft\Y B0,
	FUNCT	TBPYPOUT,<A>
	IFNBBp <B>,<JRST	B>
	gft\Y AP,
	JRST	[FApUNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y B0,
	FUNCT	TBPYPOUT,<A>
	IFNBBp <B>,<JRST	B>
	gg\Y AP,
	JRST	[FApUNCT	TYPOUT,<A>
		 JRST	B]
	hDpP i@ i#Y  'Y[3]'AiJ,s@P iWks 8(+TXZ A,B-TXZ A,BiWkw x('TXO	A,B)TXO	A,Bi^x 'W[2]$ki` x(5
	IFE C&777777,<TLA	B,(8C)>
	IFN C&777X777,<TRA	B,C>
	<TRA	B,C>
(aTX(C,A,B)TX(C,A,BibtP (9TX(NE,A,B)TX(NE,A,ibu` X(=TX(NN,A,B)TX(NN,A,ibx 	X(MTX(O,A,B)TX(O,A,Bib| (ATX(OA,A,B)TX(OA,A,ib|P X(ETX(OE,A,B)TX(OE,A,ib}` 	(ITX(ON,A,B)TX(ON,A,icP X(]TX(Z,A,B)TX(Z,A,BicT 
(QTX(ZA,A,B)TX(ZA,A,icTP 
X(UTX(ZE,A,B)TX(ZE,A,icU` (YTX(ZN,A,B)TX(ZN,A,k2Mj` ?,	
	SALL
	?0ARGS.=0
	  IFB <?PB>,<	PUSHJ P,A>?p
	@IFNB <B>,<
	  IRP B,<ARGS.@0=ARGS.+1>
	@pMOV@PEI	AP,[-ARGS.,,0
	  IRP B,<B>
A	  ]+1
	  PUSHJ	P,A
	  >
	kO\Y B0,
	FUNCT	TBPYPOUT,<A>
	IFNBBp <B>,<JRST	B>
	kO\Y AP,
	JRST	[FApUNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ ?,	
	SALL
	?0ARGS.=0
	  IFB <?PB>,<	PUSHJ P,A>?p
	@IFNB <B>,<
	  IRP B,<ARGS.@0=ARGS.+1>
	@pMOV@PEI	AP,[-ARGS.,,0
	  IRP B,<B>
A	  ]+1
	  PUSHJ	P,A
	  >
	kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m 'M1B12+Ao` 'X*=
	FUNCT	TYPOUT,<A>
		Toj@ B0,
	FUNCT	TBPYPOUT,<A>
	IFNBBp <B>,<JRST	B>
	ol` AP,
	JRST	[FApUNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 ~x(
	SYM..==0
	  IRPC A,<
8	  IFIDN <A><@>,X<SYM..=1
			  STxOPI>
	  IFIDN <A><(>,<SYM..=2
	8		  STOPI>
	  IFXIDN <A><[>,<SYM.x.=3
			  STOPI>
	  IFIDN <A><+>8,<SYM..=4
			  SXTOPI>
	  IFIDN <xA><->,<SYM..=4
			  STOPI>
	  >8
	XIFE SYM..,<
	    IFDEF .A,<xSYM..=-1>
	  >
	..=-1>
	  >
o&  o&y<^L<-<<A>_<^L<A>>>-1>>>o?@ h8&E
	  BYTEShX(A,<B>)
	  OFFS.==0
	
	  OFFs?Mp Lx$g
	PUSHJ	P,A		
	PUSHJ	Pup 'S[0]+A	-hz ,x+K
	IFG HIG-8H,<
	  RELOC	400. 000
	0HIGH==-1
	  IFG MREG.-TRE-G.,<
SAV$A:
	  /T1.==TREG.
	  RE.`PEAT <MREG.-TREG./`>,<
	    T1.==T1/ .+1
	    SAVE	T10p.
	  >
	  IFDEF/@ UNWIND,<
	    M0POVEM P,UNWIND
	 1X   IFDEF UNWEXIT,18<
	      IFDEF M0(Y.EXIT,<COPI UNWE2(XIT,MY.EXIT>
	  2    IFNDEF MY.EXI3T,<COPI UNWEXIT,P30OP$A-1>
	    >
3P	  >
	  IFDEF MY3p.INI,<JRST MY.INI4>	
	4PIFNDEF MY.40INI,<JRST	0(R1)>
	  >
	  IFDEF U4pNWEXIT,<IFNDEF MY5.EXIT,<MOVE P,UNW50IND>>
POP$A:
	 5P POPALL
	  POPJ	5pP,
	>

A:
	E6NTRY A
	IFN LMR60EG.,<MREG.==LMREG6P.
			LMREG.==0>
	AOFF.=0
	IFNB 7<B>,<
	  IRP B70,<
	  B=AOFF.
7P	  AOFF.=AOFF.+1
	  >
	>
	IFN M8REG.-TREG.,<SAVAL80L>		
	IFE MREG.-8PTREG.,<
	  IFDEF8p UNWIND,<MOVEM P,9UNWIND>
	  IFDEF90 MY.INI,<JSP R1,MY.INI>
	>
	\Y	e~7 H$S
	IFG HIGH8H,<
	  RELOC	400HX000
	HxHIGH==-1
	  MREG.==TREG.	I			
	  HMREG.==MI8REG.				
POP$A:
	  POPJ	P,
	>
IxA:
	ENTRY A
	JIFE LMREG.,<LMREGJ8.==MREG.>
	MREG.=TREG.			
	EG.	2Mj` ,x+K
	IFG HIG-8H,<
	  RELOC	400. 000
	0HIGH==-1
	  IFG MREG.-TRE-G.,<
SAV$A:
	  /T1.==TREG.
	  RE.`PEAT <MREG.-TREG./`>,<
	    T1.==T1/ .+1
	    SAVE	T10p.
	  >
	  IFDEF/@ UNWIND,<
	    M0POVEM P,UNWIND
	 1X   IFDEF UNWEXIT,18<
	      IFDEF M0(Y.EXIT,<COPI UNWE2(XIT,MY.EXIT>
	  2    IFNDEF MY.EXI3T,<COPI UNWEXIT,P30OP$A-1>
	    >
3P	  >
	  IFDEF MY3p.INI,<JRST MY.INI4>	
	4PIFNDEF MY.40INI,<JRST	0(R1)>
	  >
	  IFDEF U4pNWEXIT,<IFNDEF MY5.EXIT,<MOVE P,UNW50IND>>
POP$A:
	 5P POPALL
	  POPJ	5pP,
	>

A:
	E6NTRY A
	IFN LMR60EG.,<MREG.==LMREG6P.
			LMREG.==0>
	AOFF.=0
	IFNB 7<B>,<
	  IRP B70,<
	  B=AOFF.
7P	  AOFF.=AOFF.+1
	  >
	>
	IFN M8REG.-TREG.,<SAVAL80L>		
	IFE MREG.-8PTREG.,<
	  IFDEF8p UNWIND,<MOVEM P,9UNWIND>
	  IFDEF90 MY.INI,<JSP R1,MY.INI>
	>
	\Y	VeU 9p+]
A:
	IF:E LMREG.,<LMREG.=:0=MREG.>
	MREG.=T:PREG.			
	AOFF.=0:p
	IFNB <B>,<
	;  IRP B,<
	  B;0=AOFF.
	  AOFF.=;PAOFF.+1
	  >
	>
	(]icT	W% 9p+]
A:
	IF:E LMREG.,<LMREG.=:0=MREG.>
	MREG.=T:PREG.			
	AOFF.=0:p
	IFNB <B>,<
	;  IRP B,<
	  B;0=AOFF.
	  AOFF.=;PAOFF.+1
	  >
	>
	(]icT	f` Jx$[
A:
	IFKE LMREG.,<LMREG.=K8=MREG.>
	MREG.=TREG.			
	EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.