hưs8p,LAMBDAF2Dp,lFASD-DATADwkfMaurice Ravel5{FFF Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGElK2pB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFCONSTANTÁKBUG-BASE-ADDRF1DB?CKBUG-COMMAND-ADDRDC+B@1DB?KBUG-STATUS-ADDRDBEB@F1DB?KBUG-PARAMETER-ADDRDBEB@F1DB?CKBUG-INTERNAL-STORAGE-ADDRDBEB@F 1DB?KBUG-PC-ADDRDBEB@F 1DB?ÁKBUG-FLAG-ADDRDBEB@F 1DB?ÁKBUG-LEFT-ADDRDBEB@F 1DB?KBUG-RIGHT-ADDRDBEB@F 1DB?KBUG-ALU-STATUS-ADDRDBEB@F1DB?KBUG-LEFT-BOXED-ADDRDBEB@F1DB?ÂKBUG-RIGHT-BOXED-ADDRDBEB@F1DB?ÁKBUG-VMA-ADDRDBEB@F1DB?KBUG-VMA-BOXED-ADDRDBEB@F1DB?KBUG-MD-ADDRDBEB@F1DB?CKBUG-MD-BOXED-ADDRDBEB@F1DB?KBUG-MSTAT-ADDRDBEB@F1DB?KBUG-DATA-TRANSFER-AREA-ADDRDBEB@F1DB?KBUG-K-OUTPUT-STREAMF1DB?KBUG-K-INPUT-FASL-STREAMF1DB?ÃKBUG-K-INPUT-CHARACTER-STREAMF1DB?KBUG-STREAM-BUFFER-SIZEF1DB?KBUG-OUTPUT-STREAM-BASEF1DB?KBUG-INPUT-FASL-STREAM-BASEDBEBB1DB?KBUG-INPUT-CHARACTER-STREAM-BASEDBEBB1DB?C%%KBUG-TRACE-FLAGDBYTEF1DB?%%KBUG-ENTERED-FLAGDBFF1DB?C%%KBUG-ERROR-FLAGDBFF1DB?Ã%%KBUG-WARM-BOOT-COMPLETE-FLAGDBFF1DB?Á%%COMMAND-BYTEDBF1DB?CKBUG-COMMAND-IDLE1DB?ÂKBUG-COMMAND-CONTINUEF1DB?KBUG-COMMAND-READ-REGISTER-FRAMEF1DB?KBUG-COMMAND-READ-CALL-STACKF1DB?ÂKBUG-COMMAND-READ-MAPF1DB?KBUG-COMMAND-READ-PCF1DB?ÂKBUG-COMMAND-WRITE-PCF1DB?KBUG-COMMAND-WRITE-STEP-MODEF1DB?KBUG-COMMAND-READ-MEMORYF1DB?CKBUG-COMMAND-WRITE-MEMORYF 1DB?KBUG-COMMAND-MAKE-STRINGF 1DB?KBUG-COMMAND-INTERNF 1DB?KBUG-COMMAND-LOAD-COLD-INFOF 1DB?KBUG-COMMAND-FASL-STREAMF 1DB?KBUG-COMMAND-PC-TO-FUNCTIONF1DB?ÂKBUG-COMMAND-READ-MISCF1DB?%%MISC-COMMAND-BYTEDBF1DB?KBUG-COMMAND-WRITE-MISCF1DB?CKBUG-COMMAND-WRITE-REGISTER-FRAMEF1DB?ÂKBUG-COMMAND-LOAD-FBINF1DB?CKBUG-COMMAND-LAST-COMMANDF1DB?KBUG-STATUS-BUSY1DB?KBUG-STATUS-DONEF1DB?KBUG-STATUS-BAD-COMMANDF1DB?CKBUG-STATUS-BAD-PARAMETERF1DB?KBUG-STATUS-BAD-ADDRESSF1DB?CKBUG-STREAM-FLAGS1DB?KBUG-STREAM-BASEF,Offset in communication area of the first word of this stream's buffer.1DB?KBUG-STREAM-ENDFOne more than the offset in the communication area of the last word stream's buffer.1DB?ÂKBUG-STREAM-IN-POINTERF,Location in buffer where next character to be written to stream is put.1DB?KBUG-STREAM-OUT-POINTERFlLocation in buffer from which next character from stream is read.1DB?Ã%%KBUG-STREAM-FLAGS-DIRECTIONDBF1DB?C$$KBUG-STREAM-FLAGS-DIRECTION-TO-K1DB?$$KBUG-STREAM-FLAGS-DIRECTION-FROM-KF1DDEFMACRODEFINE-KBUG-STREAM-SLOTDACCESSORÀSETTERC&OPTIONALDÀOFFSETBgDplSIlXR-BQ-LISTDB;ÀPROGNDBoDB;BeBgDB;DÀSTREAMDBoDB;BoDB;DB;CKBUG-GET-COMM-WORDDBoDB;pBmXR-BQ-LIST*DB;DB;BEDB;BsDBoDB;B;DBoBjDBoDB;BeBhDB;DBsÀVALUEDB{DB;BoDB;DB;CKBUG-SET-COMM-WORDDBoDB;B{DB;DB;BEDB;BsDBoDB;B;DBoBjDB;DBDBoDB;DEFSETFBgBh1DBeB?BtDBoBxDB{B}BsDB;DB?1DBeÂSET-KBUG-STREAM-FLAGSBDBoBDB{BBsDB;DB?B1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DB?ÀLAMBDADÀ&RESTARGS824DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;NILDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDÀAPPENDBBDÀVALUESBDBDpB+LISTDpB+lCOPY-LISTBDBBDLETDDVALUE825BDBBDB{DB;BDpBmXR-BQ-APPENDBDBoBDB{DB;B?BDCIFDpB+BOUNDPDB;BBBB?1DBeBCBtDBoBxDB{B}BsDB;DBC1DBeSET-KBUG-STREAM-BASEBDBoBDB{BBsDB;DBCB1DBBDBDB;DBCBDBARGS826DBDDBDBBDB;BDBDBBB BDBBDBBDBDBDBB BDBDDVALUE827BDB BDB{DB;BDBB DBoBDB{DB;BCBBBC1DBeBHBtDBoBxDB{B}BsDB;DBH1DBeSET-KBUG-STREAM-ENDBDBoBDB{BBsDB;DBHB1DBBDBDB;DBHBDBARGS828DBDDBDBBDB;BDBDBBB4BDBBDBBDBDBDBB4BDBDDVALUE829BDB4BDB{DB;B-DBB4DBoB@DB{DB;BHBBBH1DBeBMBtDBoBxDB{B}BsDB;DBM1DBeCSET-KBUG-STREAM-IN-POINTERBDBoBDB{BBsDB;DBMB1DBBDBDB;DBMBDBARGS830DBDDBDBBDB;BDBDBBB_BDBBDBBDBDBDBB_BDBDDVALUE831BDB_BDB{DB;BXDBB_DBoBkDB{DB;BMBBBM1DBeBRBtDBoBxDB{B}BsDB;DBR1DBeSET-KBUG-STREAM-OUT-POINTERBDBoBDB{BBsDB;DBRB1DBBDBDB;DBRBDBARGS832DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE833BDBBDB{DB;BDBBDBoBDB{DB;BRBBBR