hưs2D p,COMPILE-DATADAMS,Lisp Machine One2ښFdFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB AMSpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElFCDB:pB lUNSPECIFICDB:DsyspatchDB:system-100-19DB:lispDB:B>pB lPATCH-FILEpB lTpB BASEFpB ,PACKAGEpB USERpB lREADTABLEpB lZLFC: /sys/network/chaos/chsncpN[plSIPATCH-SOURCE-FILE-NAMESTRINGpCHAOS,RECEIPTˀE *F-BaDINHIBIT-SCHEDULING-FLAGFFF2@B-FeFeFeFepB_,FREE-PKTFpB_,UPDATE-WINDOW-AVAILABLEDDpB ,MACROS-EXPANDEDDpB_SEND-PKT-ACKEDWHENpB_SEND-PKTS-LASTÀUNLESSSETFBIT-TESTpB_,PKT-NUMpB_,PKTNUM-<ÀPSETQDECFpB_,PKT-LINKpB_,SEND-PKTS-LENGTHpB_lSEND-PKTSCWITHOUT-INTERRUPTSDpB(,ARG-MAPDDpB_CONNDpB_,ACK-LEVDpB_,REC-LEVDpB(lLOCAL-MAPDDBhDpB_SENDSDpB_NEXTDÀLENGTHDpB_PKTE`E`CADEE`ABDCBED8DEDE`SYEAE!ECE!AXEE!DE`SXEE!OBaNILNB^FC: /sys/network/chaos/chsncpNB^pB_RETRANSMISSIONˀE8FaBFA@BhpB_lPKTS-RETRANSMITTEDpB_MAXIMUM-INDEX-LOG-2-MINUS-1pB_lINDEX-CONNpB_lMORE-RETRANSMISSION-NEEDEDpB_SNS-OPDpB_lOPEN-STATEpB_RFC-SENT-STATEpB_BROADCAST-SENT-STATEFpB_,ALLOCATE-INT-PKTFFpB_lTRANSMIT-INT-PKT-FOR-CONNTIMEÀFERROR~S in SEND-PKTS list for incorrect CONN:CONN ~S, (PKT-SOURCE-CONN PKT) ~S.CTIME-LESSPTIME-DIFFERENCEpB_,PKTNUM--pB_TRANSMIT-PKTpB_FREEBsDDBxDBINCFpB_,PKT-BEING-RETRANSMITTEDpB_,RETRANSMISSION-INTERVALpB_CONN-RETRANSMISSION-INTERVALpB_PKT-TIME-TRANSMITTEDpB_PKT-SOURCE-INDEX-NUMpB_,PKT-SOURCE-CONNBCDO-FOREVERpB_PKT-FWD-COUNTpB_lPKT-NBYTESpB_lPKT-OPCODEBBpB_PKT-NUM-SENTBzBBpB_STATEB{DBDDBDBDDBDBDpB_FIRST-PKT-NUMEVE` D[xE &X DE`E`SXvBA DDAE`Z!AE| |AE`Z!AE|DAE`Z!EAE B@EVE`A8`BHE DDAE`ZJ[u XEDAEE DDAE`ZJE @EAEB*X@@EAEBE`||@AE`BZs[r[ZUXAEEG!vAEEAEG`t8AEEG!A AEEG!AEE`AAYOBBNB^FC: /sys/network/chaos/chsncpNB^pB_,CONN-FINISHED-PˀF BFA@BDDBxDNEQBBDBDDBDÁDOCUMENTATIONlT unless connection is open but not all our transmissions have been acknowledged.E`ZE`D[OBBNB^FC: /sys/network/chaos/chsncpNB^pB_,RECEIVE-INT-PKTˀ;_vFBFA@ pB_DAT-OPpB_EOF-OPpB_STS-OPBpB_UNC-OPpB_ANS-OPpB_FWD-OPpB_OPN-OPpB_DISTINGUISHED-PORT-CONN-TABLEBBpB_MNT-OPpB_CLS-OPpB_LOS-OPpB_RFC-OPpB_DATA-PKTS-INpB_PKTS-FORWARDEDpB_PKTS-OVER-FORWARDEDpB_MAX-DATA-BYTES-PER-PKTpB_lMY-ADDRESSpB_BRD-OPpB_lROUTING-TABLE-TYPEpB_lROUTING-TABLE-COSTpB_ROUTING-TABLEpB_FIRST-DATA-WORD-IN-PKTpB_RUT-OPFpB_FREE-INT-PKTpB_RECEIVE-BRDFFpB_,TRANSMIT-INT-PKTpB_RECORD-INT-PKT-HEADERpB_RECEIVE-RFCpB_RECEIVE-LOSpB_RECEIVE-CLSpB_TRANSMIT-LOS-INT-PKTYou are not connected to this indexNo such index existsBpB_RECEIVE-OPNpB_RECEIVE-FWDpB_RECEIVE-ANSpB_RECEIVE-UNCIllegal opcodelThat is not your index number for this connectionBConnection not openBapB_lRECEIVE-EOF-OR-DATpB_RECEIVE-SNSpB_RECEIVE-STSDDBxDpB_PKT-ACK-NUMBpB_lFOREIGN-INDEX-NUMBpB_lTIME-LAST-RECEIVEDpB_,FOREIGN-ADDRESSpB_,LOCAL-INDEX-NUMpB_lPKT-DEST-INDEX-NUMpB_PKT-DEST-CONNBBBpB_,PKT-DEST-ADDRESSBBB{pB_lPKT-SOURCE-ADDRESSBBDBDDpB_,INT-PKTDBD DpB_lOPDBDpB_ACKNDpB_lIDpB_lNDpB_,GATEWAYDpB_lN-SUBNETSDpB_SUBNETDpB_COST DE`Z@|E`ZX!@E68D |E`ZE`Di[FEDC"ECEJ[GECEZJ[HGEFU8HEDGEJ[5 XDGEJXDGEEEDGEHECE3CDDE9!@E8E`8"ŀE`+XE`8!#DE`Z$X |E`Z48!DZE#DE`ZZ#DE`Z!#DE`Z%&ŀ|@X@E8'@E8(@E8)@E8!DDE`ZJ[A8E`AE` 8AE`XE`AE`XE`DZIAX*EDA8+,AE-B !@E 8.AE@E 8/AE@E 80AE@E 81AE@E  X@E X@EX@ET8*ED2ĀE`AE` X@E 8!*ED3AE`4t X@E 8!*ED5ĀE`B6AEB@ET8@E87AE@E 88AE@E89AEOBBNB^FC: /sys/network/chaos/chsncpNB^Brˀ FBrF@BaBODDBxDpB_PKT-FIRST-DATA-WORDBtpB_PKT-SECOND-DATA-WORDpB_FOREIGN-WINDOW-SIZEBDBDDBDBEE `!EE`EOBrBNB^FC: /sys/network/chaos/chsncpNB^pB_RFC-MEETS-LSNˀ ?F&BF@pB_DEFAULT-WINDOW-SIZEpB_MAXIMUM-WINDOW-SIZEpB_lRFC-RECEIVED-STATEpB_INTERRUPT-CONNpB ,CHANGE-OF-STATEpB INPUTDDBxDBpB_READ-PKTS-LASTpB_lREAD-PKTSBpB_PKT-NUM-ACKEDpB_,PKT-NUM-RECEIVEDBpB_PKT-NUM-READBtBBBvBBzBDBDDBDBEE`!EE`!EE`48DE`!EE` !EE` !EE` !ED!EE!EE!EEE! DE DOBBNB^FC: /sys/network/chaos/chsncpNB^Bcˀ*i*F?BcF@B4B@pB_,RESERVED-INT-PKTBBBaBpB_TRANSMIT-STSpB_OPNBBB_,You didn't open this connectionlBad state for OPNDDBxDB~B|BBBzBtBxBBBBBBBBvBBCASEDBDDBDBDBDDpB\.SELECTQ.ITEM.E`@ t'8EE`!EE `!EE` !EE` !EE` !E B ! EEE D!E EDE @E t 8E`E`8E`E`8DE` 8E`E`8E EEDEDOBcBNB^FC: /sys/network/chaos/chsncpNB^pB_RESET-ROUTING-TABLEˀC"F*B@pSYSTEMPROCESSOR-TYPE-CODEB@pB_lMY-SUBNETBDpB_MAXIMUM-ROUTING-COSTBFBHpB_,MY-OTHER-SUBNETSpB CHAOSpB ,ETHERNETDDBxDBSELECT-PROCESSORBBDOTIMESDBDDBBDBFlush out old routing data. v| Di[A@  D@E| D@E D D@EE@@EAUY DDD DD |Du8 DD! DDDDu8 DDDO"BBNB^FC: /sys/network/chaos/chsncpN#B^pB_ENABLEˀ %"FB%@B%pB_*RECEIVE-BROADCAST-PACKETS-P*pB_,RECEIVERpB_lBACKGROUNDpB lREVOKE-RUN-REASONpB_lINTERFACE-RESET-AND-ENABLEpB PRESETB1pB lRUN-REASONpB_RECEIVE-ANY-FUNCTIONDDBxDSEND   D  DEEO@B%BNB^FC: /sys/network/chaos/chsncpNAB^1DpB\lDEFSELECT-INTERNALDB:DpB ,PROPERTYBÂNAMED-STRUCTURE-INVOKEDB:BDB:DpB ,DESCRIBEpB lPRINT-SELFpB ,WHICH-OPERATIONSpB OPERATION-HANDLED-PpB ,SEND-IF-HANDLESpB ,GET-HANDLER-FORB-DpB SELECT-METHODBGBKˀ F B\F@pB_lPRINT-CONNCDESCRIBE-DEFSTRUCTBDDBDDÀIGNOREDBEOlB\DB[BGBMˀ![2F:BmF@*PRINT-BASE*Á*PRINT-RADIX**READTABLE*pB PRINT-READABLYpB lPRINT-NOT-READABLEpB\,PRINT-RAW-STRINGpB lSTRING-OUT,CHAOS ConnectionlbroadcastpB\GET-HOST-FROM-ADDRESSBpB_,RFC-CONTACT-NAMEÀFORMATl to ~A ~ApB_SERVER-CONTACT-NAME from ~A to ~A serverpB TYOpB\PRINT-FIXNUMDDBxDpB\PTTBL-SPACEpB_lCONN-PLISTLOCFGETFBzB<pB\PTTBL-RANDOMpB PRINTING-RANDOM-OBJECTDBDDBfDBDÀSTREAMDBfDBfDBDDpB_FHOSTDpB_,CONTACT 8 D[`GEł D āE`8D@E`@E|[DZA8ED E|[DZA8ED@EAłDDS|6VEZŁ D[`IEŁOBmBNB^FC: /sys/network/chaos/chsncpNB^Bˀ T(F4BFB@BhBBBBB6B>B,Attempt to transmit an invalid packet (~S).The length ~O is greater than the maximum packet size (~O).F,~S has null connection.BBUpB_lCONVERT-TO-INT-PKTDDBxD pB_PKT-TIMES-TRANSMITTEDBBBBtBBBBBB{BDBDDBDpB_ACK-PDBDDBDBDBPut the pkt on the transmit list, and create a phony transmitter interrupt if needed so that the interrupt level will start sending.If the second arg is T, put an ACK aboard this PKT.This is a very low level function, called mainly by the following 2 functions.(Also called by the retransmitter and forwarder.) |E`Z 4 8 E DE |E`Z ā$8DE`Z XDE`Z XEVDDE`ZJ[@X ED@E `AEAE!@EAE !EBB!EEC`ZC!OBBNB^FC: /sys/network/chaos/chsncpNB^BUˀFz:FBUD@ BhpB %CHAOS-LEADER-THREADpB_lINT-TRANSMIT-LIST-POINTERp,ETHERNET*ETHERNET-CHAOS-PKTS-NOT-TRANSMITTED-LACKING-ETHERNET-ADDRESS*pB_,PKTS-TRANSMITTEDpBl*ETHERNET-CHAOS-PKTS-TRANSMITTED*pBCHAOS-ETHERNET-TYPEpBMY-ETHERNET-ADDRESSB pB\,*MY-OP*pB\*ETHERNET-HARDWARE-CONTROLLER*pB\l*OTHER-PROCESSORS*BDpB ,%CHAOS-LEADER-BIT-COUNTpB %CHAOS-LEADER-CSR-2pB %CHAOS-LEADER-CSR-1B@pB_DATA-PKTS-OUTpB_lCHAOS-BUFFER-AREABJpB ,%CHAOS-LEADER-WORD-COUNTBHBBFFFFFFFeFeFeFeFe@FeFeFeFeFe@FeFBlbad routing tableAttempt to transmit non-interrupt packet ~A.BOFBBpB\SHARE-MODE-ACTIVE-PB pUNIXlPROCESSOR-FOR-HOST-IF-ON-MY-NUBUSpBGET-ETHERNET-ADDRESSpB,SEND-INT-PKT-VIA-UNIBUS-ETHERNETpBlSEND-INT-PKT-VIA-MULTIBUS-ETHERNETpB ,TRANSMIT-INT-PKT-TO-SHARING-HOSTB,Trying to use chaosnet hardwareThe argument ~2@*~A was ~1@*~S, which is not ~3@*~A.DpCLIMEMBERBBDAREFBDDLDBFpB_HOSTpB\,TYPE-PRETTY-NAMEDDBxDpB_INT-PKT-THREADpB_lINT-TRANSMIT-LISTBÀDOLISTBBBÀECASEBpB_lINT-PKT-BIT-COUNTpB_INT-PKT-CSR-2pB_INT-PKT-CSR-1BBBpB_lPKT-NWORDSpB_lINT-PKT-WORD-COUNTBpB_,PKT-DEST-SUBNETBDBDDBDBDBDpB_BROADCAST-IF-NECESSARYDBD DpB_lHARDWARE-PDpB_lLOCAL-PROCDpB_lOTHER-LOCAL-PROCSDpB_N-16-BIT-WORDSDBDpB_ETHER-ADDRESSBDBDpB_lOLD-TRANSMIT-LISTE`0DE`ZEEXED XEDZUXDEJ[0DEZDZUX1E2ĀEDD |E`ZZ EZ3ZEED[ZEEq[X1E3Dŀ|0DE`ZXԁE 88E8E`X4ŁE'8 |E`Z52|0[3CEDCEZED|ED|EDCES5rEED[SDEV6D0DEZJ[D7tE88D|898E8DBDD[ :@AXDtXDAE@@8;@E8Du8EGFYA8>EA4DE?t8Du81E@EVHw D|W[HEDHEDHEE9p1EADBDDECDDBOWBUBNB^FC: /sys/network/chaos/chsncpNXB^pB_GET-NEXT-PKTˀ ,x@FLBZD@BhB&FFChaosnet InputFFCFeFe@DBBpB_ANSWERED-STATEpB_FOREIGN-STATEBpB_lCLS-RECEIVED-STATEBpB ,CONNECTION-NO-MORE-DATA,Attempt to receive from ~S,a connection which has been closed by foreign host.pB_REPORT-BAD-CONNECTION-STATEreceive fromFBBBpB_WINDOW-FULLpB_RELEASE-PKTPROCESS-WAITDpB ,INTERNALBZDDBxD pB_lLOCAL-WINDOW-SIZEBBBBBBBBBB~BBDpB(lLOCAL-FUNCTION-MAPDDBDDBDpB_lNO-HANG-PDpB_,WHOSTATEDpB_,CHECK-CONN-STATEDBDDBDpB INTERNAL-FEF-OFFSETSFDBReturn the next input packet from connection CONN.The packet may contain data, or it may be a CLS, ANS or UNC.If the next input packet is not are available, either wait or return NIL according to NO-HANG-P.WHOSTATE is what to put in the who-line while we wait, if we wait.CHECK-CONN-STATE non-NIL says get an error now if connection is in an invalid state. Default is T unless NO-HANG-P.When you are finished with the data in the packet, use RETURN-PKTto allow the chaosnet ncp to reuse the packet.DpB(,COMPILER-ARGLISTBC&OPTIONALBDBBdDBDNOTBEZ8E`DXE`t8E XDDEEVE`@8DD@E`ZXE@E` !E@EE`!E XEE!@8E`t8|@@E`E sE`5XE@8@@X8@EDŬOBZBˀF DB}BZFA@DBBlBDDBxDBBDBDDpB_lXBE`E`D[OBBNB^FC: /sys/network/chaos/chsncpNB^B]ˀ64FPB]FA@BhB4DTP-FIXBJBBBOBDBBpB_ALLOCATE-PKTpB\lARRAY-DATA-OFFSETpB_lFREE-ALL-SEND-PKTSpB_FREE-ALL-RECEIVED-PKTSBoBBBB_,You sent a CLS to the wrong kind of connection.DDBxD BBBBpB_lPKT-STRINGBBB1pB_CONVERT-TO-PKTBB~BDBDDBDBDDBDpB_,INT-FLAGDBDpB_PKT8DpB_,INT-PKT9DpB_NW10 D DE`ZJ[BX BE` D[[BE`DR8BEDC D |DE`ZZ EZ3EEVDDE@Dŏ[DCE@Cŏ[EE|0[|7 |DE`ZCED`P DCE@EVBBBED!BE XBE@E!EABE`@EE!BE@E!@EEE!DBEAExDBEDOB]BNB^FC: /sys/network/chaos/chsncpNB^Bgˀ+j(F?BgF@BhBBJDBBBOBBBpB_BROADCAST-ANS-RECEPTION-CHANGES-STATEBjBBBDDBxD BBBBBBB~BBBB1BBDBDDBDBDBDDBDpB_PKT11DpB_lINT-PKT12DpB_NW13E` DX BEBAD |BE`ZZ EZ3CEVDBE @Bŏ[DAE @Aŏ[CE|0[|7 |BE`ZAED`P BAE@E` t8E|[D8ED!E@E!@EEE!E` t8E|[D8DEDOBgBNB^FC: /sys/network/chaos/chuseNB^pB_lOPEN-BROADCAST-CONNECTIONˀ'<NFcB@BhpB_RETRANSMISSION-NEEDEDB@BBBFF FF0F0FeFeFe@Fe@pB_SUBNET-BIT-MAPpB_,MAKE-CONNECTIONFBFpB\,SETPROPpB_BROADCAST-CONNECTIONBpB_SUBNET-BIT-MAP-LENGTHBBpB_SET-PKT-STRINGBBBBsDDBxDBB}BBBxpB_,WINDOW-AVAILABLEBBBBB|BBB~BBBBtBzBBDBDDpB_,SUBNETSDpB_CONTACT-NAMEDpB_PKT-ALLOCATIONDpB_lUPDATE-ANS-STATE-PDBDDBDB&DBDBDBBroadcast a service request from CONTACT-NAME over certain subnets.PKT-ALLOCATION is the buffering size for unread requests as they come over the net.The connection returned is in the CHAOS:BROADCAST-SENT-STATE.DEA@BB|E Ds[r[!BE|!DE/EBCAE!CE DDCE`Z!CEEE!CE|!CE|!CED!CEBE`!BE|[DBE|[D@BE|[DABE|[DBE|[ D!CE@EEVBE|!BE"B !BE#D!$CEEVBECE!BECE!BE|!ECwEC8%CŭBODBBNB^FC: /sys/network/chaos/peekchNEB^pB_PEEK-CHAOS-PACKET-ITEMˀ3GfFzBGB@pB_OPCODE-LISTB B@FFeFeFeLISTDpB PRE-PROCESS-FUNCTIONpB_,PEEK-CHAOS-PACKET-INSERT-HOSTATplTVlSCROLL-PARSE-ITEMpB LEADERpB lMOUSE-ITEMÀLIST*pB EVALpB_PEEK-CHAOS-HOST-MENUB:DB:pB\ITEMDpB DOCUMENTATIONlMenu of useful things to do to this host.pB STRINGB~V@TPacket ~:[to~;from~] ~@[~A ~](~O)lbroadcastBBpB ,FUNCTIONBDBD, transmitted ~D timesBDBD, (at ~O)BDBD~:[, being retransmitted~;~]pB_lPKT-STATUSDBD,~:[~;, Status: ~@*G~A~], fowarded ~D time~:PFF,~V@T~A (~O), ~O bytes, number ~O, acking ~O, source idx ~O, dest idx ~OData~V@TpB_PEEK-CHAOS-PKT-WORDS~V@TString: pB_PEEK-CHAOS-PKT-STRINGDDBxD B~BBtBBBBpB\XR-BQ-LIST*pB\lXR-BQ-LISTBBBDBDDBDpB_INDENTDBDDpB_TO-USDpB_lOTHER-HOSTDBDBReturns an item that describes a chaosnet packet. Mouseable subfields are: The host: Left: Causes info about the host to displayed inferior to the packet. Middle: Causes a static hostat to be displayed inferior to the packet. Right (menu): Typeout Hostat, Supdup, Telnet, QsendSample output:Pkt [to ! from] (number){, transmitted times (at