Artifact 4a21ad5804524f8c1e54d28a97e14e972efe31cf9fd13a6ea1f6f8e84240add1:
- File
psl-1983/20-tests/main2.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: 9267) [annotate] [blame] [check-ins using] [more...]
(SAVEFORCOMPILATION (QUOTE (PROGN))) (SETQ ORDEREDIDLIST!* (QUOTE (PRIN1ID PRIN1INT PRIN1STRING PRIN1PAIR PRTITM PRIN1 PRIN2ID PRIN2STRING PRIN2PAIR PRIN2 TERPRI PRINT PRIN2T PUTC PBLANK PRIN1INTX LONGDIV LONGREMAINDER BYTE QUIT ERROR CHANNELPRIN2 CHANNELWRITECHAR INDEPENDENTWRITECHAR WRITECHAR OUT!* ERRORHEADER ERRORTRAILER FATALERROR STDERROR NONIDERROR PRIN1T TYPEERROR USAGETYPEERROR FN OFFENDER NONNUMBERERROR LAMBINDARGS!* LAMBIND UNBINDN NONINTEGERERROR NONPOSITIVEINTEGERERROR))) (SETQ ORDEREDIDLIST!* (CONS ORDEREDIDLIST!* (LASTPAIR ORDEREDIDLIST!*))) (SETQ NEXTIDNUMBER!* (QUOTE 171)) (SETQ STRINGGENSYM!* (QUOTE "L0182")) (PUT (QUOTE FATALERROR) (QUOTE ENTRYPOINT) (QUOTE "L0102")) (PUT (QUOTE FATALERROR) (QUOTE IDNUMBER) (QUOTE 157)) (PUT (QUOTE ST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ST) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE ST) (QUOTE WVAR) (QUOTE ST)) (PUT (QUOTE ARG14) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG14) (QUOTE ASMSYMBOL) (QUOTE ARG14)) (PUT (QUOTE ARG14) (QUOTE WVAR) (QUOTE ARG14)) (PUT (QUOTE SYMFNC) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMFNC) (QUOTE ASMSYMBOL) (QUOTE SYMFNC)) (PUT (QUOTE SYMFNC) (QUOTE WARRAY) (QUOTE SYMFNC)) (PUT (QUOTE PRIN2ID) (QUOTE ENTRYPOINT) (QUOTE "L0025")) (PUT (QUOTE PRIN2ID) (QUOTE IDNUMBER) (QUOTE 135)) (PUT (QUOTE TERPRI) (QUOTE ENTRYPOINT) (QUOTE TERPRI)) (PUT (QUOTE TERPRI) (QUOTE IDNUMBER) (QUOTE 139)) (PUT (QUOTE MAXOBARRAY) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXOBARRAY) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXOBARRAY) (QUOTE WCONST) (QUOTE 500)) (PUT (QUOTE LAMBINDARGS!*) (QUOTE IDNUMBER) (QUOTE 166)) (PUT (QUOTE LAMBIND) (QUOTE IDNUMBER) (QUOTE 167)) (PUT (QUOTE ARG10) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG10) (QUOTE ASMSYMBOL) (QUOTE ARG10)) (PUT (QUOTE ARG10) (QUOTE WVAR) (QUOTE ARG10)) (PUT (QUOTE LONGDIV) (QUOTE IDNUMBER) (QUOTE 145)) (PUT (QUOTE PUTC) (QUOTE IDNUMBER) (QUOTE 142)) (PUT (QUOTE SYMNAM) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMNAM) (QUOTE ASMSYMBOL) (QUOTE SYMNAM)) (PUT (QUOTE SYMNAM) (QUOTE WARRAY) (QUOTE SYMNAM)) (PUT (QUOTE MAXREALREGS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXREALREGS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXREALREGS) (QUOTE WCONST) (QUOTE 5)) (PUT (QUOTE PRIN2STRING) (QUOTE ENTRYPOINT) (QUOTE "L0028")) (PUT (QUOTE PRIN2STRING) (QUOTE IDNUMBER) (QUOTE 136)) (PUT (QUOTE SYMPRP) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMPRP) (QUOTE ASMSYMBOL) (QUOTE SYMPRP)) (PUT (QUOTE SYMPRP) (QUOTE WARRAY) (QUOTE SYMPRP)) (PUT (QUOTE PRIN1T) (QUOTE IDNUMBER) (QUOTE 160)) (PUT (QUOTE PRIN2) (QUOTE ENTRYPOINT) (QUOTE PRIN2)) (PUT (QUOTE PRIN2) (QUOTE IDNUMBER) (QUOTE 138)) (PUT (QUOTE BITSPERWORD) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BITSPERWORD) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE BITSPERWORD) (QUOTE WCONST) (QUOTE 36)) (PUT (QUOTE STDERROR) (QUOTE ENTRYPOINT) (QUOTE "L0103")) (PUT (QUOTE STDERROR) (QUOTE IDNUMBER) (QUOTE 158)) (PUT (QUOTE ERRORHEADER) (QUOTE ENTRYPOINT) (QUOTE "L0098")) (PUT (QUOTE ERRORHEADER) (QUOTE IDNUMBER) (QUOTE 155)) (PUT (QUOTE ARG13) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG13) (QUOTE ASMSYMBOL) (QUOTE ARG13)) (PUT (QUOTE ARG13) (QUOTE WVAR) (QUOTE ARG13)) (PUT (QUOTE MAXSYMBOLS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXSYMBOLS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXSYMBOLS) (QUOTE WCONST) (QUOTE 500)) (PUT (QUOTE PRIN2PAIR) (QUOTE ENTRYPOINT) (QUOTE "L0042")) (PUT (QUOTE PRIN2PAIR) (QUOTE IDNUMBER) (QUOTE 137)) (PUT (QUOTE ARG9) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG9) (QUOTE ASMSYMBOL) (QUOTE ARG9)) (PUT (QUOTE ARG9) (QUOTE WVAR) (QUOTE ARG9)) (PUT (QUOTE ERROR) (QUOTE ENTRYPOINT) (QUOTE ERROR)) (PUT (QUOTE ERROR) (QUOTE IDNUMBER) (QUOTE 149)) (PUT (QUOTE ARG7) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG7) (QUOTE ASMSYMBOL) (QUOTE ARG7)) (PUT (QUOTE ARG7) (QUOTE WVAR) (QUOTE ARG7)) (PUT (QUOTE CHANNELPRIN2) (QUOTE ENTRYPOINT) (QUOTE "L0093")) (PUT (QUOTE CHANNELPRIN2) (QUOTE IDNUMBER) (QUOTE 150)) (PUT (QUOTE TYPEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0156")) (PUT (QUOTE TYPEERROR) (QUOTE IDNUMBER) (QUOTE 161)) (PUT (QUOTE ARG5) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG5) (QUOTE ASMSYMBOL) (QUOTE ARG5)) (PUT (QUOTE ARG5) (QUOTE WVAR) (QUOTE ARG5)) (PUT (QUOTE ARG3) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG3) (QUOTE ASMSYMBOL) (QUOTE ARG3)) (PUT (QUOTE ARG3) (QUOTE WVAR) (QUOTE ARG3)) (PUT (QUOTE NONINTEGERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0177")) (PUT (QUOTE NONINTEGERERROR) (QUOTE IDNUMBER) (QUOTE 169)) (PUT (QUOTE CHANNELWRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0094")) (PUT (QUOTE CHANNELWRITECHAR) (QUOTE IDNUMBER) (QUOTE 151)) (PUT (QUOTE PRIN1) (QUOTE ENTRYPOINT) (QUOTE PRIN1)) (PUT (QUOTE PRIN1) (QUOTE IDNUMBER) (QUOTE 134)) (PUT (QUOTE ARG1) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG1) (QUOTE ASMSYMBOL) (QUOTE ARG1)) (PUT (QUOTE ARG1) (QUOTE WVAR) (QUOTE ARG1)) (PUT (QUOTE NONPOSITIVEINTEGERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0182")) (PUT (QUOTE NONPOSITIVEINTEGERERROR) (QUOTE IDNUMBER) (QUOTE 170)) (PUT (QUOTE USAGETYPEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0165")) (PUT (QUOTE USAGETYPEERROR) (QUOTE IDNUMBER) (QUOTE 162)) (PUT (QUOTE PRIN1INTX) (QUOTE ENTRYPOINT) (QUOTE "L0021")) (PUT (QUOTE PRIN1INTX) (QUOTE IDNUMBER) (QUOTE 144)) (PUT (QUOTE MAXCHANNELS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXCHANNELS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXCHANNELS) (QUOTE WCONST) (QUOTE 31)) (PUT (QUOTE ARG12) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG12) (QUOTE ASMSYMBOL) (QUOTE ARG12)) (PUT (QUOTE ARG12) (QUOTE WVAR) (QUOTE ARG12)) (PUT (QUOTE OUT!*) (QUOTE IDNUMBER) (QUOTE 154)) (PUT (QUOTE INDEPENDENTWRITECHAR) (QUOTE IDNUMBER) (QUOTE 152)) (PUT (QUOTE PRIN1PAIR) (QUOTE ENTRYPOINT) (QUOTE "L0034")) (PUT (QUOTE PRIN1PAIR) (QUOTE IDNUMBER) (QUOTE 132)) (PUT (QUOTE PRINT) (QUOTE ENTRYPOINT) (QUOTE PRINT)) (PUT (QUOTE PRINT) (QUOTE IDNUMBER) (QUOTE 140)) (PUT (QUOTE FN) (QUOTE IDNUMBER) (QUOTE 163)) (PUT (QUOTE NONNUMBERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0172")) (PUT (QUOTE NONNUMBERERROR) (QUOTE IDNUMBER) (QUOTE 165)) (PUT (QUOTE PRTITM) (QUOTE ENTRYPOINT) (QUOTE PRTITM)) (PUT (QUOTE PRTITM) (QUOTE IDNUMBER) (QUOTE 133)) (PUT (QUOTE BYTE) (QUOTE IDNUMBER) (QUOTE 147)) (PUT (QUOTE PRIN1INT) (QUOTE ENTRYPOINT) (QUOTE "L0017")) (PUT (QUOTE PRIN1INT) (QUOTE IDNUMBER) (QUOTE 130)) (PUT (QUOTE STACKLOWERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE STACKLOWERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0001")) (PUT (QUOTE STACKLOWERBOUND) (QUOTE WVAR) (QUOTE STACKLOWERBOUND)) (PUT (QUOTE PRIN1ID) (QUOTE ENTRYPOINT) (QUOTE "L0024")) (PUT (QUOTE PRIN1ID) (QUOTE IDNUMBER) (QUOTE 129)) (PUT (QUOTE MAXARGS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXARGS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXARGS) (QUOTE WCONST) (QUOTE 15)) (PUT (QUOTE ARG15) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG15) (QUOTE ASMSYMBOL) (QUOTE ARG15)) (PUT (QUOTE ARG15) (QUOTE WVAR) (QUOTE ARG15)) (PUT (QUOTE LONGREMAINDER) (QUOTE IDNUMBER) (QUOTE 146)) (PUT (QUOTE SYMVAL) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMVAL) (QUOTE ASMSYMBOL) (QUOTE SYMVAL)) (PUT (QUOTE SYMVAL) (QUOTE WARRAY) (QUOTE SYMVAL)) (PUT (QUOTE ARGUMENTBLOCK) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARGUMENTBLOCK) (QUOTE ASMSYMBOL) (QUOTE "L0004")) (PUT (QUOTE ARGUMENTBLOCK) (QUOTE WARRAY) (QUOTE ARGUMENTBLOCK)) (PUT (QUOTE ERRORTRAILER) (QUOTE ENTRYPOINT) (QUOTE "L0099")) (PUT (QUOTE ERRORTRAILER) (QUOTE IDNUMBER) (QUOTE 156)) (PUT (QUOTE ARG11) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG11) (QUOTE ASMSYMBOL) (QUOTE ARG11)) (PUT (QUOTE ARG11) (QUOTE WVAR) (QUOTE ARG11)) (PUT (QUOTE OFFENDER) (QUOTE IDNUMBER) (QUOTE 164)) (PUT (QUOTE ARG8) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG8) (QUOTE ASMSYMBOL) (QUOTE ARG8)) (PUT (QUOTE ARG8) (QUOTE WVAR) (QUOTE ARG8)) (PUT (QUOTE WRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0095")) (PUT (QUOTE WRITECHAR) (QUOTE IDNUMBER) (QUOTE 153)) (PUT (QUOTE NEXTSYMBOL) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE NEXTSYMBOL) (QUOTE ASMSYMBOL) (QUOTE "L0003")) (PUT (QUOTE NEXTSYMBOL) (QUOTE WVAR) (QUOTE NEXTSYMBOL)) (PUT (QUOTE PRIN1STRING) (QUOTE ENTRYPOINT) (QUOTE "L0026")) (PUT (QUOTE PRIN1STRING) (QUOTE IDNUMBER) (QUOTE 131)) (PUT (QUOTE UNBINDN) (QUOTE IDNUMBER) (QUOTE 168)) (PUT (QUOTE ARG6) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG6) (QUOTE ASMSYMBOL) (QUOTE ARG6)) (PUT (QUOTE ARG6) (QUOTE WVAR) (QUOTE ARG6)) (PUT (QUOTE NONIDERROR) (QUOTE ENTRYPOINT) (QUOTE "L0106")) (PUT (QUOTE NONIDERROR) (QUOTE IDNUMBER) (QUOTE 159)) (PUT (QUOTE PBLANK) (QUOTE ENTRYPOINT) (QUOTE PBLANK)) (PUT (QUOTE PBLANK) (QUOTE IDNUMBER) (QUOTE 143)) (PUT (QUOTE ARG4) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG4) (QUOTE ASMSYMBOL) (QUOTE ARG4)) (PUT (QUOTE ARG4) (QUOTE WVAR) (QUOTE ARG4)) (PUT (QUOTE PRIN2T) (QUOTE ENTRYPOINT) (QUOTE PRIN2T)) (PUT (QUOTE PRIN2T) (QUOTE IDNUMBER) (QUOTE 141)) (PUT (QUOTE STACKUPPERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE STACKUPPERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0002")) (PUT (QUOTE STACKUPPERBOUND) (QUOTE WVAR) (QUOTE STACKUPPERBOUND)) (PUT (QUOTE ARG2) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG2) (QUOTE ASMSYMBOL) (QUOTE ARG2)) (PUT (QUOTE ARG2) (QUOTE WVAR) (QUOTE ARG2)) (PUT (QUOTE QUIT) (QUOTE IDNUMBER) (QUOTE 148))