hưs8p,LAMBDAF1DplSI,DEFVAR-1pK-KBUG,*FALCON-ERROR-CLOBBERED*pGLOBALNILˀKcFpB#KBUG2F@ pB&l*PACKAGE*plEHlCONDITION-RESUME-HANDLERSpB&RUBOUT-HANDLERpB&,*STANDARD-INPUT*pB&*TERMINAL-IO*pK-K2KBUG-COMMAND-CONTINUEpB=,KBUG-STATUS-BUSYpLAMBDAlK-MEM-ADDRpB&FIND-PACKAGEK-KBUGpB#KBUG-WRITE-PCpB#KBUG-STOPPED?pBB,DEBUG-WRITE-WORDF F pB&FORMATl~%K is running - waiting for it to stop~%pB#,KBUG-WAIT-UNTIL-STOPPEDpB#DEINSTALL-BREAKPOINTSpB#KBUG-READ-PCpB#lGET-WARM-SYMBOLIC-ADDRESS,~&~30a ,~&~6,'0x pB#,KBUG2-PRINT-INSTRUCTIONpB#KBUG-READ-INSTFZpB#KBUG-CMD-ERRORpB&lPEEK-CHARpB#lKBUG-STOPDe NpB&lREAD-CHARpB#lKBUG-STEP PpB#KBUG-PROCEEDpB#KBUG-WAIT-UNTIL-STOPPED-AND-NO-PAUSE FpB#,SHOW-USER-FRAME`FpB#SHOW-USER-FRAME-WITH-DATATYPES ZD Lep,CLEAR-WINDOW@FpB#KBUG2-FLUSH-CALL-STACK@RpB#KBUG2-RUN-REP@LpB#lKBUG2-RUN-LISTENER@SpB#,SHOW-CALL-STACK@El~%pB#lSHOW-ERRORepB#DEBUGGER-HELP,Return to KBUG2.FXDpSYSTEMABORTpB4lCATCH-ERROR-RESTART-THROWDpB,INTERNALB.pBOPERATION-HANDLED-PpBRUBOUT-HANDLERDDpBFULL-RUBOUTBDpBlACTIVATIONpB&CHAR=eDpBPROMPTpB#,PROMPT-FOR-KBUGBpB&TERPRIpB&PRIN1pB&EVALDDpB,MACROS-EXPANDEDD pB&lLEXPR-SENDpB&OPERATION-HANDLED-PpB ,DECODE-READ-ARGpB&lWITH-INPUT-EDITINGpB&lWITH-LIST*pB&lWITH-LISTpB&CATCH-ERROR-RESTARTpB&SENDpB&CASEpLISPlIFpBBK-MEM-WRITEpB&WHENDp,COMPILERlLOCAL-FUNCTION-MAPDpB .WITH-INPUT-EDITING.DpB,ARG-MAPDDpB#,STARTING-ADDRESSDpBlLOCAL-MAPD DpB#ADDRDpB#,SYM-ADDRDpB#INPUTB(B(B(B(DpB#SEXPDpB#FLAGDpBINTERNAL-FEF-OFFSETSFBDpBPLACEHOLDER-TO-MICRO-FUNCTION-TABLE@V8 X D  D EDB@@@A8EDED@@@@Z}.!D"BB#BE$D8%&@|ʼnBE't8%()BBE*t8%+B{BE,t8%-BuBE.t8%#BoBE/D8% @0gBE1t8%2BaBE3t8%4B[BE5t8%6BUBE7t8%8BOBE9t8%E:;BFBED|UzCX}.CE@DCEECEADCE|UzDD|VzVBDE X D Du DFFCDD8FE|DDEDE6EE|HGHEFt8EGH@I@GGŀ |[EQOB.ˀ F DBB.B@pBREADDDpBlDOWNWARD-FUNCTIONDBOBˀ %&FB_@pB#,*I-MODE*FpB&lTpBHEXBQ,~16,'0xpBDISl~xpB#,DIS-SYMBOLICIFYplNCDISDDBDBDBDDpB#lIDpB#,FROM-PCDpB&STREAMDBD t8 E DDt8 ED@ŁO5B_ˀ 4FB"F@DplKJUMPpB;CALLpB;lOPEN-CALLpB;lTAIL-CALLpB;TAIL-OPEN-CALLB[DpB;BRANCHpB;UNCONDITIONAL-BRANCHDDBDDpB#lXDB,DBDDpB#TEMPDpB#,JUMP-ADRDBGD8@KA@ 8G@EAE|UzM|VGD8@K |EZA@ 8G@EAE|UzM|VO\B"ˀ  F B@BQ~%You are typing at the K debugger MARK-II. to exit.SPACE to single-step.C-P to proceed K, remaning in debugger.C-F to view register-frames.C-M-F to view register-frames with datatypes and values.C-L to clear-screen.C-Z to stop machine.M-S to display the K call stackM-F to flush the K call stackM-R to run a read-eval-print loop on the KM-L to run mini-lisp-listener on the KM-E to display an error messageDDBEOeBˀ .FpB#lDEFINE-K-FUNCTION-INVOKERFB@pB ,MACRO-REPORT-ARGS-ERRORpB&DEFUNpB#lKBUG-GOTOpB&QUOTEDDpB&SLEEPǀffffDBrDBtDBVDDpBEXPR-SXHASH?WDBDpB lXR-BQ-LISTpB XR-BQ-APPENDpB XR-BQ-LIST*DBDDpB l*MACROARG*DpB l*MACROENVIRONMENT*DBDDpB#NAMEDpB#lK-FUNCTIONDpB#BODYDpB,FUNCTION-PARENTBiDpB&,ARGLISTBBpB&&RESTBDpB&DOCUMENTATIONDefine a function named NAME which executes the BODY forms, thencauses K-FUNCTION to be run until it completes or the K stops running for some reason (like a breakpoint).DBEZU8E|ŀK@EZAEZBD@EEBED DAE|Uz|Uz D|Vz[z|VDpB&MACROBOBiˀ#&FB@pB&,Y-OR-N-P~&Flush the call stack and streams? BQl~&Flushing the K call stack and streams...pB#FLUSH-STREAMSBrp,K-LISP-INTERNALS,FLUSH-CALL-STACKBvǀffffBrBtBVDDBDBpB&UNLESSDBBDBXE  OBˀ FB@BQ~&Running read-eval-print on the K...BrpBREPBvǀffffBrBtBVDDBBDBE  OBˀ ,(F B@B%BQl~&Warning! Running mini-lisp-listener smashes LI:ERROR on the K.~&Are you sure you want to run it? B,~&Running mini-lisp-listener on the K...BrpB,LISTENERBvǀffffBrBtBVDDBDBBDBBDB XEE XEE OBˀ  F BF@BQ,~&Eval> DDBDDB/DpB&IGNOREDBEOBˀ FpB#lKBUG-SET-SINGLE-STEP-FLAG@pB=l%%KBUG-TRACE-FLAGBDBMF, pBB,DEBUG-READ-WORDDDBDBpBBlK-MEM-READDBD |D @D OBˀ FpB#KBUG-CLEAR-SINGLE-STEP-FLAG@BBDBMF, BDDBDBBDBD |D @D OBˀ *FpB#DEFINE-KBUG-REGISTERFB@BnBpBpB&ASHDFDDB~E+DBDBBDBDDBDBDBDDBDpB#,LOCATIONDBBDBBB'DBEZUXEZ58E|ŀK@EZAD@EED DAE D|Vz|Uz|UDBB/O0Bˀ FpB#KBUG-STATUS@BDBF DDBDBDBD@D O>B4ˀ FpB#KBUG-COMMAND@BDBF DDBDBDBD@D OLBBˀ FBY@BDBF( DDBDBDBD@D OXBYˀ F BIFA@BDBMF( DDBDBDBDDpB#lPCDBDOhBIˀ F pB#lKBUG-LEFT@BDBF0 DDBDBDBDOuBlˀ F pB#lKBUG-RIGHT@BDBF4 DDBDBDBDOByˀ F pB#,KBUG-LEFT-BOXED@BDBF< DDBDBDBDOBˀ F pB#,KBUG-RIGHT-BOXED@BDBF@ DDBDBDBDOBˀ FBaFA@pB=,KBUG-COMMAND-READ-MEMORYpB#,KBUG-CMDpB#lKBUG-DATADDBDDBbDBDDE|[ @ @ |[OBaˀ2,F$pB#,KBUG-DISASSEMBLE@FBFFeFeFeFepB#KBUG-GENERIC-READ-INST-VIA-PROCESSORBQ,~%~6x ~xB"B%pBBlPRINT-BITSDDBDpB&PSETQBpB&,DOTIMESDBDDpB#STARTDpB#,HOW-MUCHDB/DpB#lPRINT-BITSDBDDB)B(DpB#ADRDpB#INSTDB|EA@@E3B@BCEDBE@CBŃ8C@@EAUYOBˀ $ FpB#lKBUG-DISASSEMBLE-FUNCTIONC@FBFFeFepB#GET-ADDRESSBDDBDBBDBDDpB&SYMBOLDB/DBDBDDBDpB&LENGTHDB D|A@AX}A@Ex @EDAEOBˀ F pB#KBUG-READ-VMA@BDBFD DDBDBDBDOBˀQ6F6pB#lSHOW-MEMORY-STATUS@ plK-HARDWARE%%MEMORY-STATUS-NUBUS-SLOT-IDpBl%%MEMORY-STATUS-ECO-JUMPER-NUMBERpB%%MEMORY-STATUS-NUBUS-BOOTSTRAP-MODEpBl%%MEMORY-STATUS-MD-WRITTEN-LATELYpB%%MEMORY-STATUS-GC-TRAP-ENABLEpB%%MEMORY-STATUS-TRANSPORT-TYPEpBl%%MEMORY-STATUS-CYCLE-TYPEpB,%%MEMORY-STATUS-MD-NOT-BOXED-BITpBl%%MEMORY-STATUS-VMA-NOT-BOXED-BITpBl%%MEMORY-STATUS-READ-MD-WILL-FAULTpB,%%MEMORY-STATUS-READ-MD-WILL-TRANS-TRAPpB%%MEMORY-STATUS-SPARE-19-20pB%%MEMORY-STATUS-PARITY-ERRORpB%%MEMORY-STATUS-AUTOBOOT-JUMPER-BITpB%%MEMORY-STATUS-16MEGBDBFT BQ~%Memory board has ~[double-~;single-~]sided ram sips.~ ~%Autoboot jumper ~[off~;on~]~ ~%Parity error ~[on~;off~]~ ~[~:;~%*Undefined bits are on*~]~ ~%Transport trap ~[armed~;unarmed~]~ ~%Read fault ~[armed~;unarmed~]~ ~%VMA boxed bit ~[boxed~;unboxed~]~ ~%MD boxed bit ~[boxed~;unboxed~]~ ~%Last cycle type ~[write~*~ ~%GC trap ~[enabled~;disabled~]~;~ read~ ~%Transport type ~[write~;visible-evcp~;transport~;no-transport~]~*~]~ ~%MD written lately ~[yes~;no~]~ ~%Nubus bootstrap mode ~[RESET~;~Short reset~:;*undefined*~]~ ~%ECO jumpers #b~4,'0b~ ~%Nubus slot #x~1xDDBDpB&LOGNOTBDBDDpB#,MEMSTATDB@D@EDD@EZD@EZD@EZD@EZD@EZD@EZD@EZ D@EZ D@EZ D@EZ D@EZ D@EZD@E ZD@EZD@EOBBˀ F pB=KBUG-READ-VMA-BOXED@BDBFH DDBDBDBBFDBDOPBFˀ F pB=lKBUG-READ-MD-BOXED@BDBFP DDBDBDBBTDBDO^BTˀ F pB#KBUG-READ-MD@BDBFL DDBDBDBDOkBbˀ F BK@pB=lKBUG-COMMAND-IDLEBBDDBDBDBB8OwBK1DB"pB#*K-PAUSING*B(ˀ 1.F$Bt@ByB<pB&PROCESS-WAITKBUG2pB#,MAKE-FANCY-WAIT-FUNCTIONDBBtDBBtFpB#lK-HALTED-PBQ~%HALTED: pB#WHYpBBK-STOP,~%*** Entering KBUG ***pB#KBUGBhDDDBDBpB&lDO-FOREVERDBDFDBDDB/DBF F DB DD@ @ D <Y  8EEOBtˀ F DBBt@BypB&LISTENDDpB,LEXICAL-REF-MAPDB/DBDZx|OBˀ FDBBtF@ByBKBDDBDZxBOBˀ ,,F!BT@B<BKBUG2BDBBTDBBTFBBQ~%HALTED: BB,~%*** Entering KBUG ***BBhDDDBDBDBDFDBDDB/DBF F DBDD@ @ D  8 E EOBTˀ F DBBT@BDDBDB/DB|OBˀ  F DBBTF@BKBDDBBOBˀFBh@pBBlK-INT-ADDRBAB4BMFBQ,~%Sorry, it won't stop!BYDDBDBpBBK-WRITE-INTBDBB8 D 2B8 E OBhˀ F pB#,KBUG-FORCE-STOP@BBMFDDBDBDBD2OB ˀ !FpB#KBUG-CMD-RAWA@BDBMFF DDBDBDBDDpB#CMDDBDDpB#PARMSDpB&COUNTDpB#PARAMSDpB#PARMDBSends a KBUG2 command with its arguments. Caller is responsible for checking completion and status.DBA@EB DDA3|[CABBGCBYD O5Bˀ>$F(BA@pB=,KBUG-STATUS-DONEBrpB=KBUG-PARAMETER-ADDRBDBMF BBB4BQ~%**** Bad command status ~D ******~%FDDBDBBBBBDBDDBDBDDB$DB'DB*DB-DB)DpB#,COMMANDDpB#STATUSDBA@EB  DDA3|[CABBGCBY D D B BFE 8FEXEDFFFDDETY OVBˀ FpB#,KBUG-CMD-CONFIRMA@BBQl~%No wedge response to ~x commandBdDDBDDBDBDDB*DBPDB@E@EA EA8ED DE8AOhBZˀ FpB#KBUG-CMD-SAFEA@BBdDDBDBDBDDBDBDDB*DB E@E@E8 DE8OzBlˀ FBFA@BDBF DDBDBDBDDpB#INDEXDBRead data transfer area. Index is a word offset in the area.DBDD3|[OBˀ FpB#KBUG-SET-DATAF@BDBMF DDBDBDBDDBDpB#DATADBlWrite to data transfer area. Index is a word offset in the area.DBDD3|[OB1DpB&,DEFPROPpB#DEPTH-TO-USER-OA-FRAMEBpB,SYSTEM-CONSTANT1DpB lDEFCONST-1BF1DBpB#DEPTH-TO-USER-R-FRAMEBB1DBBF1DBpB#,DEPTH-TO-HANDLER-TRAP-SAVE-FRAMEBB1DBBF1DBpB#,DEPTH-TO-HANDLER-2-FRAMEBB1DBB1DBpB#RUNNING-FORMATBB1DBB,~{~@?~}1DBpB#,COMBINING-FORMATBB1DBB~{~a~}1DBpB#,FORMAT-ARGUMENTBB1DBB~@?1DBpB#,BOXED-32BB1DBB,~:[ ~;*~]~8,'0x1DBpB#HEX-2BB1DBB~2,'0x1DBpB#,NEWLINEBB1DBBl~&ˀ  F pB#lNEW-FORMATA@BBQDDBDDB/DBDDpB#ARGSDBED@OBˀ  F pB#COMBINE-FORMAT@BBQDDBDDBDBED@O B1DBpB#LABELED-HEX-2BB1DBBDBBBB1DBpB#,LABELED-BOXED-32BB1DBBDBBBˀ FpB#READ-A-FRAME-NUMBER@BpB=KBUG-COMMAND-READ-CALL-STACKBZBDDB| @||r3͚O&Bˀ  F pB#READ-A-FRAME@pB#lREAD-FRAME-AS-LISTBDDBO2B*ˀF pB#lREAD-A-REGFA@B*DDBDDpB#lNDBDDpB#REGDpB&VALUESDpB#VALUEpB#BOXEDDBEB[@@I@GONB6ˀFpB#SHOW-MEM-WORDB@FBFepBB,K-MEM-READ-WORD-ADDRESSpB&lFRESH-LINEpB#lSHOW-DATA-TYPE-AND-OBJECTDDBDDpB#WORD-ADDRESSDB/DBDDpB#,CONTENTSDB @@  @EOlBRˀ07`FgBw@BBBBBBB#FBFeFeFeFeFeFeFeFeFeFeFeFeFeFeBZBB/BlByBBBLeft , Right , Open #xl Active #xl Return #x O~2D, A~2D, R~2dBQl~%DDBDpB&,LDB-TESTDBDDB/DBDDpB#,USER-OPEN-FRAMEDpB#lUSER-ACTIVE-FRAMEDpB#lUSER-RETURN-FRAMEDpB#O-LISTDpB#A-LISTDpB#R-LISTDpB#LEFTDpB#RIGHTDpB#lLEFT-BOXEDDpB#RIGHT-BOXEDDB@DpB#lODpB#lADpB#lRDB 7E@|| r3Z@|@|| r3ZA|@|| r3ZB@@C@AD@BE BF!BG"BH#BI$E DD%D|HEZZZFED&D|IEZZZGED'D@ED(DAED)DBJCEKDELEEM$E D*DJEDKQKO+DJEDLQLO,DJEDMQMJKLMJE:9-E.OBwˀ9GrFBz@pB#,*SHOW-OBJECT-MAX-DEPTH*pB#,*SHOW-OBJECT-MAX-LENGTH*BBBBBBB#FBFeFeFeFeFeFeFeFeFeFeFe@Fe@FeFeFeFeFeFeBZBB/BlByBBBLeft , Right , Open #xl Active #xl Return #xBBBl~% ~a~2Dl B^BQl~%DDBDBBBBpB&DOLISTBDBDDB/DBDDBDBDBDBDBDBDBDBDBDBB(DpB&LISTDB@DpB&TYPEDBDpB#,POINTERDB#7E$@|| r3Z@|$@|| r3ZA|$@|| r3ZB%@@C%@AD%@BE&BF'BG(BH)BI |V|V*E D D+D|HEZZZFE D,D|IEZZZGE D-D@E D.DAE D/DBE @EA 80DCE|Vz1DEE|Vz| 2DCE|Vz0DDE|Vz1DEE|Vz|UzJ 8JGKLKGMKIN*E3DMELEDNQOE45OELNNOOLE:96E7JYOBzˀFpB#lK-DATA-TYPE-SYMBOLFA@plK-VINCULUM,K-DATA-TYPE-NAMES-ALISTDDBDBBDBDDpB#lDTDBDB(DpB#lEDBD@ 8@GAEAK8A@YOBˀ FB/FA@pB=,KBUG-COMMAND-READ-REGISTER-FRAMEBZpB#BOX-REG-CONSDDBDDpB#FRAMEDBDDBDpB#RLISTDBD|@@@AEZA@@E9AO2B/ˀ FpB#KBUG2-READ-REGISTERF@pBl%%BYTE-SPECIFIER-POSITIONB"BZBDDBDpB&BYTEDBDDB&DpB#OFFSETDBD @|ED|Z# @:Z [OHB6ˀ 3F pB#WRITE-FRAME-FROM-LISTF@pB=lKBUG-COMMAND-WRITE-REGISTER-FRAMEB;B"BZBBDDBDB=BDBDDB&DBDBDDBDB,DpB#CELLDBIDBDB D@EA8AGBBGCBID |C8||@ED|Z# @: @ED@AY DOcBLˀ FB$FA@B;BDDBDB=DBDDB@DB|ED|Z#@:Z [@OpB$ˀ %FpB#lREAD-FRAME-ADDRESSFA@B;B"BZBDDBDB=DBDDpB#,ADDRESSDBDDB&DB@DB}EZ|EZA@D@ @AAED|Z# @:Z |[OBtˀ3.F%pB#,SHOW-FULL-STACK@Fed-buffer:kbug-stackF0F2pBABORTFeFApB&OPENpBlDIRECTIONpBOUTPUTBpBWITH-FRAMESDBBpBSTREAMpB&ERRORPpBCLOSEDDBDBpB&,WITH-OPEN-STREAMpB&WITH-OPEN-FILEDBDDBDBDB(DpB .FILE-ABORTED-FLAG.DB/DBA||/E @ED@BDEZDDDBAw@8@X@DAŭOBˀ)7RF`B@F F0F2BFeFeFeFeFeFeFeFeFeFeFeFepB,STORE-KEYWORD-ARG-VALUESDBBBBQl~%CALL stack, ~s, machine is ~:[running~;halted~]pB#KBUG-GENERIC-READ-CALL-STACK-AS-LISTFFpB#KBUG-SYMBOLIC-ADDRESSl~% Ret-Dest ~[ O~; A~; R~; G~;NO~;NO~;NT~;NT~]~2,'0D Open ~2,'0X Active ~2,'0X rpc #x~6,'0X~% Ret-Dest ~[ O~; A~; R~; G~;NO~;NO~;NT~;NT~]~2,'0D Open ~2,'0X Active ~2,'0X rpc #x~6,'0X ~x, ~x #x~xBl~%Active frame ~X:pB#lSHOW-FRAME-WITH-DATATYPESB,~%Open frame ~X:DDBDBBBBDBDB(DpB#WITH-FRAMESDB/DBDpB#lCSB(DpB#CSEDpB#lD0DpB#lD1DpB#RPCDpB#RDFDpB#RDRDBDBDpB#,SYM-ADRDpB,COMPILER-ARGLISTpB&&KEYBDB/BDB@8A@EDBCBEDAECBDEZ8EGFFGGFKH|GEZIDGEZJDGEZK7EHEZL|HEZM@INLEM8BEDBE DJEKELEMEIN 8NEy8BE!DNBE"DNGN#DAE8BE$DM%MEB&DAE8#DAE8LEMXBE'DL%LEBEYOBˀ ,FpB#,READ-CALL-STACK-AS-LIST@B#BZBDDBDBDBDDpB#ANSDpB&MAXDBDBDBDB|@|[A|@BC@BED@ECEDE|Uz|Uz\z@|B3BAUY@OB ˀ&g6FApB#KBG-READ-CALL-STACK-AS-ARRAY@pBBlK-PC-ADDRBpBBK-READ-HP-SPpBBlK-READ-OARpB lSIMPLE-MAKE-ARRAYpB&ART-QpBBK-WRITE-HP-CSPpBBlK-READ-RETPC-RDESTpBBlK-EXECUTEBFBpB#lRETURN-PCpB#RETURN-FRAMEFpB#,RETURN-REGISTERFpBBK-WRITE-OARpBB,K-SET-PCDDBDBBpBBK-READ-SPY-PCDBDDpB#,SAVED-PCDpB#SAVED-HP-CSPDpB#lSAVED-OARDpB#lCALL-STACKDB)DpB#RETPC-RDESTDpB#OARDBlread the entire contents of the call stack into an array. This uses the spy path.DB|@ZB B @} DEECBA@D0 DE|| BED BFDDFEZ|UzD7EFEZ|UzD|EEZ|UzDDEEZ|UzDDEEZ|Uz|UzCEDEMDDE3UY AB@COaB"ˀ4z$FFB[FB@pB#l*LOADED-FUNCTIONS*BBZBBQ,~a ~:[~*~;(~x)~]~a+#x~x ~:[~*~;(~x)~]l~XBFpB#,READ-SYMBOL-NAMEDDBDBpB#,NCOMPILED-FUNCTION-NAMEpB#lNCOMPILED-FUNCTION-LENGTHpB#NCOMPILED-FUNCTION-STARTING-ADDRESSBBBDBDDBbDpB#,SHOW-HEXDBDDBDpB&,FUNCTIONDBB(DpB#lFDpB#lSADBDpB#,ENTRY-PCDBMore or less obsolete, see KBUG-SYMBOLIC-ADDRESS. This actually prints things out, that returns a more winning value.DB|EZB@X| @A @B@XA.8DC'8CGD"8DE`E8EEUXEEEDE`3U8DE`FEE8 E DFEE E DFEEESECY E D|AE | @ZG|DBEZX E DŀEG8 E D@BŁE E D@BŀEGSEOB[ˀ-l$F?BFA@ B3BhBBZBpB&INTERNpB&STRINGpB#KBG-SYMBOLIC-ADDRESSBFBnDDBDBBpBrBtBBBDBDDBbDBD DBDBDBB(DBDBDBDpB#LOCAL-SYMBOLDBDBReturns NIL if no info, a symbol if exact match, or a list of a symbol and an offset.DB|EZB@X | @A @B@XA)8DC$8CGD8DE`E8EEUXEEEDE`3U8DE`F @ @FGEE8GGEEES|UCY |AE | @ZH|DBEZX@BGEH8GGEEHS|UOBˀ FpB#TEST-READ-MISCFA@pB=KBUG-COMMAND-READ-MISCBZBBQl~%ans= ~oDDBDDB;DBDDBDBD|@@ E D@OB1DBpB#lMAP-STATUS-VALUESBB1DBB$B(B/EFB(B(B(F,read-marl(unused 1)read-mar-agedl(unused 3)l(unused 4)lread-onlyread-only-agedl(unused 7)swapped-outl(unused 9)(unused 10)(unused 11)(unused 12)direct-mappednormal-agednormalˀ F pB#GET-MAP-STATUS-STRINGS@BDDBOBˀ F pB#lMAP-STATUS->STRINGFA@BDDBDpBAREFDBDDpB#lMAP-STATUSDBBEOBˀ " FpB#,DECODE-MAP-ENTRYF@BQProtection ~x, ~:[NUBUS ~5,48X~*~;LOCAL ~*~4,48x~] ~ Volatility ~D ~ ~15a ~@[~*Fresh~]pK-MAPlMAP-LOCAL-MEMORY?pBMAP-OFF-BOARD-ADDRESSpBMAP-ON-BOARD-ADDRESSpBMAP-CLUSTER-VOLATILITYBpBlEXTRACT-MAP-STATUSpBlCLUSTER-IS-FRESH?DDBDDBGDB/DBED|@ @ @ @ @ OBˀ FpB#lKBUG2-DUMP-MAP-FOR-CLUSTERFA@pB#KBUG2-READ-MAP-CLUSTERBQ~%#x~4,'0x BBDDBDBBDBDDpB#,CLUSTERDBDDB)DB@ ED@ @@@@E3UYO1Bˀ F B#FA@pB=KBUG-COMMAND-READ-MAPBZBDDBDDB(DBDO>B#ˀ FBrB@FFepB#lKBUG2-GET-STARTING-ADDRESSBIpB&CERRORForget it and continueSymbol ~S not foundDDBDBDBDDpB#WHEREDBBDBDDBbDB @@8 @E3 DDO[Brˀ FBIFA@BpB#GET-NCOMPILED-FUNCTIONDDBDBtBDBDDpB#FCNDBDDBbDBDBE8@@8@@A8OpBI1DB"pB#*BREAKPOINTS*B(1DB"pB#,*BREAKPOINTS-INSTALLED*B(1DBpB#,BREAKPOINT-INSTRDpB#lBREAKPOINTpB#INSTRpB DEFSTRUCT-SLOTˀ FBzFA@DDpBNO-SIMPLE-SUBSTITUTIONBDpBINTERPRETED-DEFINITIONDpB&NAMED-SUBSTDBzDBB|DBBzDB|DpB&,DECLAREB(DpB&AREFB|FDBDDB|BDBEOBz1DBpB#,BREAKPOINT-ADDRDB|BBˀ FBFA@DBDBDBDBDBB|DBBDB|DBB(DBB|FDBDDB|BDBEOB1DBpB#lBREAKPOINT-OFFSETDB|BBBˀ FBFA@DBDBDBDBDBB|DBBDB|DBB(DBB|FDBDDB|BDBEOB1DBpB#,BREAKPOINT-NAMEDB|BBˀ FBFA@DBDBDBDBDBB|DBBDB|DBB(DBB|DBDDB|BDBEOB1DpB&,PUTPROPDBtB|DBtDpB ONEpBNAMED-VECTORB(DD BB(pB %%DEFSTRUCT-EMPTY%%BB(BB(B(B(D BBFB(BB(BB(B(B(D BFB(BBB(BB(B(B(D B~FB(BB(BzB(B(B(BDDpB#,MAKE-BREAKPOINTB(B(FB(B|B(B(B(pB#BREAKPOINT-BB(B(pB#BREAKPOINT-PpB#,COPY-BREAKPOINTB(BB/DBtpB DEFSTRUCT-DESCRIPTION1DBDBtB DBtB|DBtpB DEFSTRUCT-NAMEˀ6,F&B @F F0F2F0F2FeFeBDpBNAMEpBOFFSETpBADDRpBINSTRB-B/pB&,MAKE-ARRAY-INTO-NAMED-STRUCTUREB|DDBDpB ,DEFSTRUCT-EXPAND-WITH-CONS-MACROBDBDB(DBDBBDBDB~B(DBBBDBBBDB~DB@8A@ED@|DEEEEEEEDEEECCEEEBBEEEAAEEE@EOF B ˀ 'FB FA@B-B/B4 B|DDBDDpB lXDBDB(DB@|DE@@E @E@E`@E@E`@EAE`@EBE`@EC@OU B ˀ F B FA@B|DBDBDBB DBM DpB&TYPEPBM DBtB|DBDDBM DBEDOg B 1DpB&,RECORD-SOURCE-FILE-NAMEDBtB|DBtpB&lDEFSTRUCTˀ %FpB#SET-BREAKPOINT-REGIONF@BrBIB B+ B- B/ DDBDBpB&PUSHDBDDpB#FNAMEDpB#FROMDpB#lTODBDDBDBBDB@@EA @ DE DAE DAE@3DZAAE59O Bs ˀ5&F$pB#SET-BREAKPOINTB@BrFFeB B+ B- B/ BIBQ~% *** Function ~S is undefined. ***DDBDBx BDBDDB| DBBDBDDBDBE 8 @ DE DEDE3@@XED @ DE DEDE@3DZO B ˀ FpB#,CLEAR-BREAKPOINTF@BrpB&lDELETE-IFDBB DDDBDBDBDDBDDB| DBFDB8@DvO B ˀ F DBB FA@DDBDBDBDB| DBDDpB#lBPDB|ZE`O B ˀ FpB#,SHOW-BREAKPOINTS@BrBQl~% ~A+~DDDBDBBBBDBDB(DB DBD@ 8@GAEDAE`AE@YO B 1DB"pB#l*SHOW-BREAKPOINT-INSTALLS*B,When non-nil prints messages about breakpoint install/deinstall.ˀ-FpB#INSTALL-BREAKPOINTS@B BrBvBQ,~%Installing breakpoint at virtual #x~XBpB#KBUG-GENERIC-WRITE-INST-VIA-PROCESSOR`(a DDBDBBzpB&SETFBBBDBDB(DB DBbDBDZxED@8@GA`B8 E DBAE @B! BE @YO B ˀ*FpB#,KBUG-INSTALL-BREAKPOINTS@BrBvBQ,~%Installing breakpoint at virtual #x~XBB @(aDDBDBBzB BBBDBDB(DB DBbDBDZxED@8@GA`BE DBAE @B! BE @YO B ˀ %FBV@B BrBvBQl~%Deinstalling breakpoint at virtual #x~XB DDBDBBzBBBDBDB(DB DBbDBDxvD@8@GA`B8 E DB BEAE@YO BVˀ " FpB#lKBUG-SET-STAT-BITB@FFFeFeBIBB FDDBDBDBDDB| DpB#lBIT-VALUEDBDDBbDpB#,OLD-INSTDBE8E @@ @@A @EEDAEO< B" ˀH8F2Bo@B?FFFDpBERRORFeFeFeFeFeFeFepB#KBUG-STEP-SPECBYpBMEMBERpBTESTDBBoBQStopping step at labelBBZDDBDBBpB&INHIBIT-STYLE-WARNINGSBDBDDBDDB'DpB#lSTOP-LISTDBDB(B(B(DpB#lSTOP-ADDRSDB)DBbDBFDB@EBAAE@BZABBY@EC|EBD|BZEEECED8EDDEBUYOp Boˀ F DBBoF@pB&lDDBDDBbDpB#ITEMDBGEO BV ˀ 0FBP FA@BpB&ERRORBad step specDDBDpB&SECONDpB&FIRSTpB&CONSPDBDDpB#lZDBDDBbDpB#LENDBEy8D|A@|@EZ@|AEZA@E@EA3 3 @@|@EZK3@@EO BP ˀ FBr@B?BVBBB BDDB    O Brˀ  F pB#lFLUSH-BREAKPOINTS@BvBrDDBvvO B ˀ &FpB#,KBUG-MAKE-STRINGFA@pB=,KBUG-COMMAND-MAKE-STRINGpB&STRING-LENGTHBBZBDDBDBBBDBDDBDBDDBDBPDB)B(DB@@|@ECBBEEBEBBECUY @D@A @AEO B ˀ !FpB#KBUG-INTERNFPpB&,PACKAGEpB=KBUG-COMMAND-INTERNB BBZBDDBDDBDB DBDDpB#K-SYMBOL-NAMEDpB#K-PACKAGE-NAMEDBPDBD| BAD| B@ D@EA O B ˀ  F pB#WRITE-TO-K-CHARACTER-STREAMFA@pB=KBUG-K-INPUT-CHARACTER-STREAMpB=KBUG-STREAM-WRITE-CHARACTERDDBDDpB&CHARDBDO B ˀ F pB#lREAD-FROM-K-STREAM@pB=KBUG-K-OUTPUT-STREAMpB=lKBUG-STREAM-READ-CHARACTERDDB|@ZO B ˀ4F!pB#SHOW-GLOBALFA@BpB#*GLOBAL-FRAME-TABLE*pB#,KBUG-GENERIC-READ-FRAME-AS-LISTBQ~%~@?B ,Couldn't find global register ~sDDBDpB&RESTBB BDBDDpB#GLOBAL-NAMEDBDDpB#lFRAMELISTDpB#lFRAMECOUNTDpB#lREGISTERSDBBDpB#lREGISTER-CONTENTSDBD|A@8@O|CB8EBGu 8CE@A[D E DDDGDEBCBY@A@Y DO. B ˀ FpB#READ-GLOBAL-REGISTERFA@pB,REGISTERpB#KBUG-GENERIC-READ-REGISTER-WITH-BOXEDDDBDpB&THIRDB DBDDB DBDDpB#lLOCN-LISTDB&DBBDBEDZ@@KA@EZBAE}BEOJ B2 ˀ F B@pB&PRINCpB#READ-STRINGB6DDBOV Bˀ=F&BFA@pB %%DATA-TYPEpB ,$$DTP-COMPILED-FUNCTIONp,K-SYMBOLl*SYMBOL-FUNCTION*BBbB pB PACKAGE-PRIMARY-NAMEpB#,KBUG-GENERIC-READ-MEMORYDDBDpB&,CONTENTSpB&SYMBOL-PACKAGEBrBtBDBDDBDBDDBDpB#SYMDBfDBE8  8 @@8@E`@E` @EZ EzA @AE2BDDBEZ 8 @BE3 @BE3Oy Bˀ1&F"B@pB=,KBUG-INPUT-CHARACTER-STREAM-BASEB pB=KBUG-INPUT-FASL-STREAM-BASEpB=l$$KBUG-STREAM-FLAGS-DIRECTION-TO-KpB=,KBUG-K-INPUT-FASL-STREAMpB=,KBUG-STREAM-BUFFER-SIZEpB=,KBUG-OUTPUT-STREAM-BASEpB=%%KBUG-STREAM-FLAGS-DIRECTIONpB=$$KBUG-STREAM-FLAGS-DIRECTION-FROM-KB pB=KBUG-STREAM-INITIALIZEpBDPBDDBD@D D D D 2 D@ D DDD 2D@ D DDD 2O Bˀ"FpB#KBUG-LOAD-COLD-INFO@pB#*KFASL-STREAM*F F2BBDpBWARNING-STREAMBF pB#,WARM-DOWNLOAD-COLD-INFOB DDBDBDBDB(DpB#WARNING-STREAMDBBDB BDB@8 A@E D DDAO B ˀFpB#lKBUG-FASLB@pB=,KBUG-COMMAND-FASL-STREAMFBBpB#WARM-DOWNLOADpBLOAD-KENV-FILEDDBDDpB#,FILENAMEDpB#LOAD-KENV-FILEDB  E DO B ˀ FpB#lKBUG-DOWNLOAD-FBINFB@BFB pBlFILE-TYPEFBINB DDBDDB DB DBB pB&l&OPTIONALB DBE D D DO B 1DpB lDEFFLAVOR2DBtpB#,OUT-TO-K-STREAMDBtDpB#KBUG-STREAMpB#BUFFER-BASEpB#BUFFER-LIMITpB#,REAL-IN-POINTERpB#lSTALE-OUT-POINTERDBtDpB OUTPUT-STREAMDBtDDpBINITABLE-INSTANCE-VARIABLESB pBGETTABLE-INSTANCE-VARIABLESˀ  F DpBMETHODB pBB FA@B 1EpB lFLAVOR-VAR-SELF-REF-INDEXEBtEB B DDBDDBDpBSELF-FLAVORB DBB pB&lDEFFLAVORDBO B ˀ  F DB B pBBUFFER-BASEFA@B 1EB EBtEB B DDBDDBDB B DBB B DBO. B ˀ  F DB B pBBUFFER-LIMITFA@B 1EB EBtEB B DDBDDBDB B DBB B DBOB B3 ˀ  F DB B pB,REAL-IN-POINTERFA@B 1EB EBtEB B DDBDDBDB B DBB B DBOV BG ˀ  F DB B pBlSTALE-OUT-POINTERFA@B 1EB EBtEB B DDBDDBDB B DBB B DBOj B[ ˀ"FDB B pBRELOAD-INFOFA@B pB=KBUG-STREAM-IN-POINTERB BN pB=,KBUG-STREAM-OUT-POINTERBb pB=,KBUG-STREAM-BASEB& pB=,KBUG-STREAM-ENDB: DDBDDpB .OPERATION.DB B B(B B B B B DB@ @ @ @O Bo ˀ FDB B pB,UPDATE-POINTERSFA@B pB=lSET-KBUG-STREAM-IN-POINTERB BN Bv Bb DDBDB DBDDB| DB B B(B B B B B DBD @ O B ˀ  F DB B pBFORCE-OUTPUTFA@B B DDBDpB&FUNCALL-SELFBDBDDB| DB B B(B B B B B DBB[O B ˀ FpB#WAIT-FOR-SPACE@B B BN Bb B& B: DDBDB BDB B DBB[" Y D 8" T9O B ˀ FDB B pBTYOF@B B pB=lKBUG-SET-COMM-WORDBN B: B& DDBDBpB&INCFDBDDB| DB DB B B(B B B B B DB D D D [Zx D O B ˀ Z4F:DB B pBlSTRING-OUT@B FFF7FeFeFeFeFeFeB BN Bb B: B& B DDBDpB&DECFBBB B BBBDBDDB| DBDBDpB#ENDDBDDpB#STRING-INDEXDpB#CHARS-TO-SENDDpB&SPACEDpB#CHARSDB)B(DB B B(B B B B B DBEZXXEZEESA@*DTXDRDR3DRcBAEBEs[C|CEED DE@E@DTXDDDEEUYAECSA@E9O B ˀFDB B pB,COMBINEDpBFINISH@pBlSELF-MAPPING-TABLEB F F3B 1DpBFDEFINITION-LOCATIONDBtDB B pBBEFOREB 1EB EBtEB BB 1DB DBtDB B B DDBDpB METHOD-MAPPING-TABLEpB COMPILE-TIME-REMEMBER-MAPPING-TABLEDBDDpB .DAEMON-CALLER-ARGS.DpB .DAEMON-MAPPING-TABLE.DpB lCOMBINED-METHOD-DERIVATIONDB B(B(DB B DB(B DBB DB B B(B B B B B DB @EZ D @EZ DO6 DB B pB ,FASLOAD-COMBINEDB ˀ '&FDB B B pBSET@B B F F3B DpB,GET-HANDLER-FORBpBlCASE-DOCUMENTATIONpB CASE-METHOD-DEFAULT-HANDLERB B= pB,WHICH-OPERATIONS1DB DBtDB pB VANILLA-FLAVORB= 1EB EBtEB BBN DDBDB BB! DBDDB% DB( DB- DB= pBCASEpB,BASE-FLAVOR-LASTDB(BO B2 DB B B(B B B B B DB@K D8 DDE@I@Kt8@EZDOg DB B B8 B= 1DpB ,COMPILE-FLAVOR-METHODS-2DBtB 1DB"B DpB&MAKE-INSTANCEDBtB B B 1DB"pB#l*FASL-BUF*DpBlMAKE-ARRAYFpBELEMENT-TYPEDBtpB&STRING-CHARpBFILL-POINTERBˀ:3tFmB A@ B3pB&*READTABLE*Bu pB#l*DOWNLOADED-FILES*pB&l*QUERY-IO*B F F2BF2KFASLFeFeFeFeFeFeFeFe@Fe@BDB B Bn plFSlMERGE-PATHNAME-COMPONENTSpBDEFAULT-TYPEpBlALWAYS-MERGE-TYPEpB,DEFAULT-VERSIONpBNEWESTpBALWAYS-MERGE-VERSIONBQ~&Downloading ~A ~%pB&,TRUENAMEBFBBpBINPUTpB ,SET-FILL-POINTERpBlSTRING-INB BBB BFpB#USERpB FIND-READTABLE-NAMEDlCLpB&LOADKENVpB,VERBOSEDDBDB BBBx BBDBDDpB#FILEDBD B(DB DpB#lFILE-TYPEDpB#PATHB(DBDB/DpB#IBUFDB DpB#EOFDBB BDB BDB B DB@8A@ED @EEDBE DE!D"D#DC$ D%D&C&@C DZ 'DE||/E)@CE*D+DFDG,GEFE|-DEGIH .DGE|HI9EEwD8/DXD0DEŭ 1AEx2@34@5VV6@EED7D DE!D"D#D8DO B ˀ FB A@BDB Bn pK-COLD,FASD-COLD-FUNCTION-INFOB B DDBDBBDBDDB/DBDB(DB DBB/BB DB@8A@EDŀ E DAŀ O B ˀ )*FpB#,KOMPILE-DEFUN-FOR-NEW-PROCESSORB@B B FB FeBn BpB#lCCpZWEITYPEIN-LINE ... downloading ~D instructions ... plK-FASDUMPFASD-COMPILED-FUNCTIONpB,FASD-EOFB DDBDpB#,NCOMPILED-FUNCTION-CODEBDBDDpB#FORMDB/DBDDpB#CODEDB @@D@E`@EŁOB 1DpB COMMAND-DEFINEDBtpB#COM-KOMPILE-DEFUN-FOR-NEW-PROCESSORDBt,DBtB(ˀ FB@pB COMPILE-DEFUN-INTERNALB lKompilinglkompiled.DDBBDBDD O/B1DpB COMMAND-STOREDBtBpB *ZMACS-COMTAB*1DpB ,FASL-RECORD-FILE-MACROS-EXPANDEDDBtD6DBUdsDB! DB `DB [TGDB tDB 9QDB DBj NvDBh dDB; A DB DB NDB ,DB DBY _DB;-DB JDBz;/DB;+DB;)DBx =ODB6 )͡DBDBtUd}DBrUduDBpUdDBE--VDBY7DBl{ DB=~3DB5DBmDB|w7DB}DB8tDBo\DB+FDBliDB;$@DBB+DBkDB~DBDB-DBu}DB:-DBXDBDBDB~DBp8DB1DB1DB<b