Select Code to Download

sub init {
    my ($this, $str, @params) = @_;
    $this->{DATA}{DEVICE} = "lp0";   # <---
    $this->{DATA}{BASE} = linux_opendev($this->{DATA}{DEVICE});
    ...

#!/usr/bin/perl -w

...
    my $val  = ord shift;
    printf "%-13s %02x  %08b\n", "$portname port:", $val, $val;
}

Data port:    00  00000000
Control port: c0  11000000
...
set control    4  (bit 2)
Control port: c4  11000100
Status port:  7f  01111111