Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0161/parunv.unv
There is 1 other file named parunv.unv in the archive. Click here to see a list.
x
,:@P IOH1 F`|8
	XWD [ASGCIZ\C\],[XWD B,A]C\],[XWD B,WNH1 G@|<
	XWD [ASCIZ\B\],A [ASaip ai9p aiRp ak\p alZp al}p aI3 ){


	XLIST
) 
;THE NEXT FEW L)@INES ARE COPIED F)`ROM MONSYM FOR TH*E FLDDB. MACRO
	* ..XX==<FLD(A,CM%*@FNC)>+B+<Z F>
*`   IFNB <D>,<..X+X=..XX+CM%HPP>
 +   IFNB <E>,<..XX+@=..XX+CM%DPP>
	.+`.XX
   IFNB <C>,,<C>
   IFB <C, >,<0>
   IFNB <,@D>,<POINT 7,[ASCI,`Z \D\]>
   IFB -<D>,<0>
   IFNB-  <E>,<POINT 7,[A-@SCIZ \E\]>
   I-`FB <E>,<0>
   I.FNB <K>,<K>
  .  IFB <K>,<0>

.@;THE REST OF THE .`DEFINITION IS NOT/ USED BY THE JSYS/  BUT ONLY BY THE /@PARSER

   IFB /`<I>,<0>
   IFNB0 <I>,<Z I>
   0 IFB <J>,<0>
0`0@IFNB <J>,<Z J>
1IFB <H>,<0>
   IFNB <H>,<Z 1 H>
   IFB <G>,1@<0>
   IFNB<G><Z G>
	LIST
<	}[0 ={j
	PDBDEF = (.CMCMA,,,,,,A).CMCMA,,,,,,A)	I@ ;{X
	PDBDEF (.CMCFM)PDBDEF 	I  B |
	PDBDEF B@(.CMTAD,,CM%IDA,,,,A),,CM%IDA,,	.` @|
	PDBDEF @ (.CMDEV,,,,,,A).CMDEV,,,,,,A)	N  ;@{^
	PDBDEF ;`(.CMDIR,,,,,,A).CMDIR,,,,,,A)	L[ 9@{T
IFB <B>9`,<PDBDEF (.CMFLD,:,,,,,A)>
IFNB <: B>,<PDBDEF (.CMF:@LD,CM%SDH,,<B>,,,A)>DH,,<B>,,	ex: >@{|
IFB <B>>`,<PDBDEF (.CMFLT,?,,,,,A)>
IFNB <? B>,<PDBDEF (.CMF?@LT,CM%SDH,,<B>,,,A)>DH,,<B>,,	&5 6@{<
IFB <B>6`,<PDBDEF (.CMIFI,7,,,,,A)>
IFNB <7 B>,<PDBDEF (.CMI7@FI,CM%SDH,,<B>,,,A)>DH,,<B>,,	&u =`{p
	PDBDEF >(.CMINI,,,,,,A).CMINI,,,,,,A)	./ 2@{
	PDBDEF 2`(.CMKEY,,B,,,,A)MKEY,,B,,,,A	./ 2{
	PDBDEF (.CMKEY,,A)EF 	:}r 4`{*
	PDBDEF 5(.CMNOI,,<POINT 75 ,[ASCIZ/B/]>,,,,A)IZ/B/]>,,,,	;-XR 3 {"
IFB <C>3@,<PDBDEF (.CMNUM,3`,B,,,,A)>
IFNB4 <C>,<PDBDEF (.C4 MNUM,CM%SDH,B,<C>,,,A)>,B,<	>5 8{H
IFB <B>8 ,<PDBDEF (.CMOFI,8@,,,,,A)>
IFNB <8`B>,<PDBDEF (.CMO9FI,CM%SDH,,<B>,,,A)>DH,,<B>,,	G-} D@|,
IFB <B>D`,<PDBDEF (.CMQST,E,,,,,A)>
IFNB <E B>,<PDBDEF (.CMQE@ST,CM%SDH,,<B>,,,A)>DH,,<B>,,	O$@ H|D
	a==.
H 	XWD b-1,b-1
	H@DEFINE $ETAB <
	b==.-a>B <
		O= 5`{0
	PDBDEF 6(.CMSWI,,B,,,,,A)SWI,,B,,,,,	R

@ C`| 
	PDBDEF@D(.CMTAD,,<CM%IDA!CM%ITM>,,,,A)!	R/
IFB <B>A,<PDBDEF (.CMTXT,A ,,,,,A)>
IFNB <A@B>,<PDBDEF (.CMTA`XT,CM%SDH,,<B>,,,A)>DH,,<B>,,	RMY  C|
	PDBDEF C (.CMTAD,,CM%ITM,,,,A),,CM%ITM,,	R}97 F|2
	PDBDEF F (.CMTOK,,<B>,,,,A)OK,,<B>,,,,	W\@ < {d
	PDBDEF <@(.CMUSR,,,,,,A).CMUSR,,,,,,A)l,UP S@P >}{woP