diff --git a/lib/Insteon/Message.pm b/lib/Insteon/Message.pm
index 3dedaa8df..80d2b45b8 100755
--- a/lib/Insteon/Message.pm
+++ b/lib/Insteon/Message.pm
@@ -687,4 +687,4 @@ sub generate_commands
         return @data;
 }
 
-1
+1;
diff --git a/lib/Insteon/MessageDecoder.pm b/lib/Insteon/MessageDecoder.pm
new file mode 100755
index 000000000..fbf646322
--- /dev/null
+++ b/lib/Insteon/MessageDecoder.pm
@@ -0,0 +1,879 @@
+package Insteon::MessageDecoder;
+
+use strict;
+
+=head1 NAME
+
+B<Insteon::MessageDecoder> - Static class for decoding Insteon PLM messages
+
+=head1 SYNOPSIS
+
+    use Insteon::MessageDecoder;
+    my $decodedMessage = Insteon::MessageDecoder::plm_decode($plm_string);
+
+=head1 DESCRIPTION
+
+Insteon::MessageDecoder will decode Insteon PLM messages. Functions are 
+provided to decode the PLM envelope, X10 commands, Insteon flags, and 
+Insteon Cmd1/Cmd2 bytes.  User data (D1-D14) of extended messages is not 
+decoded but will be displayed.
+
+=head1 EXAMPLE
+
+    use Insteon::MessageDecoder;
+    my $plm_string;
+    
+    $plm_string = '02621f058c1f2e000100000000000000000000000000';
+    print( "PLM Message: $plm_string\n");
+    print( Insteon::MessageDecoder::plm_decode($plm_string)."\n");
+    
+    $plm_string = '02511f058c1edc30112e000101000020201cfe3f0001000000';
+    print( "PLM Message: $plm_string\n");
+    print( Insteon::MessageDecoder::plm_decode($plm_string)."\n");
+
+=head1 LIMITATIONS
+
+The message decoder is not perfect.  It does not keep message state and 
+several of the Insteon ACK message formats can "only" be decoded relative
+to the most recent command sent to the ACKing device.  Some ACK messages 
+will be incorrectly decoded as part of another Insteon message. For 
+example in the ACK for a "Light Status Request", cmd1 is the ALDB serial 
+number.  This serial number will be interpreted as another Insteon message
+where the serial number matches the cmd1 value.  Be aware of this and you 
+should still be able to intrepret the decided messages.
+
+Extended messages are not decoded and only display the D1-D14 hex data.  
+You will need to manually decode the extended data.  Patches for decoding 
+one or more extended messages are welcome.
+
+=head1 BUGS
+
+There are probably many bugs.  The decoder was designed by transcribing 
+Insteon documentation, Jonathan Dale's excellent command reference, and 
+reviewing many message board discussions.  The decoder has not been 
+tested with all devices (of all firmware revs) or all PLM combinations 
+(of all firmware revs).  There are bugs; please report them in the 
+misterhouse GitHub issues list.
+
+=head1 METHODS
+
+=over
+
+=cut
+
+#These constants are intentionally copied here from other Insteon modules
+#This is so any changes to those structures do not introduce errors
+#in the decoders.  These constants should only be modified to extend 
+#the decoders or correct defects in the decoders.
+
+#PLM Serial Commands
+my %plmcmd = (
+	insteon_received 	=> '0250',
+	insteon_ext_received 	=> '0251',
+	x10_received 		=> '0252',
+	all_link_complete 	=> '0253',
+	plm_button_event 	=> '0254',
+	user_user_reset 	=> '0255',
+	all_link_clean_failed 	=> '0256',
+	all_link_record 	=> '0257',
+	all_link_clean_status 	=> '0258',
+	plm_info 		=> '0260',
+	all_link_send 		=> '0261',
+	insteon_send 		=> '0262',
+#	insteon_ext_send	=> '0262',
+	x10_send 		=> '0263',
+	all_link_start 		=> '0264',
+	all_link_cancel		=> '0265',
+	set_host_device_cat     => '0266',
+	plm_reset 		=> '0267',
+	set_insteon_ack_cmd2    => '0268',
+	all_link_first_rec	=> '0269',
+	all_link_next_rec	=> '026a',
+	plm_set_config 		=> '026b',
+	get_sender_all_link_rec => '026c',
+	plm_led_on 		=> '026d',
+	plm_led_off 		=> '026e',
+	all_link_manage_rec	=> '026f',
+	insteon_nak 		=> '0270',
+	insteon_ack 		=> '0271',
+	rf_sleep 		=> '0272',
+	plm_get_config 		=> '0273'
+);
+
+#create a backwards lookup on hex code
+my %plmcmd2string = reverse %plmcmd;
+
+#Mapping from message type bit field to acronyms used in
+#  the INSTEON Command Tables documentation
+#100 4 - SB: Standard Broadcast
+
+#000 0 - SD or ED: Standard/Extended Direct
+#001 1 - SDA or EDA: Standard/Extended Direct ACK
+#101 5 - SDN or EDN: Standard/Extended Direct NACK
+
+#110 6 - SA: Standard All-Link Broadcast
+#010 2 - SC: Standard Cleanup Direct
+#011 3 - SCA: Standard Cleanup Direct ACK
+#111 7 - SCN: Standard Cleanup Direct NACK
+
+#List below is maintained in an Excel spreadsheet.  Make 
+#changes there and cut-n-paste list to here
+#You should understand the parsing logic before attempting
+#to modify this table!
+my %insteonCmd = (
+'SD01' => {Cmd1Name=>'Assign to All-Link Group',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SB01' => {Cmd1Name=>'SET Button Pressed Respond',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD02' => {Cmd1Name=>'Delete from All-Link Group',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SB02' => {Cmd1Name=>'SET Button Pressed Controller',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD03' => {Cmd1Name=>'Device Request',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD0300' => {Cmd1Name=>'Device Request',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Product Data Request'},
+'SD0301' => {Cmd1Name=>'Device Request',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'FxName Request'},
+'SD0302' => {Cmd1Name=>'Device Request',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Device Text String Request'},
+'ED03' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED0300' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Product Data Response'},
+'ED0301' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'FX Username Response'},
+'ED0302' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Device Text String Response'},
+'ED0303' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Set Device Text String'},
+'ED0304' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Set ALL-Link Command Alias'},
+'ED0305' => {Cmd1Name=>'Device Response',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Set ALL-Link Command Alias ED'},
+'SB03' => {Cmd1Name=>'Test Powerline Phase',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SB0300' => {Cmd1Name=>'Test Powerline Phase',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Phase A'},
+'SB0301' => {Cmd1Name=>'Test Powerline Phase',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Phase B'},
+'SB04' => {Cmd1Name=>'Heartbeat',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Battery Level'},
+'SA06' => {Cmd1Name=>'All-Link Cleanup Report',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Fail Count'},
+'SD09' => {Cmd1Name=>'Enter Linking Mode',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD0a' => {Cmd1Name=>'Enter Unlinking Mode',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD0d' => {Cmd1Name=>'Get INSTEON Engine Version',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SDA0d' => {Cmd1Name=>'Get INSTEON Engine Version',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SDA0d00' => {Cmd1Name=>'Get INSTEON Engine Version',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'i1'},
+'SDA0d01' => {Cmd1Name=>'Get INSTEON Engine Version',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'i2'},
+'SDA0d02' => {Cmd1Name=>'Get INSTEON Engine Version',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'i2CS'},
+'SD0f' => {Cmd1Name=>'Ping',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD10' => {Cmd1Name=>'ID Request',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD11' => {Cmd1Name=>'Light ON',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Level'},
+'SA11' => {Cmd1Name=>'ALL-Link Recall',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC11' => {Cmd1Name=>'ALL-Link Recall',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD12' => {Cmd1Name=>'Light ON Fast',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Level'},
+'SA12' => {Cmd1Name=>'ALL-Link Alias 2 High',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC12' => {Cmd1Name=>'ALL-Link Alias 2 High',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD13' => {Cmd1Name=>'Light OFF',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SA13' => {Cmd1Name=>'ALL-Link Alias 1 Low',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC13' => {Cmd1Name=>'ALL-Link Alias 1 Low',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD14' => {Cmd1Name=>'Light OFF Fast',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SA14' => {Cmd1Name=>'ALL-Link Alias 2 Low',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC14' => {Cmd1Name=>'ALL-Link Alias 2 Low',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD15' => {Cmd1Name=>'Light Brighten One Step',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SA15' => {Cmd1Name=>'ALL-Link Alias 3 High',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC15' => {Cmd1Name=>'ALL-Link Alias 3 High',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD16' => {Cmd1Name=>'Light Dim One Step',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SA16' => {Cmd1Name=>'ALL-Link Alias 3 Low',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC16' => {Cmd1Name=>'ALL-Link Alias 3 Low',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD17' => {Cmd1Name=>'Light Start Manual Change',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD1700' => {Cmd1Name=>'Light Start Manual Change',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Down'},
+'SD1701' => {Cmd1Name=>'Light Start Manual Change',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Up'},
+'SA17' => {Cmd1Name=>'ALL-Link Alias 4 High',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC17' => {Cmd1Name=>'ALL-Link Alias 4 High',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD18' => {Cmd1Name=>'Light Stop Manual Change',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SA18' => {Cmd1Name=>'ALL-Link Alias 4 Low',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC18' => {Cmd1Name=>'ALL-Link Alias 4 Low',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD19' => {Cmd1Name=>'Light Status Request',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD1900' => {Cmd1Name=>'Light Status Request',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'On Level'},
+'SD1901' => {Cmd1Name=>'Light Status Request',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'LED Bit Flags'},
+'SD1f' => {Cmd1Name=>'Get Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD1f00' => {Cmd1Name=>'Get Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Request Flags'},
+'SD1f01' => {Cmd1Name=>'Get Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'All-Link Database Delta Number'},
+'SD1f02' => {Cmd1Name=>'Get Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Signal-to-Noise'},
+'SDA1f' => {Cmd1Name=>'Get Operating Flags',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Config Flags'},
+'SD20' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD2000' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Program Lock On'},
+'SD2001' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Program Lock Off'},
+'SD2002' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Deveice Dependent'},
+'SD2003' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Deveice Dependent'},
+'SD2004' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Deveice Dependent'},
+'SD2005' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Deveice Dependent'},
+'SD2006' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x06',Cmd2Name=>'Deveice Dependent'},
+'SD2007' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x07',Cmd2Name=>'Deveice Dependent'},
+'SD2008' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x08',Cmd2Name=>'Deveice Dependent'},
+'SD2009' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x09',Cmd2Name=>'Deveice Dependent'},
+'SD200a' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x0a',Cmd2Name=>'Deveice Dependent'},
+'SD200b' => {Cmd1Name=>'Set Operating Flags',Cmd2Flag=>'Command',Cmd2Value=>'0x0b',Cmd2Name=>'Deveice Dependent'},
+'SD21' => {Cmd1Name=>'Light Instant Change',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'On Level'},
+'SA21' => {Cmd1Name=>'ALL-Link Alias 5',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SC21' => {Cmd1Name=>'ALL-Link Alias 5',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Group'},
+'SD22' => {Cmd1Name=>'Light Manually Turned Off',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD23' => {Cmd1Name=>'Light Manually Turned On',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD24' => {Cmd1Name=>'Reread Init Values(Depricated)',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD25' => {Cmd1Name=>'Remote SET Button Tap',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD2501' => {Cmd1Name=>'Remote SET Button Tap',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'1 Tap'},
+'SD2502' => {Cmd1Name=>'Remote SET Button Tap',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'2 Taps'},
+'SD27' => {Cmd1Name=>'Light Set Status',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'On Level'},
+'SB27' => {Cmd1Name=>'Status Change',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Data'},
+'SD28' => {Cmd1Name=>'Set Address MSB(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'MSB'},
+'SD29' => {Cmd1Name=>'Poke One Byte(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Data'},
+'ED2a' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED2a00' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Transfer Failure'},
+'ED2a01' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Complete (1 byte)'},
+'ED2a02' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Complete (2 bytes)'},
+'ED2a03' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Complete (3 bytes)'},
+'ED2a04' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Complete (4 bytes)'},
+'ED2a05' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Complete (5 bytes)'},
+'ED2a06' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x06',Cmd2Name=>'Complete (6 bytes)'},
+'ED2a07' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x07',Cmd2Name=>'Complete (7 bytes)'},
+'ED2a08' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x08',Cmd2Name=>'Complete (8 bytes)'},
+'ED2a09' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x09',Cmd2Name=>'Complete (9 bytes)'},
+'ED2a0a' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x0a',Cmd2Name=>'Complete (10 bytes)'},
+'ED2a0b' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x0b',Cmd2Name=>'Complete (11 bytes)'},
+'ED2a0c' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x0c',Cmd2Name=>'Complete (12 bytes)'},
+'ED2a0d' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0x0d',Cmd2Name=>'Complete (13 bytes)'},
+'ED2aff' => {Cmd1Name=>'Block Data Transfer',Cmd2Flag=>'Command',Cmd2Value=>'0xff',Cmd2Name=>'Request Block Data Transfer'},
+'SD2b' => {Cmd1Name=>'Peek One Byte(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'LSB of Address'},
+'SDA2b' => {Cmd1Name=>'Peek One Byte(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Peeked Byte'},
+'SD2c' => {Cmd1Name=>'Peek One Byte Internal(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'LSB of Address'},
+'SDA2c' => {Cmd1Name=>'Peek One Byte Internal(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Peeked Byte'},
+'SD2d' => {Cmd1Name=>'Poke One Byte Internal(Depricated)',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Data'},
+'SD2e' => {Cmd1Name=>'Light ON at Ramp Rate',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Level and Rate'},
+'ED2e' => {Cmd1Name=>'Extended Set/Get',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED2e00' => {Cmd1Name=>'Extended Set/Get',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Command in D2'},
+'SD2f' => {Cmd1Name=>'Light OFF at Ramp Rate',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Ramp Rate'},
+'ED2f' => {Cmd1Name=>'Read/Write ALL-Link Database',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED2f00' => {Cmd1Name=>'Read/Write ALL-Link Database',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Command in D2'},
+'SD30' => {Cmd1Name=>'Beep',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Duration'},
+'ED30' => {Cmd1Name=>'Trigger ALL-Link Command',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED3000' => {Cmd1Name=>'Trigger ALL-Link Command',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Trigger Command'},
+'SD40' => {Cmd1Name=>'Sprinkler Valve On',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Valve Number'},
+'ED40' => {Cmd1Name=>'Set Sprinkler Program',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Program Number'},
+'SD41' => {Cmd1Name=>'Sprinkler Valve Off',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Valve Number'},
+'ED41' => {Cmd1Name=>'Sprinkler Get Program Response',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Program Number'},
+'SD42' => {Cmd1Name=>'Sprinkler Program ON',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Program Number'},
+'SD43' => {Cmd1Name=>'Sprinkler Program OFF',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Program Number'},
+'SD44' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD4400' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Load Initialization Values'},
+'SD4401' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Load EEPROM From RAM'},
+'SD4402' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Get Valve Status'},
+'SD4403' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Inhibit Command Acceptance'},
+'SD4404' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Resume Command Acceptance'},
+'SD4405' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Skip Forward'},
+'SD4406' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x06',Cmd2Name=>'Skip Backwards'},
+'SD4407' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x07',Cmd2Name=>'Enable Pump on V8'},
+'SD4408' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x08',Cmd2Name=>'Disable Pump on V8'},
+'SD4409' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x09',Cmd2Name=>'Broadcast ON'},
+'SD440a' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0a',Cmd2Name=>'Broadcast OFF'},
+'SD440b' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0b',Cmd2Name=>'Load RAM from EEPROM'},
+'SD440c' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0c',Cmd2Name=>'Sensor ON'},
+'SD440d' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0d',Cmd2Name=>'Sensor OFF'},
+'SD440e' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0e',Cmd2Name=>'Diagnostics ON'},
+'SD440f' => {Cmd1Name=>'Sprinkler Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0f',Cmd2Name=>'Diagnostics OFF'},
+'SD45' => {Cmd1Name=>'I/O Output ON',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Output Number'},
+'SD46' => {Cmd1Name=>'I/O Output OFF',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Output Number'},
+'SD47' => {Cmd1Name=>'I/O Alarm Data Request',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD48' => {Cmd1Name=>'I/O Write Output Port',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Data'},
+'SDA48' => {Cmd1Name=>'I/O Write Output Port',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Data Written'},
+'SD49' => {Cmd1Name=>'I/O Read Input Port',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SDA49' => {Cmd1Name=>'I/O Read Input Port',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Data Read'},
+'SD4a' => {Cmd1Name=>'Get Sensor Value',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Sensor Number'},
+'SDA4a' => {Cmd1Name=>'Get Sensor Value',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Sensor Value'},
+'SD4b' => {Cmd1Name=>'Set Sensor 1 Alarm Trigger OFF->ON',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Nominal Value'},
+'ED4b' => {Cmd1Name=>'I/O Set Sensor Nominal',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Sensor Number'},
+'SD4c' => {Cmd1Name=>'I/O Get Sensor Alarm Delta',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Bit Field'},
+'ED4c' => {Cmd1Name=>'I/O Alarm Data Response',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED4c00' => {Cmd1Name=>'I/O Alarm Data Response',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Response'},
+'SD4d' => {Cmd1Name=>'I/O Write Configuration Port',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Bit Field'},
+'SD4e' => {Cmd1Name=>'I/O Read Configuration Port',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'SD4e' => {Cmd1Name=>'I/O Read Configuration Port',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'I/O Port Config'},
+'SD4f' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD4f00' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Load Initialization Values'},
+'SD4f01' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Load EEPROM from RAM'},
+'SD4f02' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Status Request'},
+'SD4f03' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Read Analog once'},
+'SD4f04' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Read Analog Always'},
+'SD4f09' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x09',Cmd2Name=>'Enable status change message'},
+'SD4f0a' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0a',Cmd2Name=>'Disable status change message'},
+'SD4f0b' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0b',Cmd2Name=>'Load RAM from EEPROM'},
+'SD4f0c' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0c',Cmd2Name=>'Sensor On'},
+'SD4f0d' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0d',Cmd2Name=>'Sensor Off'},
+'SD4f0e' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0e',Cmd2Name=>'Diagnostics On'},
+'SD4f0f' => {Cmd1Name=>'I/O Module Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0f',Cmd2Name=>'Diagnostics Off'},
+'SD50' => {Cmd1Name=>'Pool Device ON',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Device Number'},
+'ED50' => {Cmd1Name=>'Pool Set Device Temperature',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'ED5000' => {Cmd1Name=>'Pool Set Device Temperature',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Set Temperature'},
+'ED5001' => {Cmd1Name=>'Pool Set Device Temperature',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Set Hysteresis'},
+'SD51' => {Cmd1Name=>'Pool Device OFF',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Device Number'},
+'SD52' => {Cmd1Name=>'Pool Temperature Up',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Increment Count'},
+'SD53' => {Cmd1Name=>'Pool Temperature Down',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Decrement Count'},
+'SD54' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD5400' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Load Initialization Values'},
+'SD5401' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Load EEPROM From RAM'},
+'SD5402' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Get Pool Mode'},
+'SD5403' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Get Ambient Temp'},
+'SD5404' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Get Water Temp'},
+'SD5405' => {Cmd1Name=>'Pool Control',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Get pH'},
+'SD58' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD5800' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Raise Door'},
+'SD5801' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Lower Door'},
+'SD5802' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Open Door'},
+'SD5803' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Close Door'},
+'SD5804' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Stop Door'},
+'SD5805' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Single Door Open'},
+'SD5806' => {Cmd1Name=>'Door Move',Cmd2Flag=>'Command',Cmd2Value=>'0x06',Cmd2Name=>'Single Door Close'},
+'SD59' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD5900' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Raise Door'},
+'SD5901' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Lower Door'},
+'SD5902' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Open Door'},
+'SD5903' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Close Door'},
+'SD5904' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'Stop Door'},
+'SD5905' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'Single Door Open'},
+'SD5906' => {Cmd1Name=>'Door Status Report',Cmd2Flag=>'Command',Cmd2Value=>'0x06',Cmd2Name=>'Single Door Close'},
+'SD60' => {Cmd1Name=>'Window Covering',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD6000' => {Cmd1Name=>'Window Covering',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Open'},
+'SD6001' => {Cmd1Name=>'Window Covering',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Close'},
+'SD6002' => {Cmd1Name=>'Window Covering',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Stop'},
+'SD6003' => {Cmd1Name=>'Window Covering',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Program'},
+'SD61' => {Cmd1Name=>'Window Covering Position',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Position'},
+'SD68' => {Cmd1Name=>'Thermostat Temp Up',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Increment Count'},
+'ED68' => {Cmd1Name=>'Thermostat Zone Temp Up',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Zone Number'},
+'SD69' => {Cmd1Name=>'Thermostat Temp Down',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Decrement Count'},
+'ED69' => {Cmd1Name=>'Thermostat Zone Temp Down',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Zone Number'},
+'SD6a' => {Cmd1Name=>'Thermostat Get Zone Info',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Bit Field'},
+'SDA6a' => {Cmd1Name=>'Thermostat Get Zone Info',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Requested Data'},
+'SD6b' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD6b00' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Load Initialization Values'},
+'SD6b01' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Load EEPROM from RAM'},
+'SD6b02' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Get Thermostat Mode'},
+'SD6b03' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Get ambient temperature'},
+'SD6b04' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x04',Cmd2Name=>'ON Heat'},
+'SD6b05' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x05',Cmd2Name=>'ON Cool'},
+'SD6b06' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x06',Cmd2Name=>'ON Auto'},
+'SD6b07' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x07',Cmd2Name=>'ON Fan'},
+'SD6b08' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x08',Cmd2Name=>'OFF Fan'},
+'SD6b09' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x09',Cmd2Name=>'OFF All'},
+'SD6b0a' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0a',Cmd2Name=>'Program Heat'},
+'SD6b0b' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0b',Cmd2Name=>'Program Cool'},
+'SD6b0c' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0c',Cmd2Name=>'Program Auto'},
+'SD6b0d' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0d',Cmd2Name=>'Get Equipment State'},
+'SD6b0e' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0e',Cmd2Name=>'Set Equipment State'},
+'SD6b0f' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x0f',Cmd2Name=>'Get Temperature Units'},
+'SD6b10' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x10',Cmd2Name=>'Set Fahrenheit'},
+'SD6b11' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x11',Cmd2Name=>'Set Celsius'},
+'SD6b12' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x12',Cmd2Name=>'Get Fan-On Speed'},
+'SD6b13' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x13',Cmd2Name=>'Set Fan-On Speed Low'},
+'SD6b14' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x14',Cmd2Name=>'Set Fan-On Speed Medium'},
+'SD6b15' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x15',Cmd2Name=>'Set Fan-On Speed High'},
+'SD6b16' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x16',Cmd2Name=>'Enable status change message'},
+'SD6b17' => {Cmd1Name=>'Thermostat Control',Cmd2Flag=>'Command',Cmd2Value=>'0x17',Cmd2Name=>'Disable status change message'},
+'SD6c' => {Cmd1Name=>'Thermostat Set Cool Setpoint',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Setpoint Value'},
+'ED6c' => {Cmd1Name=>'Thermostat Set Zone Cool Setpoint',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Zone Number'},
+'SD6d' => {Cmd1Name=>'Thermostat Set Heat Setpoint',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Setpoint Value'},
+'ED6d' => {Cmd1Name=>'Thermostat Set Zone Heat Setpoint',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Zone Number'},
+'SD6e' => {Cmd1Name=>'Thermostat Set or Read Mode',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Bit Field'},
+'SD70' => {Cmd1Name=>'Leak Detector Announce',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SD7000' => {Cmd1Name=>'Leak Detector Announce',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Leak Detected'},
+'SD7001' => {Cmd1Name=>'Leak Detector Announce',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'No Leak Detected'},
+'SD7002' => {Cmd1Name=>'Leak Detector Announce',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Battery Low'},
+'SD7003' => {Cmd1Name=>'Leak Detector Announce',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Battery OK'},
+'SD81' => {Cmd1Name=>'Assign to Companion Group(Depricated)',Cmd2Flag=>'NA',Cmd2Value=>'',Cmd2Name=>''},
+'EDf0' => {Cmd1Name=>'Read or Write Registers',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Bit Field'},
+'SDf0' => {Cmd1Name=>'EZSnsRF Control',Cmd2Flag=>'Command',Cmd2Value=>'',Cmd2Name=>''},
+'SDf000' => {Cmd1Name=>'EZSnsRF Control',Cmd2Flag=>'Command',Cmd2Value=>'0x00',Cmd2Name=>'Load Initialization Values'},
+'SDf001' => {Cmd1Name=>'EZSnsRF Control',Cmd2Flag=>'Command',Cmd2Value=>'0x01',Cmd2Name=>'Write a Code Record'},
+'SDf002' => {Cmd1Name=>'EZSnsRF Control',Cmd2Flag=>'Command',Cmd2Value=>'0x02',Cmd2Name=>'Read a Code Record'},
+'SDf003' => {Cmd1Name=>'EZSnsRF Control',Cmd2Flag=>'Command',Cmd2Value=>'0x03',Cmd2Name=>'Get a Code Record'},
+'SDf1' => {Cmd1Name=>'Specific Code Record Read',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Record Number'},
+'EDf1' => {Cmd1Name=>'Response to Read Registers',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Bit Field'},
+'EDf1' => {Cmd1Name=>'Code Record Request Respon',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Record Number'},
+'EDf2' => {Cmd1Name=>'Specific Code Record Write',Cmd2Flag=>'Value',Cmd2Value=>'',Cmd2Name=>'Record Number'},
+);
+
+
+#X10 PLM codes
+my %x10_house_codes = (
+	'6' => 'a',
+	'e' => 'b',
+	'2' => 'c',
+	'a' => 'd',
+	'1' => 'e',
+	'9' => 'f',
+	'5' => 'g',
+	'd' => 'h',
+	'7' => 'i',
+	'f' => 'j',
+	'3' => 'k',
+	'b' => 'l',
+	'0' => 'm',
+	'8' => 'n',
+	'4' => 'o',
+	'c' => 'p'
+);
+
+my %x10_unit_codes = (
+	'6' => '1',
+	'e' => '2',
+	'2' => '3',
+	'a' => '4',
+	'1' => '5',
+	'9' => '6',
+	'5' => '7',
+	'd' => '8',
+	'7' => '9',
+	'f' => 'a',
+	'3' => 'b',
+	'b' => 'c',
+	'0' => 'd',
+	'8' => 'e',
+	'4' => 'f',
+	'c' => 'g'
+);
+
+my %x10_commands = (
+	'2' => 'On(J)',
+	'3' => 'Off(K)',
+	'5' => 'Bright(L)',
+	'4' => 'Dim(M)',
+	'a' => 'preset_dim1',
+	'b' => 'preset_dim2',
+	'0' => 'all_units_off(P)',
+	'1' => 'all_lights_on(O)',
+	'6' => 'all_lights_off',
+	'f' => 'status',
+	'd' => 'status_on',
+	'e' => 'status_off',
+	'9' => 'hail_ack',
+	'7' => 'ext_code',
+	'c' => 'ext_data',
+	'8' => 'hail_request'
+);
+
+
+=item plm_decode(plm_string)
+
+Returns a string containing a decoded PLM data packet
+
+=cut
+sub plm_decode {
+	my ($plm_string) = @_;
+	$plm_string = lc($plm_string);
+
+#0262 1e5d8e 0f 0d00
+#0262 1e5d8e 0f 0d00 06
+
+#FSM:0 - Look for PLM STX
+#FSM:1 - Parse PLM command category
+#FSM:2 - Parse command from PLM (50-58)
+#FSM:3 - Parse command to PLM (60-73) and response 
+
+	my $plm_message = '';
+	my $plm_cmd_id;
+
+	my $FSM = 0;
+	my $abort = 0;
+	my $finished = 0;
+	while(!$abort and !$finished) {
+		if($FSM==0) {
+			#FSM:0 - Look for PLM STX
+			#Must start with STX or it is garbage
+			if(substr($plm_string,0,2) ne '02') {
+				$plm_message .= "Missing (02)STX: Invalid message\n";
+				$abort++;
+			} else {
+				$FSM++;
+			}
+		} elsif($FSM==1) {
+			#FSM:1 - Parse PLM command category
+			#Must be at least 2 bytes (4 nibbles) or it is garbage
+			if(length($plm_string) < 4) {
+				$abort++;
+			} else {
+				#include the STX for historical reasons
+				$plm_cmd_id = substr($plm_string,0,4);
+				$plm_message .= sprintf("%20s: (","PLM Command").$plm_cmd_id.") ".$plmcmd2string{$plm_cmd_id}."\n";
+				if(substr($plm_string,2,1) == '5') {
+					#commands from PLM are 50-58
+					$FSM = 2;
+				} else {
+					$FSM = 3;
+				}
+			}
+		} elsif($FSM==2) {
+			#FSM:2 - Parse command from PLM (50-58)
+			if($plm_cmd_id eq '0250') {
+				$plm_message .= sprintf("%24s: ",'From Address').substr($plm_string,4,2).":".substr($plm_string,6,2).":".substr($plm_string,8,2)."\n";
+				$plm_message .= sprintf("%24s: ",'To Address').substr($plm_string,10,2).":".substr($plm_string,12,2).":".substr($plm_string,14,2)."\n";
+                                $plm_message .= sprintf("%24s: ",'Message Flags').substr($plm_string,16,2)."\n";
+                                $plm_message .= insteon_message_flags_decode(substr($plm_string,16,2));
+				my $flag_ext = hex(substr($plm_string,16,1))&0b0001;
+                                $plm_message .= sprintf("%24s: ",'Insteon Message').substr($plm_string,18,($flag_ext ? 32 : 4))."\n";
+				$plm_message .= insteon_decode(substr($plm_string,16));
+			} elsif($plm_cmd_id eq '0251'){
+				$plm_message .= sprintf("%24s: ",'From Address').substr($plm_string,4,2).":".substr($plm_string,6,2).":".substr($plm_string,8,2)."\n";
+				$plm_message .= sprintf("%24s: ",'To Address').substr($plm_string,10,2).":".substr($plm_string,12,2).":".substr($plm_string,14,2)."\n";
+                                $plm_message .= sprintf("%24s: ",'Message Flags').substr($plm_string,16,2)."\n";
+                                $plm_message .= insteon_message_flags_decode(substr($plm_string,16,2));
+				my $flag_ext = hex(substr($plm_string,16,1))&0b0001;
+                                $plm_message .= sprintf("%24s: ",'Insteon Message').substr($plm_string,18,($flag_ext ? 32 : 4))."\n";
+				$plm_message .= insteon_decode(substr($plm_string,16));
+			} elsif($plm_cmd_id eq '0252'){
+                                $plm_message .= sprintf("%20s: ",'X10 Message').substr($plm_string,4,4)."\n";
+                                $plm_message .= plm_x10_decode(substr($plm_string,4,4));
+			} elsif($plm_cmd_id eq '0253'){
+				my @link_string = ('PLM is Responder', 'PLM is Controller', 'All-Link deleted');
+				$plm_message .= sprintf("%20s: (",'Link Code').substr($plm_string,4,2).") ".$link_string[substr($plm_string,4,2)]."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Group').substr($plm_string,6,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Linked Device').substr($plm_string,8,2).":".substr($plm_string,10,2).":".substr($plm_string,12,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Device Category').substr($plm_string,14,2).":".substr($plm_string,16,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Firmware').substr($plm_string,18,2)."\n";
+			} elsif($plm_cmd_id eq '0254'){
+				my @buttons = ('SET Button ','Button 2 ','Button 3 ');
+				my @button_event = ('','','Tapped','Held 3 seconds','Released');
+				$plm_message .= sprintf("%20s: (",'Button Event').substr($plm_string,4,2).") ".$buttons[substr($plm_string,4,1)].$button_event[substr($plm_string,5,1)]."\n";
+			} elsif($plm_cmd_id eq '0255'){
+				#Nothing else to do
+			} elsif($plm_cmd_id eq '0256'){
+				$plm_message .= sprintf("%20s: ",'All-Link Group').substr($plm_string,6,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Device').substr($plm_string,8,2).":".substr($plm_string,10,2).":".substr($plm_string,12,2)."\n";
+			} elsif($plm_cmd_id eq '0257'){
+				$plm_message .= sprintf("%20s: ",'All-Link Flags').substr($plm_string,4,2)."\n";
+				my $flags = hex(substr($plm_string,4,2));
+				$plm_message .= sprintf("%20s: Record is ",'Bit 7').($flags&0b10000000?'in use':'available')."\n";
+				$plm_message .= sprintf("%20s: PLM is ",'Bit 6').($flags&0b01000000?'controller':'responder')."\n";
+				$plm_message .= sprintf("%20s: ACK is ",'Bit 5').($flags&0b00100000?'required':'not required')."\n";
+				$plm_message .= sprintf("%20s: Record has ",'Bit 1').($flags&0b00000001?'been used before':'not been used before')."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Group').substr($plm_string,6,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Linked Device').substr($plm_string,8,2).":".substr($plm_string,10,2).":".substr($plm_string,12,2)."\n";
+#XXXX				$plm_message .= sprintf("%20s: ",'Link Data').substr($plm_string,14,6)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Command1').substr($plm_string,14,2)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Command2').substr($plm_string,16,2)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Data').substr($plm_string,18,2)."\n";
+				#TODO:  Find insteon information for link data decode
+			} elsif($plm_cmd_id eq '0258'){
+				$plm_message .= sprintf("%20s: (",'Status Byte').substr($plm_string,4,2).") ".(substr($plm_string,4,2) eq '06' ? "ACK" : "NACK")."\n";
+			} else {
+				$plm_message .= sprintf("%20s: (",'Undefined Cmd Data').substr($plm_string,4).")\n";
+			}
+			$finished++;
+		} elsif($FSM==3) {
+			#FSM:3 - Parse command to PLM (60-73) and response
+			my $plm_ack_pos;
+			if($plm_cmd_id eq '0260') {
+				if(length($plm_string)>4) {
+					$plm_message .= sprintf("%20s: ",'PLM Device ID').substr($plm_string,4,2).":".substr($plm_string,6,2).":".substr($plm_string,8,2)."\n";
+					$plm_message .= sprintf("%20s: ",'Device Category').substr($plm_string,10,2).":".substr($plm_string,12,2)."\n";
+					$plm_message .= sprintf("%20s: ",'Firmware').substr($plm_string,14,2)."\n";
+				}
+				$plm_ack_pos = 16;
+			} elsif($plm_cmd_id eq '0261'){
+				$plm_message .= sprintf("%20s: ",'All-Link Group').substr($plm_string,4,2)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Command1').substr($plm_string,6,2)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Command2').substr($plm_string,8,2)."\n";
+				$plm_ack_pos = 10;
+				#TODO:  look up insteon information for all-link command1 / command2 decode
+			} elsif($plm_cmd_id eq '0262'){
+				$plm_message .= sprintf("%24s: ",'To Address').substr($plm_string,4,2).":".substr($plm_string,6,2).":".substr($plm_string,8,2)."\n";
+                                $plm_message .= sprintf("%24s: ",'Message Flags').substr($plm_string,10,2)."\n";
+                                $plm_message .= insteon_message_flags_decode(substr($plm_string,10,2));
+				my $flag_ext = hex(substr($plm_string,10,1))&0b0001;
+                                $plm_message .= sprintf("%24s: ",'Insteon Message').substr($plm_string,12,($flag_ext ? 32 : 4))."\n";
+				$plm_message .= insteon_decode(substr($plm_string,10));
+                                $plm_ack_pos = $flag_ext ? 44 : 16;
+			} elsif($plm_cmd_id eq '0263'){
+                                $plm_message .= sprintf("%20s: ",'X10 Message').substr($plm_string,4,4)."\n";
+                                $plm_message .= plm_x10_decode(substr($plm_string,4,4));
+                                $plm_ack_pos = 8;
+			} elsif($plm_cmd_id eq '0264'){
+				my %link_string = ('00'=>'PLM is Responder',
+						   '01'=>'PLM is Controller',
+						   '03'=>'PLM is either Responder or Controller',
+						   'ff'=>'Delete All-Link');
+				$plm_message .= sprintf("%20s: (",'Link Code').substr($plm_string,4,2).") ".$link_string{substr($plm_string,4,2)}."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Group').substr($plm_string,6,2)."\n";
+				$plm_ack_pos = 8;
+			} elsif($plm_cmd_id eq '0265'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '0266'){
+				$plm_message .= sprintf("%20s: ",'Device Category').substr($plm_string,4,2).":".substr($plm_string,6,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Firmware').substr($plm_string,8,2)."\n";
+				$plm_ack_pos = 10;
+			} elsif($plm_cmd_id eq '0267'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '0268'){
+				$plm_message .= sprintf("%20s: ",'Command2 Data').substr($plm_string,4,2)."\n";
+				$plm_ack_pos = 6;
+			} elsif($plm_cmd_id eq '0269'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '026a'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '026b'){
+				$plm_message .= sprintf("%20s: (",'PLM Config Flags').substr($plm_string,4,2).")\n";
+				my $flags = hex(substr($plm_string,4,2));
+				$plm_message .= sprintf("%20s: Automatic Linking ",'Bit 7').($flags&0b10000000?'Disabled':'Enabled')."\n";
+				$plm_message .= sprintf("%20s: Monitor Mode ",'Bit 6').($flags&0b01000000?'Enabled':'Disabled')."\n";
+				$plm_message .= sprintf("%20s: Automatic LED ",'Bit 5').($flags&0b00100000?'Disabled':'Enabled')."\n";
+				$plm_message .= sprintf("%20s: Deadman Feature ",'Bit 4').($flags&0b00010000?'Disabled':'Enabled')."\n";
+				$plm_ack_pos = 6;
+			} elsif($plm_cmd_id eq '026c'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '026d'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '026e'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '026f'){
+				my %control_string = ('00'=>'Find All-Link Record',
+						      '01'=>'Find Next All-Link Record',
+						      '20'=>'Update/Add All-Link Record',
+						      '40'=>'Update/Add Controller All-Link Record',
+						      '41'=>'Update/Add Responder All-Link Record');
+				$plm_message .= sprintf("%20s: (",'Control code').substr($plm_string,4,2).") ".$control_string{substr($plm_string,4,2)}."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Flags').substr($plm_string,6,2)."\n";
+				my $flags = hex(substr($plm_string,6,2));
+				$plm_message .= sprintf("%20s: Record is ",'Bit 7').($flags&0b10000000?'in use':'available')."\n";
+				$plm_message .= sprintf("%20s: PLM is ",'Bit 6').($flags&0b01000000?'controller':'responder')."\n";
+				$plm_message .= sprintf("%20s: ACK is ",'Bit 5').($flags&0b00100000?'required':'not required')."\n";
+				$plm_message .= sprintf("%20s: Record has ",'Bit 1').($flags&0b00000001?'been used before':'not been used before')."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Group').substr($plm_string,8,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Linked Device').substr($plm_string,10,2).":".substr($plm_string,12,2).":".substr($plm_string,14,2)."\n";
+#				$plm_message .= sprintf("%20s: ",'Link Data').substr($plm_string,16,6)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Command1').substr($plm_string,16,2)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Command2').substr($plm_string,18,2)."\n";
+				$plm_message .= sprintf("%20s: ",'All-Link Data').substr($plm_string,20,2)."\n";
+				$plm_ack_pos = 22;
+				#TODO:  Find insteon information for link data decode
+			} elsif($plm_cmd_id eq '0270'){
+				$plm_message .= sprintf("%20s: ",'Command2 Data').substr($plm_string,4,2)."\n";
+				$plm_ack_pos = 6;
+			} elsif($plm_cmd_id eq '0271'){
+				$plm_message .= sprintf("%20s: ",'Command1 Data').substr($plm_string,4,2)."\n";
+				$plm_message .= sprintf("%20s: ",'Command2 Data').substr($plm_string,6,2)."\n";
+				$plm_ack_pos = 8;
+			} elsif($plm_cmd_id eq '0272'){
+				$plm_ack_pos = 4;
+			} elsif($plm_cmd_id eq '0273'){
+				if(length($plm_string)>4) {
+					$plm_message .= sprintf("%20s: (",'PLM Config Flags').substr($plm_string,4,2).")\n";
+					my $flags = hex(substr($plm_string,4,2));
+					$plm_message .= sprintf("%20s: Automatic Linking ",'Bit 7').($flags&0b10000000?'Disabled':'Enabled')."\n";
+					$plm_message .= sprintf("%20s: Monitor Mode ",'Bit 6').($flags&0b01000000?'Enabled':'Disabled')."\n";
+					$plm_message .= sprintf("%20s: Automatic LED ",'Bit 5').($flags&0b00100000?'Disabled':'Enabled')."\n";
+					$plm_message .= sprintf("%20s: Deadman Feature ",'Bit 4').($flags&0b00010000?'Disabled':'Enabled')."\n";
+					$plm_message .= sprintf("%20s: ",'Spare 1').substr($plm_string,6,2)."\n";
+					$plm_message .= sprintf("%20s: ",'Spare 2').substr($plm_string,8,2)."\n";
+				}
+				$plm_ack_pos = 10;
+			} else {
+				$plm_message .= sprintf("%20s: (",'Undefined Cmd Data').substr($plm_string,4).")\n";
+				$plm_ack_pos = 255;
+			}
+
+			if(length($plm_string)>$plm_ack_pos) {
+				$plm_message .= sprintf("%20s: (",'PLM Response').substr($plm_string,$plm_ack_pos,2).") ".(substr($plm_string,$plm_ack_pos,2) eq '06' ? "ACK" : "NACK")."\n";
+			}
+			$finished++;
+		} #if($FSM==)
+	} #while(!$abort)
+	return $plm_message;
+}
+
+
+=item plm_x10_decode(x10_string)
+
+Returns a string containing a decoded PLM X10 data packet
+
+=cut
+sub plm_x10_decode {
+	my ($x10_string) = @_;
+	$x10_string = lc($x10_string);
+
+	my $x10_message = '';
+	$x10_message .= sprintf("%24s: (",'X10 House Code').substr($x10_string,0,1).") ".uc($x10_house_codes{substr($x10_string,0,1)})."\n";
+	if(substr($x10_string,2,1) == '8') {
+		$x10_message .= sprintf("%24s: (",'X10 Command').substr($x10_string,1,1).") ".$x10_commands{substr($x10_string,1,1)}."\n";
+	} else {
+		$x10_message .= sprintf("%24s: (",'X10 Unit Code').substr($x10_string,1,1).") ".uc($x10_unit_codes{substr($x10_string,1,1)})."\n";
+	}
+	return($x10_message);
+}
+
+=item insteon_message_flags_decode(flags_string)
+
+Returns a string containing decoded Insteon message flags
+
+=cut
+sub insteon_message_flags_decode {
+        my ($flags_string) = @_;
+        $flags_string = lc($flags_string);
+
+        my $flags_message = '';
+	my %message_string = (	'4'=>'Broadcast Message',
+				'0'=>'Direct Message',
+				'1'=>'ACK of Direct Message',
+				'5'=>'NAK of Direct Message',
+				'6'=>'All-Link Broadcast Message',
+				'2'=>'All-Link Cleanup Direct Message',
+				'3'=>'ACK of All-Link Cleanup Direct Message',
+				'7'=>'NAK of All-Link Cleanup Direct Message');
+
+	my $flag_msg = hex(substr($flags_string,0,1))>>1;
+	my $flag_ext = hex(substr($flags_string,0,1))&0b0001;
+	$flags_message .= sprintf("%28s: (%03b) ",'Message Type',$flag_msg).$message_string{$flag_msg}."\n";
+	$flags_message .= sprintf("%28s: (%01b) ",'Message Length',$flag_ext).($flag_ext?'Extended Length':'Standard Length')."\n";
+	$flags_message .= sprintf("%28s: %d\n",'Hops Left',hex(substr($flags_string,1,1))>>2);
+	$flags_message .= sprintf("%28s: %d\n",'Max Hops',hex(substr($flags_string,1,1))&0b0011);
+        return($flags_message);
+}
+
+=item insteon_decode(command_string)
+
+Returns a string containing a decoded Insteon message. Input
+string should be the Insteon message starting with the 
+message flag byte.
+
+=cut
+sub insteon_decode {
+	my ($command_string) = @_;
+#Mapping from message type bit field to acronyms used in
+#  the INSTEON Command Tables documentation
+#100 4 - SB: Standard Broadcast
+
+#000 0 - SD or ED: Standard/Extended Direct
+#001 1 - SDA or EDA: Standard/Extended Direct ACK
+#101 5 - SDN or EDN: Standard/Extended Direct NACK
+
+#110 6 - SA: Standard All-Link Broadcast
+#010 2 - SC: Standard Cleanup Direct
+#011 3 - SCA: Standard Cleanup Direct ACK
+#111 7 - SCN: Standard Cleanup Direct NACK
+
+#For SDA parsing 1st look for SDA command entry, if not found
+#then lookup SD command entry for parsing information.
+
+#For SDN, EDN, SCN NACK responses, lookup coorespnding
+#SD, ED, or SC entry for parsing, but always use the 
+#common NACK decoding for Cmd2
+
+#Lookup SB, SD, ED, SA, and SC messages with just the 
+#Cmd1 entry appended at the key.  If Cmd2 Flag == "Command" 
+#then repeat lookup appending both Cmd1 and Cmd2 for 
+#the key.  If Cmd2 Flag != "Command" then use flag value
+#to control how Cmd2 is displayed.  If second lookup fails,
+#simply print Cmd2 and indicate "not decoded".
+
+	my $extended = hex(substr($command_string,0,1))&0b0001;
+	my $msg_type = (hex(substr($command_string,0,1))&0b1110)>>1;
+	my $cmd1 = substr($command_string,2,2);
+	my $cmd2 = substr($command_string,4,2);
+	my $data = '';
+	$data = substr($command_string,6) if($extended);
+
+	#Truncate $command_string to remove PLM ACK byte
+	$command_string = substr($command_string,0, ($extended ? 34 : 8));
+	my $insteon_message='';
+	if( $msg_type == 0) {
+		#SD/ED: Standard/Extended Direct
+		$insteon_message .= insteon_decode_cmd(($extended ? 'ED' : 'SD'), $cmd1, $cmd2, $extended, $data);
+	} elsif( $msg_type == 1 or $msg_type == 5) {
+		#SDA/EDA: Standard/Extended Direct ACK/NACK
+		$insteon_message .= insteon_decode_cmd(($extended ? 'EDA' : 'SDA'), $cmd1, $cmd2, $extended, $data);
+	} elsif( $msg_type == 6) {
+		#SA: Standard All-Link Broadcast
+		$insteon_message .= insteon_decode_cmd('SA', $cmd1, $cmd2, $extended, $data);
+	} elsif( $msg_type == 2) {
+		#SC: Standard Direct Cleanup
+		$insteon_message .= insteon_decode_cmd('SC', $cmd1, $cmd2, $extended, $data);
+	} elsif( $msg_type == 3 or $msg_type == 7) {
+		#SCA: Standard Direct Cleanup ACK/NACK
+		$insteon_message .= insteon_decode_cmd('SCA', $cmd1, $cmd2, $extended, $data);
+	} else {
+		$insteon_message .= sprintf("%28s: ",'')."Insteon message type not decoded\n";
+	}
+
+	return $insteon_message
+}
+
+
+sub insteon_decode_cmd {
+	my ($cmdLookup, $cmd1, $cmd2, $extended, $Data) = @_;
+	my $insteon_message='';
+	my ($cmdDecoder1, $cmdDecoder2);
+
+	#lookup 1st without using Cmd2
+	$cmdDecoder1 = $insteonCmd{$cmdLookup.$cmd1};
+
+	if(!defined($cmdDecoder1)) {
+		#lookup failed, if this is an ACK/NACK retry w/ direct version
+		if( $cmdLookup eq 'SDA') {
+			$cmdDecoder1 = $insteonCmd{'SD'.$cmd1};
+		} elsif( $cmdLookup eq 'EDA') {
+			$cmdDecoder1 = $insteonCmd{'ED'.$cmd1};
+		} elsif( $cmdLookup eq 'SCA') {
+			$cmdDecoder1 = $insteonCmd{'SC'.$cmd1};
+		}
+		if(!defined($cmdDecoder1)) {
+			#still not found so quit trying to decode
+			$insteon_message .= sprintf("%28s: ",'Cmd 1').$cmd1." Insteon command not decoded\n";
+			$insteon_message .= sprintf("%28s: ",'Cmd 2').$cmd2."\n";
+			$insteon_message .= sprintf("%28s: ",'D1-D14').$Data."\n" if( $extended);
+			return $insteon_message;
+		}
+	}
+
+	if($cmdDecoder1->{'Cmd2Flag'} eq 'Command') {
+		#2nd lookup with Cmd2
+		$cmdDecoder2 = $insteonCmd{$cmdLookup.$cmd1.$cmd2};
+		$insteon_message .= sprintf("%28s: (",'Cmd 1').$cmd1.") ".$cmdDecoder2->{'Cmd1Name'}."\n";
+		$insteon_message .= sprintf("%28s: (",'Cmd 2').$cmd2.") ".$cmdDecoder2->{'Cmd2Name'}."\n";
+		$insteon_message .= sprintf("%28s: ",'D1-D14').$Data."\n" if( $extended);
+	} elsif( $cmdDecoder1->{'Cmd2Flag'} eq 'Value') {
+		$insteon_message .= sprintf("%28s: (",'Cmd 1').$cmd1.") ".$cmdDecoder1->{'Cmd1Name'}."\n";
+		$insteon_message .= sprintf("%28s: (",'Cmd 2').$cmd2.") ".$cmdDecoder1->{'Cmd2Name'}."\n";
+		$insteon_message .= sprintf("%28s: ",'D1-D14').$Data."\n" if( $extended);
+	} elsif( $cmdDecoder1->{'Cmd2Flag'} eq 'NA') {
+		$insteon_message .= sprintf("%28s: (",'Cmd 1').$cmd1.") ".$cmdDecoder1->{'Cmd1Name'}."\n";
+		$insteon_message .= sprintf("%28s: ",'Cmd 2').$cmd2."\n";
+		$insteon_message .= sprintf("%28s: ",'D1-D14').$Data."\n" if( $extended);
+	} else {
+		$insteon_message .= "Parse database has undefined Cmd2Flag: ".$cmdDecoder1->{'Cmd2Flag'};
+	}
+
+	return $insteon_message;
+}
+
+
+=back
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Insteon::MessageDecoder
+
+=head1 SEE ALSO
+
+L<Insteon Command Tables 20070925a|www.insteon.net/pdf/INSTEON_Command_Tables_20070925a.pdf>
+
+PLM command details can be found in the 2412S Developers Guide.  This 
+document is not supplied by SmartHome but may be available through an 
+internet search.
+
+=head1 AUTHOR
+
+Michael Stovenour
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2012 Michael Stovenour
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 
+MA  02110-1301, USA.
+
+=cut
+
+1;
diff --git a/lib/Insteon/MessageDecoder_test.pl b/lib/Insteon/MessageDecoder_test.pl
new file mode 100755
index 000000000..54ed58a3e
--- /dev/null
+++ b/lib/Insteon/MessageDecoder_test.pl
@@ -0,0 +1,88 @@
+
+use strict;
+use lib "..";
+use Insteon::MessageDecoder;
+
+
+#0250 1e5d8e 1edc30 2b 0d02
+plm_decode_print('02525700');
+plm_decode_print('02525a80');
+plm_decode_print('02530102aabbcc1a1bff');
+plm_decode_print('025402');
+plm_decode_print('02560105aabbcc');
+plm_decode_print('0257ff04aabbcc0badff');
+plm_decode_print('025806');
+plm_decode_print('025a15aabbcc');
+plm_decode_print('0260');
+plm_decode_print('02601edc3003159b06');
+plm_decode_print('026105eeff');
+plm_decode_print('026105eeff06');
+plm_decode_print('02635700');
+plm_decode_print('0263570006');
+plm_decode_print('02635a80');
+plm_decode_print('02635a8006');
+plm_decode_print('02640105');
+plm_decode_print('02640305');
+plm_decode_print('0264000506');
+plm_decode_print('0264ff05');
+plm_decode_print('0265');
+plm_decode_print('026515');
+plm_decode_print('026603159b');
+plm_decode_print('026603159b06');
+plm_decode_print('0267');
+plm_decode_print('026706');
+plm_decode_print('0268bb');
+plm_decode_print('0268bb06');
+plm_decode_print('0269');
+plm_decode_print('026915');
+plm_decode_print('026a');
+plm_decode_print('026a06');
+plm_decode_print('026bf0');
+plm_decode_print('026bf006');
+plm_decode_print('026b00');
+plm_decode_print('026c');
+plm_decode_print('026c06');
+plm_decode_print('026d');
+plm_decode_print('026d15');
+plm_decode_print('026e');
+plm_decode_print('026e06');
+plm_decode_print('026f20ff05aabbcc0badff');
+plm_decode_print('026f41ff05aabbcc0badff15');
+plm_decode_print('0270bb');
+plm_decode_print('0270bb06');
+plm_decode_print('02710bad');
+plm_decode_print('02710bad06');
+plm_decode_print('0272');
+plm_decode_print('027206');
+plm_decode_print('0273f00000');
+plm_decode_print('0273f0000006');
+plm_decode_print('0273000000');
+plm_decode_print('0274000000');
+
+plm_decode_print('02621e5d8e0f0d00');
+plm_decode_print('02621e5d8e2f0d00');
+plm_decode_print('02621e5d8e4f0d00');
+plm_decode_print('02621e5d8e6f0d00');
+plm_decode_print('02621e5d8e8f0d00');
+plm_decode_print('02621e5d8eaf0d00');
+plm_decode_print('02621e5d8ecf0d00');
+plm_decode_print('02621e5d8eef0d00');
+
+plm_decode_print('02621e5d8e0f0d0006');
+plm_decode_print('02621e5d8e0f0f00');
+plm_decode_print('02501e5d8e1edc302b0f00');
+
+plm_decode_print('02622042d30f1f00');
+plm_decode_print('02501e5d8e1edc302b1f00');
+
+plm_decode_print('02502042d3000005cb1100');
+plm_decode_print('02502042d3110105cb0600');
+
+plm_decode_print('02621f058c1f2e000100000000000000000000000000');
+plm_decode_print('02511f058c1edc30112e000101000020201cfe3f0001000000');
+
+sub plm_decode_print {
+	my ($plm_string) = @_;
+	print( "PLM Message: $plm_string\n");
+	print( Insteon::MessageDecoder::plm_decode($plm_string)."\n");
+}
diff --git a/lib/Insteon/PLMTerminal.pl b/lib/Insteon/PLMTerminal.pl
new file mode 100755
index 000000000..1d34997d3
--- /dev/null
+++ b/lib/Insteon/PLMTerminal.pl
@@ -0,0 +1,337 @@
+#!/usr/bin/perl -w
+
+=head1 NAME
+
+B<PLMTerminal.pl> - A standalone way to test an Insteon PLM (2412/2413) 
+
+=head1 SYNOPSIS
+
+PLMTerminal.pl [OPTIONS] serialport
+
+ serialport
+   May be windows or linux serial port device
+   (e.g. COM1, /dev/ttyS0, /dev/ttyUSB0, etc)
+
+ Options:
+   -nochecksum, -c               Disable i2CS checksums
+   -h, -?, --help                Brief help message
+   --man                         Full documentation
+
+=head1 DESCRIPTION
+
+PLMTerminal.pl is a simple serial terminal application designed to 
+interact with an Insteon PLM.  This tool is handy for studying how 
+the PLM interacts with the Insteon network.  It will display all 
+PLM messages received on the serial port and decode those messages 
+using the Insteon::MessageDecoder module.  The tool will also 
+collect any key presses in the [0-9a-fA-F] range and interpret 
+those key presses as a hex string sent to the PLM after the user 
+presses enter.  The string will be decoded before being sent to 
+the PLM.
+
+If the user types an extended Insteon message (PLM command 0x62), a 
+checksum will be automatically added to the D14 byte for compliance 
+with i2CS devices. This can be disabled with the --nochecksum option.
+
+Pressing Ctl-C will exit the program.
+
+=head1 EXAMPLE
+
+    perl insteon_test.pl /dev/ttyS1
+    
+    perl insteon_test.pl COM1
+    
+=head1 EXAMPLE PLM COMMANDS
+
+To get started try typing some of these PLM commands.  The first 
+example 0x60 is a great command to verify that the PLM is working. 
+If you do not get a response then you may be using the wrong serial 
+port device or the PLM may not be working.  In the examples replace 
+xxyyzz with the device ID from the device label.
+    
+    0260 - 
+    0262xxyyzz0f0d00 - Get Insteon Engine Version of device with zzyyzz id
+    0262xxyyzz1f2e000100000000000000000000000000 - Get config request
+
+=head1 BUGS
+
+There are probably many bugs.  The script was written and tested 
+with a 2413U PLM v1.7(9b) under Debian Woody linux.  It "should" 
+work with other PLMs but the decoder may not decode some messages 
+correctly.  For help undestanding the decoded PLM messages see the 
+Insteon::MessageDecoder documentation. 
+
+=head1 OPTIONS AND ARGUMENTS
+
+=over 8
+
+=item B<-nochecksum, -c>
+
+Will not overwrite D14 with the user data checksum on extended messages. 
+Use this option if you are sending extended messages to non-i2CS devices 
+and the extended command needs the D14 byte.  This should not be necessary.
+
+=item B<-h, -?, --help>
+
+Prints a brief help message and exits.
+
+=item B<--man>
+
+Prints the everything you ever wanted to know about the script and exits.
+
+=back
+
+=head1 SEE ALSO
+
+L<Insteon Command Tables 20070925a|www.insteon.net/pdf/INSTEON_Command_Tables_20070925a.pdf>
+
+PLM command details can be found in the 2412S Developers Guide.  This 
+document is not supplied by SmartHome but may be available through an 
+internet search.
+
+=cut
+
+use strict;
+use lib '..', '../site';
+use Insteon::MessageDecoder;
+use Term::ReadKey;
+use Getopt::Long;
+use Pod::Usage;
+
+use constant {
+	RX_BLOCKTIME => 100, #block for 100ms
+	RX_TIMEOUT => 20,    #100ms * 20 = 2 seconds
+};
+
+$| = 1;
+
+our $parms = getParameters();
+
+my $device;
+my $port;
+$port = $parms->{'port'};
+if ($^O eq "MSWin32") {
+	print "Windows; opening Win32 serial port\n";
+	require Win32::SerialPort;
+	die "$@\n" if ($@);
+	$port = 'COM1' unless $port;
+	$device = Win32::SerialPort->new($port) or die "Can't start $port\n";
+}
+else {
+	print "Not Windows; opening linux serial port\n";
+	require Device::SerialPort;
+	die "$@\n" if ($@);
+	$port = '/dev/ttyS0' unless $port;
+	$device = Device::SerialPort->new($port) or die "Can't start $port\n";
+}
+print "Using port=$port\n";
+
+$device->error_msg(1);	# use built-in error messages
+$device->user_msg(0);
+$device->databits(8);
+$device->baudrate(19200);
+$device->parity("none");
+$device->stopbits(1);
+$device->dtr_active(1);
+$device->handshake("none");
+$device->read_char_time(0);    # don't wait for each character
+$device->read_const_time(RX_BLOCKTIME); # wait RX_BLOCKTIME (ms) per unfulfilled "read" call
+$device->write_settings || die "Could not set up port\n";
+print "Done setting port parameters\n";
+
+our $ctlc = 0;
+$SIG{INT} = \&handler_ctlc;
+sub handler_ctlc {
+	$SIG{INT} = \&handler_ctlc;
+	$ctlc++;
+}
+
+print( "Ready to send command.  Looking for messages. Use Ctl-C to quit.\n\n");
+my $RxMessage='';
+my $RxTimeout=RX_TIMEOUT;
+my $TxMessage='';
+while(!$ctlc) {
+	#Read data from serial port
+	#Blocks for RX_BLOCKTIME (ms); set above
+	my ($count, $buffer) = $device->read(25);
+	for( my $i = 0; $i < $count; $i++) {
+		$RxMessage .= substr($buffer,$i,1);
+#		print("RXMessage=>".unpack( 'H*', $RxMessage)."\n");
+		#Check to see if an entire message was received
+		if( plmValidMessage($RxMessage)) {
+			print "PLM=>".unpack( 'H*', $RxMessage)."\n";
+			print Insteon::MessageDecoder::plm_decode(unpack( 'H*', $RxMessage))."\n";
+			$RxMessage = '';
+			$RxTimeout=RX_TIMEOUT;
+		}
+	}
+
+	#Once message reception starts check for receive timeout.  
+	#Will only occur if there is message corruption or if the 
+	#PLM sends a message type that is not in the messageLength hash below.
+	$RxTimeout-- if($RxMessage ne '');
+	if( $RxTimeout == 0) {
+		print("RX Timeout; command not parsed\n");
+		print("Dumping:  ".unpack('H*',$RxMessage)."\n");
+		print Insteon::MessageDecoder::plm_decode(unpack( 'H*', $RxMessage))."\n";
+
+		$RxMessage = '';
+		$RxTimeout=RX_TIMEOUT;
+	}
+
+	#collect keypresses from user
+	#Ignore zero length messages (i.e. user just hits enter)
+	my $key;
+	while( defined ($key = ReadKey(-1))) {
+		if( $key eq "\n" and $TxMessage ne '') { # enter
+			$TxMessage = insertChecksum($TxMessage) if( !$parms->{'nochecksum'});
+			print "PLM<=".$TxMessage."\n";
+			print Insteon::MessageDecoder::plm_decode($TxMessage)."\n";
+			$device->write( pack( 'H*', $TxMessage));
+			$TxMessage = '';
+		} elsif( ($key =~ /[0-9a-fA-F]/)) {
+			$TxMessage .= $key;
+		} #else just drop the key
+	}
+} #while(!$ctlc)
+
+print "Closing device port\n";
+$device->close || die "\nclose problem with $port\n";
+
+sub plmValidMessage {
+	my ($message) = @_;
+	
+	#Need at least 2 bytes to get started
+	return 0 if(length($message)<2);
+	
+my %messageLength = (
+	'50' => 11,
+	'51' => 25,
+	'52' => 4,
+	'53' => 10,
+	'54' => 3,
+	'55' => 2,
+	'56' => 13,
+	'57' => 10,
+	'58' => 3,
+	'60' => 9,
+	'61' => 6,
+	'62' => 23, # could get 9 or 23 (Standard or Extended Message received)
+	'63' => 5,
+	'64' => 5,
+	'65' => 3,
+	'66' => 6,
+	'67' => 3,
+	'68' => 4,
+	'69' => 3,
+	'6A' => 3,
+	'6B' => 4,
+	'6C' => 3,
+	'6D' => 3,
+	'6E' => 3,
+	'6F' => 12,
+	'70' => 4,
+	'71' => 5,
+	'72' => 3,
+	'73' => 6,
+	);	
+
+	#look up hex code of message in %messageLength
+#	print("Looking up command=>".unpack('H*',substr($message,1,1))."\n");
+	my $validLength = $messageLength{unpack('H*',substr($message,1,1))};
+
+	#override for '62' and standard message flag
+	if( ord(substr($message,1,1)) == 0x62) {
+		#need 6 bytes to check insteon message type (standard/extended)
+		return 0 if(length($message)<6);
+		#Use message flags to determine
+		$validLength = 9 if( !(ord(substr($message,5,1))&0b00010000));
+	}
+
+	#Will return false always if PLM message code is not in hash above
+	#Eventually the RX_TIMEOUT should declare end of message unless
+	#the bus is very busy.  Multiple messages could get concatinated.
+#	print("\$validLength=$validLength; length(\$message)=".length($message)."\n");
+	return -1 if( defined($validLength) and length($message) == $validLength);
+	return 0;
+}
+
+
+sub insertChecksum {
+	my ($message) = @_;
+
+	#Only processes a PLM 0x62 Insteon send
+	# i.e. 0262 toaddr flags cmd1 cmd2 d1 ... d14
+	#Must be a string of hex nibbles
+	#                 1111111111222222222233333333334444
+	#       01234567890123456789012345678901234567890123
+	# i.e. '02622042d31f2e000107110000000000000000000000'
+	#Verify it is 0x62 extended message (leave others alone)
+	return $message if( substr($message,2,2) ne '62' or !(hex(substr($message,10,1))&0b0001));
+	#Mask off D14 incase one was already set
+	$message = substr($message,0,42)."00";
+	my $sum = 0;
+	$sum += hex($_) for (unpack('(A2)*', substr($message,12)));
+	$sum = (~$sum + 1) & 0xff;
+	$message = substr($message,0,42).unpack( 'H2', chr($sum));
+	return $message
+}
+
+sub getParameters {
+    
+	my $parms = {};
+
+	my $nochecksum = 0;
+#	my $port = "";
+	my $help = 0;
+	my $man = 0;
+    
+	GetOptions (
+		"nochecksum|c"     => \$nochecksum,
+#		"port|p:s"         => \$port,
+#		"verbose:i"        => \$VERBOSE,
+#		"version|v"        => sub {die( "\n$0:  Version:  $VERSION\n");},
+		"help|h|?"         => \$help,
+		"man"              => \$man,
+		);
+
+	pod2usage(-verbose => 1)  if ($help);
+	pod2usage(-verbose => 2)  if ($man);
+
+	if( !defined($ARGV[0])) {
+		print("Serial port must be specified (e.g. COM1 or /dev/ttyS0)\n\n");
+		pod2usage(-verbose => 1);
+	}
+	
+	#Build the hash of command line parameters
+	$parms->{'nochecksum'} = $nochecksum;
+#	$parms->{'port'} = $port;
+	$parms->{'port'} = $ARGV[0];
+
+	return $parms;
+}
+
+=head1 AUTHOR
+
+Michael Stovenour
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2012 Michael Stovenour
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 
+MA  02110-1301, USA.
+
+=cut
\ No newline at end of file
diff --git a/lib/Insteon_PLM.pm b/lib/Insteon_PLM.pm
index 52c2e097b..ac24168e5 100644
--- a/lib/Insteon_PLM.pm
+++ b/lib/Insteon_PLM.pm
@@ -44,6 +44,7 @@ use strict;
 use Insteon::BaseInterface;
 use Insteon::BaseInsteon;
 use Insteon::AllLinkDatabase;
+use Insteon::MessageDecoder;
 
 @Insteon_PLM::ISA = ('Serial_Item','Insteon::BaseInterface');
 
@@ -307,8 +308,9 @@ sub _send_cmd {
                 }
         }
 
-        my $data = pack("H*",$command);
-#	&::print_log("PLM: Executing command:$command:") unless $main::config_parms{no_log} =~/Insteon_PLM/;
+	&::print_log( "[Insteon_PLM] DEBUG3: Sending  PLM raw data: ".lc($command)) if $main::Debug{insteon} >= 3;
+	&::print_log( "[Insteon_PLM] DEBUG4:\n".Insteon::MessageDecoder::plm_decode($command)) if $main::Debug{insteon} >= 4;
+	my $data = pack("H*",$command);
 	$main::Serial_Ports{$instance}{object}->write($data) if $main::Serial_Ports{$instance};
 
 
@@ -340,7 +342,8 @@ sub _parse_data {
                 $$self{_prior_data_fragment} = '';
         }
 
-	&::print_log( "[Insteon_PLM] DEBUG3: Received raw PLM data: $data") if $main::Debug{insteon} >= 3;
+	&::print_log( "[Insteon_PLM] DEBUG3: Received PLM raw data: $data") if $main::Debug{insteon} >= 3;
+	&::print_log( "[Insteon_PLM] DEBUG4:\n".Insteon::MessageDecoder::plm_decode($data)) if $main::Debug{insteon} >= 4;
 
 	# begin by pulling out any PLM ack/nacks
 	my $prev_cmd = '';