Sun May 24 17:26:02 CEST 2009

where is the first element on the data stack?

The problem is that with top of stack in WREG, the stack can't be
empty.  There is always at least one element, which will be written to
the bottom of the reserved memory when a new word is loaded.  This
element however will be ignored when the stack is displayed.

(define (ts-copy)
  (reverse (a>/b (stacksize)
                 (+ 1 (stackbottom)))))