Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/stan.elib
There are no other files named stan.elib in the archive.
( W [0 +8+fq(+4)[1
0fo1 0f"g+q1 '
+fq()+4u1
fq1"l 0 '
,q1:m(q1+4(]1]0)) @ A L b Y J c n q u * a ! e / S 9 F @ & Setup STAN Library Double insert switches Insert Switches ^R Insert Switches ~DIRECTORY~ ~DOC~ & Setup STAN Library ~DOC~ Double insert switches ~DOC~ Insert Switches ~DOC~ ^R Insert Switches ~DOC~ ~Filename~ ~Filename~
~INVERT~ STAN1 [0[1[2[3
[4 :i0IFN :i1!
q4"l :i0IFE -q4u4 :i1*'
:i2
q4&1"n :I2 2 1LOTSW'
q4&2"n :I2 2 1GSBSW'
q4&4"n :I2 2 1SCORSW'
q4&8"n :I2 2 1LOTSW'
FQ2 "n1,FQ2:G2U2'
0l q4&1000."n g0 iSTANSW,<
'
fq2"n g0 g2 i,<
'
L fq2"n i>; g0 g2 i
'
q4&1000."n i>; g0 iSTANSW
'
< 0,m(m.m Insert Switches)
,-m(m.m Insert Switches) [0[1[2
FS ^R ARGP&2"n FS ^R ARGu0'
"# 1000.fo..qMacro Switch Defaultu0'
FS EXPT"n w-q0u0'
q0m(m.m Insert Switches) $ 0fo..qSTAN Setup Hookf"n[0m0w' Hacks to go into Stanlib C Insert MACRO assembly switches around current line
Puts IFE's and IFN's around selected code. Accepts bits in
arg as follows: 1 = LOTSW, 2 = GSBSW, 4 = SCORSW,
8=LESSW. 1000 (octal) bit set means also put STANSW around the
whole thing. A negative argument means use IFE, the argument
is then made positive and the bits looked at. Precomma arg
is how many lines to surround with switchesv C insert IFN's and IFE's both
Calls Insert Switches with 0,<our 2nd arg>, then with
<our 1st arg>,-<our 2nd arg>C Insert switches for ^R mode
Explicit argument is flag bits for Insert Switches (q.v.), if
preceeded by ^U then argument is negated. Default arg is
given by qMacro Switch Default, which should contain the
bits for the machine code is normally written for. If no such
variable exists, then you get just STANSW.U S IVORY-Generated Setup -- Calls hook.
This object file was compressed on 7:29pm Sunday, 10 January 1982
by K.KDO on LOTS from the following source libraries:
SX:<K.KDO>STAN.EMACS.9, 01/10/82 19:22:40W Insert Switches
Double insert switches
^R Insert Switches
& Setup STAN Library
\ +8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0 ' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2