Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/macro11.elib-original
There are no other files named macro11.elib-original in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
l)TE?j,xr>"+)c7nd Start of LSB& Renumber LSB In Buffer& Setup MACRO LibraryRenumber Local Symbol BlockRenumber Region Of LSBs~DIRECTORY~~DOC~ & Find End Of LSB~DOC~ & Find Start of LSB"~DOC~ & Renumber LSB In Buffer~DOC~ & Setup MACRO Library%~DOC~ Renumber Local Symbol Block!~DOC~ Renumber Region Of LSBs~DOC~ ~Filename~~Filename~

~INVERT~$f[BBind128*5, i
$*5jdiA
.*5jdiA
%*5jdiA
0[010<q0*5jdiA%0>
Au026<q0*5jdiA%0>
au026<q0*5jdiA%0>
m.VMACRO Symbol ..D
hxMACRO Symbol ..D
m(m.M& Find Start Of LSB):[0f[VB
fsZ-(q0m(m.M& Find End Of LSB))f[VZ
hm(m.M& Save For Undo)Renumber
fm(m.M& Renumber LSB In Buffer)wj
f[SString.[1
:i* 	[2
qMACRO Symbol ..D[..D
0[0:s.ENABL
<-:s.ENABL;
0f@f2"E
1f:fbLSB"E!<!>'
l0-.u0
<.,q1:fb.DSABL;
fkc0f@f2"E
1f:fbLSB"E!<!>'
l.u00;'l>
0;'>
q1jq0f"L,-q0'
<.,q0:fb:;
0l1a"D!<!>'
fwl
1a-(:)@;>
0,.+1(q1j)Of[SString.[1[5
:i* 	[2
qMACRO Symbol ..D[..D
:i*[3"L'"#:i3:'
z[0
<:s.ENABL.DSABL3f(u5);
q5+3"G
fkc0f@f2"E
1f:fbLSB"L0l.u00;'''
"#0l1a"D'"#
fwl
1a-(:)"E0l.u00;'''l>
q1jq0mf[SString
qMACRO Symbol ..D[..D
10fo..QFirst Local Symbol[0
f("E10')[1
fsBCons[2[3[5[6
j<:s$:;
fkc0f@f0123456789"E
0l\f(u3)"Gq2[..Ozj
5,0iq3,.-1fsWord
q..Ou2]..O'':s$:;>
j<:s$;
fkcw-@f0123456789r
1a-$"N
0a"B
.u50,(\)f2"L
:i*CfsEchoDisp
q5,.+1x6@ftWarning: Undefined symbol 6
Type ^R for recursive edit; Space to continue; Comma to insert
a "~" and continue; Anything else aborts.!''!
2,m.ifiu6
q6-"E:i*CfsEchoDispq5j
[0[1[2[3[4[5[60[..f
]..f]6]5]4]3]2]1]0q5j'
"#q6-,"Eq5ji~.-1,.@v'
"#q6- "L
:i*CfsEchoDispw'
q5j''''':s$;>
j<:s$;
fkcw-@f0123456789r
1a-$"N
0a"B
.u50,(\)f2f(u3)"L
q5,.+1x6ftWarning: Undefined symbol 6

'
"#q5,.kq3*q1+q0\'
'':s$;>
f[BBindfq2/5f(\)"E-diWarning: No'
i local symbolfq2/5-1"Nis'
i renumbered.

:i*CfsEchoDisp
@ft
..O0fsEchoActive
q2fsBKill
	MACRO-Functions for editing MACRO-11 style code& Set me up eC Renumber local symbols in block around point.
Sequentially renumbers local symbols, in the order they are defined.
With numeric argument, use it as the increment for renumbering.
Starting value for local symbols can be set by defining First Local
Symbol.
Renumber can be undone with ^R Extended Command Undo.

Types notification of undefined symbols and awaits an option: ^R enters
a recursive editing level on the local symbol block; Space ignores
the undefined symbol (won't be changed); Comma inserts a tilde ("~")
so the symbol can be found easily, and then does Space; anything else aborts.hC Renumber local symbol blocks from point to mark.
Sequentially renumbers local symbols, in the order they are defined.
With numeric argument, use it as the increment for renumbering.
Starting value for local symbols can be set by defining First Local
Symbol.
Renumber can be undone with ^R Extended Command Undo.

Types notification of undefined symbols and awaits an option: ^R enters
a recursive editing level on the local symbol block; Space ignores
the undefined symbol (won't be changed); Comma inserts a tilde ("~")
so the symbol can be found easily, and then does Space; anything else aborts.mS Finds start of local symbol block around point
Returns <flag>,<addr> where <flag> is negative if block is delimited by
.ENABL LSB and zero or positive otherwise, and <addr> is the address in the
buffer of the start of the block.]S Finds end of local symbol block around point
Numeric arg is negative if block started with explicit .ENABL LSB,
or zero if it started with a label. Returns address of last character to
bother looking at in block.4S Renumbers local symbol block in virtual buffer bounds
Numeric arg is increment for local symbols. Initial local symbol value
is 10$, or is defined by Q$First Local Symbol$.& Setup MACRO Library
Renumber Local Symbol Block
Renumber Region Of LSBs
& Find Start of LSB
& Find End Of LSB
& Renumber LSB In Buffer
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2