1 /*  BEGIN INCLUDE FILE: bft_values.incl.pl1                   *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-07-15,Flegel), approve(87-07-15,MCR7580),
 6      audit(87-07-30,RBarstad), install(87-08-07,MR12.1-1075):
 7      Created.
 8   2) change(87-10-23,Flegel), approve(87-10-23,MCR7787),
 9      audit(88-01-27,RWaters), install(88-02-24,MR12.2-1028):
10      Converted to use with new queueing strategy;  added data_block structure;
11                                                    END HISTORY COMMENTS */
12 
13 /* format: style4,indattr,ifthen,^indcomtxt,thendo,^indproc,^indblkcom,initcol1,declareind8,dclind4,struclvlind3,comcol55 */
14 
15 dcl bft_minor_$add_to_fetch_queue fixed bin int static options (constant) init (64);
16 dcl bft_minor_$add_to_store_queue fixed bin int static options (constant) init (65);
17 dcl bft_minor_$check_file_length fixed bin int static options (constant) init (66);
18 dcl bft_minor_$initiate_fetch fixed bin int static options (constant) init (67);
19 dcl bft_minor_$bft_shut_down fixed bin int static options (constant) init (68);
20 dcl bft_minor_$position_file_pointer fixed bin int static options (constant) init (69);
21 dcl bft_minor_$receive_data fixed bin int static options (constant) init (70);
22 dcl bft_minor_$receive_eof fixed bin int static options (constant) init (71);
23 dcl bft_minor_$recover_fetch fixed bin int static options (constant) init (72);
24 dcl bft_minor_$recover_store fixed bin int static options (constant) init (73);
25 dcl bft_minor_$read_error fixed bin int static options (constant) init (74);
26 dcl bft_minor_$initiate_store fixed bin int static options (constant) init (75);
27 dcl bft_minor_$write_error fixed bin int static options (constant) init (76);
28 dcl bft_minor_$send_data   fixed bin int static options (constant) init (77);
29 dcl bft_minor_$cancel_request fixed bin int static options (constant) init (78);
30 dcl bft_minor_$expand_pc_path fixed bin int static options (constant) init (80);
31 dcl bft_minor_$full_pc_path fixed bin int static options (constant) init (81);
32 
33 
34 dcl BFT_MINOR_CAPS         fixed bin int static options (constant) init (13);
35 dcl BFT_INBUFFER_SIZE      fixed bin int static options (constant) init (128);
36 dcl BFT_OUTBUFFER_SIZE     fixed bin int static options (constant) init (128);
37 dcl BFT_BLOCK_SIZE         fixed bin (21) int static options (constant) init (110);
38 dcl BFT_FIRST              char (1) int static options (constant) init (" ");
39 dcl BFT_NEXT               char (1) int static options (constant) init ("!");
40 dcl DELIM_CHAR             char (1) based (addr (DEL));
41 dcl DEL                    bit (9) unaligned internal static
42                            options (constant) init ("011111111"b);
43 
44 dcl 01 bft_values_struct,
45        02 destination_filename char (164),
46        02 source_filename  char (164);
47 
48 /* New declarations for queueing */
49 
50 dcl BFT_PC_to_MULTICS     fixed bin internal static options (constant)
51                           init (32);
52 dcl BFT_MULTICS_to_PC     fixed bin internal static options (constant)
53                           init (33);
54 dcl BFT_DATA_BLOCK_VERSION_1 char (8) internal static options (constant)
55                           init ("VERSION1");
56 dcl BFT_INBUFF_LENGTH     fixed bin internal static options (constant)
57                           init (128);
58 dcl BFT_OUTBUFF_LENGTH    fixed bin internal static options (constant)
59                           init (128);
60 
61 dcl data_block_ptr        ptr;                        /* Data to be kept around */
62 dcl 01 data_block         based (data_block_ptr),
63        02 version         char (8),                   /* Version ID */
64        02 pc_bft_num      fixed bin,                  /* Major of PC:BFT */
65        02 inbuff_len      fixed bin,                  /* Input buffer length */
66        02 outbuff_len     fixed bin,                  /* Output buffer length */
67        02 receive_iocb_ptr ptr,                       /* IOCB of receiving file */
68        02 send_iocb_ptr   ptr,                        /* IOCB of sending file */
69        02 system_free_area_ptr ptr,                   /* Pointer to sys free */
70        02 fetch_pending   ptr,                        /* Fetch waiting for PC path */
71        02 store_pending   ptr,                        /* Store waiting for PC path */
72        02 queue_ptr       ptr,                        /* BFT queue segment */
73        02 flags,
74           03 shut_down_sw bit (1) unal,               /* BFT is shutting down */
75           03 pad          bit (35) unal;
76 
77 /* Structure to contain transfer requests awaiting a PC path expansion */
78 
79 dcl 01 pending            based,
80        02 multics_path    char (168),                 /* Multics path */
81        02 pc_path         char (66),                  /* PC path */
82        02 flags           bit(36),                    /* Transfer modes */
83        02 switches,
84           03 processing_sw bit (1) unal,              /* Waiting for PC answer */
85           03 first_sw     bit (1) unal,               /* First match requested */
86           03 pad          bit (34) unal,
87        02 priority        fixed bin,                  /* Priority */
88        02 id              fixed bin,                  /* Request ID */
89        02 next            ptr;                        /* Next in chain */
90 
91 /*  END INCLUDE FILE: bft_values.incl.pl1                     *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */