1 /*  BEGIN INCLUDE FILE iodd_hblp_commands.incl.pl1. */
  2 
  3 
  4 /****^  HISTORY COMMENTS:
  5   1) change(88-08-31,Brunelle), approve(88-08-31,MCR7911),
  6      audit(88-10-12,Wallman), install(88-10-28,MR12.2-1199):
  7      Created.
  8                                                    END HISTORY COMMENTS */
  9 
 10 /* format: style4 */
 11 
 12 
 13 /* ********************************************************************
 14    *  PAGE FORMAT COMMANDS                                            *
 15    ******************************************************************** */
 16 
 17 dcl  1 Set_page_orientation int static,
 18        2 header char (3) unaligned init ("^[^RD"),                    /* ESC DC2 D */
 19        2 body pic "9" unaligned,                            /* 1 = portrait */
 20                                                             /* 2 = landscape */
 21        2 trailer char (1) unaligned init (" ");             /* SP */
 22 
 23 dcl  1 Set_page_length int static,
 24        2 header char (2) unaligned                          /* ESC FF */
 25             init ("^[^L"),
 26        2 body char (1) unaligned;                           /* xx */
 27                                                             /* lines/page */
 28 
 29 dcl  Set_top_margin_position char (2) int static init ("^[T"); /* ESC T */
 30 
 31 dcl  1 Set_top_margin_count int static,
 32        2 header char (3) unaligned init ("^[^TT"),                    /* ESC DC4 T */
 33        2 body char (1) unaligned;                           /* xx */
 34                                                             /* (xx-1) * VMI */
 35 
 36 dcl  1 Set_top_margin int static,                           /* 1/48 inches */
 37        2 header char (3) unaligned init ("^[^RT"),                    /* ESC DC2 T */
 38        2 body pic "9999" unaligned,                         /* n n n n */
 39        2 trailer char (1) unaligned init (" ");             /* SP */
 40 
 41 dcl  Set_bottom_margin_position char (2) int static init ("^[L"); /* ESC L */
 42 
 43 dcl  1 Set_bottom_margin_count int static,
 44        2 header char (3) unaligned init ("^[^TL"),                    /* ESC DC4 L */
 45        2 body char (1) unaligned;                           /* xx */
 46                                                             /* (xx-1) * VMI */
 47 
 48 dcl  1 Set_bottom_margin int static,                        /* 1/48 inches */
 49        2 header char (3) unaligned init ("^[^RL"),                    /* ESC DC2 L */
 50        2 body pic "9999" unaligned,                         /* n n n n */
 51        2 trailer char (1) unaligned init (" ");             /* SP */
 52 
 53 dcl  Set_left_margin_position char (2) int static init ("^[9"); /* ESC 9 */
 54 
 55 dcl  1 Set_left_margin_count int static,
 56        2 header char (3) unaligned init ("^[^T9"),                    /* ESC DC4 9 */
 57        2 body char (1) unaligned;                           /* xx */
 58                                                             /* (xx-1) * HMI */
 59 
 60 dcl  1 Set_left_margin int static,                          /* 1/120 inches */
 61        2 header char (3) unaligned init ("^[^R9"),                    /* ESC DC2 9 */
 62        2 body pic "9999" unaligned,                         /* n n n n */
 63        2 trailer char (1) unaligned init (" ");             /* SP */
 64 
 65 dcl  Set_right_margin_position char (2) int static init ("^[0"); /* ESC 0 */
 66 
 67 dcl  1 Set_right_margin_count int static,
 68        2 header char (3) unaligned init ("^[^T0"),                    /* ESC DC4 0 */
 69        2 body char (1) unaligned;                           /* xx */
 70                                                             /* (xx-1) * HMI */
 71 
 72 dcl  1 Set_right_margin int static,                         /* 1/120 inches */
 73        2 header char (3) unaligned init ("^[^R0"),                    /* ESC DC2 0 */
 74        2 body pic "9999" unaligned,                         /* n n n n */
 75        2 trailer char (1) unaligned init (" ");             /* SP */
 76 
 77 
 78 dcl  Clear_margins char (2) int static init ("^[C");        /* ESC C */
 79                                                             /* resets top & */
 80                                                             /* bottom only */
 81 
 82 /* ********************************************************************
 83    *  REMOTE DIAGNOSTIC COMMANDS                                      *
 84    ******************************************************************** */
 85 
 86 dcl  Initialize_printer char (3) int static init ("^[^ZI"); /* ESC SUB I */
 87 
 88 dcl  Soft_reset char (3) int static                         /* ESC CR P */
 89           init ("^[^MP");
 90 
 91 dcl  Error_reset char (3) int static init ("^[^ZR");        /* ESC SUB R */
 92 
 93 dcl  Request_status_byte_1 char (3) int static init ("^[^Z1");/* ESC SUB 1 */
 94 
 95 dcl  Request_status_byte_3 char (3) int static init ("^[^Z3");/* ESC SUB 3 */
 96 
 97 dcl  Request_printer_status char (5) int static init ("^[^Z#1 "); /* ESC SUB # 1 SP */
 98 
 99 dcl  Request_paper_size_status char (5) int static init ("^[^Z#2 "); /* ESC SUB # 2 SP */
100 
101 dcl  Request_user_memeory_status char (5) int static init ("^[^Z#4 "); /* ESC SUB # 4 SP */
102 
103 dcl  Request_font_status char (5) int static init ("^[^Z#5 ");/* ESC SUB # 5 SP */
104 
105 dcl  Request_character_status char (5) int static init ("^[^Z#6 "); /* ESC SUB # 6 SP */
106 
107 /* ********************************************************************
108    *  SPACING AND CHARACTER MOVEMENT COMMANDS                         *
109    ******************************************************************** */
110 
111 dcl  1 Set_hmi int static,
112        2 header char (2) unaligned init ("^[^_"),           /* ESC US */
113        2 body char (1) unaligned;                           /* xx */
114                                                             /* (xx-1) / 120 */
115 
116 dcl  Set_default_hmi char (2) int static init ("^[S");      /* ESC S */
117 
118 dcl  1 Set_vmi int static,
119        2 header char (2) unaligned init ("^[^^"),           /* ESC RS */
120        2 body char (1) unaligned;                           /* xx */
121                                                             /* (xx-1) / 48 */
122 
123 dcl  Begin_proportional_mode char (2) int static init ("^[P"); /* ESC P */
124 
125 dcl  End_proportional_mode char (2) int static init ("^[Q"); /* ESC Q */
126 
127 dcl  1 Set_letterspace_offset int static,
128        2 header char (2) unaligned init ("^[^Q"),           /* ESC DC1 */
129        2 body char (1) unaligned;                           /* xx */
130                                                             /* xx / 120 */
131 
132 dcl  Incremental_backspace char (2) int static init ("^[^H");         /* ESC BS */
133 
134 dcl  Begin_auto_justify_mode char (2) int static init ("^[M"); /* ESC M */
135 
136 dcl  Begin_auto_center_mode char (2) int static init ("^[=");/* ESC = */
137 
138 dcl  End_auto_center_mode char (1) int static               /* CR */
139           init ("^M");
140 
141 dcl  Begin_program_mode char (3) int static init ("^[^NM"); /* ESC SO M */
142 
143 dcl  Cancel char (2) int static init ("^[X");               /* ESC X */
144 
145 dcl  Begin_newline_mode char (2) int static init ("^[?");   /* ESC ? */
146 
147 dcl  End_newline_mode char (2) int static init ("^[!");     /* ESC ! */
148 
149 dcl  Begin_reverse_print_mode char (2) int static init ("^[<"); /* ESC < */
150 
151 dcl  End_reverse_print_mode char (2) int static init ("^[>");/* ESC > */
152 
153 dcl  Begin_backward_print_mode char (2) int static init ("^[6"); /* ESC 6 */
154 
155 dcl  End_backward_print_mode char (2) int static init ("^[5"); /* ESC 5 */
156 
157 dcl  Half_line_feed char (2) int static init ("^[U");       /* ESC U */
158 
159 dcl  Negative_line_feed char (2) int static init ("^[
160 ");                                                         /* ESC LF */
161 
162 dcl  Negative_half_line_feed char (2) int static init ("^[D"); /* ESC D */
163 
164 /* ********************************************************************
165    *  For the Define Movement command, n can be 1 to 8 as follows:    *
166    *                                                                  *
167    *                CR        LF        FF     (characters received)  *
168    *                                                                  *
169    *     1          CR        LF        FF     (characters executed)  *
170    *     2          CR+LF     LF        FF                            *
171    *     3          CR        LF+CR     FF                            *
172    *     4          CR+LF     LF+CR     FF                            *
173    *     5          CR        LF        FF+CR                         *
174    *     6          CR+LF     LF        FF+CR                         *
175    *     7          CR        LF+CR     FF+CR                         *
176    *     8          CR+LF     LF+CR     FF+CR                         *
177    ******************************************************************** */
178 
179 dcl  1 Define_movement int static,
180        2 header char (3) unaligned init ("^[^RM"),                    /* ESC DC2 M */
181        2 body pic "9" unaligned,                            /* n (1 - 8) */
182        2 trailer char (1) unaligned init (" ");             /* SP */
183 
184 /* ********************************************************************
185    *  FONT COMMANDS                                                   *
186    ******************************************************************** */
187 
188 dcl  1 Assign_font int static,
189        2 header char (3) unaligned init ("^[^RA"),                    /* ESC DC2 A */
190        2 body unaligned,
191          3 font_number pic "99" unaligned,                  /* n n */
192          3 comma char (1) unaligned init (","),             /* , */
193          3 orientation pic "9" unaligned,                   /* 1 = portrait */
194                                                             /* 2 = landscape */
195          3 commercial_at char (1) unaligned init ("@"),     /* @ */
196          3 font_name char (20) unaligned,                   /* ^ trailing SP */
197        2 trailer char (2) unaligned init ("^[ ");           /* ESC SP */
198 
199 /* ********************************************************************
200    *  For the Select Font command, nn can be 00 to 31 as follows:     *
201    *                                                                  *
202    *  01  - Courier 10 (resident)                                     *
203    *  02  - Prestige Elite 12 (resident)                              *
204    *  03  - Century PS (residnt)                                      *
205    *  04  - Letter Gothic 15 (resident)                               *
206    *  11  - first font in upper cartridge                             *
207    *  ..                                                              *
208    *  18  - last font in upper cartridge                              *
209    *  21  - first font in lower cartridge                             *
210    *  ..                                                              *
211    *  28  - last font in upper cartridge                              *
212    *  30  - Linegraph                                                 *
213    ******************************************************************** */
214 
215 dcl  1 Select_font int static,
216        2 header char (3) unaligned init ("^[^RS"),                    /* ESC DC2 S */
217        2 body pic "99" unaligned,                           /* n n */
218        2 trailer char (1) unaligned init (" ");             /* SP */
219 
220 /* ********************************************************************
221    *  CHARACTER ATTRIBUTE COMMANDS                                    *
222    ******************************************************************** */
223 
224 dcl  Begin_underline_mode char (2) int static init ("^[E"); /* ESC E */
225 
226 dcl  End_underline_mode char (2) int static init ("^[R");   /* ESC R */
227 
228 dcl  Begin_bold_mode char (2) int static init ("^[O");      /* ESC O */
229 
230 dcl  Begin_shadow_mode char (2) int static init ("^[W");    /* ESC W */
231 
232 dcl  End_bold_and_shadow_mode char (2) int static init ("^[&"); /* ESC & */
233 
234 dcl  Begin_suppressed_print_mode char (2) int static init ("^[7"); /* ESC 7 */
235 
236 /* ********************************************************************
237    *  TAB COMMANDS                                                    *
238    ******************************************************************** */
239 
240 dcl  Set_horizontal_tab char (2) int static init ("^[1");   /* ESC 1 */
241 
242 dcl  Clear_single_horizontal_tab char (2) int static init ("^[8"); /* ESC 8 */
243 
244 dcl  Set_vertical_tab char (2) int static init ("^[-");     /* ESC - */
245 
246 dcl  Clear_all_tabs char (2) int static init ("^[2");       /* ESC 2 */
247 
248 /* ********************************************************************
249    *  DIRECT POSITIONING COMMANDS                                     *
250    ******************************************************************** */
251 
252 dcl  1 Absolute_horizontal_position_count int static,
253        2 header char (2) unaligned init ("^[      "),       /* ESC HT */
254        2 body char (1) unaligned;                           /* xx */
255                                                             /* (xx-1) * HMI */
256 
257 dcl  1 Absolute_horizontal_position int static,             /* 1/120 inch */
258        2 header char (3) unaligned init ("^[^RH"),                    /* ESC DC2 H */
259        2 body pic "9999" unaligned,                         /* n n n n */
260        2 trailer char (1) unaligned init (" ");             /* SP */
261 
262 dcl  1 Relative_horizontal_position_count int static,
263        2 header char (3) unaligned init ("^[^R "),                    /* ESC DC4 SP */
264        2 sign char (1) unaligned,                           /* + or - */
265        2 body char (1) unaligned;                           /* xx */
266                                                             /* (xx-1) * HMI */
267 
268 dcl  1 Relative_horizontal_position int static,             /* 1/120 inch */
269        2 header char (3) unaligned init ("^[^R "),                    /* ESC DC2 SP */
270        2 sign char (1) unaligned,                           /* + or - */
271        2 body pic "9999" unaligned,                         /* n n n n */
272        2 trailer char (1) unaligned init (" ");             /* SP */
273 
274 dcl  1 Absolute_vertical_position_count int static,
275        2 header char (2) unaligned                          /* ESC VT */
276             init ("^[^K"),
277        2 body char (1) unaligned;                           /* xx */
278                                                             /* (xx-1) * VMI */
279 
280 dcl  1 Absolute_vertical_position int static,               /* 1/48 inch */
281        2 header char (3) unaligned init ("^[^RV"),                    /* ESC DC2 V */
282        2 body pic "9999" unaligned,                         /* n n n n */
283        2 trailer char (1) unaligned init (" ");             /* SP */
284 
285 dcl  1 Relative_vertical_position_count int static,
286        2 header char (3) unaligned init ("^[^R
287 "),                                                         /* ESC DC4 LF */
288        2 sign char (1) unaligned,                           /* + or - */
289        2 body char (1) unaligned;                           /* xx */
290                                                             /* (xx-1) * VMI */
291 
292 dcl  1 Relative_vertical_position int static,               /* 1/48 inch */
293        2 header char (3) unaligned init ("^[^R
294 "),                                                         /* ESC DC2 LF */
295        2 sign char (1) unaligned,                           /* + or - */
296        2 body pic "9999" unaligned,                         /* n n n n */
297        2 trailer char (1) unaligned init (" ");             /* SP */
298 
299 /* ********************************************************************
300    *  OTHER COMMANDS                                                  *
301    ******************************************************************** */
302 
303 dcl  1 Set_number_of_copies int static,
304        2 header char (3) unaligned init ("^[^RN"),                    /* ESC DC2 N */
305        2 body pic "99" unaligned,                           /* n n */
306        2 trailer char (1) unaligned init (" ");             /* SP */
307 
308 dcl  1 Draw_box int static,
309        2 header char (3) unaligned init ("^[^RB"),                    /* ESC DC2 B */
310        2 left_edge pic "9999" unaligned,                    /* n n n n */
311        2 comma1 char (1) unaligned init (","),              /* , */
312        2 top_edge pic "9999" unaligned,                     /* n n n n */
313        2 comma2 char (1) unaligned init (","),              /* , */
314        2 right_edge pic "9999" unaligned,                   /* n n n n */
315                                                             /* from left edge */
316        2 comma3 char (1) unaligned init (","),              /* , */
317        2 bottom_edge pic "9999" unaligned,                  /* n n n n */
318                                                             /* from top edge */
319        2 comma4 char (1) unaligned init (","),              /* , */
320        2 line_width pic "9999" unaligned,                   /* n n n n */
321        2 trailer char (1) unaligned init (" ");             /* SP */
322 
323 dcl  1 Draw_line int static,
324        2 header char (3) unaligned init ("^[^RR"),                    /* ESC DC2 R */
325        2 left_edge pic "9999" unaligned,                    /* n n n n */
326        2 comma1 char (1) unaligned init (","),              /* , */
327        2 top_edge pic "9999" unaligned,                     /* n n n n */
328        2 comma2 char (1) unaligned init (","),              /* , */
329        2 right_edge pic "9999" unaligned,                   /* n n n n */
330                                                             /* from left edge */
331        2 comma3 char (1) unaligned init (","),              /* , */
332        2 bottom_edge pic "9999" unaligned,                  /* n n n n */
333                                                             /* from top edge */
334        2 trailer char (1) unaligned init (" ");             /* SP */
335 
336 dcl  Begin_graphics_mode char (2) int static init ("^[3");  /* ESC 3 */
337 
338 dcl  End_graphics_mode char (2) int static init ("^[4");    /* ESC 4 */
339 
340 dcl  Enter_vector_plot_mode_absolute_exclude char (2) int static init ("^[G"); /* ESC G */
341 
342 dcl  Enter_vector_plot_mode_absolute_include char (3) int static init ("^[G^G"); /* ESC G BEL */
343 
344 dcl  Enter_vector_plot_mode_relative_exclude char (2) int static init ("^[V"); /* ESC V */
345 
346 dcl  Enter_vector_plot_mode_relative_include char (3) int static init ("^[V^G"); /* ESC V BEL */
347 
348 dcl  1 Change_plot_character int static,
349        2 header char (2) unaligned init ("^[."),            /* ESC . */
350        2 body char (1) unaligned;                           /* xx */
351 
352 dcl  1 Set_plot_precision int static,
353        2 header char (2) unaligned init ("^[,"),            /* ESC , */
354        2 xx char (1) unaligned,                             /* xx */
355        2 yy char (1) unaligned;                             /* yy */
356                                                             /* (xx-32)/120 */
357                                                             /* (yy-32)/48 */
358 
359 dcl  Exit_vector_plot_mode char (2) int static init ("^[4"); /* ESC 4 */
360 
361 /*  END INCLUDE FILE iodd_hblp_commands.incl.pl1. */