Google
 
Trailing-Edge - PDP-10 Archives - bb-k345a-sb - snup.unv
There are 8 other files named snup.unv in the archive. Click here to see a list.
x,5P@P C4Q +8Bc
	REFCNT:+X:A		
	REFLST:: +xBLOCK A	
	BRKBE,G:: B
	CHKSUM::,8 Z
	BRKLST:: BLOCK B	
T:: BLOCJ8@ D@ D:~\Y`(E@tI3Q @E@u]6Q  EJ\)3A  )EJ\)3EJ\;ZP EJ\Lx`(0EJ]LzA  !EJ]LzEJ]X<`(EJ^Z #BW
    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"^=6A  ~G"^=6G"^HV`(^G7:`(G;4`('G;4,U`(,G;5M8`()G>mM8`(G>n>6`(G?P 	`I'Xz`(RIO`(/IO`(PJ ,xBg
		[ASCIZ/A/]
		[ASCIZK:$86P(RKZr`(/KZ<]`(qKbN@ 	`L@ M%@ -8Bo
		JRST	[-XOUTSTR [ASCIZ\? -xA\]
			 EXIT]
	]
			 EXIT]
	M&d^`(M&eh6`(M&em6`(M&f

`(M&f:`(M:$j6`(=M:%M8`(mM:&j9`(kO$`(
O%S`(O&)6`(pO&>6`(eO&H1 	`ON4@ 3hD*IRPC A,< 4
	MOVX	T1,%CNSF4(A		
	GETTAB	T1,
	  SETZM	T1
	MOE(VEM	T1,FILPTH+2+A>
,FILPTH+2+ORh6`(VS
e{x`(*SD:`(pS8 @S:YS`(S:4:`()S:6)3`(,S<t[sP  SJe{x`(-Y,uKP Y,uKXP Y>0 	`Y>\[R`(Y>\\Y`(Y>^9(`(!Y>^93`(!Y>}=8 @Z:*wP  Z;YWP  [>v)3  B
  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 _(
	.XCREF
	TEST%%=0
IFE	<_H<B>_-^D18>,<
	T_hEST%%=1
	.CREF
`	MOVEI	A,<B>
	`(.XCREF
>
IFE	TE`HST%%,<IFE	<<B>_^`hD18>,<
	TEST%%=1a
	.CREF
	MOVSI	a(A,(B)
	.XCREF
>>
IFE	TEST%%,<ahIFE	<<<B>_-^D18>b-^O777777>,<
	TEb(ST%%=1
	.CREF
	bHHRROI	A,<B>
	.bhXCREF
>>
IFE	TEcST%%,<IFE	<<<B>_c(^D18>-^O777777B17cH>,<
	TEST%%=1
	ch.CREF
	HRLOI	A,d(<B>-^O777777)
d(	.XCREF
>>
IFE	dHTEST%%,<
	.CREF
	MOVE	A,[B]
	e.XCREF
>
	PURGE	TEST%%
	.CREF]>nHt`(

]?$`(w]c&>6`(i_@(] qH,

	.XCREF
IFN <<A>&^O7777r77777760>, PRINTXr( ? A IS NOT AN ArHCCUMULATOR

	TErhMP%%=0
IFE	<<B>s_^D18>,<
IFN	<Bs(>,<
	TEMP%%=1
	sH.CREF
	C	A,(Bsh)
	.XCREF
>>
ItFE	<<B>_-^D18>,<t(
	TEMP%%=1
	.CRtHEF
	D	A,<B>
th	.XCREF
>
IFE	TuEMP%%,<
	.CREF
u(	E	A,[B]
>
	uHPURGE	TEMP%%
	.CREF	TEMP%%
	.C_B-` 
_Bt+`(_BtI;`(_W&= 
&`@ `D@ `H@ `L@ `P@ a+= 5a2-`P  d:~\Y`(2er`(xe$J9`(We$YX`(3e&>6`(]e4;ZA  

e4;Ze4j9`(e5LzA  'e5Lze5m6P eMlx`(4edX9  el,U /C
		MOVSI	/8T1,.SORBP
		SNOO/XP.	T1,
		  JRST	/x[OUTSTR [ASCIZ/? 0Couldn't remove b08reakpoints/]
			0X JRST SNPFAL##]
	ST SNPFAL##]
eiP e&. P eOM[u`(
eb{Z`(ebe{x`(
e{x`(!g$,U`(g&)3`($g&>6`(g2,\ 	`

g:}| 	`?g;\Y`(8g;h6`(6gJe{x`('gRN@ 

`gVn>6`(|gfl)3P$gflkR`(gfmI7`(	gfn=`(hD@ hH@ hL@ hP@ ie@ .8Bu
		OUTSTR.X	[ASCIZ\A
\]
	ASCIZ\A
\]
	ibtP Xi
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>8,1B<A_-^D30>,TLNXE,TRNE,TDNE
IFNBx <B>,	OP%%TX	A,<B>,TLNE,TRNE,TDNE
	.CREF
,TDicP -8	
	.XCREF
IFB <B>, TXZ	(<-x^O37777777&A>,1B.<A_-^D30>)
IFNB.8 <B>,<
IFN <<A.X>&^O777777777760>.x, PRINTX ? A IS /NOT AN ACCUMULATO/8R
IFE	<<<B>_-^D/X18>-^O777777>,<
/x	.CREF
	ANDI	A,0<,,-1-<B>>
	.XC08REF>
IFN	<<<B>_0X-^D18>-^O777777>,0x<
	OP%%TX	A,<B1>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>k:$,U 1C
		MOVSI	18T1,.SOUBP
		SNOO1XP.	T1,
		  JRST	1x[OUTSTR [ASCIZ/? 2Couldn't undefine28 breakpoints/]
	2X		 JRST SNPFAL##]
	ST SNPFAL##]kN.J  q&;X`(0q_;X`(2t,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