RETURNING FROM FORTH WORDS ----------------------------------------------------------
the EXIT function
QUADRUPLE
+------------------+
| codeword |
+------------------+
| addr of DOUBLE |
+------------------+ DOUBLE
| addr of DOUBLE ---------------> +------------------+
+------------------+ | codeword |
%esi -> | addr of EXIT | +------------------+
+------------------+ | addr of DUP |
+------------------+
| addr of + |
+------------------+
| addr of EXIT |
+------------------+
... we are calling DOUBLE again
defcode "EXIT",4,,EXIT
POPRSP %esi // pop return stack into %esi
NEXT
20