1 02/13/84  adjust_bit_count_
 2 
 3 
 4 Entry points in adjust_bit_count_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: adjust_bit_count_: 02/13/84  adjust_bit_count_
 9 
10 Function: finds the last nonzero word or character of a segment or
11 multisegment file and sets the bit count accordingly.  In the case of
12 a multisegment file, empty trailing components are deleted and the
13 returned bit count is the sum of the bit counts of the nonzero
14 components.  Only the bit count of the last component is altered.
15 This subroutine performs the basic work of the adjust_bit_count
16 command.
17 
18 
19 Syntax:
20 declare adjust_bit_count_ entry (char(168) aligned, char(32) aligned,
21      bit(1) aligned, fixed bin(35), fixed bin(35));
22 call adjust_bit_count_ (dir_name, entryname, char_sw, bit_count, code);
23 
24 
25 Arguments:
26 dir_name
27    is the pathname of the containing directory.  (Input)
28 entryname
29    is the entryname of the segment.  (Input)
30 char_sw
31    is the character switch.  (Input)
32    "0"b   adjusts to last bit of last nonzero word.
33    "1"b   adjusts to last bit of last nonzero character.
34 
35 
36 bit_count
37    is the computed bit count for the segment.  (Output) If the value is
38    less than 0, it indicates that no attempt to compute the count was
39    made (code is nonzero).  If the value is greater than or equal to 0,
40    the computed value is correct, whether or not the bit count could be
41    set.
42 code
43    is a standard status code.  (Output)