Trailing-Edge
-
PDP-10 Archives
-
tops10_tools_bb-fp64b-sb
-
10,7/snup/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