Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - sort-build/srtprm.unv
There are no other files named srtprm.unv in the archive.
x
,5`@P CT, `C1h P C1h@P E=@ @


 IFG $.NST-9,<PRINTX ? BEAGIN-END nesting taoo deep>
 $PRNST! (\$.PNST,<BEGIN>!)
 $.PNST=$.PNSTA+1
 ..R..==..R..`_3+..R..&7
 ..E..==..E.._3
 $.NS!T==$.NST+1
 $INI@TIAL \<$.NST>
 $.LAB=$.LAB_4
$F:f8{P Ge@ ,GeLR 5GP AAR
 IFGE $.aCNST-9<PRINTX ? CASE nesting overf low>
 $PRNST (\$@.PNST,<CASE>)
 $`.PNST=$.PNST+1
$.CNST==$.CNST+1
 $CASEINITIAL \<$.CNST>
REMARKGuQ Gu@Q Gu`Q  GupQ GvQ Gv0Q @Gw Q G2,W _a>
 IFE FTO`PS20,<
	SKPINL		` 		
	  JFCL
 >
`@ IFN FTOPS20,<
	``MOVEI	T1,.PRIOU		a
	RFMOD%				;[33a 5] ;  ..
	TXZE	Ta@2,TT%OSP		
	SFMOa`D%				;[335] ;  ..
 >
35] ;  .G79  @G79` `G79r  G7;  G7; `G7;@ @G8-[ZP'pG>%|SP!G>ai8Q G>akP G>ak4Q  G>al:Q G>dP G>dqP G>dXQP G>dj6P G>eJ:P G>fX9P G>fY1P G>n9 b!>
	JSP	P4,@.CMPAR
SP	P4,G?T  REMARKGO%;P GWMYP G[$) @G[$) `G[$HW G[$HZ  I$@  I%|SP I%|SP'zI]YP 'I]YP Ii9P II7P J:

,ZP!J:f8{P J:l;P"J:n9:P#J;*:P$KN@ K@ KNp  K3P AA
 $.PNST=a$.PNST-1
 $PRNST (\$.PNST,<ELSE>) 
 $.PNST=$.PNST+@1
 IFN ..T..&7,<`
  $.THN==$.THN+1
  $LABEL T,\<$ .INST>,\<$.THN>
@  $THNUPDATE \<$.`INST>
 >
REMARKST>
 >
REMARKK:$  !@d
 IF2,<	ZAZ==1
  REPEAT <$`.LAB&17>,<
   $REMOVE	%,\<$.NST>, \<$.ORG+ZZ>
   Z@Z==ZZ+1
  >
>`
 $UPDATE \<$.NST	>
 $.LAB==$.LAB_	 -4
 ..R..==..R..	@_-3
 IFN ..E..&7	`,<
  $LABEL E,\<
$.NST>,\<$.END+1>
 
 >
 ..E..==..E
@.._-3
 IFL $.NST
`,<PRINTX ? BEGIN-END nesting under flow>
 $.PNST=$.@PNST-1
 $PRNST (`\$.PNST,<ENDB>)


 $.NST==$.NST-1


  IFGE $.NST,<
  

@$REINIT \<$.NST>
 >
%\<$.NST>HaDF
	$PURGE
	END
	$PURGE

0 aAr
 $.CASE==$.CASE+1
 $LABE L C,\<$.CNST>,\<$@.CASE>
 IF2,<$RE`MOVE C,\<$.CNST>,\<$.CASE>>
 $CAS EUPDATE \<$.CNST>@
 IFL $.CNST,<PR`INTX ? CASE nesting underflow>
 $ .PNST=$.PNST-1
 @$PRNST (\$.PNST,<`ESAC>)
 $.CNST==$.CNST-1
$CASEI NITIAL \<$.CNST>
REMARK$.CNST>L@ L:(`P L:|@P L:<P L:<:P L:=}P L;P L;:P L;}P MLu =LJRST	.+2MI7P M$ !A@
 IFN ..FA..&7,<
  $.IF==$`.IF+1
  $LABEL F,\<$.INST>,\<$.IF >
  $IFUPDATE \<@$.INST>
 >
 ..F`..==..F.._-3
 ..T..==..T.._-3
 I FL $.INST,<PRINTX@ ? IF nesting und`erflow>
 $.PNST=$.PNST-1
 $PRNST  (\$.PNST,<FI>)
@ $.INST==$.INST-1`
IFGE $.INST,<
  $IFINITIAL \<$.INST>
>AL\<$M$tQMM$t)IQpM$tLuQMM$t[zQMM$uRQM9M$u]QM@M$u}:QM$v);QMM$v+9QPM$v=QMM$vK8Q  M$v[VQ M$vh9Q @M&d)Ip M&d+p M&d,p M&d,p M&d-3p M&d;Zp M&d[sp M&dh1p M&dkp M&e[p M&e)Wp M&e8zp M&eh6p M&f	wp M&f

}P MR5|ZP MR](P MR]D(P MRw,rP MR~

hP MR~

iP MS*7P MS5PP O iA>LA::	BLOCK	BA::	BLOCKO

@>1B0OL jA>TA::!	BLOCK	BA::!	BLOCQfIB <Q&ex`P!Q&~)`P!S 
aIFG-$.IRINTX ? IF nesting too dee p>
 $PRNST (\$.P@NST,<IF>)
 $.PNS`T=$.PNST+1
 $.INST==$.INST+1
 .. F..==..F.._3
 ..@T..==..T.._3
 $I`FINITIAL \<$.INST>
REMARK$.INSTSN|` dI>$IRP <A>,<IFIW	A> <A>,<S`tP S`tP S`tP S`t4yP S`t4zP S`t<pP S`t<qP S`t<rP S`t<yP S`t=0P S`t=1P 	S`t=2P S`t=9P S`tlP 
S`tlP S`tyYP S`tyZP 

S`ulpP S`ulqP 	S`ulrP S`ulyP S`um0P S`um1P 
S`um2P S`um9P Sbmy I1=?
XX	(ALS,IQC)			;ALPHANUMERIIpC LOGICAL SIXBIT
XX	(ALA,C)			;ALJ0PHANUMERIC LOGICAJPL ASCII
XX	(ALE,JpC)			;ALPHANUMERIKC LOGICAL EBCDIC
XX	(NSS,A)			;NUKPMERIC SIGNED SIXBKpIT
XX	(NSA,A)			L;NUMERIC SIGNED AL0SCII
XX	(NSE,A)	LP		;NUMERIC SIGNEDLp EBCDIC
XX	(NUS,MA)			;NUMERIC UNSM0IGNED SIXBIT
XX	MP(NUA,A)			;NUMERIMpC UNSIGNED ASCII
XX	(NUE,A)			;NUN0MERIC UNSIGNED EBNPCDIC
XX	(CSS,N)	Np		;COMPUTATIONAL OSIGNED SIXBIT
XXO0	(CSA,N)			;COMPUOPTATIONAL SIGNED AOpSCII
XX	(CSE,N)	P		;COMPUTATIONAL P0SIGNED EBCDIC
XXPP	(CUS,N)			;COMPUPpTATIONAL UNSIGNEDQ SIXBIT
XX	(CUA,Q0N)			;COMPUTATIONQPAL UNSIGNED ASCIIQp
XX	(CUE,N)			;CROMPUTATIONAL UNSIR0GNED EBCDIC
XX	(RPC3S,A)			;COMP-3 RpSIGNED
XX	(C3U,AS)			;COMP-3 UNSIGS0NED
XX	(CSB,N)		SP	;COMPUTATINAL SISpGNED BINARY
XX	(TCUB,N)			;COMPUTAT0TIONAL UNSIGNED BTPINARY
XX	(NSB,N)Tp			;[330] NONCOMPU SIGNED BINARY
XU0X	(NUB,N)			;[330UP] NONCOMP UNSIGNEUpD BINARY
XX	(FPAV,A)			;FLOATING PV0OINT ASCII
XX	(FVPPU,A)			;[511] UNVpSIGNED FLOATING PWOINT ASCII
XX	(GW0FS,A)			;GfloatinWPg SIGNED
XX	(GFUWp,A)			;Gfloating UNSIGNED
ting T@ Wt<P WO  ~?t
	A.L==0~!
 IRP B,<
	A.~@L==A.L+1
	AB==A.L
 >
AB=W$t<P W0t<P Wd,hWQ Wd,h]Q Wd,iQ @Wd,isQ Wd,m7Q  Wdtk:p WduTp WduI7P Wdu[rp Wdunp Wdu|Rp Wdv:=p X@ YkP YYP YI1P YVP Y{4P Y=P Y i>HA:	BLOCK	BA:	BLOCK	Y!k4Q Y!lQ Y!lsQ Y8wP Y?=KqP Y?=|SP YL j>PA:!	BLOCK	BA:!	BLOCKZ:5H3Q [G

}P 2[>!kP [>$qP [>$*7P [>$XQP [>&:<P [>v): <[?6; @[?6;` [?6<U `[?6=  [`uXP 2[`u}:P 
[`vK8P  ]>~ `]J,<`P t4tI;p 4uI7P 4unp `@ `D@ `H@ `L@ `P@ ad[@P  an:`P a@P a+= 5a?:  k>X<^L1-^L<A>><^L1-^L<AaJ|92 @$
 $PRNST !(\$.PNST,<PROCEDU@RE B>)
 IRP B,`<B:>
 IFE <<A>-<PUSHJ	P>>,<..R. .==..R..&<^-7>+1>@ 
 IFE <<A>-<JS`P	P4>>,<..R..==..R..&<^-7>+2> 
 I FE <<A>-<JSP	T4>@>,<..R..==..R..&<^-7>+3> 
R..&<d@ e

t;Zp e

u9<p e  ,~e&:x Z!=RJRST CPOPJ1JRST CPOPJe&\W @6
 IFE ..R!..&7,<PRINTX ? Il@legal RETURN code`>
 IFE ..R..&7-1,<POPJ	P,>
 IFE  ..R..&7-2,<JRST	(@P4)>		
 IFE ..R.`.&7-3,<JRST	(T4)>		
<JRST	(T4)>e4tQ e4tqQ @e4t*7Q e4t;vQ e4tXQQ e4tkyQ e4tlQ e4tyVQ  e4um6Q e4v1Q @e4v9wQ  e4v:<Q  e4v[YQ e7j<P e7jyP e7j|P e7kP e7lVP e7lxP e7lzP e8thqp e8ti p e8tj p e8uI7P e8uLyp e8v)1p e8v-7p e8v98p f@ f:5H3Q @f:ej`P f:f8{P g=Y7 g>D
 IFIDN <g!A><IMPURE>,<.PSEg@CT DATA,DATORG>
g` IFIDN <A><LPUREh>,<.PSECT CODE,COh DORG>
 IFIDN <Ah@><HPURE>,<.PSECT CODE,CODORG>
 g2N= @g4,^Q g4.)Q g4.-|Q g4.|@Q g?I3 Y=G			
  OPDXqEF A[B]				
  .NODDT A				
gR<}P  gWkP gWP gWh:P gWSP gWkwP gWx9P h:8`P h:,(`P h;P h@@ hD@ hH@ hL@ hP@ i"-` !A
 $.PNST=A$.PNST-1
 $PRNST` (\$.PNST,<THEN>)
 $.PNST=$.PNST+1
REMARK.PNST+i@,:P i@,;vP i@,KyP i@,KzP i@-ZP i@-HVP i@-J:P i@-KsP i@-xzP i@.)0P [email protected]P igP \!=l
 IFE FTO\APS20,<
	OUTSTR	[\`ASCIZ \A\]
 >
] IFN FTOPS20,<
	] HRROI	T1,[ASCIZ \]@A\]
	PSOUT%				
 >
SOUT%				igX` ^=z
 IFE FTO^!PS20,<
	OUTCHR	^@A
 >
 IFN FTOPS^`20,<
  IFN <A>-_T1,<
	HRRZ	T1,A_ 
  >
	PBOUT%				

 >
UT%			j@j:@Pk;%AvREMARK(`l|ZQ'o"MI  AtREMARK[Rp:Jsp p:$[@p p:&htp p:5I`p p:5Ivp p:Tk@p p:dVp p:w
SALL
SEohARCH	MACTEN		;***p YES, MUST REALLYp( BE SEARCHED ON BpHOTH SYSTEMS ***
phIFE FTOPS20,<SEARqCH	UUOSYM,SCNMAC>q(
IFN FTOPS20,<SEqHARCH	MONSYM,MACSYqhM,RMSINT>

.DIRrECTIVE	FLBLST, SFr(COND
IFN FTKI10,rH<.DIRECTIVE	KI10>
e8v98pq` X1=C
IX.A==ZZ
ZZ==ZZ+1
=Zt:

Ipt:w [=^		
  SETZ[!M B				
  MOVE [@A,[<B>,,<B+1>][`		
  BLT A,<B>+<C>-1		
<B>:Yh@ :Yh@ :Yi@ :Yi@ :Yj@ :Yj@ :Yk@ :Yk@ :Yl@ :Yl@ :h@ :h@ :i@ :i@ :j@ :j@ :k@ :k@ :l@ :l@ :r@ :lzA :-i@ :-i@ :-i@ :-i	@ :-i	@ :-i
@ :-i
@ :-i@ :-i@ :-i

@ :-i

@ :L`@ :Ld@ :Ld @ :Ld@@ :Ld`@ :Le@ :Le @ :Le@@ :Le`@ :Lf@ :Lf @ :MlzA :d@@ :v=A :~)`@ :~)h@ :~)h@ :~)i@ :~)i@ :~)j@ :~)j@ :~)k@ :~)k@ :~)l@ :~)l@ ;lzA ;%@@ ;%H@ ;%H@ ;%I@ ;%I@ ;%J@ ;%J@ ;%K@ ;%K@ ;%L@ ;%L@ D R!E$REFERENCERA %,\<$.NST>,\<$.ORG+1>NST>,\<$.OD( PaE
      $LQABEL %,\<$.NST>,\Q <$.ORG+1>
      Q@IFG 1-$.LAB&17,<$Q`.LAB==$.LAB&<-1_4>+1>
    <-1_4E fAF6$REFERENCEfa %,\<$.NST>,\<$.ORG+10>ST>,\<$.OEP eF0
      $Le!ABEL %,\<$.NST>,\e@<$.ORG+10>
     e` IFG 10-$.LAB&17,f<$.LAB==$.LAB&<-1_4>+10>
    -1H TAE&$REFERENCETa %,\<$.NST>,\<$.ORG+2>NST>,\<$.OH( SE 
      $LS!ABEL %,\<$.NST>,\S@<$.ORG+2>
      S`IFG 2-$.LAB&17,<$T.LAB==$.LAB&<-1_4>+2>
    <-1_4L VaE8$REFERENCEW %,\<$.NST>,\<$.ORG+3>NST>,\<$.OL( U!E2
      $LUAABEL %,\<$.NST>,\U`<$.ORG+3>
      VIFG 3-$.LAB&17,<$V .LAB==$.LAB&<-1_4>+3>
    <-1_4P YEJ$REFERENCEY! %,\<$.NST>,\<$.ORG+4>NST>,\<$.OP( WAED
      $LWaABEL %,\<$.NST>,\X<$.ORG+4>
      X IFG 4-$.LAB&17,<$[email protected]==$.LAB&<-1_4>+4>
    <-1_4T [!E\$REFERENCE[A %,\<$.NST>,\<$.ORG+5>NST>,\<$.OT( YaEV
      $LZABEL %,\<$.NST>,\Z <$.ORG+5>
      Z@IFG 5-$.LAB&17,<$Z`.LAB==$.LAB&<-1_4>+5>
    <-1_4X ]AEn$REFERENCE]a %,\<$.NST>,\<$.ORG+6>NST>,\<$.OX( \Eh
      $L\!ABEL %,\<$.NST>,\\@<$.ORG+6>
      \`IFG 6-$.LAB&17,<$].LAB==$.LAB&<-1_4>+6>
    <-1_4\ _aF$REFERENCE` %,\<$.NST>,\<$.ORG+7>NST>,\<$.O\( ^!Ez
      $L^AABEL %,\<$.NST>,\^`<$.ORG+7>
      _IFG 7-$.LAB&17,<$_ .LAB==$.LAB&<-1_4>+7>
    <-1_4` bF$REFERENCEb! %,\<$.NST>,\<$.ORG+8>NST>,\<$.O`( `AF


      $L`aABEL %,\<$.NST>,\a<$.ORG+8>
      a IFG 8-$.LAB&17,<$[email protected]==$.LAB&<-1_4>+8>
    <-1_4d d!F$$REFERENCEdA %,\<$.NST>,\<$.ORG+9>NST>,\<$.Od( baF
      $LcABEL %,\<$.NST>,\c <$.ORG+9>
      c@IFG 9-$.LAB&17,<$c`.LAB==$.LAB&<-1_4>+9>
    <-1_4	 ;CX$BEG \<$.NST>$BEG \<$.N	
,p CZ$.BEGA	

 >aCx$REFERENCE? C,\<$.CNST>,\<$.CASE+1>ST>,\<$.	94 kAF\
    $.CASE=$.CASA
  A	9: lFb
    $.CAl!SA=$.CASA+1
  A=$.CASA+1
  	D@ |A?h
 IFDIF <|aA><T1>,<
	MOVEI}	T1,A
 >
	PUSHJ	P,%TCHAR
USH	I@ {!?`
 IFN ...{ASQB,<
	PUSHJ	P,%{`TRBRK
	...SQB==0|
 >
	PUSHJ	P,%TCRLF
USHJ	P,%T	LP }A?l
	JRST	DIE

	JRST	DI	 ;aCb$REFERENCE< E,\<$.NST>,\<$.E< ND+1>
 ..E..==..E..!1
.E..==..	+y kA?

	...SQB=ka=0
E$$B:	MOVE	Tl1,['SRT',,'B']
l  IFB <D>,<
  IFl@DIF <A><[>,<
	Ml`OVE	T2,["A",,[ASmCIZ	\C
\]]
  >m 
  IFIDN <A><[>m@,<
	MOVE	T2,["Am`",,[ASCIZ \C]
\n]]
  >
 >
 IFNn B <D>,<
	MOVE	Tn@2,["A",,[ASCIZ	\n`C\]]
  IFIDN <oA><[>,<
	...SQB=o =1
  >
 >
	PUSo@HJ	P,%ERMSG
 IFNo`B <E>,<
	JRST	pE			
 >
 IFB <p E>,<
  IFB <D>,p@<
   IFIDN <A><p`?>,<
  	JRST	DIEq
   >
  >
 >
   >
  >
 >
	 <aCj$REFERENCE= F,\<$.INST>,\<$.= IF+1>
 ..F..==..F..!1
.F..==..	&5T iAFN
    $.IFia=$.IFA
    $.THN=$.THNA
  TH	&6\ j!FR
    $.IFA=$.IFA+1
  	&u OaE
    $.ORPG=$.ORGA
    $.P END=$.ENDA
    $.BEGA=.
    	2

)6 laFp
    .XCRmEF				
    IF1,<m PURGE ABC>
  m@  ABC:!
    .m`XCREF ABC			
n    .CREF				
    .CREF				
  	6~)  qA?V
 IFIDN <qaA><OCTAL>,<
  IrFDIF <B><T1>,<
r 	MOVE	T1,B
r>
	PUSHJ	P,%TOCTW
 >
 IFIDN <A><sDECIMAL>,<
  IFDs IF <B><T1>,<
	Ms@OVE	T1,B
  >
	s`PUSHJ	P,%TDECW
 t>
 IFIDN <A><TEt XT>,<
  IFDIF <t@B><T1>,<
	MOVEI	t`T1,[ASCIZ \B\]
u  >
	PUSHJ	P,%TSu TRG
 >
 IFIDN <u@A><SIXBIT>,<
vu`IFDIF <B><T1>,<
	MOVE	T1,B
  >v 
	PUSHJ	P,%TSIXNv@
 >
 IFIDN <A>v`<ASCII>,<
  IFDIwF <B><T1>,<
	MOw VEI	T1,B
  >
	w@PUSHJ	P,%TSTRG
 w`>
 IFIDN <A><FIxLESPEC>,<
  IFDIx F <B><T2>,<
	HRx@RZ	T2,B			
x>
yIFE FTOPS20,<
	MOVEI	T1,X.OPN-y X.RIB(T2)	
  >
y@	PUSHJ	P,%TOLEB
y` >
 IFIDN <A><CzORE>,<
  IFDIF <z B><T1>,<
	MOVE	z@T1,B
  >
	PUSHz`J	P,%TCORW
 >
	P,%TCORW
 >
	:.= LaDz
    .XCRMEF				
    $.ORGM A=0
    $.ENDAM@=0
    $.BEGA=0M`
    $.IFA=0
 N   $.THNA=0
   N  $.CASA=0		
   N@ .XCREF $.ORGA,$N`.ENDA,$.BEGA,$.OIFA,$.THNA,$.CAO SA ;[373]
    .CREF				
    .	C: aB			
  IFN  <<A>+1>,<PRINTX   ? Nesting level  @mismatch, value = A>
, value =	Clz AzREMARK}	C.)r ?AD@
	$PRCHK	?a\$.PNST			
	PURG@E	...SQB,..R..,..@ E..,..F..,..T..,.@@.C..,ZZ
	PURGE	$@`.LAB,$.NST,$.END,A$.IF,$.THN,$.INSTA ,$.ORG,$.CASE,$.CA@NST,$.PNST
	PURGA`E	$.BEG0,$.BEG1,$B.BEG2,$.BEG3,$.BEB G4,$.BEG5,$.BEG6,B@$.BEG7,$.BEG8,$.BB`EG9
	PURGE	$.CASC0,$.CAS1,$.CAS2,$C .CAS3,$.CAS4,$.CAC@S5,$.CAS6,$.CAS7,C`$.CAS8,$.CAS9
	PDURGE	$.END0,$.ENDD 1,$.END2,$.END3,$[email protected],$.END5,$.END`D6,$.END7,$.END8,E$.END9
	PURGE	$.E IF0,$.IF1,$.IF2,$[email protected],$.IF4,$.IF5,E`$.IF6,$.IF7,$.IF8F,$.IF9
	PURGE	$.F ORG0,$.ORG1,$.ORGF@2,$.ORG3,$.ORG4,$F`.ORG5,$.ORG6,$.ORGG7,$.ORG8,$.ORG9
	PURGE	$.THN0,$.G@THN1,$.THN2,$.THNG`3,$.THN4,$.THN5,$H.THN6,$.THN7,$.THN8,$.THN9
$.TH	J,i9 FrABC92	J-T g!F<
    $.ORgAG=$.ORGA
    $.END=$.ENDA
@	J-[{ 
 PURGE ABC
 PURGE 	P =aCr$REFERENCE> T,\<$.INST>,\<$.> THN+1>
 ..T..==..T..!1
.T..==.	R-\ I!Db
    .XCRIAEF				
    DEFINI`E $A%<
      $LJABEL %,\<$.NST>,\J <$.ORG+A>
     J@ IFG A-$.LAB&17,J`<$.LAB==$.LAB&<-1K_4>+A>
    >
 K    
    DEFINE $K@A<$REFERENCE %,\K`<$.NST>,\<$.ORG+LA>>
    .XCREF $L A%,$A			
    .CREF				
    .	R-\ !CT
  .XCREF!!		

  ..R..=0
!@  ..E..=0
  ..F.!`.=0
  ..T..=0
 " ..C..=0
  $.IF=" 0
  $.THN=0
  $"@.END=0
  $.ORG=0"`		
  $.LAB=0		
#  $.CASE=0		
  $# .NST=-1		
  $.IN#@ST=-1		
  $.CNST#`=-1		
  $.PNST=-$1		

  DEFINE $$ TEMP(N)<
    .XC$@REF				
    DEFI$`NE $'N'%<
      %$LABEL %,\<$.NST>% ,\<$.ORG+N>
    %@  IFG N-$.LAB&17,%`<$.LAB==$.LAB&<-1&_4>+N>
    >
  &   
    DEFINE $'&@N<$REFERENCE %,\<&`$.NST>,\<$.ORG+N>'>
    .XCREF $'N' '%,$'N			
    .C'@REF				
  >

 '` DEFINE $NEST(N)<(
(  .XCREF				
    $.ORG'N=0
 (@   $.END'N=0
   (` $.BEG'N=0
    $).IF'N=0
    $.TH) N'N=0
    $.CAS')@N=0		
    .XCREF)` $.ORG'N,$.END'N,*$.BEG'N,$.IF'N,$.* THN'N,$.CAS'N ;[3*@73]
    .CREF			*`	
  >

+ZZ=0
  REPEAT A,<
 +    ZZ=ZZ+1
    $+@TEMP \ZZ
  >

+`  ZZ=0
  REPEAT ,B,<
    $NEST \, ZZ
    ZZ=ZZ+1
,@  >

  PURGE ZZ,`

  DEFINE $INI-TIAL(N)<
    $.O- RG=$.ORG'N
    $[email protected]=$.END'N
   -` $.BEG'N=.
  >
.
  DEFINE $REINI. T(N)<
    $.ORG=.@$.ORG'N
    $.EN.`D=$.END'N
  >
/
  DEFINE $UPDATE/ (N)<
    $.ORG'N/@=$.ORG'N+$.LAB&17/`
    IFN ..E..&70,<
      $.END'N0 =$.END'N+1
    >0@
  >

  DEFINE0` $IFINITIAL(N)<
1    $.IF=$.IF'N
1     $.THN=$.THN'N1@
  >

  DEFINE1` $IFUPDATE(N)<
 2   $.IF'N=$.IF'N+2 1
  >

2DEFIN2@E $THNUPDATE(N)<
    $.THN'N=$.TH3N'N+1
  >

  D3 EFINE $CASEINITIA3@L(N)<
    $.CASE3`=$.CAS'N
  >

4  DEFINE $CASEUPD4 ATE(N)<
    $.CA4@S'N=$.CAS'N+1
  4`>

  DEFINE $LA5BEL(J,K,L)<
    5 .XCREF				
5` I5@F1,<PURGE J'K'L>
    J'K'L:!
6 6 .XCREF J'K'L			
    .CREF				
 6@ >


  DEFINE 6`$REFERENCE(J,K,L)7<J'K'L>

  .XCR7 EF ..R..,..E..,..7@F..,..T..,..C..,$7`.IF,$.THN,$.END,$8.ORG,$.LAB,$.CASE8 ,$.NST
  .XCREF 8@$.INST,$.CNST,$.P8`NST,$TEMP,$NEST,$9INITIAL,$REINIT,$9 UPDATE,$IFINITIAL9@
  .XCREF $IFUPD9`ATE,$THNUPDATE,$C:ASEINITIAL,$CASEU: PDATE,$LABEL,$REF:@ERENCE
  .CREF
ENCE
  .CREF
	REm8 jaFX
    $.THkNA=$.THNA+1
  A=$.THNA+1
  	WH: hFH
    $.ORh!GA=$.ORGA+$.LABh@&17
    IFN ..E.h`.&7,<
      $.ENiDA=$.ENDA+1
    >
  A+1
  u[ZQ P8v<1P :c@@ :)c@@ :1c@@ ;c@@ ;!c@@ S@P J^P Jh6P >}{woP 
COPYRIGHT (C) 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.