#!/usr/sbin/perl
#
#
$addr = 0;
while (<>) {
  chop;
  split;

  if ($_[1] eq "") {
     $W1 = 0;
     }
  else {
     $W1 = $_[1];
     }

  if ($_[2] eq "") {
     $W2 = 0;
     }
  else {
     $W2 = $_[2];
     }

  if ($_[3] eq "") {
     $W3 = 0;
     }
  else {
     $W3 = $_[3];
     }

  if ($_[4] eq "") {
     $W4 = 0;
     }
  else {
     $W4 = $_[4];
     }
  if ($addr < 256) {
    printf "@%2.2X %8.8lX_%8.8lX_%8.8lX_%8.8lX\n", $addr++, hex($W1),hex($W2),hex($W3),hex($W4);
   }
}