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()); } }