Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-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 (!t
	SUBI	AH,1
	LSH	A,1			
		LSH	A,1			C;HCJ>|TARECJ>|TE&y2AE&y2EV6 "
	MOVEM	T(OKCUR,TC
	MOVEM	HTOKCUR,TC.P1
	AOhS	TC.P1
	FUNCT	F NDSTR,<TYPVEC,PAM (WI,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 <hC>,<JRST	[FUNCT	TYPOUT,<A,C>>
	(IFB <C>,<JRST	[FHUNCT	TYPOUT,<A>>h
	IFNB <B>,<JRST	B>
	IFB <B>,(<JRST	.+1>
					]
	.+1>
					KKKKM'4PM?. A  M?. QP Su|R H!
	HLRZ	R0h,TOKORI(TOKCUR)
	CAIN	R0,A
	ADDI	TOKCUR,1
	DDS:7A  S:7S:DL@A  S:DL@S;692A  S;692SO%zr (!
	  TOK.=H0
	  IRP A,<TOKh.=TOK.+1>
	  HLRZ	R0,TOKORI(TOKCU(R)
	  MOVEI	R1,THOK.
	  IFG TOK.-h1,<
	  CAME R0,[IRP A,<A>]-1(R1()
	  SOJG	R1,.-1H
	  >
	  IFE TOhK.-1,<
	  CAIE	R0,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 H!n
	  JUMPEh	R0,[FILERR	(<A>,B)]
	R	(<A>_W%YP ed:A  ed:ed[ZA  ed[Zee	A  ee	ee|A  ee|eZ9 H!(
	  IFDIFh <A><EOS>,<
	  HLRZ	R0,TOKORI(TO(KCUR)
	  CAIE	R0H,$A
	  SYNERX	<h"A">,B
	  ADDI	TOKCUR,1
	  >
(	  IFIDN <A><EOSH>,<
	  CAME	TOKChUR,TOKCNT		
	SYNERX	<"EOS">,B
	  >
	S">,BgAlAgfgAlg'@Ag'@g'U{VA  g'U{Vg'VNA  g'VNgLv
	  JRST	[MOVEI	TEXTPT,[AS(CIZ/A/]
	  IFNBH <B>,<
		 SETOMh	SUBERR
	  >
		 JRST	TYPERP]
	JRST	TYPERP]
	gft\\ !Z
	  JRST	([MOVEI	TEXTPT,[ASHCIZ/A/]
	  IFNBh <B>,<
		 SETOM	SUBERR
	  >
		( 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 <C>,<JRST	[FUNCT(	TYPOUT,<A,C>>
	IFB <C>,<JRST	h[FUNCT	TYPOUT,<A>>
	IFNB <B>,<J(RST	B>
	IFB <BH>,<JRST	.+1>
					]
	.+1>
			oJLj6A  oJLj6upA  up	| P S@P >}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.