blob: c095a9efd7cbe6ec729e1e64581dc316321df05b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
\ 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
|
