Google
 
Trailing-Edge - PDP-10 Archives - dbmsv5a - 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  "
	  T1.=="(1
	  IFNB <B>,<"H
	    T1.==B
	"h    IFN 100000*T1#.-100000*B,<T1.=#(=T1.+1>
	  >
	 #H A==OFFS. - 1
	#h  OFFS.==OFFS.+T1.
	.==OFFS.+T1CO hB
	GETLEN	<C>
A:	POINT 7(,.+2
	XWD	B,LENH.
	ASCII\C\
	Th1.==<LEN.+4>/5
	T1.==T1.*5
	T1.=(=B-T1.
	BLOCK	<<T1.+4>/5>
		<COP 17B12+AE2^:= $($
	  A==O$HFFS.
	  OFFS.==0
	
	  OFFS.==0E3&x g(B
	  T1.==gHB-A+1
	  SUB	Pgh,[T1.,,T1.]
	  HhRLZ	AP,P
	  ADD	h(AP,[1,,A]
	  BLT	AP,B
		  BLE3&8; eH6
	  HRRZ	ehR0,P
	  ADD	R0,[fA,,1]		
	  BLT	f(R0,B(P)
	  T1.=fH=B-A+1
	  ADD	fhP,[T1.,,T1.]		
	[T1.,,T1.]		
	E@ hH
	  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$\` hd
	  POS.==-1
	  IRP B,<D(UMMY(A,B)>
	  HOFFS.==OFFS.+1
	FS.==OFFS.+1
	Eg&	\ n
	  POS.=(=-1
	  IRP C,<DHUMMY(A,C,B)>
h	  OFFS.==OFFS.+1
	FS.==OFFS.+1Gt}PGt;vPGt<VP GtHUP Gti@P GukqP Gum6P Gv2P Gv
Gv[ZP Gvh9P GP 9(L
	  JRST	9H@[EXP .+1,B](A)
	.+1,B](A)GH1 nCASA::2G~	@ cp^D36B5+OF%NWT+OF%PLN5+OF%G"
	  ACHAaN==B
	  $$$A==b1B<^D35-B>
	  Ib(NI.CH==INI.CH ! $$$A
	I.CH ! $G? E(2
	WHATYP	EH<A>
	IFE SYM..+Eh1,<
	MOVEI	A,BF>
	IFN SYM..+1,<F(
	MOVEI	0,B
	MOVEM	0,A>

	MG? BH&
	WHATYP	Bh<A>
	IFE SYM..+C1,<
	MOVE	A,B>C(
	IFN SYM..+1,<
	  WHATYP <B>
Ch	  IFN SYM..+1,<
	  MOVE	0,B
	 D( MOVEM	0,A>
	  DHIFE SYM..+1,<
	 Dh MOVEM	B,A>
	>
EM	B,A>
	>GC8P I$ 
hZ
	IFB<B>,<	A: BLOCK 1>
(	IFNB<B>,<	A: BLOCK B>
	A: BI :R		
	REPEA:(T 5-B,<IBP	A>
	SOS	A
	A>
I~  GHX
	WHATYP	Gh<A>
	IFE SYM..+H1,<
	MOVE	A,B
	MOVE	A+1,1+B
	>
	IFN SYM..+1Hh,<
	  WHATYP	<BI>
	  IFN SYM..+1I(,<
	IHMOVE	0,B
	  MOVEM	0,A
	Ih  MOVE	0,1+B
	 J MOVEM	0,1+A
	 J( >
	  IFE SYM..+JH1,<
	  MOVEM	B,JhA
	  MOVEM	B+1K,1+A
	  >
	>
	A
	  >
	>
I6~i6 Fh8
	MOVEM	GA,B
	MOVEM	A+1,1+B
	EM	A+1IVm^  HL
	ONEBYT(A,B,C)
	YT(KK x F
	FUNCT	Tx@YPOUT,<A>
	IFNBx` <B>,<JRST	B>
	KK0 w@>
	JRST	[Fw`UNCT	TYPOUT,<A>
		 JRST	B]
	L:$]@@@L:%@@ L:%V@ L:/
L:my@ L:my@ L:t2@ L:t6@ L;i@ L;I7P 
M&-I 
	  T1.=1(
	HIFNB <B>,<
	    T1.==B
	 h   IFN 100000*T1. -100000*B,<T1.== (T1.+1>
	  >
	   HA=OFFS.
	  OFFS.==OFFS.+T1.
	M&d\Y x F
	FUNCT	Tx@YPOUT,<A>
	IFNBx` <B>,<JRST	B>
	M&d\Y w@>
	JRST	[Fw`UNCT	TYPOUT,<A>
		 JRST	B]
	M'4P 

[5]M?.  
[4]MVt= r$
	SALL
	r ARGS.=0
	IF2, <Ir@FNDEF A,<EXTERNAr`L A>>
	s IFB <sB>,<	PUSHJ P,A>
	  IFNB <B>,<
s@	  IRP B,<ARGS.=s`ARGS.+1>
	  MOVEtI	AP,[-ARGS.,,0
t 	  IRP B,<B>
	t@  ]+1
	  PUSHJ	P,A
	  >
	OH  hR
	  IFNDE	F GDATA.,<EXTERN 	(A>
	  IFDEF GDA	HTA.,<
	    IFB<	hB>,<A:: BLOCK 1>

	    IFNB<B>,<
(A:: BLOCK B>
	  >
	CK B>
	OtP Ot}P Ot*7P Ou@P Ou`P Ou}:P O%I7 .r
	  LEN.=.(0
	  IRPC A,<LEN.=LEN.+1>
	LEO2` h
	IF2, <IFNDEF A,<EXTERNA(L A>>
	PUSHJ	P,A		
	PUSHJ	P,OJ,p hx		
	  IFB

 <B>,<GREG.==GRE

(G.-1>
	  IFNB <

HB>,<GREG.==B>
	

h.,IFLRGREG.-LGREG
	  A=GREG.
	IFEF .A,<
	IF .A+GREG.,<
	      PRINTX "(A" ALTER-EGO ALREHADY IN USE
	    h>
	  >
	  IFNDEF .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 KH|
	  IFNDEKhF B$C,<T1.==^D3L6>
	  IFDEF B$L(C,<T1.==B$C>
	LH  IFE T1.-^D36,<MLhOVE A,B.CD>
M	  IFN T1.-^D36,<M(
	    IFN T1.-^DMH18,<LDB A,[BP (MhB,C,D)]>
	    NIFE T1.-^D18,<
	N(      T1.==B%C
	      IFE T1.-^NhD17,<HLRZ A,B.OCD>
	      IFE O(T1.-^D35,<HRRZ AOH,B.CD>
	    >
	  >
		    >Y/ P 		
	  IFNP(DEF B$C,<T1.==^PHD36>
	QIFDEF BPh$C,<T1.==B$C>
	  IFE T1.-^D36,Q(<MOVE A,B.CD>QH
	  IFN T1.-^D36Qh,<
	    IFN T1.-R^D18,<LDB A,[BP R((B,C,D)]>
	RhRH  IFE T1.-^D18,<
	      T1.==B%SC
	      IFE T1.S(-^D17,<HLRE A,BSH.CD>
	      IFShE T1.-^D35,<HRRE TA,B.CD>
	    >
	  >
		   Yi  oxPOP$A+HMREG.-MREG.$A+HMREY&u0 H0
	SALL
	hARGS.=0
	IF2, <IFNDEF A,<EXTERNA(L A>>
	hIFB <HB>,<	PUSHJ P,A>
	  IFNB <B>,<
	  IRP B,<ARGS.=(ARGS.+1>
	  MOVEHI	AP,[-ARGS.,,0
h	  IRP B,<B>
	  ]+1
	  PUSHJ	P,A
	  >
	[3@ '8<<<1_<A>>-1>B<B>>_<A>>[83 *l
	EXP	[
*(	  IRP B,<
	  A*HCT..=0
	    IRPC*h B,<IFIDN <-><B+>,<ACT..=1>
				+(  STOPI>
	    IF+HN ACT..,<
	    +hB
	    >
	    I,FE ACT..,<
		GET,(LEN <B>
		ADDR.,H==[EXP LEN.
			A,hSCIZ\B\]
		EXP -<ADDR.+1>
	    >-(
	  >
			0	]
	-HA:: MSG..
	MSG..=MSG..+2
	SG.[2N@ 2(
	17B12+[ASCIZ\A\]
	+[[4t@ [4t=9@ [4v:=@ [J,p H 		
	  IFNh LMREG.,<MREG.==LMREG.
			LMREG.=(=0>
	hIFB <B>,H<MREG.==MREG.+1>
	  IFNB <B>,<MREG.==B>
	  IFB (<A>,<MREG.=TREG.H>
	  IFG MREG.-HhMREG.,<HMREG.=MREG.>
	 IFNB <A>,(<
	  A=MREG.
	H  IFDEF .A,<
	 h   IFN .A+MREG.,<
	      PRINTX ("A" ALTER-EGO ALHREADY IN USE
	  h  >
	  >
	  IFNDEF .A,<  .A==-MREG.>
	 >
	-] 'H>
	  IFNDE'hF	A,<A==B>
		A,<A==B>
	_63@P _:( [1]_:,.: Z
	  IFNB (<D>,<D.B=OFFS.H-A.D>
	  A.Bh==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 ((L
	  STR.S(HT=.
	  BYTE (12)(hB
	  LEN.==0
	)  IRP B,<LEN.==L)(EN.+1>
A:	  POI)HNT	^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 &(4<POINT	WID&H(B),A,POS(B)>B),A,POS(B)>a? mHt
	T1.==MRmhEG.
	REPEAT <MREnG.-TREG.>,<
	  Rn(ESTOR	T1.
	  T1.nH=T1.-1
	>




	
	>


a?K8 i(JRESTOR<R5,R4,R3,R2>OR<R5,a? %H.<^L<A>+^L%h<-<<A><^L<A>>>-1>-1><^L<A>>>a?`P aJ,j< !


	  B.C!(==OFFS.-A.B
	 !H FIELD	(A.C,D)
	D	(A.C,D)d@@ dD@ dH@ dL@ dP@ dT@ e8 H2
	  A=Bh
	IFDEF .A,<
	    IFN .A+B,(<
	      PRINTX H"A" ALTER-EGO ALhREADY IN USE
	    >
	  >
	  IFN(DEF .A,<  .A==-B>
	<  .A==-eKy e(
	IRP A,<	POP	P,A> A,e&\W oH
	  IFN MohREG.-TREG.,<JRST	pLEAVE>
	  IFE MRp(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 ihh
	  IFN HjMREG.-MREG.,<		
j(	    T1.==TREG.
jH	    REPEAT <MREGjh.-TREG.>,<
	    k  T1.==T1.+1
	  k(    SAVE	T1.
	  kH  >
	    IFDEF UkhNWIND,<MOVEM P,UNlWIND>
	    IFDEFl( MY.INI,<JSP R1,MlHY.INI>
	  >
	  lhIFE HMREG.-MREG.,m<JSP	R1,SAV$A>




	V$A>
g4P dH$
	IRP A,<	PUSH	P,A>A,g6K8 hhFSAVE<R2,R3,R4,R5>VE<R2,R3g=Y7 cH 
	  TWOSEchG
	  RELOC	0
	 d GDATA.==0				
	  SEGSYM
		
	g>>6 a
	
	  OFa(FS.==0
	  LMREG.aH==0
	  LGREG.==1ah6
	
	  IFDEF MUbREG.,<MREG.=MUREGb(.>
	  IFNDEF MURbHEG.,<MREG.==TREG.bh>
	  HMREG.==MREcG.
	  HIGH==1
	
	  HIGH==1
	g$W ZhZ
	  MOVEM[	P,FRAMCON
	  CO[(PI	PARSCON,A
	I	PARSCON,A
	g$ .hz
	 GETLEN/	A
	  ADDR.=1B1/(2 + [	LEN.
			 ASCII/A/]+1
	Ag$89 ^(x
	  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 THD
	  IFNDEThF B$C,<T1.==^D3U6>
	  IFDEF B$U(C,<T1.==B$C>
	UH  IFE T1.-^D36,<MUhOVEM A,B.CD>
	  IFN T1.-^D36,V(<
	    IFN T1.-^VHD18,<DPB A,[BP (VhB,C,D)]>
	   W IFE T1.-^D18,<
W(	      T1.==B%CWH
	      IFE T1.-Wh^D17,<HRLM A,B.XCD>
	      IFEX( T1.-^D35,<HRRM XHA,B.CD>
	    >
	  >
		    gR5 YR		
	  T1.Y(==B%C
	  IFE TYH1.-^D17,<MOVSM AYh,B.CD>
	  IFEZ T1.-^D35,<IFN AZ(-D,<MOVEM A,B.CD>>
	A,B.gS 3h"
	GETLEN 4(<A>)
	POINT	7,4([ASCII\A\]
	EXP	LEN.
	]
	EXPgSY 2h
	GETLEN 3(<B>)
	EXP LEN.3(
A:	ASCII/B/
	A:	ASCII/B/
gft\Y x F
	FUNCT	Tx@YPOUT,<A>
	IFNBx` <B>,<JRST	B>
	gft\Y w@>
	JRST	[Fw`UNCT	TYPOUT,<A>
		 JRST	B]
	gg\Y x F
	FUNCT	Tx@YPOUT,<A>
	IFNBx` <B>,<JRST	B>
	gg\Y w@>
	JRST	[Fw`UNCT	TYPOUT,<A>
		 JRST	B]
	hDpP i@ i#Y  [3]iJ,s@P iWks ;(ZTXZ A,B\TXZ A,BiWkw :hVTXO	A,BXTXO	A,Bi^x [2]i` ;hd
	IFE C&<777777,<TLA	B,(<(C)>
	IFN C&777<H777,<TRA	B,C>
	<TRA	B,C>TX(C,A,B)TX(C,A,BibtP =hTX(NE,A,B)TX(NE,A,ibu` =HlTX(NN,A,B)TX(NN,A,ibx ?H|TX(O,A,B)TX(O,A,Bib| >pTX(OA,A,B)TX(OA,A,ib|P >HtTX(OE,A,B)TX(OE,A,ib}` ?xTX(ON,A,B)TX(ON,A,icP AH

TX(Z,A,B)TX(Z,A,BicT @TX(ZA,A,B)TX(ZA,A,icTP @HTX(ZE,A,B)TX(ZE,A,icU` ATX(ZN,A,B)TX(ZN,A,k2Mj` u8
	SALL
	u ARGS.=0
	  IFB <u@B>,<	PUSHJ P,A>u`
	vIFNB <B>,<
	  IRP B,<ARGS.v =ARGS.+1>
	v`MOVv@EI	AP,[-ARGS.,,0
	  IRP B,<B>
w	  ]+1
	  PUSHJ	P,A
	  >
	kO\Y x F
	FUNCT	Tx@YPOUT,<A>
	IFNBx` <B>,<JRST	B>
	kO\Y w@>
	JRST	[Fw`UNCT	TYPOUT,<A>
		 JRST	B]
	kRM@ u8
	SALL
	u ARGS.=0
	  IFB <u@B>,<	PUSHJ P,A>u`
	vIFNB <B>,<
	  IRP B,<ARGS.v =ARGS.+1>
	v`MOVv@EI	AP,[-ARGS.,,0
	  IRP B,<B>
w	  ]+1
	  PUSHJ	P,A
	  >
	kVxHtP kVxI0P kVxKxP kVxXtP kVxY0P kVx[xP kVyhtP kVyi0P kVykxP m |1B12+Ao` ]Hl
	FUNCT	TYPOUT,<A>
		Toj@ x F
	FUNCT	Tx@YPOUT,<A>
	IFNBx` <B>,<JRST	B>
	ol` w@>
	JRST	[Fw`UNCT	TYPOUT,<A>
		 JRST	B]
	o"N8 4hF
	SYM..==50
	  IRPC A,<
5(	  IFIDN <A><@>,5H<SYM..=1
			  ST5hOPI>
	  IFIDN <6A><(>,<SYM..=2
	6(		  STOPI>
	  IF6HIDN <A><[>,<SYM.6h.=3
			  STOPI>
	  IFIDN <A><+>7(,<SYM..=4
			  S7HTOPI>
	  IFIDN <7hA><->,<SYM..=4
8			  STOPI>
	  >8(
	8HIFE SYM..,<
	    IFDEF .A,<8hSYM..=-1>
	  >
	..=-1>
	  >
o&  %(<^L<-<<A>_<^L<A>>>-1>>>o?@ (t
	  BYTESH(A,<B>)
	  OFFS.==0
	
	  OFFs?Mp h
	PUSHJ	P,A		
	PUSHJ	Pup [0]+A	-hz bhz
	IFG HIGc(H,<
	  RELOC	400d000
	epHIGH==-1
	  IFG MREG.-TREcG.,<
SAV$A:
	  dpT1.==TREG.
	  REdPPEAT <MREG.-TREG.eP>,<
	    T1.==T1e.+1
	    SAVE	T1f`.
	  >
	  IFDEFe0 UNWIND,<
	    Mf@OVEM P,UNWIND
	 gH   IFDEF UNWEXIT,g(<
	      IFDEF MfY.EXIT,<COPI UNWEhXIT,MY.EXIT>
	  gx    IFNDEF MY.EXIiT,<COPI UNWEXIT,Pi OP$A-1>
	    >
i@	  >
	  IFDEF MYi`.INI,<JRST MY.INIj>	
	j@IFNDEF MY.j INI,<JRST	0(R1)>
	  >
	  IFDEF Uj`NWEXIT,<IFNDEF MYk.EXIT,<MOVE P,UNWk IND>>
POP$A:
	 k@ POPALL
	  POPJ	k`P,
	>

A:
	ElNTRY A
	IFN LMRl EG.,<MREG.==LMREGl@.
			LMREG.==0>
	AOFF.=0
	IFNB m<B>,<
	  IRP Bm ,<
	  B=AOFF.
m@	  AOFF.=AOFF.+1
	  >
	>
	IFN MnREG.-TREG.,<SAVALn L>		
	IFE MREG.-n@TREG.,<
	  IFDEFn` UNWIND,<MOVEM P,oUNWIND>
	  IFDEFo  MY.INI,<JSP R1,MY.INI>
	>
		e~7 ~
	IFG HIG~(H,<
	  RELOC	400~H000
	~hHIGH==-1
	  MREG.==TREG.				
	  HMREG.==M(REG.				
POP$A:
	  POPJ	P,
	>
hA:
	ENTRY A
	IFE LMREG.,<LMREG(.==MREG.>
	MREG.=TREG.			
	EG.	2Mj` bhz
	IFG HIGc(H,<
	  RELOC	400d000
	epHIGH==-1
	  IFG MREG.-TREcG.,<
SAV$A:
	  dpT1.==TREG.
	  REdPPEAT <MREG.-TREG.eP>,<
	    T1.==T1e.+1
	    SAVE	T1f`.
	  >
	  IFDEFe0 UNWIND,<
	    Mf@OVEM P,UNWIND
	 gH   IFDEF UNWEXIT,g(<
	      IFDEF MfY.EXIT,<COPI UNWEhXIT,MY.EXIT>
	  gx    IFNDEF MY.EXIiT,<COPI UNWEXIT,Pi OP$A-1>
	    >
i@	  >
	  IFDEF MYi`.INI,<JRST MY.INIj>	
	j@IFNDEF MY.j INI,<JRST	0(R1)>
	  >
	  IFDEF Uj`NWEXIT,<IFNDEF MYk.EXIT,<MOVE P,UNWk IND>>
POP$A:
	 k@ POPALL
	  POPJ	k`P,
	>

A:
	ElNTRY A
	IFN LMRl EG.,<MREG.==LMREGl@.
			LMREG.==0>
	AOFF.=0
	IFNB m<B>,<
	  IRP Bm ,<
	  B=AOFF.
m@	  AOFF.=AOFF.+1
	  >
	>
	IFN MnREG.-TREG.,<SAVALn L>		
	IFE MREG.-n@TREG.,<
	  IFDEFn` UNWIND,<MOVEM P,oUNWIND>
	  IFDEFo  MY.INI,<JSP R1,MY.INI>
	>
		VeU o`


A:
	IFpE LMREG.,<LMREG.=p =MREG.>
	MREG.=Tp@REG.			
	AOFF.=0p`
	IFNB <B>,<
	q  IRP B,<
	  Bq =AOFF.
	  AOFF.=q@AOFF.+1
	  >
	>
		W% o`


A:
	IFpE LMREG.,<LMREG.=p =MREG.>
	MREG.=Tp@REG.			
	AOFF.=0p`
	IFNB <B>,<
	q  IRP B,<
	  Bq =AOFF.
	  AOFF.=q@AOFF.+1
	  >
	>
		f` h

A:
	IFE LMREG.,<LMREG.=(=MREG.>
	MREG.=TREG.			
	EG.=TQ yS@P @Q xIP IQ IQ IQ ~I Q ~I(Q }RQ y>}{woP