22 lines
676 B
Forth
22 lines
676 B
Forth
|
\ 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
|