Google
 
Trailing-Edge - PDP-10 Archives - walsh_goodStuff_1600 - more-uns/xparam.unv
There is 1 other file named xparam.unv in the archive. Click here to see a list.
x,5-@P C4@ 7#]
 IFN ..R78&1,<PRINTX **ACVA7XR ILLEGAL INSIDE 7x"QSUBR"**>
 IFE 8..R&14,<PRINTX **88ACVAR CALLED OUTS8XIDE OF PROC/SUBR*8x*>
 %%NAC==0  		9	
 IRP A,<
  .98ACV1 (A)  		
 >9X
 .ACV3 \<%%NAC>9x			
 $.NSL==$.NS:L+%%NAC+1
 IFGE :8$.LFP,<
  $.LFP=:X=$.LFP+%%NAC+1
 :x>
 IFL $.LFP,<
;  $.GFP==$.GFP+%%;8NAC+1
 >
 ..R==;X..R!2			
 PURGE %%NAC

 PURGE C@@ E=@ QH
 IFG $.NQhST-9,<PRINTX NESTRING TOO DEEP>
 .R(.E==..E_1
 ..R==RH..R_4
 IFGE $.NSRhT,<$SNSL \<$.NST>S>
 $.NST==$.NST+S(1
 $INITIAL \<$.SHNST>
 $.LAB==$.LShAB_4
 $.REF==$.REF_4
.REF==$.RGP iX
 IFG $.CixNST-9,<PRINTX CASjE NESTING TOO DEEj8P>
 $.CNST==$.CNjXST+1
 ..C==..C_3jx
 $CASEINITIAL \k<$.CNST>
 $.CLABk8==<$.CLAB_4>!17
kX $.CREF==<$.CREF_kx4>!17

 %%R==-1l
 .IF A,NUMERICl8,<
  IFL <A-20>lX,<%%R==A>
 >
 lxIFL %%R,<
  %%R=m=T1
  MOVE %%R,m8A
 >
 %%A==0
 mXIRP B,<%%A==%%A+mx1>
 IFE <%%A-1>,n<
  .IFN B,ABSOn8LUTE,<PRINTX B NnXOT ABSOLUTE>
  %nx%A==B
 >
 IFG o<%%A-12>,<PRINTX o8CASE B .GT. 10.>oX
	JRST	@.+1(%%R)ox
 %%Z==0
 REPEApT <%%A>,<
  $GENp8CASE (\%%Z)
  %%pXZ==%%Z+1
 >
 PUpxRGE %%A,%%Z,%%R
E %%A,%%Z,%%R
I< 1REMARKK3P d+
 IFN ..Fd8&1,<
  $.ELS==$.dXELS+1
  $LABEL (dxF,\<$.INST>,\<$.EeLS>)
  $ELSUPDATe8E \<$.INST>
 >
\<$.INST>
 >
K:  T8{
 IFN ..ETX&1,<
  $LABEL (ETx,\<$.NST>,\<$.ENDU+1>)
 >
 IFN ..U8R&2,<
  $TCLEAR UX\<$.NST>	
  %%T=Ux=$.LFP			
  IFGEV %%T,<$.LFP==$.LFV8P-$.NSL>
  IFL %VX%T,<$.GFP==$.GFP-Vx$.NSL>
 PURGE %%WT
  IFE ..R&14,<W8
	MOVE P,0(P)		
  >
 >
 IFN ..WxR&4,<
  $CLEAR (X*P)		
  IFL $.GFX8P,<PRINTX **PROCEXXDURE STACK UNDERFXxLOW**>
  $.GFP==Y$.GFP-$.NPA-2
	PY8OPJ P,			
 >
 IYXFN ..R&10,<
  $CYxLEAR (*S)		
  IFZL $.LFP,<PRINTX *Z8*SUBROUTINE STACKZX UNDERFLOW**>
  Zx$.LFP==$.LFP-$.NA[-2
	POPJ P,			
[8 >
IFN ..R&1,<
  $CLEAR (*Q)			[x
	POPJ P,			
 >\
 IFN $.LAB&17-$\8.REF&17,<PRINTX U\XNDEFINED LABEL RE\xFERENCE>
 $UPDAT]E \<$.NST>
 $.LA]8B==$.LAB_-4
 $.R]XEF==$.REF_-4
 ..]xR==..R_-4
 ..E==^..E_-1
 IFL $.NS^8T,<PRINTX NESTING^X UNDERFLOW>
 $.N^xST==$.NST-1
 IFG_E $.NST,<
  $INI_8TIAL \<$.NST>
 >
 \<$.NST>
 >KN

0 qX/
 IFL $.CqxLAB&17-$.CREF&17,r<PRINTX UNDEFINEDr8 LABEL REFERENCE>rX
 $CASEUPDATE \<rx$.CNST>
 $.CLAB=s=$.CLAB_-4
 $.CRs8EF==$.CREF_-4
 IsXFN ..C&1,<
  $LAsxBEL (C,\<$.CNST>,t\<$.CASE+1>)
>8
 ..C==..C_-3
 ItXFL $.CNST,<PRINTXtx CASE NESTING UNDuERFLOW>
 $.CNST=u8=$.CNST-1
 IFGE uX$.CNST,<
  $CASEuxINITIAL \<$.CNST>
 >
\<$.CNST>L@ M$ exI
 IFN ..If&1,<
  $.IF==$.If8F+1
  $LABEL (I,fX\<$.INST>,\<$.IF>fx)
  $IFUPDATE \<g$.INST>
 >
 ..Ig8==..I_-3
 ELSE		gX		
..F==..F-3
 IFL $.INST,<PRIhNTX NESTING UNDERh8FLOW>
 $.INST==$hX.INST-1
 IFGE $.hxINST,<
  $IFINITiIAL \<$.INST>
 >
\<$.INST>
 >O@ OexY !i
 IF2,<
8  XLIST
  .XCREFX
  XGLOBS
  IFDxEF UGLOBS,<UGLOBS>
  .CREF
  LIST
 >
F
  LISS `8
 IFG $.I`XNST-5,<PRINTX IF `xNESTING TOO DEEP>a
 $.INST==$.INSTa8+1
 ..F==..F_3
aX ..T==..T_3
 ..Iax==..I_3
 $IFINITIAL \<$.INST>
Y@ [
,z7 X!7
 SALL
 xIFB <B>,<TITLE A>
 IFNB <B>,<T8ITLE A - B>
 .XDIRECT FLBLST
 GxGLOBS
RADIX 10
 $TEMP (9,10,10)8	
			
RADIX 8
 $CINFO			
 .RExQUIRE SYS:XPREL
IRE SYS:XPREL
[t@ 8!]
 PURGE .X.E,..F,..T,..C,..xI,..R
 PURGE $.LAB,$.END,$.REF,$.8NST,$.INST,$.IF,$X.THN,$.ELS
 PURGxE $.CASE,$.CLAB,$.CREF,$.CNST,$.NS8L,$.CORG,$.ORG
 XIFGE $.LFP,<
  PxNT <$.LFP>
  PRINTX **LOCAL FRAME8 NOT EMPTY**
>X
 IFGE $.GFP,<
 x PNT <$.GFP>
  PRINTX **GLOBAL FR8AME NOT EMPTY**
X >
 PURGE $.LFP,$.GFP
 $END A`@ `D@ `H@ `L@ `P@ `T@ `X@ `\@ a;  hX&G
 IRP A,hx<PNTX (A,\A)>
NTX (A,\A)>
a;' i8&K
 PRINTX A = B
RINTX e&\W \X%o
 IFE ..R\x&14,<				
  IFN ]..R&2,<MOVE P,0(P]8)>		
 >
 IFNB <]XA>,<
	DMOVE T1,]xA
 >
	POPJ P,

 >
	POPJ@P,hH@ hL@ hP@ i"-` b8
 IFN ..TbX&1,<
  $.THN==$.bxTHN+1
  $LABEL (cT,\<$.INST>,\<$.Tc8HN>)
  $THNUPDATcXE \<$.INST>
 >
 ..T==..T_-3

ic& h&A -1,,[ASCIZ \A\]1,,[ASCIqexY X"

 DEFINxE QEXT (SYM)<
  IRP SYM,<
   IFN8DEF SYM,<
    EXXTERNAL SYM
    SxUPPRESS SYM
   >
  >
 >



8
QEXT <.TRBGN,.PXRBG0,.PRBGA,.PRBGxB,.RFAIL>
QEXT < .SUBG0,.SUBG1,.SU 8BG2,.SUBG3,.SUBGA,.SUBGB>

BGA	.K` (X"w
 IFN ..R(x&1,<PRINTX **AUTO)MATIC STG ILLEGAL)8 INSIDE "QSUBR"**)X>
 %%NSL==0			
)x IRP A,<$AUTO1 (*A)>	
 $.NSL==$.*8NSL+%%NSL		
 IFN*X ..R&14,<			
  $*x.NSL==$.NSL+2		
+  IFGE $.LFP,<
+8  $.LFP==$.LFP+2
  >
  IFL $.LFP+x,<
   IFL $.GFP,,<PRINTX **NO FRAM,8E FOR AUTOMATIC**,X>
   $.GFP==$.GF,xP+2
  >
	JSP T1-,.TRBGN
	  %%NSL-8
 >
 IFE ..R&14-X,<			
  $.NSL==$-x.NSL+1		
	MOVE T.1,P		
	ADJSP P,%.8%NSL		
	PUSH P,T.X1		
 >
 PURGE %.x%NSL,%%S,%%P
 ..R==..R!2			
..	.Kh /8"{$AUTO2 (A)$AUTO2 (A	.Ki /x#
 IFB <B0>,<%%S==1>		
 IF08NB <B>,<%%S==B>0X
 %%NSL==%%NSL+%0x%S		
 IFGE $.LFP1,<
  %%P==$.LFP+181
  $.LFP==$.LFP1X+%%S		
  $TVAR (1xA,\<%%P>,(LF))
2 >
IFL $.LFP,<
  IFL $.GFP,<$.G2XFP==0>
  %%P==$.2xGFP+1
  $.GFP==$3.GFP+%%S
  $TVAR38 (A,\<%%P>,(GF))
 >
%P>,(GF))	  y$.BEGA	
,p x w$B \<$.NST>$B \<$.NST	
-i X!$REFERENCEx (E,\<$.NST>,\<$.END+1>)
 ..E==..E!1

K..E==..	&
 %%NA==0a
 IRP B,<%%NA==a8%%NA+1>
	PUSHJ PaX,[MOVEI AP,1+[-%%axNA,,0
		  IRP Bb,<Z B>]
		JRST b8A]
PURGE %%NA

	PURGE%%NA	 K
 $.CORG=	8=$.CRGA
 $.CASE==$.CSEA
CASE	9: 	x Y
 IFN <<$
.CLAB&17>-17>,<

8  $.CRGA==$.CRG
XA+$.CLAB&17+1>
 
xIFN ..C&1,<
$.CSEA==$.CSEA+1
 >
$.CSEA+1X!!$REFERENCEx (C,\<$.CNST>,\<$.CASE+1>)
 ..C==..C!1

 ..C==	MiW  x"
 DEFINE !$INFO (OP,ARG)<
!8  OP <ARG>
 >
 OP <ARG>
 >
	dX9 &x"=
 DEFINE '$CL1 (LIST)<$DOCL'8R (A,<LIST>)>
'X$INFO $CL1,*END*
 PURGE $CL1
,` c8&
	A==B

	A==B 68#5
 DEFINE 6XA<D^OBC>
 .A=<Z A>		
 .	|; %X"3
$CINFO
 IRP B,<
  IFD&IF <B><*END*>,<$&8P1 (A,B)>
 >
 (A,B)>
 >
	f=8
 $.ELSA==$.ELSA+1
A	t@	aK:	
   JRST Y[
 IFNB <A>,<
Y8 	MOVEI T1,A
 >YX
 IFE ..R&1,<			Yx	
  IFGE $.LFP,<ZMOVEI T2,1(LF)>		Z8
  IFL $.LFP,<MOZXVEI T2,0(GF)>		
Zx  IFE ..R&14,<			[	
   IFN ..R&2,<[8MOVE P,0(P)>		
 [X >
 >
 IFN ..R&[x1,<MOVEI T2,2(P)>\		
	JRST .RFAIL]
	JRST.RFAIL]	$REFERENCEx (F,\<$.INST>,\<$.ELS+1>)
 ..F==..F!1

 ..F==.	-hp 		C$A	exP fX&7
 $LOCAL fx(A,B)		
 INTERN A			
 INTER	&4[R X!$REFERENCEx (I,\<$.INST>,\<$.IF+1>)
 ..I==..I!1

 ..I==..	&5T X a
 $.IF==$x.IFA
 $.THN==$.

THNA
 $.ELS==$.ELSA
.ELS==$.	&6\ 

X e
 $.IFA==$.IFA+1
FA=	&u 8 9
  $.NSL=X=$.NSLA
 $.ORG=x=$.ORGA
 $.END==$.ENDA
 $.BEGA==.

 $.BEG	2

)6  q
 ABC:!

 ABC:	2|86 cx&1
 %%S==1	d		
 IFNB <B>,<%d8%S==B>
 IFNDEF dX.STGPC,<
  PRINTdxX ** .STGPC UNDEFeINED, ASSUMING 10e80000 **
  .STGPCeX==100000
 >
 Aex=.STGPC
 .STGPC=f=.STGPC+%%S
 PURGE %%S
S
 PUR	:$Y@ bx&
 IFNDEF A,<A==B>
F 	A #x"$P2 (A,B)$P2 (A,B	A $8")
 IFIDN <$XA><B>,<PURGE C$x>
 IFDIF <A><B%>,<$INFO $REDEF,<<B,C>>>
EF,<	Cx` @x$W

A::
 IAFGE $.LFP,<PRINTXA8 **PREVIOUS SUBR AXNOT ENDED (A)**>Ax
 IFGE $.GFP,<PRBINTX **PREVIOUS PB8ROC NOT ENDED (ABX)**>
BEGIN				
 ..R==..R!4			
C $.GFP==0
 $.NPAC8==0
 %%NPIO==<%%CXNPO==0>

 IRP CxB,<
  $PVAR (B)D
 >
 IRP C,<
D8  $PVAR (C)
  %DX%NPIO==%%NPIO+1
Dx >
 IRP D,<
  E$PVAR (D)
  %%NE8PO==%%NPO+1
 >
EX
 IFE %%NPIO+%%NExPO,<
  $.GFP==$.FGFP+1
  IFE $.NPF8A,<JSP T1,.PRBG0>FX
  IFN $.NPA,<JSFxP T1,.PRBGA>
>
 IFG %%NPIO+%%NPG8O,<
  $.GFP==$.GGXFP+1
	JSP T1,.PRGxBGB		
	-$.NPA+%%HNPO,,%%NPO	
	PUSH8HJ P,e		
	MOVE HXAP,-1(GF)		
	MOVHxE GF,0(GF)		
  %I%X==$.NPA
  REPEI8AT %%NPIO+%%NPO,<IX
   %%X==%%X-1
Ix	POP P,@%%X(AP)		J
  >
	ADJSP P,-J8%%X-2		
	POPJ P,JX
e:!
 >
 PURGJxE %%X,%%NPIO,%%NPO
,%%NPIO,%%NP	C.L| "x"$INFO $REDEF,<<A,B>>RED	C4@ K8$c
 $.GFP==KX$.GFP+1
 $DFVAR Kx(A,\<$.GFP>,(GF)L)
 $PUTSYM (*P,L8A)
 $.NPA==$.NPA+1
.NPA==$.NPA	GXH WX%C
 $DFVAR Wx(A,\<%%NA>,(AP),X@)
 $PUTSYM (*Q,X8A)
 %%NA==%%NA+1
 %%NA==%%NA+	GXY UX%9
 BEGIN		Ux		
 %%NA==0
 IRVP B,<$QSUB1 (B)V8>
 IRP C,<$QSUBVX1 (C)>
 IRP D,Vx<$QSUB1 (D)>
 .W.R==..R!1			
 PURGE %%NA

 PU	J,I3 !x"
 DEFINE "$INFO (OP,ARG)<
"8  OP <A,ARG>
 >
 <A,ARG>
 >	J,i9  sABC	J.9: ^8&
 IFB <A^X>,<PRINTX **NO PU^xSHDOWN LIST**>
 _%%S==1000		
IFN8B <B>,<%%S==B>
	RESET		
	MOVE _xP,[-%%S,,A-1]
	`MOVE GF,P
	MOVE `8LF,P
PURGE %%S
P
	PURGE%%Sx$.NSLA==$.NSL$.NSLA==$	O,)w Rx%
 IFLE AS-3,<
	JSP T1,.SUS8BGA
 >
 IFG ASX-3,<
	JSP T1,.SUBGA		
 >
,.SU	O,,@ Lx%
A::
 IMFGE $.LFP,<PRINTXM8 **PREVIOUS SUBR MXNOT ENDED (A)**>Mx
 BEGIN				
 ..NR==..R!10			
 $.N8LFP==0
 $.NA==0	NX		
%%NIO==0			

 IRP B,<
  $OSVAR (B)
 >
 IO8RP C,<
  $SVAR OX(C,@)
  %%NIO==Ox%%NIO+1
 >
 IRPP D,<
  $SVAR (P8D,@)
  %%NIO==%%PXNIO+1
 >
 $.LFPPx==$.LFP+1
 IFE %Q%NIO,<
  $SUBGN Q8(\<$.NA>)
 >
 IQXFG %%NIO,<
	JSP QxT1,.SUBGB		
	-$.RNA+%%NIO,,-%%NIO	R8
 >
 PURGE %%NIO

 PURGE %%NI	O4@ T%)
 $.LFP==T8$.LFP+1
 $DFVAR TX(A,\<$.LFP>,(LF)Tx,B)
 $PUTSYM (*US,A)
 $.NA==$.NA+1
 $.NA==$.N	RI0 ("A
 $CLEAR (*TA)
$CLEAR 	R-\ vX /
..E==0
 ..R==0
 ..F==0w
 ..T==0
 ..C==w80
 ..I==0
 $.NSwXL==0
 $.IF==0
 wx$.THN==0
 $.ELS=x=0
 $.END==0
 $x8.ORG==0
 $.CORG=xX=0
 $.LAB==0
 $xx.REF==0
 $.CASE=y=0
 $.CLAB==0
 y8$.CREF==0
 $.CNSyXT==-1
 $.NST==-1yx
 $.INST==-1
 $z.LFP==-1
 $.GFP=z8=-1

 DEFINE $TzXGEN (N)<
  DEFINzxE $'N'%<
   $LAB{EL (%,\<$.NST>,\<{8$.ORG+N>)
|IFG{X N-$.LAB&17,<$.LA{xB==$.LAB&-14+N>
  >
  DEFINE $'|8N<$REFERENCE (%,\|X<$.NST>,\<$.ORG+N|x>)
   IFG N-$.RE}F&17,<$.REF==$.RE}8F&-1_4+N>
  >
 }X>

 %%Z==0
 RE}xPEAT A,<
  %%Z=~=%%Z+1
  $TGEN \~8<%%Z>
 >

 DEF~XINE $TGEN (N)<
 ~x DEFINE C$'N'%<
   $LABEL (C%,\<$8.CNST>,\<$.CORG+NX>)
   IFG N-$.CLxAB&17,<$.CLAB==$.CLAB&-1_4+N>
  >8
  DEFINE C$'N<$XREFERENCE (C%,\<$x.CNST>,\<$.CORG+N>)
   IFG N-$.CR8EF&17,<$.CREF==$.XCREF&-1_4+N>
  >x
 >

 %%Z==0
 REPEAT C,<
  $8TGEN \<%%Z>
  %%XZ==%%Z+1
 >

 xDEFINE $NEST (N)<
  $.NSL'N==0
 8 $.ORG'N==0
  $.XCRG'N==0
  $.CSEx'N==0
  $.END'N==0
$.BEG'N==0
  $.IF'N==0
  $X.THN'N==0
  $.ELxS'N==0
 >

 %%Z==0
 REPEAT B,8<
  $NEST \<%%Z>X
  %%Z==%%Z+1
 x>

 PURGE %%Z,$NEST,$TGEN

$	REm8 
 $.THNA==$.THNA+1
A	S] #8"$PUTSYM (*TA,B)UTSYM (*	SP X!$REFERENCEx (T,\<$.INST>,\<$.THN+1>)
 ..T==..T!1

 ..T==.	S4@ 3x#/
 .IF A,4EXTERNAL,<
   PR48INTX **AUTO-VAR 4XA REFERENCED OUT 4xOF BLOCK**
   PU5RGE A
 >
 DEFI58NE A<D^OBC>
5X .A=<Z A>		
 $5xTPUT (\<$.NST>,A)
(\<$.NST>,A	WH: X E
 $.ORGAx==$.ORGA+$.LAB&17
 $.NSLA==0
 8IFN ..E&1,<
$.XENDA==$.ENDA+1
 >
$.ENDA+1g8&=
 BYTE (3gX)D(9)A(6)B(18)C
A(6)B(18)d  <#a
 .ACV2 (A)			
.ACV2 (d@ <X#q
 IFNDEF <xA,<
  A==P1+%%=NAC			
  $TPUT (=8\<$.NST>,A)		
 =X>
 IFB <B>,<%%N=xAC==%%NAC+1>
 IF>NB <B>,<%%NAC==%%NAC+1>
NAC==%d` >X$
 IFG A->xP7,<PRINTX **TOO ?MANY ACS USED (A?8)**>
 IFLE A-4,?X<
	JSP T1,.SAVA?x		;SAVE ACTUAL NU@MBER USED
 >
 I@8FG A-4,<
	JSP T1,.SAV7		
 >
S@P >}{woP