[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