diff options
Diffstat (limited to 'drivers')
| -rw-r--r-- | drivers/pd3000.pl | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/drivers/pd3000.pl b/drivers/pd3000.pl new file mode 100644 index 00000000..a73ae932 --- /dev/null +++ b/drivers/pd3000.pl @@ -0,0 +1,47 @@ +# +###################################################################### +# 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'}; + |