#!/usr/bin/perl -w
# $Id: tasm-error-filter,v 1.1.1.1 1999/10/06 10:54:46 mg Exp $
while (<>) {
  s {\x0D$}{};
  s {^(\*(?:\*Error\*|Warning)\*) ([^(]+)\(([0-9]+)\) (.+)$}
    {\L$2\E:$3:$1 $4};
  print;
}
