Artifact ce461e890a67830d7d6488c58b83bd2f2a89397ec15f56c6a42c339ad51ae213:
- File
psl-1983/3-1/tests/20/main4.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: 19732) [annotate] [blame] [check-ins using] [more...]
(SAVEFORCOMPILATION (QUOTE (PROGN))) (SETQ ORDEREDIDLIST!* (QUOTE (PUTC CHANNELWRITECHAR INDEPENDENTWRITECHAR WRITECHAR OUT!* PRIN1ID PRIN1INT PRIN1STRING PRIN1PAIR PRTITM PRIN1 PRIN2ID PRIN2STRING PRIN2PAIR PRIN2 TERPRI PRINT PRIN2T PBLANK PRIN1INTX LONGDIV LONGREMAINDER BYTE CHANNELPRIN2 PRINTF ERRORPRINTF LIST5 XCONS BLDMSG ERRPRIN ERRORHEADER ERRORTRAILER ERROR PRIN2L QUIT FATALERROR STDERROR TYPEERROR USAGETYPEERROR INDEXERROR NONPAIRERROR NONIDERROR NONNUMBERERROR NONINTEGERERROR NONPOSITIVEINTEGERERROR NONCHARACTERERROR NONSTRINGERROR NONVECTORERROR NONWORDS NONSEQUENCEERROR NONIOCHANNELERROR WQUOTIENT !%RECLAIM GTHEAP DELHEAP GTSTR GTBPS GTCONSTSTR GTHALFWORDS GTVECT GTEVECT GTWRDS GTFIXN GTFLTN RECLAIM GTID DELBPS GTWARRAY DELWARRAY HARDCONS CONS NCONS MKVECT LIST4 LIST3 LIST2 PUTBYTE MKSTRING EQSTR INITREAD !*RAISE CH!* TOK!* TOKTYPE!* DEBUG SETRAISE CLEARWHITE CLEARCOMMENT READSTR DIGITP READINT ALPHAESCP READID RATOM WHITEP GETC LONGTIMES BUFFERTOSTRING RAISECHAR ALPHANUMESCP INTERN ESCAPEP ALPHAP LOWERCASEP UPPERCASEP ALPHANUMP LOOKUPSTRING NEWID INITNEWID MAKEFUNBOUND PUTHALFWORD MAPOBL PRINTFEXPRS PRINT1FEXPR FEXPRP PRINTFUNCTIONS PRINT1FUNCTION FUNBOUNDP INITOBLIST READ1 READ READLIST QUOTE))) (SETQ ORDEREDIDLIST!* (CONS ORDEREDIDLIST!* (LASTPAIR ORDEREDIDLIST!*))) (SETQ NEXTIDNUMBER!* (QUOTE 252)) (SETQ STRINGGENSYM!* (QUOTE "L0307")) (PUT (QUOTE PRINT1FEXPR) (QUOTE ENTRYPOINT) (QUOTE "L0285")) (PUT (QUOTE PRINT1FEXPR) (QUOTE IDNUMBER) (QUOTE 242)) (PUT (QUOTE GTWRDS) (QUOTE ENTRYPOINT) (QUOTE GTWRDS)) (PUT (QUOTE GTWRDS) (QUOTE IDNUMBER) (QUOTE 190)) (PUT (QUOTE READINT) (QUOTE ENTRYPOINT) (QUOTE "L0212")) (PUT (QUOTE READINT) (QUOTE IDNUMBER) (QUOTE 219)) (PUT (QUOTE DELHEAP) (QUOTE ENTRYPOINT) (QUOTE "L0147")) (PUT (QUOTE DELHEAP) (QUOTE IDNUMBER) (QUOTE 183)) (PUT (QUOTE FUNBOUNDP) (QUOTE IDNUMBER) (QUOTE 246)) (PUT (QUOTE FATALERROR) (QUOTE ENTRYPOINT) (QUOTE "L0078")) (PUT (QUOTE FATALERROR) (QUOTE IDNUMBER) (QUOTE 164)) (PUT (QUOTE ST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ST) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE ST) (QUOTE WVAR) (QUOTE ST)) (PUT (QUOTE PRIN2L) (QUOTE ENTRYPOINT) (QUOTE PRIN2L)) (PUT (QUOTE PRIN2L) (QUOTE IDNUMBER) (QUOTE 162)) (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 "L0028")) (PUT (QUOTE PRIN2ID) (QUOTE IDNUMBER) (QUOTE 140)) (PUT (QUOTE TERPRI) (QUOTE ENTRYPOINT) (QUOTE TERPRI)) (PUT (QUOTE TERPRI) (QUOTE IDNUMBER) (QUOTE 144)) (PUT (QUOTE MAXOBARRAY) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXOBARRAY) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXOBARRAY) (QUOTE WCONST) (QUOTE 800)) (PUT (QUOTE TOK!*) (QUOTE IDNUMBER) (QUOTE 211)) (PUT (QUOTE ARG10) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG10) (QUOTE ASMSYMBOL) (QUOTE ARG10)) (PUT (QUOTE ARG10) (QUOTE WVAR) (QUOTE ARG10)) (PUT (QUOTE LIST2) (QUOTE ENTRYPOINT) (QUOTE LIST2)) (PUT (QUOTE LIST2) (QUOTE IDNUMBER) (QUOTE 204)) (PUT (QUOTE LONGDIV) (QUOTE IDNUMBER) (QUOTE 149)) (PUT (QUOTE WHITEP) (QUOTE ENTRYPOINT) (QUOTE WHITEP)) (PUT (QUOTE WHITEP) (QUOTE IDNUMBER) (QUOTE 223)) (PUT (QUOTE NCONS) (QUOTE ENTRYPOINT) (QUOTE NCONS)) (PUT (QUOTE NCONS) (QUOTE IDNUMBER) (QUOTE 200)) (PUT (QUOTE PUTC) (QUOTE IDNUMBER) (QUOTE 129)) (PUT (QUOTE SYMNAM) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMNAM) (QUOTE ASMSYMBOL) (QUOTE SYMNAM)) (PUT (QUOTE SYMNAM) (QUOTE WARRAY) (QUOTE SYMNAM)) (PUT (QUOTE MAPOBL) (QUOTE ENTRYPOINT) (QUOTE MAPOBL)) (PUT (QUOTE MAPOBL) (QUOTE IDNUMBER) (QUOTE 240)) (PUT (QUOTE CLEARWHITE) (QUOTE ENTRYPOINT) (QUOTE "L0206")) (PUT (QUOTE CLEARWHITE) (QUOTE IDNUMBER) (QUOTE 215)) (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 "L0031")) (PUT (QUOTE PRIN2STRING) (QUOTE IDNUMBER) (QUOTE 141)) (PUT (QUOTE CONS) (QUOTE ENTRYPOINT) (QUOTE CONS)) (PUT (QUOTE CONS) (QUOTE IDNUMBER) (QUOTE 199)) (PUT (QUOTE HEAPLOWERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPLOWERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0136")) (PUT (QUOTE HEAPLOWERBOUND) (QUOTE WVAR) (QUOTE HEAPLOWERBOUND)) (PUT (QUOTE GTSTR) (QUOTE ENTRYPOINT) (QUOTE GTSTR)) (PUT (QUOTE GTSTR) (QUOTE IDNUMBER) (QUOTE 184)) (PUT (QUOTE TOKTYPE!*) (QUOTE IDNUMBER) (QUOTE 212)) (PUT (QUOTE GTHEAP) (QUOTE ENTRYPOINT) (QUOTE GTHEAP)) (PUT (QUOTE GTHEAP) (QUOTE IDNUMBER) (QUOTE 182)) (PUT (QUOTE QUOTE) (QUOTE IDNUMBER) (QUOTE 251)) (PUT (QUOTE READSTR) (QUOTE ENTRYPOINT) (QUOTE "L0221")) (PUT (QUOTE READSTR) (QUOTE IDNUMBER) (QUOTE 217)) (PUT (QUOTE ERRPRIN) (QUOTE ENTRYPOINT) (QUOTE "L0062")) (PUT (QUOTE ERRPRIN) (QUOTE IDNUMBER) (QUOTE 158)) (PUT (QUOTE HEAPLAST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPLAST) (QUOTE ASMSYMBOL) (QUOTE "L0138")) (PUT (QUOTE HEAPLAST) (QUOTE WVAR) (QUOTE HEAPLAST)) (PUT (QUOTE NEXTBPS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE NEXTBPS) (QUOTE ASMSYMBOL) (QUOTE "L0141")) (PUT (QUOTE NEXTBPS) (QUOTE WVAR) (QUOTE NEXTBPS)) (PUT (QUOTE ERRORPRINTF) (QUOTE ENTRYPOINT) (QUOTE "L0058")) (PUT (QUOTE ERRORPRINTF) (QUOTE IDNUMBER) (QUOTE 154)) (PUT (QUOTE HEAPUPPERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPUPPERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0137")) (PUT (QUOTE HEAPUPPERBOUND) (QUOTE WVAR) (QUOTE HEAPUPPERBOUND)) (PUT (QUOTE SYMPRP) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE SYMPRP) (QUOTE ASMSYMBOL) (QUOTE SYMPRP)) (PUT (QUOTE SYMPRP) (QUOTE WARRAY) (QUOTE SYMPRP)) (PUT (QUOTE PUTBYTE) (QUOTE IDNUMBER) (QUOTE 205)) (PUT (QUOTE EQSTR) (QUOTE ENTRYPOINT) (QUOTE EQSTR)) (PUT (QUOTE EQSTR) (QUOTE IDNUMBER) (QUOTE 207)) (PUT (QUOTE PRIN2) (QUOTE ENTRYPOINT) (QUOTE PRIN2)) (PUT (QUOTE PRIN2) (QUOTE IDNUMBER) (QUOTE 143)) (PUT (QUOTE GTCONSTSTR) (QUOTE ENTRYPOINT) (QUOTE "L0149")) (PUT (QUOTE GTCONSTSTR) (QUOTE IDNUMBER) (QUOTE 186)) (PUT (QUOTE HEAPTRAPBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPTRAPBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0140")) (PUT (QUOTE HEAPTRAPBOUND) (QUOTE WVAR) (QUOTE HEAPTRAPBOUND)) (PUT (QUOTE ALPHANUMP) (QUOTE ENTRYPOINT) (QUOTE "L0254")) (PUT (QUOTE ALPHANUMP) (QUOTE IDNUMBER) (QUOTE 234)) (PUT (QUOTE RATOM) (QUOTE ENTRYPOINT) (QUOTE RATOM)) (PUT (QUOTE RATOM) (QUOTE IDNUMBER) (QUOTE 222)) (PUT (QUOTE !*RAISE) (QUOTE IDNUMBER) (QUOTE 209)) (PUT (QUOTE ALPHANUMESCP) (QUOTE ENTRYPOINT) (QUOTE "L0256")) (PUT (QUOTE ALPHANUMESCP) (QUOTE IDNUMBER) (QUOTE 228)) (PUT (QUOTE ALPHAP) (QUOTE ENTRYPOINT) (QUOTE ALPHAP)) (PUT (QUOTE ALPHAP) (QUOTE IDNUMBER) (QUOTE 231)) (PUT (QUOTE LONGTIMES) (QUOTE IDNUMBER) (QUOTE 225)) (PUT (QUOTE BITSPERWORD) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE BITSPERWORD) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE BITSPERWORD) (QUOTE WCONST) (QUOTE 36)) (PUT (QUOTE GTHALFWORDS) (QUOTE ENTRYPOINT) (QUOTE "L0150")) (PUT (QUOTE GTHALFWORDS) (QUOTE IDNUMBER) (QUOTE 187)) (PUT (QUOTE LIST5) (QUOTE ENTRYPOINT) (QUOTE LIST5)) (PUT (QUOTE LIST5) (QUOTE IDNUMBER) (QUOTE 155)) (PUT (QUOTE STDERROR) (QUOTE ENTRYPOINT) (QUOTE "L0079")) (PUT (QUOTE STDERROR) (QUOTE IDNUMBER) (QUOTE 165)) (PUT (QUOTE ERRORHEADER) (QUOTE ENTRYPOINT) (QUOTE "L0065")) (PUT (QUOTE ERRORHEADER) (QUOTE IDNUMBER) (QUOTE 159)) (PUT (QUOTE ARG13) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG13) (QUOTE ASMSYMBOL) (QUOTE ARG13)) (PUT (QUOTE ARG13) (QUOTE WVAR) (QUOTE ARG13)) (PUT (QUOTE GTFLTN) (QUOTE ENTRYPOINT) (QUOTE GTFLTN)) (PUT (QUOTE GTFLTN) (QUOTE IDNUMBER) (QUOTE 192)) (PUT (QUOTE MAXSYMBOLS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE MAXSYMBOLS) (QUOTE ASMSYMBOL) (QUOTE NIL)) (PUT (QUOTE MAXSYMBOLS) (QUOTE WCONST) (QUOTE 800)) (PUT (QUOTE NONCHARACTERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0120")) (PUT (QUOTE NONCHARACTERERROR) (QUOTE IDNUMBER) (QUOTE 174)) (PUT (QUOTE PRIN2PAIR) (QUOTE ENTRYPOINT) (QUOTE "L0045")) (PUT (QUOTE PRIN2PAIR) (QUOTE IDNUMBER) (QUOTE 142)) (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 161)) (PUT (QUOTE INITOBLIST) (QUOTE ENTRYPOINT) (QUOTE "L0292")) (PUT (QUOTE INITOBLIST) (QUOTE IDNUMBER) (QUOTE 247)) (PUT (QUOTE HARDCONS) (QUOTE ENTRYPOINT) (QUOTE "L0167")) (PUT (QUOTE HARDCONS) (QUOTE IDNUMBER) (QUOTE 198)) (PUT (QUOTE GTBPS) (QUOTE ENTRYPOINT) (QUOTE GTBPS)) (PUT (QUOTE GTBPS) (QUOTE IDNUMBER) (QUOTE 185)) (PUT (QUOTE FEXPRP) (QUOTE IDNUMBER) (QUOTE 243)) (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 "L0055")) (PUT (QUOTE CHANNELPRIN2) (QUOTE IDNUMBER) (QUOTE 152)) (PUT (QUOTE DELWARRAY) (QUOTE ENTRYPOINT) (QUOTE "L0165")) (PUT (QUOTE DELWARRAY) (QUOTE IDNUMBER) (QUOTE 197)) (PUT (QUOTE CH!*) (QUOTE IDNUMBER) (QUOTE 210)) (PUT (QUOTE TYPEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0086")) (PUT (QUOTE TYPEERROR) (QUOTE IDNUMBER) (QUOTE 166)) (PUT (QUOTE ARG5) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG5) (QUOTE ASMSYMBOL) (QUOTE ARG5)) (PUT (QUOTE ARG5) (QUOTE WVAR) (QUOTE ARG5)) (PUT (QUOTE UPPERCASEP) (QUOTE ENTRYPOINT) (QUOTE "L0242")) (PUT (QUOTE UPPERCASEP) (QUOTE IDNUMBER) (QUOTE 233)) (PUT (QUOTE NONWORDS) (QUOTE ENTRYPOINT) (QUOTE "L0129")) (PUT (QUOTE NONWORDS) (QUOTE IDNUMBER) (QUOTE 177)) (PUT (QUOTE LOOKUPSTRING) (QUOTE ENTRYPOINT) (QUOTE "L0273")) (PUT (QUOTE LOOKUPSTRING) (QUOTE IDNUMBER) (QUOTE 235)) (PUT (QUOTE INDEXERROR) (QUOTE ENTRYPOINT) (QUOTE "L0102")) (PUT (QUOTE INDEXERROR) (QUOTE IDNUMBER) (QUOTE 168)) (PUT (QUOTE INITNEWID) (QUOTE ENTRYPOINT) (QUOTE "L0265")) (PUT (QUOTE INITNEWID) (QUOTE IDNUMBER) (QUOTE 237)) (PUT (QUOTE MKVECT) (QUOTE ENTRYPOINT) (QUOTE MKVECT)) (PUT (QUOTE MKVECT) (QUOTE IDNUMBER) (QUOTE 201)) (PUT (QUOTE ARG3) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG3) (QUOTE ASMSYMBOL) (QUOTE ARG3)) (PUT (QUOTE ARG3) (QUOTE WVAR) (QUOTE ARG3)) (PUT (QUOTE DIGITP) (QUOTE ENTRYPOINT) (QUOTE DIGITP)) (PUT (QUOTE DIGITP) (QUOTE IDNUMBER) (QUOTE 218)) (PUT (QUOTE NONINTEGERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0114")) (PUT (QUOTE NONINTEGERERROR) (QUOTE IDNUMBER) (QUOTE 172)) (PUT (QUOTE CHANNELWRITECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0006")) (PUT (QUOTE CHANNELWRITECHAR) (QUOTE IDNUMBER) (QUOTE 130)) (PUT (QUOTE PRIN1) (QUOTE ENTRYPOINT) (QUOTE PRIN1)) (PUT (QUOTE PRIN1) (QUOTE IDNUMBER) (QUOTE 139)) (PUT (QUOTE ARG1) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG1) (QUOTE ASMSYMBOL) (QUOTE ARG1)) (PUT (QUOTE ARG1) (QUOTE WVAR) (QUOTE ARG1)) (PUT (QUOTE GETC) (QUOTE IDNUMBER) (QUOTE 224)) (PUT (QUOTE NONPOSITIVEINTEGERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0117")) (PUT (QUOTE NONPOSITIVEINTEGERERROR) (QUOTE IDNUMBER) (QUOTE 173)) (PUT (QUOTE NONVECTORERROR) (QUOTE ENTRYPOINT) (QUOTE "L0126")) (PUT (QUOTE NONVECTORERROR) (QUOTE IDNUMBER) (QUOTE 176)) (PUT (QUOTE WQUOTIENT) (QUOTE IDNUMBER) (QUOTE 180)) (PUT (QUOTE USAGETYPEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0097")) (PUT (QUOTE USAGETYPEERROR) (QUOTE IDNUMBER) (QUOTE 167)) (PUT (QUOTE LIST4) (QUOTE ENTRYPOINT) (QUOTE LIST4)) (PUT (QUOTE LIST4) (QUOTE IDNUMBER) (QUOTE 202)) (PUT (QUOTE PRIN1INTX) (QUOTE ENTRYPOINT) (QUOTE "L0024")) (PUT (QUOTE PRIN1INTX) (QUOTE IDNUMBER) (QUOTE 148)) (PUT (QUOTE PRINT1FUNCTION) (QUOTE ENTRYPOINT) (QUOTE "L0289")) (PUT (QUOTE PRINT1FUNCTION) (QUOTE IDNUMBER) (QUOTE 245)) (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 NONSTRINGERROR) (QUOTE ENTRYPOINT) (QUOTE "L0123")) (PUT (QUOTE NONSTRINGERROR) (QUOTE IDNUMBER) (QUOTE 175)) (PUT (QUOTE OUT!*) (QUOTE IDNUMBER) (QUOTE 133)) (PUT (QUOTE HEAPPREVIOUSLAST) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HEAPPREVIOUSLAST) (QUOTE ASMSYMBOL) (QUOTE "L0139")) (PUT (QUOTE HEAPPREVIOUSLAST) (QUOTE WVAR) (QUOTE HEAPPREVIOUSLAST)) (PUT (QUOTE INDEPENDENTWRITECHAR) (QUOTE IDNUMBER) (QUOTE 131)) (PUT (QUOTE PRIN1PAIR) (QUOTE ENTRYPOINT) (QUOTE "L0037")) (PUT (QUOTE PRIN1PAIR) (QUOTE IDNUMBER) (QUOTE 137)) (PUT (QUOTE PRINTF) (QUOTE ENTRYPOINT) (QUOTE PRINTF)) (PUT (QUOTE PRINTF) (QUOTE IDNUMBER) (QUOTE 153)) (PUT (QUOTE PRINT) (QUOTE ENTRYPOINT) (QUOTE PRINT)) (PUT (QUOTE PRINT) (QUOTE IDNUMBER) (QUOTE 145)) (PUT (QUOTE MAKEFUNBOUND) (QUOTE IDNUMBER) (QUOTE 238)) (PUT (QUOTE HASHTABLE) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE HASHTABLE) (QUOTE ASMSYMBOL) (QUOTE "L0005")) (PUT (QUOTE HASHTABLE) (QUOTE WARRAY) (QUOTE HASHTABLE)) (PUT (QUOTE GTEVECT) (QUOTE ENTRYPOINT) (QUOTE "L0151")) (PUT (QUOTE GTEVECT) (QUOTE IDNUMBER) (QUOTE 189)) (PUT (QUOTE GTWARRAY) (QUOTE ENTRYPOINT) (QUOTE "L0162")) (PUT (QUOTE GTWARRAY) (QUOTE IDNUMBER) (QUOTE 196)) (PUT (QUOTE ALPHAESCP) (QUOTE ENTRYPOINT) (QUOTE "L0252")) (PUT (QUOTE ALPHAESCP) (QUOTE IDNUMBER) (QUOTE 220)) (PUT (QUOTE PUTHALFWORD) (QUOTE IDNUMBER) (QUOTE 239)) (PUT (QUOTE NONNUMBERERROR) (QUOTE ENTRYPOINT) (QUOTE "L0111")) (PUT (QUOTE NONNUMBERERROR) (QUOTE IDNUMBER) (QUOTE 171)) (PUT (QUOTE LOWERCASEP) (QUOTE ENTRYPOINT) (QUOTE "L0246")) (PUT (QUOTE LOWERCASEP) (QUOTE IDNUMBER) (QUOTE 232)) (PUT (QUOTE PRTITM) (QUOTE ENTRYPOINT) (QUOTE PRTITM)) (PUT (QUOTE PRTITM) (QUOTE IDNUMBER) (QUOTE 138)) (PUT (QUOTE READ) (QUOTE ENTRYPOINT) (QUOTE READ)) (PUT (QUOTE READ) (QUOTE IDNUMBER) (QUOTE 249)) (PUT (QUOTE XCONS) (QUOTE ENTRYPOINT) (QUOTE XCONS)) (PUT (QUOTE XCONS) (QUOTE IDNUMBER) (QUOTE 156)) (PUT (QUOTE BYTE) (QUOTE IDNUMBER) (QUOTE 151)) (PUT (QUOTE PRINTFUNCTIONS) (QUOTE ENTRYPOINT) (QUOTE "L0288")) (PUT (QUOTE PRINTFUNCTIONS) (QUOTE IDNUMBER) (QUOTE 244)) (PUT (QUOTE PRIN1INT) (QUOTE ENTRYPOINT) (QUOTE "L0020")) (PUT (QUOTE PRIN1INT) (QUOTE IDNUMBER) (QUOTE 135)) (PUT (QUOTE INTERN) (QUOTE ENTRYPOINT) (QUOTE INTERN)) (PUT (QUOTE INTERN) (QUOTE IDNUMBER) (QUOTE 229)) (PUT (QUOTE !%RECLAIM) (QUOTE IDNUMBER) (QUOTE 181)) (PUT (QUOTE INITREAD) (QUOTE ENTRYPOINT) (QUOTE "L0197")) (PUT (QUOTE INITREAD) (QUOTE IDNUMBER) (QUOTE 208)) (PUT (QUOTE DEBUG) (QUOTE IDNUMBER) (QUOTE 213)) (PUT (QUOTE PRINTFEXPRS) (QUOTE ENTRYPOINT) (QUOTE "L0284")) (PUT (QUOTE PRINTFEXPRS) (QUOTE IDNUMBER) (QUOTE 241)) (PUT (QUOTE STACKLOWERBOUND) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE STACKLOWERBOUND) (QUOTE ASMSYMBOL) (QUOTE "L0001")) (PUT (QUOTE STACKLOWERBOUND) (QUOTE WVAR) (QUOTE STACKLOWERBOUND)) (PUT (QUOTE NONIOCHANNELERROR) (QUOTE ENTRYPOINT) (QUOTE "L0135")) (PUT (QUOTE NONIOCHANNELERROR) (QUOTE IDNUMBER) (QUOTE 179)) (PUT (QUOTE PRIN1ID) (QUOTE ENTRYPOINT) (QUOTE "L0027")) (PUT (QUOTE PRIN1ID) (QUOTE IDNUMBER) (QUOTE 134)) (PUT (QUOTE BLDMSG) (QUOTE ENTRYPOINT) (QUOTE BLDMSG)) (PUT (QUOTE BLDMSG) (QUOTE IDNUMBER) (QUOTE 157)) (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 LASTBPS) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE LASTBPS) (QUOTE ASMSYMBOL) (QUOTE "L0142")) (PUT (QUOTE LASTBPS) (QUOTE WVAR) (QUOTE LASTBPS)) (PUT (QUOTE MKSTRING) (QUOTE ENTRYPOINT) (QUOTE "L0184")) (PUT (QUOTE MKSTRING) (QUOTE IDNUMBER) (QUOTE 206)) (PUT (QUOTE LONGREMAINDER) (QUOTE IDNUMBER) (QUOTE 150)) (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 "L0067")) (PUT (QUOTE ERRORTRAILER) (QUOTE IDNUMBER) (QUOTE 160)) (PUT (QUOTE ARG11) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG11) (QUOTE ASMSYMBOL) (QUOTE ARG11)) (PUT (QUOTE ARG11) (QUOTE WVAR) (QUOTE ARG11)) (PUT (QUOTE GTFIXN) (QUOTE ENTRYPOINT) (QUOTE GTFIXN)) (PUT (QUOTE GTFIXN) (QUOTE IDNUMBER) (QUOTE 191)) (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 "L0007")) (PUT (QUOTE WRITECHAR) (QUOTE IDNUMBER) (QUOTE 132)) (PUT (QUOTE NONSEQUENCEERROR) (QUOTE ENTRYPOINT) (QUOTE "L0132")) (PUT (QUOTE NONSEQUENCEERROR) (QUOTE IDNUMBER) (QUOTE 178)) (PUT (QUOTE NEWID) (QUOTE ENTRYPOINT) (QUOTE NEWID)) (PUT (QUOTE NEWID) (QUOTE IDNUMBER) (QUOTE 236)) (PUT (QUOTE DELBPS) (QUOTE ENTRYPOINT) (QUOTE DELBPS)) (PUT (QUOTE DELBPS) (QUOTE IDNUMBER) (QUOTE 195)) (PUT (QUOTE LIST3) (QUOTE ENTRYPOINT) (QUOTE LIST3)) (PUT (QUOTE LIST3) (QUOTE IDNUMBER) (QUOTE 203)) (PUT (QUOTE READ1) (QUOTE ENTRYPOINT) (QUOTE READ1)) (PUT (QUOTE READ1) (QUOTE IDNUMBER) (QUOTE 248)) (PUT (QUOTE GTID) (QUOTE ENTRYPOINT) (QUOTE GTID)) (PUT (QUOTE GTID) (QUOTE IDNUMBER) (QUOTE 194)) (PUT (QUOTE SETRAISE) (QUOTE ENTRYPOINT) (QUOTE "L0199")) (PUT (QUOTE SETRAISE) (QUOTE IDNUMBER) (QUOTE 214)) (PUT (QUOTE NEXTSYMBOL) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE NEXTSYMBOL) (QUOTE ASMSYMBOL) (QUOTE "L0003")) (PUT (QUOTE NEXTSYMBOL) (QUOTE WVAR) (QUOTE NEXTSYMBOL)) (PUT (QUOTE READID) (QUOTE ENTRYPOINT) (QUOTE READID)) (PUT (QUOTE READID) (QUOTE IDNUMBER) (QUOTE 221)) (PUT (QUOTE PRIN1STRING) (QUOTE ENTRYPOINT) (QUOTE "L0029")) (PUT (QUOTE PRIN1STRING) (QUOTE IDNUMBER) (QUOTE 136)) (PUT (QUOTE ARG6) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG6) (QUOTE ASMSYMBOL) (QUOTE ARG6)) (PUT (QUOTE ARG6) (QUOTE WVAR) (QUOTE ARG6)) (PUT (QUOTE NONPAIRERROR) (QUOTE ENTRYPOINT) (QUOTE "L0105")) (PUT (QUOTE NONPAIRERROR) (QUOTE IDNUMBER) (QUOTE 169)) (PUT (QUOTE RECLAIM) (QUOTE IDNUMBER) (QUOTE 193)) (PUT (QUOTE BUFFERTOSTRING) (QUOTE ENTRYPOINT) (QUOTE "L0216")) (PUT (QUOTE BUFFERTOSTRING) (QUOTE IDNUMBER) (QUOTE 226)) (PUT (QUOTE NONIDERROR) (QUOTE ENTRYPOINT) (QUOTE "L0108")) (PUT (QUOTE NONIDERROR) (QUOTE IDNUMBER) (QUOTE 170)) (PUT (QUOTE PBLANK) (QUOTE ENTRYPOINT) (QUOTE PBLANK)) (PUT (QUOTE PBLANK) (QUOTE IDNUMBER) (QUOTE 147)) (PUT (QUOTE ARG4) (QUOTE SCOPE) (QUOTE EXTERNAL)) (PUT (QUOTE ARG4) (QUOTE ASMSYMBOL) (QUOTE ARG4)) (PUT (QUOTE ARG4) (QUOTE WVAR) (QUOTE ARG4)) (PUT (QUOTE ESCAPEP) (QUOTE ENTRYPOINT) (QUOTE "L0250")) (PUT (QUOTE ESCAPEP) (QUOTE IDNUMBER) (QUOTE 230)) (PUT (QUOTE PRIN2T) (QUOTE ENTRYPOINT) (QUOTE PRIN2T)) (PUT (QUOTE PRIN2T) (QUOTE IDNUMBER) (QUOTE 146)) (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 GTVECT) (QUOTE ENTRYPOINT) (QUOTE GTVECT)) (PUT (QUOTE GTVECT) (QUOTE IDNUMBER) (QUOTE 188)) (PUT (QUOTE READLIST) (QUOTE ENTRYPOINT) (QUOTE "L0304")) (PUT (QUOTE READLIST) (QUOTE IDNUMBER) (QUOTE 250)) (PUT (QUOTE QUIT) (QUOTE IDNUMBER) (QUOTE 163)) (PUT (QUOTE RAISECHAR) (QUOTE ENTRYPOINT) (QUOTE "L0227")) (PUT (QUOTE RAISECHAR) (QUOTE IDNUMBER) (QUOTE 227)) (PUT (QUOTE CLEARCOMMENT) (QUOTE ENTRYPOINT) (QUOTE "L0209")) (PUT (QUOTE CLEARCOMMENT) (QUOTE IDNUMBER) (QUOTE 216))