doc/language.html

   1 <?xml version="1.0" encoding="utf-8"?>
   2 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   3 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
   4 <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
   5 <head>
   6 <!-- 2023-09-19 Tue 18:07 -->
   7 <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
   8 <meta name="viewport" content="width=device-width, initial-scale=1" />
   9 <title>Fifth - language</title>
  10 <meta name="author" content="Svjatoslav Agejenko" />
  11 <meta name="generator" content="Org Mode" />
  12 <style>
  13   #content { max-width: 60em; margin: auto; }
  14   .title  { text-align: center;
  15              margin-bottom: .2em; }
  16   .subtitle { text-align: center;
  17               font-size: medium;
  18               font-weight: bold;
  19               margin-top:0; }
  20   .todo   { font-family: monospace; color: red; }
  21   .done   { font-family: monospace; color: green; }
  22   .priority { font-family: monospace; color: orange; }
  23   .tag    { background-color: #eee; font-family: monospace;
  24             padding: 2px; font-size: 80%; font-weight: normal; }
  25   .timestamp { color: #bebebe; }
  26   .timestamp-kwd { color: #5f9ea0; }
  27   .org-right  { margin-left: auto; margin-right: 0px;  text-align: right; }
  28   .org-left   { margin-left: 0px;  margin-right: auto; text-align: left; }
  29   .org-center { margin-left: auto; margin-right: auto; text-align: center; }
  30   .underline { text-decoration: underline; }
  31   #postamble p, #preamble p { font-size: 90%; margin: .2em; }
  32   p.verse { margin-left: 3%; }
  33   pre {
  34     border: 1px solid #e6e6e6;
  35     border-radius: 3px;
  36     background-color: #f2f2f2;
  37     padding: 8pt;
  38     font-family: monospace;
  39     overflow: auto;
  40     margin: 1.2em;
  41   }
  42   pre.src {
  43     position: relative;
  44     overflow: auto;
  45   }
  46   pre.src:before {
  47     display: none;
  48     position: absolute;
  49     top: -8px;
  50     right: 12px;
  51     padding: 3px;
  52     color: #555;
  53     background-color: #f2f2f299;
  54   }
  55   pre.src:hover:before { display: inline; margin-top: 14px;}
  56   /* Languages per Org manual */
  57   pre.src-asymptote:before { content: 'Asymptote'; }
  58   pre.src-awk:before { content: 'Awk'; }
  59   pre.src-authinfo::before { content: 'Authinfo'; }
  60   pre.src-C:before { content: 'C'; }
  61   /* pre.src-C++ doesn't work in CSS */
  62   pre.src-clojure:before { content: 'Clojure'; }
  63   pre.src-css:before { content: 'CSS'; }
  64   pre.src-D:before { content: 'D'; }
  65   pre.src-ditaa:before { content: 'ditaa'; }
  66   pre.src-dot:before { content: 'Graphviz'; }
  67   pre.src-calc:before { content: 'Emacs Calc'; }
  68   pre.src-emacs-lisp:before { content: 'Emacs Lisp'; }
  69   pre.src-fortran:before { content: 'Fortran'; }
  70   pre.src-gnuplot:before { content: 'gnuplot'; }
  71   pre.src-haskell:before { content: 'Haskell'; }
  72   pre.src-hledger:before { content: 'hledger'; }
  73   pre.src-java:before { content: 'Java'; }
  74   pre.src-js:before { content: 'Javascript'; }
  75   pre.src-latex:before { content: 'LaTeX'; }
  76   pre.src-ledger:before { content: 'Ledger'; }
  77   pre.src-lisp:before { content: 'Lisp'; }
  78   pre.src-lilypond:before { content: 'Lilypond'; }
  79   pre.src-lua:before { content: 'Lua'; }
  80   pre.src-matlab:before { content: 'MATLAB'; }
  81   pre.src-mscgen:before { content: 'Mscgen'; }
  82   pre.src-ocaml:before { content: 'Objective Caml'; }
  83   pre.src-octave:before { content: 'Octave'; }
  84   pre.src-org:before { content: 'Org mode'; }
  85   pre.src-oz:before { content: 'OZ'; }
  86   pre.src-plantuml:before { content: 'Plantuml'; }
  87   pre.src-processing:before { content: 'Processing.js'; }
  88   pre.src-python:before { content: 'Python'; }
  89   pre.src-R:before { content: 'R'; }
  90   pre.src-ruby:before { content: 'Ruby'; }
  91   pre.src-sass:before { content: 'Sass'; }
  92   pre.src-scheme:before { content: 'Scheme'; }
  93   pre.src-screen:before { content: 'Gnu Screen'; }
  94   pre.src-sed:before { content: 'Sed'; }
  95   pre.src-sh:before { content: 'shell'; }
  96   pre.src-sql:before { content: 'SQL'; }
  97   pre.src-sqlite:before { content: 'SQLite'; }
  98   /* additional languages in org.el's org-babel-load-languages alist */
  99   pre.src-forth:before { content: 'Forth'; }
 100   pre.src-io:before { content: 'IO'; }
 101   pre.src-J:before { content: 'J'; }
 102   pre.src-makefile:before { content: 'Makefile'; }
 103   pre.src-maxima:before { content: 'Maxima'; }
 104   pre.src-perl:before { content: 'Perl'; }
 105   pre.src-picolisp:before { content: 'Pico Lisp'; }
 106   pre.src-scala:before { content: 'Scala'; }
 107   pre.src-shell:before { content: 'Shell Script'; }
 108   pre.src-ebnf2ps:before { content: 'ebfn2ps'; }
 109   /* additional language identifiers per "defun org-babel-execute"
 110        in ob-*.el */
 111   pre.src-cpp:before  { content: 'C++'; }
 112   pre.src-abc:before  { content: 'ABC'; }
 113   pre.src-coq:before  { content: 'Coq'; }
 114   pre.src-groovy:before  { content: 'Groovy'; }
 115   /* additional language identifiers from org-babel-shell-names in
 116      ob-shell.el: ob-shell is the only babel language using a lambda to put
 117      the execution function name together. */
 118   pre.src-bash:before  { content: 'bash'; }
 119   pre.src-csh:before  { content: 'csh'; }
 120   pre.src-ash:before  { content: 'ash'; }
 121   pre.src-dash:before  { content: 'dash'; }
 122   pre.src-ksh:before  { content: 'ksh'; }
 123   pre.src-mksh:before  { content: 'mksh'; }
 124   pre.src-posh:before  { content: 'posh'; }
 125   /* Additional Emacs modes also supported by the LaTeX listings package */
 126   pre.src-ada:before { content: 'Ada'; }
 127   pre.src-asm:before { content: 'Assembler'; }
 128   pre.src-caml:before { content: 'Caml'; }
 129   pre.src-delphi:before { content: 'Delphi'; }
 130   pre.src-html:before { content: 'HTML'; }
 131   pre.src-idl:before { content: 'IDL'; }
 132   pre.src-mercury:before { content: 'Mercury'; }
 133   pre.src-metapost:before { content: 'MetaPost'; }
 134   pre.src-modula-2:before { content: 'Modula-2'; }
 135   pre.src-pascal:before { content: 'Pascal'; }
 136   pre.src-ps:before { content: 'PostScript'; }
 137   pre.src-prolog:before { content: 'Prolog'; }
 138   pre.src-simula:before { content: 'Simula'; }
 139   pre.src-tcl:before { content: 'tcl'; }
 140   pre.src-tex:before { content: 'TeX'; }
 141   pre.src-plain-tex:before { content: 'Plain TeX'; }
 142   pre.src-verilog:before { content: 'Verilog'; }
 143   pre.src-vhdl:before { content: 'VHDL'; }
 144   pre.src-xml:before { content: 'XML'; }
 145   pre.src-nxml:before { content: 'XML'; }
 146   /* add a generic configuration mode; LaTeX export needs an additional
 147      (add-to-list 'org-latex-listings-langs '(conf " ")) in .emacs */
 148   pre.src-conf:before { content: 'Configuration File'; }
 149
 150   table { border-collapse:collapse; }
 151   caption.t-above { caption-side: top; }
 152   caption.t-bottom { caption-side: bottom; }
 153   td, th { vertical-align:top;  }
 154   th.org-right  { text-align: center;  }
 155   th.org-left   { text-align: center;   }
 156   th.org-center { text-align: center; }
 157   td.org-right  { text-align: right;  }
 158   td.org-left   { text-align: left;   }
 159   td.org-center { text-align: center; }
 160   dt { font-weight: bold; }
 161   .footpara { display: inline; }
 162   .footdef  { margin-bottom: 1em; }
 163   .figure { padding: 1em; }
 164   .figure p { text-align: center; }
 165   .equation-container {
 166     display: table;
 167     text-align: center;
 168     width: 100%;
 169   }
 170   .equation {
 171     vertical-align: middle;
 172   }
 173   .equation-label {
 174     display: table-cell;
 175     text-align: right;
 176     vertical-align: middle;
 177   }
 178   .inlinetask {
 179     padding: 10px;
 180     border: 2px solid gray;
 181     margin: 10px;
 182     background: #ffffcc;
 183   }
 184   #org-div-home-and-up
 185    { text-align: right; font-size: 70%; white-space: nowrap; }
 186   textarea { overflow-x: auto; }
 187   .linenr { font-size: smaller }
 188   .code-highlighted { background-color: #ffff00; }
 189   .org-info-js_info-navigation { border-style: none; }
 190   #org-info-js_console-label
 191     { font-size: 10px; font-weight: bold; white-space: nowrap; }
 192   .org-info-js_search-highlight
 193     { background-color: #ffff00; color: #000000; font-weight: bold; }
 194   .org-svg { }
 195 </style>
 196 <link rel="stylesheet" type="text/css" href="https://thomasf.github.io/solarized-css/solarized-dark.min.css" />
 197 <script type="text/x-mathjax-config">
 198     MathJax.Hub.Config({
 199         displayAlign: "center",
 200         displayIndent: "0em",
 201
 202         "HTML-CSS": { scale: 100,
 203                         linebreaks: { automatic: "false" },
 204                         webFont: "TeX"
 205                        },
 206         SVG: {scale: 100,
 207               linebreaks: { automatic: "false" },
 208               font: "TeX"},
 209         NativeMML: {scale: 100},
 210         TeX: { equationNumbers: {autoNumber: "AMS"},
 211                MultLineWidth: "85%",
 212                TagSide: "right",
 213                TagIndent: ".8em"
 214              }
 215 });
 216 </script>
 217 <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/MathJax.js?config=TeX-AMS_HTML"></script>
 218 </head>
 219 <body>
 220 <div id="content" class="content">
 221 <h1 class="title">Fifth - language</h1>
 222 <div id="table-of-contents" role="doc-toc">
 223 <h2>Table of Contents</h2>
 224 <div id="text-table-of-contents" role="doc-toc">
 225 <ul>
 226 <li><a href="#orgfe5302c">1. Fifth source format</a>
 227 <ul>
 228 <li><a href="#orge4e9f7d">1.1. FSCII</a></li>
 229 </ul>
 230 </li>
 231 <li><a href="#orge63cf49">2. Fifth commands</a>
 232 <ul>
 233 <li><a href="#org25bc695">2.1. Compilation &amp; miscellaneous</a></li>
 234 <li><a href="#orgc47a7bb">2.2. Conditionals &amp; control flow</a></li>
 235 <li><a href="#org572f33f">2.3. Disk &amp; file access</a></li>
 236 <li><a href="#org89deb72">2.4. Dynamic memory</a></li>
 237 <li><a href="#orgea457a7">2.5. Graphics and text</a></li>
 238 <li><a href="#orge721086">2.6. Math, memory &amp; stack manipulation</a></li>
 239 <li><a href="#orgf17027f">2.7. Dynamic &amp; static strings</a></li>
 240 </ul>
 241 </li>
 242 </ul>
 243 </div>
 244 </div>
 245 <ul class="org-ul">
 246 <li><a href="5TH_ET.txt">Example Fifth source file - text editor</a></li>
 247 </ul>
 248
 249 <div id="outline-container-orgfe5302c" class="outline-2">
 250 <h2 id="orgfe5302c"><span class="section-number-2">1.</span> Fifth source format</h2>
 251 <div class="outline-text-2" id="text-1">
 252 <p>
 253 Fifth uses a different character table and codes than ASCII (still
 254 almost similar). I call it FSCII (Fifth Standard Code for Information
 255 Interchange) for example space character is not 32 but 255 instead.  I
 256 plan to use mainly HEX numbers, and create new characters to represent
 257 numeric values. So typical nemric characters "0123&#x2026;"  is treated
 258 like ordinary letters.
 259 </p>
 260 </div>
 261 <div id="outline-container-orge4e9f7d" class="outline-3">
 262 <h3 id="orge4e9f7d"><span class="section-number-3">1.1.</span> FSCII</h3>
 263 <div class="outline-text-3" id="text-1-1">
 264 <table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
 265
 266
 267 <colgroup>
 268 <col  class="org-right" />
 269
 270 <col  class="org-left" />
 271
 272 <col  class="org-left" />
 273 </colgroup>
 274 <thead>
 275 <tr>
 276 <th scope="col" class="org-right">DEC</th>
 277 <th scope="col" class="org-left">HEX</th>
 278 <th scope="col" class="org-left">function</th>
 279 </tr>
 280 </thead>
 281 <tbody>
 282 <tr>
 283 <td class="org-right">0 - 15</td>
 284 <td class="org-left">0 - F</td>
 285 <td class="org-left">HEX numbers</td>
 286 </tr>
 287
 288 <tr>
 289 <td class="org-right">252</td>
 290 <td class="org-left">FC</td>
 291 <td class="org-left">backspace</td>
 292 </tr>
 293
 294 <tr>
 295 <td class="org-right">253</td>
 296 <td class="org-left">FD</td>
 297 <td class="org-left">tabulator (TAB)</td>
 298 </tr>
 299
 300 <tr>
 301 <td class="org-right">254</td>
 302 <td class="org-left">FE</td>
 303 <td class="org-left">carriage return (CR)</td>
 304 </tr>
 305
 306 <tr>
 307 <td class="org-right">255</td>
 308 <td class="org-left">FF</td>
 309 <td class="org-left">space</td>
 310 </tr>
 311
 312 <tr>
 313 <td class="org-right">else</td>
 314 <td class="org-left">&#xa0;</td>
 315 <td class="org-left">ordinary characters, same as in ASCII.</td>
 316 </tr>
 317 </tbody>
 318 </table>
 319 </div>
 320 </div>
 321 </div>
 322 <div id="outline-container-orge63cf49" class="outline-2">
 323 <h2 id="orge63cf49"><span class="section-number-2">2.</span> Fifth commands</h2>
 324 <div class="outline-text-2" id="text-2">
 325 </div>
 326 <div id="outline-container-org25bc695" class="outline-3">
 327 <h3 id="org25bc695"><span class="section-number-3">2.1.</span> Compilation &amp; miscellaneous</h3>
 328 <div class="outline-text-3" id="text-2-1">
 329 <p class="verse">
 330 init    module  ( &#x2013; )<br />
 331 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;First module, control is passed to on startup. Contains<br />
 332 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;initialization routines. Also it is the last core module.<br />
 333 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;All new modules on top of it comes as result of executing<br />
 334 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;external source files.<br />
 335 <br />
 336 head &lt;name&gt;     ( &#x2013; )  compiles new dictionary entry without specifying<br />
 337 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;new module type.<br />
 338 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: head myentry<br />
 339 <br />
 340 : &lt;name&gt;        ( &#x2013; )  creates new code module<br />
 341 ;               ( &#x2013; )  ends module (immideate)<br />
 342 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: : hello ." hi there" ;<br />
 343 <br />
 344 const &lt;name&gt;    ( n &#x2013; ) defines new constant.<br />
 345 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 2147483647 const max<br />
 346 <br />
 347 :i &lt;name&gt;       ( &#x2013; ) same as ":" but this module will be executed<br />
 348 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;immideately even in compile mode.<br />
 349 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: :i ( 41 scan ;<br />
 350 <br />
 351 create &lt;name&gt;   ( &#x2013; ) same as "head" , but specify module type as data.<br />
 352 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: create LotoResults 5 , 13 , 52 , 12 , 11 , 3 ,<br />
 353 <br />
 354 allot           ( n &#x2013; ) allocate n bytes in dictionary.<br />
 355 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: create MyArray 100 allot<br />
 356 <br />
 357 " &lt;string&gt;"     ( &#x2013; ) compile string and its size into core.<br />
 358 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: create Mystring " This is it's contects"<br />
 359 <br />
 360 str &lt;name&gt; &lt;string&gt;" ( &#x2013; ) just shorter way for defining strings.<br />
 361 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: str Mystring This is it's contenc"<br />
 362 <br />
 363 var &lt;name&gt;      ( &#x2013; ) define new 32 bit variable.<br />
 364 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: var result<br />
 365 <br />
 366 ' &lt;module&gt;      ( &#x2013; n ) return memory address of given entry.<br />
 367 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: ' init<br />
 368 <br />
 369 forget &lt;name&gt;   ( &#x2013; ) erases from RAM given entry and all entries what was<br />
 370 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;defined after it.<br />
 371 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: forget myprog<br />
 372 <br />
 373 [               ( &#x2013; )  set interpret mode (immideate)<br />
 374 ]               ( n &#x2013; ) set compile mode and compile top stack element<br />
 375 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;in as literal. Together [ &#x2026;. ] cobination provides good<br />
 376 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;way to compute some values only once, at compile time,<br />
 377 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;rather than every time while program is running.<br />
 378 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: : calculate - [ 4 MyConst1 + MyConst2 * ] ;<br />
 379 <br />
 380 defer &lt;name&gt;    ( &#x2013; ) creates new module, with jump instruction.<br />
 381 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Later address where to jump can be modified by "is" command.<br />
 382 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;This provides method of foward referencing. So you can use<br />
 383 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;modules what not jet exist.<br />
 384 is              ( address1 address2 &#x2013; ) address1 - where to jump, address2 -<br />
 385 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;address of module created by defer command.<br />
 386 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex:     defer dispver<br />
 387 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;: run dispver ." running &#x2026;" ;<br />
 388 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#x2026; whatever &#x2026;<br />
 389 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;: (dispver ." Version 9.99 " ;<br />
 390 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;' (dispver ' dispver is<br />
 391 <br />
 392 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Now if I type "run" on the screen appears:<br />
 393 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Version 9.99 running &#x2026;<br />
 394 <br />
 395 asc &lt;char&gt;      ( &#x2013; ) reads char ascii code and treats it as literal.<br />
 396 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;(immideate)<br />
 397 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: : BreakLine 30 do asc - emit loop ;<br />
 398 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;same as:<br />
 399 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;: BreakLine 30 do    45 emit loop ;<br />
 400 <br />
 401 dyninc          ( handle &#x2013; ) execute code in dynamic memory handle.<br />
 402 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;automatically deallocates it when done.<br />
 403 <br />
 404 include         ( filenumber &#x2013; ) execute code in specified file.<br />
 405 <br />
 406 words           ( &#x2013; ) display existing blocks in core.<br />
 407 <br />
 408 bye             ( &#x2013; ) exit from Fifth<br />
 409 <br />
 410 fkey            ( &#x2013; c )<br />
 411 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Read one byte from input stream.<br />
 412 <br />
 413 sadd            ( c addr &#x2013; )<br />
 414 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Add one byte "c" to string located at "addr" and updates<br />
 415 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;string length.<br />
 416 <br />
 417 scan            ( c &#x2013; )<br />
 418 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Read input stream and store it to  pad   until it finds  c  .<br />
 419 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;It ignores all "c" bytes until it finds any non "c" byte.<br />
 420 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;in other words:<br />
 421 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;c  is:  "<br />
 422 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;input stream:  """"This is test !"aoeu idh<br />
 423 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;result:  This is test !<br />
 424 <br />
 425 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Is useful for breaking text lines into words.<br />
 426 <br />
 427 skey            ( &#x2013; c )<br />
 428 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;So called safe "fkey". Reads data from input stream<br />
 429 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;but converts characters with ASCII codes: 9 13 10<br />
 430 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;to spaces.<br />
 431 <br />
 432 str=str?        ( adr1 adr2 &#x2013; result )<br />
 433 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Compares string at "adr1" with string at "adr2", returns<br />
 434 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;true flag if they are equal or false if they are not.<br />
 435 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;true = -1<br />
 436 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;false = 0<br />
 437 <br />
 438 find            ( &#x2013; addr )<br />
 439 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Searches whole dictionary for word in "pad". If found,<br />
 440 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;returns it address, if not, returns 0.<br />
 441 <br />
 442 execute         ( &#x2013; )<br />
 443 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Execute word located in "pad". Depending on "mode".<br />
 444 <br />
 445 dta             ( addr &#x2013; DataAddr )<br />
 446 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Calculates address of dictionary entry data area, from<br />
 447 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;entry point.<br />
 448 <br />
 449 2num            ( &#x2013; num result )<br />
 450 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Attempt to convert string located in "pad" into numeric<br />
 451 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;value. If succeed returns number and true as result.<br />
 452 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;If not, returns whatever and false as result.<br />
 453 <br />
 454 dadd            ( addr length &#x2013; )<br />
 455 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Add to dictionary data located at "addr", with specified<br />
 456 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;length.<br />
 457 <br />
 458 lit             ( n &#x2013; )<br />
 459 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Act with number depending on "mode". When interpreting,<br />
 460 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;leaves it in stack.<br />
 461 <br />
 462 <br />
 463 incmod          ( addr &#x2013; )<br />
 464 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Add to dictionary data located at "addr"+1 , length is taken<br />
 465 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;from "addr".<br />
 466 <br />
 467 here            ( &#x2013; n )<br />
 468 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;return "h" contents.<br />
 469 <br />
 470 mode    var     8 bit<br />
 471 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Holds input stream parser operation mode.<br />
 472 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;0 = interpreting<br />
 473 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;1 = compiling<br />
 474 <br />
 475 pad     var     128 bytes<br />
 476 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Holds temprorary strings.<br />
 477 <br />
 478 h       var     32 bit<br />
 479 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Pointer to free byte in memory, always at the end of the<br />
 480 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;dictionary. Each time when something is stored<br />
 481 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;by "c," command, pointer is incareased.<br />
 482 <br />
 483 lp      var     32 bit<br />
 484 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Pointer to last dictionary word. Each time when new word is<br />
 485 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;compiled or erased by "forget", this pointer is updated.<br />
 486 <br />
 487 modulechk       ( Dstr&lt;filename&gt; &#x2013; ) check if module is loaded, if not<br />
 488 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;immideately load it.<br />
 489 <br />
 490 ne              ( entrydata entrytype &#x2013; ) Compile new dictionary entry.<br />
 491 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;It's name must be in "pad".<br />
 492 </p>
 493 </div>
 494 </div>
 495 <div id="outline-container-orgc47a7bb" class="outline-3">
 496 <h3 id="orgc47a7bb"><span class="section-number-3">2.2.</span> Conditionals &amp; control flow</h3>
 497 <div class="outline-text-3" id="text-2-2">
 498 <p class="verse">
 499 if              ( flag &#x2013; )   (immideate)<br />
 500 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"if 1.. else 2.. then" or<br />
 501 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"if 1.. then" construction. Conditional execution.<br />
 502 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Performs "1.." if "flag" was true,<br />
 503 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;elseway performs "2.." if exist. Execution continues after<br />
 504 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;word "then".<br />
 505 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 1 if ." nonzero" else ." zero" then<br />
 506 <br />
 507 &gt;=              ( n1 n2 &#x2013; result ) true if (n1 = n2) or (n1 &gt; n2)<br />
 508 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 5 3 &gt;= if ." first number is greater or equal" then<br />
 509 <br />
 510 &lt;=              ( n1 n2 &#x2013; result ) true if (n1 = n2) or (n1 &lt; n2)<br />
 511 =               ( n1 n2 &#x2013; result ) true if n1 = n2<br />
 512 <br />
 513 do              ( count &#x2013; )  (immideate)<br />
 514 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"do .. loop" construction. Performs ".." "count" times.<br />
 515 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;In every step "count" is decareased until it is 0.<br />
 516 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: : test 5 do i .d loop ;<br />
 517 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;result: 4 3 2 1 0<br />
 518 <br />
 519 doexit         ( &#x2013; ) exit from "do .. loop"<br />
 520 <br />
 521 for             ( count top &#x2013; )   (immideate)<br />
 522 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"for .. loop" construction. Performs ".." (top - count)  times.<br />
 523 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;In every step "count" is incareased until it reaches "top" .<br />
 524 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: : test 4 10 for i .d loop ;<br />
 525 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;result: 4 5 6 7 8 9<br />
 526 <br />
 527 forexit         ( &#x2013; ) exit from "for .. loop"<br />
 528 <br />
 529 until           ( &#x2013; )  (immideate)<br />
 530 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"until .. loop" construction. Performs ".." until flag become<br />
 531 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;true. False by default. Top of return stack holds flag.<br />
 532 <br />
 533 done            ( &#x2013; ) exit from "until .. loop"<br />
 534 <br />
 535 </p>
 536 </div>
 537 </div>
 538 <div id="outline-container-org572f33f" class="outline-3">
 539 <h3 id="org572f33f"><span class="section-number-3">2.3.</span> Disk &amp; file access</h3>
 540 <div class="outline-text-3" id="text-2-3">
 541 <p class="verse">
 542 diskload ( FromDisk ToMem amount &#x2013; )<br />
 543 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Load specified abount of bytes from disk into memory.<br />
 544 <br />
 545 disksave ( FromMem ToDisk amount &#x2013; )<br />
 546 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;save specified abount of bytes from memory into disk.<br />
 547 <br />
 548 format ( &#x2013; )   Erase all files.<br />
 549 <br />
 550 fsDfilesize@ ( handle &#x2013; size )<br />
 551 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Return size of opened file.<br />
 552 <br />
 553 fsDcurloc@ ( handle &#x2013; location )<br />
 554 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Return current location in file.<br />
 555 <br />
 556 fsDupdated@ ( handle &#x2013; updated? )<br />
 557 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Return true if file was updated,<br />
 558 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ie. write operations occured.<br />
 559 <br />
 560 fssave ( FromMem DestFileHandle amount &#x2013; )<br />
 561 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Save data to file.<br />
 562 <br />
 563 fsload ( SrcFileHandle ToMem amount &#x2013; )<br />
 564 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Load data from file.<br />
 565 <br />
 566 fseof ( handle &#x2013; bytesLeft )<br />
 567 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Return amount of bytes left till end of file.<br />
 568 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Useful before read operation.<br />
 569 <br />
 570 fsls ( &#x2013; )     List all files and lists (directories,folders)<br />
 571 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;in current path.<br />
 572 <br />
 573 fslsr ( &#x2013; )    Same as "fsls" but recursively scans also sub lists.<br />
 574 <br />
 575 fscl ( DynStrHand &#x2013; )<br />
 576 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Change list (path)<br />
 577 <br />
 578 fscreate ( DynStrHand &#x2013; DescPnt )<br />
 579 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Create new file or list. Can create multiple lists at once.<br />
 580 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: when creating:<br />
 581 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"\listGAMES\listSTRATEGY\listSIMWORLD\5th-runme"<br />
 582 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;and only "\listGAMES\" already exist, then<br />
 583 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"listSTRATEGY" and "listSIMWORLD" lists will be created,<br />
 584 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;and empty file "5th-runme" placed in there.<br />
 585 <br />
 586 fsDsave ( DynHand&lt;data&gt; DynStrHand&lt;filename&gt; &#x2013; )<br />
 587 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Create new file and save all data from dynamic memory<br />
 588 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;block to it.<br />
 589 <br />
 590 fsDload ( DynStr&lt;SrcFileName&gt; DynHand&lt;DataDest&gt; &#x2013; )<br />
 591 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Load whole file into dynamic memory block.<br />
 592 <br />
 593 fsDloadnew ( DynStr&lt;SrcFileName&gt; &#x2013; DynHand&lt;DataDest&gt; )<br />
 594 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Load whole file into new dynamic memory block.<br />
 595 </p>
 596 </div>
 597 </div>
 598 <div id="outline-container-org89deb72" class="outline-3">
 599 <h3 id="org89deb72"><span class="section-number-3">2.4.</span> Dynamic memory</h3>
 600 <div class="outline-text-3" id="text-2-4">
 601 <p class="verse">
 602 dynal ( size &#x2013; handle )<br />
 603 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Allocate dynamic memory block and return it's handle.<br />
 604 <br />
 605 dynde ( handle &#x2013; )<br />
 606 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Deallocate dynamic memory block.<br />
 607 <br />
 608 dynp ( handle &#x2013; addr )<br />
 609 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Returns pointer to memory where dynamic block<br />
 610 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;data begins.<br />
 611 <br />
 612 dyns ( handle &#x2013; size )<br />
 613 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Returns size of dynamic block.<br />
 614 <br />
 615 dynresize ( NewSize handle &#x2013; )<br />
 616 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Nondestructively resize dynamic block.<br />
 617 <br />
 618 dync@ ( addr handle )<br />
 619 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Read one byte from dynamic block.<br />
 620 <br />
 621 dync! ( byte addr dynhandle )<br />
 622 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Write one byte to dynamic block.<br />
 623 <br />
 624 dyn@ ( addr handle )<br />
 625 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Read 32 bit number from dynamic block.<br />
 626 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Address will spacify, whitch number, not byte.<br />
 627 <br />
 628 dyn! ( 32BitNum addr dynhandle )<br />
 629 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Write 32 bit number to dynamic block.<br />
 630 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Address will spacify, whitch number, not byte.<br />
 631 <br />
 632 dyncon ( size "name" &#x2013; )<br />
 633 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Allocate dynamic block with specified size, and<br />
 634 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;create constant honding its handle.<br />
 635 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 100 dyncon MyNewBlock<br />
 636 <br />
 637 dyn. ( handle &#x2013; )<br />
 638 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Write contenc of dynamic memory block to screen.<br />
 639 </p>
 640 </div>
 641 </div>
 642 <div id="outline-container-orgea457a7" class="outline-3">
 643 <h3 id="orgea457a7"><span class="section-number-3">2.5.</span> Graphics and text</h3>
 644 <div class="outline-text-3" id="text-2-5">
 645 <p class="verse">
 646 .               ( n &#x2013; ) print number on screen<br />
 647 <br />
 648 d.              ( n &#x2013; ) print number on screen in decimal<br />
 649 <br />
 650 ?               ( addr &#x2013; ) print 32 bit value located at addr.<br />
 651 <br />
 652 ." &lt;string&gt;"    ( &#x2013; ) print string into screen. Immideately<br />
 653 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;compiles.<br />
 654 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: : greeting ." Hello, World" ;<br />
 655 <br />
 656 tab.            ( &#x2013; ) print tabulator<br />
 657 <br />
 658 calccol         ( b g r &#x2013; c ) calculate color what best matches given<br />
 659 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Blue Green &amp; Red values. Values must be in range 0 - 255.<br />
 660 <br />
 661 imgalloc        ( xsize ysize &#x2013; imgbuf ) allocate image buffer for<br />
 662 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;specified size.<br />
 663 <br />
 664 imgsize         ( imgbuf &#x2013; ) print on the screen X &amp; Y size of image<br />
 665 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;buffer.<br />
 666 <br />
 667 point           ( x y imgbuf &#x2013; addr ) returns memory address for specified<br />
 668 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;pixel.<br />
 669 <br />
 670 pset            ( color x y imgbuf &#x2013; ) set graphic point<br />
 671 <br />
 672 boxf            ( x1 x2 y1 y2 imgbuf color &#x2013; ) draw filled box<br />
 673 <br />
 674 cls             ( imgbuf &#x2013; ) clear image buffer<br />
 675 <br />
 676 setpal          ( b g r color &#x2013; ) set palette value for specified color.<br />
 677 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;values bust be in size 0 - 63.<br />
 678 <br />
 679 putchar         ( char color x y imgbuf &#x2013; ) put graphic character in<br />
 680 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;imagebuffer to specified (x &amp; y) location.<br />
 681 <br />
 682 scroll          ( x y imgbuf &#x2013; ) scroll in imgbuf.<br />
 683 <br />
 684 scrollf         ( color x y screen &#x2013; )  scroll and fill empty space with<br />
 685 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;given color.<br />
 686 <br />
 687 at!             ( x y &#x2013; ) set cursor location<br />
 688 curc!           ( color &#x2013; ) set text color<br />
 689 curb!           ( solor &#x2013; ) set backround color<br />
 690 <br />
 691 colnorm         ( &#x2013; ) set text color to normal<br />
 692 colneg          ( &#x2013; ) set text color to negative (selected)<br />
 693 <br />
 694 dyntype         ( dynhandle &#x2013; ) display contenc of dynamic memory on screen<br />
 695 fsdisp          ( file &#x2013; ) clear screen, display file, and wait for key<br />
 696 <br />
 697 type            ( addr length &#x2013; )<br />
 698 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Types on the screen string, from memory at  addr  and<br />
 699 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;specified length.<br />
 700 <br />
 701 write           ( addr &#x2013; )<br />
 702 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Types on the screen string, from memory at "addr"+1<br />
 703 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;length is taken from "addr" .<br />
 704 <br />
 705 screen  const   32 bit<br />
 706 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Holds handle of screen buffer.<br />
 707 <br />
 708 copyscreen      ( SrcImgHandle DestImgHandle &#x2013; ) copy contenc of source<br />
 709 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;image to destination image. Source and destination images<br />
 710 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;must have same size.<br />
 711 </p>
 712 </div>
 713 </div>
 714 <div id="outline-container-orge721086" class="outline-3">
 715 <h3 id="orge721086"><span class="section-number-3">2.6.</span> Math, memory &amp; stack manipulation</h3>
 716 <div class="outline-text-3" id="text-2-6">
 717 <p class="verse">
 718 off             ( n &#x2013; ) writes 0 to given address, good for zeroing variable.<br />
 719 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: MyVariable off<br />
 720 on              ( n &#x2013; ) writes -1 (true flag) to given address.<br />
 721 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: MyVariable on<br />
 722 <br />
 723 2dup            ( n1 n2 &#x2013; n1 n2 n1 n2 )<br />
 724 2drop           ( n1 n2 &#x2013; )<br />
 725 nip             ( n1 n2 &#x2013; n2 )<br />
 726 neg             ( n1 &#x2013; -n1 ) negotiate<br />
 727 bit@            ( n bit &#x2013; result ) return specified bit from n.<br />
 728 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 38 2 bit@   (result will be 1)<br />
 729 to32bit         ( n1 n2 n3 n4 &#x2013; n32 ) treat 4 last stack elements as bytes<br />
 730 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;and unite them into 32 bit dword. Most significant byte<br />
 731 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;on top.<br />
 732 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 12 76 23 11 to32bit   result: 186076172<br />
 733 <br />
 734 to8bit          ( n32 &#x2013; n1 n2 n3 n4 ) break 32 bit number into 4 bytes.<br />
 735 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Useful if you need to send 32 bit numbers thru 8 bit COM<br />
 736 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;port.<br />
 737 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 186076172 to8bit   result: 12 76 23 11<br />
 738 <br />
 739 mod             ( n1 n2 &#x2013; reminder ) divide n1 by n2 and returns reminder.<br />
 740 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 12 5 mod   result: 2<br />
 741 <br />
 742 bound           ( low n high &#x2013; n ) check if n is in given bounds,<br />
 743 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;if not then incarease/decarease it to match bounds.<br />
 744 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: 5 80 15 bound    result: 15<br />
 745 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;5 10 15 bound    result: 10<br />
 746 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;5 -10 15 bound   result: 5<br />
 747 <br />
 748 bound?          ( low n high &#x2013; result ) returns true if n is in the<br />
 749 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;given bounds.<br />
 750 <br />
 751 tab             ( col &#x2013; spaces) calculate amount of spaces to add<br />
 752 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ta reach next tabulation from given column.<br />
 753 <br />
 754 count           ( addr &#x2013; addr+1 n )<br />
 755 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Useful for returning bytes from constantly incareasing<br />
 756 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;address. Module "type" is nice example.<br />
 757 <br />
 758 c,              ( n &#x2013; )<br />
 759 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;store one byte at memory specified by "h". And incarease<br />
 760 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"h" by 1.<br />
 761 <br />
 762 ,               ( n &#x2013; )<br />
 763 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;store 32 bit number at memory specified by "h". And<br />
 764 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;incarease "h" by 4.<br />
 765 <br />
 766 cmove           ( addr1 addr2 n &#x2013; )<br />
 767 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;copy "n" amount of bytes from memory at "addr1" to memory<br />
 768 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;at "addr2".<br />
 769 <br />
 770 rnd             ( limit &#x2013; result )<br />
 771 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;generates random number in range 0 to "limit"-1.<br />
 772 <br />
 773 abs             ( n &#x2013; |n| )<br />
 774 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;returns absolute value of "n"<br />
 775 </p>
 776 </div>
 777 </div>
 778 <div id="outline-container-orgf17027f" class="outline-3">
 779 <h3 id="orgf17027f"><span class="section-number-3">2.7.</span> Dynamic &amp; static strings</h3>
 780 <div class="outline-text-3" id="text-2-7">
 781 <p>
 782 Fifth supports both static and dynamic strings. Static strings must
 783 have predefined space reserved, and string mustn't exceed this
 784 length. They manipulation is faster. But they use more memory. Static
 785 string memory address is used to refer to the string.
 786 </p>
 787
 788 <p>
 789 Dynamic strings can have at any time length form 0 to 0FFh, They take
 790 up only memory they currently need. They are held in dynamic memory
 791 blocks, so dynamic block handle is used to refer to this string.
 792 </p>
 793
 794 <p>
 795 Both types of strings are stored in the way, where first (0th) byte
 796 holds current string length, following bytes are string itself.
 797 </p>
 798
 799
 800 <p class="verse">
 801 Dynamic:<br />
 802 <br />
 803 Dstral ( &#x2013; handle )<br />
 804 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Allocate new string.<br />
 805 <br />
 806 Dstrlen ( handle &#x2013; length )<br />
 807 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Return string length.<br />
 808 <br />
 809 c+Dstr ( chr handle &#x2013; )<br />
 810 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Add one byte to end of the string.<br />
 811 <br />
 812 c+lDstr ( chr handle &#x2013; )<br />
 813 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Add one byte to left side (beginning) of the string.<br />
 814 <br />
 815 Dstr. ( handle &#x2013; )<br />
 816 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Write contec of string into screen.<br />
 817 <br />
 818 Dstrsure ( size Dstr &#x2013; )<br />
 819 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Makes sure that at least rquested<br />
 820 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"size" (amount of characters) is allocated for given<br />
 821 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;dynamic string.<br />
 822 <br />
 823 Dstr2str ( handle address &#x2013; )<br />
 824 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Copy dyamic string into static memory space.<br />
 825 <br />
 826 str2Dstr ( address handle &#x2013; )<br />
 827 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Copy static string into dyamic string.<br />
 828 <br />
 829 Dstr+str ( Dstr addr &#x2013; )<br />
 830 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Add contenc of dynamic string to static string.<br />
 831 <br />
 832 D" any string" ( &#x2013; Dstr )<br />
 833 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Moves specified string into dynamic string called "defDstr".<br />
 834 <br />
 835 D&gt; any_string ( &#x2013; Dstr )<br />
 836 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Moves specified string into dynamic string called "defDstr".<br />
 837 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Space marks end of string!<br />
 838 <br />
 839 D&gt;2 any_string ( &#x2013; Dstr )<br />
 840 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Moves specified string into dynamic string called "defDstr2".<br />
 841 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Space marks end of string!<br />
 842 <br />
 843 Dstr+Dstr ( Dstr1 Dstr2 &#x2013; )<br />
 844 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Adds "Dstr1" to "Dstr2" and places result into "Dstr2".<br />
 845 <br />
 846 Dstrclear ( Dstr &#x2013; )<br />
 847 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Clears contenc of dynamic string.<br />
 848 <br />
 849 Dstr2Dstr ( Dstr1 Dstr2 &#x2013; )<br />
 850 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Moves "Dstr1" to "Dstr2".<br />
 851 Dstr ( data" name &#x2013; )<br />
 852 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Creates new dynamic string and moves specified data into it.<br />
 853 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Then creates new constant with given "name" holding created<br />
 854 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;dynamic string handle.<br />
 855 <br />
 856 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: Dstr Hello, my name is Sven!" message      \ creates it<br />
 857 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;message Dstr.                              \ tests it<br />
 858 <br />
 859 Dstrlscan ( char Dstr &#x2013; loc )<br />
 860 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Searches dynamic string for "char", from left to right,<br />
 861 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;returns first found "char" location in string, or 0,<br />
 862 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;if not found.<br />
 863 <br />
 864 Dstrrscan ( char Dstr &#x2013; loc )<br />
 865 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Searches dynamic string for "char", from right to left,<br />
 866 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;returns first found "char" location in string, or 0,<br />
 867 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;if not found.<br />
 868 <br />
 869 Dstrlscane ( char Dstr &#x2013; loc )<br />
 870 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Same as "Dstrlscan" buf returns string length+1 as location.<br />
 871 ÿ<br />
 872 Dstrleft ( amo Dstr &#x2013; )<br />
 873 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Only specified amount of characters from left remains<br />
 874 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;in dynamic string. ie. cut right part out.<br />
 875 <br />
 876 Dstrright ( amo Dstr &#x2013; )<br />
 877 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Only specified amount of characters from right remains<br />
 878 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;in dynamic string. ie. cut left part out.<br />
 879 <br />
 880 Dstrcutl ( amo Dstr &#x2013; )<br />
 881 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Cut specified amount of characters from left of dynamic<br />
 882 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;string out.<br />
 883 <br />
 884 Dstrsp ( char Dstr1 Dstr2 &#x2013; )<br />
 885 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Separate dynamic string in Dstr1 into two parts,<br />
 886 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;using "char" as separator. First part will be stored in<br />
 887 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;"Dstr2", second part in "Dstr1".<br />
 888 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;ex: asc \                               \ ..separator<br />
 889 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;D&gt; listF\listLIB\5TH_DRVMOUSE       \ ..separate from<br />
 890 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;defDstr2                            \ ..place result in<br />
 891 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Dstrsp              \ separation command<br />
 892 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;defDstr Dstr.       \ will be: listLIB\5TH_DRVMOUSE<br />
 893 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;defDstr2 Dstr.      \ will be: listF<br />
 894 <br />
 895 Dv ( addr &#x2013; )<br />
 896 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Allocates empty dynamic string, and places it's handle<br />
 897 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;into given address.<br />
 898 <br />
 899 Df ( addr &#x2013; )<br />
 900 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;Reads dynamic string handle from given address and<br />
 901 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;deallocates (frees) it.<br />
 902 <br />
 903 ex:     var mystring1<br />
 904 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;: testmodule<br />
 905 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;mystring1 Dv            \ allocates string<br />
 906 <br />
 907 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&lt;whatever&gt;<br />
 908 <br />
 909 &#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;&#xa0;mystring1 Df ;          \ deallocates it again when no longer needed.<br />
 910 </p>
 911 </div>
 912 </div>
 913 </div>
 914 </div>
 915 <div id="postamble" class="status">
 916 <p class="author">Author: Svjatoslav Agejenko</p>
 917 <p class="date">Created: 2023-09-19 Tue 18:07</p>
 918 <p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
 919 </div>
 920 </body>
 921 </html>