1 2 /* BEGIN include file ncp_process_dcls.incl.pl1 -- */ 3 4 /* This include file contains declarations of per-process data. */ 5 6 /* Originally created by D. M. Wells, Jan, 1976 from a previously */ 7 /* existing include file. */ 8 9 declare 10 1 gdt aligned based, /* this holds data to/from outside world */ 11 2 init_sw fixed binary (30), /* set to 620998 iff initialized properly. */ 12 /* This particular value has no significance */ 13 2 error_code fixed binary (35), /* a code returned by internal modules */ 14 2 request_code fixed binary (12), /* type of request to be performed (input) */ 15 2 ncp_idx bit (36) unaligned, /* handle of socket to be manipulated (input) */ 16 2 state fixed binary (6), /* state of the socket (output) */ 17 2 privilege_code fixed binary (2), /* = 0 unpriv, = 1 priv, = 2 daemon */ 18 2 nbytes fixed binary (24), /* number of bytes of data presented (input) */ 19 2 nelemt fixed binary (24), /* number of bytes transmitted (output) */ 20 21 2 areap pointer, /* pointer to a supplied area (input) */ 22 2 fsoc bit (64) unaligned, /* foreign socket associated with this request */ 23 2 fsoc_pad bit (8) unaligned, 24 2 abort_location label, /* label to goto on procedure abort */ 25 26 2 host_tbl_index fixed binary (17), /* host_tbl index of foreign host */ 27 2 proc_id_arg bit (36), /* process id argument */ 28 2 entry_time fixed binary (71), /* time NCP was entered by this call */ 29 2 entry_type fixed binary (17), /* 1, 2 daemon; 3 userid; 4 process_rq; */ 30 /* 5 global_chnchn; 6 socket_state; 7 micro */ 31 2 nprocs_sw fixed binary (30), /* = 459248 if nprocs cell was properly set */ 32 2 event_chn fixed binary (71), /* event_channel argument */ 33 34 2 proc_tbp pointer, /* pointer to this process's static info block */ 35 2 global_queue aligned, /* impdim global queue info struct */ 36 3 gq_type fixed binary (17), /* imp_global_state substructure begins here */ 37 3 gq_imp_state character (8) unaligned, /* state of our IMP (up, down?) */ 38 3 gq_message bit (32) aligned, /* special message sent by IMP */ 39 40 3 gq_imp_index fixed binary (17), /* imp_dim index of this link */ 41 3 gq_host_id fixed binary (32), /* host identifier of a foreign host */ 42 3 gq_link fixed binary (8), /* link number of this link */ 43 3 gq_status aligned, /* of this link returned by imp_global_state */ 44 4 sba (0 : 17) bit (1) unaligned, /* status bits from imp dim */ 45 46 2 spaceg2 (14) fixed binary (17); 47 48 declare 49 1 pdt aligned based, /* information about each process using NCP */ 50 2 gdtp pointer, /* points to this call's global_data base */ 51 2 returnp label, /* return label for non-local error goto */ 52 53 2 multuid character (32) unaligned, /* process group id */ 54 55 2 netuid bit (24), /* Network id of this process */ 56 2 lockid bit (36), /* lock id of process, = ""b iff unassigned */ 57 2 processid bit (36), /* process id of this process */ 58 2 error_recur fixed binary (17), /* number of ncp error recursions */ 59 2 global_ev_chn fixed binary (71), /* this process gets changes of NCP state */ 60 2 num_activations fixed binary (17), 61 2 proc_devx fixed binary (12), 62 2 spacep2 (2) fixed binary (17); 63 64 declare 65 1 error_snapshot aligned based, /* snapshot of process info for an NCP error */ 66 2 ewho character (32) unaligned, /* process group id of detecting process */ 67 2 econdition character (32) unaligned, /* condition signalled */ 68 69 2 etime fixed binary (71), /* time of error */ 70 2 error_number fixed binary (17), 71 2 spacee1 (5) fixed binary (17), 72 73 2 mc_cond (32) bit (36) aligned, /* machine conditions */ 74 2 if_data (8) fixed binary (17), /* space for software supplied data */ 75 2 proc_slot aligned like pdt, /* copy of proc_tbl entry for this process */ 76 2 gdt_data aligned like gdt, /* copy of ncp_global_data at time of error */ 77 2 associated_data (24) bit (36) aligned; /* add'l info -- usually copy of socket entry */ 78 79 /* END include file ncp_process_dcls.incl.pl1 -- */ 80