Google
 

Trailing-Edge - PDP-10 Archives - cobol12c - 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  [Xk
	  T1.==[x1
	  IFNB <B>,<\
	    T1.==B
	\8    IFN 100000*T1\X.-100000*B,<T1.=\x=T1.+1>
	  >
	 ] A==OFFS. - 1
	]8  OFFS.==OFFS.+T1.
	.==OFFS.+T1CO P8
	GETLEN	PX<C>
A:	POINT 7Px,.+2
	XWD	B,LENQ.
	ASCII\C\
	TQ81.==<LEN.+4>/5
	QXT1.==T1.*5
	T1.=Qx=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP M17B12+AE2^:= ]xq
	  A==O^FFS.
	  OFFS.==0
	
	  OFFS.==0E3&x  x
	  T1.==!B-A+1
	  SUB	P!8,[T1.,,T1.]
	  H!XRLZ	AP,P
	  ADD	!xAP,[1,,A]
	  BLT	AP,B
		  BLE3&8; 
	  HRRZ	8R0,P
	  ADD	R0,[XA,,1]		
	  BLT	xR0,B(P)
	  T1.= =B-A+1
	  ADD	 8P,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ R8
	  POINTRX 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$\` U81
	  POS.=UX=-1
	  IRP B,<DUxUMMY(A,B)>
	  VOFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ VX;
	  POS.=Vx=-1
	  IRP C,<DWUMMY(A,C,B)>
W8	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP rx
	  JRST	s@[EXP .+1,B](A)
	.+1,B](A)GH1 ;CASA::G~	@ @l^D36B5+OF%NWT+OF%PLN5+OF%G"
	  ACHAXN==B
	  $$$A==X1B<^D35-B>
	  IxNI.CH==INI.CH ! $$$A
	I.CH ! $G? ~x
	WHATYP	<A>
	IFE SYM..+81,<
	MOVEI	A,BX>
	IFN SYM..+1,<x
	MOVEI	0,B
	MOVEM	0,A>

	MG? |s
	WHATYP	|8<A>
	IFE SYM..+|X1,<
	MOVE	A,B>|x
	IFN SYM..+1,<
	  WHATYP <B>
}8	  IFN SYM..+1,<
	  MOVE	0,B
	 }x MOVEM	0,A>
	  ~IFE SYM..+1,<
	 ~8 MOVEM	B,A>
	>
EM	B,A>
	>GC8P I$ D8'
	IFB<B>DX,<	A: BLOCK 1>
Dx	IFNB<B>,<	A: BLOCK B>
	A: BI sX		
	REPEAsxT 5-B,<IBP	A>
	SOS	A
	A>
I~  %
	WHATYP	8<A>
	IFE SYM..+X1,<
	MOVE	A,B
	MOVE	A+1,1+B
	>
	IFN SYM..+18,<
	  WHATYP	<BX>
	  IFN SYM..+1x,<
	MOVE	0,B
	  MOVEM	0,A
	8  MOVE	0,1+B
	 X MOVEM	0,1+A
	 x >
	  IFE SYM..+1,<
	  MOVEM	B,8A
	  MOVEM	B+1X,1+A
	  >
	>
	A
	  >
	>
I6~i6 8
	MOVEM	XA,B
	MOVEM	A+1,1+B
	EM	A+1IVm^  S
	ONEBYT(A,B,C)
	YT(KK 1p
	FUNCT	T2YPOUT,<A>
	IFNB20 <B>,<JRST	B>
	KK0 1
	JRST	[F10UNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P 
M&-I XXQ
	  T1.=1Xx
	YIFNB <B>,<
	    T1.==B
	 Y8   IFN 100000*T1.YX-100000*B,<T1.==YxT1.+1>
	  >
	  ZA=OFFS.
	  OFFS.==OFFS.+T1.
	M&d\Y 1p
	FUNCT	T2YPOUT,<A>
	IFNB20 <B>,<JRST	B>
	M&d\Y 1
	JRST	[F10UNCT	TYPOUT,<A>
		 JRST	B]
	M'4P Y[5]M?.  W[4]MVt= +Pq
	SALL
	+pARGS.=0
	IF2, <I,FNDEF A,<EXTERNA,0L A>>
	,pIFB <,PB>,<	PUSHJ P,A>
	  IFNB <B>,<
-	  IRP B,<ARGS.=-0ARGS.+1>
	  MOVE-PI	AP,[-ARGS.,,0
-p	  IRP B,<B>
	.  ]+1
	  PUSHJ	P,A
	  >
	OH  B8
	  IFNDEBXF GDATA.,<EXTERN BxA>
	  IFDEF GDACTA.,<
	    IFB<C8B>,<A:: BLOCK 1>CX
	    IFNB<B>,<CxA:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 gX?
	  LEN.=gx0
	  IRPC A,<LEN.=LEN.+1>
	LEO2` ;8_
	IF2, <I;XFNDEF A,<EXTERNA;xL A>>
	PUSHJ	P,A		
	PUSHJ	P,OJ,p E8E		
	  IFBEX <B>,<GREG.==GREExG.-1>
	  IFNB <FB>,<GREG.==B>
	F8  IFL GREG.-LGREGFX.,<LGREG.=GREG.>
	  A=GREG.
	  GIFDEF .A,<
	GX G8 IFN .A+GREG.,<
	      PRINTX "GxA" ALTER-EGO ALREHADY IN USE
	    H8>
	  >
	  IFNDEHXF .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;  K2B12+AY I
	  IFNDE8F B$C,<T1.==^D3X6>
	  IFDEF B$xC,<T1.==B$C>
	  IFE T1.-^D36,<M8OVE A,B.CD>
X	  IFN T1.-^D36,<x
	    IFN T1.-^D18,<LDB A,[BP (8B,C,D)]>
	    XIFE T1.-^D18,<
	x      T1.==B%C
	      IFE T1.-^8D17,<HLRZ A,B.XCD>
	      IFE xT1.-^D35,<HRRZ A	,B.CD>
	    >
	  >
		    >Y/ 	Xm		
	  IFN	xDEF B$C,<T1.==^
D36>
	  IFDEF B
8$C,<T1.==B$C>
X
	  IFE T1.-^D36,
x<MOVE A,B.CD>
	  IFN T1.-^D368,<
	    IFN T1.-X^D18,<LDB A,[BP x(B,C,D)]>
	  
  IFE T1.-^D18,<
8
	      T1.==B%
XC
	      IFE T1.
x-^D17,<HLRE A,B
	EAT1.-IF5,<HRRE 
	    >
	  >
		   Yi  (XEPOP$A+HMREG.-MREG.$A+HMREY&u0 =}
	SALL
	=8ARGS.=0
	IF2, <I=XFNDEF A,<EXTERNA=xL A>>
	>8IFB <>B>,<	PUSHJ P,A>
	  IFNB <B>,<
>X	  IRP B,<ARGS.=>xARGS.+1>
	  MOVE?I	AP,[-ARGS.,,0
?8	  IRP B,<B>
	?X  ]+1
	  PUSHJ	P,A
	  >
	[3@ `X<<<1_<A>>-1>B<B>>_<A>>[83 cX9
	EXP	[
cx	  IRP B,<
	  AdCT..=0
	    IRPCd8 B,<IFIDN <-><BdX>,<ACT..=1>
				dx  STOPI>
	    IFeN ACT..,<
	    e8B
	    >
	    IeXFE ACT..,<
		GETexLEN <B>
		ADDR.f==[EXP LEN.
			Af8SCIZ\B\]
		EXP fX<ADDR.+1>
	    >fx
	  >
			0	]
	gA:: MSG..
	MSG..=MSG..+2
	SG.[2N@ kx_
	17B12+[ASCIZ\A\]
	+[[4t@ [4t=9@ [4v:=@ [J,p Im		
	  IFNI8 LMREG.,<MREG.==LIXMREG.
			LMREG.=Ix=0>
	J8IFB <B>,J<MREG.==MREG.+1>
	  IFNB <B>,<MRJXEG.==B>
	  IFB Jx<A>,<MREG.=TREG.K>
	  IFG MREG.-HK8MREG.,<HMREG.=MREKXG.>
	 IFNB <A>,Kx<
	  A=MREG.
	L  IFDEF .A,<
	 L8   IFN .A+MREG.,LX<
	      PRINTX Lx"A" ALTER-EGO ALMREADY IN USE
	  M8  >
	  >
	  IFNMXDEF .A,<  .A==-MREG.>
	 >
	-] a
	  IFNDEa8F	A,<A==B>
		A,<A==B>
	_63@P _:( Q[1]_:,.: SX'
	  IFNB Sx<D>,<D.B=OFFS.T-A.D>
	  A.BT8==OFFS.
	  A$BTX==C
	  POS.==POTxS.+C
	  A%B==POS.
	 A%B==_RD89 Q
	  REPEA8T <CA.UMAX-CA.USRX+1>,<
	    CASLAxB(\CA.USR)
	  CA.USR==CA.USR+1
	  >
	.USR+1a&LW ax
	  STR.SbT=.
	  BYTE (12)b8B
	  LEN.==0
	bX  IRP B,<LEN.==LbxEN.+1>
A:	  POIcNT	^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 _x<POINT	WID`(B),A,POS(B)>B),A,POS(B)>a? 'A
	T1.==MR'8EG.
	REPEAT <MRE'XG.-TREG.>,<
	  R'xESTOR	T1.
	  T1.(=T1.-1
	>




	
	>


a?K8 "xRESTOR<R5,R4,R3,R2>OR<R5,a? {<^L<A>+^L8<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< ZXY
	  B.CZx==OFFS.-A.B
	 [ FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 N
	  A=BN8
	NXIFDEF .A,<
	    IFN .A+B,Nx<
	      PRINTX O"A" ALTER-EGO ALO8READY IN USE
	  OX  >
	  >
	  IFNOxDEF .A,<  .A==-B>
	<  .A==-eKy Xu
	IRP A,<	POP	P,A> A,e&\W )O
	  IFN M)8REG.-TREG.,<JRST	)XLEAVE>
	  IFE MR)xEG.-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 #85
	  IFN H#XMREG.-MREG.,<		
#x	    T1.==TREG.
$	    REPEAT <MREG$8.-TREG.>,<
	    $X  T1.==T1.+1
	  $x    SAVE	T1.
	  %  >
	    IFDEF U%8NWIND,<MOVEM P,UN%XWIND>
	    IFDEF%x MY.INI,<JSP R1,M&Y.INI>
	  >
	  &8IFE HMREG.-MREG.,&X<JSP	R1,SAV$A>




	V$A>
g4P q
	IRP A,<	PUSH	P,A>A,g6K8 "8SAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 m
	  TWOSE8G
	  RELOC	0
	 X GDATA.==0				
	  SEGSYM
		
	g>>6 Xe
	
	  OFxFS.==0
	  LMREG.==0
	  LGREG.==186
	
	  IFDEF MUXREG.,<MREG.=MUREGx.>
	  IFNDEF MUREG.,<MREG.==TREG.8>
	  HMREG.==MREXG.
	  HIGH==1
	
	  HIGH==1
	g$W 8'
	  MOVEMX	P,FRAMCON
	  COxPI	PARSCON,A
	I	PARSCON,A
	g$ h8G
	 GETLENhX	A
	  ADDR.=1B1hx2 + [	LEN.
			 ASCII/A/]+1
	Ag$89 xE
	  CA.A==CA.USR
	  CASL8AB(\CA.USR)
	  CXA.USR==CA.USR+1
	SR==CA.USR+1
g'@ [[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP 
	  IFNDE8F B$C,<T1.==^D3X6>
	  IFDEF B$xC,<T1.==B$C>
	  IFE T1.-^D36,<M8OVEM A,B.CD>
	  IFN T1.-^D36,x<
	    IFN T1.-^D18,<DPB A,[BP (8B,C,D)]>
	   X IFE T1.-^D18,<
x	      T1.==B%C
	      IFE T1.-8^D17,<HRLM A,B.XCD>
	      IFEx T1.-^D35,<HRRM A,B.CD>
	    >
	  >
		    gR5 X		
	  T1.x==B%C
	  IFE T1.-^D17,<MOVSM A8,B.CD>
	  IFEX T1.-^D35,<IFN Ax-D,<MOVEM A,B.CD>>
	A,B.gS m8o
	GETLEN mX(<A>)
	POINT	7,mx[ASCII\A\]
	EXP	LEN.
	]
	EXPgSY l8g
	GETLEN lX(<B>)
	EXP LEN.lx
A:	ASCII/B/
	A:	ASCII/B/
gft\Y 1p
	FUNCT	T2YPOUT,<A>
	IFNB20 <B>,<JRST	B>
	gft\Y 1
	JRST	[F10UNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y 1p
	FUNCT	T2YPOUT,<A>
	IFNB20 <B>,<JRST	B>
	gg\Y 1
	JRST	[F10UNCT	TYPOUT,<A>
		 JRST	B]
	hDpP i@ i#Y  U[3]iJ,s@P iWks tx'TXZ A,B)TXZ A,BiWkw t8#TXO	A,B%TXO	A,Bi^x S[2]i` u81
	IFE C&uX777777,<TLA	B,(uxC)>
	IFN C&777v777,<TRA	B,C>
	<TRA	B,C>TX(C,A,B)TX(C,A,BibtP vX5TX(NE,A,B)TX(NE,A,ibu` w9TX(NN,A,B)TX(NN,A,ibx yITX(O,A,B)TX(O,A,Bib| wX=TX(OA,A,B)TX(OA,A,ib|P xATX(OE,A,B)TX(OE,A,ib}` xXETX(ON,A,B)TX(ON,A,icP {YTX(Z,A,B)TX(Z,A,BicT yXMTX(ZA,A,B)TX(ZA,A,icTP zQTX(ZE,A,B)TX(ZE,A,icU` zXUTX(ZN,A,B)TX(ZN,A,k2Mj` .P
	SALL
	.pARGS.=0
	  IFB </B>,<	PUSHJ P,A>/0
	/PIFNB <B>,<
	  IRP B,<ARGS./p=ARGS.+1>
	00MOV0EI	AP,[-ARGS.,,0
	  IRP B,<B>
0P	  ]+1
	  PUSHJ	P,A
	  >
	kO\Y 1p
	FUNCT	T2YPOUT,<A>
	IFNB20 <B>,<JRST	B>
	kO\Y 1
	JRST	[F10UNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ .P
	SALL
	.pARGS.=0
	  IFB </B>,<	PUSHJ P,A>/0
	/PIFNB <B>,<
	  IRP B,<ARGS./p=ARGS.+1>
	00MOV0EI	AP,[-ARGS.,,0
	  IRP B,<B>
0P	  ]+1
	  PUSHJ	P,A
	  >
	kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m I1B12+Ao` 9
	FUNCT	TYPOUT,<A>
		Toj@ 1p
	FUNCT	T2YPOUT,<A>
	IFNB20 <B>,<JRST	B>
	ol` 1
	JRST	[F10UNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 n8
	SYM..==nX0
	  IRPC A,<
nx	  IFIDN <A><@>,o<SYM..=1
			  STo8OPI>
	  IFIDN <oXA><(>,<SYM..=2
	ox		  STOPI>
	  IFpIDN <A><[>,<SYM.p8.=3
			  STOPI>
	  IFIDN <A><+>px,<SYM..=4
			  SqTOPI>
	  IFIDN <q8A><->,<SYM..=4
qX			  STOPI>
	  >qx
	rIFE SYM..,<
	    IFDEF .A,<r8SYM..=-1>
	  >
	..=-1>
	  >
o&  ^Xu<^L<-<<A>_<^L<A>>>-1>>>o?@ WxA
	  BYTESX(A,<B>)
	  OFFS.==0
	
	  OFFs?Mp <8c
	PUSHJ	P,A		
	PUSHJ	Pup O[0]+A	-hz 8G
	IFG HIGxH,<
	  RELOC	400`000
	@HIGH==-1
	  IFG MREG.-TREXG.,<
SAV$A:
	  @T1.==TREG.
	  RE PEAT <MREG.-TREG. >,<
	    T1.==T1`.+1
	    SAVE	T1 0.
	  >
	  IFDEF UNWIND,<
	    M OVEM P,UNWIND
	 !   IFDEF UNWEXIT, x<
	      IFDEF MhY.EXIT,<COPI UNWE!hXIT,MY.EXIT>
	  !H    IFNDEF MY.EXI"PT,<COPI UNWEXIT,P"pOP$A-1>
	    >
#	  >
	  IFDEF MY#0.INI,<JRST MY.INI#P>	
	$IFNDEF MY.#pINI,<JRST	0(R1)>
	  >
	  IFDEF U$0NWEXIT,<IFNDEF MY$P.EXIT,<MOVE P,UNW$pIND>>
POP$A:
	 % POPALL
	  POPJ	%0P,
	>

A:
	E%PNTRY A
	IFN LMR%pEG.,<MREG.==LMREG&.
			LMREG.==0>
	AOFF.=0
	IFNB &P<B>,<
	  IRP B&p,<
	  B=AOFF.
'	  AOFF.=AOFF.+1
	  >
	>
	IFN M'PREG.-TREG.,<SAVAL'pL>		
	IFE MREG.-(TREG.,<
	  IFDEF(0 UNWIND,<MOVEM P,(PUNWIND>
	  IFDEF(p MY.INI,<JSP R1,MY.INI>
	>
		e~7 7XO
	IFG HIG7xH,<
	  RELOC	4008000
	88HIGH==-1
	  MREG.==TREG.	8X			
	  HMREG.==M8xREG.				
POP$A:
	  POPJ	P,
	>
98A:
	ENTRY A
	9XIFE LMREG.,<LMREG9x.==MREG.>
	MREG.=TREG.			
	EG.	2Mj` 8G
	IFG HIGxH,<
	  RELOC	400`000
	@HIGH==-1
	  IFG MREG.-TREXG.,<
SAV$A:
	  @T1.==TREG.
	  RE PEAT <MREG.-TREG. >,<
	    T1.==T1`.+1
	    SAVE	T1 0.
	  >
	  IFDEF UNWIND,<
	    M OVEM P,UNWIND
	 !   IFDEF UNWEXIT, x<
	      IFDEF MhY.EXIT,<COPI UNWE!hXIT,MY.EXIT>
	  !H    IFNDEF MY.EXI"PT,<COPI UNWEXIT,P"pOP$A-1>
	    >
#	  >
	  IFDEF MY#0.INI,<JRST MY.INI#P>	
	$IFNDEF MY.#pINI,<JRST	0(R1)>
	  >
	  IFDEF U$0NWEXIT,<IFNDEF MY$P.EXIT,<MOVE P,UNW$pIND>>
POP$A:
	 % POPALL
	  POPJ	%0P,
	>

A:
	E%PNTRY A
	IFN LMR%pEG.,<MREG.==LMREG&.
			LMREG.==0>
	AOFF.=0
	IFNB &P<B>,<
	  IRP B&p,<
	  B=AOFF.
'	  AOFF.=AOFF.+1
	  >
	>
	IFN M'PREG.-TREG.,<SAVAL'pL>		
	IFE MREG.-(TREG.,<
	  IFDEF(0 UNWIND,<MOVEM P,(PUNWIND>
	  IFDEF(p MY.INI,<JSP R1,MY.INI>
	>
		VeU )0Y
A:
	IF)PE LMREG.,<LMREG.=)p=MREG.>
	MREG.=T*REG.			
	AOFF.=0*0
	IFNB <B>,<
	*P  IRP B,<
	  B*p=AOFF.
	  AOFF.=+AOFF.+1
	  >
	>
		W% )0Y
A:
	IF)PE LMREG.,<LMREG.=)p=MREG.>
	MREG.=T*REG.			
	AOFF.=0*0
	IFNB <B>,<
	*P  IRP B,<
	  B*p=AOFF.
	  AOFF.=+AOFF.+1
	  >
	>
		f` :8W
A:
	IF:XE LMREG.,<LMREG.=:x=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.