1 
 2 /*             "user_ftp_instance_dcls.incl.pl1" -- include file to   */
 3 /*        declare the instance block template for the user side of    */
 4 /*        Multics File Transfer Protocol (FTP) implementation.        */
 5 
 6 /*        Originally created by D. M. Wells, May 22, 1975.            */
 7 
 8      declare
 9           1 UFTPIB_template aligned based,                  /* user FTP instance block                        */
10              2 storage_management aligned,
11                 3 allocation_ptr pointer,                   /* points to area in which allocated (if any)     */
12                 3 magic_pattern character (8) unaligned,
13                 3 old_lock_pad bit (36) aligned,
14 
15              2 unique_identifier bit (70) unaligned,
16 
17              2 attachment aligned,
18                 3 control_attachment aligned,
19                    4 telnet_iocb pointer,
20                    4 foreign_host fixed binary (16),
21                    4 foreign_socket fixed binary (32),
22                    4 first_pin fixed binary (8),
23                    4 user_assigned_pin fixed binary (8),
24 
25                    4 users_output_iocb pointer,
26                    4 trace_iocb pointer,
27 
28                 3 transfer_attachment,
29                    4 xfer_iocb pointer,
30                    4 foreign_host fixed binary (16),
31                    4 foreign_socket fixed binary (32),
32 
33                    4 syned_xfer_iocb pointer,               /* special inhibited iocb that user can handle    */
34 
35              2 PADDING (4) fixed binary (71),
36 
37              2 operations aligned,
38                 3 read_status_struc aligned,                /* the read_status control structure              */
39                    4 event_channel fixed binary (71),
40                    4 input_available bit (1) unaligned,
41                    4 padding bit (35) unaligned,
42 
43                 3 pending_msg_list pointer,                 /* chain of messages not entirely received        */
44                 3 reply_msg_list pointer,                   /* pointer to chain of buffers of rcvd msgs       */
45 
46                 3 current_state unaligned,
47                    4 in_progress bit (1),                   /* on if any operations in progress               */
48                    4 abort_in_progress bit (1),             /* on if awaiting recovery from any abort         */
49                    4 padd bit (34),
50                 3 protocol_info unaligned,
51                    4 ftp_10596 bit (1),                     /* "old" protocol (RFC 354)                       */
52                    4 ftp_17759 bit (1),                     /* "new" protocol (RFC 542)                       */
53                    4 padd bit (34),
54 
55              2 PADDING2 (4) fixed binary (71),
56 
57              2 file_transfer_params aligned,
58                 3 in_effect like transfer_parameters,       /* what the foreign system is assuming            */
59                 3 desired like transfer_parameters,         /* what we are trying to get towards              */
60                 3 user like transfer_parameters,            /* what user has specified for his xfers          */
61 
62              2 end_of_UFTPIB bit (1);
63 
64      declare
65           1 transfer_parameters aligned based,              /* the various choices for transfer parameters    */
66              2 time_changed fixed binary (71),              /* trace info about time params changed           */
67              2 byte_size fixed binary (8),                  /* 1 - 255                                        */
68              2 type aligned,                                /* various things here, so structure              */
69                 3 data_type fixed binary (6),               /* A(scii), E(bcdic), I(mage), L(ocal byte)       */
70                 3 format fixed binary (6),                  /* N(on-print), T(elnet), C(arriage control)      */
71                                                             /* -- A and E types only                          */
72                 3 local_byte_size fixed binary (8),         /* logical bytesize for local-byte mode           */
73              2 mode fixed binary (6),                       /* S(tream), B(lock), C(ompressed)                */
74              2 structure fixed binary (6),                  /* F(ile), R(ecord)                               */
75              2 padding (3) fixed binary (35);
76 
77 /*        end include file "user_ftp_instance_dcls.incl.pl1           */
78