Google
 
Trailing-Edge - PDP-10 Archives - cobol12c - 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 8u
	SUBI	AX,1
	LSH	A,1			
		LSH	A,1			C;HCJ>|TAI>CJ>|TE&y2A  E&y2EV6
	MOVEM	T8OKCUR,TC
	MOVEM	XTOKCUR,TC.P1
	AOxS	TC.P1
	FUNCT	FNDSTR,<TYPVEC,PAM8WI,TC,TC.P1,A>
	TC,TC.P1,A>
K>4*:A  K>4*:K>`A  K>`K?*:A  K?*:KK;ZA  KK;ZKK|@ X;
	IFNB <xC>,<JRST	[FUNCT	TYPOUT,<A,C>>
	8IFB <C>,<JRST	[FXUNCT	TYPOUT,<A>>x
	IFNB <B>,<JRST	B>
	IFB <B>,8<JRST	.+1>
					]
	.+1>
					KKKKM'4PM?. A  M?. QP Su|R X
	HLRZ	R0x,TOKORI(TOKCUR)
	CAIN	R0,A
	ADDI	TOKCUR,1
	DDS:7A  S:7S:DL@A  S:DL@S;692A  S;692SO%zr ~8	
	  TOK.=~X0
	  IRP A,<TOK~x.=TOK.+1>
	  HLRZ	R0,TOKORI(TOKCU8R)
	  MOVEI	R1,TXOK.
	  IFG TOK.-x1,<
	  CAME R0,[IRP A,<A>]-1(R18)
	  SOJG	R1,.-1X
	  >
	  IFE TOxK.-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 
		RJUMPEERR	(<A>,B)]
	R	(<A>_W%YP ed:A  ed:ed[ZA  ed[Zee	A  ee	ee|A  ee|eZ9 X)
	  IFDIFx <A><EOS>,<
	  HLRZ	R0,TOKORI(TO8KCUR)
	  CAIE	R0X,$A
	  SYNERX	<x"A">,B
	  ADDI	TOKCUR,1
	  >
8	  IFIDN <A><EOSX>,<
	  CAME	TOKCxUR,TOKCNT		
	SYNERX	<"EOS">,B
	  >
	S">,BgAlAgfgAlg'@Ag'@g'U{VA  g'U{Vg'VNA  g'VNgLv
	  JRST	

[MOVEI	TEXTPT,[AS

8CIZ/A/]
	  IFNB

X <B>,<
		 SETOM

x	SUBERR
	  >
		RST	TYPERP]
	JRST	TYPERP]
	gft\\ 
[
	  JRST	
8[MOVEI	TEXTPT,[AS
XCIZ/A/]
	  IFNB
x <B>,<
		 SETOM	SUBERR
	  >
		8 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	[FUNCT8	TYPOUT,<A,C>>
	IFB <C>,<JRST	x[FUNCT	TYPOUT,<A	>>
	IFNB <B>,<J	8RST	B>
	IFB <B	X>,<JRST	.+1>
					]
	.+1>
			oJLj6A  oJLj6upA  up	| P S@P >}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.