--- gforth/arch/8086/prim.fs	1998/05/02 21:33:43	1.1
+++ gforth/arch/8086/prim.fs	2003/09/01 22:12:47	1.5
@@ -410,7 +410,7 @@ end-macros
 
 
  \ additon io routines
-  Code key?     ( -- f ) \ check for read sio character
+  Code (key?)     ( -- f ) \ check for read sio character
     tos push, lastkey # tos mov,
     1 tos d) ah mov,   ah ah or,
     0= IF,  $ff # dl mov,  6 # ah mov,  $21 int,
@@ -432,7 +432,11 @@ end-macros
 \ ======================== not ready ============================
 [ENDIF]
 
-  Code bye     ( -- ) \ back to DOS
-     0 # al mov,  $4c # ah mov,  $21 int,
+  Code (bye)     ( -- ) \ back to DOS
+     ax pop,  $4c # ah mov,  $21 int,
     End-Code
 
+: bye ( -- )  0 (bye) ;
+    
+Code: :doesjump
+end-code