<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><br class=""><div><br class=""><blockquote type="cite" class=""><div class="">On Dec 18, 2017, at 2:44 AM, Segher Boessenkool <<a href="mailto:segher@kernel.crashing.org" class="">segher@kernel.crashing.org</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><span style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; float: none; display: inline !important;" class="">On Mon, Dec 18, 2017 at 01:13:49AM -0500, Jd Lyons wrote:</span><br style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""><blockquote type="cite" style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;" class=""><blockquote type="cite" class="">On Dec 18, 2017, at 12:48 AM, Segher Boessenkool <<a href="mailto:segher@kernel.crashing.org" class="">segher@kernel.crashing.org</a>> wrote:<br class="">On Mon, Dec 18, 2017 at 12:05:17AM -0500, Jd Lyons wrote:<br class=""><blockquote type="cite" class="">Still bombing out at the same place:<br class=""></blockquote><br class=""><blockquote type="cite" class="">401002a : [ 0xe34 ]<br class=""><br class="">byte-load: exception caught!<br class=""></blockquote><br class="">: xe33 $find invert IF ABORT THEN ;<br class="">: xe34<br class=""> " us" xe33 TO x9a7<br class=""> " case-closed?" $find invert IF 2drop ['] 0 THEN<br class=""> TO x9a8 ;<br class=""><br class="">So the thing that throws is fcode e33, when trying to find the word "us".<br class=""><br class="">(Btw, "invert" is weird here; I suppose it was coded as its synonym "not".<br class="">In some other Forth systems "not" is a synonym for "0=", which makes more<br class="">sense here. Either works as long as $find returns a canonical true/false,<br class="">as it supposed to).<br class=""><br class="">So, implement "us", and you'll get further :-) It's just like "ms", but<br class="">microseconds, instead; so you could do<br class=""><br class="">: us ( n -- ) d# 1000 / 1+ ms ;<br class=""><br class="">(which waits way too long for short timeouts, of course).<br class=""><br class=""></blockquote><br class="">Ok, thanks, that makes since. I did see the “case-closed?” When I searched for 0xe34 in the detoked rom, but I wan’t sure what to make of it.<br class=""><br class="">So, the “us” word is unimplemented in Openbios, and we need to add it to get past this part?<br class=""></blockquote><br style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""><span style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; float: none; display: inline !important;" class="">Exactly. And I gave a (not super great) implementation above, enough to</span><br style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""><span style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; float: none; display: inline !important;" class="">see if you get further :-)</span><br style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""></div></blockquote><div><br class=""></div><div>Ok, I see, the code you gave was a command for Openbios, I kept trying to find where to add it to the source, thinking it was C code;-)</div><div><br class=""></div><div>Only got one byte further:</div><div><br class=""></div><div><div><br class=""></div><div><br class=""></div><div><div> (offset) 5 </div><div>401000d : (compile) [ 0xe05 ]</div><div>401000e : (compile) b(endcase) [ 0xc5 ]</div><div>401000f : (compile) over [ 0x48 ]</div><div>4010010 : (compile) b(to) [ 0xc3 ]</div><div>4010014 : (compile) [ 0xe36 ]</div><div>4010016 : (compile) encode+ [ 0x112 ]</div><div>4010017 : (compile) 2dup [ 0x53 ]</div><div>4010018 : (compile) b(to) [ 0xc3 ]</div><div>401001b : (compile) b(to) [ 0xc3 ]</div><div>401001f : (compile) [ 0xc7b ]</div><div>4010021 : (compile) property [ 0x110 ]</div><div>4010022 : (compile) b(;) [ 0xc2 ]</div><div>4010023 : b(') [ 0x11 ]</div><div>4010026 : b(to) [ 0xc3 ]</div><div>401002a : [ 0xe34 ]</div><div>401002c : [ 0xdff ]</div><div><br class=""></div><div>byte-load: exception caught!</div><div> ok</div><div>1 > </div><div class=""><br class=""></div></div></div><div><br class=""></div><br class=""><blockquote type="cite" class=""><div class=""><br style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""><br style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""><span style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant-caps: normal; font-weight: normal; letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; float: none; display: inline !important;" class="">Segher</span></div></blockquote></div><br class=""></body></html>