hưs8p,LAMBDAF2Dp,lFASD-DATADjimOrson Welles٦[%F~FPDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEGC-RAMpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DB:DB;ÀGC-RAM1DÀEXPORTDB;DDUMP-RAMFLIPCINITIALIZE-QUANTUMLOAD-RAMQUANTUM-VOLATILITY-AND-OLDSPACEZERO-RAM1DDEFCONSTANTC*NUMBER-OF-GC-RAM-ENTRIES*Dp,VINCULUMFIELD-MAXIMUMp,HARDWARE,%%GC-RAM-MD-BYTE1DplNC,DEF-DECLARATIONÁADDRESS-GC-RAMÀSUBSTDB;DpBYNAMED-LAMBDAB\DQUANTUMDpBS,WRITE-MD-UNBOXEDDpBSDPBB`BUDpBSNOPDBjDBjNIL1DDEFMACROÁMODIFY-GC-RAMDB`ÀTHUNKDplSIXR-BQ-LIST*DB;LETDpBwlXR-BQ-LISTDB}DB;B`B`DB}DB;BuBuDB;DDpTRAPWITHOUT-TRAPSDFUNCTIONDÀLAMBDABnDB\B`DBzDDCNEW-VALUEDFUNCALLBuDpBSREAD-GC-RAMDpBSWRITE-GC-RAMBDBjDBjBn