1 /* BEGIN INCLUDE FILE ... polled_vip_mpx_data.incl.pl1 */ 2 /* Created 12/20/78 by J. Stern */ 3 4 5 dcl pvmdp ptr; 6 dcl pvmd_nchan fixed bin; /* hbound of pvmd.subchan_table */ 7 8 dcl 1 pvmd aligned based (pvmdp), /* polled vip multiplexer data */ 9 2 devx fixed bin, /* device (LCT) index */ 10 2 nchan fixed bin, /* number of subchannels */ 11 2 name char (32) unal, /* major channel name */ 12 2 writep ptr, /* ptr to frame now being written */ 13 2 write_chan fixed bin, /* subchan that owns current write frame */ 14 2 nstation fixed bin (17) unal, /* number of stations initially configured */ 15 2 cur_nstation fixed bin (17) unal, /* number of stations currently configured */ 16 2 station_to_subchan (0:31) unal, 17 3 display fixed bin (8) unal, /* display subchan for given station */ 18 3 printer fixed bin (8) unal, /* printer subchan for given station */ 19 2 station_mask (0:35) bit (1) unal, /* bit i ON if station i initially configured */ 20 2 cur_station_mask (0:35) bit (1) unal, /* bit i ON if station i currently configured */ 21 2 load_proc_id bit (36), /* bootload process id */ 22 2 load_ev_chan fixed bin (71), /* bootload event channel */ 23 2 dialup_info bit (72), /* dialup interrupt info */ 24 2 pause_time fixed bin, /* pause time between polling cycles */ 25 2 max_text_len fixed bin, /* max data chars in output text message */ 26 2 max_message_len fixed bin, /* max number of characters in input message */ 27 2 function_codes, /* chars having special meanings as function codes */ 28 3 quit char (1) unal, 29 3 formfeed char (1) unal, 30 3 pad char (2) unal, 31 2 flags, 32 3 send_output bit (1) unal, /* ON if ok to send more output */ 33 3 mpx_started bit (1) unal, /* ON if multiplexer started */ 34 3 mpx_loading bit (1) unal, /* ON if multiplexer load in progress */ 35 3 mpx_loaded bit (1) unal, /* ON if multiplexer loaded */ 36 3 polling_started bit (1) unal, /* ON if polling started */ 37 3 controller_poll bit (1) unal, /* ON if controller polling; OFF if station polling */ 38 3 partial_frame bit (1) unal, /* ON if partial frame has been written */ 39 3 crlf_echo bit (1) unal, /* ON to enable CRLF echoing */ 40 3 omit_nl bit (1) unal, /* ON to omit adding NL to received msgs */ 41 3 omit_ff bit (1) unal, /* ON to omit sending FF at top of page */ 42 3 gcos_break bit (1) unal, /* ON to accept $*$BRK as quit indication */ 43 3 etb_mode bit (1) unal, /* ON to terminate partial messages with ETB */ 44 3 unused bit (24) unal, 45 2 error_counters like pvip_mpx_meters, /* counters for errors reported by the FNP */ 46 2 saved_meters_ptr ptr, /* pointer to target for copy_meters order */ 47 2 subchan_table (pvmd_nchan refer (pvmd.nchan)) like pvste; /* subchannel table */ 48 49 50 dcl pvstep ptr; 51 52 dcl 1 pvste aligned based (pvstep), /* polled vip subchannel table entry */ 53 2 station_addr fixed bin (9) unsigned unal, /* station address (0 - 31) */ 54 2 name char (3) unal, /* subchan component name */ 55 2 devx fixed bin (17) unal, /* subchan device (LCT) index */ 56 2 write_chain fixed bin (18) unsigned unal, /* offset of first write buffer */ 57 2 flags unal, 58 3 printer bit (1) unal, /* ON if printer; OFF if display */ 59 3 hold_output bit (1) unal, /* ON if waiting for FF (display) or ACK (printer) */ 60 3 eop bit (1) unal, /* ON if next output must clear screen */ 61 3 hndlquit bit (1) unal, /* ON if in hndlquit mode */ 62 3 listen bit (1) unal, /* ON if listening for dialup */ 63 3 dialed bit (1) unal, /* ON if subchan is dialed up */ 64 3 slave bit (1) unal, /* ON for slave subchans */ 65 3 unused bit (2) unal, 66 2 naks fixed bin (8) unal, /* printer status NAK counter */ 67 2 baud_rate fixed bin (17) unal, /* printer baud rate, 300 or 1200 */ 68 2 pgofs fixed bin (8) unal, /* page overflow counter (display only) */ 69 2 writes fixed bin (8) unal, /* count of frames written since first page overflow */ 70 2 pad fixed bin (17) unal, 71 2 meters like pvip_subchan_meters, 72 2 saved_meters_ptr ptr; 73 74 /* END INCLUDE FILE ... polled_vip_mpx_data.incl.pl1 */