Google
 

Trailing-Edge - PDP-10 Archives - ap-c800d-sb - dmlsym.unv
There are 17 other files named dmlsym.unv in the archive. Click here to see a list.
x
,$@P C92A  C92CV\z wpA
	SUBI	Ax,1
	LSH	A,1			
		LSH	A,1			C;HCJ>|TAI>CJ>|TE&y2A  E&y2EV6
	MOVEM	TxpOKCUR,TC
	MOVEM	yTOKCUR,TC.P1
	AOy0S	TC.P1
	FUNCT	FyPNDSTR,<TYPVEC,PAMypWI,TC,TC.P1,A>
	TC,TC.P1,A>
K>4*:A  K>4*:K>`A  K>`K?*:A  K?*:KK;ZA  KK;ZKK|@ o
	IFNB <o0C>,<JRST	[FUNCT	ToPYPOUT,<A,C>>
	opIFB <C>,<JRST	[FpUNCT	TYPOUT,<A>>p0
	IFNB <B>,<JRSpPT	B>
	IFB <B>,pp<JRST	.+1>
					]
	.+1>
					KKKKM'4PM?. A  M?. QP Su|R k]
	HLRZ	R0k0,TOKORI(TOKCUR)
kP	CAIN	R0,A
	ADDI	TOKCUR,1
	DDS:7A  S:7S:DL@A  S:DL@S;692A  S;692SO%zr gpU
	  TOK.=h0
	  IRP A,<TOKh0.=TOK.+1>
	  HLRhPZ	R0,TOKORI(TOKCUhpR)
	  MOVEI	R1,TiOK.
	  IFG TOK.-i01,<
	  CAME R0,[iPIRP A,<A>]-1(R1ip)
	  SOJG	R1,.-1j
	  >
	  IFE TOj0K.-1,<
	  CAIE	RjP0,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 w;
	  JUMPEw0	R0,[FILERR	(<A>,B)]
	R	(<A>_W%YP ed:A  ed:ed[ZA  ed[Zee	A  ee	ee|A  ee|eZ9 lu
	  IFDIFl0 <A><EOS>,<
	  lPHLRZ	R0,TOKORI(TOlpKCUR)
	  CAIE	R0m,$A
	  SYNERX	<m0"A">,B
	  ADDImP	TOKCUR,1
	  >
mp	  IFIDN <A><EOSn>,<
	  CAME	TOKCn0UR,TOKCNT		
	SnPYNERX	<"EOS">,B
	  >
	S">,BgAlAgfgAlg'@Ag'@g'U{VA  g'U{Vg'VNA  g'VNgLv
	  JRST	uP[MOVEI	TEXTPT,[ASupCIZ/A/]
	  IFNBv <B>,<
		 SETOMv0	SUBERR
	  >
		vP JRST	TYPERP]
	JRST	TYPERP]
	gft\\ sP'
	  JRST	sp[MOVEI	TEXTPT,[AStCIZ/A/]
	  IFNBt0 <B>,<
		 SETOMtP	SUBERR
	  >
		tp 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 qP<C>,<JRST	[FUNCTqp	TYPOUT,<A,C>>
	IFB <C>,<JRST	r0[FUNCT	TYPOUT,<ArP>>
	IFNB <B>,<JrpRST	B>
	IFB <Bs>,<JRST	.+1>
					]
	.+1>
			oJLj6A  oJLj6upA  up	| P S@P >}{woP