(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)