\ a68example1 98.7.4 NAB

needs asm68k

code under+ ( a b c -- a+c b )
  tos 2 sp d) add
  ] drop [
end-code

code rot- ( a b c -- c a b )
  prefix
  move tos d0
  move sp ) tos
  move 2 sp d) sp )
  move d0 2 sp d)
  postfix
end-code