aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/2-fetch.frt
blob: 9b3a76a0aeed82fcbda0e0459828b08b2ebe870d (plain)
1
2
3
4
5
6
7
\ 2@ ( addr -- n1 n2 )
: 2@
  dup ( -- addr addr )
  cell+ ( -- addr addr+2 )
  @     ( -- addr n2 )
  swap  ( -- n2 addr )
  @ ;   ( -- n2 n1 )