hưs8p,LAMBDAF2Dp,lFASD-DATADwkfJack FlandersF~FvDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEQUANTUM-MAPpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DALLOCATE-QUANTAÁCLUSTER-REGIONCDEALLOCATE-QUANTAÁQUANTUM-REGIONÂQUANTUM-REGION-ORIGINÁVALID-QUANTUM?1DDEFCONSTANTC%%QUANTUM-MAP-DQINDBYTEF 1DBJ%%QUANTUM-MAP-DEVICEDBLFF 1DBJ%%QUANTUM-MAP-REGION-ORIGINDBLF F1DBJ%%QUANTUM-MAP-STATUSDBLFF1DBJ%%QUANTUM-MAP-VALID-BITDBLFF1DBJ%%QUANTUM-MAP-MAPPED-BITDBLFF1DBJC$$QUANTUM-INVALID1DBJ$$QUANTUM-VALIDF1DBJC$$QUANTUM-MAP-BIT-UNMAPPED1DBJ$$QUANTUM-MAP-BIT-MAPPEDF1DBJ$$QUANTUM-EMPTY1DBJ$$QUANTUM-ALLOCATEDF1DBJ$$QUANTUM-ERRORF1DBJ$$QUANTUM-MAPPEDF1DplNC,DEF-DECLARATIONQUANTUM-DQINÀSUBSTDB;DpBNAMED-LAMBDABDplPRIMITIVESlQDp,HARDWARELDBBBK1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBÀLAMBDABDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBDBBDLETDDÀVALUEBDBDpB+NTHBDplSIlXR-BQ-LISTDB;pBDPBBDB;BKBDpBXR-BQ-LIST*DB;BBDCIFDpB+BOUNDPDB;BBNILB1DBÁQUANTUM-DEVICEBDB;DBBBDBBBR1DBBDBDB;DBBBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BRBDBDB;BBBB1DBÁQUANTUM-VALID?BDB;DBBDBDpB32=DBBBdBt1DBQUANTUM-STATUS-BITSBDB;DBBBDBBB^1DBBDBDB;DBBBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;B^BDBDB;BBBB1DBÁQUANTUM-EMPTY?BDB;DBB8BDBDBBB^B1DBÁREGION-ORIGINBDB;DBB@BDBBBX1DBBDBDB;DB@BBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BXBDBDB;B@BBB@1DDEFMACROLOCKING-QUANTUM-MAPDÀTHUNKDBDB;BDBDBDB;BaBaDB;DDBDÀZEROPDINCFp,GLOBAL-REGISTERS,*QUANTUM-MAP-SEMAPHORE*DÀPROG1DFUNCALLBaDBBkFDpTRAPILLOPQuantum map being hacked recursively.1DBREAD-QUANTUM-MAPBDB;DBBDQUANTUMDSYSTEM-TABLE-REFpBi*QUANTUM-MAP*B1DBCWRITE-QUANTUM-MAPBDB;DBBDBBDCSYSTEM-TABLE-STOREBBB1DB_CMODIFY-QUANTUM-MAPDBMODIFIERDBDB;BDBDBDB;BBDBDB;BBDB;DDB`DBDBBDBBDBoBDBB1DB_MODIFY-QUANTUM-MAP-PRELOCKEDDBBDBDB;BDBDBDB;BBDBDB;BBDB;DDBBDBoBDBB1DBJC*NUMBER-OF-ZONES*F1DBJÂ*ZONE-WITHIN-QUANTUM*DBLFF 1DBJ*FIRST-INSTRUCTION-ZONE*F1DBÂZONE-ORIGIN-IN-QUANTABDB;DBBDZONEDBBB