<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto">And if it *has* to be done from disk, here is how the boot loader (BootLoad.Mod) itself determines the number of bytes to be transferred to main store:<div><br></div><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="LC99" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"><span class="pl-k" style="box-sizing: border-box;">PROCEDURE</span> <span class="pl-en" style="box-sizing: border-box;">LoadFromDisk</span><span class="pl-smi" style="box-sizing: border-box;">;</span></span></font></div><div class="line js-file-line" id="LC99" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"><span class="pl-smi" style="box-sizing: border-box;"><br></span></span></font></div><div class="line js-file-line" id="LC99" 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;"> VAR</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> src, dst, adr, lim</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;">INTEGER</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="LC99" 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;"><br></span></div><div class="line js-file-line" id="LC99" 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;">BEGIN</span><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"> src </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;"> FSoffset </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-c1" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;">4</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-c" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;"><span class="pl-c" style="box-sizing: border-box;">(*</span>start at boot block<span class="pl-c" style="box-sizing: border-box;">*)</span></span></div><div class="line js-file-line" id="LC99" style="box-sizing: border-box; padding: 0px 15px;"><span class="pl-c" style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody; box-sizing: border-box;"><span class="pl-c" style="box-sizing: border-box;"><br></span></span></div><div class="line js-file-line" id="LC102" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"> ReadSD<span class="pl-smi" style="box-sizing: border-box;">(</span>src, <span class="pl-c1" style="box-sizing: border-box;">0</span><span class="pl-smi" style="box-sizing: border-box;">);</span> SYSTEM<span class="pl-smi" style="box-sizing: border-box;">.</span>GET<span class="pl-smi" style="box-sizing: border-box;">(</span><span class="pl-c1" style="box-sizing: border-box;">16</span>, lim<span class="pl-smi" style="box-sizing: border-box;">);</span></span></font></div><div class="line js-file-line" id="LC102" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"><span class="pl-smi" style="box-sizing: border-box;"><br></span></span></font></div><div class="line js-file-line" id="LC103" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);"> ...</span></font></div><div class="line js-file-line" id="LC103" style="box-sizing: border-box; padding: 0px 15px;"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"><br></span></div><div class="line js-file-line" id="LC103" style="box-sizing: border-box; padding: 0px 15px;"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;"><br></span></div><div class="line js-file-line" id="LC103" style="box-sizing: border-box; padding: 0px 15px;"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0); font-family: UICTFontTextStyleBody;">So, it’s location 16 in the very first block..</span></div><div class="line js-file-line" id="LC103" 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="LC103" style="box-sizing: border-box; padding: 0px 15px;"><font face="UICTFontTextStyleBody"><span style="white-space: normal; background-color: rgba(255, 255, 255, 0);">See also: The commands Boot.Link and Boot.Load also report the number of bytes.</span></font></div><div class="line js-file-line" id="LC103" 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="LC103" 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="LC103" style="box-sizing: border-box; padding: 0px 15px;"><a href="https://github.com/andreaspirklbauer/Oberon-experimental/blob/master/Sources/Boot.Mod">https://github.com/andreaspirklbauer/Oberon-experimental/blob/master/Sources/Boot.Mod</a></div><div class="line js-file-line" id="LC103" style="box-sizing: border-box; padding: 0px 15px;"><br></div><div class="line js-file-line" id="LC103" style="box-sizing: border-box; padding: 0px 15px;"><br></div></pre></div></body></html>