public Tops10SAVLoader(UserModeCore core, string infile)
{
Core = core;
//ulong pop, fmt;
//ulong lw = 0, hwm = 0;
var hwmPage = 0;
var hw = 0;
var lw = 0;
if (!Core.PageExists(0))
{
Core.NewPage(0);
}
// Eventually call our raw file reader for 36 bit files
var inexe = new StreamReader(infile);
// Read in first word of file
while (!inexe.EndOfStream)
{
var rw = ReadWord(inexe);
var lh = rw.LHW;
var leb = rw.LHW.UL;
if (leb == 0254000.OctU())
{
/*printf("Transfer Address = %o\n",re);*/
Transaddr = rw.RHW;
break;
}
if (((lh & 0400000.Oct18())).NZ)
{
leb |= 37777000000u.OctU();
}
var wordsToRead = -leb.SignE();
var re = Convert.ToInt32(rw.RHW.UL);
if (wordsToRead <= 0)
{
throw new Exception("?T10_LOADER - SAV Not a count! " + rw);
}
//Console.WriteLine("Load %d words at %o\n",-le,re+1);
lw += wordsToRead;
for (var i = 0; i < (wordsToRead); i++)
{
var bodyw = ReadWord(inexe);
var adrs = re + i + 1;
var page = Core.Page(adrs);
assureCoreHwm(page, ref hwmPage);
Core[re + i + 1] = bodyw;
// printf("%o/ %o,,%o %llo\n",re+i+1,lh,rh,blv);
if (re + i + 1 > hw)
{
hw = re + i + 1;
}
}
}
Console.WriteLine("[{0} Words Loaded From {1}]", lw, infile);
inexe.Close();
Console.WriteLine("[End loading {0}]", infile);
if (Transaddr.NZ)
{
Core[0, 0120.Oct18().UI] = new Word36((Word18)0, Transaddr);
}
Transaddr = Core[0, 0120.Oct18().UI].RHW;
Hiseg_floor = 0400000.Oct18();
High_Water = (Word18)hw;
Console.WriteLine("[Loader High-Water-Mark is {0}]", High_Water);
Console.WriteLine("[Transfer address is {0} Hiseg is {1}]", Transaddr,
Hiseg_floor);
}
