PDP-10 Archive: 43,50547/pltlib/v12/pltunv.unv from decuslib10-12

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/pltlib/v12/pltunv.unv

There are 2 other files named pltunv.unv in the archive. Click here to see a list.

x
,6@P KK= opG3
IFDEF REpSTTY,<
	PUSHJ	P,p0[HRROI T1,[ASCIZ pP~
A
~]
	PJRSTpp	RESTTY]>
IFNDEFq RESTTY,<
TOPS10q0<	OUTSTR	[ASCIZ	~qp
A
~]>
TOPS20qP<	PUSHJ	P,[HRROI vT1,[ASCIZ ~
A
v0~]
		PSOUT
		POPJ	P,]>
>R~=M2| vpG;
    IFB w<B>,<	FLTR	A,Aw0>
    IFNB <B>,<FLTR	A,B>
MQ: Q MRP MR$-3Q MRV>9P MR\P MRm=P MS

@QNLPFNPPnNTP S;$Yr X@ ] s IF2,<IFDEFs@ A,<A==A>> IFNs`DEF A,<A==<B>>F A,<A==<B>>`@ `D@ `H@ `L@ `P@ aqiP aqkyQ ~aqm8P a
	PRINTX	?PnpFALL - A: is noto next statement
o0	STOPI>>
	..==A	$TYPE>,<TOPS10a3$YP &a3%Z7P a3&i9P a3&zP e@ i?0P i?4( w(:IFE TOPS-10,i?4H wh>IFE TOPS-20,iR` rpG/	SALL
   s TITLE A  %12(51s04)
    IFNB <B>sP,<NOSYM	;Dummy mospdule
		  IF2,<PRtINTX A>>
    IFt0B <B>,<TOPS10< StPEARCH	MACTEN,UUOStpYM >
		 TOPS20< uSEARCH	MACSYM,MONu0SYM >
		 IF2,<PRuPINTX A  %12(514)up>
		 $RELOC	400000 >xP R~<zk;0 r0GUNIVERSAL A  %12(514) m;wQ (&p@ r@ 	"N93 m0FkIFL  .-400000,<RELOC>NE  	2~93 mpFoIFGE .-400000,<RELOC>ITLE	J-Kq l@Fd	TWOSEG
			RELOC	A,<UNIS@P >}{woP