Google
 
Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 5,17/snup.unv
There are 8 other files named snup.unv in the archive. Click here to see a list.
x,Sa@P C4Q 
dV)
	REFCNT:
d0:A		
	REFLST:: 
dPBLOCK A	
	BRKBE
dpG:: B
	CHKSUM::
e 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 
[pV
    IF2 
\<IFE BRPAS2 <
	 
\0BRKCNT==0
	 BRPA
\PS2=1>>
	IFE BRKC
\pNT,<
		IFE REFNU
]M,<	
			REFCNT::
]0Z 
			REFLST::Z
]P
			>
		ZZ=.
		
]pBRKBEG:: BRKCNT

^		CHKSUM:: Z
		B
^0RKLST::
	>
    
^PIFB <C>,<
	A: 
^pRADIX50 0,A
	  
_ BYTE(9)0(9)0(18)
_0B
	    >
    I
_PFNB <C>,<
	IF2,
_p<
	ZZZ==C
	IFL
` <ZZZ>,<ZZZ==-ZZZ
`0>
	IFG <ZZZ-777>
`P,<PRINTX ? Offset
`p too large for BR
aKPNT macro
		   
a0   PRINTX ? -- wi
aPth arguments A,
apB,C
							>
	
b    >
	ZZZ==C&7
b077
	   RADIX50 0
bP,A
	   BYTE(9)0
bp(9)ZZZ(18)B
   
c          >
	BRK
c0CNT=BRKCNT+1
	RE
cPLOC 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 
ePV-
		[ASCIZ/A/]
		[ASCIZK:$86P(
KZr`(\KZ<]`(KbN@ 	`L@ M%@ 
fV;
		JRST	[
f0OUTSTR [ASCIZ\? 
fPA\]
IFNB /B/,<
fp
			MOVE T1,B
	
g		PUSHJ P,SYMOUT
g0
>
			 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@ 
m`WzIRPC A,< 
@
	MOVX	T1,%CNSF
`A		
	GETTAB	T1,
m@
	  SETZM	T1
	MO
 VEM	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 
XpU[
  IRP A
Y,<
    IF2,<IFE 
Y0REPAS2 <
	REFNUM
YP==0
	REPAS2==1>>
Yp	
	IFE REFNUM,<
Z
		ZZ=.
		REFCNT
Z0:: REFNUM
		REFL
ZPST::
	>
	A:RAD
ZpIX50 0,A
	REFNU
[M=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 
hPVQ
		MOVSI	
hpT1,.SORBP
		SNOO
iP.	T1,
		  JRST	
i0[OUTSTR [ASCIZ/? 
iPCouldn't remove b
ipreakpoints/]
			
j 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@ 
gpVA
		OUTSTR
h	[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 
jPVa
		MOVSI	
jpT1,.SOUBP
		SNOO
kP.	T1,
		  JRST	
k0[OUTSTR [ASCIZ/? 
kPCouldn't undefine
kp breakpoints/]
	
l		 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