Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50547/pltlib/v12a/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