Google
 

Trailing-Edge - PDP-10 Archives - ap-c800d-sb - gendcl.unv
There are 18 other files named gendcl.unv in the archive. Click here to see a list.
x
,
@P C@@ CJ8I0P CJ8MP CJ8M7P CJ8Y0P CJ8]P CJ8]7P CJ9i0P CJ9mP CJ9m7P CK  E7
	  T1.==E01
	  IFNB <B>,<EP
	    T1.==B
	Ep    IFN 100000*T1F.-100000*B,<T1.=F0=T1.+1>
	  >
	 FP A==OFFS. - 1
	Fp  OFFS.==OFFS.+T1.
	.==OFFS.+T1CO 9p[
	GETLEN	:<C>
A:	POINT 7:0,.+2
	XWD	B,LEN:P.
	ASCII\C\
	T:p1.==<LEN.+4>/5
	;T1.==T1.*5
	T1.=;0=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP 17B12+AE2^:= G0=
	  A==OGPFFS.
	  OFFS.==0
	
	  OFFS.==0E3&x 
0[
	  T1.==
PB-A+1
	  SUB	P
p,[T1.,,T1.]
	  HRLZ	AP,P
	  ADD	0AP,[1,,A]
	  BLT	AP,B
		  BLE3&8; PO
	  HRRZ	pR0,P
	  ADD	R0,[	A,,1]		
	  BLT		0R0,B(P)
	  T1.=	P=B-A+1
	  ADD		pP,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ ;pa
	  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$\` >p}
	  POS.=?=-1
	  IRP B,<D?0UMMY(A,B)>
	  ?POFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ @
	  POS.=@0=-1
	  IRP C,<D@PUMMY(A,C,B)>
@p	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP \0e
	  JRST	\P@[EXP .+1,B](A)
	.+1,B](A)GH1 CASA::G~	@ x7^D36B5+OF%NWT+OF%PLN5+OF%G"
	  ACHAN==B
	  $$$A==1B<^D35-B>
	  I0NI.CH==INI.CH ! $$$A
	I.CH ! $G? h0K
	WHATYP	hP<A>
	IFE SYM..+hp1,<
	MOVEI	A,Bi>
	IFN SYM..+1,<i0
	MOVEI	0,B
	MOVEM	0,A>

	MG? eP?
	WHATYP	ep<A>
	IFE SYM..+f1,<
	MOVE	A,B>f0
	IFN SYM..+1,<
	  WHATYP <B>
fp	  IFN SYM..+1,<
	  MOVE	0,B
	 g0 MOVEM	0,A>
	  gPIFE SYM..+1,<
	 gp MOVEM	B,A>
	>
EM	B,A>
	>GC8P I$ -ps
	IFB<B>.,<	A: BLOCK 1>
.0	IFNB<B>,<	A: BLOCK B>
	A: BI ]k		
	REPEA]0T 5-B,<IBP	A>
	SOS	A
	A>
I~  jPq
	WHATYP	jp<A>
	IFE SYM..+k1,<
	MOVE	A,B
	MOVE	A+1,1+B
	>
	IFN SYM..+1kp,<
	  WHATYP	<Bl>
	  IFN SYM..+1l0,<
	lPMOVE	0,B
	  MOVEM	0,A
	lp  MOVE	0,1+B
	 m MOVEM	0,1+A
	 m0 >
	  IFE SYM..+mP1,<
	  MOVEM	B,mpA
	  MOVEM	B+1n,1+A
	  >
	>
	A
	  >
	>
I6~i6 ipQ
	MOVEM	jA,B
	MOVEM	A+1,1+B
	EM	A+1IVm^  <Pe
	ONEBYT(A,B,C)
	YT(KK (^
	FUNCT	THYPOUT,<A>
	IFNBh <B>,<JRST	B>
	icTPKK0 HV
	JRST	[FhUNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P 
M&-I B
	  T1.=1B0
	BPIFNB <B>,<
	    T1.==B
	 Bp   IFN 100000*T1.C-100000*B,<T1.==C0T1.+1>
	  >
	  CPA=OFFS.
	  OFFS.==OFFS.+T1.
	M&d\Y (^
	FUNCT	THYPOUT,<A>
	IFNBh <B>,<JRST	B>
	icTPM&d\Y HV
	JRST	[FhUNCT	TYPOUT,<A>
		 JRST	B]
	M'4P %[5]M?.  #[4]MVt= <
	SALL
	(ARGS.=0
	IF2, <IHFNDEF A,<EXTERNAhL A>>
	(IFB <B>,<	PUSHJ P,A>
	  IFNB <B>,<
H	  IRP B,<ARGS.=hARGS.+1>
	  MOVEI	AP,[-ARGS.,,0
(	  IRP B,<B>
	H  ]+1
	  PUSHJ	P,A
	  >
	OH  +pk
	  IFNDE,F GDATA.,<EXTERN ,0A>
	  IFDEF GDA,PTA.,<
	    IFB<,pB>,<A:: BLOCK 1>-
	    IFNB<B>,<-0A:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 Q
	  LEN.=Q00
	  IRPC A,<LEN.=LEN.+1>
	LEO2` $p+
	IF2, <I%FNDEF A,<EXTERNA%0L A>>
	PUSHJ	P,A		
	PUSHJ	P,OJ,p .p		
	  IFB/ <B>,<GREG.==GRE/0G.-1>
	  IFNB </PB>,<GREG.==B>
	/p  IFL GREG.-LGREG0.,<LGREG.=GREG.>
	  A=GREG.
	  0PIFDEF .A,<
	1 0p IFN .A+GREG.,<
	      PRINTX "10A" ALTER-EGO ALRE1PADY IN USE
	    1p>
	  >
	  IFNDE2F .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 nP
	  IFNDEnpF B$C,<T1.==^D3o6>
	  IFDEF B$o0C,<T1.==B$C>
	oP  IFE T1.-^D36,<MopOVE A,B.CD>
p	  IFN T1.-^D36,<p0
	    IFN T1.-^DpP18,<LDB A,[BP (ppB,C,D)]>
	    qIFE T1.-^D18,<
	q0      T1.==B%C
	      IFE T1.-^qpD17,<HLRZ A,B.rCD>
	      IFE r0T1.-^D35,<HRRZ ArP,B.CD>
	    >
	  >
		    >Y/ s9		
	  IFNs0DEF B$C,<T1.==^sPD36>
	tIFDEF Bsp$C,<T1.==B$C>
	  IFE T1.-^D36,t0<MOVE A,B.CD>tP
	  IFN T1.-^D36tp,<
	    IFN T1.-u^D18,<LDB A,[BP u0(B,C,D)]>
	upuP  IFE T1.-^D18,<
	      T1.==B%vC
	      IFE T1.v0-^D17,<HLRE A,BvP.CD>
	      IFvpE T1.-^D35,<HRRE wA,B.CD>
	    >
	  >
		   Yi  POP$A+HMREG.-MREG.$A+HMREY&u0 &PI
	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
	  >
	[3@ JQ<<<1_<A>>-1>B<B>>_<A>>[83 M
	EXP	[
M0	  IRP B,<
	  AMPCT..=0
	    IRPCMp B,<IFIDN <-><BN>,<ACT..=1>
				N0  STOPI>
	    IFNPN ACT..,<
	    NpB
	    >
	    IOFE ACT..,<
		GETO0LEN <B>
		ADDR.OP==[EXP LEN.
			AOpSCIZ\B\]
		EXP P<ADDR.+1>
	    >P0
	  >
			0	]
	PPA:: MSG..
	MSG..=MSG..+2
	SG.[2N@ U0+
	17B12+[ASCIZ\A\]
	+[[4t@ [4t=9@ [4v:=@ [J,p 2P9		
	  IFN2p LMREG.,<MREG.==L3MREG.
			LMREG.=30=0>
	3pIFB <B>,3P<MREG.==MREG.+1>
	  IFNB <B>,<MR4EG.==B>
	  IFB 40<A>,<MREG.=TREG.4P>
	  IFG MREG.-H4pMREG.,<HMREG.=MRE5G.>
	 IFNB <A>,50<
	  A=MREG.
	5P  IFDEF .A,<
	 5p   IFN .A+MREG.,6<
	      PRINTX 60"A" ALTER-EGO AL6PREADY IN USE
	  6p  >
	  >
	  IFN7DEF .A,<  .A==-MREG.>
	 >
	-] JPW
	  IFNDEJpF	A,<A==B>
		A,<A==B>
	_63@P _:( [1]_:,.: =s
	  IFNB =0<D>,<D.B=OFFS.=P-A.D>
	  A.B=p==OFFS.
	  A$B>==C
	  POS.==PO>0S.+C
	  A%B==POS.
	 A%B==_RD89 P
	  REPEApT <CA.UMAX-CA.USR+1>,<
	    CASLA0B(\CA.USR)
	  PCA.USR==CA.USR+1
	  >
	.USR+1a&LW K0e
	  STR.SKPT=.
	  BYTE (12)KpB
	  LEN.==0
	L  IRP B,<LEN.==LL0EN.+1>
A:	  POILPNT	^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 I0M<POINT	WIDIP(B),A,POS(B)>B),A,POS(B)>a? P
	T1.==MRpEG.
	REPEAT <MREG.-TREG.>,<
	  R0ESTOR	T1.
	  T1.P=T1.-1
	>




	
	>


a?K8 
0cRESTOR<R5,R4,R3,R2>OR<R5,a? HPG<^L<A>+^LHp<-<<A>_<^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< D%
	  B.CD0==OFFS.-A.B
	 DP FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 7PK
	  A=B7p
	8IFDEF .A,<
	    IFN .A+B,80<
	      PRINTX 8P"A" ALTER-EGO AL8pREADY IN USE
	  9  >
	  >
	  IFN90DEF .A,<  .A==-B>
	<  .A==-eKy A
	IRP A,<	POP	P,A> A,e&\W P
	  IFN MpREG.-TREG.,<JRST	LEAVE>
	  IFE MR0EG.-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 
p
	MRIFN-HEG.,<		
	    T1.==TREG.
	-TREREPEAT <MREG
	      T1.==T1.+1
	  0    SAVE	T1.
	  P  >
	    IFDEF UpNWIND,<MOVEM P,UNWIND>
	    IFDEF0 MY.INI,<JSP R1,MPY.INI>
	  >
	  pIFE HMREG.-MREG.,<JSP	R1,SAV$A>




	V$A>
g4P P=
	IRP A,<	PUSH	P,A>A,g6K8 p_SAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 P9
	  TWOSEpG
	  RELOC	0
	  GDATA.==0				
	  SEGSYM
		
	g>>6 1
	
	  OF0FS.==0
	  LMREG.P==0
	  LGREG.==1p6
	
	  IFDEF MUREG.,<MREG.=MUREG0.>
	  IFNDEF MURPEG.,<MREG.==TREG.p>
	  HMREG.==MREG.
	  HIGH==1
	
	  HIGH==1
	g$W }ps
	  MOVEM~	P,FRAMCON
	  CO~0PI	PARSCON,A
	I	PARSCON,A
	g$ Qp
	 GETLENR	A
	  ADDR.=1B1R02 + [	LEN.
			 ASCII/A/]+1
	Ag$89 0
	  CA.AP==CA.USR
	  CASLpAB(\CA.USR)
	  CA.USR==CA.USR+1
	SR==CA.USR+1
g'@ '[6]g'Qj7P g'Qk6P g'QlP g'QlYP gP wP]
	  IFNDEwpF B$C,<T1.==^D3x6>
	  IFDEF B$x0C,<T1.==B$C>
	xP  IFE T1.-^D36,<MxpOVEM A,B.CD>
	  IFN T1.-^D36,y0<
	    IFN T1.-^yPD18,<DPB A,[BP (ypB,C,D)]>
	   z IFE T1.-^D18,<
z0	      T1.==B%CzP
	      IFE T1.-zp^D17,<HRLM A,B.{CD>
	      IFE{0 T1.-^D35,<HRRM {PA,B.CD>
	    >
	  >
		    gR5 |k		
	  T1.|0==B%C
	  IFE T|P1.-^D17,<MOVSM A|p,B.CD>
	  IFE} T1.-^D35,<IFN A}0-D,<MOVEM A,B.CD>>
	A,B.gS Vp;
	GETLEN W(<A>)
	POINT	7,W0[ASCII\A\]
	EXP	LEN.
	]
	EXPgSY Up3
	GETLEN V(<B>)
	EXP LEN.V0
A:	ASCII/B/
	A:	ASCII/B/
gft\Y (^
	FUNCT	THYPOUT,<A>
	IFNBh <B>,<JRST	B>
	icTPgft\Y HV
	JRST	[FhUNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y (^
	FUNCT	THYPOUT,<A>
	IFNBh <B>,<JRST	B>
	icTPgg\Y HV
	JRST	[FhUNCT	TYPOUT,<A>
		 JRST	B]
	hDpP i@ i#Y  ![3]iJ,s@P iWks ^0sTXZ A,BuTXZ A,BiWkw ]poTXO	A,BqTXO	A,Bi^x [2]i` ^p}
	IFE C&_777777,<TLA	B,(_0C)>
	IFN C&777P777,<TRA	B,C>
	<TRA	B,C>TX(C,A,B)TX(C,A,BibtP(`TX(NE,A,B)TX(NE,A,ibu`(`PTX(NN,A,B)TX(NN,A,ibx(bPTX(O,A,B)TX(O,A,Bib|(a	TX(OA,A,B)TX(OA,A,ib|P(aPB)TX(ZN,A,k2Mj` P
	SALL
	(ARGS.=0
	  IFB <HB>,<	PUSHJ P,A>h
	IFNB <B>,<
	  IRP B,<ARGS.(=ARGS.+1>
	hMOVHEI	AP,[-ARGS.,,0
	  IRP B,<B>
	  ]+1
	  PUSHJ	P,A
	  >
	#kO\Y (^
	FUNCT	THYPOUT,<A>
	IFNBh <B>,<JRST	B>
	icTPkO\Y HV
	JRST	[FhUNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ P
	SALL
	(ARGS.=0
	  IFB <HB>,<	PUSHJ P,A>h
	IFNB <B>,<
	  IRP B,<ARGS.(=ARGS.+1>
	hMOVHEI	AP,[-ARGS.,,0
	  IRP B,<B>
	  ]+1
	  PUSHJ	P,A
	  >
	#kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m 1B12+Ao` P
	FUNCT	TYPOUT,<A>
		Toj@ (^
	FUNCT	THYPOUT,<A>
	IFNBh <B>,<JRST	B>
	icTPol` HV
	JRST	[FhUNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 Wp_
	SYM..==X0
	  IRPC A,<
X0	  IFIDN <A><@>,XP<SYM..=1
			  STXpOPI>
	  IFIDN <YA><(>,<SYM..=2
	Y0		  STOPI>
	  IFYPIDN <A><[>,<SYM.Yp.=3
			  STOPI>
	  IFIDN <A><+>Z0,<SYM..=4
			  SZPTOPI>
	  IFIDN <ZpA><->,<SYM..=4
[			  STOPI>
	  >[0
	[PIFE SYM..,<
	    IFDEF .A,<[pSYM..=-1>
	  >
	..=-1>
	  >
o& HA<^L<-<<A><^L<A>>>-1>>>o?@ A0
	  BYTESAP(A,<B>)
	  OFFS.==0
	
	  OFFs?Mp %p/
	PUSHJ	P,A		
	PUSHJ	Pup [0]+A	-hz p
	IFG HIG0H,<
	  RELOC	400000
	xHIGH==-1
	  IFG MREG.-TREG.,<
SAV$A:
	  xT1.==TREG.
	  REXPEAT <MREG.-TREG.X>,<
	    T1.==T1.+1
	    SAVE	T1	h.
	  >
	  IFDEF8 UNWIND,<
	    M	HOVEM P,UNWIND
	 
P   IFDEF UNWEXIT,
0<
	      IFDEF M	 Y.EXIT,<COPI UNWE XIT,MY.EXIT>
	      IFNDEF MY.EXI
T,<COPI UNWEXIT,P
(OP$A-1>
	    >

H	  >
	  IFDEF MY
h.INI,<JRST MY.INI
	INIFNDEFTMY.1)>
	  >
	NWIFDEF<UNDEF MY.EXIT,<MOVE P,UNW(IND>>
POP$A:
	 H POPALL
	  POPJ	hP,
	>

A:
	ENTRY A
	IFN LMR(EG.,<MREG.==LMREGH.
			LMREG.==0>
	AOFF.=0
	IFNB <B>,<
	  IRP B(,<
	  B=AOFF.
H	  AOFF.=AOFF.+1
	  >
	>
	IFN MREG.-TREG.,<SAVAL(L>		
	IFE MREG.-HTREG.,<
	  IFDEFh UNWIND,<MOVEM P,UNWIND>
	  IFDEF( MY.INI,<JSP R1,MY.INI>
	>
	i	e~7 !
	IFG HIG!0H,<
	  RELOC	400!P000
	!pHIGH==-1
	  MREG.==TREG.	"			
	  HMREG.==M"0REG.				
POP$A:
	  POPJ	P,
	>
"pA:
	ENTRY A
	#IFE LMREG.,<LMREG#0.==MREG.>
	MREG.=TREG.			
	EG.	2Mj` p
	IFG HIG0H,<
	  RELOC	400000
	xHIGH==-1
	  IFG MREG.-TREG.,<
SAV$A:
	  xT1.==TREG.
	  REXPEAT <MREG.-TREG.X>,<
	    T1.==T1.+1
	    SAVE	T1	h.
	  >
	  IFDEF8 UNWIND,<
	    M	HOVEM P,UNWIND
	 
P   IFDEF UNWEXIT,
0<
	      IFDEF M	 Y.EXIT,<COPI UNWE XIT,MY.EXIT>
	      IFNDEF MY.EXI
T,<COPI UNWEXIT,P
(OP$A-1>
	    >

H	  >
	  IFDEF MY
h.INI,<JRST MY.INI
	INIFNDEFTMY.1)>
	  >
	NWIFDEF<UNDEF MY.EXIT,<MOVE P,UNW(IND>>
POP$A:
	 H POPALL
	  POPJ	hP,
	>

A:
	ENTRY A
	IFN LMR(EG.,<MREG.==LMREGH.
			LMREG.==0>
	AOFF.=0
	IFNB <B>,<
	  IRP B(,<
	  B=AOFF.
H	  AOFF.=AOFF.+1
	  >
	>
	IFN MREG.-TREG.,<SAVAL(L>		
	IFE MREG.-HTREG.,<
	  IFDEFh UNWIND,<MOVEM P,UNWIND>
	  IFDEF( MY.INI,<JSP R1,MY.INI>
	>
	i	VeU h$
A:
	IFE LMREG.,<LMREG.=(=MREG.>
	MREG.=THREG.			
	AOFF.=0h
	IFNB <B>,<
	  IRP B,<
	  B(=AOFF.
	  AOFF.=HAOFF.+1
	  >
	>
	dH@	W% h$
A:
	IFE LMREG.,<LMREG.=(=MREG.>
	MREG.=THREG.			
	AOFF.=0h
	IFNB <B>,<
	  IRP B,<
	  B(=AOFF.
	  AOFF.=HAOFF.+1
	  >
	>
	dH@	f` #p#
A:
	IF$E LMREG.,<LMREG.=$0=MREG.>
	MREG.=TREG.			
	EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP