P[0 +8+fq(+4)[1 0fo10f"g+q1' +fq()+4u1 fq1"l 0' ,q1:m(q1+4(]1]0))Od q!  3O!Ig [LV$ [x O & Make Impure MKDUMP Copies& SetUp MKDUMP LibraryDump EMACSMkDump Load LibraryPrepare for Loading Libraries~DIRECTORY~~DOC~ & Make Impure MKDUMP Copies~DOC~ & SetUp MKDUMP Library~DOC~ ~DOC~ Dump EMACS~DOC~ MkDump Load Library~DOC~ Prepare for Loading Libraries~DOC~ ~FILENAME~~FILENAME~~INVERT~MKDUMP:m(m.m& Make Impure MKDUMP Copies):g(m.mLoad Library) m.vMM Load Libraryw :g(m.m~DOC~ Load Library) m.vMM ~DOC~ Load Libraryw :g(m.mDump EMACS) m.vMM Dump EMACSw :g(m.m~DOC~ Dump EMACS) m.vMM ~DOC~ Dump EMACSw 0fo..qMKDUMP Loaded-11864329442"n 0m.CDumped EMACS Name* If non-0, is filename to dump to 0m.CDumped EMACS Default Filename* If non-0, is default filename for dumped EMACS when it starts 0m.CDumped EMACS Quick Start?* If non-0, we dump out a quick-starting EMACS 0m.CDumped EMACS Startup HookIf non-0, will be called at dump startup time 0m.CDumped EMACS fsTTYMacroContains the fsTTYMacro to restore after libraries are loaded 11864329442m.vMKDUMP Loaded' [1[2 m.mLoad Libraryu1 m.mMkDump Load Library m.vMM Load Libraryw m(m.m& Make Impure MKDUMP Copies) f=MM Load Library1"n q1m.vMM Pre-MkDump Load Libraryw' "# 0fo..qMM Pre-MkDump Load Library"e m(m.m& Get Library Pointer)EMACS( )m.mLoad Librarym.vMM Pre-MkDump Load Libraryw''  f[DFile etDSK: fsHSNamefsDSNamew qDumped EMACS Namef"nfsDFile' "#w fsOSTecof"ew etTS DEMACS' "#-1"e etDEMACS.EXE' "# etDEMACS.SAV'''w et qEditor Nameu.1 1,m.m& StartUp .1"e @:i*|m.m& Recursive ^R Set Modef[^REnter  q..0u..h 0fsQPUnwindw :m..l | m.vMM & StartUp .1w @:i.2| fsClkIntf"Ew 5*3600'fsClkIntw qDumped EMACS fsTTYMacrof(fsTTYMacrow )"n m(fsTTYMacro)' qDumped EMACS Startup Hook"n mDumped EMACS Startup Hook'| ((ff"'n)&("'n))(qDumped EMACS Quick Start?)"n @ft Creating a quick-starting EMACS, no JCL. @:i*|.2 etDSK: fsMSNamefsDSNamew ! 0fo..qDumped EMACS Default Filenamef"nfsDFilew' q..hu..0 fs^RExit |m.v*Initialization*w' "# @ft Creating a default-init EMACS. @:i*|.2 etDSK:EMACS; fsOSTeco"e er* EMACS'"# erEMACS.INIT' @y :i*[..9 m(hfx*) q..hu..0 fs^RExit |m.v*Initialization*w'' 1,m(m.m& Get Library Pointer)PURIFY"e m(m.mKill Variable)PURIFY Library Filenamew' 0fsTTYMacrouDumped EMACS fsTTYMacro 0fs^RArgPw 0u..H 0fo..qCache Enabled"N 1:w' 0u0 < q0*5-fq.b; q:.b(q0+4)[..O 1f? ]..O q:.b(q0)+q0u0 > q.b[..O 1f? ]..O q..q[..O 1f? ]..O q..L( q..P( fs:EJPage( 1,m.mDump Environment"E f[DFile :ejDSK:EMACS;PURIFY :EJw f]DFile ' m(m.mDump Environment) )fs:EJPagew )u..P )u..L qDumped EMACS fsTTYMacro fsTTYMacrow 0u*Initialization* fsDFile u.1 @ft Dumped .1 fsOSTeco"E fsDFn2:f6'"# fsDFn1'u.1 0fsEchoActivew -1fs^RLastw 0u.1 0u.2 0u.3 01,(f):m(m.mPre-MkDump Load Library)Dumped EMACS environments made easy. Bugs/features to BUG-EMACS@MIT-AI. Maintained by ECC@MIT-MC.C Comes first in an init file. The only preparation necessary to use MKDUMP is to insert the following line into your init file, at the top before any library loading (note that there are TWO Altmodes at the end of the line): MM Run LibraryMKDUMP Or if you have an EVARS file, insert this line into it, at the top: *: MM Run LibraryMKDUMP This will prepare EMACS for later dumping by causing M-X Load Library to start remembering exactly where it finds the libraries it loads. To make a dumped EMACS job, first start up EMACS the normal way: :EMACS (on ITS) EMACS (on Tenex or Tops-20) Then type: M-X Dump EMACS This will write the dump to the file TS DEMACS (on ITS), DEMACS.EXE (on Tops-20), or DEMACS.SAV (on Tenex) in your home directory. The next time you want to run EMACS, you can run the dump: :DEMACS (on ITS) DEMACS (on Tenex or Tops-20) For more detailed information, see the INFO node.S Make Load Library and its doc impure.S Install our little hook (hack?). Hack Load Library so that it always maintains the filename variables required for dumping. This object file was compressed on 3:48pm Saturday, 16 October 1982 by ECC on MIT-OZ from the following source libraries: PS:MKDUMP.EMACS.55, 10/16/82 15:47:50C Dump this EMACS out to file given by string argument. Default is home directory, TS DEMACS on ITS, DEMACS.EXE on TWENEX, DEMACS.SAV on TENEX. The dump, when started, will call the default init-file (e.g. to do JCL processing) unless this command is invoked with a numeric argument. For more information, see the documentation for & Setup MKDUMP Library, or the INFO node. Should probably only be called from top-level -mode, as it is somewhat sensitive to what has been pushed onto the PDL. This clobbers q-registers .1, .2, and .3 for necessary reasons -- do not push them.C Load a library of functions. Takes filename as string arg; default FN2 is :EJ. Tries both the specified (or home) directory and EMACS. An argument means don't run the library's & Setup function. Creates a variable with the library's real filename, so this EMACS may later be dumped out. Returns a pointer to the file in core.Prepare for Loading Libraries & Make Impure MKDUMP Copies & SetUp MKDUMP Library Dump EMACS MkDump Load 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