hưs8p,LAMBDAF2Dp,lFASD-DATADjimLoveF~F9Dp,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-SIZEF@1DB?KBUG-OUTPUT-STREAM-BASEF1DB?KBUG-INPUT-FASL-STREAM-BASEDBEBB1DB?KBUG-INPUT-CHARACTER-STREAM-BASEDBEBB1DB?C%%KBUG-TRACE-FLAGDBYTEF1DB?%%KBUG-ENTERED-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-KBINF1DB?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ÀOFFSETB[DplSIlXR-BQ-LISTDB;ÀPROGNDBcDB;ÀDEFUNB[DB;DÀSTREAMDBcDB;CKBUG-GET-COMM-WORDDBcDB;BEDB;BhB^DBcDB;BfB\DB;DBhÀVALUEDpBaXR-BQ-LIST*DB;CKBUG-SET-COMM-WORDDBcDB;BEDB;BhB^DB;DBsDBcDB;DEFSETFB[B\1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DB3ÀLAMBDADÀ&RESTARGS523DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;NILDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDÀAPPENDBBDÀVALUESBDBDpB+LISTDpB+lCOPY-LISTBDBBDLETDDVALUE524BDBBDBwDB;ÂSET-KBUG-STREAM-FLAGSDpBaXR-BQ-APPENDBDBcBDBwDB;B3BDCIFDpB+BOUNDPDB;BBBB31DBBDBDB;DB7BDBARGS525DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE526BDBBDBwDB;SET-KBUG-STREAM-BASEDBBDBcBDBwDB;B7BBB71DBBDBDB;DB<BDBARGS527DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE528BDBBDBwDB;SET-KBUG-STREAM-ENDDBBDBcBDBwDB;B<BBB<1DBBDBDB;DBABDBARGS529DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE530BDBBDBwDB;CSET-KBUG-STREAM-IN-POINTERDBBDBcB!DBwDB;BABBBA1DBBDBDB;DBFBDBARGS531DBDDBDBBDB;BDBDBBB4BDBBDBBDBDBDBB4BDBDDVALUE532BDB4BDBwDB;SET-KBUG-STREAM-OUT-POINTERDBB4DBcB@DBwDB;BFBBBF