Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - subsys/dynsym.unv
There are 4 other files named dynsym.unv in the archive. Click here to see a list.
x
,S|@P G?-m 	QPMb==0
   	Qp IRP A, <b==b+1
	>
Id$\bb+Id$+sQ$5Id$9{Q%1Id$;Q%Id$=Q%%Id$I{Q%-Id$MQ%)Id$N;Q&Id&\Q 	Id&i9Q Id,,|P Id-X3P Id-X6P Id-Z3P Id-Z6P Id.i9P KJ 4KJU\ 4M2  ;X+]<<<A>B<POS(<B>)>>&<B>>MS8zP O$, 
(P_
 (
    r2==
XC+1			
    MOVE
x A, B		
    LD
B C, [POINTR A,
8 BP%POS]	
    CA
XIL C, 45
	JRST 
xd		
    LDB A,
 [POINTR A, BP%S
8IZ] 
    IDIV C
X, A		
    SUBI 
xA, 6			
    IMU
LI A, 7		
				
8
    ADD C, A		
X	
    MOVE C, [
xEXP 53,52,51,50,4
	7,46,45,66,65,64,
	863,62,61,0,60,57,
	X56,55,54,0,0,73,7
	x2,71,70,67](C)


				







8










X









x




    XMOV
EI A, B		
    
8HRR A, B
    D
XPB C, [POINTR A
x, BP%POS]	
d:
BP%POS]	
d:
RP&T1[QJqSNpQ @U|RP Y=h6 	7PKA
IFB <E>,<	7pAD.CGVB> 
   	8 IFNB <E>,<AEB>B <E>,<AEY5h6 	4K%
IFB <E>,<	40AD.CTVB> 
   	4P IFNB <E>,<AEB>B <E>,<AEY-TP Y-X3P Y-X6P Y-Z3P Y-Z6P Y.i9P Y.k0P Y 	@pLC*
    IFNB	A <G>,<G>
    I	A0FB <G>,<    EXTE	APRN RL.CTV
	PUSHJ	Ap 17,@RL.CTV+.RLDY	BN>
    LLBNAM (,	B0::,H,I,A)
	Bp	BP EXP ^D11,$DYFVN
    IFNB <B>,<E	CXP FLD(B,LD%VER)	C0!LD%VMA!O>
    	CPIFB <B>,<EXP O>	Cp
    EXP M
   	D POINT 7, [ASCIZ 	D0P]
    POINT 7,	DP [ASCIZ Q]
    	DpEXP J
    LDVNA	EM (IFIW!,,H,I,	E0C)
    LCVNAM (I	EPFIW!,,H,I,D)
	Ep    LDGNAM (IFIW!	F,,H,I,E)
    	F0LCGNAM (IFIW!,,H	FP,I,F)

    LT	FpVEC DV,A,H,I,	GC,<R>
    LTVEC	G0 CV,A,H,I,D,<	GPS>
    LTVEC DG	Gp,A,H,I,E,<T>	H
    LTVEC CG,A	H0,H,I,F,<U>
    I,F,<U>
 Y=h6 	90KO
IFB <E>,<	9PAD.DGVB> 
   	9p IFNB <E>,<AEB>B <E>,<AEY5h6 	5pK3
IFB <E>,<	6AD.DTVB> 
   	60 IFNB <E>,<AEB>B <E>,<AEYFD  	R0M1
    ; Di	RPgital entries
  	Rp  IRP L, <
	VXT	S1 C,L
	>
    	S0; Customer entrie	SPs
	Sp IRP M, <
	VXT1 C,M
	>
    ; Digital ga	T0lactic variable e	TPntries
    IRP 	TpN, <
	VXT1 C,N	U
	>
    ; Custo	U0mer galactic vari	UPable entries
   	Up IRP O, <
	VXT1	V C,O
	>
    C,O
	>
    Y*0 	WPN'*
    ..OF	WpF==0
    IRP R,	X <
	..OFF==..OFF	X0+1
	LJCK1 H,I,	XPD,..OFF,R
	>
	Xp    PURGE ..OFF
	Y    ..OFF==0
   	Y0 IRP S, <
	..OF	YPF==..OFF+1
	LJCK	Yp1 H,I,D,..OFF,	ZS
	>
    PURGE	Z0 ..OFF
    IFNB 	ZP<G>,<G>
    IF	ZpB <G>,<    EXTER	[N RL.CTV
	PUSHJ 	[017,@RL.CTV+.RLDYN	[P>
    LLBNAM (,:	[p:,H,I,A)
    	\EXP ^D11,$DYFVN
	\0    IFNB <B>,<EX	\PP FLD(B,LD%VER)!	\pLD%VMA!O>
	]0 I	]FB <B>,<EXP O>
    EXP M
    	]PPOINT 7,[ASCIZ P	]p]
    POINT 7,[A	^SCIZ Q]
    EXP	^0 J
	^p LDVNAM (	^PIFIW!,,H,I,C)
    LCVNAM (IFIW	_!,,H,I,D)
   	_0 LDGNAM (IFIW!,,	_PH,I,E)
    LCG	_pNAM (IFIW!,,H,I	`,F)

    PURGE	`0 TVENT
    DEFIN	`PE TVENT (LABFLG,V	`pNAM,RNAM,CNAM,S0C	aP,I,OFFSET,CONT)	a0 <
	CONT
	>

	aP    LTVEC DV,A,	apH,I,C,<R>
   	b LTVEC CV,A,H,	b0I,D,<S>

    	bPPURGE TVENT
    	bpDEFINE TVENT (LAB	cFLG,VNAM,RNAM,CNA	c0M,S0CP,I,OFFSET,	cPCONT) <
	IFNB <V	cpNAM>,<VNAM::>
	C	dONT
	>

    LT	d0VEC DG,A,H,I,	dPE,<T>
    LTVEC	dp CG,A,H,I,F,<U>
    I,F,<Y*4  	e0N-

 LJCK	eP2 A,B,C,D,E
Y*4,C,D,E
    NCNA	f0M ,::,E,B,G
 	fP   LCVNAM (<JRST 	fp@>,<+D>,A,B,C)
    A,B,CY2h6 	2PK
IFB <E>,<	2pACB>
    IFNB <E>,<AEB>BYB" 
(PLLBNAM ,B,C,D,AAM ,BYB"  
hP 
    IFIW
![ASCIZ J]
    ASCIZ J]
    YB"0 
HP$
    EXP D
       EXP YS0 	OL{
    TVEN	O0T 1,D,E,F,G,B,C,A,F,G,YS2 	NPLuLTV A,B,C,DLTV A,B,YS4X` 	HpLY

    LAN	IAM (,::,C,D,E)	I0
    COUNT (<F>	IP)+1
    XXOFF==0	Ip
    IRP F,
	<	JXXOFF==XXOFF+1
		J0LTV1 LLBNAM(IFIW!	JP,-1,C,D,B),D,	JpXXOFF,F
	>
   	K PURGE XXOFF
    RGE XXOFF
   Yj.  	g0O%*
    ..OF	gPF==0
    IRP R,	gp <
	..OFF==..OFF	h+1
	LZER1 H,I,	h0D,..OFF,R
	>
	hP    PURGE ..OFF
	hp    ..OFF==0
   	i IRP S, <
	..OF	i0F==..OFF+1
	LZER	iP1 H,I,D,..OFF,	ipS
	>
    PURGE	j ..OFF
    IFNB 	j0<G>,<G>
    IF	jPB <G>,<    EXTER	jpN RL.CTV
	PUSHJ 	k17,@RL.CTV+.RLDYN	k0>
    LLBNAM (,:	kP:,H,I,A)
    	kpEXP ^D11,$DYFVN
	l    IFNB <B>,<EX	l0P FLD(B,LD%VER)!	lPLD%VMA!O>
	m I	lpFB <B>,<EXP O>
    EXP M
    	m0POINT 7,[ASCIZ P	mP]
    POINT 7,[A	mpSCIZ Q]
    EXP	n J
	nP LDVNAM (	n0IFIW!,,H,I,C)
    LCVNAM (IFIW	np!,,H,I,D)
   	o LDGNAM (IFIW!,,	o0H,I,E)
    LCG	oPNAM (IFIW!,,H,I	op,F)

    PURGE	p TVENT
    DEFIN	p0E TVENT (LABFLG,V	pPNAM,RNAM,CNAM,S0C	ppP,I,OFFSET,CONT)	q <
	CONT
	>

	q0    LTVEC DV,A,	qPH,I,C,<R>
   	qp LTVEC CV,A,H,	rI,D,<S>

    	r0PURGE TVENT
    	rPDEFINE TVENT (LAB	rpFLG,VNAM,RNAM,CNA	sM,S0CP,I,OFFSET,	s0CONT) <
	IFNB <V	sPNAM>,<VNAM::>
	C	spONT
	>

    LT	tVEC DG,A,H,I,	t0E,<T>
    LTVEC	tP CG,A,H,I,F,<U>
    I,F,<Yj.$  	uO+

 LZER	u02 A,B,C,D,E
Yj.$,C,D,E
    NCNA	vM ,::,E,B,G
 	v0   PUSHJ 17, DY$Z	vPMU##
    IFNB <	vpH>, <H>
    LCV	wNAM (<PUSHJ 17, @	w0>,<+D>,A,B,C)	wP
    PUSHJ 17, D	wpY$ZMD##
    POPJ	x 17, DY.ZMV##		
    Y.ZMV##		
[8@ =@3l<1B<<A>-1>-1B<B>><A>-1[,Q @[,)3Q  [,[RQ [-I7Q [=h6 	8PKGIFB <D>,<	8pC.CGVA> IFNB <D>,<DA>FNB <[5h6 	5K+IFB <D>,<	50C.CTVA> IFNB <D>,<DA>FNB <[ 	;L&
    MLBN	;0AM (:,F,G,A)
	;P    EXP ^D9,$DYFV	;pN
    IFNB <I>,	< <EXP L!FLD(I,D	<0Y%VER)>
    IFB 	<P<I>, <EXP L!DY%	<pMIG>
    EXP J,	=H
    IFIW!MDVN	=0AM (,F,G,B)
 	=P   IFIW!MCVNAM (,	=pF,G,C)
    IF	>IW!MDGNAM (,F,G	>0,D)
	>p IFIW!MC	>PGNAM (,F,G,E)

    MTVEC DV,	?A,F,G,B,<P>
	?0    MTVEC CV,A,	?PF,G,C,<Q>
   	?p MTVEC DG,A,F,	@G,D,<R>
    MT	@0VEC CG,A,F,G,E,<S>
    G,[=h6 	:0KUIFB <D>,<	:PC.DGVA> IFNB <D>,<DA>FNB <[5h6 	6pK9IFB <D>,<	7C.DTVA> IFNB <D>,<DA>FNB <[%1Q [%h6Q 
[%hpQ [2h6 	30KIFB <D>,<	3PBA> IFNB <D>,<DA>FNB <D>,<[P$\YQ  [P%y6Q  	[S0 	OpM  
    TV	PENT 0,D,E,F,G	P0,B,C,RTNNAM(IFIW ,,D,E,B)FI[S2 	NLqMTV A,B,C,DMTV A,B,[S4X` 	KPLm

    MAN	KpAM(:,C,D,E)
 	L   COUNT (<F>)+1	L0
    XXOFF==0
 	LP   IRP F,
	<XXO	LpFF==XXOFF+1
	MTV	M1 MLBNAM(,C,D,	M0B),D,XXOFF,F
		MP>
    PURGE XXOFF
    RGE XXOF]t  	1pK
IFB <E>,<	2ACB>
e0%IFNB<E>,<AEB>Ba? [p5<^L<<A>&<-<A>>>><<A>&<e0%SQ (e0%XQ (
(Q
;Restore
H registers saved 
hby SAVACS
	MOVX 
0, 14		
	XMOVEI 
(1, .SVAC3(P)	
	M
HOVX 2, 3		
	EXTE
hND 0, [XBLT]	
	D
MOVE 0, .SVAC0(P)
(	
	MOVE 2, .SVAC
H2(P)	
	ADJSP P, -17		
DJSP P, eRuh6 	1K
IFB <D>,<	10ACB>
    IFNB <D>,<ADB>Bg4y 
(P~
	;Save r
Hegisters 0-16 on 
hstack in increasi
ng order
	ADJSP 
(P, 17		
	MOVEM 2
H, .SVAC2(P)	
	XM
hOVEI 2, 1(P)		
	
DMOVEM 0, .SVAC0(
(P)	
	DMOVE 0, [E
HXP -14, 17]	
	EX
hTEND 0, [XBLT]	
ND 0, [XBLT]	
g=Y7 k8G	

	IFDEkXF $SEG$,<
	    IkxF2,<
		IFE <$SEGl$-1>,<$SEG$==2
	l8	    TWOSEG 40000lX0
		> ;END IFE $lxSEG$-1
		IFE <$SmEG$+1>,<$SEG$==2
		    TWOSEG 400mX000
		> ;END IFEmx $SEG$+1
	    > n;END IF2
	> ;ENDn8 IFDEF $SEG$

	nXIFNDEF $SEG$,<
	nx    TWOSEG 400000o
	    IF1,< $SEGo8$==1>
	    IF2,<oX $SEG$==2>
	> ;EoxND IFNDEF $SEG$
p
	$NAME$=='A'
p8
	IFIDN <A><DATpXA>,<
	    IFG $SpxEG$,<
		RELOC
	q	IF1,<$SEG$==-1>
		IF2,<$SEG$==-2qX>>>

	IFDIF <Aqx><DATA>,<
	    IrFL $SEG$,<
		RELr8OC
		IF1,< $SEG$rX==1>
		IF2,< $SEG$==2>>>
g&LEg$iQg$k{Qg$lVQ	g$m7Q$g%Qg%{Qg&+yQ xg,hrQ g-Q |g-Q g-Q g-Q @g-YQ  g-ZQ @g-XrP$g-\sP'|g-lQ  g-nQ g.	Q g.7Q g.)9Q g.9;P g.;sQ g.=1P g.LVQ @g.[[Q @iZ-m 	PpM	
    IFN 	QA, <B::>
    H
    >
8(mm3@1D9)A(6)B(18)Cm4-X3P m4-X6P m4-Z3P m4-Z6P mc" 	VPM5
    VXT2 A,B
   VXT2mc"  	WM9

    EXTERN B
    EXTE	 	|Ob
    IRP 	|(A <
	XHLLI A, 1000	
    >
 	l8` {pGh
`
    MOVE|  C, B
    TXZ |@C, ^-SG%ID
    |`TXZ A, ^-SG%ID
}    CAME C, A
  CAME C, A
Q>G[T0RF1 <.	l8t z GY
0
    MOVEzP C, A
    TXZ zpC, ^-SG%ID
    {CAME C, [B&SG%ID]
C, [B&SG%IQ;GNT0.X.C	d+ 	,JU

    A M	*PDB1,<B,C,D,E,F>B,C,D,E,	H@P 	LmWQ 	M\s 	I%
    MSGD	0EF DY, FLL, .SGER	R, 100, "Failed t	po load library of	P class !AZ!/    f	0rom file !AZ"
  	P  MSGDEF DY, UPC,	p .SGINF, 7, "Requ	ested from user P	0C !OH"
    MSGDE	PF DY, DYV, .SGERR	p, 14, "Caller bui	lt for outdated D	0YNLIB version !VE	PR"
    MSGDEF DY	p, SEC, .SGERR, 0,	 "No section avai	0lable to load lib	Prary into"
    M	pSGDEF DY, CLS, .S	GERR, 0, "Library	0 service class sp	Pecified not provi	pded in library fi	le specified"
		0  MSGDEF DY, LBV,	P .SGERR, 14, "Lib	prary found build 	for outdated DYNL	0IB version !VER"
    MSGDEF DY, V	pER, .SGERR, 30, "	Version of librar	0y found (!VER) no	Pt good enough for	p caller (!VER)"
		    MSGDEF DY, EP		0C, .SGINF, 11, "J		PSYS error occurre		pd at PC !OH"
   	
 MSGDEF DY, CTV, 	
0.SGERR, 0, "Error	
P processing custo	
pmer transfer vect	or"
    MSGDEF D	0Y, DTV, .SGERR, 0	P, "Error processi	png DIGITAL transf	
er vector"
    M	
0SGDEF DY, DGV, .S	
PGERR, 0, "Error p	
processing DIGITAL	
PCGVMSGDEFRDY,0	g"	customer galactic	0 vector"
    MSG	PDEF DY, BOF, .SGE	pRR, 0, "Invalid o	ffset into LTVEC 	0called"
    JERW	PRD==^D28			;Numbe	pr of words for JS	YS message plus 2	0 user words
    	PMSGDEF DY, JER, .	pSGERR, JERWRD*4, 	"JSYS error:!/   	0 !JER"
    MSGDE	PF DY, MIE, .SGERR	p, 11, "Master INI	T of library fail	0ed, returning err	Por code !SW"
   	p MSGDEF DY, MIA, 	.SGERR, 100, "DYN	0MIN failed to ini	Ptialize !AA"
   	p MSGDEF DY, NYI, 	.SGSEV, 12, "Feat	0ure called from !	POH not yet implemented"
 implem	
<` }PG}
    FACD}pEF (DY, 1, "DYNLI~B")
~P FACDEF (~0SG, 2, "SIGNAL")
    FACDEF (ME, ~p3, "MEMORY")
    FACDEF (MT, 4, "0MTHLIB")
    FACPDEF (RL, 5, "RTL")
RL, 5, "RTL"	 	yO\
 
    $AR 	yH16			
    MOVX 	yhA, IFIW
    MOVE	z B, -1(16)		
  	z(  SUB B, [1,,0]		zH	
    HRRI B, -	zh1(16)		
    AOBJ	{P B, .+3		
	{H 	{(IORM A, 0(B)		
 JRST .-2			
RJRST.-2			0QE1GCC($A	"t+ x(GB
x
    EXP A,B,C,D
P Q8G<0I
EFQ30I{P	2%HV 	+0J_
    A L	+pDB1,<B,C,D,E,F,G,H>D,E,	2%I< 	+JY
    A LEXT1
    A L	2%JQ 	,PJW
    A L	*pJCK,<B,C,D,E,F,G,H>D,E,	2%NR 	-pK
    A L	0PZER,<B,C,D,E,F,G,H>D,E,	2L) 	(0Jc
h
    DEFI	(PNE C (MACNAM,PRE	(p) 
    <MACNAM (	)pPRE,A,B,D,E,	-L,M,N,O,F,G,	,0<H>,<I>,<J>,<K>)>
    J>,<RQG0$AMSGQA0  .AMQI0"v[[J?0   .AM	2L, 	|hP
	MOVEI 1	}, .POADD
	XMOVEI	}( 2, e
	MOVEM 2,	}H f+.PODAT
	XMOV	}hEI 2, d
	MOVEM 	~2, e
	XMOVEI 2,	~( f
	SETZ 3,
	P	~HDVOP%
	    IFB <	~hC>,<ERCAL [
		T	MSG <
??Fatal er	(ror making PDV fo	Hr dynamic library	h
>
		HALTF% ]>

	    IFNB <C>,<
(ERCAL C>

	JRS
HT g

    d: 5
h
    A LPD2
  
  A LPD1,<B,+IF
(IW>
    EXP 0
 
H   A LPD3

   
h e: IFIW d

 
   f: EXP 6, .FH
(SLF, 1
    IFIW 
He
    EXP 0, 0
h

    g:
    
    g:
    	6(@P 	6-\s 	IE
    MSGD	0EF ME, IMC, .SGER	PR, 0, "Insufficie	pnt memory in chun	k !SW to allocate	0 !SW word!%s"
  	P  MSGDEF ME, NAL,	p .SGSEV, 0, "Atte	mpt to free unall	0ocated block at !	POH"
    MSGDEF M	pE, NCA, .SGSEV, 1	6, "No chunk avai	0lable to manage a	Pddresses !OH to !OH"
s !OH to !	7 @P 	7%\s 	"pJ%
    MSGD	#EF MT, ERR, .SGWR	#0N, 4, "Math libra	#Pry error --  NUM1	#p = !SW, NUM2 = !S	$W"
    MSGDEF MT	$0, OEM, .SGINF, 0,	$P "Original error message: "
or 	J`@P 	Je\s 	%J=
    MSGD	%0EF RL, IBF, .SGER	%PR, 21, "Illegal b	%pyte pointer forma	&t: !BP"
	' MSGD	&0EF RL, IBS, .SGER	&PR, 21, "Illegal b	&pyte size in !BP"
    MSGDEF RL, I	'0BP, .SGERR, 21, "	'PIllegal byte position in !BP"
i	N8@P 	N<+ s`G:
 
    EXP vA
    EXP B
 v(   POINT 7, [ASCIvHZ C]
    POINT vh7, [ASCIZ D]
  w  POINT 7, [ASCIZw( E]
    EXP F, G, H, I
F,Q3Q0ERJ[G0IL	N<8` yGLFLD(A,SG%y FAC)!FLD(B,SG%MSy@G)!FLD(C,SG%SEV)!FLD(C,SG%SEV)	N=\s 	J
    MSGD	0EF SG, UNW, .SGIN	PF, 0, "Unwind -- 	pcomputer use only	"
    MSGDEF SG,	0 FRM, .SGINF, 7, 	P"Signal originate	pd at PC !OH"
   	 MSGDEF SG, ROS, 	0.SGERR, 7, "Attem	Ppt to remove hand	pler other than mo	st recently estab	0lished: !OH"
   	P MSGDEF SG, TRP, 	p.SGSEV, 10, "Trap	 occurred within 	0trap handler at P	PC !OH"
    MSGDE	pF SG, IOV, .SGWRN	, 10, "Integer ov	0erflow at PC !OH"	P
    MSGDEF SG, 	pIDC, .SGWRN, 10, 	"Integer divide c	0heck at PC !OH"
	P    MSGDEF SG, FO	pV, .SGWRN, 10, "F	 loating point ove	 0rflow at PC !OH"
    MSGDEF SG, F	 pDC, .SGWRN, 10, "	!Floating point di	!0vide check at PC 	!P!OH"
    MSGDEF 	!pSG, FUN, .SGWRN, 	"10, "Floating poi	"0nt underflow at PC !OH"
ow at PS@P -Z7P L9{P L;ZP L=P LI{P LMP LkP LmWP MX<P N\yP Ni9P O-WP hQ xhQ xiQ yiQ yRP I7P <Q "t:6P "t;P "t;wP "uRP "uI7P "v)9P "vYP "v[[P 2$9{P 2$;P 2$;ZP 2$=P 2$I{P 2$MP 2$h5Q 2$kP 2$mWP 2&<P 2&\yP 2&i9P 6P 6I9Q 6P 6}TP 6KP 6,\YP 6-X<P 6.-P 7%X<P Jd+wP JdN7P JeX<P Jem6P PN<8`P N<;P N<;RP N<H:P N<\YP N<h1P N<kP N=SP N=I7P N=X<P N=\sP N=nP N>`P N>9;P N>=1P N>|WP O4(Q }O4(Q }O4)Q ~O4)Q ~O4*Q O4*Q O4+P O4hQ yO4hQ yO4iQ zO4iQ zO4jQ {O4jQ {O4kQ |O4kQ |k4*yP k4;ZP k4<hP k5I7P k691P k7(VP kMI7P kN-P kN<Q kN\PQ >}{woP