PDP-10 Archive: tools/txtunv.unv from BB-W661B-BM

Trailing-Edge - PDP-10 Archives - BB-W661B-BM_1984 - tools/txtunv.unv

There are no other files named txtunv.unv in the archive.

x
,5C@P E@tP'E@vyQ ~E@v:=Q |KZ` p A
	IFIDN <BC><>,<EXP <A>0>
	IFDIF <BC><P>,<
	 IFE <A+1>p,<<POINT 7,C>>
	 IFN <A+1>,<
	0   IFIDN <C><>,<PEXP <A,B>>
	  p IFDIF <C><>,<EXP <A,B,C>>
	>>A,B,C>>
	>M^luQ SR/
	LSTOF.	pXCREF
	..TEXT<A	>		
	  EXP	0		
	LSTON.
	0		
Y"luQ xYO%GP YO%yG  
	IFNDEF  LSTIN.,LSTIN.==0	@	
IFE LSTIN.,<
`	IFIDN <XCREF><A>,<.XCREF>	
		    XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G ` 
	IFG LSTIN.,LSTIN.==LSTIN .-1	
	IFLE LSTIN@.,<.CREF		
		      LIST>
		   a;&  ,@"l
	 IFB  <,`B>,<..STR0(..PNT-,,<FWMASK>,A)>
- 	 IFNB <B>,<..ST-@R0(..PNT,,<B>,A)>.PNT,,<B>,Ae"luP'iD P!)

  IFNBp	<A>,<.TQCHA==^D<B>B17+ZZ>
  I0FNB 	<D>,<DEFINEP ..TQMA<D>>
  pIFNB	<C>,<.TQC==^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, 	P!
	LSTOF.
	TQ(T,2,ASCIZ)		
	
	TQ(O,2,OCTAL)
0			
	TQ(D,2,DECI
PMAL)			
	TQ(F,2,
pFILE)			
	TQ(7,2,CSEVEN)			
	TQ(06,2,CSIXBIT)			
P	TQ(W,2,SIXBIT)		p	
	TQ(5,2,SVNBIT

)			
	TQ(P,2,USE

0R)			
	TQ(U,2,DI

PRECTORY)			
	TQ(

pH,2,DAYTIME)			
	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		
	TQ(I,1,INDIRE
	TQ(M,0,CR,..TXC0(\".CHCRT)0)	
	TQ(J,0,LF,..PTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC0(\".CHFFD))	
	T0Q(K,0,VT,..TXC0(\P".CHVTB))	
	TQ(Ap,0,NOCRLF,..TXA(.TQCHA))	
	TQ(0,00,NULL,..TXA(.TQCHP0))	
	TQ(3,0,STRpING,..TXER(IQU))	
	TQ(V,2,VERSION0)			
	TQ(2,0,CARPET,..TXER(IQU))	
	TQ(Q,2,POINTER)			
	TQ(B,2,ROB)0			
	TQ(1,2,OBJEPCT)			
	TQ(N,2,NpODE)			
	TQ(R,2,JIB)			
	LSTON.
)			
	LSTON. ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ p 3`# 
	..XA==41B<ZZ>
	 ZZ==ZZ+1ZZ>
	ZZ==ZZ+uhP 	R/
	CALL	T%PTEXT##
	LSTOF.	XpCREF
	JUMP	[XWD 2,0
		0EVL (A)
		 ITEXT(<B>)]	
	LSTON.B>)]		S 0!/


  ..TX@A(.TQA,C,D,E,PB)	
      IFN ..TXEF,<			
	..TEpRR<$TQ(A,B,C,D,E)>>

C,	S@I9 / #
	LSTOF.
	X(UQU,Unknown q/`ualifier)
	X(IQU0,Invalid qualifie0 r)
	X(IJA,Invali0@d justification a0`rgument)
	X(IWA,1Invalid width arg1 ument)
	X(PEA,Pr1@emature end of ar1`gument)
	X(JNA,J2ustification is n2 ot allowed)
	X(A2@NA,Arguments are 2`not allowed)
	X(3ADS,Address must 3 be specified)
	LSTON.
ied)
	L;m ."v
	..PST==. C-FWMASK
	.IF0 .@..PST,<
		POINT .`0,B,35>,<
		POINTR (B,C)>POI;$\Y 5#4
4IF1,<
    PRINTX ? Err4`or in "A"
    D50EFINE X(NAM,ERR) 6<IFN ..X'NAM&..TX6 EF,<PRINTX ? ERR>6@>
    $TX$ERR>

    $TX$ERR>
;$^ 8 #j

    ..8@TXF==0				
    .8`.TXB==0				
    9..TXP==0				
   9  ..TXEG==<..TXEF=9@=0>			
    IRPC 9`A,<				
	..TXC=:=ASCII\A\-35		
	IFN ..TXB,<IFN :@..TXB-..TXC,..CNS:`(<A>)
		   IFE ;..TXB-..TXC,..TXB; ==0>
	IFE ..TXB,;@<..TXQ(<A>,\..TX;`F)>>	
    ..TXC1<				
    IFN ..T< XB,<IFN <..TXB-"^<@">,<..TXER(PEA)>><`
    ..TXEF==..T=XEF!..TXEG		
   =  IFN ..TXEF,<..TERR<A>>
,<..TE;&( !Y..TXA(.TQCH0)..TXA(.TQC;&)  !b..TXER(IQU)..TXER(IQU;&) P!]..TXER(IQU)..TXER(IQU;&0 P!U..TXA(.TQCHA)..TXA(.TQC;&5 !I..TXC0(\".CHLFD).TXC0(\".;&5 !Q..TXC0(\".CHVTB).TXC0(\".;&6 P!M..TXC0(\".CHFFD).TXC0(\".;&6 P!E..TXC0(\".CHCRT).TXC0(\".;'  @"`

	..TXE`F==0			

IFNDEF A,<..TXER(UQU)> 		
IFDIF <B><>,@<IRPC B,<.IFN <`B>,NUMERIC,..TXER (IWA)>>
IFNB <C  >,<IFNDEF .TXTJC @,<..TXER(IJA)>>
 `IFDEF  A,<
  IF!E <A_-^D18>,<IFD! IF <EFBCD><>!@,<..TXER(ANA)>>
!`  IFE <1-<A_-^D1"8>>,<IFDIF <BC" D><>,<..TXER(JNA)"@>>
  IFE <2-<A_"`-^D18>>,<IFIDN <#EF><>,<..TXER(AD# S)>>>

      IF#@E ..TXEF,<
	IFID#`N <B><>,<..TXWD=$=<..TXJU==<..TXFC$ ==0>>>
	IFDIF <$@B><>,<
	  IFE <^$`D<B>>,<..TXWD==<%..TXJU==<..TXFC==% 0>>>
	  IFN <^D<%@B>>,<..TXWD==^D<%`B>
	    IFNB <&C>,<..TXJU==.TXTJ& C>
	    IFB  <&@C>,<..TXJU==.TXTJ&`L
	      IFE <A'-.TQOCT>,<..TXJU=' =.TXTJR>
	(    '@IFE <A-.TQDEC>,<'`..TXJU==.TXTJR>>
	    IFB  <D>,<( ..TXFC==" ">
	  (@  IFNB <D>,<..TX(`FC=="D">>>

	I)FB  <EF>,<..TXP) T==0>
	IFNB <E)@F>,<..TXPT==1>
	)`IFE <..TXWD+..TXP*T>,<
	    EXP FL* D(A,TXT.FN)>
	I*@FN <..TXWD+..TXPT*`>,<
	    EXP FLD+(A,TXT.FN)+FLD(.+ .TXJU,TXT.JU)+FLD+@(..TXWD,TXT.WD)+F+`LD(..TXFC,TXT.FC),+TXT.AD
	    PNTR(E,F)>>

T;'h O%
    IFE O ..TXP,<			
	..ICO@NS			
	..CNS<ASCO`IZ\>		
	..TXP==1P>		
    ..CNS<AP >			
    ..TXF==P@0			
    ..TXB=="^"
    ..TXB==;'h Q%

    IFQ N ..TXP,<			
	..Q@CNS<\>		
	EXP <FQ`LD(.TQCHT,TXT.FN)R+[..GCNS]>>
    ..TXP==0>
    ;'	9 7#>
    ..TX7 EF==..TXEF!..XA	7@	
    ..TXF==0		7`		
    ..TXB=="^"
    ..TXB=="^;'

  =`#n..TXQB(<A>)..TXQB(<;'

( > #x

    IF>@N ..TXC-"^",<..TX>`C0(<A>)>		
    ?IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( ?@$

    IF?`E ..TXC-"^",<..TX@C0(<A>)>	
    I@ FN ..TXF,<			
	.@@.TXF==0		
	IFDEF@` .TQCHA,<		
	  A  IFDEF ..TQMA,.A .TQMA 
	    IFNA@ <.TQCHA_-^D18>,A`<..TXF==2>>>
   B IFE ..TXF-2,<..TB XC1(<A>)	
	..ICB@NS			
	..CNS<..TB`XA(.TQCHA,>>	
 C   ..TXEG==..TXEG!..TXEF==..TXEG;'

) C@$*
    ..TXC`F==3				
    IFGDE ..TXC-"0",IFLE D ..TXC-"9",<..TXF=D@=2>
    IFE ..TXD`F-2,<..CNS(A)>		E
    IFE ..TXF-3E ,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) E`$>
    ..TXFF==4				
    IFEF  ..TXC-"/",<..TXFF@==5>		
    IFE .F`.TXC-"[",<..TXF==G5>		
    IFE ..TG XF-4,<..CNS<A,>>G@		
    IFE ..TXFG`-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* H $T
    ..TXH@F==4				
    IFEH` ..TXC-"/",..TXF=I=5		
    IFE ..TI XC-"[",..TXF==5		I@
    IFE ..TXF-5I`,<..CNS<,>		
		 J..TXQ5<A>>		
  J   IFE ..TXF-4,<..J@CNS<A,>		
		 ..TXF==5>	
		 ..;'

* K$f
    ..TXK F==6				
    IFEK@ ..TXC-"/",..TXB=K`="/"		
    IFE .L.TXC-"[",..TXB=="L ]"
    IFE ..TXBL@-"]",..CNS<[>		
L`    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ M $t
    ..TXM@F==0			
    IFE M`..TXC-"]",..CNS<]N>	
    ..CNS<)>	N 		
    ..GCNS			N@
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @S@P &tj7Q ?6MiTQ @S

qQ S

89P S

:P 
S

:Q

:	P S

:	P 
S

:
Q S

:Q S

:Q S

:P 	S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

:Q S

:P S

:P 	S

:P S

:P S

:Q

:Q S

:Q S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

<@P S

<rQ S

<tQ S

H<Q S

I1Q S

J9Q S

\YQ S

i@P S

j6Q S
SQ StQ

S+qQ

S:<Q S=P 
S=WQ SJ6Q S\rQ Si9Q SmP 	SFH2P SFIVP SFJQP SFJVP SFJYP >}{woP