Google
 
Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - 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!8
	SUBI	A,1
	LSH	A,1			
		LSH	A,1			C;HCJ>|TAI>CJ>|TE&y2A  E&y2EV6
	MOVEM	ThOKCUR,TC
	MOVEM	TOKCUR,TC.P1
	AO(S	TC.P1
	FUNCT	FHNDSTR,<TYPVEC,PAMhWI,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 
 T
	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 L
	  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	R	H0,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 !2
	  JUMPE(	R0,[FILERR	(<A>,B)]
	R	(<A>_W%YP ed:A  ed:ed[ZA  ed[Zee	A  ee	ee|A  ee|eZ9  l
	  IFDIF( <A><EOS>,<
	  HHLRZ	R0,TOKORI(TOhKCUR)
	  CAIE	R0

,$A
	  SYNERX	<

("A">,B
	  ADDI

H	TOKCUR,1
	  >


h	,<IFIDN <A><EOS
	URCAME	TOKC
	YNSX	<"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 H<C>,<JRST	[FUNCTh	TYPOUT,<A,C>>
	IFB <C>,<JRST	([FUNCT	TYPOUT,<AH>>
	IFNB <B>,<JhRST	B>
	IFB <B>,<JRST	.+1>
					]
	.+1>
			oJLj6A  oJLj6upA  up	| P S@P >}{woP