#! /usr/bin/perl

# STA013 config file -> ASM EEPROM

printf(".DEVICE ATmega103\n");
printf(".ESEG\n");
printf(".ORG 0\n");

$num = 0;
while (<>) {
	next unless /^([0-9]+) ([0-9]+)/;
	$a[$num] = $1;
	$num++;
	$a[$num] = $2;
	$num++;
}

for ($i = 0; $i < $num; $i++) {
	printf ".DB 0x%02X\n", $a[$i];
}