Google
 
Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/build/dmlsym.unv
There are 17 other files named dmlsym.unv in the archive. Click here to see a list.
x
,5$@P C92A  C92CV\z h!x
	SUBI	A,1
	LSH	A,1			
		LSH	A,1			C;HCJ>|TARECJ>|TE&y2AE&y2EV6 H"
	MOVEM	ThOKCUR,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|@ !>
	IFNB <(C>,<JRST	[FUNCT	THYPOUT,<A,C>>
	hIFB <C>,<JRST	[FUNCT	TYPOUT,<A>>(
	IFNB <B>,<JRSHT	B>
	IFB <B>,h<JRST	.+1>
					]
	.+1>
					KKKKM'4PM?. A  M?. QP Su|R !
	HLRZ	R0(,TOKORI(TOKCUR)
H	CAIN	R0,A
	ADDI	TOKCUR,1
	DDS:7A  S:7S:DL@A  S:DL@S;692A  S;692SO%zr h!


	  TOK.=0
	  IRP A,<TOK(.=TOK.+1>
	  HLRHZ	R0,TOKORI(TOKCUhR)
	  MOVEI	R1,TOK.
	  IFG TOK.-(1,<
	  CAME R0,[HIRP A,<A>]-1(R1h)
	  SOJG	R1,.-1
	  >
	  IFE TO(K.-1,<
	  CAIE	RH0,A
	  MOVEI	R1,0
	  >
	I	R1WIlA  WIlXDuI7A  XDuI7XDum6A  XDum6YFH1A  YFH1Y&rXA  Y&rXY&uhXA  Y&uhXY8uI7A  Y8uI7Y8um6A  Y8um6Y?.K0P [<`A  [<`]>t+A  ]>t+]?$[vA  ]?$[v_
VA  
V:(A  :(S\Y !r
	  JUMPE(	R0,[FILERR	(<A>,B)]
	R	(<A>_W%YP ed:A  ed:ed[ZA  ed[Zee	A  ee	ee|A  ee|eZ9 !,
	  IFDIF( <A><EOS>,<
	  HHLRZ	R0,TOKORI(TOhKCUR)
	  CAIE	R0,$A
	  SYNERX	<("A">,B
	  ADDIH	TOKCUR,1
	  >
h	  IFIDN <A><EOS>,<
	  CAME	TOKC(UR,TOKCNT		
	SHYNERX	<"EOS">,B
	  >
	S">,BgAlAgfgAlg'@Ag'@g'U{VA  g'U{Vg'VNA  g'VNgLv
	  JRST	H[MOVEI	TEXTPT,[AShCIZ/A/]
	  IFNB <B>,<
		 SETOM(	SUBERR
	  >
		H JRST	TYPERP]
	JRST	TYPERP]
	gft\\ H!^
	  JRST	h[MOVEI	TEXTPT,[ASCIZ/A/]
	  IFNB( <B>,<
		 SETOMH	SUBERR
	  >
		h JRST	TYPERX]
	JRST	TYPERX]
	i#YAi#Yoi>\;ZA i>\;Zi>]{(A  i>]{(i>]|TA  i>]|Ti>^i1A  i>^i1i^xA  i^xigi1A  igi1m>\:A  m>\:m>\[ZA  m>\[Zm>]	A  m>]	m>]|A  m>]|m>^
	IFNB <HC>,<JRST	[FUNCT	hTYPOUT,<A,C>>
	IFB <C>,<JRST	[(FUNCT	TYPOUT,<A>H>
	IFNB <B>,<JRhST	B>
	IFB <B>,<JRST	.+1>
					]
	.+1>
				oJLj6A  oJLj6upA  up	| P S@P >}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.