Artifact 18859a06a5df0f7247595e6d7a7ed2b82b970c940f5bcb40c5a3a6a51f05ef0f:

• File psl-1983/3-1/tests/20/20-test-global-data.red — 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: 1082) [annotate] [blame] [check-ins using] [more...]

% 20-TEST-GLOBAL-DATA - Data used by everyone, test version
% 
% Author:      Eric Benson, M Griss, S Lowder
%              Computer Science Dept.
%              University of Utah
% Date:        1 September 1981
% Copyright (c) 1981 University of Utah

on SysLisp;

% For testing with MAINn, see P20T:XXX-HEADER.RED
% Want a small SYMTAB and HEAP

exported WConst MaxSymbols = 800,	% Use 500 upto MAIN7
 		MaxChannels = 31,
		MaxObArray = 800,	% Use 500 upto MAIN7
                MaxRealRegs = 5,
		MaxArgs = 15;

% BitPositions for testing, etc:

exported Wconst BitsPerWord=36;

% The STACK stuff
external WVAR ST, StackLowerBound, StackUpperBound;

% "standard" Symbol table Data structures, handled
% specially in Compiler

external Warray Symnam,SymVal,SymFnc,SymPrp;
external WVar NextSymbol;

% For extra arguments not in Real registers
external WArray ArgumentBlock;

% For the Foreign Function Calling Protocol

external Wvar Arg1,Arg2,Arg3,Arg4,Arg5,Arg6,Arg7,Arg8,Arg9,
              Arg10,Arg11,Arg12,Arg13,Arg14,Arg15;

external Warray HashTable;

off SysLisp;

END;