Google
 
Trailing-Edge - PDP-10 Archives - BB-4148D-BM - dbms-v5a/source/dmlsym.unv
There are 17 other files named dmlsym.unv in the archive. Click here to see a list.
x
,5$@PB;DhAI B;D B;D@A  B;D@C92A  C92C;HA  C;HE&y2A  E&y2EV6
e H >
	SUBI	Ah,1
	LSH	A,1
	1
	LSH	A,1
	I>5R 	H V
	MOVEM	T	hOKCUR,TC
	MOVEM	
TOKCUR,TC.P1
	AO
(S	TC.P1
	FUNCT	F
HNDSTR,<TYPVEC,PAM
hWI,TC,TC.P1,A>
	TC,TC.P1,A>
K>4*:A  K>4*:K>`A  K>`K?*:A  K?*:KK;ZA  KK;ZKK|@ ~h 
	IFNB <C>,<JRST	[FUNCT	T(YPOUT,<A,C>>
	HIFB <C>,<JRST	[FhUNCT	TYPOUT,<A>>
	IFNB <B>,<JRS(T	B>
	IFB <B>,H<JRST	.+1>
					]
	.+1>
					KKKK{(A  SE{(SE|TA  SE|TSFi1A  SFi1Su|R yL
	HLRZ	R0y(,TOKORI(TOKCUR)
yH	CAIN	R0,A
	ADDI	TOKCUR,1
	DDS:7A  S:7S:@P S:DL@A  S:DL@S;692A  S;692SO%zr uhD
	  TOK.=v0
	  IRP A,<TOKv(.=TOK.+1>
	  HLRvHZ	R0,TOKORI(TOKCUvhR)
	  MOVEI	R1,TwOK.
	  IFG TOK.-w(1,<
	  CAME R0,[wHIRP A,<A>]-1(R1wh)
	  SOJG	R1,.-1x
	  >
	  IFE TOx(K.-1,<
	  CAIE	RxH0,A
	  MOVEI	R1,0
	  >
	I	R1WIlA  WIlXDuI7A  XDuI7XDum6A  XDum6YFH1A  YFH1Y&rXA  Y&rXY&uhXA  Y&uhXY8uI7A  Y8uI7Y8um6A  Y8um6Y?.K0@ ![<`A  [<`]>t+A  ]>t+]?$[vA  ]?$[v_
VA  
VS\Y h 8
	  JUMPE	R0,[FILERR	(<A>,B)]
	R	(<A>ZW%YP aJ~
	  HLRZ	z(R0,TOKORI(TOKCUR)zH
	  XORI	R0,A
zh	  TRNE	R0,A
	 { SYNERX	<"A">,B{(
	  ADDI	TOKCUR,1
	DDI	TOKCUR,ed:A  ed:ed:P ee	A  ee	eZ9 {hr
	  IFDIF| <A><EOS>,<
	  |(HLRZ	R0,TOKORI(TO|HKCUR)
	  CAIE	R0|h,$A
	  SYNERX	<}"A">,B
	  ADDI}(	TOKCUR,1
	  >
}H	  IFIDN <A><EOS}h>,<
	  CAME	TOKC~UR,TOKCNT		
	S~(YNERX	<"EOS">,B
	  >
	S">,BgAlA  gAlg!j{ ( H
	HLRZ	R1H,A(TOKCUR)
	XORhI	R1,AKA
	COPY	K	EYVAL,KEYVEC-1(R1)
	KEYVEC-1(R1g'U{VA[Sg'U{Vg'VNAH1g'VNg.,:PgLv
	  JRST	([MOVEI	TEXTPT,[ASHCIZ/A/]
	  IFNBh <B>,<
		 SETOM	SUBERR
	  >
		( JRST	TYPERP]
	JRST	TYPERP]
	gft\\ ( $
	  JRST	H[MOVEI	TEXTPT,[AShCIZ/A/]
	  IFNB <B>,<
		 SETOM(	SUBERR
	  >
		H JRST	TYPERX]
	JRST	TYPERX]
	i>\;ZAi>\;Zi>]{(A i>]{(i>]|TA i>]|Ti>^i1A  i>^i1igi1A  igi1m>\:A  m>\:m>\:P m>]	A  m>]	m>^
	IFNB (<C>,<JRST	[FUNCTH	TYPOUT,<A,C>>
	IFB <C>,<JRST	[FUNCT	TYPOUT,<A(>>
	IFNB <B>,<JHRST	B>
	IFB <Bh>,<JRST	.+1>
					]
	.+1>
			S@P >}{woP