hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice RavelF~FlDp,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-KBINF1DB?Â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ÀOFFSETBkDplSIlXR-BQ-LISTDB;ÀPROGNDBsDB;BiBkDB;DÀSTREAMDBsDB;BsDB;DB;CKBUG-GET-COMM-WORDDBsDB;pBqXR-BQ-LIST*DB;DB;BEDB;BwDBsDB;B;DBsBnDBsDB;BiBlDB;DBwÀVALUEDBDB;BsDB;DB;CKBUG-SET-COMM-WORDDBsDB;BDB;DB;BEDB;BwDBsDB;B;DBsBnDB;DBDBsDB;DEFSETFBkBl1DBiBCBxDBsB|DBBBwDB;DBC1DBiÂSET-KBUG-STREAM-FLAGSBDBsBDBBBwDB;DBCB1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBCÀLAMBDADÀ&RESTÀARGS15DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;NILDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDÀAPPENDBBDÀVALUESBDBDpB+LISTDpB+lCOPY-LISTBDBBDLETDDVALUE16BDBBDBDB;BDpBqXR-BQ-APPENDBDBsBDBDB;BCBDCIFDpB+BOUNDPDB;BBBBC1DBiBGBxDBsB|DBBBwDB;DBG1DBiSET-KBUG-STREAM-BASEBDBsBDBBBwDB;DBGB1DBBDBDB;DBGBDBÀARGS17DBDDBDBBDB;BDBDBBB BDBBDBBDBDBDBB BDBDDVALUE18BDB BDBDB;BDBB DBsBDBDB;BGBBBG1DBiBLBxDBsB|DBBBwDB;DBL1DBiSET-KBUG-STREAM-ENDBDBsBDBBBwDB;DBLB1DBBDBDB;DBLBDBÀARGS19DBDDBDBBDB;BDBDBBB8BDBBDBBDBDBDBB8BDBDDVALUE20BDB8BDBDB;B1DBB8DBsBDDBDB;BLBBBL1DBiBQBxDBsB|DBBBwDB;DBQ1DBiCSET-KBUG-STREAM-IN-POINTERBDBsBDBBBwDB;DBQB1DBBDBDB;DBQBDBÀARGS21DBDDBDBBDB;BDBDBBBcBDBBDBBDBDBDBBcBDBDDVALUE22BDBcBDBDB;B\DBBcDBsBoDBDB;BQBBBQ1DBiBVBxDBsB|DBBBwDB;DBV1DBiSET-KBUG-STREAM-OUT-POINTERBDBsBDBBBwDB;DBVB1DBBDBDB;DBVBDBÀARGS23DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE24BDBBDBDB;BDBBDBsBDBDB;BVBBBV