[OpenBIOS] [PATCH 1/3] bootstrap.fs: add pseudo r-stack implementation for interpret mode

Segher Boessenkool segher at kernel.crashing.org
Sun Jul 17 18:20:15 CEST 2016


On Sun, Jul 17, 2016 at 03:20:57PM +0100, Mark Cave-Ayland wrote:
> +\
> +\ Pseudo r-stack implementation for interpret mode
> +\
> +
> +variable prstack 20 cells allot
> +variable #prstack 0 #prstack !

20 hex or 20 decimal?  If it isn't clear, put hex or decimal before this?

This allocates 21 cells and isn't portable, btw ("variable" allocate one
cell already, not necessarily contiguous with the "allot" allocated cells).

> +: >r state @ if ['] >r , exit then r> swap prstack-push >r ; immediate
> +: r> state @ if ['] r> , exit then r> prstack-pop swap >r ; immediate
> +: r@ state @ if ['] r@ , exit then r> prstack-pop dup prstack-push swap >r ; immediate

['] >r ,   is very non-portable as well, "postpone >r" is much more modern.


Segher



More information about the OpenBIOS mailing list