[Oberon] Standalone BootLoader format

Tomas Kral thomas.kral at email.cz
Fri May 15 11:10:09 CEST 2020


On Tue, 12 May 2020 21:34:36 +0200
Andreas Pirklbauer <andreas_pirklbauer at yahoo.com> wrote:

> In fact, if you look at the compiler (ORG.GetSB), you will see that
> if version = 0 (=standalone program), you have the line
> 
>    IF version = 0 THEN Put1(Mov, RH, 0, VarOrg0)  (*VarOrg0 = 0*)
> 
> and, because ORP.dc = 8 for standalone programs (see ORP.Module),

(* my current version *)
MODULE ORP; (*N. Wirth 1.7.97 / 4.4.2017
...
 IF sym = ORS.times THEN version := 0; Texts.Write(W, "*");
 ORS.Get(sym) ELSE version := 1 END ;
 Check(ORS.semicolon, "no ;"); level := 0; dc := 0; (* <=== *)


(* newer version *)
MODULE ORP; (*N. Wirth 1.7.97 / which one???
...
 IF sym = ORS.times THEN version := 0; dc := 8; (* <=== *)Texts.Write(W, "*");
 ORS.Get(sym) ELSE dc := 0; version := 1 END ;


In my current version I miss dc := 8, so it seems.

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list