1 2 /* "ncp_constants_dcls.incl.pl1" -- include file to */ 3 /* declare some constants used throughout the Multics Network */ 4 /* Control Program (NCP). */ 5 6 /* Originally created by D. M. Wells, 1975, May 19. */ 7 8 declare 9 (NCP_DOWN initial (0), /* the NCP has been shutdown normally */ 10 NCP_UP_IMP_DOWN initial (1), /* the NCP is up, but the IMP is unreachable */ 11 NCP_UP initial (2), /* the NCP is up and running normally */ 12 NCP_CRASHED initial (-1)) /* the NCP has crashed itself */ 13 fixed binary (3) internal static options (constant); 14 15 declare 16 (READ_GENDER initial ("0"b), /* Read sockets are even numbers */ 17 WRITE_GENDER initial ("1"b)) /* Write sockets ar odd numbers */ 18 bit (1) internal static options (constant); 19 20 declare 21 (HOST_OFF initial (0), /* this host is not enabled for communications */ 22 HOST_UP initial (1), /* Host is up and everything ok */ 23 HOST_RST initial (2), /* a Host-Host RST command has been sent */ 24 HOST_DOWN initial (3), /* Foreign host is down */ 25 HOST_ON initial (4)) /* Foreign host is enabled, but not RST yet */ 26 fixed binary (6) internal static options (constant); 27 28 declare 29 (SOCK_UNASSIGNED initial (0), /* This socket entry is not in use currently */ 30 SOCK_ASSIGNED initial (1), /* Socket has been assigned and is quiescent */ 31 SOCK_LISTENING initial (2), /* Socket is listening for incoming-RFCs */ 32 SOCK_RFC_RCVD initial (3), /* Socket has received RFC from foreign socket */ 33 SOCK_RFC_ABORTED initial (4), /* CLS received for unacknowledged RFC */ 34 SOCK_RFC_SENT initial (5), /* RFC sent to foreign socket, but no reply */ 35 SOCK_CONNECTED initial (6), /* Socket is connected to foreign socket */ 36 SOCK_CLS_WAIT initial (7), /* CLS issued, waiting for reply CLS */ 37 /* State 8 is not currently defined */ 38 SOCK_DATA_WAIT initial (9), /* User requested close, but data still here */ 39 SOCK_RFNM_WAIT initial (10), /* User requested close, but waiting on last RFNM */ 40 SOCK_CLS_READ initial (11), /* CLS received, but data still in buffers */ 41 /* State 12 is not currently defined */ 42 SOCK_BROKEN initial (13), /* Socket has been involved in some NCP anomaly */ 43 SOCK_RESET initial (14)) /* Socket was connected to host that was reset */ 44 fixed binary (6) internal static options (constant); 45 46 declare 47 (SOCK_INDX_MASK initial ("000000777777"b3), /* mask to get out actual array index */ 48 SOCK_UNIQUE_MASK initial ("377777000000"b3)) /* mask to get out incrementing part of indx */ 49 bit (36) internal static options (constant); 50 51 declare 52 (ANY_TRACING initial ("400000000000"b3), /* if any tracing is occurring */ 53 PRINTER_TRACING initial ("200000000000"b3), /* if tracing to the ptr is happening */ 54 SYSERR_LOG_TRACING initial ("100000000000"b3), /* if tracing to syserr log mechanism */ 55 56 TRACE_CTL_MSGS initial ("004000000000"b3), /* if host-host ctl msgs should be trcd */ 57 TRACE_PROCESS_INFO initial ("002000000000"b3), /* if process control should be trcd */ 58 TRACE_DATA_FLOW initial ("001000000000"b3), /* if flow of user data to be traced */ 59 60 TRACE_NCP_RING initial ("000400000000"b3), /* if ncp_ring_ should be traced */ 61 TRACE_NCP_ACCESS initial ("000200000000"b3), /* if ncp_access_ should be traced */ 62 TRACE_NCP_DAEMON initial ("000100000000"b3), /* if ncp_daemon_ should be traced */ 63 TRACE_NCP_CONTROL initial ("000040000000"b3), /* if ncp_control_ should be traced */ 64 TRACE_NCP_TBOP initial ("000020000000"b3), /* if ncp_tbop_ should be traced */ 65 TRACE_NCP_IO initial ("000010000000"b3)) /* if ncp_io_ should be traced */ 66 bit (36) aligned internal static options (constant); 67 68 /* end of include file "ncp_constants_dcls.incl.pl1 */ 69