Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - 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  d&.
	  T1.==d(1
	  IFNB <B>,<dH
	    T1.==B
	dh    IFN 100000*T1e.-100000*B,<T1.=e(=T1.+1>
	  >
	 eH A==OFFS. - 1
	eh  OFFS.==OFFS.+T1.
	.==OFFS.+T1CO Xh%R
	GETLEN	Y<C>
A:	POINT 7Y(,.+2
	XWD	B,LENYH.
	ASCII\C\
	TYh1.==<LEN.+4>/5
	ZT1.==T1.*5
	T1.=Z(=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP '17B12+AE2^:= f(&4
	  A==OfHFFS.
	  OFFS.==0
	
	  OFFS.==0E3&x )("R
	  T1.==)HB-A+1
	  SUB	P)h,[T1.,,T1.]
	  H*RLZ	AP,P
	  ADD	*(AP,[1,,A]
	  BLT	AP,B
		  BLE3&8; 'H"F
	  HRRZ	'hR0,P
	  ADD	R0,[(A,,1]		
	  BLT	((R0,B(P)
	  T1.=(H=B-A+1
	  ADD	(hP,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ Zh%X
	  POINT[ 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%t
	  POS.=^=-1
	  IRP B,<D^(UMMY(A,B)>
	  ^HOFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ _%~
	  POS.=_(=-1
	  IRP C,<D_HUMMY(A,C,B)>
_h	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP {('\
	  JRST	{H@[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$(NI.CH==INI.CH ! $$$A
	I.CH ! $G? ((B
	WHATYP	H<A>
	IFE SYM..+h1,<
	MOVEI	A,B>
	IFN SYM..+1,<(
	MOVEI	0,B
	MOVEM	0,A>

	MG? H(6
	WHATYP	h<A>
	IFE SYM..+1,<
	MOVE	A,B>(
	IFN SYM..+1,<
	  WHATYP <B>
h	  IFN SYM..+1,<
	  MOVE	0,B
	 ( MOVEM	0,A>
	  HIFE SYM..+1,<
	 h MOVEM	B,A>
	>
EM	B,A>
	>GC8P I$ Lh$j
	IFB<B>M,<	A: BLOCK 1>
M(	IFNB<B>,<	A: BLOCK B>
	A: BI |'b		
	REPEA|(T 5-B,<IBP	A>
	SOS	A
	A>
I~  	H(h
	WHATYP		h<A>
	IFE SYM..+
1,<
	MOVE	A,B
(
	MOVE	A+1,1+B
H
	>
	IFN SYM..+1
h,<
	  WHATYP	<B>
	  IFN SYM..+1(,<
	HMOVE	0,B
	  MOVEM	0,A
	h  MOVE	0,1+B
	 
 MOVEM	0,1+A
	 
( >
	  IFE SYM..+
H1,<
	  MOVEM	B,
hA
	,1MOVEM	B+1
	  >
	>
	A
	  >
	>
I6~i6 h(H
	MOVEM		A,B
	MOVEM	A+1,1+B
	EM	A+1IVm^  [H%\
	ONEBYT(A,B,C)
	YT(KK : +V
	FUNCT	T:@YPOUT,<A>
	IFNB:` <B>,<JRST	B>
	b( ibtPKK0 9@+N
	JRST	[F9`UNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P 
M&-I a&
	  T1.=1a(
	aHIFNB <B>,<
	    T1.==B
	 ah   IFN 100000*T1.b-100000*B,<T1.==b(T1.+1>
	  >
	  bHA=OFFS.
	  OFFS.==OFFS.+T1.
	M&d\Y : +V
	FUNCT	T:@YPOUT,<A>
	IFNB:` <B>,<JRST	B>
	b( ibtPM&d\Y 9@+N
	JRST	[F9`UNCT	TYPOUT,<A>
		 JRST	B]
	M'4P '[5]M?.  '[4]MVt= 4+4
	SALL
	4 ARGS.=0
	IF2, <I4@FNDEF A,<EXTERNA4`L A>>
	5 IFB <5B>,<	PUSHJ P,A>
	  IFNB <B>,<
5@	  IRP B,<ARGS.=5`ARGS.+1>
	  MOVE6I	AP,[-ARGS.,,0
6 	  IRP B,<B>
	6@  ]+1
	  PUSHJ	P,A
	  >
	.[ZOH  Jh$b
	  IFNDEKF GDATA.,<EXTERN K(A>
	  IFDEF GDAKHTA.,<
	    IFB<KhB>,<A:: BLOCK 1>L
	    IFNB<B>,<L(A:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 p'
	  LEN.=p(0
	  IRPC A,<LEN.=LEN.+1>
	LEO2` Ch$"
	IF2, <IDFNDEF A,<EXTERNAD(L A>>
	PUSHJ	P,A		
	PUSHJ	P,OJ,p Mh%		
	  IFBN <B>,<GREG.==GREN(G.-1>
	  IFNB <NHB>,<GREG.==B>
	Nh  IFL GREG.-LGREGO.,<LGREG.=GREG.>
	  A=GREG.
	  OHIFDEF .A,<
	P Oh IFN .A+GREG.,<
	      PRINTX "P(A" ALTER-EGO ALREPHADY IN USE
	    Ph>
	  >
	  IFNDEQF .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;  '2B12+AY 

	F IFNDE<T1.==^D36>
	  IFDEF B$(C,<T1.==B$C>
	H  IFE T1.-^D36,<MhOVE A,B.CD>
	  IFN T1.-^D36,<(
	    IFN T1.-^DH18,<LDB A,[BP (hB,C,D)]>
	    IFE T1.-^D18,<
	(      T1.==B%C
	      IFE T1.-^hD17,<HLRZ A,B.CD>
	      IFE (T1.-^D35,<HRRZ AH,B.CD>
	    >
	  >
		    >Y/ )0		
	  IFN(DEF B$C,<T1.==^HD36>
	IFDEF Bh$C,<T1.==B$C>
	  IFE T1.-^D36,(<MOVE A,B.CD>H
	  IFN T1.-^D36h,<
	    IFN T1.-^D18,<LDB A,[BP ((B,C,D)]>
	hH  IFE T1.-^D18,<
	      T1.==B%C
	      IFE T1.(-^D17,<HLRE A,BH.CD>
	      IFhE T1.-^D35,<HRRE A,B.CD>
	    >
	  >
		   Yi  1#POP$A+HMREG.-MREG.$A+HMREY&u0 EH$@
	SALL
	EhARGS.=0
	IF2, <IFFNDEF A,<EXTERNAF(L A>>
	FhIFB <FHB>,<	PUSHJ P,A>
	  IFNB <B>,<
G	  IRP B,<ARGS.=G(ARGS.+1>
	  MOVEGHI	AP,[-ARGS.,,0
Gh	  IRP B,<B>
	H  ]+1
	  PUSHJ	P,A
	  >
	[3@ i&H<<<1_<A>>-1>B<B>>_<A>>[83 l&|
	EXP	[
l(	  IRP B,<
	  AlHCT..=0
	    IRPClh B,<IFIDN <-><Bm>,<ACT..=1>
				m(  STOPI>
	    IFmHN ACT..,<
	    mhB
	    >
	    InFE ACT..,<
		GETn(LEN <B>
		ADDR.nH==[EXP LEN.
			AnhSCIZ\B\]
		EXP o<ADDR.+1>
	    >o(
	  >
			0	]
	oHA:: MSG..
	MSG..=MSG..+2
	SG.[2N@ t('"
	17B12+[ASCIZ\A\]
	+[[4t@ [4t=9@ [4v:=@ [J,p QH%0		
	  IFNQh LMREG.,<MREG.==LRMREG.
			LMREG.=R(=0>
	RhIFB <B>,RH<MREG.==MREG.+1>
	  IFNB <B>,<MRSEG.==B>
	  IFB S(<A>,<MREG.=TREG.SH>
	  IFG MREG.-HShMREG.,<HMREG.=MRETG.>
	 IFNB <A>,T(<
	  A=MREG.
	TH  IFDEF .A,<
	 Th   IFN .A+MREG.,U<
	      PRINTX U("A" ALTER-EGO ALUHREADY IN USE
	  Uh  >
	  >
	  IFNVDEF .A,<  .A==-MREG.>
	 >
	-] iH&N
	  IFNDEihF	A,<A==B>
		A,<A==B>
	_63@P _:( '[1]_:,.: \%j
	  IFNB \(<D>,<D.B=OFFS.\H-A.D>
	  A.B\h==OFFS.
	  A$B]==C
	  POS.==PO](S.+C
	  A%B==POS.
	 A%B==_RD89 !H*
	  REPEA!hT <CA.UMAX-CA.USR"+1>,<
	    CASLA"(B(\CA.USR)
	  "HCA.USR==CA.USR+1
	  >
	.USR+1a&LW j(&\
	  STR.SjHT=.
	  BYTE (12)jhB
	  LEN.==0
	k  IRP B,<LEN.==Lk(EN.+1>
A:	  POIkHNT	^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 h(&D<POINT	WIDhH(B),A,POS(B)>B),A,POS(B)>a? /H#
	T1.==MR/hEG.
	REPEAT <MRE0G.-TREG.>,<
	  R0(ESTOR	T1.
	  T1.0H=T1.-1
	>




	
	>


a?K8 +("ZRESTOR<R5,R4,R3,R2>OR<R5,a? gH&><^L<A>+^Lgh<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< c&
	  B.Cc(==OFFS.-A.B
	 cH FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 VH%B
	  A=BVh
	WIFDEF .A,<
	    IFN .A+B,W(<
	      PRINTX WH"A" ALTER-EGO ALWhREADY IN USE
	  X  >
	  >
	  IFNX(DEF .A,<  .A==-B>
	<  .A==-eKy '"8
	IRP A,<	POP	P,A> A,e&\W 1H#
	  IFN M1hREG.-TREG.,<JRST	2LEAVE>
	  IFE MR2(EG.-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 +h"x
	  IFN H,MREG.-MREG.,<		
,(	    T1.==TREG.
,H	    REPEAT <MREG,h.-TREG.>,<
	    -  T1.==T1.+1
	  -(    SAVE	T1.
	  -H  >
	    IFDEF U-hNWIND,<MOVEM P,UN.WIND>
	    IFDEF.( MY.INI,<JSP R1,M.HY.INI>
	  >
	  .hIFE HMREG.-MREG.,/<JSP	R1,SAV$A>




	V$A>
g4P &H"4
	IRP A,<	PUSH	P,A>A,g6K8 *h"VSAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 %H"0
	  TWOSE%hG
	  RELOC	0
	 & GDATA.==0				
	  SEGSYM
		
	g>>6 #"(
	
	  OF#(FS.==0
	  LMREG.#H==0
	  LGREG.==1#h6
	
	  IFDEF MU$REG.,<MREG.=MUREG$(.>
	  IFNDEF MUR$HEG.,<MREG.==TREG.$h>
	  HMREG.==MRE%G.
	  HIGH==1
	
	  HIGH==1
	g$W h)j
	  MOVEM	P,FRAMCON
	  CO(PI	PARSCON,A
	I	PARSCON,A
	g$ ph'

	 GETLENq	A
	  ADDR.=1B1q(2 + [	LEN.
			 ASCII/A/]+1
	Ag$89  (*
	  CA.A H==CA.USR
	  CASL hAB(\CA.USR)
	  C!A.USR==CA.USR+1
	SR==CA.USR+1
g'@ '[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP H)T
	  IFNDEhF B$C,<T1.==^D36>
	  IFDEF B$(C,<T1.==B$C>
	H  IFE T1.-^D36,<MhOVEM A,B.CD>
	  IFN T1.-^D36,(<
	    IFN T1.-^HD18,<DPB A,[BP (hB,C,D)]>
	    IFE T1.-^D18,<
(	      T1.==B%CH
	      IFE T1.-h^D17,<HRLM A,B.CD>
	      IFE( T1.-^D35,<HRRM HA,B.CD>
	    >
	  >
		    gR5 )b		
	  T1.(==B%C
	  IFE TH1.-^D17,<MOVSM Ah,B.CD>
	  IFE T1.-^D35,<IFN A(-D,<MOVEM A,B.CD>>
	A,B.gS uh'2
	GETLEN v(<A>)
	POINT	7,v([ASCII\A\]
	EXP	LEN.
	]
	EXPgSY th'*
	GETLEN u(<B>)
	EXP LEN.u(
A:	ASCII/B/
	A:	ASCII/B/
gft\Y : +V
	FUNCT	T:@YPOUT,<A>
	IFNB:` <B>,<JRST	B>
	b( ibtPgft\Y 9@+N
	JRST	[F9`UNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y : +V
	FUNCT	T:@YPOUT,<A>
	IFNB:` <B>,<JRST	B>
	b( ibtPgg\Y 9@+N
	JRST	[F9`UNCT	TYPOUT,<A>
		 JRST	B]
	hDpP i@ i#Y  '[3]iJ,s@P iWks }('jTXZ A,BlTXZ A,BiWkw |h'fTXO	A,BhTXO	A,Bi^x '[2]i` }h't
	IFE C&~777777,<TLA	B,(~(C)>
	IFN C&777~H777,<TRA	B,C>
	<TRA	B,C>TX(C,A,B)TX(C,A,BibtP 'xTX(NE,A,B)TX(NE,A,ibu` H'|TX(NN,A,B)TX(NN,A,ibx H(
TX(O,A,B)TX(O,A,Bib| (TX(OA,A,B)TX(OA,A,ib|P H(TX(OE,A,B)TX(OE,A,ib}` (TX(ON,A,B)TX(ON,A,icP H(TX(Z,A,B)TX(Z,A,BicT (TX(ZA,A,B)TX(ZA,A,icTP H(TX(ZE,A,B)TX(ZE,A,icU` (TX(ZN,A,B)TX(ZN,A,k2Mj` 7+H
	SALL
	7 ARGS.=0
	  IFB <7@B>,<	PUSHJ P,A>7`
	8IFNB <B>,<
	  IRP B,<ARGS.8 =ARGS.+1>
	8`MOV8@EI	AP,[-ARGS.,,0
	  IRP B,<B>
9	  ]+1
	  PUSHJ	P,A
	  >
	kO\Y : +V
	FUNCT	T:@YPOUT,<A>
	IFNB:` <B>,<JRST	B>
	b( ibtPkO\Y 9@+N
	JRST	[F9`UNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ 7+H
	SALL
	7 ARGS.=0
	  IFB <7@B>,<	PUSHJ P,A>7`
	8IFNB <B>,<
	  IRP B,<ARGS.8 =ARGS.+1>
	8`MOV8@EI	AP,[-ARGS.,,0
	  IRP B,<B>
9	  ]+1
	  PUSHJ	P,A
	  >
	kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m '
1B12+Ao` H)|
	FUNCT	TYPOUT,<A>
		Toj@ : +V
	FUNCT	T:@YPOUT,<A>
	IFNB:` <B>,<JRST	B>
	b( ibtPol` 9@+N
	JRST	[F9`UNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 vh'V
	SYM..==w0
	  IRPC A,<
w(	  IFIDN <A><@>,wH<SYM..=1
			  STwhOPI>
	  IFIDN <xA><(>,<SYM..=2
	x(		  STOPI>
	  IFxHIDN <A><[>,<SYM.xh.=3
			  STOPI>
	  IFIDN <A><+>y(,<SYM..=4
			  SyHTOPI>
	  IFIDN <yhA><->,<SYM..=4
z			  STOPI>
	  >z(
	zHIFE SYM..,<
	    IFDEF .A,<zhSYM..=-1>
	  >
	..=-1>
	  >
o&  g&8<^L<-<<A>_<^L<A>>>-1>>>o?@ `(&
	  BYTES`H(A,<B>)
	  OFFS.==0
	
	  OFFs?Mp Dh$&
	PUSHJ	P,A		
	PUSHJ	Pup '[0]+A	-hz $h+

	IFG HIG%(H,<
	  RELOC	400&000
	'pHIGH==-1
	  IFG MREG.-TRE%G.,<
SAV$A:
	  &pT1.==TREG.
	  RE&PPEAT <MREG.-TREG.'P>,<
	    T1.==T1'.+1
	    SAVE	T1(`.
	  >
	  IFDEF'0 UNWIND,<
	    M(@OVEM P,UNWIND
	 )H   IFDEF UNWEXIT,)(<
	      IFDEF M(Y.EXIT,<COPI UNWE*XIT,MY.EXIT>
	  )x    IFNDEF MY.EXI+T,<COPI UNWEXIT,P+ OP$A-1>
	    >
+@	  >
	  IFDEF MY+`.INI,<JRST MY.INI,>	
	,@IFNDEF MY., INI,<JRST	0(R1)>
	  >
	  IFDEF U,`NWEXIT,<IFNDEF MY-.EXIT,<MOVE P,UNW- IND>>
POP$A:
	 -@ POPALL
	  POPJ	-`P,
	>

A:
	E.NTRY A
	IFN LMR. EG.,<MREG.==LMREG.@.
			LMREG.==0>
	AOFF.=0
	IFNB /<B>,<
	  IRP B/ ,<
	  B=AOFF.
/@	  AOFF.=AOFF.+1
	  >
	>
	IFN M0REG.-TREG.,<SAVAL0 L>		
	IFE MREG.-0@TREG.,<
	  IFDEF0` UNWIND,<MOVEM P,1UNWIND>
	  IFDEF1  MY.INI,<JSP R1,MY.INI>
	>
	i 	e~7 @$
	IFG HIG@(H,<
	  RELOC	400@H000
	@hHIGH==-1
	  MREG.==TREG.	A			
	  HMREG.==MA(REG.				
POP$A:
	  POPJ	P,
	>
AhA:
	ENTRY A
	BIFE LMREG.,<LMREGB(.==MREG.>
	MREG.=TREG.			
	EG.	2Mj` $h+

	IFG HIG%(H,<
	  RELOC	400&000
	'pHIGH==-1
	  IFG MREG.-TRE%G.,<
SAV$A:
	  &pT1.==TREG.
	  RE&PPEAT <MREG.-TREG.'P>,<
	    T1.==T1'.+1
	    SAVE	T1(`.
	  >
	  IFDEF'0 UNWIND,<
	    M(@OVEM P,UNWIND
	 )H   IFDEF UNWEXIT,)(<
	      IFDEF M(Y.EXIT,<COPI UNWE*XIT,MY.EXIT>
	  )x    IFNDEF MY.EXI+T,<COPI UNWEXIT,P+ OP$A-1>
	    >
+@	  >
	  IFDEF MY+`.INI,<JRST MY.INI,>	
	,@IFNDEF MY., INI,<JRST	0(R1)>
	  >
	  IFDEF U,`NWEXIT,<IFNDEF MY-.EXIT,<MOVE P,UNW- IND>>
POP$A:
	 -@ POPALL
	  POPJ	-`P,
	>

A:
	E.NTRY A
	IFN LMR. EG.,<MREG.==LMREG.@.
			LMREG.==0>
	AOFF.=0
	IFNB /<B>,<
	  IRP B/ ,<
	  B=AOFF.
/@	  AOFF.=AOFF.+1
	  >
	>
	IFN M0REG.-TREG.,<SAVAL0 L>		
	IFE MREG.-0@TREG.,<
	  IFDEF0` UNWIND,<MOVEM P,1UNWIND>
	  IFDEF1  MY.INI,<JSP R1,MY.INI>
	>
	i 	VeU 1`+
A:
	IF2E LMREG.,<LMREG.=2 =MREG.>
	MREG.=T2@REG.			
	AOFF.=02`
	IFNB <B>,<
	3  IRP B,<
	  B3 =AOFF.
	  AOFF.=3@AOFF.+1
	  >
	>
	j<&d@	W% 1`+
A:
	IF2E LMREG.,<LMREG.=2 =MREG.>
	MREG.=T2@REG.			
	AOFF.=02`
	IFNB <B>,<
	3  IRP B,<
	  B3 =AOFF.
	  AOFF.=3@AOFF.+1
	  >
	>
	j<&d@	f` Bh$
A:
	IFCE LMREG.,<LMREG.=C(=MREG.>
	MREG.=TREG.			
	EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP