diff --git a/asm/fcode.s b/asm/fcode.s
index 6575ffd..3d37f75 100644
--- a/asm/fcode.s
+++ b/asm/fcode.s
@@ -1170,6 +1170,8 @@ xdword    B_FIELD
           jml dFIELD::dofield
 exdword
 
+.if 0
+; Inspired by SLOF, unused for now
 xdword    DEST_ON_TOP
           ENTER
           ;.dword DOTS
@@ -1193,6 +1195,7 @@ e2:       .dword DROP
           ;.dword DOTS
           EXIT
 exdword
+.endif
 
 ; Branch FCode while interpreting
 ; ( fcode-offset -- )