Artifact ad003746ff06d8e4c2c9490a0caf22b1fc92f10a41078c80979e7643b090ce45:

• File psl-1983/20-comp/non-kl-comp.sl — 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: 947) [annotate] [blame] [check-ins using] [more...]

%
% NON-KL-COMP.SL - Patches to compiler for KI processor
% 
% Author:      Eric Benson
%              Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        10 May 1982
% Copyright (c) 1982 University of Utah
%

% <PSL.COMP-20>NON-KL-COMP.SL.6, 13-Oct-82 13:39:27, Edit by BENSON
% Removed unnecessary patch of floating point arith for DMOVE

(setq system_list* (delete 'KL10 system_list*))_

(DefCMacro !*Alloc
	   ((ZeroP))
	   ((add (REG st) (lit (halfword ARGONE ARGONE)))
	    (jumpge (REG st) (Entry StackOverflow))))

(DefCMacro !*DeAlloc
	   ((ZeroP))
	   ((sub (REG st) (lit (halfword ARGONE ARGONE)))))

(ForEach X in '(Byte PutByte HalfWord PutHalfWord BitTable PutBitTable) do
  (RemProp X 'OpenCode)
  (RemProp X 'Destroys))

(RemProp 'AdjustStackPointer 'OpenFn)

(dm AdjustStackPointer (U)
  (list 'WPlus2
	(cadr U)
	(list 'WPlus2 (caddr U) (list 'WShift (caddr U) 18))))