nawk 'BEGIN{ addrlist = "0,6,0C,FD,1E3,1E4,1E5,1E7,1EA,1F2,1F3,1F4,1FD,206,219,2E8,4EB,4ED,509,50A,50C,52A,5F7,62F,640,654,6D3,6DC,6ED,799,79A,79B,79C,7A1,7A2,7A4,7A5,7A6,7A7,7A8,7A9,7AA,7AB,7AD,7AE,7AF,7B0,7B1,7B2,7B3,7B5,7B6,7B7,7BA,7BC,7BD,7BF,7C7,7CD,7CE,7CF,7D0,7D1,7D2,7D3,7D4,7D5,7D7,7DB,7E5,7F9,8B4,8B5,8B6,8B8,8B9,8BA,8BB,8BC,8BD,8BE,8BF,8C1,8C2,8C7,8CF,8D0,8D2,8D6,8D7,8D8,8E3,8E4,8E5,8F0,8F1,8F2,8FD,8FE,8FF,90A,990,991,992,993,995,997,999,99B,99C,99D,9A0,9A1,9A4,9A5,9A6,9A8,9A9,9AA,9AB,9AC,9AF,90A,9B1,9B4,9B6,9B7,9B8,9BA,9BB,9CC,9D0,9E1,9E5,9F6,A07,A08,A0A" addresscount = split(addrlist,addresses,",") itemcount=-1 } { arraysub=1 while( $0 !~ /^};/ ) { array[arraysub]=$0 arraysub=arraysub+1 getline } split(array[4],a,"=") split(a[2],b,",") found=0 for(h=1;h<=addresscount;h++) { if( b[1] == addresses[h] ) found=1 } if ( found == 1 ) { for(i=1; i