aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/2-store.frt
blob: 93d2402645223eb171f07071fe73caa5cceb4d4b (plain)
1
2
3
4
5
6
7
\ 2! ( n1 n2 addr -- )
: 2!
  swap ( -- n1 addr n2 )
  over ( -- n1 addr n2 addr )
  !    ( -- n1 addr )
  cell+ ( -- n1 addr+2 )
  ! ;