#!/usr/sbin/perl
# SCCS: @(#)MAKE_IHEX	1.1 07 Sep 1994
# 
# This program extracts the instructions in ascii hex format from
# the .lst file which is an output of the rspasm.
# 
$alt = 0;
while (<>) {
  chop;
  split;
  if ($_ ne "") {
    if ($_[0] ne "***") {
      printf "%8.8lX", hex($_[2]);
      if ($alt) {
        printf "\n";
      }
      $alt = !$alt;
    }
  }
}