PDP-10 Archive: emacs/inter.com from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/inter.com

There is 1 other file named inter.com in the archive. Click here to see a list.

(FILECREATED " 7-Sep-80 23:32:29" ("compiled on " <EMACS>INTER..89) (2 . 2) 
recompiled exprs: nothing)
(FILECREATED " 7-Sep-80 23:32:18" <EMACS>INTER..89 41109 changes to: 
INTER.DIRECTORY previous date: " 6-Sep-80 22:10:20" <EMACS>INTER..88)
,, BINARY
-. (B	,>,> GBx,^/,,~(VARIABLE-VALUE-CELL X . 3)
(VARIABLE-VALUE-CELL Y . 7)
(MKN BHC ENTERF)h`
BINARYMODE BINARY
-.^"(BF,>,>   #+ + +  ABx,^/,+^"+

,   $+ + + Z,~ 8&(KNIL IUNBOX MKN BHC ENTER0)H( 
BYTEPOINTER BINARY
-.Z,<^",>,> &"  ^"/$Bx,^/."(B,>,>^"(BGBx,^/,,< &",DD,~

(VARIABLE-VALUE-CELL BASE . 3)
(VARIABLE-VALUE-CELL OFFSET . 28)
,,
PLUS
(MKNBHCENTERF)
CF BINARY
-. ZB,~(VARIABLE-VALUE-CELL NAME . 4)
CHECK.EMACS
EMACS.GETDEF
(ENTERF)
CFNS BINARY
-.Z,<Zp-,++Zp,<@ +
B,~[pXBp+/,<",~eI(H(VARIABLE-VALUE-CELL LST . 3)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 23)
(VARIABLE-VALUE-CELL L . 15)
DEFINEQ
GETDEF
DUMPX
TERPRI
DOWN
(KNIL BHC ALIST2 SKNLST ENTERF)x(

CHECK.EMACS BINARY
-.Z2B+ ,~(VARIABLE-VALUE-CELL LASTEMACS . 3)
START.EMACS
(KNIL ENTER0)0
CP BINARY
"!-. Z2B+ZXBZ,<,<$Z3B+-,+,<ZDZ3B+3B+-,+,<,<,,<Z	D,<ZD,<[
,B,<ZD,<",~,< D ,~-CfV(VARIABLE-VALUE-CELL X . 38)
(VARIABLE-VALUE-CELL LASTWORD . 9)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 42)
CHECK.EMACS
PRINT
"(SETPROPLIST "
PRIN3
QUOTE
PRIN4
1
SPACES
DUMPX
")

"
DOWN
"No editable property list:  "
ERROR
(ALIST2 LIST2 SKNNM SKLA KT KNIL ENTERF)H`P@8
CREC BINARY
-.Z2B+ZXBZ,<,<$Z3B+,<,<,<,<,<*3B+Z,<,<,<,<,<*B,<",~,<ZD,~A 5@(VARIABLE-VALUE-CELL X . 35)
(VARIABLE-VALUE-CELL LASTWORD . 8)
PRINT
RECLOOK
DUMPX
DOWN
"No editable type definition:  "
ERROR
(KTKNIL ENTERF)p`
 	0
CV BINARY
%$-. Z2B+ZXBZ,<,<$ZB3B+,<ZD,<Z	D,< Z
D Z,<Z

D!ZB!,<ZDZ!ZB!,<"#Z,~Z,<,<$#,~{4-u(0(VARIABLE-VALUE-CELL X . 49)
(VARIABLE-VALUE-CELL LASTWORD . 9)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 43)
CHECK.EMACS
PRINT
GETTOPVAL
NOBIND
%(
PRIN3
RPAQQ
1
SPACES
PRIN4
TERPRI
DUMPX
%)
DOWN
ERROR
(KT KNIL ENTERF)hx
DISPLAY.IN.OTHER.WINDOW BINARY
-.,<ZDZ,<Zp-,++

Zp,<@ +Z,<ZD,~[pXBp+/,<,<,<,<(,~

Q(VARIABLE-VALUE-CELL LIST . 6)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 19)
"M(M.M& Inter Display Text)"
PRIN3
(VARIABLE-VALUE-CELL X . 17)
DOWN1
((DOWN1 T) . 0)
RETEVAL
(KNIL BHC SKNLST ENTERF)pXX
DOWN BINARY
$#-. ,<",<@ ,~,<Z,<,,Z,XBXB`,<,<,<@`+ZZ XBZB!Zw~XB8Z,~2B+Z!XB[`XB,<Z`Z[D"Z3B+ ",~Z`,~H* D&(VARIABLE-VALUE-CELL NEGATE.ARG.FLG . 28)
(VARIABLE-VALUE-CELL RESETVARSLST . 39)
CHECK.EMACS
GCGAG
(VARIABLE-VALUE-CELL OLDVALUE . 11)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 45)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
DOWN1
ERROR
APPLY
ERROR!
(KTCFCONSCONSNLLIST2KNILENTERF)
DOWN1 BINARY
-.0@,~Z,,XB ,<Z3B+	 " $+
Z,,\ BZ,<,<$ZBZ,<,<,<,<,<*XB ZBZ,<,<,<&,~DB( (VARIABLE-VALUE-CELL NEGATE.ARG.FLG . 12)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 23)
(VARIABLE-VALUE-CELL EMACS.ARG.LOC . 10)
(VARIABLE-VALUE-CELL EMACS.ENTRY.HOOK . 27)
(VARIABLE-VALUE-CELL LASTEMACS . 36)
(VARIABLE-VALUE-CELL EMACS.EXIT.HOOK . 38)
(VARIABLE-VALUE-CELL EMACS.RETURN.CASES . 40)
(NIL VARIABLE-VALUE-CELL TEMP . 19)
0
SETFILEPTR
EVAL
START
SUBSYS2
SET.EMACS.VARS
APPLY
(KT GUNBOX FIXT KNIL MKN FGFPTR ENTERF) 0hxPH
DUMP.LINES BINARY
i[f-.[@\ ,~Z-,+ ^Z3B+Z,~Z,,XBZ,<,<_$_,<Z	,<,<`&`XBZ,<Z

,<DaDaZBb2B+^"+,,>Z,>,<bZDc2B+^"+, ,^/,>Z,>,>Z,>Z2B+ ^"+ , ,^/,^/+ + + Z"XB /" $@,<Z%,<Z	Dc2B+.Z',<,<d$c3B+/Zp+8 +/" $@/Z1,<ZDd,<,<e$c3B+8 (.",XB6+(/Z1,<,<e$f,@9^",>Z,> ;&"  ^"/$Bx,^/."(B,>Z,>^"(BGBx,^/,,<Z2,< =&",DfDc2B+M^"+M, ,>Z,>,>Z,>Z&,<ZHDa2B+T^"+T, ,^/,^/ Z+ + + + 2cU*BEM 1RBP(VARIABLE-VALUE-CELL N . 83)
(VARIABLE-VALUE-CELL FANCY.DRIBBLE.FILE . 35)
(VARIABLE-VALUE-CELL EMACS.AC.BLK.START . 143)
(NIL VARIABLE-VALUE-CELL END . 31)
(NIL VARIABLE-VALUE-CELL NUMBER.CHARS . 160)
(NIL VARIABLE-VALUE-CELL NUMBER.CRS . 111)
(NIL VARIABLE-VALUE-CELL I . 162)
DRIBBLEFILE
81
TIMES
2560
MIN
DIFFERENCE
SETFILEPTR
OPNJFN
147904
,,
EQP
0
GET.BYTE
13
2
PLUS
(GUNBOX FIXT ASZ BHC IUNBOX MKN FGFPTR KNIL SKNLST ENTERF)@(&W
hG(98"@
PNX	(G		S	@6h+xH
DUMP.LINES? BINARY
-.Z0B+Z,~B,~ (VARIABLE-VALUE-CELL NUMBER.OF.LINES . 3)
DUMP.LINES
(KNIL ASZ ENTER0)
DUMPX BINARY
*$)-.$ %Z-,+!Z2B%+![-,+![[2B+![Z-,+![Z[-,+![
Z[[2B+!,<&ZD&,<%ZD&,<'ZD&,<&ZD&[&,<(ZD&,~Z,<,<$(,~2
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 64)
CHECK.EMACS
DEFINEQ
%(
PRIN3
% 
PRIN4
DUMPX1
%)
(KNILSKLSTENTERF)8
DUMPX1 BINARY
I7G-.7,<:":,<@; ,~,<:Z,<,,Z,XBXB`,<=,<=,<@>`+.ZZ?XBZB@,<@@ +,,<@Z,<,,Z,XBXB`,<B,<=,<@>`+#ZZ?XB,<CZDC,<@D +!Z,<Z,<ZFEZ,~Zw|XB8Z,~2B+%ZEXB[`XB,<@Z`Z[DFZ$3B++ F,~Z`,~Zw~XB8Z,~2B+0ZEXB([`XB%,<:Z`Z[DFZ/3B+6 F,~Z`,~TVU*AD&b(VARIABLE-VALUE-CELL X . 58)
(VARIABLE-VALUE-CELL DEF . 62)
(VARIABLE-VALUE-CELL LEFT . 60)
(VARIABLE-VALUE-CELL RESETVARSLST . 97)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 27)
(VARIABLE-VALUE-CELL PRETTYPRINTMACROS . 52)
79
LINELENGTH
(VARIABLE-VALUE-CELL OLDVALUE . 34)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 103)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
OUTFILE
(VARIABLE-VALUE-CELL OLDVALUE . 0)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 0)
((DUMMY) . 0)
(((* . GETCOMMENT) (QUOTE . MAKE.QUOTE)) . 0)
APPEND
(VARIABLE-VALUE-CELL PRETTYPRINTMACROS . 0)
(NIL VARIABLE-VALUE-CELL FONTCHANGEFLG . 0)
PRINTDEF
ERROR
APPLY
ERROR!
(KTCFKNILCONSCONSNLLIST2ENTERF).0
E! BINARY
?2=-.(2Z,<ZD5Z-,+,<,<6$63B+@7+ZXB` ,>1,> ` ,^/3b+Z`,~ZB8 
.",XB+
+0@9+0Z,,XB,<Z,,,<ZD93B+%Z,<,<$:B:,A"?,>1,>ZB;.Bx,^/."[A" 0B+&Zp+'ZB;+/Z&,,,<ZD93B+/Z(,<ZD<ZB8+,~,<<"=,~h@D:2 +"l(VARIABLE-VALUE-CELL N . 18)
(VARIABLE-VALUE-CELL FN . 92)
(VARIABLE-VALUE-CELL EMACS.PT . 3)
(VARIABLE-VALUE-CELL EMACS.ZV . 5)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 88)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE.EOF . 84)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 64)
MAP.BYTES
0
GREATERP
NIL
(1 VARIABLE-VALUE-CELL I . 36)
NIL
E.1
(NIL VARIABLE-VALUE-CELL OLDLOC . 90)
LESSP
PEEKC
CHCON1
GETREADTABLE
READC
SETFILEPTR
8
CHARACTER
(IUNBOX FGFPTR MKN BHC KNIL SKNM ENTERF))*(#`@8xP
E. BINARY
-.Z,<ZDZB,~ (VARIABLE-VALUE-CELL FN . 7)
(VARIABLE-VALUE-CELL EMACS.PT . 3)
(VARIABLE-VALUE-CELL EMACS.ZV . 5)
MAP.BYTES
E.1
(ENTERF)
E.1 BINARY
eOb-.+O@R,~@R+Z,<ZDS,~XB,<S,<ZFTZ2BT+Z,XBXB`,<X,<Y,<@Y`+"ZZ[XBZ,<,<$[Zw}XB8Z,~2B+$Z\XB[`XB,<VZ`Z[D\Z$3B+* ],~Z`,~,<]Z3B+13B+1-,+1,<U,<,,<,<,,<,<$^XB,,<^,<$V,<@ +N,<VZ,<,,Z%,XB:XB`,<a,<Y,<@Y`+EZZ[XBZ4,<,<$[Zw}XB8Z,~2B+GZ\XB([`XB;,<VZ`Z[D\ZF3B+M ],~Z`,~,<a"b,~"%cbU@PAL%0
,U

Dc(VARIABLE-VALUE-CELL FN . 19)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 9)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 11)
(VARIABLE-VALUE-CELL LISPXHISTORY . 17)
(VARIABLE-VALUE-CELL RESETVARSLST . 143)
(NIL VARIABLE-VALUE-CELL TEMP . 130)
(T VARIABLE-VALUE-CELL NORMALCOMMENTSFLG . 0)
READ
_
PROMPTCHAR
DEFINEQ
QUOTE
((3 . 4) . 0)
PRINTLEVEL
(VARIABLE-VALUE-CELL OLDVALUE . 113)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 149)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
PRINT
ERROR
APPLY
ERROR!
LISPXEVAL
ENVEVAL
((3 . 4) . 0)
(VARIABLE-VALUE-CELL OLDVALUE . 0)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 0)
((DUMMY) . 0)
8
CHARACTER
(LIST3 SKNNM CF CONS CONSNL KNIL LIST2 KT ENTERF)0x<0L`>`2X)88(1XPC@.( 
EDIT.DRIBBLE.FILE BINARY
"!-.@,~ XB2B+,<",<,<,<&Z,<,<,<,<,<*ZBZ,<,<,<&Z

,<BD,<ZDZ,<ZD,< ZD,<" Z,~&h'FP(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 42)
(VARIABLE-VALUE-CELL FANCY.DRIBBLE.FILE . 37)
(NIL VARIABLE-VALUE-CELL FILE . 30)
DRIBBLEFILE
"No dribble file!"
ERROR
DRIBBLE
BOTH
OLD
((THAWED) . 0)
OPENFILE
IOFILE
GETEOFPTR
SETFILEPTR
"M(M.MSelect Buffer)*LISP-DRIBBLE*
E[FNE]
2,ER"
PRIN3
"@Y
0FSDVERSION
ZJ
-1FSPJATY

"
DOWN
(KT KNIL ENTER0)php
EMACS BINARY

-.
 Z3B+,<",~Z,<,<

,<D,~#T(VARIABLE-VALUE-CELL OLDBUFFER . 4)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 15)
CHECK.EMACS
DOWN
0
SETFILEPTR
"

"
PRIN3
(KNIL ENTERF)8
EMACS.?= BINARY
2'1-. '@),~Z,<ZD*Z,<ZD*XB2B++Z,<ZD*XBB+3B+%Z
,<B,-,+Z

B,,+!@,+!ZB,XBZ,XB`Z-,++,<`Z,<[2B+Z+Z-,,D.[XB+Z`XB`Z`,~,<Z.,D/Z/,,+&Z0,B0Z,~1)+P$4(VARIABLE-VALUE-CELL EMACS.PT . 6)
(VARIABLE-VALUE-CELL EMACS.ZV . 8)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 17)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 19)
(NIL VARIABLE-VALUE-CELL NAME . 37)
MAP.BYTES
RATOM
%(
GETD
ARGLIST
NIL
(NIL VARIABLE-VALUE-CELL ARGLIST . 60)
","
LCONC
"]"
NCONC
"["
"Not a function."
DISPLAY.IN.OTHER.WINDOW
(CONS21 CONSS1 CONSNL SKNLST KNIL ENTER0)HP&0Xpx(H
EMACS.EOF.ERROR BINARY
-.,<Z,<,<&,~@(VARIABLE-VALUE-CELL FILE . 4)
"EOF Error for "
ERROR
(KT ENTERF)@
EMACS.EVAL.CURRENT.SEXPR BINARY
&$-.(Z,<ZD,<ZD@+,<,< @ +Z,<ZD!,~3B+3B+-,+,<!,<,,,,<,<$"XB3B+Z+Z",<ZD,~,<#,<#,<,<($,~[hJ`K (VARIABLE-VALUE-CELL EMACS.PT . 3)
(VARIABLE-VALUE-CELL EMACS.ZV . 5)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 44)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 18)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 20)
MAP.BYTES
"0FO..QWindow 2 Size%"E
M(M.M^R Two Windows)'
%"#M(M.M^R Other Window)'
M(M.MSelect Buffer)*LISP-PRINT*
HK
GA 0J 10K
QWindow 2 Size-3%"N 3-QWindow 2 SizeM(M.M^R Grow Window)'
M(M.M^R Other Window)
M(M.M& Multi-Window Refresh)

"
PRIN3
(T VARIABLE-VALUE-CELL PLVLFILEFLG . 0)
(NIL VARIABLE-VALUE-CELL FORM . 40)
NLSETQ
LISPXEVAL
(T VARIABLE-VALUE-CELL NORMALCOMMENTSFLG . 0)
READ
QUOTE
ENVEVAL
"Can't evaluate this form"
DOWN1
((DOWN1 T) . 0)
RETEVAL
(ALIST2LIST2SKNNMKT KNIL ENTER0)h(
EMACS.FIND.SEXP BINARY
-.~@,~Z,<ZDZ,<ZD,<ZDZ-,+
(VARIABLE-VALUE-CELL EMACS.ZV . 8)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 10)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 12)
(0 VARIABLE-VALUE-CELL OCCNTR . 22)
(T VARIABLE-VALUE-CELL NORMALCOMMENTSFLG . 0)
(NIL VARIABLE-VALUE-CELL #2 . 17)
MAP.BYTES
READ
FIND.SEXP
F
"Pat not found."
ERROR
(KT KNIL CONSNL LIST3 SKLST ENTER0)xpXP 
EMACS.GETDEF BINARY

n-.n@p,~Z2B+	ZXB,<r,<$sZ,<,<$s+-,+BtZBt-,+Z,<,<u$u3B+,<vZ9,<y,<$sZ,<,<z$uZ[,<,<$s,<Z$,<,<z$uZ[BzB{,<,<,<{(|Z),<,<x$uXB3B+dZ,<[1Z[Z[[DyXB!3B+d,<|"},<@} +b,<}Z,<,,Z,XB>XB`,<,<,<@`+YZZXBZ/,<,<z$uZ[XBE,<,<$s[7Z,<ZD,<ZKD[J[,<[NZD,<ZMD,<ZQDZH,<ZSD,<ZUDZw}XB8Z,~2B+[ZtXB[`XB?,<}Z`Z[DZ[3B+a ,~Z`,~,<"w,~Z3BvXB3B+k,<vZd,<,<,,Bw,<"w,~,<ZgDtZ,~%
 (VARIABLE-VALUE-CELL NAME . 216)
(VARIABLE-VALUE-CELL LASTWORD . 14)
(VARIABLE-VALUE-CELL EMACS.FASTREADFLG . 48)
(VARIABLE-VALUE-CELL RESETVARSLST . 184)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 173)
(NIL VARIABLE-VALUE-CELL DEF . 202)
(NIL VARIABLE-VALUE-CELL FILE . 168)
(NIL VARIABLE-VALUE-CELL SPOT . 159)
(NIL VARIABLE-VALUE-CELL MAP . 104)
=
PRIN1
PRINT
ERROR
GETD
EXPR
GETP
DEFINEQ
GETDEF
DUMPX
DOWN
WHEREIS
FILEMAP
ASSOC
"Getting FILEMAP for "
FILEDATES
UNPACKFILENAME
PACKFILENAME
(((DECLARE: -- (FILEMAP --) --)) . 0)
LOADFNS
10
RADIX
(VARIABLE-VALUE-CELL OLDVALUE . 121)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 190)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
PRIN3
,
DIFFERENCE
"M(M.M& Getdef)"

APPLY
ERROR!
"No Definition Found.  "
(CFCONSCONSNL(LIST2 ALIST2 SKNLST SKNLA KT KNIL ENTERF)D@?ih

8Y	 /$n

Z(90*0HH
EMACS.P BINARY
7'6-.8'Z,<ZD*,<+ZD+@,+$Z,<,<$,,<@-,~,<,Z,<,,Z,XB`Z[D3Z3B+# 4,~Z`,~,<4,<5,<,<(5,~Z@*Ld(VARIABLE-VALUE-CELL EMACS.PT . 3)
(VARIABLE-VALUE-CELL EMACS.ZV . 5)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 48)
(VARIABLE-VALUE-CELL EMACS.P.PRINT.LEVEL . 13)
(VARIABLE-VALUE-CELL RESETVARSLST . 59)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 42)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 44)
MAP.BYTES
"0FO..QWindow 2 Size%"E
M(M.M^R Two Windows)'
%"#M(M.M^R Other Window)'
M(M.MSelect Buffer)*LISP-PRINT*
HK GA 0J
10K
QWindow 2 Size-3%"N 3-QWindow 2 SizeM(M.M^R Grow Window)'
M(M.M^R Other Window)
M(M.M& Multi-Window Refresh)

"
PRIN3
(T VARIABLE-VALUE-CELL PLVLFILEFLG . 0)
PRINTLEVEL
(VARIABLE-VALUE-CELL OLDVALUE . 22)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 65)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(T VARIABLE-VALUE-CELL NORMALCOMMENTSFLG . 0)
READ
ERROR
APPLY
ERROR!
DOWN1
((DOWN1 T) . 0)
RETEVAL
(KT CF CONS CONSNL LIST2 KNIL ENTER0)00hXPh& 
EMACS.PP BINARY
>,<-.(,Z,<ZD/@/(
,~Z,,XB,<2,<,<@2`+ZZ4XBZ,<ZD4+XB2B+,<5ZD5,<6,<6,<,<(7Z,,,<ZD7XBZXB,<8ZD8ZB9Z,<ZD9Z,<,<ZF:Z,,XBZ,<,<:$;Z,<Z!D5,<;Z$D5Z%,<Z D;,<6,<<,<,<(7Z,~@JB"Q49(VARIABLE-VALUE-CELL HPOS . 60)
(VARIABLE-VALUE-CELL EMACS.PT . 3)
(VARIABLE-VALUE-CELL EMACS.ZV . 5)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 39)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 25)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 77)
MAP.BYTES
(T VARIABLE-VALUE-CELL NORMALCOMMENSFLG . 0)
(NIL VARIABLE-VALUE-CELL START . 43)
(NIL VARIABLE-VALUE-CELL FORM . 57)
(NIL VARIABLE-VALUE-CELL TO.DELETE . 70)
(NIL VARIABLE-VALUE-CELL MAP.END . 79)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
READ
"FTREAD failed."
PRIN3
DOWN1
((DOWN1 T) . 0)
RETEVAL
DIFFERENCE
100
SPACES
TERPRI
POSITION
DUMPX1
0
SETFILEPTR
",(104,(FQA):GA)M(M.M& Prettyprint Undoably Replace)"
((DOWN1 T) . 0)
(CONSNL CF KNIL MKN FGFPTR ENTERF),0*h0!X P
EMACS.REPLACE.SEXP BINARY
-. Z,<ZD@,~@+	Z,<ZD,~XB,<,<,<,,,<,<,<Z	,<,,<,<,,,~J(VARIABLE-VALUE-CELL EMACS.PT . 3)
(VARIABLE-VALUE-CELL EMACS.ZV . 5)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 13)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 15)
MAP.BYTES
(NIL VARIABLE-VALUE-CELL TEMP . 27)
(T VARIABLE-VALUE-CELL NORMALCOMMENTSFLG . 0)
READ
ORR
:
((BI 1 -1) . 0)
1
((BO 1) . 0)
(ALIST3 LIST3 CONSNL LIST2 ENTER0)

@
EMACS.RETURN BINARY
5*4-.*@*,~(Bw,XBA",XBZ0B++Z,<,<$,+(0B++Z	,<,<,$,+(0B++Z 2,~0B+( + 2,~ +,<3"3,~lvu]lmng8(VARIABLE-VALUE-CELL EMACS.FSEXIT.ARG . 10)
(NIL VARIABLE-VALUE-CELL ARG1 . 14)
(NIL VARIABLE-VALUE-CELL ARG2 . 41)
DUMP.LINES?
E!
DEFINEQ
QUOTE
EMACS.PP
EMACS.P
EMACS.?=
"
ERROR return from EMACS."
ERROR
"
RESET return from EMACS."
PRIN1
RESET
EMACS.EVAL.CURRENT.SEXPR
EMACS.FIND.SEXP
EMACS.REPLACE.SEXP
127
CHARACTER
(KT KNIL ASZ MKN ENTER0)0h$ 0p

p
EMACS:.RETURN BINARY
,+-.@ ,~ (Bw,XB0B+  +0B+	 !+0B+ !+0B+,<",<,<&"+0B+,<#,<$# $+0B+ $+0B+ % %,~0B+ % &,~,<&,<$',<'"(,<(,<),<,<(),<*"*,~;Y[;N_(VARIABLE-VALUE-CELL EMACS.FSEXIT.ARG . 6)
(NIL VARIABLE-VALUE-CELL ARG1 . 9)
EMACS.PP
EMACS.P
EMACS.?=
"
ERROR return from EMACS."
ERROR
"
RESET return from EMACS."
PRIN1
RESET
EMACS.EVAL.CURRENT.SEXPR
DUMP.LINES?
EMACS.FIND.SEXP
EMACS.REPLACE.SEXP
"In appropriate exit from EMACS.  Use C-T C-E if you want
to quit back to EDITE:.  Returning to EMACS"
PRINT
3000
DISMISS
DOWN1
((DOWN1) . 0)
RETEVAL
127
CHARACTER
(KT KNIL ASZ MKN ENTER0)(``Xx0@

ENABLE.CONTROL.C.CAPABILITY BINARY
-.Z2B+^"+,,>,>,>,>,<,<$2B+
^"+
, ,^/,^/ 4+ + + ,,~Uj(VARIABLE-VALUE-CELL OURPROCESS . 3)
131072
0
,,
(MKNBHCIUNBOXKNILENTER0)
EMACS.EXE.FILE BINARY
-.Z6@Z2B+Z,~Z,~hTENEX
TOPS20
<SUBSYS>EMACS.SAV
SYS:EMACS.EXE
(KL20FLG ENTER0)0
FIND.SEXP BINARY
-.Z2B+Z,~Z2B+.",XBZ,~,<ZD3B+
(VARIABLE-VALUE-CELL PAT . 39)
(VARIABLE-VALUE-CELL OCCNTR . 25)
EQUAL
FIND.SEXP
(SKNLST KT MKN KNIL ENTERF)hPXx@
FLUSH.EMACS BINARY
lZi-.PZZ-,+Z,~Z,<ZD_2B+^"+,  Y Y+ + + Z,< ({,D_2B+^"+,  Y Y+ + + Z,<,<_$`3B+!Z

,<",D2B+^"+,  Y Y+ + + Z`Z7@7ZZ-,+)Z`Z7@7ZZBaZXBZaZ7@7Z3Bb+1Z-,+1Bb3B+1Z-BcZcZ7@7Z3Bb+9Z-,+9Bb3B+9Z5BcZdZ7@7Z3Bb+AZ-,+ABb3B+A,<,<,<&d,<e,<,<@e`+IZZgXBZ,<,<g$hZ,~,<h,<,<@e`+QZZgXBZ,,<ZDhZ,~,<i,<,<@e`+XZZgXBZ,,<,<g$h+,~&*`4&

kk42QP$T(VARIABLE-VALUE-CELL LASTEMACS . 83)
(VARIABLE-VALUE-CELL OURPROCESS . 48)
(VARIABLE-VALUE-CELL EMACS.MAP.BLK.PAGE . 10)
(VARIABLE-VALUE-CELL OUR.BLOCK.START . 155)
(VARIABLE-VALUE-CELL EMACS.BLK.SIZE . 158)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 97)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 112)
(VARIABLE-VALUE-CELL FANCY.DRIBBLE.FILE . 121)
(VARIABLE-VALUE-CELL EMACS.MAP.BLK . 140)
(VARIABLE-VALUE-CELL EMACS.AC.BLK.START . 171)
,,
2
EQP
LASTEMACS
KFORK
EMACS.MAP.FILE
NOBIND
OPENP
CLOSEF
EMACS.TEMP.FILE
FANCY.DRIBBLE.FILE
DRIBBLE
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
1
RELBLK
((DUMMY) . 0)
((DUMMY) . 0)
(CONSNL GUNBOX KT CF SKLA SKI KNOB MKN IUNBOX KNIL SKNLST ENTER0)
pOQ	
PMX`6pX84H(@8 	S
(K	(C0A@x8*H@0
GET.BYTE BINARY
-.^"?,>,> ,>,> &".Bx,^/ ,>,> &" /"$"/" ,^/(BABx,^/,,~@ (VARIABLE-VALUE-CELL N . 17)
(VARIABLE-VALUE-CELL FIRSTLOC . 6)
(MKN BHC ENTERF)X
INTER.DIRECTORYNAME BINARY


Z
6@Z
2B
+,<,<,<$,<,<

,~,<,<$,~eDTENEX
TOPS20
<
DIRECTORYNAME
>
PACK*
(KNIL KL20FLG ENTER0)	`
MAKE.QUOTE BINARY
-.[-,+[Z-,+[[2B+Z,<[Z3B+
QUOTE
EQUAL
'
PACK*
(CONS LIST2 SKNNM KT KNIL SKLA SKLST ENTERF)8`@0p
pP0
MAP.BYTES BINARY
E=C-. =@@,~ ,>=,>  ,^//.",XB ,>=,>  ,^/2b+ 
,>=,>,^//,XB+Z"XBZ,<ZDAZXB,^/,,< ,>=,> .Bx,^/,DB+8 !,>=,>  ,^/2b+-Z,<Z&DB+8Z+,<Z(DB .,>=,> #.Bx,^/,,< ,,>=,> 1.Bx,^/,DB,<BZDCZ9,<ZDAZ,~@A@P

(D(VARIABLE-VALUE-CELL START . 91)
(VARIABLE-VALUE-CELL END . 104)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE.EOF . 44)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 116)
(VARIABLE-VALUE-CELL EMACS.GPT . 95)
(VARIABLE-VALUE-CELL EMACS.EXTRAC . 107)
(NIL VARIABLE-VALUE-CELL PTR . 118)
(NIL VARIABLE-VALUE-CELL NCHARS . 43)
SETFILEPTR
MAP.BYTES1
1
SPACES
(KNIL ASZ MKN BHC ENTERF)P84`! 88*X!HH
MAP.BYTES1 BINARY
&$-.ZB!,<@! ,~ZB!XB` ,>,> ` ,^/3b+Z`,~Z,<Z,<Z,<,<ZB!D#3B+ &"
 ,+Z",<Z

,<ZB!D#3B+ &"
,+Z#J$E.",XB+	
(VARIABLE-VALUE-CELL END . 49)
(VARIABLE-VALUE-CELL LASTEMACS . 23)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE.JFN . 27)
PAGE.OF.BYTE
(VARIABLE-VALUE-CELL I . 59)
NIL
NIL
EQP
2560
MAP.PROCESS.TO.FILE
(ASZ MKN KNIL BHC ENTERF)0 
MAP.PROCESS.TO.FILE BINARY
A9?-.(9Z,<ZD=2B+^"+,,/8,8+>+>+<Z,<ZD=2B+, ,^/,^/+ + + Z2B+"^"+",,>9,>Z,,<ZD?2B+(^"+(, ,^/,>9,>,>9,> ,>9,> % ,^//,+2^"+2, ,^/,^/+ + + Z,~)@*B!.P*
BH(VARIABLE-VALUE-CELL PROCESS . 19)
(VARIABLE-VALUE-CELL PAGE . 21)
(VARIABLE-VALUE-CELL JFN . 63)
(VARIABLE-VALUE-CELL START.BYTE . 91)
(VARIABLE-VALUE-CELL END.BYTE . 88)
(VARIABLE-VALUE-CELL OURPROCESS . 30)
(VARIABLE-VALUE-CELL EMACS.MAP.BLK.PAGE . 32)
(VARIABLE-VALUE-CELL EMACS.MAP.BLK . 71)
,,
33024
0
BYTEPOINTER
(MKN BHC IUNBOX KNIL ENTERF)%5H0(P3#8h8p!H
PAGE.OF.BYTE BINARY

,~ &",XB &" ,XB0B+
 ."+
 (B{,,~(VARIABLE-VALUE-CELL BYTE . 10)
(NIL VARIABLE-VALUE-CELL QUO . 20)
(NIL VARIABLE-VALUE-CELL REM . 14)
(ASZ MKN ENTERF)

x
PAGEMODE BINARY
#"-.@,~#+++,XBZ3B+Z2B!+,> 
(NIL VARIABLE-VALUE-CELL JFNMODE . 49)
Y
N
(ASZIUNBOX BHC KNIL MKN ENTERF)@@0	 
PPTI BINARY
- ,-. ,<"ZD"ZB#,<@# +,<#Z,<,,Z,XBXB`,<%,<&,<@&`+ZZ(XB@(+Z),<Z,D*Z,~Zw~XB8Z,~2B+Z*XB[`XB	,<#Z`Z[D*Z3B+ +,~Z`,~,<"+,~VjV Da(VARIABLE-VALUE-CELL LST . 35)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 6)
(VARIABLE-VALUE-CELL RESETVARSLST . 49)
"FSBCONS[..O
GA
0J 6K
M(M.MTI Print)
]..O
M(M.M^R Exit to LISP)
"
PRIN3
OUTPUT
(VARIABLE-VALUE-CELL OLDVALUE . 13)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 55)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL PRETTYTABFLG . 0)
(T VARIABLE-VALUE-CELL NORMALCOMMENTSFLG . 0)
PRETTYPRINT
APPLY
ERROR
ERROR!
DOWN
(KT CF KNIL CONS CONSNL LIST2 ENTERF)pH 0	
PUTSTRING BINARY
5-3-.-@. ++ZXBZ"XBZ,<ZB0,.",D03B+Z`,~Z"XB@1+&Z"XB` ,>,,> ` ,^/3b+Z`,~ (B,XB ,>,,>Z,<ZB0D03B+^"+Z,<ZD2B3,GBx,^/,XB .",XB! .",XB#+ ,< !(B,\ B &.",XB)+Z,~

 j@(VARIABLE-VALUE-CELL STR . 56)
(VARIABLE-VALUE-CELL ADDR . 87)
NIL
(NIL VARIABLE-VALUE-CELL LOC . 85)
(NIL VARIABLE-VALUE-CELL WORD . 78)
(NIL VARIABLE-VALUE-CELL CHAR . 70)
NCHARS
GREATERP
NIL
(1 VARIABLE-VALUE-CELL J . 74)
NIL
NTHCHAR
CHCON1
(BHC KNIL MKN IUNBOX ASZ ENTERF) 0%8!`	h

P
READ.AC BINARY
-.Z2B+^"+,,>,>Z2B+^"+, ,^/ 8+ + +  ,>,> GBx,^/ ,,~Q!(VARIABLE-VALUE-CELL ACN . 28)
(VARIABLE-VALUE-CELL PROCESS . 3)
(VARIABLE-VALUE-CELL EMACS.AC.BLK.START . 25)
(MKN BHC IUNBOX KNIL ENTERF)(0
REFRESH BINARY

,>

#+"+~+(BsABx,^//",B
127
CHARACTER
(MKN BHC ENTER0)(
SET.EMACS.VARS BINARY
-.  ,XB  ,XB  ,XB  ,XB  ,XB  ,XB  ,XB  ,XB,<ZDXB,~ (VARIABLE-VALUE-CELL EMACS.BEG.LOC . 3)
(VARIABLE-VALUE-CELL EMACS.BEG . 6)
(VARIABLE-VALUE-CELL EMACS.BEGV.LOC . 7)
(VARIABLE-VALUE-CELL EMACS.BEGV . 10)
(VARIABLE-VALUE-CELL EMACS.GPT.LOC . 11)
(VARIABLE-VALUE-CELL EMACS.GPT . 14)
(VARIABLE-VALUE-CELL EMACS.PT.LOC . 15)
(VARIABLE-VALUE-CELL EMACS.PT . 18)
(VARIABLE-VALUE-CELL EMACS.ZV.LOC . 19)
(VARIABLE-VALUE-CELL EMACS.ZV . 22)
(VARIABLE-VALUE-CELL EMACS.Z.LOC . 23)
(VARIABLE-VALUE-CELL EMACS.Z . 26)
(VARIABLE-VALUE-CELL EMACS.EXTRAC.LOC . 27)
(VARIABLE-VALUE-CELL EMACS.EXTRAC . 30)
(VARIABLE-VALUE-CELL EMACS.MODIFF.LOC . 31)
(VARIABLE-VALUE-CELL EMACS.MODIFF . 34)
(VARIABLE-VALUE-CELL LASTEMACS . 36)
(VARIABLE-VALUE-CELL EMACS.FSEXIT.ARG . 38)
3
READ.AC
(MKN ENTER0)XX
SETUP.FANCY.DRIBBLE BINARY
.#,-.#@%,~^"?,>",> " " ##+ + +  (BsABx,^/,XB0B+

XB%3B+Z,XB+!B&,<Z&6@Z'2B&+Z'+Z(D(B)B)XBB*ZB*Z,<,<,<&+Z
(VARIABLE-VALUE-CELL TERMINAL.SPEED . 58)
(VARIABLE-VALUE-CELL NUMBER.OF.LINES . 65)
(NIL VARIABLE-VALUE-CELL REAL.NUMBER . 56)
DRIBBLEFILE
INTER.DIRECTORYNAME
TENEX
TOPS20
LISP.DRIBBLE;-1;TP770000
LISP.DRIBBLE.-1;T;P770000
PACK*
OUTFILE
OUTPUT
CLOSEF
IOFILE
DRIBBLE
TIMES
IMIN
(IUNBOX KT KL20FLG CONSNL KNIL ASZ MKN BHC ENTER0)88 pX

 80
START.EMACS BINARY
i6b-.6@@,~ZXBZBAXB,<B,<BFC,<C,<C,<"DDD,<ZFCZ3B+L*M 5 5 5?+ + + ,BMBNXB,<N"O,<J"O,XBZF6@ZF2BF+*,<PZ,<,<P&QBQ+-,<RZ',<,<R&QBSZ#,,<,<J$S T,<,<,<,<,<*TXBZ 3BN+5BO,<J"O,XB,<BZ3DUXB 9(B{,,<Z9,<,<U$V,(B{,DV3B+BZ"XB+CZ"XBABO,XB@W +XZ`-,+H+WZXBZH,<Z,< D,>6,>^",>6,> ;ABx,^/GBx,^/,DV ,\,[`XB` J.",XBU+FZ`,~Z8,< N(B{,DY2B+]^"+^,,>6,>Z,< K(B{,DY2B+d^"+d, ,^/,>6,>,>6,>,<Y,<Z$Y2B+k^"+l, ,^/,^/+ + + ZB,<,<B$V3B+

ZX,< Y(B{.",DY2B+y^"+y,,>6,>Z_,< `(B{.",DY2B+^"+, ,^/,>6,>,>6,>,<Z,<Z$Y2B+^"+, ,^/,^/+ + + Zs2B+^"+,,>6,>,<JZt,<,<[$VDY2B+^"+, ,^/ 5B+ + +  E,<ZF6@ZF2BF+Z[+Z\DHBHBIXBBKZ B\Z"XBZ!B]XB,<J"OXB(B{,XB,<]Z

DUXB ^,<"^,<"^Z#,<,<_,<_,<`,<`*aZ,<,<_,<_,<`,<`*aZBaZb,~lN_qToA^^>8p'JE)H *
u@U(+T
'(!/}EBU`(VARIABLE-VALUE-CELL #RPARS . 7)
(VARIABLE-VALUE-CELL FILERDTBL . 8)
(VARIABLE-VALUE-CELL EMACS.READ.TABLE . 20)
(VARIABLE-VALUE-CELL LASTEMACS . 337)
(VARIABLE-VALUE-CELL EMACS.TEMP.FILE . 352)
(VARIABLE-VALUE-CELL MAX.EMACS.INPUT . 41)
(VARIABLE-VALUE-CELL INTER.DIRECTORY . 85)
(VARIABLE-VALUE-CELL EMACS.AC.BLK.START . 110)
(VARIABLE-VALUE-CELL EMACS.BUFFER.BLOCK . 290)
(VARIABLE-VALUE-CELL EMACS.BLK.SIZE . 225)
(VARIABLE-VALUE-CELL OUR.BLOCK.START . 247)
(VARIABLE-VALUE-CELL OURPROCESS . 245)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE . 345)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE.EOF . 326)
(VARIABLE-VALUE-CELL EMACS.MAP.FILE.JFN . 329)
(VARIABLE-VALUE-CELL EMACS.MAP.BLK . 332)
(VARIABLE-VALUE-CELL EMACS.MAP.BLK.PAGE . 335)
(VARIABLE-VALUE-CELL TERMINAL.SPEED . 339)
(VARIABLE-VALUE-CELL EMACS.INIT.HOOK . 359)
(NIL VARIABLE-VALUE-CELL NAME . 103)
(NIL VARIABLE-VALUE-CELL RSCAN.BLK . 90)
(T VARIABLE-VALUE-CELL SUBSYSRESCANFLG . 0)
COPYREADTABLE
2
((MACRO FIRST (LAMBDA (FL RDTBL) (SETQ #2 (READ FL RDTBL)))) . 0)
SETSYNTAX
'
GETREADTABLE
GETSYNTAX
FLUSH.EMACS
INTER.DIRECTORYNAME
TENEX
TOPS20
EMACS.TEMP;-1;TP770000
EMACS.TEMP.-1;T;P770000
PACK*
OUTFILE
OUTPUT
SETFILEPTR
1
SPACES
CLOSEF
BOTH
OLD
((THAWED) . 0)
OPENFILE
SIXBIT
MKATOM
LISP
SETNM
GETBLK
"M(M.MLOAD LIB)<"
">INTERWFSOSPEEDFSEXIT"
CONCAT
BKSYSBUF
"EMACS M(M.MLoad Lib)<"
">INTERWFSOSPEEDFSEXIT"
WRITE.RSCAN
RELBLK
EMACS.EXE.FILE
SUBSYS2
READ.AC
9
PLUS
EQP
((EMACS.BEG.LOC EMACS.BEGV.LOC EMACS.PT.LOC EMACS.GPT.LOC EMACS.ZV.LOC 
EMACS.Z.LOC EMACS.EXTRAC.LOC EMACS.RESTART.LOC EMACS.ARG.LOC EMACS.MODIFF.LOC) .
 0)
NIL
(NIL VARIABLE-VALUE-CELL VAR . 146)
(0 VARIABLE-VALUE-CELL I . 173)
,,
53248
0
53248
7
EMACS.MAP;-1;TP770000
EMACS.MAP.-1;T;P770000
IOFILE
OPNJFN
3
SETUP.FANCY.DRIBBLE
TERPRI
CLOSEALL
NO
EOF
EMACS.EOF.ERROR
WHENCLOSE
EVAL
Continue
(SET BHC SKNLST ASZ IUNBOX GUNBOX MKN KL20FLG KT KNIL ENTER0)
H

hR
x8Ch l

P^hh~pb8W
(Dx;x$H%xH+Hhs

@
STIW BINARY
-.   =+ + +  ,,<Z3B+Z2B+
^"+,   >+ + + ,\,~}%(VARIABLE-VALUE-CELL W . 16)
(IUNBOX KNIL MKN ENTERF)8
SUBSYS1 BINARY
XFV-.(F@I,~Z-,+ JZXB,<"JXB+
ZXB[ZXB,<K"K,<@L ,~,<KZ,<,,Z,XBXB`,<N,<N,<@O`+<ZZPXBZ
BJ,<@Q(+:,<JZ,<,,Z,XBXB`,<S,<N,<@O`+1ZZPXBZ3B+$ SZ,<Z,<Z,<ZHT,<^"FE,>E,>,<"J,ABx,^/,,Zw{XB8Z,~2B+3ZTXB[`XB,<JZ`Z[DUZ23B+9 U,~Z`,~Zw}XB8Z,~2B+>ZTXB6[`XB3,<KZ`Z[DUZ=3B+D U,~Z`,~1 ijJ`
(VARIABLE-VALUE-CELL INCOMFILE . 75)
(VARIABLE-VALUE-CELL OUTCOMFILE . 77)
(VARIABLE-VALUE-CELL ENTRYPOINTFLG . 79)
(VARIABLE-VALUE-CELL BINARYMODE . 69)
(VARIABLE-VALUE-CELL RESETVARSLST . 125)
(NIL VARIABLE-VALUE-CELL FORK . 73)
(NIL VARIABLE-VALUE-CELL TIW . 45)
ENABLE.CONTROL.C.CAPABILITY
STIW
N
PAGEMODE
(VARIABLE-VALUE-CELL OLDVALUE . 52)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 131)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(VARIABLE-VALUE-CELL OLDVALUE . 0)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 0)
((DUMMY) . 0)
BINARYMODE
SUBSYS0
ERROR
APPLY
ERROR!
(KT ALIST2 MKN BHC IUNBOX CF CONS CONSNL LIST2 KNIL SKLA ENTERF)<xphP H0=2@$pH
SUBSYS2 BINARY
$#-.(@!,~Z,<Z,<Z,<Z,<ZJ!XB ,>,>Z2B+

^"+ .+ + +  ABx,^/1B+   <+ + + ,<"""Z
,<,<,<,<,<*!XB+Z,~ ,+<
(VARIABLE-VALUE-CELL THREE . 6)
(VARIABLE-VALUE-CELL INCOMFILE . 8)
(VARIABLE-VALUE-CELL OUTCOMFILE . 10)
(VARIABLE-VALUE-CELL ENTRYPOINTFLG . 12)
(VARIABLE-VALUE-CELL BINARYMODE . 14)
(NIL VARIABLE-VALUE-CELL FORKTHREE . 56)
SUBSYS1
1000
DISMISS
(KT BHC IUNBOX KNIL ENTERF)0(X(
WRITE.RSCAN BINARY
-.Z,<ZD (B	,>,> GBx,^/,+	^"+
,   + + + ,,~A`P@(VARIABLE-VALUE-CELL STR . 3)
(VARIABLE-VALUE-CELL RSCAN.BLK . 11)
PUTSTRING
(IUNBOX MKN BHC ENTERF)(`
(PRETTYCOMPRINT INTERCOMS)
(RPAQQ INTERCOMS ((* This is the LISP part of an interface between EMACS and 
INTERLISP. The EMACS part is contained in a :EJ file called INTER. The two main 
entries are START.EMACS and DOWN. Documentation for the interface exits.) (FNS *
 INTERFNS) (VARS * INTERVARS) (P (PUTD (QUOTE SUBSYS0) (VIRGINFN (QUOTE SUBSYS))
)) (USERMACROS * INTERUSERMACROS) (P (/NCONC AFTERSYSOUTFORMS (QUOTE ((
FLUSH.EMACS))))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (
ADDVARS (NLAMA PPTI) (NLAML) (LAMA)))))
(RPAQQ INTERFNS (,, BINARYMODE BYTEPOINTER CF CFNS CHECK.EMACS CP CREC CV 
DISPLAY.IN.OTHER.WINDOW DOWN DOWN1 DUMP.LINES DUMP.LINES? DUMPX DUMPX1 E! E. E.1
 EDIT.DRIBBLE.FILE EMACS EMACS.?= EMACS.EOF.ERROR EMACS.EVAL.CURRENT.SEXPR 
EMACS.FIND.SEXP EMACS.GETDEF EMACS.P EMACS.PP EMACS.REPLACE.SEXP EMACS.RETURN 
EMACS:.RETURN ENABLE.CONTROL.C.CAPABILITY EMACS.EXE.FILE FIND.SEXP FLUSH.EMACS 
GET.BYTE INTER.DIRECTORYNAME MAKE.QUOTE MAP.BYTES MAP.BYTES1 MAP.PROCESS.TO.FILE
 PAGE.OF.BYTE PAGEMODE PPTI PUTSTRING READ.AC REFRESH SET.EMACS.VARS 
SETUP.FANCY.DRIBBLE START.EMACS STIW SUBSYS1 SUBSYS2 WRITE.RSCAN))
(RPAQQ INTERVARS (INTER.DIRECTORY EMACS.FASTREADFLG EMACS.P.PRINT.LEVEL 
OURPROCESS MAX.EMACS.INPUT (LASTEMACS NIL) (EMACS.RETURN.CASES (QUOTE 
EMACS.RETURN)) (EMACS.ENTRY.HOOK NIL) (EMACS.EXIT.HOOK NIL) (EMACS.INIT.HOOK NIL
)))
(RPAQQ INTER.DIRECTORY EMACS)
(RPAQQ EMACS.FASTREADFLG T)
(RPAQQ EMACS.P.PRINT.LEVEL (2 . 7))
(RPAQQ OURPROCESS 131072)
(RPAQQ MAX.EMACS.INPUT 896000)
(RPAQ LASTEMACS NIL)
(RPAQQ EMACS.RETURN.CASES EMACS.RETURN)
(RPAQ EMACS.ENTRY.HOOK NIL)
(RPAQ EMACS.EXIT.HOOK NIL)
(RPAQ EMACS.INIT.HOOK NIL)
(PUTD (QUOTE SUBSYS0) (VIRGINFN (QUOTE SUBSYS)))
(RPAQQ INTERUSERMACROS (EMACS:))
(ADDTOVAR EDITMACROS (EMACS: NIL (COMS (CONS (QUOTE COMSQ) (PROG ((
EMACS.RETURN.CASES (QUOTE EMACS:.RETURN))) (DUMPX (##)) (RETURN (CAR (NLSETQ (
DOWN)))))))))
(/NCONC AFTERSYSOUTFORMS (QUOTE ((FLUSH.EMACS))))
NIL