#!/usr/bin/perl
# Makes 'bootlist' and 'bootfile' in the current directory for NitrOS-9 Level 2
$NITROS9DIR = $ENV{'NITROS9DIR'};
$CLOUD9DIR = $ENV{'CLOUD9DIR'};

if (@ARGV[0] == '')
{
	$DISTRO = "6809l1";
}
else
{
	$DISTRO = @ARGV[0]."l1";
}

$md="$NITROS9DIR/$DISTRO/modules";
$sd="$CLOUD9DIR/Products/SuperDrivers/software/$DISTRO";
$dd="$CLOUD9DIR/Products/DriveWire/software/$DISTRO";

@tracklist_dw=(
	"$md/rel",
	"$md/krn",
	"$md/krnp2",
	"$md/init",
	"$dd/boot_dw");

# IDE Boot with IDE Master as /DD
@bootlist_dw=("$md/ioman",
	"$md/rbf.mn",
	"$dd/drivewire.dr",
	"$dd/ddx0.dd",
	"$dd/x1.dd",
	"$dd/x2.dd",
	"$dd/x3.dd",
	"$md/rb1773.dr",
	"$md/d0_80d.dd",
	"$md/d1_40d.dd",
	"$md/scf.mn",
	"$md/ccio.dr",
	"$md/co32.io",
	"$md/term32.dt",
	"$md/sc6551.dr",
	"$md/t2_sc6551.dd",
	"$md/t3_sc6551.dd",
	"$md/pipeman.mn",
	"$md/piper.dr",
	"$md/pipe.dd",
	"$md/clock_60hz",
	"$dd/clock2_dw",
	"$md/sysgo_dd");


# Select our bootlist and tracklist
@bootlist = @bootlist_dw;
@tracklist = @tracklist_dw;

# Create the files
if (-e "bootfile")
{
	system("rm bootfile");
}

foreach $file (@bootlist)
{
	printf("cat $file>>bootfile\n");
	system("cat $file>>bootfile");
}

if (-e "boottrack")
{
	system("rm boottrack");
}

foreach $file (@tracklist)
{
	printf("cat $file>>boottrack\n");
	system("cat $file>>boottrack");
}