1 
 2 
 3      "BEGIN INCLUDE FILE picture_image.incl.alm
 4 
 5           "Created 06/11/79  1216.2 edt Mon by convert_include_file,
 6           "   Version of 03/21/77  1355.7 edt Mon.
 7 "
 8 "  modified from that by JRD, cause convert_include_file has bugs
 9 "
10 
11           "Made from >udd>Multics>JRDavis>as>picture_image.incl.pl1,
12           "   modified 06/11/79  1216.2 edt Mon
13 
14 "
15 "         Structure picture_image
16 "
17           equ       picture_image.type_word,0
18           equ       picture_image.type_shift,27
19           bool      picture_image.type_mask,000777
20 
21           equ       picture_image.prec_word,0
22           equ       picture_image.prec_shift,18
23           bool      picture_image.prec_mask,000777
24 
25           equ       picture_image.scale_word,0
26           equ       picture_image.scale_shift,9
27           bool      picture_image.scale_mask,000777
28 
29           equ       picture_image.piclength_word,0
30           equ       picture_image.piclength_shift,0
31           bool      picture_image.piclength_mask,000777
32 
33           equ       picture_image.varlength_word,1
34           equ       picture_image.varlength_shift,27
35           bool      picture_image.varlength_mask,000777
36 
37           equ       picture_image.scalefactor_word,1
38           equ       picture_image.scalefactor_shift,18
39           bool      picture_image.scalefactor_mask,000777
40 
41           equ       picture_image.explength_word,1
42           equ       picture_image.explength_shift,9
43           bool      picture_image.explength_mask,000777
44 
45           equ       picture_image.drift_char_word,1
46 
47           equ       picture_image.chars_word,2
48 
49           equ       picture_char_type,24
50           equ       picture_realfix_type,25
51           equ       picture_complexfix_type,26
52           equ       picture_realflo_type,27
53           equ       picture_complexflo_type,28
54 
55 "  dcl 1 picture_image        aligned based
56 "        2 type               fixed bin (8) unal,
57 "        2 prec               fixed bin (8) unal,
58 "        2 scale              fixed bin (8) unal,
59 "        2 piclength          fixed bin (8) unal,
60 "
61 "        2 varlength          fixed bin (8) unal,
62 "        2 scalefactor        fixed bin (8) unal,
63 "        2 explength          fixed bin (8) unal,
64 "        2 drift_char         char (1) unal,
65 "
66 "        2 chars              char (0 refer (picture_image.piclength));
67 "
68 "END INCLUDE FILE picture_image.incl.alm