private static void CreateTap(BasicProgram program)
{
int programSize = program.Length - 2;
const string Filename = "taptest";
var header = new List <byte>();
header.Add(0); // flag
header.Add(0); // type
header.AddRange(Encoding.ASCII.GetBytes(Filename.PadRight(10)));
header.Add((byte)(programSize & 0xff)); // data size
header.Add((byte)((programSize >> 8) & 0xff)); // data size
header.Add(10); // autostart number
header.Add(0); // autostart number
header.Add((byte)(programSize & 0xff)); // variables
header.Add((byte)((programSize >> 8) & 0xff)); // variables
header.Add(BasicProgram.CalcChecksum(header));
using (var tapFile = new BinaryWriter(File.Open("poke.tap", FileMode.Create)))
{
tapFile.Write((byte)19);
tapFile.Write((byte)0);
tapFile.Write(header.ToArray());
tapFile.Write((byte)(program.Length & 0xff));
tapFile.Write((byte)((program.Length >> 8) & 0xff));
tapFile.Write(program.program.ToArray());
}
}
private static int GenerateDataStatements(byte[] pokeCode, BasicProgram program, int lineNumber)
{
const int LineLength = 5;
var line = new Line(lineNumber);
int lineIndex = 0;
foreach (var data in pokeCode)
{
if (lineIndex == 0)
{
line.AddToken(Token.DATA);
line.AddNumber(data);
lineIndex++;
}
else
{
line.AddText(",");
line.AddNumber(data);
if (++lineIndex == LineLength)
{
line.EndLine();
program.AddLine(line);
lineNumber += 10;
lineIndex = 0;
line = new Line(lineNumber);
}
}
}
if (lineIndex > 0)
{
line.EndLine();
program.AddLine(line);
}
return(lineNumber);
}
private static void Main(string[] args)
{
if (args.Length < 2)
{
Console.WriteLine("Usage: BasicPoke inputfile.bin address [--clear:address | --loadcode:[address] | [--usr:address]");
return;
}
foreach (var arg in args)
{
if (!ProcessArg(arg))
{
return;
}
}
var pokeCode = File.ReadAllBytes(inputFile);
var program = new BasicProgram();
GenerateBasic(pokeCode, program);
program.Compile();
CreateTap(program);
}
private static int GenerateBasic(byte[] pokeCode, BasicProgram program)
{
int lineNumber = 0;
var line = new Line(lineNumber);
if (rem)
{
var ldirCode = new byte[]
{
33, 23774 & 0xff, 23774 >> 8 & 0xff,
17, (byte)(startAddress & 0xff), (byte)(startAddress >> 8 & 0xff),
1, (byte)(pokeCode.Length & 0xff), (byte)(pokeCode.Length >> 8 & 0xff),
237, 176, 195, (byte)(startAddress & 0xff), (byte)(startAddress >> 8 & 0xff)
};
line.AddToken(Token.REM);
foreach (var code in ldirCode)
{
line.AddCode(code);
}
foreach (var code in pokeCode)
{
line.AddCode(code);
}
line.EndLine();
program.AddLine(line);
startAddress = 23760;
lineNumber += 10;
}
lineNumber += 10;
if (clear)
{
line = new Line(lineNumber);
line.AddToken(Token.CLEAR);
line.AddNumber(clearAddress);
line.EndLine();
program.AddLine(line);
lineNumber += 10;
}
if (!rem)
{
// FOR F=xxxx TO yyyy
line = new Line(lineNumber);
line.GenerateFor("F", startAddress, pokeCode.Length);
line.EndLine();
program.AddLine(line);
lineNumber += 10;
// READ A: POKE F, A: NEXT F
line = new Line(lineNumber);
line.AddToken(Token.READ);
line.AddText("A:");
line.AddToken(Token.POKE);
line.AddText("F,A:");
line.AddToken(Token.NEXT);
line.AddText("F");
line.EndLine();
program.AddLine(line);
lineNumber += 10;
}
// LOAD ""CODE xxxx
if (loadCode)
{
line = new Line(lineNumber);
line.AddToken(Token.LOAD);
line.AddText("", true);
line.AddToken(Token.CODE);
if (codeAddress > 0)
{
line.AddNumber(codeAddress);
}
line.EndLine();
program.AddLine(line);
lineNumber += 10;
}
// RANDOMIZE USR xxxx
line = new Line(lineNumber);
line.AddToken(Token.RANDOMIZE);
line.AddToken(Token.USR);
line.AddNumber(usrAddress == 0 ? startAddress : usrAddress);
line.EndLine();
program.AddLine(line);
lineNumber += 10;
if (!rem)
{
GenerateDataStatements(pokeCode, program, lineNumber);
}
return(lineNumber);
}
