// memory.asm: WORD p_get_n_decrement, '@n--',fasm anchor:p_get_n_decrement[] === Word: @n-- .... Data stack: ( a n -- v ) .... "@n--" is a function word that pushes the value from the address, a, then decrements the cell at that address by n. ==== .Word: @n++ [caption='Defintion concept {counter:exec}'] ---- : @n++ OVER @ DUP ROT - ROT ! ; ---- ====