Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - subsys/dynsym.unv
There are 4 other files named dynsym.unv in the archive. Click here to see a list.
x
,5t@P G?-m 2Cb==0
   2( 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 M2  `P&<<<A>B<POS(B)>>&<B>>POMS8zP O$, e@Fa	
    r2==epC+1			
    MOVEf A, B		
    LDf0B C, [POINTR A,fP BP%POS]	
    CAfpIL C, 45
	JRST gd		
    LDB A,g0 [POINTR A, BP%SgPIZ] 
    IDIV Cgp, A		
    SUBI hA, 6			
    IMUh0LI A, 7		
				
    ADD C, A		hp	
    MOVE C, [iEXP 53,52,51,50,4i07,46,45,66,65,64,iP63,62,61,0,60,57,ip56,55,54,0,0,73,7j2,71,70,67](C)
j0				





jP








jp







k




    XMOVk0EI A, B		
    kPHRR A, B
    DkpPB C, [POINTR Al, BP%POS]	
d:
BP%POS]	
d:
HF(T1k@SNpQ @U|RP Y=h6 AD
IFB <E>,<(AD.CGVB> 
   H IFNB <E>,<AEB>B <E>,<AEY5h6 HA(
IFB <E>,<hAD.CTVB> 
    IFNB <E>,<AEB>B <E>,<AEY-TP Y-X3P Y-X6P Y-Z3P Y-Z6P Y.i9P Y.k0P Y !(BF*
    IFNB!H <G>,<G>
    I!hFB <G>,<    EXTE"RN RL.CTV
	PUSHJ"( 17,@RL.CTV+.RLDY"HN>
    LLBNAM (,"h::,H,I,A)
#(# EXP ^D11,$DYFVN
    IFNB <B>,<E#HXP FLD(B,LD%VER)#h!LD%VMA!O>
    $IFB <B>,<EXP O>$(
    EXP M
   $H POINT 7, [ASCIZ $hP]
    POINT 7,% [ASCIZ Q]
    %(EXP J
    LDVNA%HM (IFIW!,,H,I,%hC)
    LCVNAM (I&FIW!,,H,I,D)
&(    LDGNAM (IFIW!&H,,H,I,E)
    &hLCGNAM (IFIW!,,H',I,F)

    LT'(VEC DV,A,H,I,'HC,<R>
    LTVEC'h CV,A,H,I,D,<(S>
    LTVEC DG((,A,H,I,E,<T>(H
    LTVEC CG,A(h,H,I,F,<U>
    I,F,<U>
 Y=h6 hAR
IFB <E>,<AD.DGVB> 
   ( IFNB <E>,<AEB>B <E>,<AEY5h6 (A6
IFB <E>,<HAD.DTVB> 
   h IFNB <E>,<AEB>B <E>,<AEYFD  2hC4
    ; Di3gital entries
  3(  IRP L, <
	VXT3H1 C,L
	>
    3h; Customer entrie4s
4( IRP M, <
	VXT1 C,M
	>H
    ; Digital ga4hlactic variable e5ntries
    IRP 5(N, <
	VXT1 C,N5H
	>
    ; Custo5hmer galactic vari6able entries
   6( IRP O, <
	VXT16H C,O
	>
    C,O
	>
    Y*0 8D**
    ..OF8(F==0
    IRP R,8H <
	..OFF==..OFF8h+1
	LJCK1 H,I,9D,..OFF,R
	>
9(    PURGE ..OFF
9H    ..OFF==0
   9h IRP S, <
	..OF:F==..OFF+1
	LJCK:(1 H,I,D,..OFF,:HS
	>
    PURGE:h ..OFF
    IFNB ;<G>,<G>
    IF;(B <G>,<    EXTER;HN RL.CTV
	PUSHJ ;h17,@RL.CTV+.RLDYN<>
    LLBNAM (,:<(:,H,I,A)
    <HEXP ^D11,$DYFVN
<h    IFNB <B>,<EX=P FLD(B,LD%VER)!=(LD%VMA!O>
=h I=HFB <B>,<EXP O>
    EXP M
    >POINT 7,[ASCIZ P>(]
    POINT 7,[A>HSCIZ Q]
    EXP>h J
?( LDVNAM (?IFIW!,,H,I,C)
    LCVNAM (IFIW?H!,,H,I,D)
   ?h LDGNAM (IFIW!,,@H,I,E)
    LCG@(NAM (IFIW!,,H,I@H,F)

    PURGE@h TVENT
    DEFINAE TVENT (LABFLG,VA(NAM,RNAM,CNAM,S0CAHP,I,OFFSET,CONT)Ah <
	CONT
	>

B    LTVEC DV,A,B(H,I,C,<R>
   BH LTVEC CV,A,H,BhI,D,<S>

    CPURGE TVENT
    C(DEFINE TVENT (LABCHFLG,VNAM,RNAM,CNAChM,S0CP,I,OFFSET,DCONT) <
	IFNB <VD(NAM>,<VNAM::>
	CDHONT
	>

    LTDhVEC DG,A,H,I,EE,<T>
    LTVECE( CG,A,H,I,F,<U>
    I,F,<Y*4  EhD0

 LJCKF2 A,B,C,D,E
Y*4,C,D,E
    NCNAFhM ,::,E,B,G
 G   LCVNAM (<JRST G(@>,<+D>,A,B,C)
    A,B,CY2h6 A
IFB <E>,<(ACB>
    IFNB <E>,<AEB>BYB" c@FLLBNAM ,B,C,D,AAM ,BYB"  dF"
    IFIWd ![ASCIZ J]
    ASCIZ J]
    YB"0 d`F&
    EXP D
       EXP YS0 /HB~
    TVEN/hT 1,D,E,F,G,B,C,A,F,G,YS2 /BxLTV A,B,C,DLTV A,B,YS4X` )(B\


    LAN)HAM (,::,C,D,E))h
    COUNT (<F>*)+1
    XXOFF==0*(
    IRP F,
	<*HXXOFF==XXOFF+1
	*hLTV1 LLBNAM(IFIW!+,-1,C,D,B),D,+(XXOFF,F
	>
   +H PURGE XXOFF
    RGE XXOFF
   Yj.  GhE(*
    ..OFHF==0
    IRP R,H( <
	..OFF==..OFFHH+1
	LZER1 H,I,HhD,..OFF,R
	>
I    PURGE ..OFF
I(    ..OFF==0
   IH IRP S, <
	..OFIhF==..OFF+1
	LZERJ1 H,I,D,..OFF,J(S
	>
    PURGEJH ..OFF
    IFNB Jh<G>,<G>
    IFKB <G>,<    EXTERK(N RL.CTV
	PUSHJ KH17,@RL.CTV+.RLDYNKh>
    LLBNAM (,:L:,H,I,A)
    L(EXP ^D11,$DYFVN
LH    IFNB <B>,<EXLhP FLD(B,LD%VER)!MLD%VMA!O>
MH IM(FB <B>,<EXP O>
    EXP M
    MhPOINT 7,[ASCIZ PN]
    POINT 7,[AN(SCIZ Q]
    EXPNH J
O LDVNAM (NhIFIW!,,H,I,C)
    LCVNAM (IFIWO(!,,H,I,D)
   OH LDGNAM (IFIW!,,OhH,I,E)
    LCGPNAM (IFIW!,,H,IP(,F)

    PURGEPH TVENT
    DEFINPhE TVENT (LABFLG,VQNAM,RNAM,CNAM,S0CQ(P,I,OFFSET,CONT)QH <
	CONT
	>

Qh    LTVEC DV,A,RH,I,C,<R>
   R( LTVEC CV,A,H,RHI,D,<S>

    RhPURGE TVENT
    SDEFINE TVENT (LABS(FLG,VNAM,RNAM,CNASHM,S0CP,I,OFFSET,ShCONT) <
	IFNB <VTNAM>,<VNAM::>
	CT(ONT
	>

    LTTHVEC DG,A,H,I,ThE,<T>
    LTVECU CG,A,H,I,F,<U>
    I,F,<Yj.$  UHE.

 LZERUh2 A,B,C,D,E
Yj.$,C,D,E
    NCNAVHM ,::,E,B,G
 Vh   PUSHJ 17, DY$ZWMU##
    IFNB <W(H>, <H>
    LCVWHNAM (<PUSHJ 17, @Wh>,<+D>,A,B,C)X
    PUSHJ 17, DX(Y$ZMD##
    POPJ 17,
     POPJ[8@ i0.K<1B<<A>-1>-1B<B>><A>-1[,Q @[,)3Q  [,[RQ [-I7Q [=h6 AJIFB <D>,<(C.CGVA> IFNB <D>,<DA>FNB <[5h6 HA.IFB <D>,<hC.CTVA> IFNB <D>,<DA>FNB <[ HB&
    MLBNhAM (:,F,G,A)
    EXP ^D9,$DYFV(N
    IFNB <I>,H <EXP L!FLD(I,DhY%VER)>
    IFB <I>, <EXP L!DY%(MIG>
    EXP J,HH
    IFIW!MDVNhAM (,F,G,B)
    IFIW!MCVNAM (,(F,G,C)
    IFHIW!MDGNAM (,F,Gh,D)
( IFIW!MCGNAM (,F,G,E)

    MTVEC DV,HA,F,G,B,<P>
h    MTVEC CV,A, F,G,C,<Q>
    ( MTVEC DG,A,F, HG,D,<R>
    MT hVEC CG,A,F,G,E,<S>
    G,[=h6 hAXIFB <D>,<C.DGVA> IFNB <D>,<DA>FNB <[5h6 (A<IFB <D>,<HC.DTVA> IFNB <D>,<DA>FNB <[%1Q [%h6Q 
[%hpQ [2h6 hA IFB <D>,<BA> IFNB <D>,<DA>FNB <D>,<[P$\YQ  [P%y6Q  	[S0 0(C  
    TV0HENT 0,D,E,F,G0h,B,C,RTNNAM(IFIW ,,D,E,B)FI[S2 .HBtMTV A,B,C,DMTV A,B,[S4X` ,Bp


    MAN,(AM(:,C,D,E)
 ,H   COUNT (<F>)+1,h
    XXOFF==0
 -   IRP F,
	<XXO-(FF==XXOFF+1
	MTV-H1 MLBNAM(,C,D,-hB),D,XXOFF,F
	.>
    PURGE XXOFF
    RGE XXOF]t  (A
IFB <E>,<HACB>
    IFNB <E>,<AEB>Ba? |P/e<^L<<A>&<-<A>>>><<A>&<eO$y p@G
;Restorep` registers saved qby SAVACS
	MOVX q 0, 14		
	XMOVEI q@1, .SVAC3(P)	
	Mq`OVX 2, 3		
	EXTErND 0, [XBLT]	
	Dr MOVE 0, .SVAC0(P)r@	
	MOVE 2, .SVACr`2(P)	
	ADJSP P, -17		
DJSP P, eRuh6 HA
IFB <D>,<hACB>
    IFNB <D>,<ADB>Bg4y m@G
	;Save rm`egisters 0-16 on nstack in increasin ng order
	ADJSP n@P, 17		
	MOVEM 2n`, .SVAC2(P)	
	XMoOVEI 2, 1(P)		
	o DMOVEM 0, .SVAC0(o@P)	
	DMOVE 0, [Eo`XP -14, 17]	
	EXpTEND 0, [XBLT]	
ND 0, [XBLT]	
g=Y7 Oh=8	

	IFDEPF $SEG$,<
	    IP(F2,<
		IFE <$SEGPH$-1>,<$SEG$==2
	Ph	    TWOSEG 40000Q0
		> ;END IFE $Q(SEG$-1
		IFE <$SQHEG$+1>,<$SEG$==2
		    TWOSEG 400R000
		> ;END IFER( $SEG$+1
	    > RH;END IF2
	> ;ENDRh IFDEF $SEG$

	SIFNDEF $SEG$,<
	S(    TWOSEG 400000SH
	    IF1,< $SEGSh$==1>
	    IF2,<T $SEG$==2>
	> ;ET(ND IFNDEF $SEG$
TH
	$NAME$=='A'
Th
	IFIDN <A><DATUA>,<
	    IFG $SU(EG$,<
		RELOC
	UH	IF1,<$SEG$==-1>
		IF2,<$SEG$==-2V>>>

	IFDIF <AV(><DATA>,<
	    IVHFL $SEG$,<
		RELVhOC
		IF1,< $SEG$W==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 1(C


    IFN 1HA, <B::>
    H
    >
    m3@ h BYTE (3)D(9)A(6)B(18)C9)A(6)B(18)Cm4-X3P m4-X6P m4-Z3P m4-Z6P mc" 7C8
    VXT2 A,B
   VXT2mc"  7HC<

    EXTERN B
    EXTE	 \ Ed
    IRP \@A <
	XHLLI A, 1000	
    >
 	l8` `>
wh
    MOVE`@ C, B
    TXZ ``C, ^-SG%ID
    aTXZ A, ^-SG%ID
a     CAME C, A
  CAME C, A
G?=}T0,P..	l8t ^@={w8
    MOVE^p C, A
    TXZ _C, ^-SG%ID
    _0CAME C, [B&SG%ID]
C, [B&SG%IG<=pT0D@>>	d+ 

`@X


    A MDB1,<B,C,D,E,F>B,C,D,E,	H@P 	LmWQ 	M\s c`?B
    MSGDdEF DY, FLL, .SGERd R, 100, "Failed td@o load library ofd` class !AZ!/    ferom file !AZ"
  e   MSGDEF DY, UPC,e@ .SGINF, 7, "Reque`ested from user PfC !OH"
    MSGDEf F DY, DYV, .SGERRf@, 14, "Caller buif`lt for outdated DgYNLIB version !VEg R"
    MSGDEF DYg@, SEC, .SGERR, 0,g` "No section avaihlable to load libh rary into"
    Mh@SGDEF DY, CLS, .Sh`GERR, 0, "Libraryi service class spi ecified not provii@ded in library fii`le specified"
kj  MSGDEF DY, LBV,j  .SGERR, 14, "Libj@rary found build j`for outdated DYNLkIB version !VER"
    MSGDEF DY, Vk@ER, .SGERR, 30, "k`Version of librarly found (!VER) nol t good enough forl@ caller (!VER)"
l`    MSGDEF DY, EPmC, .SGINF, 11, "Jm SYS error occurrem@d at PC !OH"
   m` MSGDEF DY, CTV, n.SGERR, 0, "Errorn  processing custon@mer transfer vectn`or"
    MSGDEF DoY, DTV, .SGERR, 0o , "Error processio@ng DIGITAL transfo`er vector"
    MpSGDEF DY, DGV, .Sp GERR, 0, "Error pp@rocessing DIGITALp` galactic vector"q
    MSGDEF DY, q CGV, .SGERR, 0, "q@Error processing q`customer galacticr vector"
    MSGr DEF DY, BOF, .SGEr@RR, 0, "Invalid or`ffset into LTVEC scalled"
    JERWs RD==^D28			;Numbes@r of words for JSs`YS message plus 2t user words
    t MSGDEF DY, JER, .t@SGERR, JERWRD*4, t`"JSYS error:!/   u !JER"
    MSGDEu F DY, MIE, .SGERRu@, 11, "Master INIu`T of library failved, returning errv or code !SW"
   v@ MSGDEF DY, MIA, v`.SGERR, 100, "DYNwMIN failed to iniw tialize !AA"
   w@ MSGDEF DY, NYI, w`.SGSEV, 12, "Featxure called from !x OH not yet implemented"
 implem	

<` a`>
    FACDbEF (DY, 1, "DYNLIb B")
b` FACDEF (b@SG, 2, "SIGNAL")
    FACDEF (ME, c3, "MEMORY")
   c  FACDEF (MT, 4, "MTHLIB")
 4, "	 Y(E^	
    $AR Y`16			
    MOVX ZA, IFIW
    MOVEZ  B, -1(16)		
  Z@  SUB B, [1,,0]	Z`	
    HRRI B, -[1(16)		
    AOBJ[ P B, .+3		
[` [@IORM A, 0(B)		
 JRST .-2			
HJRST.-2			0GA1GCC($A	"t+ \H=dw
    EXP A,B,C,D
P G9=^0I
^(G40	N<+	2%HV 
    A L`DB1,<B,C,D,E,F,G,H>D,E,	2%I< 

@@d
    A LEXT1
    A L	2%JQ 

 @\
    A L@JCK,<B,C,D,E,F,G,H>D,E,	2%NR @A
    A LZER,<B,C,D,E,F,G,H>D,E,	2L) 	@pX
    DEFI	 NE C (MACNAM,PRE	@) 
    <MACNAM (
@PRE,A,B,D,E, L,M,N,O,F,G,<H>,<I>,<J>,<K>)>
    J>,<GGG0$AMSGGE0  .AMGI0<Q=F@D0   .AM	2L, ]F
	MOVEI 1] , .POADD
	XMOVEI]@ 2, e
	MOVEM 2,]` f+.PODAT
	XMOV^EI 2, d
	MOVEM ^ 2, e
	XMOVEI 2,^@ f
	SETZ 3,
	P^`DVOP%
	    IFB <_C>,<ERCAL [
		T_ MSG <
??Fatal er_@ror making PDV fo_`r dynamic library`
>
		HALTF% ]>
	    IFNB <C>,<`@ERCAL C>

	JRS``T g

    d: 5a
    A LPD2
  a   A LPD1,<B,+IFa@IW>
    EXP 0
 a`   A LPD3

   b e: IFIW d

 b    f: EXP 6, .FHb@SLF, 1
    IFIW b`e
c EXP 0, 0

    g:
    
    g:
    	6(@P 	6-\s x`?b
    MSGDyEF ME, IMC, .SGERy R, 0, "Insufficiey@nt memory in chuny`k !SW to allocatez !SW word!%s"
  z   MSGDEF ME, NAL,z@ .SGSEV, 0, "Attez`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 @@B
    MSGD`EF MT, ERR, .SGWRN, 4, "Math libra ry error --  NUM1@ = !SW, NUM2 = !S`W"
    MSGDEF MT, OEM, .SGINF, 0,  "Original error message: "
or 	N8@P 	N<+ X=\v(
    EXP Z(A
    EXP B
 ZH   POINT 7, [ASCIZhZ C]
    POINT [7, [ASCIZ D]
  [(  POINT 7, [ASCIZ[H E]
    EXP F, G, H, I
F,G3G 0ER8`=:0IL	N<8` ] =nFLD(A,SG%]@FAC)!FLD(B,SG%MS]`G)!FLD(C,SG%SEV)!FLD(C,SG%SEV)	N=\s |`@0
    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 established: !OH"
     MSGDEF SG, TRP, @.SGSEV, 10, "Trap` occurred within trap handler at P C !OH"
    MSGDE@F SG, IOV, .SGWRN`, 10, "Integer overflow at PC !OH" 
    MSGDEF SG, @IDC, .SGWRN, 10, `"Integer divide check at PC !OH"
     MSGDEF SG, FO@V, .SGWRN, 10, "F`loating point overflow at PC !OH"
    MSGDEF SG, F@DC, .SGWRN, 10, "`Floating point divide check at PC  !OH"
    MSGDEF @SG, FUN, .SGWRN, `10, "Floating point 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 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 N<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 |kMI7P kN-P kN<P kN\PP >}{woP