Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 5,17/snup.unv
There are 8 other files named snup.unv in the archive. Click here to see a list.
x,Ra@P C4Q 
8xSO
	REFCNT:
9:A		
	REFLST:: 
98BLOCK A	
	BRKBE
9XG:: B
	CHKSUM::
9x Z
	BRKLST:: BLOCK B	
T:: BLOCJ8@ D@ D:~\Y`(HE6uz6`(6E@tA xE@tI3Q @E@t{Q E@u]6Q  EJ\)3A  [EJ\)3EJ\;ZP EJ\Lx`(]EJ]LzA  "EJ]LzEJ]X<`(EJ^Z 
0XSC
    IF2 
0x<IFE BRPAS2 <
	 
1BRKCNT==0
	 BRPA
18S2=1>>
	IFE BRKC
1XNT,<
		IFE REFNU
1xM,<	
			REFCNT::
2Z 
			REFLST::Z
28
			>
		ZZ=.
		
2XBRKBEG:: BRKCNT

2x		CHKSUM:: Z
		B
3RKLST::
	>
    
38IFB <C>,<
	A: 
3XRADIX50 0,A
	  
3x BYTE(9)0(9)0(18)
4B
	    >
    I
48FNB <C>,<
	IF2,
4X<
	ZZZ==C
	IFL
4x <ZZZ>,<ZZZ==-ZZZ
5>
	IFG <ZZZ-777>
58,<PRINTX ? Offset
5X too large for BR
5xKPNT macro
		   
6   PRINTX ? -- wi
68th arguments A,
6XB,C
							>
	
6x    >
	ZZZ==C&7
777
	   RADIX50 0
78,A
	   BYTE(9)0
7X(9)ZZZ(18)B
   
7x          >
	BRK
8CNT=BRKCNT+1
	RE
88LOC ZZ
	BRKCNT
	RELOC
RKCNT
EKiP EOM[u`(
F@ G"\{`(=G"^=6A  G"^=6G"^HV`(hG7:`(G;4`(TG;4,U`(ZG;5M8`(VG>mM8`(G>n>6`(G?P 	`I'Xz`(
IO`(]IO`(}J 
:8SS
		[ASCIZ/A/]
		[ASCIZK:$86P(
KZr`(\KZ<]`(KbN@ 	`L@ M%@ 
:xSa
		JRST	[
;OUTSTR [ASCIZ\? 
;8A\]
IFNB /B/,<
;X
			MOVE T1,B
	
;x		PUSHJ P,SYMOUT
<
>
			 EXIT]
	>
			 EXIT]
	M&d^`(M&eh6`(M&em6`(M&f
`(M&fj6`(GM:%M8`(M:&j9`(M?Z:`(BM?[`(CO$`(O%S`(O&)6`(O&>(`(uO&>)`(|O&>6`(oO&H1 	`O?&>6`(}ON4@ 
BHU IRPC A,< 
T(
	MOVX	T1,%CNSF
THA		
	GETTAB	T1,
B(
	  SETZM	T1
	MO
TVEM	T1,FILPTH+2+A>
,FILPTH+2+ORh6`(`S
e{x`(+SD:`(S8 @S:YS`(JS:4:`(*S:6)3`(-S<t[sP  SJe{x`(.Y,uKP Y,uKXP Y>0 	`Y>\[R`(HY>\\Y`(JY>^9(`(NY>^93`(NY>}=8 @Z:*wP  Z;YWP  [>v)3 
-XS
  IRP A
-x,<
    IF2,<IFE 
.REPAS2 <
	REFNUM
.8==0
	REPAS2==1>>
.X	
	IFE REFNUM,<
.x
		ZZ=.
		REFCNT
/:: REFNUM
		REFL
/8ST::
	>
	A:RAD
/XIX50 0,A
	REFNU
/xM=REFNUM+1
	RELO
0C ZZ
	REFNUM
	RELOC
>FNUM
	R[?7 n 2
	.XCREF
	TEST%%=B
.IFNn` <TEST%%>,ABSOLUToE,<
	.CREF
	MOVo E	A,[B]
	.XCREo@F
>
.IF <TEST%%o`>,ABSOLUTE,<
	TEpST%%=0
IFE	<<B>p _-^D18>,<
	TEST%p@%=1
	.CREF
	MOVp`EI	A,<B>
	.XCRqEF
>
IFE	TEST%%q ,<IFE	<<B>_^D18>q@,<
	TEST%%=1
	.q`CREF
	MOVSI	A,(rB)
	.XCREF
>> 
IFE	TEST%%,<IFE	r@<<<B>_-^D18>-^O7r`77777>,<
	TEST%%s=1
	.CREF
	HRROs I	A,<B>
	.XCREs@F
>>
IFE	TEST%%s`,<IFE	<<<B>^D18t>-^O777777B17>,<
	TEST%%=1
	.CREt@F
	HRLOI	A,(<Bt`>-^O777777)
	.XCuREF
>>
IFE	TESTu %%,<
	.CREF
	MOu@VE	A,[B]
	.XCRu`EF
>
>	;[35][32v] END OF .IF <B>v ,ABSOLUTE
	PURGE	TEST%%
	.CREF[VfHt`(4]>>6`(	]>h6`(
]>nHt`()]?$`(]c&>6`(_2%Kq`(<_2&>6`(_2&h6`(	_@(] `6

	.XCREF
IFN <<A>&^O7777 77777760>, PRINTX@ ? A IS NOT AN A`CCUMULATOR

	TEMP%%=0
IFE	<<B> _^D18>,<
IFN	<B@>,<
	TEMP%%=1
	`.CREF
	C	A,(B)
	.XCREF
>>
I FE	<<B>_-^D18>,<@
	TEMP%%=1
	.CR`EF
	D	A,<B>
	.XCREF
>
IFE	T EMP%%,<
	.CREF
@	E	A,[B]
>
	`PURGE	TEMP%%
	.CREF	TEMP%%
	.C_B-` 
_Bt+`(_BtI;`(_W$: 
"_W&= 
&`@ `D@ `H@ `L@ `P@ a+= 5a2-`P  a>Mm HF<POINT	WIDh(B),A,POS(B)>B),A,POS(B)>a? 	0M<^L<A>+^L	P<-<<A>_<^L<A>>>-1>-1><^L<A>>>d:~\Y`(hdU{Q eh`(er`(eBT`(7e$J9`(ae$YX`(=e&>6`(ge4;ZA  )e4;Ze5LzA  (e5Lze5i;`(0e5m6P eMlx`(>edX9  el,U 
=8Sw
		MOVSI	
=XT1,.SORBP
		SNOO
=xP.	T1,
		  JRST	
>[OUTSTR [ASCIZ/? 
>8Couldn't remove b
>Xreakpoints/]
			
>x JRST SNPFAL##]
	ST SNPFAL##]
eiP e&. P eOM[u`(
eb{Z`(3ebe{x`(*g
e{x`("g$,U`(g%]6`(Ag%i;`(&g%zs`(>g&)3`(%g&>6`(g2,\ 	`
g:}| 	`?g;\Y`(Bg;h6`(@gJe{x`((gRK` 
 gRN@ 
`gVn>6`(gduI7Q gdvN8Q ~gfl)3P$gfmI7`(	gfm}(`(2gfm}:`(1gfn=`(	hD@ hH@ hL@ hP@ ie@ 
<XSg
		OUTSTR
<x	[ASCIZ\A
\]
	ASCIZ\A
\]
	ibtP ,ps
	.XCREF
IFB  <B>,	OP%%T-0X	<^O37777777&A>-P,1B<A_-^D30>,TLN-pE,TRNE,TDNE
IFNB. <B>,	OP%%TX	A,.0<B>,TLNE,TRNE,TDNE
	.CREF
,TDibx 40A
	.XCREF
IFB <B>, TXO	(<4p^O37777777&A>,1B5<A_-^D30>)
IFNB50 <B>,<
IFN <<A5P>&^O777777777760>5p, PRINTX ? A IS 6NOT AN ACCUMULATO60R
IFE	<<<B>_-^D6P18>-^O777777>,<
6p	.CREF
	ORCMI	A7,<,,-1-<B>>
	.X70CREF>
IFN	<<<B>7P_-^D18>-^O777777>7p,<
	OP%%TX	A,<8B>,TLO,TRO,TDO
>>	.CREFO,TDO
>icP >P
	.XCREF
IFB <B>, TXZ	(<?^O37777777&A>,1B?0<A_-^D30>)
IFNB?P <B>,<
IFN <<A?p>&^O777777777760>@, PRINTX ? A IS @0NOT AN ACCUMULATO@PR
IFE	<<<B>_-^D@p18>-^O777777>,<
A	.CREF
	ANDI	A,A0<,,-1-<B>>
	.XCAPREF>
IFN	<<<B>_Ap-^D18>-^O777777>,B<
	OP%%TX	A,<BB0>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>k:$,U 
?8T
		MOVSI	
?XT1,.SOUBP
		SNOO
?xP.	T1,
		  JRST	
@[OUTSTR [ASCIZ/? 
@8Couldn't undefine
@X breakpoints/]
	
@x		 JRST SNPFAL##]
	ST SNPFAL##]kN.J  l;m8P o&  Ph<^L<-<<A>_<^L<A>>>-1>>>q&;X`(:q_;X`(<t,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 OLP OL;ZP ON%2P ON=P ONN8P >}{woP