Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0130/strmac.unv
There are 2 other files named strmac.unv in the archive. Click here to see a list.
x,5@P E2X @ 4
.S=.
IF`GE	.S-400000,<
		RELOC	..
>;END  IFG
A=.
.K=1
@IRP	C,<
  C=.+`.K
  .K=.K+1
>;END IRP
IFNB	<B >,<
		BLOCK B
@>;END IFNB
IFB	<`B>,<
		BLOCK 1
>;END IFB
..=.
IFGE	.S-400000,<@
		RELOC	.S
>;END IFG
Ge@ 
IFNB	<B>,<
		HRRI  PC,[
  IRP B,<@
		Z B
  >;END` IRP
		]
>;END IFNB
		PUSHJ P,A
LISTGeA  !
		EXTERN@ A
		PUSHJ P,CA`L.FS##
		[
		A
IFNB	<B>,<
   IRP B,<
		B
 @ >;END IRP
>;END IFNB
		]+1
GeA @!$XLIST
IF`NB	<B>,<
		HRRI PC,[
  IRP B,< 
		B
  >;END I@RP
		]
>;END IF`NB
		JRST A
LISTGP &"d$XLIST
IF&(L	.R,<
		JRST $L&HR(\.E)
  IRP	A,&h<
    $DL(\<.E+'A>)
'>;END IRP
>;END IFL
IFGE	'H.R,<
'IFE	.F,<
		JRST $LR(\.E)
    $DL(\.N)
  ((  .N=.LBL
    .L(HBL=.LBL+1
  >;EN(hD IFE
  .F=0
  ).K=-1
  IRP	A,<)(
    .K=.K+1
  )H>;END IRP
  IFE	)h.K,<
    $CMP(E,*.R,A)
		JRST $L*(R(\.N)
  >;END I*HFE
  IFG	.K,<
 *h   IRP	A,<
    +  $CMP(N,.R,A)
+(		JRST $LR(\.LBL)+H
    >;END IRP
+h		JRST $LR(\.N)
,    $DL(\.LBL)
 ,(   .LBL=.LBL+1
 ,H >;END IFG
>;END IFGE
LISTGZ3 .H#$XLIST
IF.hE	.F,<
		JRST $L/R(\.E)
  $DL(\.N/()
  .N=.LBL
  ./HLBL=.LBL+1
>;END/h IFE
.F=0
		A
		JRST $LR(\.N)
LISTG[W 0H#$XLIST
IF0hE	.F,<
		JRST $L1R(\.E)
  $DL(\.N1()
  .N=.LBL
  .1HLBL=.LBL+1
>;END1h IFE
.F=0
		A $LR(\.N)
LISTIp |A=BS@K3P H"
		JRST $hLR(\.LBL)
$DL(\. E)
.E=.LBL
.LBL=.LBL+1
K3Xp 3H#$
		JRST $3hLR(\.E)
IFL	.R,<4
  $EC
>;END IF4(L
IFGE	.R,<
  $4HDL(\.N)
>;END IFGE
K:%@  H"
$DL(\.E)
$POP	.E
K:%Kw ;(#d
IFB	<A>;H,<
		JRST $LR(\.;hL)
>;END IFB
IF<NB	<A>,<
		A $<(LR(\.L)
>;END IF<HNB
$DL	\<.L+1>
$POP	.L
@K:&

S 

` j
PURGE	.L,.R,.F,.L
$END
K:&96 5#0
IFL	.R,<5(
  $EC
>;END IF5HL
IFGE	.R,<
  $5hDC(\.N)
>;END IF6GE
$DL(\.E)
$POP	.R,.N,.E
K:&=1 H!<
IF2	,<
h  IFN	.E+.L,<
    PRINTX ERROR IN( PROGRAM STRUCTURHE
  >;END IFN
>;END IF2
KbNK :(#R
		JRST $LR(\<.L+1>)
 dSu|u (!p$XLIST
$PHUSH	.E
.E=.LBL
h.LBL=.LBL+1
		CAIA
		JRST $LR(\.E)
LISTSu} H!x
$PUSH	.Eh
.E=.LBL
.LBL=.LBL+1
		A $LR(\.E)
S:8 (!f
$PUSH	.EH
.E=.LBL
.LBL=.hLBL+1
		JRST $LR(\.E)
Y> !L$XLIST
		(PUSH P,P
.K=0
IHRP	A,<
  .K=.K+h1
  $VARDEF(\<.K+1>,A)
>;END IR(P
		EXCH LP,-.K(HP)
		PUSH P,RST.LP##
LISTY>~ 6H#8
$PUSH	.L6h
.L=.LBL
.LBL=.7LBL+2
$DL	\.L
Y@@ ]FK :h#V
		JRST $LR(\.L)
!r`@ `D@ `H@ `L@ `P@ a

@ aJ|p  b
IFNB	<C >,<
  BLK C
>;@END IFNB
IFNB	<`D>,<
BLK	D,4
>;END IFNB
IFNB 	<B>,<
  BLK	PD@L,B
>;END IFNB
DEFINE	$END<END 	A>
A:
$XLIST
		TDZA T1,T1
			@MOVEI T1,1
IFNB		`<C>,<
		MOVEM T
1,C
>;END IFNB
 
IFNB	<D>,<
		M
@OVEM 11,D
		MOV
`EM  0,D+1
		MOVEM 17,D+2
		MOV EM  7,D+3
>;END@ IFNB
IFNB	<B>,`<
		MOVE P,[IOWD

 B,PDL]
>;END I

 FNB
		SETZ PC,
LISTd@@ dD@ dH@ dL@ dP@ e&\W ,~gdXz !",$XLIST
$P!(USH	.E,.N,.R
IFN!HB	<C>,<
  .E=.L!hBL+1
  .N=C
  ".R=-1
  .LBL=.LB"(L+C+2
		JUMPLE "HA,$LR(\<.E-1>)
"h		CAILE A,C
		#JRST $LR(\<.E-1>)#(
		JRST @.(A)
#H  REPEAT	C,<
  #h  .E=.E+1
		$LR($\.E)
  >;END REP$(EAT
  .E=.E-C
$H>;END IFNB
IFB	<$hC>,<
%.E=.LBL
  .N=.LBL+1
  .%(R=A
  .LBL=.LBL%H+2
  .F=1
>;END IFB
LISTg/lZA  g/lZgJ.M9`+!0g/lZgSG  
IFIDN	< A><HGHSEG>,<
  .@TEXT	"/SEARCH REL`:STRSUB"
>;END IFIDN
IFDIF	<A>< HGHSEG>,<
  .TEX@T	"/SEARCH/SEGMEN`T:LOW REL:STRSUB"
>;END IFDIF
IF 1	,<DEFINE $END<E@ND>>
.DIRECT	.XT`ABM
.LBL=1
.E=0
.N=0
.R=0
.F=0
.L=0
..=0
gV  !*
A:		ENT RY A
$XLIST
IF@NB	<B>,<
  .K=0`
  IRP	B,<
  $DEFARG(B,\.K)
    .K=.K+1
  >@;END IRP
		PUSH `P,PC
		HRL PC,P
		PUSH P,RST.PC# #
>;END IFNB
LISThD@ hH@ hL@ hP@ k;% 9h#N
		A $LR(\<.L+1>)
|k;% 9#J$XLIST
		9(CAIA
		JRST $LR(\<.L+1>)
LISTzo"MI  8#D$XLIST
		8(A .+2
		JRST $L8HR(\<.L+1>)
LISTo"MI9 7H#<
		JRST $LR(\<.L+1>)
	n -"p
IFE	<-1B-(17&C>,<
		CAIA-H B,C
>;END IFE-h
IFN	<-1B17&C>,.<
		CAMA B,[C]
>;END IFN
	 h!^IFNDEF $LA,<$LA:>	,h9 `!.
DEFINE A<@B(PC)>
	` !X$LA:	 2(#
$DC(\<.E2H-1>)
REPEAT	.N,<2h
  .E=.E+1
  $D3C(\.E)
>;END REPEAT
.E=.E-.N
	3 !Z$LA	Z) !P
$VARDF2(A,B)
	Z) H!V
DEFINE	hB<A(LP)>
		PUSH P,C
	bez	 q2N=S@P >}{woP