aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/2rvalue.frt
blob: 2c46d01b17d330a692d83d0dcba641c93442e584 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

\ a value in RAM with 2 cells data storage
\ requires quotations and 2@/2! from double wordset

#require quotations.frt
#require 2-fetch.frt
#require 2-store.frt

: 2rvalue ( d -- )
    (value)
    here ,
    [: @i 2@ ;] ,
    [: @i 2! ;] ,
    here 2! 2 cells allot
;