Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/pltunv.unv
There are 2 other files named pltunv.unv in the archive. Click here to see a list.
x
!,6,@P C5IQ CmQ .C' 	`I<A&ACFLD>_-^D23R*10rCJ8[7P'~CJ8[<P CJ8\P CJ8]P'~EV=+8 +G"!* $G"$( &G"(1 @G#XQP'G#]Q |G>n @I}\ @I>H6 @IBe}Q SPOOLIJ, @KK= k FbIF2,<IFNDEk@F %OUTST,<EXTERN k`%OUTST>>
	PUSHJ	lP,[MOVE T1,['A',l ,[ASCIZ ~B~]]
	PJRST	%OUTST]
M2| l`Fj
    IFB m<B>,<	FLTR	A,Am >
    IFNB <B>,<FLTR	A,B>
0MRP MR$-3P MR&:tQ M&e|MR&:wQ M&e|MRDX2Q MR\P MRm=P MS
@Q MS'7Q iJm|NLP NPP NTP O$S ~ G|~
	MOVX	T1~@,<^D<C>,,<<A_-^~`D14>&ARG%TP>!^D<B>>
	PUSHJ	P,%AR GET##	;Check the @argument and get it
qF@S@GqGm0-a3%Z7Oex: @QeK` t0GI	XALL
	 EtPNTRY  A
	 SIXBItpT /A/  	;For suburoutine TRACE.
u0A:	 MOVEM	L,LA#	uP;Save arg pointerup
IFNB <D>,<	ARRvAY D[15-2+1]
	 v0MOVE	T1,[2,,D]	;vPPreserve ACs 2-15vp also
	 BLT	T1,wD-2+15
>
	 HRROw0I	T1,<B_9>+C	;NwPumber of argumentwps expected
	 MOVxE	T2,A-1	;Get nax0me of this modulexP
	 PUSHJ	P,%ARGExpT##	;Check if reqyuired args are supplied
	SALL	S(<  SNp @S;$Yr @S;%Ks "UKN m`FnPJRST A##FINE TTL
X@ Y>=p @] nuIF2,<IFDEFn8 A,<A==A>> IFNnXDEF A,<A==<B>>F A,<A==<B>>]VlS |0Gk
	HLRE	T1|P,-1(L)	;Get argum|pent count
	CAMLE}	T1,[-^D<A>]	;No}0n-skip if not enough args
a+=_$ @
`@F`D@,`H@-`L@ `P@ aqiP aqkyQ ~aqm8P a
	PRINTX	?Pj FALL - A: is notj@ next statement
j`	STOPI>>
	..==A	,<NOSYM 
	IFDa+= 5a3$YP -a3%Z7P a3&i9P a3&zP aJ|0 @aW
\ n FrPUSHJ P,A##AaW$S 	0H	 
	MOVX	T1	P,<^D<C>,,<<A_-^	pD14>&ARG%TP>!^D<	B>>
	PUSHJ	P,%AR	0GPT##	;Store the argument
HG~0e%@ gPF7SUBTTL- Afp -
IF2,<PRINTX - A>ckage%Ah@@ hD@ hH@ hL@ hP@ i?0P i?4( w :IFE TOPS-10,i?4H w`>IFE TOPS-20,iR` pG 	SALL
   p  TITLE A  %12A(5p@33)
    IFIDN <p`B>,<MAIN>,<IF2 <PqRINTX - A  %12A(q 533)>>
    IFDIFq@ <B>,<MAIN>,<NOSq`YM 
	IFDIF <B>,r<DUMMY>,<IF2 <PRIr NTX - A>>>
    r@IFDIF <B>,<DUMMYr`>,<
	TOPS10< SEAsRCH	MACTEN,UUOSYMs  >
	TOPS20< SEARs@CH	MACSYM,MONSYM s`>
	.DIRECTIVE FLtBLST
	$RELOC	400000 >
 SIk;0 oF|UNIVERSAL o A  %12A(533)
		o@  IF2,<PRINTX - A  %12A(533)> m;wQ (-p@ q6~i4 C q` 	@IIFN B,<
	`	IFGE <B-20>,<OP	DEF A [B_^D23]>	 	
	IFL  <B-20>,	@<OPDEF A [IFIW B,0]>>r@ 	} 	Hx	XALL
	XX	  (UNSPEC ,00,<uns	@pecified (can be 	`anything)>)
	XX 	(LOGICAL,01,<LOGI	 CAL (36-bit Boole	@an)>)
	XX (INTEG	`ER,02,<INTEGER>)
	XX ($3TYPE , 0,	 <type-3 (undefine	@d)>)
	XX (REAL  	` ,04,<REAL (singl	e-precision)>)
		 XX ($5TYPE , 0,<t	@ype-5 (undefined)	`>)
	XX (OCTAL  ,	06,<OCTAL (any 1-	 word variable)>)
	XX (PROC   ,07,	`<SUBROUTINE or PR	OCEDURE name>)
		 XX (DREAL  ,10,<D	@OUBLE PRECISION f	`loating point>)
		XX (DCOMP  ,11,<	 COMP (2-word COBO	@L integer)>)
	XX	` (DOCTAL ,12,<DOU		BLE OCTAL (any 2 		 words)>)
	XX (GF		@LOAT ,13,<G-float		`ing DOUBLE PRECIS	
ION>)
	XX (COMPL	
 EX,14,<COMPLEX (R	
@eal & Imaginary)>	
`)
	XX (CHARACT,1	5,<CHARACTER (byt	 e string descript	@or)>)
	XX ($16TY	`PE, 0,<type-16 (u	
ndefined)>)
	XX 	
 (STRING ,17,<ASCI	
@Z string (literal	
`)>)

	XX,(IARRA	EGER ar	
	XX,(INTLO	EGER or	
	XX (	CHAR%5 ,22,<INTEG	 ER or CHARACTER*5	@>)
	XX (CHAR10 ,	`23,<DOUBLE or CHA	RACTER*10>)
SALL 	tA yPG_	XLIST
	 yp $LOSEG
	  VAR		z	;Variables definz0ed earlier
	  $HzPISEG
	  PURGE	..zp		
LITS:	  LIT
{	  LIST
	{0LALL
ZA==.-1		    ;L{Past word in HISEG{p
	  PRGEND	    ;End of AMR$-3	"N93 h`FFIFL  .-400000,<RELOC>,$TY	2~93 i FJIFGE .-400000,<RELOC>AB(	J-Kq h FB	TWOSEG
			RELOC	A  %AS@P >}{woP