hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLoveŦtF~F:Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,VINCULUMpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DDEFINE-CONTROL-REGISTER-MODIFIER1DDEFMACROÂMODIFY-MEMORY-CONTROLDÀTHUNKDplSIXR-BQ-LIST*DB;LETDpBIlXR-BQ-LISTDB;DÁOLD-TRAP-STATEDp,HARDWARE,TRAP-OFFDBODB;BGBGDB;DDBLDDÁMEMORY-CONTROLDpBQREAD-MEMORY-CONTROLDpBQWRITE-MEMORY-CONTROLDpBQDPBBPpBQ%%MEMORY-CONTROL-MASTER-TRAP-ENABLEDFUNCALLBGBZDpBQNOPDBkBZ1DBEMODIFY-PROCESSOR-CONTROLDBGDBKDB;BLDBODBODB;BGBGDB;DDpTRAPWITHOUT-TRAPSDFUNCTIONDÀLAMBDANILDBLDDCPROCESSOR-CONTROLDpBQREAD-PROCESSOR-CONTROLDpBQ,WRITE-PROCESSOR-CONTROLDBfBGBDBkDBkB1DBEB@DNAMEMODIFIERCBIT-FIELDDBODB;ÀDEFUNBDB;DCNEW-VALUEDBKDB;pBQLDBDBOBDBODB;B}DBODB;B~DB;DREGISTERDBKDB;BcDB;BBDB;DBBDB;D1DBEDEFINE-TRAP-MODIFIERDDISABLE-NAMERESTORE-NAMEBBYTEDBODB;ÀPROGNDBODB;B?DBODB;B;DBOBBDBODB;BBBDBODB;BLDB;DDBPDBSDBZDB\DCIFDCEQBpB MEMORY-CONTROLDBODB;BLDBODBODB;CNEW-MEMORY-CONTROLDBKDB;BcDB;pBQ$$TRAP-DISABLEBDB;DBZDBKDB;DISABLE-DEDUCE-TRAP-MASKBBDB;DBDB;DBaDBcBPBeBDB;DBkDB;DBkDBKDB;BDB;BZBDB;DD BODB;LET*DBODB;DBDBDBODB;ÂNEW-PROCESSOR-CONTROLDBKDB;BcDB;BBDB;DBDBKDB;BBBDB;DBZDB;DBBDB;DBaDBcBPBeBZDB;DBkDB;DBkDBKDB;BDB;BBDB;DDBODB;BBDB;DCOLD-VALUEDBODB;BLDB;DDBPDBSDBZDB\DBDBDBDBBBDBKDB;BLDBODBODB;BDBKDB;BcDB;BBDB;DBZDBKDB;UPDATE-TRAP-MASKDB;BBBDB;DBBDB;DDBaDBcBPBeBDBkDBkBDBKDB;BLDBODBODB;BDBKDB;BcDB;BBDB;DBDBKDB;B)DB;BBBDB;DBZBDB;DDBBDBaDBcBPBeBZDBkDBkB1DBEB)DBBBBZBDBODB;BDBKDB;C=BDB;DBDBODB;BBBBZDBODB;ENABLE-DEDUCE-TRAP-MASKBBBZB1DBEÀBIT-ONDBBZDBODB;pBQl32LOGBITPDBODB;ÁBYTE-POSITIONBBZ1DBEÁSYNCHRONOUS-ONDBZDBODB;BaDB;pBQ,%%MEMORY-CONTROL-SYNCHRONOUS-TRAP-ENABLEBZ1DBEASYNCHRONOUS-ONDBZDBODB;BaDB;pBQl%%MEMORY-CONTROL-ASYNCHRONOUS-TRAP-ENABLEBZ1DBEBIT-ON-MASKDBBZMASKDBKDB;BDBODB;BaBBZBDB;Dp,GLOBAL-REGISTERSl*ALL-ZERO*1DBESYNCHRONOUS-ON-MASKDBZBDBODB;B~DB;BpBZB1DBEASYNCHRONOUS-ON-MASKDBZBDBODB;B~DB;ByBZB1DBEÁICACHE-ON-MASKDBZDBKDB;B~DB;pBQ%%MEMORY-CONTROL-ICACHE-ERROR-ENABLEBZDB;DpBQl*ICACHE-TRAP-MASK*1DBEDRAM-ON-MASKDBZDBKDB;B~DB;pBQ%%MEMORY-CONTROL-DRAM-PARITY-ENABLEBZDB;DpBQl*DRAM-PARITY-MASK*1DBEHEAP-ON-MASKDBDBKDB;B~DB;pBQ%%PROCESSOR-CONTROL-HEAP-UNDERFLOW-TRAP-ENABLEBDB;DpBQ*HEAP-UNDERFLOW-MASK*1DBE1024-ON-MASKDBZDBKDB;B~DB;pBQ,%%MEMORY-CONTROL-1024-INTERRUPTBZDB;DpBQ*1024-INTERRUPT-MASK*1DBEÁ16384-ON-MASKDBZDBKDB;B~DB;pBQ,%%MEMORY-CONTROL-16384-INTERRUPTBZDB;DpBQ*16384-INTERRUPT-MASK*1DBEB[DBBBZBDBODB;SETQDB;pB*TRAP-MASK*DBODB;pBQ,32LOGIORDB;DBBpBQ*INITIAL-TRAP-MASK*DBDBBBD CASEBDBpDBODB;BDB;pBQl*UNMASKABLE-SYNCHRONOUS-TRAP-MASK*DBODB;BDBODB;BBZDBODB;BDBODB;BBZDBODB;BBDByDBODB;BDB;pBQ*UNMASKABLE-ASYNCHRONOUS-TRAP-MASK*DBODB;BDBODB;BBZDBODB;BBZDBDBKDB;BBZDB;DBDBDBKDB;BBZDB;DBDBDBKDB;BBZDB;DBDBDBKDB;BBZDB;DBDpBQ%%MEMORY-CONTROL-SINGLE-STEP-ENABLEDB;pBQl*SINGLE-STEP-MASK*DpBQ%%MEMORY-CONTROL-DATATYPE-TRAP-ENABLEDB;pBQ,*DATATYPE-MASK*DpBQ%%MEMORY-CONTROL-OVERFLOW-TRAP-ENABLEDB;pBQ,*OVERFLOW-MASK*DB-DpB+ERROR,Unhandled Memory control byte in enable-deduce-trap-maskBBDBBDBDBKDB;BBZDB;DBDpBQ%%PROCESSOR-CONTROL-FLOATING-POINT-TRAP-ENABLEDB;pBQ*FLOATING-POINT-MASK*DB-DB-Unhandled Processor control byte in enable-deduce-trap-maskBB1DBE32LOGNOTDÀ32BITSDBKDB;pBQ,32LOGXORBGDB;DpBl*ALL-ONES*1DBEBDBBBZDBODB;BDB;BDBODB;pBQ,32LOGANDDB;DBBBDBDBBBD BBDBpDB;DBFDBBDBBDBBBDByDB;DBFDBBDBBBDBDBODB;BDB;DBFBDBODB;BBZDBODB;BBZDBDBODB;BDB;DBFBDBODB;BBZDBODB;BBZDBDB;DBFBDBDB;DBFBDBDB;DBFBDB!DB;DBFB#DB'DB;DBFB)DB-DB-lUnhandled Memory control byte in disable-deduce-trap-maskBBDBBDBDB;DBFBDB8DB;DBFB:DB-DB-Unhandled Processor control byte in disable-deduce-trap-maskBB1DB?DB;DDISABLE-ICACHE-TRAPSRESTORE-ICACHE-TRAPS1DB?DB;DÂDISABLE-1024-INTERRUPTÂRESTORE-1024-INTERRUPT1DB?DB;DDISABLE-16384-INTERRUPTRESTORE-16384-INTERRUPT1DB?DB;DCDISABLE-DRAM-PARITY-TRAPSCRESTORE-DRAM-PARITY-TRAPS1DB?DB;DCDISABLE-SYNCHRONOUS-TRAPSCRESTORE-SYNCHRONOUS-TRAPS1DB?DB;DÂDISABLE-DATATYPE-TRAPSÂRESTORE-DATATYPE-TRAPS1DB?DB;DÂDISABLE-OVERFLOW-TRAPSÂRESTORE-OVERFLOW-TRAPS1DB?DB;DCDISABLE-ASYNCHRONOUS-TRAPSCRESTORE-ASYNCHRONOUS-TRAPS1DB?DB;DDISABLE-SINGLE-STEP-TRAPRESTORE-SINGLE-STEP-TRAP1DB?DB;DDISABLE-HEAP-UNDERFLOW-TRAPSRESTORE-HEAP-UNDERFLOW-TRAPS1DB?DB;DDISABLE-FLOATING-POINT-TRAPSRESTORE-FLOATING-POINT-TRAPS