reduce-historical/psl-1983/20-kernel/20-kernel-gen.sl

%
% 20-KERNEL-GEN.SL - Generate scripts for building Dec-20 PSL kernel
% 
% Author:      Eric Benson
%              Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        26 May 1982
% Copyright (c) 1982 University of Utah
%

% <PSL.20-INTERP>20-KERNEL-GEN.SL.15,  7-Jun-82 12:48:19, Edit by BENSON
% Converted kernel-file-name* to all-kernel-script...
% <PSL.20-INTERP>20-KERNEL-GEN.SL.14,  6-Jun-82 05:29:21, Edit by GRISS
% Add kernel-file-name*


(compiletime (load kernel))
(compiletime (setq *EOLInStringOK T))
(loadtime (imports '(kernel)))

(setq command-file-name* "%w.ctl")

(setq command-file-format*
"define DSK: DSK:, P20:, PI:
S:DEC20-CROSS.EXE
ASMOut ""%w"";
in ""%w.build"";
ASMEnd;
quit;
compile %w.mac, d%w.mac
delete %w.mac, d%w.mac
")

(setq init-file-name* "psl.init")

(setq init-file-format* "(lapin ""%w.init"")
")

(setq all-kernel-script-name* "all-kernel.ctl")

(setq all-kernel-script-format* "submit %w.ctl
")

(setq code-object-file-name* "%w.rel")

(setq data-object-file-name* "d%w.rel")

(setq link-script-name* "psl-link.ctl")

(setq link-script-format*
"cd S:
define DSK:, DSK:, P20:
LINK
/nosymbol
nil.rel
/set:.low.:202
%e
/save s:bpsl.exe
/go
")

(setq script-file-name-separator* "
")

(kernel '(types randm alloc arith debg error eval extra fasl io macro prop
	  symbl sysio tloop main heap))