Google
 
Trailing-Edge - PDP-10 Archives - BB-JF18A-BM - subsys/dynsym.unv
There are 4 other files named dynsym.unv in the archive. Click here to see a list.
x
,Q|@P G?-m 	O L|b==0
   	O@ 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  98+K<<<A>B<POS(<B>)>>&<B>>MS8zP O$, 
xPL
x
    r2==
(C+1			
    MOVE
H A, B		
    LD
hB C, [POINTR A,
 BP%POS]	
    CA
(IL C, 45
	JRST 
Hd		
    LDB A,
h [POINTR A, BP%S
IZ] 
    IDIV C
(, A		
    SUBI 
HA, 6			
    IMU
hLI A, 7		
				

    ADD C, A		
(	
    MOVE C, [
HEXP 53,52,51,50,4
h7,46,45,66,65,64,
63,62,61,0,60,57,
(56,55,54,0,0,73,7
H2,71,70,67](C)

h				
















(








H




    XMOV
hEI A, B		
    
	HRR A, B
    D
	(PB C, [POINTR A
	H, BP%POS]	
d:
BP%POS]	
d:
QpPT1SNpQ @U|RP Y=h6 	5 K.
IFB <E>,<	5@AD.CGVB> 
   	5` IFNB <E>,<AEB>B <E>,<AEY5h6 	1`K
IFB <E>,<	2AD.CTVB> 
   	2  IFNB <E>,<AEB>B <E>,<AEY-TP Y-X3P Y-X6P Y-Z3P Y-Z6P Y.i9P Y.k0P Y 	>@L0*
    IFNB	>` <G>,<G>
    I	?FB <G>,<    EXTE	? RN RL.CTV
	PUSHJ	?@ 17,@RL.CTV+.RLDY	?`N>
    LLBNAM (,	@::,H,I,A)
	@@	@  EXP ^D11,$DYFVN
    IFNB <B>,<E	@`XP FLD(B,LD%VER)	A!LD%VMA!O>
    	A IFB <B>,<EXP O>	A@
    EXP M
   	A` POINT 7, [ASCIZ 	BP]
    POINT 7,	B  [ASCIZ Q]
    	B@EXP J
    LDVNA	B`M (IFIW!,,H,I,	CC)
    LCVNAM (I	C FIW!,,H,I,D)
	C@    LDGNAM (IFIW!	C`,,H,I,E)
    	DLCGNAM (IFIW!,,H	D ,I,F)

    LT	D@VEC DV,A,H,I,	D`C,<R>
    LTVEC	E CV,A,H,I,D,<	E S>
    LTVEC DG	E@,A,H,I,E,<T>	E`
    LTVEC CG,A	F,H,I,F,<U>
    I,F,<U>
 Y=h6 	7K<
IFB <E>,<	7 AD.DGVB> 
   	7@ IFNB <E>,<AEB>B <E>,<AEY5h6 	3@K 
IFB <E>,<	3`AD.DTVB> 
   	4 IFNB <E>,<AEB>B <E>,<AEYFD  	PM
    ; Di	P gital entries
  	P@  IRP L, <
	VXT	P`1 C,L
	>
    	Q; Customer entrie	Q s
	Q@ IRP M, <
	VXT1 C,M
	>`
    ; Digital ga	Rlactic variable e	R ntries
    IRP 	R@N, <
	VXT1 C,N	R`
	>
    ; Custo	Smer galactic vari	S able entries
   	S@ IRP O, <
	VXT1	S` C,O
	>
    C,O
	>
    Y*0 	U N*
    ..OF	U@F==0
    IRP R,	U` <
	..OFF==..OFF	V+1
	LJCK1 H,I,	V D,..OFF,R
	>
	V@    PURGE ..OFF
	V`    ..OFF==0
   	W IRP S, <
	..OF	W F==..OFF+1
	LJCK	W@1 H,I,D,..OFF,	W`S
	>
    PURGE	X ..OFF
    IFNB 	X <G>,<G>
    IF	X@B <G>,<    EXTER	X`N RL.CTV
	PUSHJ 	Y17,@RL.CTV+.RLDYN	Y >
    LLBNAM (,:	Y@:,H,I,A)
    	Y`EXP ^D11,$DYFVN
	Z    IFNB <B>,<EX	Z P FLD(B,LD%VER)!	Z@LD%VMA!O>
	[ I	Z`FB <B>,<EXP O>
    EXP M
    	[ POINT 7,[ASCIZ P	[@]
    POINT 7,[A	[`SCIZ Q]
    EXP	\ J
	\@ LDVNAM (	\ IFIW!,,H,I,C)
    LCVNAM (IFIW	\`!,,H,I,D)
   	] LDGNAM (IFIW!,,	] H,I,E)
    LCG	]@NAM (IFIW!,,H,I	]`,F)

    PURGE	^ TVENT
    DEFIN	^ E TVENT (LABFLG,V	^@NAM,RNAM,CNAM,S0C	^`P,I,OFFSET,CONT)	_ <
	CONT
	>

	_     LTVEC DV,A,	_@H,I,C,<R>
   	_` LTVEC CV,A,H,	`I,D,<S>

    	` PURGE TVENT
    	`@DEFINE TVENT (LAB	``FLG,VNAM,RNAM,CNA	aM,S0CP,I,OFFSET,	a CONT) <
	IFNB <V	a@NAM>,<VNAM::>
	C	a`ONT
	>

    LT	bVEC DG,A,H,I,	b E,<T>
    LTVEC	b@ CG,A,H,I,F,<U>
    I,F,<Y*4  	cN

 LJCK	c 2 A,B,C,D,E
Y*4,C,D,E
    NCNA	dM ,::,E,B,G
 	d    LCVNAM (<JRST 	d@@>,<+D>,A,B,C)
    A,B,CY2h6 	0 K
IFB <E>,<	0@ACB>
    IFNB <E>,<AEB>BYB" 
xPLLBNAM ,B,C,D,AAM ,BYB"  
8P
    IFIW
X![ASCIZ J]
    ASCIZ J]
    YB"0 
P
    EXP D
       EXP YS0 	L`Lh
    TVEN	MT 1,D,E,F,G,B,C,A,F,G,YS2 	L LbLTV A,B,C,DLTV A,B,YS4X` 	F@LF


    LAN	F`AM (,::,C,D,E)	G
    COUNT (<F>	G )+1
    XXOFF==0	G@
    IRP F,
	<	G`XXOFF==XXOFF+1
		HLTV1 LLBNAM(IFIW!	H ,-1,C,D,B),D,	H@XXOFF,F
	>
   	H` PURGE XXOFF
    RGE XXOFF
   Yj.  	eO*
    ..OF	e F==0
    IRP R,	e@ <
	..OFF==..OFF	e`+1
	LZER1 H,I,	fD,..OFF,R
	>
	f     PURGE ..OFF
	f@    ..OFF==0
   	f` IRP S, <
	..OF	gF==..OFF+1
	LZER	g 1 H,I,D,..OFF,	g@S
	>
    PURGE	g` ..OFF
    IFNB 	h<G>,<G>
    IF	h B <G>,<    EXTER	h@N RL.CTV
	PUSHJ 	h`17,@RL.CTV+.RLDYN	i>
    LLBNAM (,:	i :,H,I,A)
    	i@EXP ^D11,$DYFVN
	i`    IFNB <B>,<EX	jP FLD(B,LD%VER)!	j LD%VMA!O>
	j` I	j@FB <B>,<EXP O>
    EXP M
    	kPOINT 7,[ASCIZ P	k ]
    POINT 7,[A	k@SCIZ Q]
    EXP	k` J
	l  LDVNAM (	lIFIW!,,H,I,C)
    LCVNAM (IFIW	l@!,,H,I,D)
   	l` LDGNAM (IFIW!,,	mH,I,E)
    LCG	m NAM (IFIW!,,H,I	m@,F)

    PURGE	m` TVENT
    DEFIN	nE TVENT (LABFLG,V	n NAM,RNAM,CNAM,S0C	n@P,I,OFFSET,CONT)	n` <
	CONT
	>

	o    LTVEC DV,A,	o H,I,C,<R>
   	o@ LTVEC CV,A,H,	o`I,D,<S>

    	pPURGE TVENT
    	p DEFINE TVENT (LAB	p@FLG,VNAM,RNAM,CNA	p`M,S0CP,I,OFFSET,	qCONT) <
	IFNB <V	q NAM>,<VNAM::>
	C	q@ONT
	>

    LT	q`VEC DG,A,H,I,	rE,<T>
    LTVEC	r  CG,A,H,I,F,<U>
    I,F,<Yj.$  	r`O

 LZER	s2 A,B,C,D,E
Yj.$,C,D,E
    NCNA	s`M ,::,E,B,G
 	t   PUSHJ 17, DY$Z	t MU##
    IFNB <	t@H>, <H>
    LCV	t`NAM (<PUSHJ 17, @	u>,<+D>,A,B,C)	u 
    PUSHJ 17, D	u@Y$ZMD##
    POPJ	u` 17, DY.ZMV##		
    Y.ZMV##		
[8@ ; 3Z<1B<<A>-1>-1B<B>><A>-1[,Q @[,)3Q  [,[RQ [-I7Q [=h6 	6 K4IFB <D>,<	6@C.CGVA> IFNB <D>,<DA>FNB <[5h6 	2`KIFB <D>,<	3C.CTVA> IFNB <D>,<DA>FNB <[ 	8`Kp&
    MLBN	9AM (:,F,G,A)
	9     EXP ^D9,$DYFV	9@N
    IFNB <I>,	9` <EXP L!FLD(I,D	:Y%VER)>
    IFB 	: <I>, <EXP L!DY%	:@MIG>
    EXP J,	:`H
    IFIW!MDVN	;AM (,F,G,B)
 	;    IFIW!MCVNAM (,	;@F,G,C)
    IF	;`IW!MDGNAM (,F,G	<,D)
	<@ IFIW!MC	< GNAM (,F,G,E)

    MTVEC DV,	<`A,F,G,B,<P>
	=    MTVEC CV,A,	= F,G,C,<Q>
   	=@ MTVEC DG,A,F,	=`G,D,<R>
    MT	>VEC CG,A,F,G,E,<S>
    G,[=h6 	8KBIFB <D>,<	8 C.DGVA> IFNB <D>,<DA>FNB <[5h6 	4@K&IFB <D>,<	4`C.DTVA> IFNB <D>,<DA>FNB <[%1Q [%h6Q 
[%hpQ [2h6 	1K
IFB <D>,<	1 BA> IFNB <D>,<DA>FNB <D>,<[P$\YQ  [P%y6Q  	[S0 	M@Lp  
    TV	M`ENT 0,D,E,F,G	N,B,C,RTNNAM(IFIW ,,D,E,B)FI[S2 	K`L^MTV A,B,C,DMTV A,B,[S4X` 	I LZ


    MAN	I@AM(:,C,D,E)
 	I`   COUNT (<F>)+1	J
    XXOFF==0
 	J    IRP F,
	<XXO	J@FF==XXOFF+1
	MTV	J`1 MLBNAM(,C,D,	KB),D,XXOFF,F
		K >
    PURGE XXOFF
    RGE XXOF]t  	/@J~
IFB <E>,<	/`ACB>
e0%IFNB<E>,<AEB>Ba? YP5M<^L<<A>&<-<A>>>><<A>&<e0%SQ (e0%XQ (
xQ
;Restore
 registers saved 
8by SAVACS
	MOVX 
X0, 14		
	XMOVEI 
x1, .SVAC3(P)	
	M
OVX 2, 3		
	EXTE
8ND 0, [XBLT]	
	D
XMOVE 0, .SVAC0(P)
x	
	MOVE 2, .SVAC
2(P)	
	ADJSP P, -17		
DJSP P, eRuh6 	.`Jx
IFB <D>,<	/ACB>
    IFNB <D>,<ADB>Bg4y 

xPk
	;Save r
egisters 0-16 on 
8stack in increasi
Xng order
	ADJSP 
xP, 17		
	MOVEM 2

, .SVAC2(P)	
	XM

8OVEI 2, 1(P)		
	

XDMOVEM 0, .SVAC0(

xP)	
	DMOVE 0, [E
XP -14, 17]	
	EX
8TEND 0, [XBLT]	
ND 0, [XBLT]	
g=Y7 iG	

	IFDEi(F $SEG$,<
	    IiHF2,<
		IFE <$SEGih$-1>,<$SEG$==2
	j	    TWOSEG 40000j(0
		> ;END IFE $jHSEG$-1
		IFE <$SjhEG$+1>,<$SEG$==2
		    TWOSEG 400k(000
		> ;END IFEkH $SEG$+1
	    > kh;END IF2
	> ;ENDl IFDEF $SEG$

	l(IFNDEF $SEG$,<
	lH    TWOSEG 400000lh
	    IF1,< $SEGm$==1>
	    IF2,<m( $SEG$==2>
	> ;EmHND IFNDEF $SEG$
mh
	$NAME$=='A'
n
	IFIDN <A><DATn(A>,<
	    IFG $SnHEG$,<
		RELOC
	nh	IF1,<$SEG$==-1>
		IF2,<$SEG$==-2o(>>>

	IFDIF <AoH><DATA>,<
	    IohFL $SEG$,<
		RELpOC
		IF1,< $SEG$p(==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 	N@Lv
    IFN 	N`A, <B::>
    H
    >
    m3@  [BYTE (3)D8(9)A(6)B(18)C9)A(6)B(18)Cm4-X3P m4-X6P m4-Z3P m4-Z6P mc" 	T M"
    VXT2 A,B
   VXT2mc"  	T`M&

    EXTERN B
    EXTE	 	yXOO
    IRP 	yxA <
	XHLLI A, 1000	
    >
 	l8` y@GU
0
    MOVEyp C, B
    TXZ zC, ^-SG%ID
    z0TXZ A, ^-SG%ID
zP    CAME C, A
  CAME C, A
Q+GHT0,..	l8t wpGF

    MOVEx  C, A
    TXZ x@C, ^-SG%ID
    x`CAME C, [B&SG%ID]
C, [B&SG%IQ(G;T0.CSN,.	d+ 	)`JB


    A M	( DB1,<B,C,D,E,F>B,C,D,E,	H@P 	LmWQ 	M\s }`I
    MSGD~EF DY, FLL, .SGER~`R, 100, "Failed t~@o load library of~  class !AZ!/    from file !AZ"
     MSGDEF DY, UPC,@ .SGINF, 7, "Requ`ested from user P	C !OH"
    MSGDE	 F DY, DYV, .SGERR	@, 14, "Caller bui	`lt for outdated D	YNLIB version !VE	 R"
    MSGDEF DY	@, SEC, .SGERR, 0,	` "No section avai	lable to load lib	 rary into"
    M	@SGDEF DY, CLS, .S	`GERR, 0, "Library	 service class sp	 ecified not provi	@ded in library fi	`le specified"
		  MSGDEF DY, LBV,	  .SGERR, 14, "Lib	@rary found build 	`for outdated DYNL	IB version !VER"
    MSGDEF DY, V	@ER, .SGERR, 30, "	`Version of librar	y found (!VER) no	 t good enough for	@ caller (!VER)"
	`    MSGDEF DY, EP	C, .SGINF, 11, "J	 SYS error occurre	@d at PC !OH"
   	` MSGDEF DY, CTV, 	.SGERR, 0, "Error	  processing custo	@mer transfer vect	`or"
    MSGDEF D		Y, DTV, .SGERR, 0		 , "Error processi		@ng DIGITAL transf		`er vector"
    M	
SGDEF DY, DGV, .S	
 GERR, 0, "Error p	
@rocessing DIGITAL	
` galactic vector"	
    MSGDEF DY, 	 CGV, .SGERR, 0, "	@Error processing 	`customer galactic	

 vector"
    MSG	

 DEF DY, BOF, .SGE	

@RR, 0, "Invalid o	

`ffsetdinto LTVEC 	
@RD=JERW				;Numbe	 user words
    	 MSGDEF DY, JER, .	@SGERR, JERWRD*4, 	`"JSYS error:!/   	 !JER"
    MSGDE	 F DY, MIE, .SGERR	@, 11, "Master INI	`T of library fail	ed, returning err	 or code !SW"
   	@ MSGDEF DY, MIA, 	`.SGERR, 100, "DYN	MIN failed to ini	 tialize !AA"
   	@ MSGDEF DY, NYI, 	`.SGSEV, 12, "Feat	ure called from !	 OH not yet implemented"
 implem	

<` { Gj
    FACD{@EF (DY, 1, "DYNLI{`B")
|  FACDEF (|SG, 2, "SIGNAL")
    FACDEF (ME, |@3, "MEMORY")
   |` FACDEF (MT, 4, "}MTHLIB")
    FAC} DEF (RL, 5, "RTL")
RL, 5, "RTL"	 	v`OI
`
    $AR 	w16			
    MOVX 	w8A, IFIW
    MOVE	wX B, -1(16)		
  	wx  SUB B, [1,,0]		x	
    HRRI B, -	x81(16)		
    AOBJ	xXP B, .+3		
	y 	xxIORM A, 0(B)		
 JRST .-2			
QJRST.-2			0Q21GCC($A	"t+ uxG/
H
    EXP A,B,C,D
P Q%G)0I
.IQ 0JQJR	2%HV 	)JL
    A L	)@DB1,<B,C,D,E,F,G,H>D,E,	2%I< 	(`JF
    A LEXT1
    A L	2%JQ 	* JD
    A L	(@JCK,<B,C,D,E,F,G,H>D,E,	2%NR 	+@Jr
    A L	. ZER,<B,C,D,E,F,G,H>D,E,	2L) 	&JP
8
    DEFI	& NE C (MACNAM,PRE	&@) 
    <MACNAM (	'@PRE,A,B,D,E,	*`L,M,N,O,F,G,	*<H>,<I>,<J>,<K>)>
    J>,<QmQ40$AMSGQ.0  .AMQ60LmWJ,0   .AM	2L, 	z8P
	MOVEI 1	zX, .POADD
	XMOVEI	zx 2, e
	MOVEM 2,	{ f+.PODAT
	XMOV	{8EI 2, d
	MOVEM 	{X2, e
	XMOVEI 2,	{x f
	SETZ 3,
	P	|DVOP%
	    IFB <	|8C>,<ERCAL [
		T	|XMSG <
??Fatal er	|xror making PDV fo	}r dynamic library	}8
>
		HALTF% ]>
	    IFNB <C>,<	}xERCAL C>

	JRS	~T g

    d: 5	~8
    A LPD2
  	~X  A LPD1,<B,+IF	~xIW>
    EXP 0
 	   A LPD3

   	8 e: IFIW d

 	X   f: EXP 6, .FH	xSLF, 1
    IFIW 
e
    EXP 0, 0
8

    g:
    
    g:
    	6(@P 	6-\s 	`I2
    MSGD	EF ME, IMC, .SGER	 R, 0, "Insufficie	@nt memory in chun	`k !SW to allocate	 !SW word!%s"
  	   MSGDEF ME, NAL,	@ .SGSEV, 0, "Atte	`mpt to free unall	ocated block at !	 OH"
    MSGDEF M	@E, NCA, .SGSEV, 1	`6, "No chunk avai	lable to manage a	 ddresses !OH to !OH"
s !OH to !	7 @P 	7%\s 	 @J
    MSGD	 `EF MT, ERR, .SGWR	!N, 4, "Math libra	! ry error --  NUM1	!@ = !SW, NUM2 = !S	!`W"
    MSGDEF MT	", OEM, .SGINF, 0,	"  "Original error message: "
or 	J`@P 	Je\s 	"`J*
    MSGD	#EF RL, IBF, .SGER	# R, 21, "Illegal b	#@yte pointer forma	#`t: !BP"
	$` MSGD	$EF RL, IBS, .SGER	$ R, 21, "Illegal b	$@yte size in !BP"
    MSGDEF RL, I	%BP, .SGERR, 21, "	% Illegal byte position in !BP"
i	N8@P 	N<+ q0G'
p
    EXP sXA
    EXP B
 sx   POINT 7, [ASCItZ C]
    POINT t87, [ASCIZ D]
  tX  POINT 7, [ASCIZtx E]
    EXP F, G, H, I
F,Q Q0ERGG0IL	N<8` vPG9FLD(A,SG%vpFAC)!FLD(B,SG%MSwG)!FLD(C,SG%SEV)!FLD(C,SG%SEV)	N=\s 	`J
    MSGD	EF SG, UNW, .SGIN	 F, 0, "Unwind -- 	@computer use only	`"
    MSGDEF SG,	 FRM, .SGINF, 7, 	 "Signal originate	@d at PC !OH"
   	` MSGDEF SG, ROS, 	.SGERR, 7, "Attem	 pt to remove hand	@ler other than mo	`st recently estab	lished: !OH"
   	  MSGDEF SG, TRP, 	@.SGSEV, 10, "Trap	` occurred within 	trap handler at P	 C !OH"
    MSGDE	@F SG, IOV, .SGWRN	`, 10, "Integer ov	erflow at PC !OH"	 
    MSGDEF SG, 	@IDC, .SGWRN, 10, 	`"Integer divide c	heck at PC !OH"
	     MSGDEF SG, FO	@V, .SGWRN, 10, "F	`loating point ove	rflow at PC !OH"
    MSGDEF SG, F	@DC, .SGWRN, 10, "	`Floating point di	vide check at PC 	 !OH"
    MSGDEF 	@SG, FUN, .SGWRN, 	`10, "Floating poi	 nt 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