/* BEGIN INCLUDE FILE iodd_hblp_commands.incl.pl1. */ /****^ HISTORY COMMENTS: 1) change(88-08-31,Brunelle), approve(88-08-31,MCR7911), audit(88-10-12,Wallman), install(88-10-28,MR12.2-1199): Created. END HISTORY COMMENTS */ /* format: style4 */ /* ******************************************************************** * PAGE FORMAT COMMANDS * ******************************************************************** */ dcl 1 Set_page_orientation int static, 2 header char (3) unaligned init ("D"), /* ESC DC2 D */ 2 body pic "9" unaligned, /* 1 = portrait */ /* 2 = landscape */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl 1 Set_page_length int static, 2 header char (2) unaligned /* ESC FF */ init (" "), 2 body char (1) unaligned; /* xx */ /* lines/page */ dcl Set_top_margin_position char (2) int static init ("T"); /* ESC T */ dcl 1 Set_top_margin_count int static, 2 header char (3) unaligned init ("T"), /* ESC DC4 T */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * VMI */ dcl 1 Set_top_margin int static, /* 1/48 inches */ 2 header char (3) unaligned init ("T"), /* ESC DC2 T */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl Set_bottom_margin_position char (2) int static init ("L"); /* ESC L */ dcl 1 Set_bottom_margin_count int static, 2 header char (3) unaligned init ("L"), /* ESC DC4 L */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * VMI */ dcl 1 Set_bottom_margin int static, /* 1/48 inches */ 2 header char (3) unaligned init ("L"), /* ESC DC2 L */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl Set_left_margin_position char (2) int static init ("9"); /* ESC 9 */ dcl 1 Set_left_margin_count int static, 2 header char (3) unaligned init ("9"), /* ESC DC4 9 */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * HMI */ dcl 1 Set_left_margin int static, /* 1/120 inches */ 2 header char (3) unaligned init ("9"), /* ESC DC2 9 */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl Set_right_margin_position char (2) int static init ("0"); /* ESC 0 */ dcl 1 Set_right_margin_count int static, 2 header char (3) unaligned init ("0"), /* ESC DC4 0 */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * HMI */ dcl 1 Set_right_margin int static, /* 1/120 inches */ 2 header char (3) unaligned init ("0"), /* ESC DC2 0 */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl Clear_margins char (2) int static init ("C"); /* ESC C */ /* resets top & */ /* bottom only */ /* ******************************************************************** * REMOTE DIAGNOSTIC COMMANDS * ******************************************************************** */ dcl Initialize_printer char (3) int static init ("I"); /* ESC SUB I */ dcl Soft_reset char (3) int static /* ESC CR P */ init (" P"); dcl Error_reset char (3) int static init ("R"); /* ESC SUB R */ dcl Request_status_byte_1 char (3) int static init ("1");/* ESC SUB 1 */ dcl Request_status_byte_3 char (3) int static init ("3");/* ESC SUB 3 */ dcl Request_printer_status char (5) int static init ("#1 "); /* ESC SUB # 1 SP */ dcl Request_paper_size_status char (5) int static init ("#2 "); /* ESC SUB # 2 SP */ dcl Request_user_memeory_status char (5) int static init ("#4 "); /* ESC SUB # 4 SP */ dcl Request_font_status char (5) int static init ("#5 ");/* ESC SUB # 5 SP */ dcl Request_character_status char (5) int static init ("#6 "); /* ESC SUB # 6 SP */ /* ******************************************************************** * SPACING AND CHARACTER MOVEMENT COMMANDS * ******************************************************************** */ dcl 1 Set_hmi int static, 2 header char (2) unaligned init (""), /* ESC US */ 2 body char (1) unaligned; /* xx */ /* (xx-1) / 120 */ dcl Set_default_hmi char (2) int static init ("S"); /* ESC S */ dcl 1 Set_vmi int static, 2 header char (2) unaligned init (""), /* ESC RS */ 2 body char (1) unaligned; /* xx */ /* (xx-1) / 48 */ dcl Begin_proportional_mode char (2) int static init ("P"); /* ESC P */ dcl End_proportional_mode char (2) int static init ("Q"); /* ESC Q */ dcl 1 Set_letterspace_offset int static, 2 header char (2) unaligned init (""), /* ESC DC1 */ 2 body char (1) unaligned; /* xx */ /* xx / 120 */ dcl Incremental_backspace char (2) int static init (""); /* ESC BS */ dcl Begin_auto_justify_mode char (2) int static init ("M"); /* ESC M */ dcl Begin_auto_center_mode char (2) int static init ("=");/* ESC = */ dcl End_auto_center_mode char (1) int static /* CR */ init (" "); dcl Begin_program_mode char (3) int static init ("M"); /* ESC SO M */ dcl Cancel char (2) int static init ("X"); /* ESC X */ dcl Begin_newline_mode char (2) int static init ("?"); /* ESC ? */ dcl End_newline_mode char (2) int static init ("!"); /* ESC ! */ dcl Begin_reverse_print_mode char (2) int static init ("<"); /* ESC < */ dcl End_reverse_print_mode char (2) int static init (">");/* ESC > */ dcl Begin_backward_print_mode char (2) int static init ("6"); /* ESC 6 */ dcl End_backward_print_mode char (2) int static init ("5"); /* ESC 5 */ dcl Half_line_feed char (2) int static init ("U"); /* ESC U */ dcl Negative_line_feed char (2) int static init (" "); /* ESC LF */ dcl Negative_half_line_feed char (2) int static init ("D"); /* ESC D */ /* ******************************************************************** * For the Define Movement command, n can be 1 to 8 as follows: * * * * CR LF FF (characters received) * * * * 1 CR LF FF (characters executed) * * 2 CR+LF LF FF * * 3 CR LF+CR FF * * 4 CR+LF LF+CR FF * * 5 CR LF FF+CR * * 6 CR+LF LF FF+CR * * 7 CR LF+CR FF+CR * * 8 CR+LF LF+CR FF+CR * ******************************************************************** */ dcl 1 Define_movement int static, 2 header char (3) unaligned init ("M"), /* ESC DC2 M */ 2 body pic "9" unaligned, /* n (1 - 8) */ 2 trailer char (1) unaligned init (" "); /* SP */ /* ******************************************************************** * FONT COMMANDS * ******************************************************************** */ dcl 1 Assign_font int static, 2 header char (3) unaligned init ("A"), /* ESC DC2 A */ 2 body unaligned, 3 font_number pic "99" unaligned, /* n n */ 3 comma char (1) unaligned init (","), /* , */ 3 orientation pic "9" unaligned, /* 1 = portrait */ /* 2 = landscape */ 3 commercial_at char (1) unaligned init ("@"), /* @ */ 3 font_name char (20) unaligned, /* ^ trailing SP */ 2 trailer char (2) unaligned init (" "); /* ESC SP */ /* ******************************************************************** * For the Select Font command, nn can be 00 to 31 as follows: * * * * 01 - Courier 10 (resident) * * 02 - Prestige Elite 12 (resident) * * 03 - Century PS (residnt) * * 04 - Letter Gothic 15 (resident) * * 11 - first font in upper cartridge * * .. * * 18 - last font in upper cartridge * * 21 - first font in lower cartridge * * .. * * 28 - last font in upper cartridge * * 30 - Linegraph * ******************************************************************** */ dcl 1 Select_font int static, 2 header char (3) unaligned init ("S"), /* ESC DC2 S */ 2 body pic "99" unaligned, /* n n */ 2 trailer char (1) unaligned init (" "); /* SP */ /* ******************************************************************** * CHARACTER ATTRIBUTE COMMANDS * ******************************************************************** */ dcl Begin_underline_mode char (2) int static init ("E"); /* ESC E */ dcl End_underline_mode char (2) int static init ("R"); /* ESC R */ dcl Begin_bold_mode char (2) int static init ("O"); /* ESC O */ dcl Begin_shadow_mode char (2) int static init ("W"); /* ESC W */ dcl End_bold_and_shadow_mode char (2) int static init ("&"); /* ESC & */ dcl Begin_suppressed_print_mode char (2) int static init ("7"); /* ESC 7 */ /* ******************************************************************** * TAB COMMANDS * ******************************************************************** */ dcl Set_horizontal_tab char (2) int static init ("1"); /* ESC 1 */ dcl Clear_single_horizontal_tab char (2) int static init ("8"); /* ESC 8 */ dcl Set_vertical_tab char (2) int static init ("-"); /* ESC - */ dcl Clear_all_tabs char (2) int static init ("2"); /* ESC 2 */ /* ******************************************************************** * DIRECT POSITIONING COMMANDS * ******************************************************************** */ dcl 1 Absolute_horizontal_position_count int static, 2 header char (2) unaligned init (" "), /* ESC HT */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * HMI */ dcl 1 Absolute_horizontal_position int static, /* 1/120 inch */ 2 header char (3) unaligned init ("H"), /* ESC DC2 H */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl 1 Relative_horizontal_position_count int static, 2 header char (3) unaligned init (" "), /* ESC DC4 SP */ 2 sign char (1) unaligned, /* + or - */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * HMI */ dcl 1 Relative_horizontal_position int static, /* 1/120 inch */ 2 header char (3) unaligned init (" "), /* ESC DC2 SP */ 2 sign char (1) unaligned, /* + or - */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl 1 Absolute_vertical_position_count int static, 2 header char (2) unaligned /* ESC VT */ init (" "), 2 body char (1) unaligned; /* xx */ /* (xx-1) * VMI */ dcl 1 Absolute_vertical_position int static, /* 1/48 inch */ 2 header char (3) unaligned init ("V"), /* ESC DC2 V */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl 1 Relative_vertical_position_count int static, 2 header char (3) unaligned init (" "), /* ESC DC4 LF */ 2 sign char (1) unaligned, /* + or - */ 2 body char (1) unaligned; /* xx */ /* (xx-1) * VMI */ dcl 1 Relative_vertical_position int static, /* 1/48 inch */ 2 header char (3) unaligned init (" "), /* ESC DC2 LF */ 2 sign char (1) unaligned, /* + or - */ 2 body pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ /* ******************************************************************** * OTHER COMMANDS * ******************************************************************** */ dcl 1 Set_number_of_copies int static, 2 header char (3) unaligned init ("N"), /* ESC DC2 N */ 2 body pic "99" unaligned, /* n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl 1 Draw_box int static, 2 header char (3) unaligned init ("B"), /* ESC DC2 B */ 2 left_edge pic "9999" unaligned, /* n n n n */ 2 comma1 char (1) unaligned init (","), /* , */ 2 top_edge pic "9999" unaligned, /* n n n n */ 2 comma2 char (1) unaligned init (","), /* , */ 2 right_edge pic "9999" unaligned, /* n n n n */ /* from left edge */ 2 comma3 char (1) unaligned init (","), /* , */ 2 bottom_edge pic "9999" unaligned, /* n n n n */ /* from top edge */ 2 comma4 char (1) unaligned init (","), /* , */ 2 line_width pic "9999" unaligned, /* n n n n */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl 1 Draw_line int static, 2 header char (3) unaligned init ("R"), /* ESC DC2 R */ 2 left_edge pic "9999" unaligned, /* n n n n */ 2 comma1 char (1) unaligned init (","), /* , */ 2 top_edge pic "9999" unaligned, /* n n n n */ 2 comma2 char (1) unaligned init (","), /* , */ 2 right_edge pic "9999" unaligned, /* n n n n */ /* from left edge */ 2 comma3 char (1) unaligned init (","), /* , */ 2 bottom_edge pic "9999" unaligned, /* n n n n */ /* from top edge */ 2 trailer char (1) unaligned init (" "); /* SP */ dcl Begin_graphics_mode char (2) int static init ("3"); /* ESC 3 */ dcl End_graphics_mode char (2) int static init ("4"); /* ESC 4 */ dcl Enter_vector_plot_mode_absolute_exclude char (2) int static init ("G"); /* ESC G */ dcl Enter_vector_plot_mode_absolute_include char (3) int static init ("G"); /* ESC G BEL */ dcl Enter_vector_plot_mode_relative_exclude char (2) int static init ("V"); /* ESC V */ dcl Enter_vector_plot_mode_relative_include char (3) int static init ("V"); /* ESC V BEL */ dcl 1 Change_plot_character int static, 2 header char (2) unaligned init ("."), /* ESC . */ 2 body char (1) unaligned; /* xx */ dcl 1 Set_plot_precision int static, 2 header char (2) unaligned init (","), /* ESC , */ 2 xx char (1) unaligned, /* xx */ 2 yy char (1) unaligned; /* yy */ /* (xx-32)/120 */ /* (yy-32)/48 */ dcl Exit_vector_plot_mode char (2) int static init ("4"); /* ESC 4 */ /* END INCLUDE FILE iodd_hblp_commands.incl.pl1. */ */ ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull and Bull HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by Bull HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved */