- #
- ######################################################################
- # LedgerSMB Accounting and ERP
- # http://www.ledgersmb.org/
- #
- # Copyright (C) 2006
- # This work contains copyrighted information from a number of sources all used
- # with permission.
- #
- # This file contains source code included with or based on SQL-Ledger which
- # is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
- # under the GNU General Public License version 2 or, at your option, any later
- # version. For a full list including contact information of contributors,
- # maintainers, and copyright holders, see the CONTRIBUTORS file.
- # Driver for Logic Controls PD-3000 Pole Display.
- # As with all pole display drivers, the control codes are contained in a hash
- # array called $pd_control.
- # THis pole display uses separate meanings for LF and CR. Both are included.
- # LF moves the cursor to the other line (same position), while CR moves the
- # cursor to the left-most spot (same line). Assume most PD's do this.
- # Most of this is simple ASCII, but what to make things clear.
- # This first part is straight from the manual.
- # Not including the bit about installing fonts.
- %pd_control = (
- 'mode_vscroll' => pack( 'C', 18 ),
- 'mode_normal' => pack( 'C', 17 ),
- 'bright_full' => pack( 'CC', 4, 0xFF ),
- 'bright_high' => pack( 'CC', 4, 0x60 ),
- 'bright_med' => pack( 'CC', 4, 0x40 ),
- 'bright_low' => pack( 'CC', 4, 0x20 ),
- 'backspace' => pack( 'C', 8 ),
- 'htab' => pack( 'C', 9 ), # Functions like cursor movement
- 'lf' => pack( 'C', 0x0A ),
- 'cr' => pack( 'C', 0x0D ),
- 'digit_select' => pack( 'C', 0x10 ), # Pack followed by a number 0-39
- 'cursor_on' => pack( 'C', 0x13 ),
- 'cursor_off' => pack( 'C', 0x14 ),
- 'reset' => pack( 'C', 0x1F ),
- 'scroll_message' => pack( 'C', 0x05 ), # Followed by up to 45 chars.
- );
- # A few more useful control sequences:
- $pd_control{'new_line'} = $pd_control{'cr'} . $pd_control{'lf'};
|
