<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/bin/perl

$cfgf = "puff1.cfg";

open(cfgfh,"&lt;",$cfgf);

$asmf = $cfgf;
$asmf =~ s/\.cfg$/.asm/g;

print($asmf);
print "\n";

open(asmfh,'&gt;',$asmf);

$i=0;

printf asmfh "\t\tDATA\t";
printf asmfh "%05Xh",0;

while($i&lt;127)
{
	$i++;
	if (int($i/8) == $i/8)
	{
		printf asmfh ";\r\n\t\tDATA\t";
	}
	else
	{
		printf asmfh ",";
	}
	$v=(1+79.0*($i-1)/126.0)*50.0;
	$f=int($v);
	print "$i \t $f \n";
	printf asmfh "%05Xh",$f;
}
printf asmfh ";\r\n";
close(asmfh);</pre></body></html>