KBUG-BASE-ADDRK2 KBUG-COMMAND-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-STATUS-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-PARAMETER-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-INTERNAL-STORAGE-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2   KBUG-PC-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2  KBUG-FLAG-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2  KBUG-LEFT-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2  KBUG-RIGHT-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2  KBUG-ALU-STATUS-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-LEFT-BOXED-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-RIGHT-BOXED-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2  KBUG-VMA-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-VMA-BOXED-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2  KBUG-MD-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-MD-BOXED-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-MSTAT-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-DATA-TRANSFER-AREA-ADDRK2 + PRIMITIVES KBUG-BASE-ADDRK2 KBUG-K-OUTPUT-STREAMK2p KBUG-K-INPUT-FASL-STREAMK2u KBUG-K-INPUT-CHARACTER-STREAMK2z KBUG-STREAM-BUFFER-SIZEK2* KBUG-OUTPUT-STREAM-BASEK2 KBUG-INPUT-FASL-STREAM-BASEK2 + PRIMITIVES KBUG-OUTPUT-STREAM-BASEK2 KBUG-STREAM-BUFFER-SIZEK2  KBUG-INPUT-CHARACTER-STREAM-BASEK2 + PRIMITIVES KBUG-INPUT-FASL-STREAM-BASEK2 KBUG-STREAM-BUFFER-SIZEK2 %%KBUG-TRACE-FLAGK2 BYTE PRIMITIVES %%KBUG-ENTERED-FLAGK2 BYTE PRIMITIVES %%KBUG-ERROR-FLAGK2 BYTE PRIMITIVES %%KBUG-WARM-BOOT-COMPLETE-FLAGK2 BYTE PRIMITIVES %%COMMAND-BYTEK2 BYTE PRIMITIVES KBUG-COMMAND-IDLEK2 KBUG-COMMAND-CONTINUEK2  KBUG-COMMAND-READ-REGISTER-FRAMEK2 KBUG-COMMAND-READ-CALL-STACKK2 KBUG-COMMAND-READ-MAPK2 KBUG-COMMAND-READ-PCK2 KBUG-COMMAND-WRITE-PCK2 KBUG-COMMAND-WRITE-STEP-MODEK2 KBUG-COMMAND-READ-MEMORYK2 KBUG-COMMAND-WRITE-MEMORYK2  KBUG-COMMAND-MAKE-STRINGK2  KBUG-COMMAND-INTERNK2  KBUG-COMMAND-LOAD-COLD-INFOK2  KBUG-COMMAND-FASL-STREAMK2  KBUG-COMMAND-PC-TO-FUNCTIONK2 KBUG-COMMAND-READ-MISCK2 %%MISC-COMMAND-BYTEK2 BYTE PRIMITIVES KBUG-COMMAND-WRITE-MISCK2 !KBUG-COMMAND-WRITE-REGISTER-FRAMEK2 KBUG-COMMAND-LOAD-KBINK2 KBUG-COMMAND-LOAD-FBINK2 KBUG-COMMAND-LAST-COMMANDK2 KBUG-STATUS-BUSYK2 KBUG-STATUS-DONEK2 KBUG-STATUS-BAD-COMMANDK2 KBUG-STATUS-BAD-PARAMETERK2 KBUG-STATUS-BAD-ADDRESSK2 KBUG-STREAM-FLAGSK2 KBUG-STREAM-BASEK2GOffset in communication area of the first word of this stream's buffer. KBUG-STREAM-ENDK2TOne more than the offset in the communication area of the last word stream's buffer. KBUG-STREAM-IN-POINTERK2GLocation in buffer where next character to be written to stream is put. KBUG-STREAM-OUT-POINTERK2ALocation in buffer from which next character from stream is read. %%KBUG-STREAM-FLAGS-DIRECTIONK2 BYTE PRIMITIVES "$$KBUG-STREAM-FLAGS-DIRECTION-TO-KK2 $$$KBUG-STREAM-FLAGS-DIRECTION-FROM-KK2 KBUG-GET-COMM-WORDK2 KBUG-GET-COMM-WORDK2   ERRORLISP-INTERNALS@!0@A @AB@@B0@A @A@@ !`8@ATD@ aDE!F 'location not in kbug communication area KBUG-SET-COMM-WORDK2 KBUG-SET-COMM-WORDK2   ERRORLISP-INTERNALS@!0@A @AB@@B0@A @A"T@B@ BX8@AjDE!F 'location not in kbug communication area DEFINE-KBUG-STREAM-SLOTK2 DEFINE-KBUG-STREAM-SLOTK25 11 2 24 MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS0  XR-BQ-LISTSYSTEM-INTERNALS.  XR-BQ-LISTSYSTEM-INTERNALS+  XR-BQ-LISTSYSTEM-INTERNALS'  XR-BQ-LIST*SYSTEM-INTERNALS$  XR-BQ-LISTSYSTEM-INTERNALS!  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CDRCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAY6j"@ C@q0@A2@A C@s0@A @A2@A C(@ B C(@B(@ B C(@B(@BD@@A1@A C(@B(@B(A BA@'B(@AB(@(@@AB(A@'B(@@AB(@$@@@BA(@%B@AF(&@  Af@pB @A / PROGN PRIMITIVES, DEFSETF PRIMITIVES* STREAMK2 VALUE PRIMITIVES( DEFUN PRIMITIVES& VALUE PRIMITIVES% KBUG-SET-COMM-WORDK2# STREAMK2" + PRIMITIVES  STREAMK2 DEFUN PRIMITIVES KBUG-GET-COMM-WORDK2 STREAMK2 + PRIMITIVES KBUG-STREAM-FLAGSK2 KBUG-STREAM-FLAGSK2 D@@@ E`8@ATD@ aD SET-KBUG-STREAM-FLAGSK2 SET-KBUG-STREAM-FLAGSK2"T@ D@B@ CX8@AjD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES KBUG-STREAM-FLAGSK2 LAMBDA PRIMITIVES &REST PRIMITIVES ARGS840K2 LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS840K2 STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS840K2 LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE841K2 STOREVARSETF ARGS840K2  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-KBUG-STREAM-FLAGSK2  XR-BQ-APPENDSYSTEM-INTERNALS ARGS840K2  XR-BQ-LISTSYSTEM-INTERNALS VALUE841K2  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES KBUG-STREAM-FLAGSK2 TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES KBUG-STREAM-FLAGSK2 KBUG-STREAM-BASEK2 KBUG-STREAM-BASEK20 Dx@@ E`8@ATD@ aD SET-KBUG-STREAM-BASEK2 SET-KBUG-STREAM-BASEK2"T@0 DxB@ CX8@AjD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES KBUG-STREAM-BASEK2 LAMBDA PRIMITIVES &REST PRIMITIVES ARGS842K2 LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS842K2 STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS842K2 LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE843K2 STOREVARSETF ARGS842K2  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-KBUG-STREAM-BASEK2  XR-BQ-APPENDSYSTEM-INTERNALS ARGS842K2  XR-BQ-LISTSYSTEM-INTERNALS VALUE843K2  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES KBUG-STREAM-BASEK2 TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES KBUG-STREAM-BASEK2 KBUG-STREAM-ENDK2 KBUG-STREAM-ENDK2p Dx@@ E`8@ATD@ aD SET-KBUG-STREAM-ENDK2 SET-KBUG-STREAM-ENDK2"T@p DxB@ CX8@AjD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES KBUG-STREAM-ENDK2 LAMBDA PRIMITIVES &REST PRIMITIVES ARGS844K2 LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS844K2 STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS844K2 LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE845K2 STOREVARSETF ARGS844K2  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-KBUG-STREAM-ENDK2  XR-BQ-APPENDSYSTEM-INTERNALS ARGS844K2  XR-BQ-LISTSYSTEM-INTERNALS VALUE845K2  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES KBUG-STREAM-ENDK2 TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES KBUG-STREAM-ENDK2 KBUG-STREAM-IN-POINTERK2 KBUG-STREAM-IN-POINTERK2 pDx@@ E`8@ATD@ aD SET-KBUG-STREAM-IN-POINTERK2 SET-KBUG-STREAM-IN-POINTERK2"T@ pDxB@ CX8@AjD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES KBUG-STREAM-IN-POINTERK2 LAMBDA PRIMITIVES &REST PRIMITIVES ARGS846K2 LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS846K2 STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS846K2 LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE847K2 STOREVARSETF ARGS846K2  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-KBUG-STREAM-IN-POINTERK2  XR-BQ-APPENDSYSTEM-INTERNALS ARGS846K2  XR-BQ-LISTSYSTEM-INTERNALS VALUE847K2  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES KBUG-STREAM-IN-POINTERK2 TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES KBUG-STREAM-IN-POINTERK2 KBUG-STREAM-OUT-POINTERK2 KBUG-STREAM-OUT-POINTERK20 Dx@@ E`8@ATD@ aD SET-KBUG-STREAM-OUT-POINTERK2 SET-KBUG-STREAM-OUT-POINTERK2"T@0 DxB@ CX8@AjD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES KBUG-STREAM-OUT-POINTERK2 LAMBDA PRIMITIVES &REST PRIMITIVES ARGS848K2 LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS848K2 STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS848K2 LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE849K2 STOREVARSETF ARGS848K2  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-KBUG-STREAM-OUT-POINTERK2  XR-BQ-APPENDSYSTEM-INTERNALS ARGS848K2  XR-BQ-LISTSYSTEM-INTERNALS VALUE849K2  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES KBUG-STREAM-OUT-POINTERK2 TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES KBUG-STREAM-OUT-POINTERK2