Fatal S in GIVE

I'm adding a diagnostic to GIVE .

VARIABLE give_var
: GIVE_DIAG { 0 DROP } ... ;
-? LABEL GIVE
  R give_var AB MOV
  { 0 # S -) MOV 4 # S ADD }
  ' GIVE_DIAG AB JSR
  GIVE BRA \ run overloaded GIVE
  END-CODE

Code that copies registers to variables and uses the return stack (jump and
return) work fine, but using the parameter stack for as little as doing 0
DROP causes a lock up after:
  INCLUDE DEBUG
  TARGET READY
  SwiftX/68K FORCE CPU-30/33

Does anybody know what I am missing?
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Wed May 08 2002 - 07:57:05 PDT