hưs8p,LAMBDAF2Dp,lFASD-DATADwkfMaurice Ravel31FFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGElK2pB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACROCKBUG-GET-COMM-WORDDLOCATIONlRead the LOCATION'th word of the KBUG communication area.DplSIXR-BQ-LIST*DB;ÀPROGNDpBDlXR-BQ-LISTDB;p,HARDWARElVMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDDBJDB;C+DB;ÁKBUG-BASE-ADDRBADB;DDpBKDPBDpBK,READ-MDp,VINCULUM%%FIXNUM-FIELD1DB?CKBUG-SET-COMM-WORDDBAÀVALUElChange the value of the LOCATION'th word of the KBUG communication area to VALUE.DBFDB;BGDBJDB;pBK,WRITE-MD-UNBOXEDBeDBJDB;pBKlVMA-START-WRITE-NO-GC-TRAP-UNBOXEDDBFDB;BOBADB;DBQDB;DDpBKNOP1DB?CKBUG-READ-COMMANDNILDB;DBGDBMCKBUG-COMMAND-ADDRDBVDBXB\1DB?KBUG-SET-STATUSDDATADBFDB;BGDBJDB;BjBDB;DDBnKBUG-STATUS-ADDRDBv1DB?KBUG-SET-COMMANDDBDBFDB;BGDBJDB;BjBDB;DDBnBDBv1DB?ÁKBUG-SET-DATADADDRBDBFDB;BGDBJDB;BjBDBJDB;BnDBFDB;BOBDB;DKBUG-DATA-TRANSFER-AREA-ADDRDB;DDBv1DB?ÁKBUG-READ-DATADBDBFDB;BGDBJDB;BMDBFDB;BOBDB;DBDB;DDBX1DB?KBUG-READ-DATA-AND-SET-BOXEDDBDBFDB;BGDBJDB;pBK,VMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-BOXEDDBFDB;BOBDB;DBDB;DDBX1DB?KBUG-READ-PARAMETERDCNDBFDB;BGDBJDB;BMDBFDB;BOBDB;DKBUG-PARAMETER-ADDRDB;DDBX1DB?CKBUG-READ-PARAMETER-AND-SET-BOXEDDBDBFDB;BGDBJDB;BDBFDB;BOBDB;DBDB;DDBX1DB?ÁKBUG-VM-WRITEDBBDBFDB;BGDBJDB;BjBDBJDB;BnBDB;DDpBKMEMORY-WAIT1DB?KBUG-VM-READDBDBFDB;BGDBJDB;BMBDB;DDBX1DplNC,DEF-DECLARATIONÀFIXNUMÀSUBSTDB;DpBNAMED-LAMBDABDCXDpBKlDPB-BOXEDBB\1DDEFCONSTANT*DEBUGGER-LED-COUNT*FP1DB?ÁIMAGE-VM-WRITEDBASEBÀOFFSETDBFDB;BGDBJDB;BjBDBJDB;BnDBJDB;pBK32+B'B&DB;DDB1DB?ÁIMAGE-VM-READDB&B'DBFDB;BGDBJDB;BMDBJDB;B.B'B&DB;DDBX1DÀDEFVARÃ*FALCON-LOWLEVEL-ROOT-REGION*1DBE*FALCON-DEBUG-ROOT-CLUSTER*1DBE*FALCON-COMMUNICATION-ROOT-CLUSTER*