Artifact e4d6777ae6cea4e82d8b442d80ebcaf3d0f6d65fd7d189d3aa712247302f2b9a:

• File psl-1983/20-tests/main1.sym — 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: 4329) [annotate] [blame] [check-ins using] [more...]

(SAVEFORCOMPILATION '(PROGN))
(SETQ ORDEREDIDLIST!* 'NIL)
(SETQ ORDEREDIDLIST!* (CONS ORDEREDIDLIST!* (LASTPAIR ORDEREDIDLIST!*)))
(SETQ NEXTIDNUMBER!* '129)
(SETQ STRINGGENSYM!* '"L0004")
(PUT 'INFBITLENGTH 'SCOPE 'EXTERNAL)
(PUT 'INFBITLENGTH 'ASMSYMBOL 'NIL)
(PUT 'INFBITLENGTH 'WCONST '18)
(PUT 'ST 'SCOPE 'EXTERNAL)
(PUT 'ST 'ASMSYMBOL 'NIL)
(PUT 'ST 'WVAR 'ST)
(PUT 'ARG14 'SCOPE 'EXTERNAL)
(PUT 'ARG14 'ASMSYMBOL 'ARG14)
(PUT 'ARG14 'WVAR 'ARG14)
(PUT 'SYMFNC 'SCOPE 'EXTERNAL)
(PUT 'SYMFNC 'ASMSYMBOL 'SYMFNC)
(PUT 'SYMFNC 'WARRAY 'SYMFNC)
(PUT 'MAXOBARRAY 'SCOPE 'EXTERNAL)
(PUT 'MAXOBARRAY 'ASMSYMBOL 'NIL)
(PUT 'MAXOBARRAY 'WCONST '500)
(PUT 'ARG10 'SCOPE 'EXTERNAL)
(PUT 'ARG10 'ASMSYMBOL 'ARG10)
(PUT 'ARG10 'WVAR 'ARG10)
(PUT 'SYMNAM 'SCOPE 'EXTERNAL)
(PUT 'SYMNAM 'ASMSYMBOL 'SYMNAM)
(PUT 'SYMNAM 'WARRAY 'SYMNAM)
(PUT 'MAXREALREGS 'SCOPE 'EXTERNAL)
(PUT 'MAXREALREGS 'ASMSYMBOL 'NIL)
(PUT 'MAXREALREGS 'WCONST '5)
(PUT 'SYMPRP 'SCOPE 'EXTERNAL)
(PUT 'SYMPRP 'ASMSYMBOL 'SYMPRP)
(PUT 'SYMPRP 'WARRAY 'SYMPRP)
(PUT 'TAGBITLENGTH 'SCOPE 'EXTERNAL)
(PUT 'TAGBITLENGTH 'ASMSYMBOL 'NIL)
(PUT 'TAGBITLENGTH 'WCONST '5)
(PUT 'BITSPERWORD 'SCOPE 'EXTERNAL)
(PUT 'BITSPERWORD 'ASMSYMBOL 'NIL)
(PUT 'BITSPERWORD 'WCONST '36)
(PUT 'ARG13 'SCOPE 'EXTERNAL)
(PUT 'ARG13 'ASMSYMBOL 'ARG13)
(PUT 'ARG13 'WVAR 'ARG13)
(PUT 'MAXSYMBOLS 'SCOPE 'EXTERNAL)
(PUT 'MAXSYMBOLS 'ASMSYMBOL 'NIL)
(PUT 'MAXSYMBOLS 'WCONST '500)
(PUT 'ARG9 'SCOPE 'EXTERNAL)
(PUT 'ARG9 'ASMSYMBOL 'ARG9)
(PUT 'ARG9 'WVAR 'ARG9)
(PUT 'GCSTARTINGBIT 'SCOPE 'EXTERNAL)
(PUT 'GCSTARTINGBIT 'ASMSYMBOL 'NIL)
(PUT 'GCSTARTINGBIT 'WCONST '5)
(PUT 'ARG7 'SCOPE 'EXTERNAL)
(PUT 'ARG7 'ASMSYMBOL 'ARG7)
(PUT 'ARG7 'WVAR 'ARG7)
(PUT 'ARG5 'SCOPE 'EXTERNAL)
(PUT 'ARG5 'ASMSYMBOL 'ARG5)
(PUT 'ARG5 'WVAR 'ARG5)
(PUT 'ADDRESSINGUNITSPERFUNCTIONCELL 'SCOPE 'EXTERNAL)
(PUT 'ADDRESSINGUNITSPERFUNCTIONCELL 'ASMSYMBOL 'NIL)
(PUT 'ADDRESSINGUNITSPERFUNCTIONCELL 'WCONST '1)
(PUT 'ARG3 'SCOPE 'EXTERNAL)
(PUT 'ARG3 'ASMSYMBOL 'ARG3)
(PUT 'ARG3 'WVAR 'ARG3)
(PUT 'ARG1 'SCOPE 'EXTERNAL)
(PUT 'ARG1 'ASMSYMBOL 'ARG1)
(PUT 'ARG1 'WVAR 'ARG1)
(PUT 'BPSSIZE 'SCOPE 'EXTERNAL)
(PUT 'BPSSIZE 'ASMSYMBOL 'NIL)
(PUT 'BPSSIZE 'WCONST '40)
(PUT 'GCBITLENGTH 'SCOPE 'EXTERNAL)
(PUT 'GCBITLENGTH 'ASMSYMBOL 'NIL)
(PUT 'GCBITLENGTH 'WCONST '13)
(PUT 'MAXCHANNELS 'SCOPE 'EXTERNAL)
(PUT 'MAXCHANNELS 'ASMSYMBOL 'NIL)
(PUT 'MAXCHANNELS 'WCONST '31)
(PUT 'ARG12 'SCOPE 'EXTERNAL)
(PUT 'ARG12 'ASMSYMBOL 'ARG12)
(PUT 'ARG12 'WVAR 'ARG12)
(PUT 'TAGSTARTINGBIT 'SCOPE 'EXTERNAL)
(PUT 'TAGSTARTINGBIT 'ASMSYMBOL 'NIL)
(PUT 'TAGSTARTINGBIT 'WCONST '0)
(PUT 'CHARACTERSPERWORD 'SCOPE 'EXTERNAL)
(PUT 'CHARACTERSPERWORD 'ASMSYMBOL 'NIL)
(PUT 'CHARACTERSPERWORD 'WCONST '5)
(PUT 'STACKDIRECTION 'SCOPE 'EXTERNAL)
(PUT 'STACKDIRECTION 'ASMSYMBOL 'NIL)
(PUT 'STACKDIRECTION 'WCONST '1)
(PUT 'ADDRESSINGUNITSPERITEM 'SCOPE 'EXTERNAL)
(PUT 'ADDRESSINGUNITSPERITEM 'ASMSYMBOL 'NIL)
(PUT 'ADDRESSINGUNITSPERITEM 'WCONST '1)
(PUT 'HEAPSIZE 'SCOPE 'EXTERNAL)
(PUT 'HEAPSIZE 'ASMSYMBOL 'NIL)
(PUT 'HEAPSIZE 'WCONST '50000)
(PUT 'STACKLOWERBOUND 'SCOPE 'EXTERNAL)
(PUT 'STACKLOWERBOUND 'ASMSYMBOL '"L0001")
(PUT 'STACKLOWERBOUND 'WVAR 'STACKLOWERBOUND)
(PUT 'MAXARGS 'SCOPE 'EXTERNAL)
(PUT 'MAXARGS 'ASMSYMBOL 'NIL)
(PUT 'MAXARGS 'WCONST '15)
(PUT 'ARG15 'SCOPE 'EXTERNAL)
(PUT 'ARG15 'ASMSYMBOL 'ARG15)
(PUT 'ARG15 'WVAR 'ARG15)
(PUT 'SYMVAL 'SCOPE 'EXTERNAL)
(PUT 'SYMVAL 'ASMSYMBOL 'SYMVAL)
(PUT 'SYMVAL 'WARRAY 'SYMVAL)
(PUT 'ARGUMENTBLOCK 'SCOPE 'EXTERNAL)
(PUT 'ARGUMENTBLOCK 'ASMSYMBOL '"L0004")
(PUT 'ARGUMENTBLOCK 'WARRAY 'ARGUMENTBLOCK)
(PUT 'ARG11 'SCOPE 'EXTERNAL)
(PUT 'ARG11 'ASMSYMBOL 'ARG11)
(PUT 'ARG11 'WVAR 'ARG11)
(PUT 'ARG8 'SCOPE 'EXTERNAL)
(PUT 'ARG8 'ASMSYMBOL 'ARG8)
(PUT 'ARG8 'WVAR 'ARG8)
(PUT 'NEXTSYMBOL 'SCOPE 'EXTERNAL)
(PUT 'NEXTSYMBOL 'ASMSYMBOL '"L0003")
(PUT 'NEXTSYMBOL 'WVAR 'NEXTSYMBOL)
(PUT 'ARG6 'SCOPE 'EXTERNAL)
(PUT 'ARG6 'ASMSYMBOL 'ARG6)
(PUT 'ARG6 'WVAR 'ARG6)
(PUT 'INFSTARTINGBIT 'SCOPE 'EXTERNAL)
(PUT 'INFSTARTINGBIT 'ASMSYMBOL 'NIL)
(PUT 'INFSTARTINGBIT 'WCONST '18)
(PUT 'ARG4 'SCOPE 'EXTERNAL)
(PUT 'ARG4 'ASMSYMBOL 'ARG4)
(PUT 'ARG4 'WVAR 'ARG4)
(PUT 'STACKUPPERBOUND 'SCOPE 'EXTERNAL)
(PUT 'STACKUPPERBOUND 'ASMSYMBOL '"L0002")
(PUT 'STACKUPPERBOUND 'WVAR 'STACKUPPERBOUND)
(PUT 'ARG2 'SCOPE 'EXTERNAL)
(PUT 'ARG2 'ASMSYMBOL 'ARG2)
(PUT 'ARG2 'WVAR 'ARG2)