Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50455/strmac.unv
There are 2 other files named strmac.unv in the archive. Click here to see a list.
x@P E2X 0[
.S=.
IFPGE	.S-400000,<
	p	RELOC	..
>;END 	IFG
A=.
.K=1
	0IRP	C,<
  C=.+	P.K
  .K=.K+1
>;	pEND IRP
IFNB	<B
>,<
		BLOCK B

0>;END IFNB
IFB	<
PB>,<
		BLOCK 1
p
>;END IFB
..=.
IFGE	.S-400000,<0
		RELOC	.S
>;END IFG
Ge@ P	$XLIST
IFpNB	<B>,<
		HRRI PC,[
  IRP B,<0
		Z B
  >;ENDP IRP
		]
>;END pIFNB
		PUSHJ P,A
LISTGeA 	;
		EXTERN0 A
		PUSHJ P,CAPL.FS##
		[
		Ap
IFNB	<B>,<
  IRP B,<
		B
 0 >;END IRP
>;END IFNB
		]+1
GeA 0	-$XLIST
IFPNB	<B>,<
		HRRIp PC,[
  IRP B,<
		B
  >;END I0RP
		]
>;END IFPNB
		JRST A
LISTGP *x$XLIST
IF+L	.R,<
		JRST $L+8R(\.E)
  IRP	A,+X<
    $DL(\<.E++xA>)
,>;END IRP
>;END IFL
IFGE	,8.R,<
,IFE	.F,<
		JRST $LR(\.E)
    $DL(\.N)
  -  .N=.LBL
    .L-8BL=.LBL+1
  >;EN-XD IFE
  .F=0
  -x.K=-1
  IRP	A,<.
    .K=.K+1
  .8>;END IRP
  IFE	.X.K,<
    $CMP(E,.x.R,A)
		JRST $L/R(\.N)
  >;END I/8FE
  IFG	.K,<
 /X   IRP	A,<
    /x  $CMP(N,.R,A)
0		JRST $LR(\.LBL)08
    >;END IRP
0X		JRST $LR(\.N)
0x    $DL(\.LBL)
 1   .LBL=.LBL+1
 18 >;END IFG
>;END IFGE
LISTGZ3 38'$XLIST
IF3XE	.F,<
		JRST $L3xR(\.E)
  $DL(\.N4)
  .N=.LBL
  .48LBL=.LBL+1
>;END4X IFE
.F=0
		A
		JRST $LR(\.N)
LISTG[W 585$XLIST
IF5XE	.F,<
		JRST $L5xR(\.E)
  $DL(\.N6)
  .N=.LBL
  .68LBL=.LBL+1
>;END6X IFE
.F=0
		A $LR(\.N)
LISTIp #A=BK3P $8
'
		JRST $$XLR(\.LBL)
$DL(\.$xE)
.E=.LBL
.LBL=.LBL+1
K3Xp 88K
		JRST $8XLR(\.E)
IFL	.R,<8x
  $EC
>;END IF9L
IFGE	.R,<
  $98DL(\.N)
>;END IFGE
E2XAK:%@ %8
+
$DL(\.E)
$POP	.E
K:%Kw @


IFB	<A>@8,<
		JRST $LR(\.@XL)
>;END IFB
IF@xNB	<A>,<
		A $ALR(\.L)
>;END IFA8NB
$DL	\<.L+1>
$POP	.L
K:&

S P	
PURGE	.LpBL,.E,.N,.R,.F,.L,..,.K,.S
$END
K:&96 9xW
IFL	.R,<:
  $EC
>;END IF:8L
IFGE	.R,<
  $:XDC(\.N)
>;END IF:xGE
$DL(\.E)
$POP	.R,.N,.E
	YK:&=1 8	c
IF2	,<
X  IFN	.E+.L,<
  x  PRINTX ERROR IN PROGRAM STRUCTUR8E
  >;END IFN
>;END IF2
KbNK ?y
		JRST $LR(\<.L+1>)
	uSu|u "
$XLIST
$P"8USH	.E
.E=.LBL
"X.LBL=.LBL+1
		CA"xIA
		JRST $LR(\.E)
LISTSu} #8

$PUSH	.E#X
.E=.LBL
.LBL=.#xLBL+1
		A $LR(\.E)
S:8 !

$PUSH	.E!8
.E=.LBL
.LBL=.!XLBL+1
		JRST $LR(\.E)
Y> x	s$XLIST
		PUSH P,P
.K=0
I8RP	A,<
  .K=.K+X1
  $VARDEF(\<.Kx+1>,A)
>;END IRP
		EXCH LP,-.K(8P)
		PUSH P,RST.LP##
LISTY>~ ;8_
$PUSH	.L;X
.L=.LBL
.LBL=.;xLBL+2
$DL	\.L
@`H@Y@@ ]FK ?X}
		JRST $LR(\.L)
oP `@ `D@ `H@ `L@ `P@ a

@ aJ|p p		
IFNB	<C

>,<
  BLK C
>;

0END IFNB
IFNB	<

PD>,<
 BLK	D,4

p
>;END IFNB
IFNB>,<
0LBLK	PD
>;END IFNB
DEFINE	$END<END 
A:
$XLIST
		TDZA T1,T1
		0MOVEI T1,1
IFNB	P<C>,<
		MOVEM Tp1,C
>;END IFNB
IFNB	<D>,<
		M0OVEM 11,D
		MOVPEM  0,D+1
		MOVpEM 17,D+2
		MOVEM  7,D+3
>;END0 IFNB
IFNB	<B>,P<
		MOVE P,[IOWDp B,PDL]
>;END IFNB
		SETZ PC,
LISTd@@ dD@ dH@ dL@ dP@ e&\W ,~gdXz %x
S$XLIST
$P&USH	.E,.N,.R
IFN&8B	<C>,<
  .E=.L&XBL+1
  .N=C
  &x.R=-1
  .LBL=.LB'L+C+2
		JUMPLE '8A,$LR(\<.E-1>)
'X		CAILE A,C
		'xJRST $LR(\<.E-1>)(
		JRST @.(A)
(8  REPEAT	C,<
  (X  .E=.E+1
		$LR((x\.E)
  >;END REP)EAT
  .E=.E-C
)8>;END IFNB
IFB	<)XC>,<
).E=.LBL
  .N=.LBL+1
  .*R=A
  .LBL=.LBL*8+2
  .F=1
>;END IFB
LISTg/lZA  g/lZgJ.M9`+	Wg/lZgSG p?
IFIDN	<A><HGHSEG>,<
  .0TEXT	"/SEARCH RELP:STRSUB"
>;END IpFIDN
IFDIF	<A><HGHSEG>,<
  .TEX0T	"/SEARCH/SEGMENPT:LOW REL:STRSUB"p
>;END IFDIF
IF1	,<DEFINE $END<E0ND>>
.DIRECT	.XTPABM
.LBL=1
.E=0p
.N=0
.R=0
.F=0
.L=0
..=0
gV  p	Q
A:		ENTRY A
$XLIST
IF0NB	<B>,<
  .K=0P
  IRP	B,<
p $DEFARG(B,\.K)
    .K=.K+1
  >0;END IRP
		PUSH PP,PC
		HRL PC,P
		PUSH P,RST.PC##
>;END IFNB
LISThD@ hH@ hL@ hP@ k;% >Xu
		A $LR(\<.L+1>)
	Sk;% =xq$XLIST
		>CAIA
		JRST $LR(\<.L+1>)
LISTo"MI  <xk$XLIST
		=A .+2
		JRST $L=8R(\<.L+1>)
LIST
-g/lZA 	Wo"MI9 <8c
		JRST $LR(\<.L+1>)
]	n 1x
IFE	<-1B217&C>,<
		CAIA28 B,C
>;END IFE2X
IFN	<-1B17&C>,2x<
		CAMA B,[C]
>;END IFN
	  X
IFNDEF $LA,<$LA:>	,h9 P	U
DEFINE A<@B(PC)>
	` 	$LA:	 7?
$DC(\<.E78-1>)
REPEAT	.N,<7X
  .E=.E+1
  $D7xC(\.E)
>;END REPEAT
.E=.E-.N
	3 
$LA	Z) x	w
$VARDF2(A,B)
	Z) 8	}
DEFINE	XB<A(LP)>
		PUSH P,C
	bez	 BS@P >}{woP