Google
 
Trailing-Edge - PDP-10 Archives - bb-x130a-sb - snup.unv
There are 8 other files named snup.unv in the archive. Click here to see a list.
x,NX@P C4Q 	"8J
	REFCNT:	"X:A		
	REFLST:: 	"xBLOCK A	
	BRKBE	#G:: B
	CHKSUM::	#8 Z
	BRKLST:: BLOCK B	
T:: BLOCJ8@ D@ D:~\Y`('E6uz6`(E@tA xE@tI3Q @E@t{Q E@u]6Q  EJ\)3A  >EJ\)3EJ\;ZP EJ\Lx`(EEJ]LzA  "EJ]LzEJ]X<`(EJ^Z 	J
    IF2 	8<IFE BRPAS2 <
	 	XBRKCNT==0
	 BRPA	xS2=1>>
	IFE BRKC	NT,<
		IFE REFNU	8M,<	
			REFCNT::	XZ 
			REFLST::Z
			>
		ZZ=.
			BRKBEG:: BRKCNT
	8		CHKSUM:: Z
		B	XRKLST::
	>
    	xIFB <C>,<
	A: 	RADIX50 0,A
	  	8 BYTE(9)0(9)0(18)	XB
	    >
    I	xFNB <C>,<
	IF2,	<
	ZZZ==C
	IFL	8 <ZZZ>,<ZZZ==-ZZZ	X>
	IFG <ZZZ-777>	x,<PRINTX ? Offset	 too large for BR	8KPNT macro
		   	X   PRINTX ? -- wi	xth arguments A,	 B,C
							>
		 8    >
	ZZZ==C&7	 X77
	   RADIX50 0	 x,A
	   BYTE(9)0	!(9)ZZZ(18)B
   	!8          >
	BRK	!XCNT=BRKCNT+1
	RE	!xLOC ZZ
	BRKCNT
	RELOC
RKCNT
EKiP EOM[u`(
F@ G"\{`(%G"^=6A  G"^=6G"^HV`(_G7:`(G;4`(<G;4,U`(AG;5M8`(>G>mM8`(G>n>6`(G?P 	`I'Xz`(iIO`(DIO`(eJ 	#xJ
		[ASCIZ/A/]
		[ASCIZK:$86P(iKZr`(DKZ<]`(KbN@ 	`L@ M%@ 	$8J'
		JRST	[	$XOUTSTR [ASCIZ\? 	$xA\]
			 EXIT]
	]
			 EXIT]
	M&d^`(M&eh6`(M&em6`(M&f

`(M&fj6`(>M:%M8`(nM:&j9`(lM?Z:`(*M?[`(+O$`(O%S`(O&)6`(O&>6`(fO&H1 	`ON4@ 	*hKbIRPC A,< 	+
	MOVX	T1,%CNSF	+(A		
	GETTAB	T1,
	  SETZM	T1
	MO	<(VEM	T1,FILPTH+2+A>
,FILPTH+2+ORh6`(WS
e{x`(+SD:`(S8 @S:YS`()S:4:`(*S:6)3`(-S<t[sP  SJe{x`(.Y,uKP Y,uKXP Y>0 	`Y>\[R`(&Y>\\Y`(1Y>^9(`(6Y>^93`(5Y>}=8 @Z:*wP  Z;YWP  [>v)3 	IM
  IRP A	8,<
    IF2,<IFE 	XREPAS2 <
	REFNUM	x==0
	REPAS2==1>>		
	IFE REFNUM,<
		ZZ=.
		REFCNT	X:: REFNUM
		REFL	xST::
	>
	A:RAD	IX50 0,A
	REFNU	8M=REFNUM+1
	RELO	XC ZZ
	REFNUM
	RELOC
>FNUM
	R[?7 ix
	.XCREF
	TEST%%=B
.IFNj8 <TEST%%>,ABSOLUTjXE,<
	.CREF
	MOVjxE	A,[B]
	.XCREkF
>
.IF <TEST%%k8>,ABSOLUTE,<
	TEkXST%%=0
IFE	<<B>kx_-^D18>,<
	TEST%l%=1
	.CREF
	MOVl8EI	A,<B>
	.XCRlXEF
>
IFE	TEST%%lx,<IFE	<<B>_^D18>m,<
	TEST%%=1
	.m8CREF
	MOVSI	A,(mXB)
	.XCREF
>>x
IFE	TEST%%,<IFE	n<<<B>_-^D18>-^O7n877777>,<
	TEST%%nX=1
	.CREF
	HRROnxI	A,<B>
	.XCREoF
>>
IFE	TEST%%o8,<IFE	<<<B>^D18oX>-^O777777B17>,<
	TEST%%=1
	.CREpF
	HRLOI	A,(<Bp8>-^O777777)
	.XCpXREF
>>
IFE	TESTpx%%,<
	.CREF
	MOqVE	A,[B]
	.XCRq8EF
>
>	;[35][32qX] END OF .IF <B>qx,ABSOLUTE
	PURGE	TEST%%
	.CREF[VfHt`(]>>6`(h]>h6`(h]>nHt`(]?$`(x]c&>6`(j_2%Kq`(#_2&>6`(g_2&h6`(g_@(] ~8

	.XCREF
IFN <<A>&^O7777~x77777760>, PRINTX ? A IS NOT AN A8CCUMULATOR

	TEXMP%%=0
IFE	<<B>x_^D18>,<
IFN	<B>,<
	TEMP%%=1
	8.CREF
	C	A,(BX)
	.XCREF
>>
IxFE	<<B>_-^D18>,<
	TEMP%%=1
	.CR8EF
	D	A,<B>
X	.XCREF
>
IFE	TxEMP%%,<
	.CREF
	E	A,[B]
>
	8PURGE	TEMP%%
	.CREF	TEMP%%
	.C_B-` 
_Bt+`(_BtI;`(_W&= 
&`@ `D@ `H@ `L@ `P@ a+= 5a2-`P  d:~\Y`(GdU{Q er`(ye$J9`(Xe$YX`(4e&>6`(^e4;ZA  e4;Ze5LzA  (e5Lze5i;`(e5m6P eMlx`(5edX9  el,U 	&J=
		MOVSI		&8T1,.SORBP
		SNOO	&XP.	T1,
		  JRST		&x[OUTSTR [ASCIZ/? 	'Couldn't remove b	'8reakpoints/]
				'X JRST SNPFAL##]
	ST SNPFAL##]
eiP e&. P eOM[u`(
eb{Z`(ebe{x`(g
e{x`("g$,U`(g%]6`((g%i;`(g%zs`(&g&)3`(%g&>6`(g2,\ 	`

g:}| 	`?g;\Y`(9g;h6`(7gJe{x`((gRN@ 

`gVn>6`(}gfl)3P$gfmI7`(	gfn=`(	hD@ hH@ hL@ hP@ ie@ 	%8J-
		OUTSTR	%X	[ASCIZ\A
\]
	ASCIZ\A
\]
	ibtP (HP
	.XCREF
IFB  <B>,	OP%%T)X	<^O37777777&A>)(,1B<A_-^D30>,TLN)HE,TRNE,TDNE
IFNB)h <B>,	OP%%TX	A,*<B>,TLNE,TRNE,TDNE
	.CREF
,TDibx 0
	.XCREF
IFB <B>, TXO	(<0H^O37777777&A>,1B0h<A_-^D30>)
IFNB1 <B>,<
IFN <<A1(>&^O777777777760>1H, PRINTX ? A IS 1hNOT AN ACCUMULATO2R
IFE	<<<B>_-^D2(18>-^O777777>,<
2H	.CREF
	ORCMI	A2h,<,,-1-<B>>
	.X3CREF>
IFN	<<<B>3(_-^D18>-^O777777>3H,<
	OP%%TX	A,<3hB>,TLO,TRO,TDO
>>	.CREFO,TDO
>icP :(p
	.XCREF
IFB <B>, TXZ	(<:h^O37777777&A>,1B;<A_-^D30>)
IFNB;( <B>,<
IFN <<A;H>&^O777777777760>;h, PRINTX ? A IS <NOT AN ACCUMULATO<(R
IFE	<<<B>_-^D<H18>-^O777777>,<
<h	.CREF
	ANDI	A,=<,,-1-<B>>
	.XC=(REF>
IFN	<<<B>_=H-^D18>-^O777777>,=h<
	OP%%TX	A,<B>>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>k:$,U 	(JM
		MOVSI		(8T1,.SOUBP
		SNOO	(XP.	T1,
		  JRST		(x[OUTSTR [ASCIZ/? 	)Couldn't undefine	)8 breakpoints/]
		)X		 JRST SNPFAL##]
	ST SNPFAL##]kN.J  l;m8P q&;X`(1q_;X`(3t,Q 0uXRQ (uXSQ uXYQ uX\Q  v9HQ hv9IQ pv9IQ xv9JQ v9JQ @ (@ 4@ @@ A@ A@ A@ A @ H@ L@ Q@ Q@ Q@ Q @ T@ \@ S@P *>6@ 'N|HXP N}XP >}{woP