1 /* BEGIN INCLUDE FILE ... mlsys_fips98_message.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-01-09,Herbst), approve(86-03-25,MCR7367),
 6      audit(86-04-28,Margolin), install(86-05-22,MR12.0-1059):
 7      Added "seen" switch.
 8                                                    END HISTORY COMMENTS */
 9 
10 
11 /* Created:  June 1983 by G. Palter */
12 
13 /* Definition of a message as stored in the mailbox by the Multics Mail System:  The format used to store messages is
14    defined by Federal Information Processing Standard 98 with Multics extensions.  In addition, the data is stored in
15    8-bit bytes right-justified within 9-bit characters to accomodate the Multics hardware */
16 
17 dcl  1 fips98_message aligned based (fips98_message_ptr),
18        2 header,
19          3 version character (8) unaligned,
20          3 flags,
21            4 interactive bit (1) unaligned,                 /* ON => this is an interactive message */
22            4 acknowledge bit (1) unaligned,                 /* ON => this message requests an acknowledgement */
23            4 seen bit (1) unaligned,                        /* ON => has been printed by read_mail */
24            4 pad bit (33) unaligned,
25          3 n_bytes fixed binary (21),                       /* # of bytes of encoded information */
26        2 data aligned,                                      /* insures that the following is word aligned */
27          3 bytes (fips98_message_n_bytes refer (fips98_message.n_bytes)) bit (9) unaligned;
28 
29 dcl  FIPS98_MESSAGE_VERSION_1 character (8) static options (constant) initial ("fips98_1");
30 
31 dcl  fips98_message_ptr pointer;
32 
33 dcl  fips98_message_n_bytes fixed binary (21);
34 
35 /* END INCLUDE FILE ... mlsys_fips98_message.incl.pl1 */