public void BasicLoaderForWritingTextToScreen()
{
List <string> programrows = new List <string>
{
"ORG $3000",
"RST $30",
"DB $05",
"LD BC,$010C",
"RST $30",
"DB $03",
"LD DE,SZOVEG",
"LD BC,21",
"RST $30",
"DB $02",
"RET",
"SZOVEG DB 'ÁRVÍZTŰRŐTÜKÖRFÚRÓGÉP'"
};
var assembler = new Z80Assembler(programrows);
Assert.AreEqual(assembler.BuildProgram(), true);
var loader = new TvcBasicLoader(assembler.AssembledProgram, 1, 1, 0x3000);
Assert.AreEqual(loader.GenerateBasicLoader(), true);
Assert.AreEqual(loader.TvcBasicRows.Count == 3, true);
Assert.AreEqual(loader.TvcBasicRows[0].RowText == @"1DATA 247,5,1,12,1,247,3,17,16,48,1,21,0,247,2,201,128,82,86,130,90,84,136,82,133,84,135,75,132,82,70,134,82,131,71,129,80", true);
Assert.AreEqual(loader.TvcBasicRows[1].RowText == @"2FORI=12288TO12324:READB:POKE I,B:NEXTI", true);
Assert.AreEqual(loader.TvcBasicRows[2].RowText == @"3S=USR(12288)", true);
}
public void BasicLoaderForWritingIntoVideoMemoryAssemblyProgram()
{
List <string> programrows = new List <string>
{
"ORG $3000",
"LD A,$50",
"LD ($3),A",
"OUT ($2),A",
"LD A,$6B",
"LD ($942A),A",
"LD A,$70",
"LD ($3),A",
"OUT ($2),A",
"RET"
};
var assembler = new Z80Assembler(programrows);
Assert.AreEqual(assembler.BuildProgram(), true);
var loader = new TvcBasicLoader(assembler.AssembledProgram, 1, 1, 0x3000);
Assert.AreEqual(loader.GenerateBasicLoader(), true);
Assert.AreEqual(loader.TvcBasicRows.Count == 3, true);
Assert.AreEqual(loader.TvcBasicRows[0].RowText == @"1DATA 62,80,50,3,0,211,2,62,107,50,42,148,62,112,50,3,0,211,2,201", true);
Assert.AreEqual(loader.TvcBasicRows[1].RowText == @"2FORI=12288TO12307:READB:POKE I,B:NEXTI", true);
Assert.AreEqual(loader.TvcBasicRows[2].RowText == @"3S=USR(12288)", true);
}
public void IntegrationTest1()
{
List <string> programrows = new List <string>
{
"ORG $3000",
"RST $30",
"DB $05",
"LD BC,$010C",
"RST $30",
"DB $03",
"LD DE,SZOVEG",
"LD BC,21",
"RST $30",
"DB $02",
"RET",
"SZOVEG DB 'ÁRVÍZTŰRŐTÜKÖRFÚRÓGÉP'"
};
string fileName = @"IntegrationTest1.cas";
var assembler = new Z80Assembler(programrows);
var assembled = assembler.BuildProgram();
Assert.AreEqual(assembled, true);
var loader = new TvcBasicLoader(assembler.AssembledProgram, 1, 1, 0x3000);
bool loaderGenerated = loader.GenerateBasicLoader();
Assert.AreEqual(loaderGenerated, true);
CasFileWriter writer = new CasFileWriter(fileName);
writer.Write(loader.BasicLoaderProgramBytes.ToArray());
var bytesOfCreatedFile = File.ReadAllBytes(fileName);
var bytesOfBaseFile = File.ReadAllBytes(IntegrationTest1TestFileName);
Assert.AreEqual(bytesOfCreatedFile.SequenceEqual(bytesOfBaseFile), true);
}
public override void AnalyzeCode()
{
ClearResults();
var programLines = Document.Lines.Select(dl => Document.GetText(dl.Offset, dl.TotalLength)
.TrimStart(' ', '\t').Replace(Environment.NewLine, "").ToUpper()).ToList();
var fileName = Path.GetFileName(m_ProgramFullPath);
var programDirectory = Path.GetDirectoryName(m_ProgramFullPath);
m_Assembler = new Z80Assembler(programLines, new List <string> {
programDirectory
}, fileName);
if (!m_Assembler.BuildProgram())
{
MarkLineAsWrong(Document.GetLineByNumber(m_Assembler.WrongLineNumber), m_Assembler.StatusMessage);
WrongLine.Add(new Tuple <string, int>(m_Assembler.StatusMessage, m_Assembler.WrongLineNumber));
AnalizingFinished?.Invoke(this, new EventArgs());
return;
}
InterpretedSymbols.AddRange(m_Assembler.AssembledProgram.SymbolTable.Where(sd => sd.Key != @".LC").Select(kvp => new SymbolData
{
SymbolName = kvp.Key,
SymbolText = kvp.Value.ToString(),
LineNumber = kvp.Value.LineNumber,
SymbolType = kvp.Value.Type == SymbolType.Address ? @"Cím" : "Konstans"
}));
if (Settings.AssemblyEditorSettings.MarkInactiveCode)
{
MarkSkippedLines(m_Assembler.SkippedLineNumbers);
}
AnalizingFinished?.Invoke(this, new EventArgs());
}
public override void Build()
{
if (!OpenInputFile())
{
return;
}
OnBuildMessageSent(@"Assembly program fordítása...");
var fileName = Path.GetFileName(BuildSettings.ProgramPath);
var programDirectory = Path.GetDirectoryName(BuildSettings.ProgramPath);
Z80Assembler assembler = new Z80Assembler(ProgramLines, new List <string> {
programDirectory
}, fileName);
if (!assembler.BuildProgram())
{
OnBuildMessageSent(assembler.StatusMessage);
return;
}
float programSizeInKb = (float)assembler.AssembledProgramBytes.Length / 1024;
OnBuildMessageSent($"Lefordított assembly program mérete: {programSizeInKb:F3} KB ({assembler.AssembledProgramBytes.Length} byte)");
if (BuildSettings.GenerateNativeFile)
{
OnBuildMessageSent($"Nativ tárgykód létrehozása({BuildSettings.NativePath})...");
if (!CreateNativeFile(assembler))
{
return;
}
}
if (BuildSettings.GenerateListFile)
{
OnBuildMessageSent($"Lista file létrehozása({BuildSettings.LstFilePath})...");
if (!CreateListFile(assembler))
{
return;
}
}
if (!BuildSettings.GenerateLoader)
{
if (BuildSettings.GenerateCasFile)
{
OnBuildMessageSent($"CAS file létrehozása ({BuildSettings.CasFilePath})...");
if (!CreateCasFile(assembler.AssembledProgramBytes, CasFileContent.NativProgramCode))
{
OnBuildMessageSent(@"CAS file létrehozása sikertelen!");
}
}
if (BuildSettings.GenerateWavFile)
{
OnBuildMessageSent($"WAV file létrehozása ({BuildSettings.WavFilePath})...");
CreateWavFile(assembler.AssembledProgramBytes);
}
return;
}
ushort startAddress = assembler.AssembledProgram.ProgramSections[0].ProgramStartAddress;
if (BuildSettings.StartAddress.HasValue)
{
var selectedprogramSection = assembler.AssembledProgram.ProgramSections
.Where(ps => ps.ProgramStartAddress == BuildSettings.StartAddress.Value)
.Select(ps => ps).FirstOrDefault();
if (selectedprogramSection == null)
{
OnBuildMessageSent($"A megadott indítási cím:{BuildSettings.StartAddress.Value:D} (${BuildSettings.StartAddress.Value:X4}) érvénytelen!");
var addressList = assembler.AssembledProgram.ProgramSections
.Select(ps => $"{ps.ProgramStartAddress}(${ps.ProgramStartAddress:x4})").ToList();
OnBuildMessageSent($"A lehetséges indítási címek:{string.Join(",", addressList)}");
return;
}
startAddress = selectedprogramSection.ProgramStartAddress;
}
var loader = new TvcBasicLoader(assembler.AssembledProgram, 1, 1, startAddress);
OnBuildMessageSent(@"Basic loader generálása...");
OnBuildMessageSent($"Program indítási cím:{startAddress:D} (${startAddress:X4})");
if (!loader.GenerateBasicLoader())
{
OnBuildMessageSent(loader.StatusMessage);
return;
}
if (!CreateLoaderFile(loader))
{
return;
}
if (BuildSettings.GenerateCasFile)
{
OnBuildMessageSent($"CAS file létrehozása basic betöltővel ({BuildSettings.CasFilePath})...");
if (!CreateCasFile(loader.BasicLoaderProgramBytes.ToArray(), CasFileContent.BasicProgram))
{
OnBuildMessageSent(@"CAS file létrehozása sikertelen!");
return;
}
}
if (BuildSettings.GenerateWavFile)
{
OnBuildMessageSent($"WAV file létrehozása basic betöltővel ({BuildSettings.WavFilePath})...");
CreateWavFile(loader.BasicLoaderProgramBytes.ToArray());
}
}