Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-11 - decus/20-192/cusym.unv
There are no other files named cusym.unv in the archive.
x
,5N@P G`@ I6= `yb
	A==<-1B<C>+1B<C-D>>  
	IF1,<IFDEF %A@,<PRINTX ?A ALRE`ADY DEFINED>>
	DEFINE %A (OP,AC, Y,MSK)<
	OP (<AC>,B'Y,MSK)><ACL@ `@ `D@ `H@ `L@ `P@ `T@ `X@ bD@ bH@ bL@ hD@ hH@ hL@ hP@ 
.k 9H
	A (<B>,0C,D)A (<B
eLz Y	c		
	%9%==y<%8%==<%7%==<%6%==<%5%==<%4%==<%3%8==<%2%==<%1%==-1>>>>>>>>
%==-1>
,p 8AD
	A (<B>,0C,D)A (<B
D 
			
	%1%=9=%1%+1		
   ifg X%1%-777, <printx x%1: used too much !>
%cat(%1%,\%1%):! at(%1%,\%1%
F !
	%cat(%1%,\%1%)%cat(%1%,\
F0  Y
%cat(%1%,\<%1%+1>)t(%1%,\
H !Y
			
	%2%=!y=%2%+1		
   ifg "%2%-777, <printx "8%2: used too much"X!>
%cat(%2%,\%2%):! at(%2%,\%2%
J #Y
%cat(%2%,\%2%)%cat(%2%,\
J0 #
%cat(%2%,\<%2%+1>)t(%2%,\
L $
)			
	%3%=$9=%3%+1		
   ifg $X%3%-777, <printx $x%3: used too much%!>
%cat(%3%,\%3%):! at(%3%,\%3%
N &
1%cat(%3%,\%3%)%cat(%3%,\
N0 %Y
-%cat(%3%,\<%3%+1>)t(%3%,\
P &Y
=			
	%4%=&y=%4%+1		
   ifg '%4%-777, <printx '8%4: used too much'X!>
%cat(%4%,\%4%):! at(%4%,\%4%
R (Y
E%cat(%4%,\%4%)%cat(%4%,\
R0 (
A%cat(%4%,\<%4%+1>)t(%4%,\
T )
Q			
	%5%=)9=%5%+1		
   ifg )X%5%-777, <printx )x%5: used too much*!>
%cat(%5%,\%5%):! at(%5%,\%5%
V +
Y%cat(%5%,\%5%)%cat(%5%,\
V0 *Y
U%cat(%5%,\<%5%+1>)t(%5%,\
X +Y
e			
	%6%=+y=%6%+1		
   ifg ,%6%-777, <printx ,8%6: used too much,X!>
%cat(%6%,\%6%):! at(%6%,\%6%
Z -Y
m%cat(%6%,\%6%)%cat(%6%,\
Z0 -
i%cat(%6%,\<%6%+1>)t(%6%,\
\ .
y			
	%7%=.9=%7%+1		
   ifg .X%7%-777, <printx .x%7: used too much/!>
%cat(%7%,\%7%):! at(%7%,\%7%
^ 0%cat(%7%,\%7%)%cat(%7%,\
^0 /Y
}%cat(%7%,\<%7%+1>)t(%7%,\
`	0Y
	%8%=0y=%8%+1		
   ifg 1%8%-777, <printx 18%8: used too much1X!>
%cat(%8%,\%8%):! at(%8%,\%8%
b 2Y%cat(%8%,\%8%)%cat(%8%,\
b0 2%cat(%8%,\<%8%+1>)t(%8%,\
d 3!			
	%9%=39=%9%+1		
   ifg 3X%9%-777, <printx 3x%9: used too much4!>
%cat(%9%,\%9%):! at(%9%,\%9%
f 5)%cat(%9%,\%9%)%cat(%9%,\
f0 4Y%%cat(%9%,\<%9%+1>)t(%9%,\ws ]a
	call [	^setcm f, f	
		tx^ ne f, <A>	
		 a^@os (p)	
		setcm ^`f, f	
		ret ]
, f	
		ret ]
ww ]!
	txnn f, <A>
	txnn f,%XVP }%{1A  %{1@ 	eABdX9 a`
   ifb <C>, <setzm A>
    ifnb<C>, <
	@movx .sac, <C>
`	movem .sac, A
	   >
   if1, <if	 nb <B>, <exp 0, 	@0, 0>>
   if2, <	`
      ifb <B>,
 <%%%clr==1>
   
    ifnb<B>, <%%%
@clr==<B>>
     
` ifg <%%%clr-1>, <
	   hrli .sac,  A
	   hrri .sa@c, <1>+A
	   bl`t .sac, <%%%clr-1

>+A
      >
   >
      >
  lz O

|
	%comnd O![flddb. (.cmact, O@C, ,<A>,<B>)]
l,<A>,<B>)]


	%comnd Ca[flddb. (.cmcfm, B, ,<A>)]
, l;0 F!

4
	%comnd FA[flddb. (.cmcma, B, ,<A>)]
, lI; H

D
	%comnd H![flddb. (.cmdev, H@C, ,<A>,<B>)]
l,<A>,<B>)]

&
	%comnd DA[flddb. (.cmdir, D`D, A,<B>,<C>)]
A,<B>,<C>)lj6 AA


	%comnd Aa[flddb. (.cmfil, BC, ,<A>,<B>)]
l,<A>,<B>)]


	%comnd Ba[flddb. (.cmfld, CC, ,<A>,<B>)]
l,<A>,<B>)]

<
	%comnd G![flddb. (.cmflt, G@C, ,<A>,<B>)]
l,<A>,<B>)]lyS mT ?A


	%comnd ?a[flddb. (.cmifi, @C, ,<A>,<B>)]
m,<A>,<B>)]
	%ucmin 7Y[
   ifb <A>, <7y[%ptr(<>)]>
   i8fnb<A>, <[%ptr<9AA>]>
   ifb <B>9`,  <[.null]>
   :ifnb<B>,  <[B]>: 
   ifb <C>,  <:@[.prjfn]>
   ifn:`b<C>,  <C>
   ;ifb <D>, <[.null; ]>
   ifnb<D>, <[D]>
	]
>, m9< ;ab
	%comnd <[flddb. (.cmkey, < D, A,<B>,<C>)]
A,<B>,<C>)mkr P
	%comnd P![flddb. (.cmnod, P@C, ,<A>,<B>)]
m,<A>,<B>)]
	%comnd >[flddb. (.cmnoi, ,%ptr(A))]
, mm6 <aj
	%comnd =[flddb. (.cmnum, = D, A,<B>,<C>)]
A,<B>,<C>)mm< N

t
	%comnd N![flddb. (.cmnux, N@D, A,<B>,<C>)]
A,<B>,<C>)myT @A


	%comnd @a[flddb. (.cmofi, AC, ,<A>,<B>)]
n,<A>,<B>)]

\
	%comnd K![flddb. (.cmqst, K@C, ,<A>,<B>)]
n,<A>,<B>)]n=t >Ax
	%comnd >a[flddb. (.cmswi, ?D, A,<B>,<C>)]
A,<B>,<C>)nH2 J

T
	%comnd J![flddb. (.cmtad, J@D, A,<B>,<C>)]
A,<B>,<C>)nKu M

l
	%comnd M![flddb. (.cmtok, M@D, <%ptr<A>>,<B>,<C>)]
>,<nN I

L
	%comnd I![flddb. (.cmtxt, I@C, ,<A>,<B>)]
n,<A>,<B>)]

d
	%comnd L![flddb. (.cmuqs, L@D, A,<B>,<C>)]
A,<B>,<C>)n\y E!

.
	%comnd EA[flddb. (.cmusr, E`C, ,<A>,<B>)]
},<A>,<B>)]I@ 9{
	%print <%/>

	%printN8 
	%print <%/A>
%print  A   ,h1 |s
   if1,<|9
      ifg B-15|X, <printx ? Inval|xid redefinition o}f AC B>
~   i}8fl B-1,  <printx}X ? Invalid redefi}xnition of AC B>
	A==B
	purge ~8B,B
	define B <%B%>
   >
\s 	+
	 call [9
   ifnb<A>, <	X%print <%?A%/>, x<C> > 
   ifb <A>, <	%print <%?8%e%/> >	
   ifnbX<B>, <pop p, (p)x		
		jrst B>		
   ifb <B>, <HA8LTF			
		ret >			
			]		
>		)8 QA
	 erjmp Qa[txne t1, cm%rpt	R
		 jrst B	
		jrst A ]	

		5H2P'dy W!
   irp WAA, <
      ife %W`.fbt., <printx %FXlags: flag A: 37X th flag!>
	A==%[email protected].		
	%.fbt.=X`=<%.fbt._1>	
   >
bt._1>	
   dI /


	..xx==<9fld(A,cm%fnc)>+XB+<z F>
   ifnbx<D>, <..xx==cm%hpp!..xx>
   ifnb8<E>, <..xx==cm%dXpp!..xx>
	exp ..yxx
   ifnb<C>, <C>
   ifb <C>8, <exp 0>
   ifnXb<D>, <D>
   iyfb <D>, <ifnb <5YE>, <exp 0>>
   5xifnb<E>, <E>
fnb<E>, <E>
" 697		; A: Pa6Yrse routine, B: 6xEval routine
	xwd A, B

	xw&n
*.,R Sa
	 jrst [T	%cmgfg t1	
		txT ne t1, cm%rpt	
	T@	 jrst B	
		txnT`e t1, cm%nop	
		U jrst A	
		jrst C ]	

		jrst*l\Y UA
	 jrst [Ua	%cmgfg t1	
		txVne t1, cm%rpt	
	V 	 jrst B	
		txnV@e t1, cm%nop	
		V` %ermsg (,A) 
		jrst C ]	

	+\Y 9	
	 ercal Y[
   ifnb<A>, <x	%print <%?A%/>, <C> > 
   ifb 8<A>, <	%print <%X?%e%/>	>	
   ifnxb<B>, <pop p, (p)		
		jrst B>		8
   ifb <B>, <HXALTF			
		ret>			
			]		
t>		./ 	= 
   ifb 9<C>, <
	xwd [asXciz\A\],B	
   y>
   ifnb<C>, <
	xwd [<C>!cm%f8w	
	     asciz\XA\], B	
   >
\], B	
   >
6.,R RA
	 erjmp Ra[txne t1, cm%rpt	S
		 jrst B	
		S %ermsg (,A) ] 
rmsg (,A) ] 
;.[` @C] Q
	 erjmp r			

	erjmp CZ !
	%uprint_A [
		point 7,[as_`ciz ~A~]
		B
	]
A~]
		B
CxC xC:x `!
	%uprint`A 1, [		; print, b``ut return +2
		paoint 7,[asciz ~A~]
		B
	]
AC&  y	/<point 7, [asciz\A\]>7, C.)  
J~] I
	%pure

	%pure
N.I7 i
	search 	monsym,macsym
	.(require sys:macreHl	
	.request mach:curel	
	%.fbt.==1		
	%%llst			
	
	%%llst			I
	%pure		i	
	setz f,			
	reset			
	%stack( A		
	call %%uuHoi##		
	%cmres			
	
	%cmres		N^s \a
	txne f, <A>
	txne f,N^w [!
	call [	[Asetcm f, f	
		tx[`nn f, <A>	
		 a\os (p)		
		setcm\  f, f	
		ret ]
, f	
		ret ]
O$u )'bH

	arrayY %%pdl [A]	
	moxve p, [iowd A, %%pdl] 
d A, %200R

  y
	%print <%_>

	%print R

+ 9	5
	%%tbst=Y= .		
	exp 0			
		
	expR0				U
	%%tbnd=9=.-1		
	.org %%tbst		
	xwd %%tbn9d-%%tbst, %%tbnd-X%%tbst
	.org			
bst
	.org			Ya
	txz f, <A>

	txzf, Skw Y!
	txo f, <A>

	txof, SyY Za
	txza f, <A>
	txza f,S{Y Z!
	txoa f, <A>
	txoa f,SN	1 

Ad
	%print <A%/>
%print SNZ wd@
	%print 9<%@d>, <
		exp [Xno%lfl!fld(B,no%xcol)!fld(C,no%rdx)], A
	>
rd	%j0 ^d10VZ7 `W*7  Z.,t 9:cX
	exp  byte (3) D  (9) A   (6) C  (18) B
) C  (18) B)0+1>
	I000+qP K@P $H1P %K@P UK@P V;P \P ]K@P lI3P lkP lzQP mK@P S@P 
:M@P ;-KP C7P  CzP  C)WA  J$*vP J%K@P K<RP KK@P N

0@ SY P >}{woP