Artifact a494058b2eb7402e9ef3388f9760b36b66beed8a15703b77f46e9fec8a76d079:

• File psl-1983/emode/build-emode.ctl — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1351) [annotate] [blame] [check-ins using] [more...]

! Build a compiled version of EMODE for the DEC-20.
!
! Use DO or SUBMIT to "run" this file.
!
! Make sure you define the necessary logical names in your BATCH.CMD file.
! The best way is to include a line something like the following:
!   @take <PSL>LOGICAL-NAMES.CMD
!

@define DSK:  DSK:, PE:
@PSL:RLISP              ! Portable Standard Lisp version of RLISP
*load Useful$    % Don Morrison's utilities
*load NSTRUCT$   % Routines for structures
*load common$    % Common-Lisp compatibility package
*load SysLisp$
*load If!-System$ % Allow conditional compilation based on machine type.
*load monsym$    % Define JSYS stuff
*load jsys$      % Still more JSYS stuff
*OFF USERMODE$   % So we can redefine things.
*
* % Cause constants and structures to be defined at both compile and
* % runtime????
* FLAG( '(DefStruct DefConst), ' EVAL); % Space after ' in case of MIC
*
* % Build EMODE in two parts, due to size problems with FASL
* % builder.  (May be unnecessary these days.)
* % EMODE-B-1 and EMODE-B-2 are to be loaded with EMODE.LAP.
*FASLOUT "EMODE-B-1"$
* IN "EMODE-FILES-1.RED";
*FASLEND;
*
*FASLOUT "EMODE-B-2"$
* IN "EMODE-FILES-2.RED";
* !*GC := NIL$           % Turn off garbage collection messages after
*                        % EMODE is loaded, since printing messages
*                        % causes consing.
*FASLEND;
*
*QUIT$