/*======================================================*/
/* Ｓレコードチェックサム修正スクリプト		 	*/
/* 	秋月のＨ８／３０６７キットに付いてきたツールの	*/
/* 	吐くＳレコードのチェックサムが日立や、gccなど	*/
/* 	の生成するＳレコードと違い、２の補数になってし	*/
/* 	まっているのを修正する				*/
/*	使い方：					*/
/*		 awk -f srec.awk 入力 >出力		*/
/*======================================================*/
{
	l = length($0)-2;
	sum = 256;
	for (i=3; i<l; i+=2) {
		sum += h2tod(i);
	}
	sum = 255-(sum%256);
	printf("%s%02X\n",substr($0,1,l),sum);
}

function h2tod(pos)
{
	return htod(substr($0,pos,1))*16+htod(substr($0,pos+1,1));
}

function htod(c)
{
	if (c == "A")
		return 10;
	if (c == "B")
		return 11;
	if (c == "C")
		return 12;
	if (c == "D")
		return 13;
	if (c == "E")
		return 14;
	if (c == "F")
		return 15;
	return(c+0);
}