adoc/p_get_n_decrement.adoc

   1 // memory.asm:  WORD p_get_n_decrement, '@n--',fasm
   2
   3 anchor:p_get_n_decrement[]
   4
   5 === Word: @n--
   6
   7 ....
   8 Data stack: ( a n -- v )
   9 ....
  10
  11 "@n--" is a function word that pushes the value from the address, a,
  12 then decrements the cell at that address by n.
  13
  14 ====
  15 .Word: @n++
  16 [caption='Defintion concept {counter:exec}']
  17 ----
  18 : @n++ OVER @ DUP ROT - ROT ! ;
  19 ----
  20 ====