text hex dump file to Motorola S-record

txt2mot.awk

# 
# ダンプ形式テキストからモトローラSフォーマット生成
# gawk 専用
# - - - -
# HEXダンプファイルフォーマット
#  アドレス　データ2桁x16
#  -------  -------------------------
#  0100     01 02 03 04 05 ... 16バイト分
#

{
	chksum = 0
	
	hex = "0X13" 
	chksum += strtonum(hex)
	hex = "0X" substr($1,1,2)
	chksum += strtonum(hex)
	hex = "0X" substr($1,3,2)
	chksum += strtonum(hex)
	
	# 16バイトづつ表示
	printf "S113" $1 
	for (i=2;i<=17;i++){
		printf $i
		hex = "0X" $i
		chksum += strtonum(hex)
	}
	
	# チェックサム計算
	s_sum = sprintf("%X",chksum)
	ss_sum = "0X" substr(s_sum,length(s_sum)-1,2)
    sss_sum = sprintf("%X", compl(strtonum(ss_sum)))
	printf substr(sss_sum,length(sss_sum)-1,2)
	print ""
}

END{
	print "S9"
}