Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/billw.elib
There are no other files named billw.elib in the archive.
P W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
A `
< j 7 q | [ #
5 &
Z / 0 7 T A
n P E U ! ] f ~ q P } | ! H j ) k 7 4 A ; J v Q Z X f 1 s { ^ {
Finger Jsys Monitor Mode Position Buffer Print file Run Compiler
STANSW ^R Find~Label ^RFindOLabel2 ^RaMonitor Comment ^R MonitorMode Space ^RrPrevious~NarrowPage ~DIRECTORY~ ~DOC~~&PCreatenBounds ~DOC~~&PDigestify ~DOC~ BillWsmWriteFile ~DOC~SCode table ~DOC~LCrayModeOC~ ^R Find Label2 ~DOC~ ^R Monitor Comment ~DOC~ ^R MonitorMode Space! ~DOC~ ^R Previous Narrow Page
~INVERT~? :I*Cfsechodisplay
M(M.M^R Go to address field)
1M(M.M^R Mark Word)
1a-13"E0A-32"E@FT?No Label
-D''"#
[2.,:X2.[3!*PutintoQ-register!
.,.+2000f :fb 2:"Ew.,.-2000f :fb 2: 2="E@FTFurther
w.+1990,.+7000f :fb 2:"Ew.-1990,.-7000f :fb 2: 2="E@FT.
w.+6990,.+12000f :fb 2:"Ew.-6990,.-12000f :fb 2: 2="E@FT.
w.+11990,.+22000f :fb 2:"Ew.-11990,.-22000f :fb 2: 2="E@FT.
w.+21990,Zf :fb 2:"Ew.-21990,Bf :fb 2: 2="E
:I*Cfsechodisplay@FTNot Found'''''''''''
.-q3"L@FTBackward'
.-Q3"G@FTFoward'
]3]2'
1FSECHOACTIVE6 :I*Cfsechodisplay
M(M.M^R Go to address field)
1M(M.M^R Mark Word)
(1a-13)*(1a-9)*(1a- [)"E(0A-32)*(0a-44)"Ew@FT?No Label
0a-32"E-D'oABORT''
[2.,:X2.[3!*PutintoQ-register!
1f<!DONE!
1:<.,.+2000:fb 2:"Nf;DONE'>
1:<.,.-2000:fb 2: 2="Nf;DONE'>
1:<@FTFurther .+1990,.+7000:fb 2:"Nf;DONE'>
1:<.-1990,.-7000:fb 2: 2="Nf;DONE'>
1:<@FT. .+6990,.+12000:fb 2:"Nf;DONE'>
1:<.-6990,.-12000:fb 2: 2="Nf;DONE'>
1:<@FT. .+11990,.+22000:fb 2:"Nf;DONE'>
1:<.-11990,.-22000:fb 2: 2="Nf;DONE'>
1:<@FT. .+21990,.+45000:fb 2:"Nf;DONE'>
1:<.-21990,.-45000:fb 2: 2="Nf;DONE'>
1:<@FT. .+44990,Z:fb 2:"Nf;DONE'>
1:<.-44990,B:fb 2: 2="Nf;DONE'>
>"E:I*Cfsechodisplay@FTNot Found'
.-q3"L@FTBackwardws:='
.-Q3"G@FTFoward'
]3]2
!ABORT!1FSECHOACTIVE; F[1
q1"L.+q1,Bf u1w'"#
.+q1,Zf *0: u1'
q1+(]1w0)6 f[1
@FT 1M(M.M^R Backward word)
1M(M.M^R Mark word)
q1-4"n
0F[LINES0F[TOP LINEF+
[2.,:X2-1FO..QJSYSFork[3q3"L
@FZSYS:JSYS.EXE 2
M.VJSYSFork'
"#0,q3@FZJSYS 2
'
]3]2ww:FI-32"EFIW'
F+F]TOP LineF]Lines
'"#
[2.,:X2-1FO..QJSYSFork[3q3"L
@FZSYS:JSYS.EXE 2 -JSYS-.TMP.-1;T
M.VJSYSFork'
"#0,q3@FZJSYS 2 -JSYS-.TMP.-1;T
'
]3]2wwM(M.MSelect Buffer)-JSYS-.TMP
1M(M.M^R Visit File)-JSYS-.TMP''
]1r @ft -1FO..QSDDTFork[3q3"L
FZSYS:SDDT.EXEM.VSDDTfork'
"#@ft[DDT Continues]
q3FZ'
]3w:FI-32"EFIW'F+[ qmode[2
@ft[ 2]-1FO..Q 2Fork[3q3"L
FZSYS: 2.EXEM.V 2fork'
"#0,q3FZ'
]3]2F+0 :I*Cfsechodisplay
1,F User: [1
:I*Cfsechodisplay
-1FO..QFind Fork[3q3"L
@FZSYS:FINGER.EXE 1/terse
M.VFind Fork'
"#0,q3@FZF 1/terse'
1FSEchoActive]3]1C qBuffer Filename[1
1,0M(M.M^R Save File)
0fzprint 1
w]1~ .0f[Bothcase
<:sABCDEFGHIJKLMNOPQRSTUVWXYZ;
-c.
sw
:,.@x1
>
hkg1
bj<:s;-di
> F*z/100jA [1
<fiu1q1-27"E0;'i movei C,"q1ii"
@VWq1fsechoout>& -1m(m.m^R narrow bounds to page) [1[2M(M.M^R Narrow Bounds to Region)
bjzM(M.MUntabify)
B+1j.u199u2<.-z;:s;((0a-13)*(0a-10))"N(.-q1)-q2"L.-q1u2q2=''l.u1>
bjz
-q2M(M.M^R Indent Rigidly)
<.-z;
1a"A32u2'"#1a"D32u2'"#1au2''
cq2-13"Nq2-10"E13i'q2i'
>
M(M.M^R Set Bounds Full)
]1]20 31F[:ETMODE
@M(M.MWrite File)
F]:ETMODE@ M(M.MMake Local q-Reg)
M(M.MMake Local q-Reg)
M(M.MMake Local q-Reg),
M(M.MMake Local q-Reg)/
M(M.MMake Local q-Reg)..;
M.M^R MonitorMode SpaceU
M.M^R MonitorMode SpaceU
M.M^R MonitorMode SpaceU,
M.M^R MonitorMode SpaceU/
M.M^R Monitor CommentU..;
:i*MonitorM.LSubMode\ .,.-80@:F;/\
: a-31*(0a-10)"L
-fwf(@fc)w-fwF'
FS^RLAST[1q1-13"nq1I.-1,.@V]1'
K 13fs^RLAST
M(M.M^R MonitorMode Space)
M(M.M^R Indent for Comment) C M.M^R Tab to Tab StopM(M.MMake Local q-Reg) I
0M.LIndent Tabs Mode
35M.LComment Column
:I* : : : : : : : : : : : : : : : : : : : : : : : :M.LTab Stop Definitionsd f-4"EiIFN STANSW,<;;;
>;IFN STANSW
w-l-2c'"#
:[1[2.[3Q1-Q3"GM(M.M^R Exchange Point And Mark)q3[1]3'
q1,q3x2i>;IFE STANSW
wF-16"NiIFN STANSW,<;;;
2>;IFN STANSW
'
q1jiIFE STANSW,<
wF-16"Ns;;; '
]3]2]1'% BJ[s[10[21,F List Name: [N1,F Editor: [E1,F Destination: [D
1,F Volume: [V1,F Issue: [I
:iS
<
.U1S
w1a-13"N-L'
Q1,.FSBOUNDARIESwBJ
M(M.MKeep Lines)Date:Subject:To:From:
BJ:Ssubject:"L1@XS%2'
0,FSZFSBOUNDARIESw
:S;00000000000"EZJ'0L
!DTL!-l1:fb"Ew1KODTL'
LI
------------------------------
.-z;>
IEnd of N Digest
**************************
-------
BJwI
=DELIVERY-OPTIONS:MAIL
_Score.Stanford.EDU.#Internet
N-Request
Score.Stanford.EDU
D
Date: 202021000000.,-1FSFDCONVW-4CWDI 3CI
Subject: N Digest V V # I
From: N Digest < N@Score.Stanford.EDU>
To: N Distribution List: ;
Reply-to: N@Score.Stanford.edu
N Digest 336400000000.,-1FSFDCONV
I Volume V : Issue I
This weeks Editor: E
Today's Topics:
.U1gSQ1JQ2M(M.M^R Center Line)wI
----------------------------------------------------------------------
BJ @M(M.M& Digestify) 2 Looks for the label referenced in this line 2 Looks for the label referenced in this line + & returns MIN(.+ARG,Z) or MAX(.-ARG,B) 0 runs JSYS on the previous or current word runs SDDT in a subfork runs SYS:<modename>.EXE Find a user * print the file in the current bufferK C extracts the terminal symbols from some BNF
Terminal symbols begin with an upper case letter, and end
end with a seperator character (^B in search string). The
rest of the buffer is destroyed. ; takes a percentage of file to position the buffer at % generate code conversion tables# back up a page in narrow mode' expand a digram to make it bigger write a file with defaults, set up for editing DEC standard Macro maybe uppercase macro code4 indent for comment after doing capitaliaztion 0 Set up for editing Cray assembly language . Add a STANSW conditional block to code. 7 & Take a TENEX MAIL FILE and make it into a digest 7 C Take a TENEX MAIL FILE and make it into a digest / ^R Find Label2
^R Find Label
& Create Bounds
Jsys
DDT
Run Compiler
Finger
Print file
Extract Keywords
Position Buffer
Code table
^R Previous Narrow Page
Expand Diagram
BillWs Write File
Monitor Mode
^R MonitorMode Space
^R Monitor Comment
Cray Mode
STANSW
& Digestify
Digestify
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2