\ 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