Saturday, November 19, 2011

SEGY

SEGY merupakan format data seismik yang sangat populer digunakan didalam industri migas.

Sebuah file SEGY terdiri atas susunan sebagai berikut:
Blok #1: EBCDID Header dengan ukuran 3200 byte
Blok #2: Binary header dengan ukuran 400 byte
Blok #3: Trace identification header trace pertama dengan ukuran 240 byte
Blok #4: Data trace pertama (ukuran bervariasi)
Blok #3: Trace identification header trace kedua dengan ukuran 240 byte
Blok #4: Data trace kedua (ukuran bervariasi)
Dst...

Berikut adalah skema file SEGY:

Courtesy www.geo.uib.no

Blok #1 berisikan berbagai informasi seperti Nama Perusahaan, Tahun Pengambilan, Jenis Instrumen, Sampling Rate, No Trace, dll.
Blok #2 berisikan informasi seperti line id, sample int, no sample, Fold, format data, dll.
Blok #3 berisikan informasi seperti Line No, CDP, Koordinat Sumber/Penerima, dll.
Blok #4 berisikan data seismik itu sendiri.

Untuk lebih jelasnya silakan buka link berikut.

Software-software komersial menyediakan fasilitas yang dapat menampilkan semua informasi di atas.

Pada UNIX anda dapat mengekstrak informasi tersebut dengan perintah dd dan sebuah kode program.


Untuk menampilkan EBCDIC header anda dapat menggunakan perintas sbb:

dd if=data.segy conv=ascii ibs=3200 count=1


Atau

dd if=data.segy conv=ascii ibs=3200 count=1 | awk 'BEGIN{RS="C[0-9 ][0-9]"}{printf "C%2d%s\n",NR,$0}'

Berikut adalah contoh EBCDIC header dari perintah di atas (berisikan 40 baris dan 80 kolom i.e. 40*80=3200):


Untuk menampilkan Binary header dan Trace Header yang pertama, anda dapat menggunakan kode PERL di bawah ini.

Bukalah gedit lalu copy kode tersebut lalu berinama headerdumper.pl
Simpan file headerdumper.pl pada directory yang sama dengan data seismik anda, lalu pada terminal Linux ketik perintah:

perl headerdumper.pl gathertest.segy

Sehingga diperoleh hasil berikut:



#!/usr/bin/perl

die "perl headerdumper.pl file.sgy\n " if $#ARGV !=0;
$fname=$ARGV [0 ];
sysopen(IN,$fname,O_RDONLY) or die "Can't Open $fname: $! ";
sysread (IN,$binHeader,3840);
$size= -s IN;
$Samplingrate= unpack( "n ",substr($binHeader,3216,2));
$Noofsamples = unpack( "n ",substr($binHeader,3220,2));
$formatcode= unpack( "n ",substr($binHeader,3224,2));

if($formatcode==1)
{
$bytewidth=4;
$tracecount=($size-3600)/(240+$bytewidth*$Noofsamples);
} elsif($formatcode==2)
{
$bytewidth=4;
$tracecount=($size-3600)/(240+$bytewidth*$Noofsamples);
} elsif($formatcode==3)
{
$bytewidth=2;
$tracecount=($size-3600)/(240+$bytewidth*$Noofsamples);
} elsif($formatcode==4)
{
$bytewidth=4;
$tracecount=($size-3600)/(240+$bytewidth*$Noofsamples);
} elsif($formatcode==5)
{
$bytewidth=4;
$tracecount=($size-3600)/(240+$bytewidth*$Noofsamples);
} elsif($formatcode==6)
{
$bytewidth=4;
$tracecount=($size-3600)/(240+$bytewidth*$Noofsamples);
}
else {print " I dont know this type of format code\n "; }


$head_16bit_001 = unpack( "n ",substr($binHeader,3600,2));
$head_16bit_002 = unpack( "n ",substr($binHeader,3602,2));
$head_16bit_003 = unpack( "n ",substr($binHeader,3604,2));
$head_16bit_004 = unpack( "n ",substr($binHeader,3606,2));
$head_16bit_005 = unpack( "n ",substr($binHeader,3608,2));
$head_16bit_006 = unpack( "n ",substr($binHeader,3610,2));
$head_16bit_007 = unpack( "n ",substr($binHeader,3612,2));
$head_16bit_008 = unpack( "n ",substr($binHeader,3614,2));
$head_16bit_009 = unpack( "n ",substr($binHeader,3616,2));
$head_16bit_010 = unpack( "n ",substr($binHeader,3618,2));
$head_16bit_011 = unpack( "n ",substr($binHeader,3620,2));
$head_16bit_012 = unpack( "n ",substr($binHeader,3622,2));
$head_16bit_013 = unpack( "n ",substr($binHeader,3624,2));
$head_16bit_014 = unpack( "n ",substr($binHeader,3626,2));
$head_16bit_015 = unpack( "n ",substr($binHeader,3628,2));
$head_16bit_016 = unpack( "n ",substr($binHeader,3630,2));
$head_16bit_017 = unpack( "n ",substr($binHeader,3632,2));
$head_16bit_018 = unpack( "n ",substr($binHeader,3634,2));
$head_16bit_019 = unpack( "n ",substr($binHeader,3636,2));
$head_16bit_020 = unpack( "n ",substr($binHeader,3638,2));
$head_16bit_021 = unpack( "n ",substr($binHeader,3640,2));
$head_16bit_022 = unpack( "n ",substr($binHeader,3642,2));
$head_16bit_023 = unpack( "n ",substr($binHeader,3644,2));
$head_16bit_024 = unpack( "n ",substr($binHeader,3646,2));
$head_16bit_025 = unpack( "n ",substr($binHeader,3648,2));
$head_16bit_026 = unpack( "n ",substr($binHeader,3650,2));
$head_16bit_027 = unpack( "n ",substr($binHeader,3652,2));
$head_16bit_028 = unpack( "n ",substr($binHeader,3654,2));
$head_16bit_029 = unpack( "n ",substr($binHeader,3656,2));
$head_16bit_030 = unpack( "n ",substr($binHeader,3658,2));
$head_16bit_031 = unpack( "n ",substr($binHeader,3660,2));
$head_16bit_032 = unpack( "n ",substr($binHeader,3662,2));
$head_16bit_033 = unpack( "n ",substr($binHeader,3664,2));
$head_16bit_034 = unpack( "n ",substr($binHeader,3666,2));
$head_16bit_035 = unpack( "n ",substr($binHeader,3668,2));
$head_16bit_036 = unpack( "n ",substr($binHeader,3670,2));
$head_16bit_037 = unpack( "n ",substr($binHeader,3672,2));
$head_16bit_038 = unpack( "n ",substr($binHeader,3674,2));
$head_16bit_039 = unpack( "n ",substr($binHeader,3676,2));
$head_16bit_040 = unpack( "n ",substr($binHeader,3678,2));
$head_16bit_041 = unpack( "n ",substr($binHeader,3680,2));
$head_16bit_042 = unpack( "n ",substr($binHeader,3682,2));
$head_16bit_043 = unpack( "n ",substr($binHeader,3684,2));
$head_16bit_044 = unpack( "n ",substr($binHeader,3686,2));
$head_16bit_045 = unpack( "n ",substr($binHeader,3688,2));
$head_16bit_046 = unpack( "n ",substr($binHeader,3690,2));
$head_16bit_047 = unpack( "n ",substr($binHeader,3692,2));
$head_16bit_048 = unpack( "n ",substr($binHeader,3694,2));
$head_16bit_049 = unpack( "n ",substr($binHeader,3696,2));
$head_16bit_050 = unpack( "n ",substr($binHeader,3698,2));
$head_16bit_051 = unpack( "n ",substr($binHeader,3700,2));
$head_16bit_052 = unpack( "n ",substr($binHeader,3702,2));
$head_16bit_053 = unpack( "n ",substr($binHeader,3704,2));
$head_16bit_054 = unpack( "n ",substr($binHeader,3706,2));
$head_16bit_055 = unpack( "n ",substr($binHeader,3708,2));
$head_16bit_056 = unpack( "n ",substr($binHeader,3710,2));
$head_16bit_057 = unpack( "n ",substr($binHeader,3712,2));
$head_16bit_058 = unpack( "n ",substr($binHeader,3714,2));
$head_16bit_059 = unpack( "n ",substr($binHeader,3716,2));
$head_16bit_060 = unpack( "n ",substr($binHeader,3718,2));
$head_16bit_061 = unpack( "n ",substr($binHeader,3720,2));
$head_16bit_062 = unpack( "n ",substr($binHeader,3722,2));
$head_16bit_063 = unpack( "n ",substr($binHeader,3724,2));
$head_16bit_064 = unpack( "n ",substr($binHeader,3726,2));
$head_16bit_065 = unpack( "n ",substr($binHeader,3728,2));
$head_16bit_066 = unpack( "n ",substr($binHeader,3730,2));
$head_16bit_067 = unpack( "n ",substr($binHeader,3732,2));
$head_16bit_068 = unpack( "n ",substr($binHeader,3734,2));
$head_16bit_069 = unpack( "n ",substr($binHeader,3736,2));
$head_16bit_070 = unpack( "n ",substr($binHeader,3738,2));
$head_16bit_071 = unpack( "n ",substr($binHeader,3740,2));
$head_16bit_072 = unpack( "n ",substr($binHeader,3742,2));
$head_16bit_073 = unpack( "n ",substr($binHeader,3744,2));
$head_16bit_074 = unpack( "n ",substr($binHeader,3746,2));
$head_16bit_075 = unpack( "n ",substr($binHeader,3748,2));
$head_16bit_076 = unpack( "n ",substr($binHeader,3750,2));
$head_16bit_077 = unpack( "n ",substr($binHeader,3752,2));
$head_16bit_078 = unpack( "n ",substr($binHeader,3754,2));
$head_16bit_079 = unpack( "n ",substr($binHeader,3756,2));
$head_16bit_080 = unpack( "n ",substr($binHeader,3758,2));
$head_16bit_081 = unpack( "n ",substr($binHeader,3760,2));
$head_16bit_082 = unpack( "n ",substr($binHeader,3762,2));
$head_16bit_083 = unpack( "n ",substr($binHeader,3764,2));
$head_16bit_084 = unpack( "n ",substr($binHeader,3766,2));
$head_16bit_085 = unpack( "n ",substr($binHeader,3768,2));
$head_16bit_086 = unpack( "n ",substr($binHeader,3770,2));
$head_16bit_087 = unpack( "n ",substr($binHeader,3772,2));
$head_16bit_088 = unpack( "n ",substr($binHeader,3774,2));
$head_16bit_089 = unpack( "n ",substr($binHeader,3776,2));
$head_16bit_090 = unpack( "n ",substr($binHeader,3778,2));
$head_16bit_091 = unpack( "n ",substr($binHeader,3780,2));
$head_16bit_092 = unpack( "n ",substr($binHeader,3782,2));
$head_16bit_093 = unpack( "n ",substr($binHeader,3784,2));
$head_16bit_094 = unpack( "n ",substr($binHeader,3786,2));
$head_16bit_095 = unpack( "n ",substr($binHeader,3788,2));
$head_16bit_096 = unpack( "n ",substr($binHeader,3790,2));
$head_16bit_097 = unpack( "n ",substr($binHeader,3792,2));
$head_16bit_098 = unpack( "n ",substr($binHeader,3794,2));
$head_16bit_099 = unpack( "n ",substr($binHeader,3796,2));
$head_16bit_100 = unpack( "n ",substr($binHeader,3798,2));
$head_16bit_101 = unpack( "n ",substr($binHeader,3800,2));
$head_16bit_102 = unpack( "n ",substr($binHeader,3802,2));
$head_16bit_103 = unpack( "n ",substr($binHeader,3804,2));
$head_16bit_104 = unpack( "n ",substr($binHeader,3806,2));
$head_16bit_105 = unpack( "n ",substr($binHeader,3808,2));
$head_16bit_106 = unpack( "n ",substr($binHeader,3810,2));
$head_16bit_107 = unpack( "n ",substr($binHeader,3812,2));
$head_16bit_108 = unpack( "n ",substr($binHeader,3814,2));
$head_16bit_109 = unpack( "n ",substr($binHeader,3816,2));
$head_16bit_110 = unpack( "n ",substr($binHeader,3818,2));
$head_16bit_111 = unpack( "n ",substr($binHeader,3820,2));
$head_16bit_112 = unpack( "n ",substr($binHeader,3822,2));
$head_16bit_113 = unpack( "n ",substr($binHeader,3824,2));
$head_16bit_114 = unpack( "n ",substr($binHeader,3826,2));
$head_16bit_115 = unpack( "n ",substr($binHeader,3828,2));
$head_16bit_116 = unpack( "n ",substr($binHeader,3830,2));
$head_16bit_117 = unpack( "n ",substr($binHeader,3832,2));
$head_16bit_118 = unpack( "n ",substr($binHeader,3834,2));
$head_16bit_119 = unpack( "n ",substr($binHeader,3836,2));
$head_16bit_120 = unpack( "n ",substr($binHeader,3838,2));

$head_32bit_001 = unpack( "N ",substr($binHeader,3600,4));
$head_32bit_003 = unpack( "N ",substr($binHeader,3604,4));
$head_32bit_005 = unpack( "N ",substr($binHeader,3608,4));
$head_32bit_007 = unpack( "N ",substr($binHeader,3612,4));
$head_32bit_009 = unpack( "N ",substr($binHeader,3616,4));
$head_32bit_011 = unpack( "N ",substr($binHeader,3620,4));
$head_32bit_013 = unpack( "N ",substr($binHeader,3624,4));
$head_32bit_015 = unpack( "N ",substr($binHeader,3628,4));
$head_32bit_017 = unpack( "N ",substr($binHeader,3632,4));
$head_32bit_019 = unpack( "N ",substr($binHeader,3636,4));
$head_32bit_021 = unpack( "N ",substr($binHeader,3640,4));
$head_32bit_023 = unpack( "N ",substr($binHeader,3644,4));
$head_32bit_025 = unpack( "N ",substr($binHeader,3648,4));
$head_32bit_027 = unpack( "N ",substr($binHeader,3652,4));
$head_32bit_029 = unpack( "N ",substr($binHeader,3656,4));
$head_32bit_031 = unpack( "N ",substr($binHeader,3660,4));
$head_32bit_033 = unpack( "N ",substr($binHeader,3664,4));
$head_32bit_035 = unpack( "N ",substr($binHeader,3668,4));
$head_32bit_037 = unpack( "N ",substr($binHeader,3672,4));
$head_32bit_039 = unpack( "N ",substr($binHeader,3676,4));
$head_32bit_041 = unpack( "N ",substr($binHeader,3680,4));
$head_32bit_043 = unpack( "N ",substr($binHeader,3684,4));
$head_32bit_045 = unpack( "N ",substr($binHeader,3688,4));
$head_32bit_047 = unpack( "N ",substr($binHeader,3692,4));
$head_32bit_049 = unpack( "N ",substr($binHeader,3696,4));
$head_32bit_051 = unpack( "N ",substr($binHeader,3700,4));
$head_32bit_053 = unpack( "N ",substr($binHeader,3704,4));
$head_32bit_055 = unpack( "N ",substr($binHeader,3708,4));
$head_32bit_057 = unpack( "N ",substr($binHeader,3712,4));
$head_32bit_059 = unpack( "N ",substr($binHeader,3716,4));
$head_32bit_061 = unpack( "N ",substr($binHeader,3720,4));
$head_32bit_063 = unpack( "N ",substr($binHeader,3724,4));
$head_32bit_065 = unpack( "N ",substr($binHeader,3728,4));
$head_32bit_067 = unpack( "N ",substr($binHeader,3732,4));
$head_32bit_069 = unpack( "N ",substr($binHeader,3736,4));
$head_32bit_071 = unpack( "N ",substr($binHeader,3740,4));
$head_32bit_073 = unpack( "N ",substr($binHeader,3744,4));
$head_32bit_075 = unpack( "N ",substr($binHeader,3748,4));
$head_32bit_077 = unpack( "N ",substr($binHeader,3752,4));
$head_32bit_079 = unpack( "N ",substr($binHeader,3756,4));
$head_32bit_081 = unpack( "N ",substr($binHeader,3760,4));
$head_32bit_083 = unpack( "N ",substr($binHeader,3764,4));
$head_32bit_085 = unpack( "N ",substr($binHeader,3768,4));
$head_32bit_087 = unpack( "N ",substr($binHeader,3772,4));
$head_32bit_089 = unpack( "N ",substr($binHeader,3776,4));
$head_32bit_091 = unpack( "N ",substr($binHeader,3780,4));
$head_32bit_093 = unpack( "N ",substr($binHeader,3784,4));
$head_32bit_095 = unpack( "N ",substr($binHeader,3788,4));
$head_32bit_097 = unpack( "N ",substr($binHeader,3792,4));
$head_32bit_099 = unpack( "N ",substr($binHeader,3796,4));
$head_32bit_101 = unpack( "N ",substr($binHeader,3800,4));
$head_32bit_103 = unpack( "N ",substr($binHeader,3804,4));
$head_32bit_105 = unpack( "N ",substr($binHeader,3808,4));
$head_32bit_107 = unpack( "N ",substr($binHeader,3812,4));
$head_32bit_109 = unpack( "N ",substr($binHeader,3816,4));
$head_32bit_111 = unpack( "N ",substr($binHeader,3820,4));
$head_32bit_113 = unpack( "N ",substr($binHeader,3824,4));
$head_32bit_115 = unpack( "N ",substr($binHeader,3828,4));
$head_32bit_117 = unpack( "N ",substr($binHeader,3832,4));
$head_32bit_119 = unpack( "N ",substr($binHeader,3836,4));

print "--Segy Header Dumper by Agus Abdullah, PhD----\n ";
print "-----modified from Peter Zahuczki-------------\n ";
print "--------------reel header---------------------\n ";
print "Sampling Rate : ",$Samplingrate, "\n ";
print "No of Samples per Trace : ",$Noofsamples, "\n ";
print "No of Trace : ",$tracecount, "\n ";
print "Format Code : ",$formatcode, "\n ";
print "Size : ",$size, "\n ";
print "--------------First Trace Header 16 BIT-------\n ";
print " byte#1-2: ",$head_16bit_001, "\n ";
print " byte#3-4: ",$head_16bit_002, "\n ";
print " byte#5-6: ",$head_16bit_003, "\n ";
print " byte#7-8: ",$head_16bit_004, "\n ";
print " byte#9-10: ",$head_16bit_005, "\n ";
print " byte#11-12: ",$head_16bit_006, "\n ";
print " byte#13-14: ",$head_16bit_007, "\n ";
print " byte#15-16: ",$head_16bit_008, "\n ";
print " byte#17-18: ",$head_16bit_009, "\n ";
print " byte#19-20: ",$head_16bit_010, "\n ";
print " byte#21-22: ",$head_16bit_011, "\n ";
print " byte#23-24: ",$head_16bit_012, "\n ";
print " byte#25-26: ",$head_16bit_013, "\n ";
print " byte#27-28: ",$head_16bit_014, "\n ";
print " byte#29-30: ",$head_16bit_015, "\n ";
print " byte#31-32: ",$head_16bit_016, "\n ";
print " byte#33-34: ",$head_16bit_017, "\n ";
print " byte#35-36: ",$head_16bit_018, "\n ";
print " byte#37-38: ",$head_16bit_019, "\n ";
print " byte#39-40: ",$head_16bit_020, "\n ";
print " byte#41-42: ",$head_16bit_021, "\n ";
print " byte#43-44: ",$head_16bit_022, "\n ";
print " byte#45-46: ",$head_16bit_023, "\n ";
print " byte#47-48: ",$head_16bit_024, "\n ";
print " byte#49-50: ",$head_16bit_025, "\n ";
print " byte#51-52: ",$head_16bit_026, "\n ";
print " byte#53-54: ",$head_16bit_027, "\n ";
print " byte#55-56: ",$head_16bit_028, "\n ";
print " byte#57-58: ",$head_16bit_029, "\n ";
print " byte#59-60: ",$head_16bit_030, "\n ";
print " byte#61-62: ",$head_16bit_031, "\n ";
print " byte#63-64: ",$head_16bit_032, "\n ";
print " byte#65-66: ",$head_16bit_033, "\n ";
print " byte#67-68: ",$head_16bit_034, "\n ";
print " byte#69-70: ",$head_16bit_035, "\n ";
print " byte#71-72: ",$head_16bit_036, "\n ";
print " byte#73-74: ",$head_16bit_037, "\n ";
print " byte#75-76: ",$head_16bit_038, "\n ";
print " byte#77-78: ",$head_16bit_039, "\n ";
print " byte#79-80: ",$head_16bit_040, "\n ";
print " byte#81-82: ",$head_16bit_041, "\n ";
print " byte#83-84: ",$head_16bit_042, "\n ";
print " byte#85-86: ",$head_16bit_043, "\n ";
print " byte#87-88: ",$head_16bit_044, "\n ";
print " byte#89-90: ",$head_16bit_045, "\n ";
print " byte#91-92: ",$head_16bit_046, "\n ";
print " byte#93-94: ",$head_16bit_047, "\n ";
print " byte#95-96: ",$head_16bit_048, "\n ";
print " byte#97-98: ",$head_16bit_049, "\n ";
print " byte#99-100: ",$head_16bit_050, "\n ";
print " byte#101-102: ",$head_16bit_051, "\n ";
print " byte#103-104: ",$head_16bit_052, "\n ";
print " byte#105-106: ",$head_16bit_053, "\n ";
print " byte#107-108: ",$head_16bit_054, "\n ";
print " byte#109-110: ",$head_16bit_055, "\n ";
print " byte#111-112: ",$head_16bit_056, "\n ";
print " byte#113-114: ",$head_16bit_057, "\n ";
print " byte#115-116: ",$head_16bit_058, "\n ";
print " byte#117-118: ",$head_16bit_059, "\n ";
print " byte#119-120: ",$head_16bit_060, "\n ";
print " byte#121-122: ",$head_16bit_061, "\n ";
print " byte#123-124: ",$head_16bit_062, "\n ";
print " byte#125-126: ",$head_16bit_063, "\n ";
print " byte#127-128: ",$head_16bit_064, "\n ";
print " byte#129-130: ",$head_16bit_065, "\n ";
print " byte#131-132: ",$head_16bit_066, "\n ";
print " byte#133-134: ",$head_16bit_067, "\n ";
print " byte#135-136: ",$head_16bit_068, "\n ";
print " byte#137-138: ",$head_16bit_069, "\n ";
print " byte#139-140: ",$head_16bit_070, "\n ";
print " byte#141-142: ",$head_16bit_071, "\n ";
print " byte#143-144: ",$head_16bit_072, "\n ";
print " byte#145-146: ",$head_16bit_073, "\n ";
print " byte#147-148: ",$head_16bit_074, "\n ";
print " byte#149-150: ",$head_16bit_075, "\n ";
print " byte#151-152: ",$head_16bit_076, "\n ";
print " byte#153-154: ",$head_16bit_077, "\n ";
print " byte#155-156: ",$head_16bit_078, "\n ";
print " byte#157-158: ",$head_16bit_079, "\n ";
print " byte#159-160: ",$head_16bit_080, "\n ";
print " byte#161-162: ",$head_16bit_081, "\n ";
print " byte#163-164: ",$head_16bit_082, "\n ";
print " byte#165-166: ",$head_16bit_083, "\n ";
print " byte#167-168: ",$head_16bit_084, "\n ";
print " byte#169-170: ",$head_16bit_085, "\n ";
print " byte#171-172: ",$head_16bit_086, "\n ";
print " byte#173-174: ",$head_16bit_087, "\n ";
print " byte#175-176: ",$head_16bit_088, "\n ";
print " byte#177-178: ",$head_16bit_089, "\n ";
print " byte#179-180: ",$head_16bit_090, "\n ";
print " byte#181-182: ",$head_16bit_091, "\n ";
print " byte#183-184: ",$head_16bit_092, "\n ";
print " byte#185-186: ",$head_16bit_093, "\n ";
print " byte#187-188: ",$head_16bit_094, "\n ";
print " byte#189-190: ",$head_16bit_095, "\n ";
print " byte#191-192: ",$head_16bit_096, "\n ";
print " byte#193-194: ",$head_16bit_097, "\n ";
print " byte#195-196: ",$head_16bit_098, "\n ";
print " byte#197-198: ",$head_16bit_099, "\n ";
print " byte#199-200: ",$head_16bit_100, "\n ";
print " byte#201-202: ",$head_16bit_101, "\n ";
print " byte#203-204: ",$head_16bit_102, "\n ";
print " byte#205-206: ",$head_16bit_103, "\n ";
print " byte#207-208: ",$head_16bit_104, "\n ";
print " byte#209-210: ",$head_16bit_105, "\n ";
print " byte#211-212: ",$head_16bit_106, "\n ";
print " byte#213-214: ",$head_16bit_107, "\n ";
print " byte#215-216: ",$head_16bit_108, "\n ";
print " byte#217-218: ",$head_16bit_109, "\n ";
print " byte#219-220: ",$head_16bit_110, "\n ";
print " byte#221-222: ",$head_16bit_111, "\n ";
print " byte#223-224: ",$head_16bit_112, "\n ";
print " byte#225-226: ",$head_16bit_113, "\n ";
print " byte#227-228: ",$head_16bit_114, "\n ";
print " byte#229-230: ",$head_16bit_115, "\n ";
print " byte#231-232: ",$head_16bit_116, "\n ";
print " byte#233-234: ",$head_16bit_117, "\n ";
print " byte#235-236: ",$head_16bit_118, "\n ";
print " byte#237-238: ",$head_16bit_119, "\n ";
print " byte#239-240: ",$head_16bit_120, "\n ";
print "--------------First Trace Header 32 BIT-----------\n ";
print " byte# 1- 4: ",$head_32bit_001, "\n ";
print " byte# 5- 8: ",$head_32bit_003, "\n ";
print " byte# 9- 12: ",$head_32bit_005, "\n ";
print " byte# 13- 16: ",$head_32bit_007, "\n ";
print " byte# 17- 20: ",$head_32bit_009, "\n ";
print " byte# 21- 24: ",$head_32bit_011, "\n ";
print " byte# 25- 28: ",$head_32bit_013, "\n ";
print " byte# 29- 32: ",$head_32bit_015, "\n ";
print " byte# 33- 36: ",$head_32bit_017, "\n ";
print " byte# 37- 40: ",$head_32bit_019, "\n ";
print " byte# 41- 44: ",$head_32bit_021, "\n ";
print " byte# 45- 48: ",$head_32bit_023, "\n ";
print " byte# 49- 52: ",$head_32bit_025, "\n ";
print " byte# 53- 56: ",$head_32bit_027, "\n ";
print " byte# 57- 60: ",$head_32bit_029, "\n ";
print " byte# 61- 64: ",$head_32bit_031, "\n ";
print " byte# 65- 68: ",$head_32bit_033, "\n ";
print " byte# 69- 72: ",$head_32bit_035, "\n ";
print " byte# 73- 76: ",$head_32bit_037, "\n ";
print " byte# 77- 80: ",$head_32bit_039, "\n ";
print " byte# 81- 84: ",$head_32bit_041, "\n ";
print " byte# 85- 88: ",$head_32bit_043, "\n ";
print " byte# 89- 92: ",$head_32bit_045, "\n ";
print " byte# 93- 96: ",$head_32bit_047, "\n ";
print " byte# 97-100: ",$head_32bit_049, "\n ";
print " byte#101-104: ",$head_32bit_051, "\n ";
print " byte#105-108: ",$head_32bit_053, "\n ";
print " byte#109-112: ",$head_32bit_055, "\n ";
print " byte#113-116: ",$head_32bit_057, "\n ";
print " byte#117-120: ",$head_32bit_059, "\n ";
print " byte#121-124: ",$head_32bit_061, "\n ";
print " byte#125-128: ",$head_32bit_063, "\n ";
print " byte#129-132: ",$head_32bit_065, "\n ";
print " byte#133-136: ",$head_32bit_067, "\n ";
print " byte#137-140: ",$head_32bit_069, "\n ";
print " byte#141-144: ",$head_32bit_071, "\n ";
print " byte#145-148: ",$head_32bit_073, "\n ";
print " byte#149-152: ",$head_32bit_075, "\n ";
print " byte#153-156: ",$head_32bit_077, "\n ";
print " byte#157-160: ",$head_32bit_079, "\n ";
print " byte#161-164: ",$head_32bit_081, "\n ";
print " byte#165-168: ",$head_32bit_083, "\n ";
print " byte#169-172: ",$head_32bit_085, "\n ";
print " byte#173-176: ",$head_32bit_087, "\n ";
print " byte#177-180: ",$head_32bit_089, "\n ";
print " byte#181-184: ",$head_32bit_091, "\n ";
print " byte#185-188: ",$head_32bit_093, "\n ";
print " byte#189-192: ",$head_32bit_095, "\n ";
print " byte#193-196: ",$head_32bit_097, "\n ";
print " byte#197-200: ",$head_32bit_099, "\n ";
print " byte#201-204: ",$head_32bit_101, "\n ";
print " byte#205-208: ",$head_32bit_103, "\n ";
print " byte#209-212: ",$head_32bit_105, "\n ";
print " byte#213-216: ",$head_32bit_107, "\n ";
print " byte#217-220: ",$head_32bit_109, "\n ";
print " byte#221-224: ",$head_32bit_111, "\n ";
print " byte#225-228: ",$head_32bit_113, "\n ";
print " byte#229-232: ",$head_32bit_115, "\n ";
print " byte#233-236: ",$head_32bit_117, "\n ";
print " byte#237-240: ",$head_32bit_119, "\n ";

No comments: