1 /* START OF: entry_desc_info.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 4 5 /****^ HISTORY COMMENTS: 6 1) change(84-11-29,Ranzenbach), approve(86-03-12,MCR7144), 7 audit(86-03-12,GWMay), install(86-05-01,MR12.0-1051): 8 for version 2. This version allows the caller to specify a pointer to 9 the beginning of the offset and its bit count. This allows the 10 processing of archive components. 11 12 NOTICE: 13 All applications which use this structure should be converted to 14 use version 2. Version 1 can be retained by setting the version to 15 a value of 1. The constant entry_desc_info_version_1 has been 16 removed from the file. 17 END HISTORY COMMENTS */ 18 19 20 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 21 /* */ 22 /* Name: entry_desc_info.incl.pl1 */ 23 /* */ 24 /* This include file is used by get_entry_arg_desc_$info, $text_only_info and their */ 25 /* callers. It declares the flag bits obtained from the entry sequence of a procedure */ 26 /* entry point. */ 27 /* */ 28 /* Status */ 29 /* */ 30 /* 0) Created in May, 1979 by G. C. Dixon */ 31 /* */ 32 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 33 34 dcl 1 entry_desc_info aligned based(entry_desc_info_ptr), 35 2 version fixed bin, /* version number of this structure (= 2) */ 36 2 flags, 37 38 (3 basic_indicator, /* on if this is a BASIC program. */ 39 3 revision_1, /* on if program entry has stuff added after 5/75 */ 40 3 has_descriptors, /* on if entry point had valid parm. descriptors */ 41 3 variable, /* on if entry point takes undefined no. of args */ 42 3 function) /* on if entry point is a function */ 43 bit(1) unaligned, 44 3 pad bit(13) unaligned, 45 /* version 2 fields follow */ 46 2 object_ptr ptr, /* -> beginning of object segment... (INPUT) */ 47 2 bit_count fixed bin (24); /* bit count of object... (INPUT) */ 48 49 dcl entry_desc_info_version_2 fixed bin int static options(constant) init(2), 50 entry_desc_info_ptr ptr; 51 52 /* END OF: entry_desc_info.incl.pl1 * * * * * * * * * * * * * * * * */