\ tag: pseudo r-stack implementation for openbios
\ 
\ Copyright (C) 2016 Mark Cave-Ayland
\ 
\ See the file "COPYING" for further information about
\ the copyright and warranty status of this work.
\ 

\
\ Pseudo r-stack implementation for interpret mode
\

create prstack h# 20 cells allot
variable #prstack 0 #prstack !

: prstack-push  prstack #prstack @ cells + ! 1 #prstack +! ;
: prstack-pop   -1 #prstack +! prstack #prstack @ 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