<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto">On FPGA Oberon, the inner core consists of the 4 modules Kernel, FileDir, Files, Modules. The boot loader transfers it byte for byte to memory location 0. So, if you know the inner workings of how the modules are loaded, one way to “guess” the size of the inner core (not from<div>disk but once loaded), is:<br><div><br><div><pre style="box-sizing: border-box; word-wrap: normal; margin-top: 0px; margin-bottom: 0px; overflow: scroll; padding: 15px 0px;"><div class="line js-file-line" id="LC65" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);">mod <span class="pl-smi" style="box-sizing: border-box;">:=</span> root<span class="pl-smi" style="box-sizing: border-box;">;</span> name := “Modules”;</span></font></div><div class="line js-file-line" id="LC65" style="box-sizing: border-box; padding: 0px 15px;"><span class="pl-k" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">WHILE</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> </span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">(</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;">mod </span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">#</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> </span><span class="pl-k" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">NIL</span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">)</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> & </span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">(</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;">name </span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">#</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> mod</span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">.</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;">name</span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">)</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> </span><span class="pl-k" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">DO</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> mod </span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">:=</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> mod</span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">.</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;">next </span><span class="pl-k" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">END</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> </span><span class="pl-smi" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">;</span></div><div class="line js-file-line" id="LC67" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal;">IF mod # NIL THEN size := </span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);">SYSTEM.VAL(LONGINT, mod) + mod.size END ;</span></font></div><div class="line js-file-line" id="LC67" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"><br></span></font></div><div class="line js-file-line" id="LC67" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"><br></span></font></div></pre></div></div></div></body></html>