--- cpr-m02.pl	2010/07/16 13:33:10	88
+++ cpr-m02.pl	2010/07/16 13:50:52	89
@@ -339,7 +339,20 @@
 	my $hex_uid = as_hex($uid);
 
 	cpr( "FF  B0 23  01  $hex_uid 00 04", "Read Multiple Blocks $hex_uid" );
-#	cpr( "FF  B0 2B  01  $hex_uid", "Get System Information $hex_uid" );
+	cpr( "FF  B0 2B  01  $hex_uid", "Get System Information $hex_uid", sub {
+		my $data = shift;
+
+		warn "# data ",as_hex($data);
+
+		my $DSFID    = substr($data,5-2,1);
+		my $UID      = substr($data,6-2,8);
+		my $AFI      = substr($data,14-2,1);
+		my $MEM_SIZE = substr($data,15-2,2);
+		my $IC_REF   = substr($data,17-2,1);
+
+		warn "# split ",as_hex( $DSFID, $UID, $AFI, $MEM_SIZE, $IC_REF );
+
+	});
 }