Diff for /gforth/arch/8086/prim.fs between versions 1.1 and 1.5

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

Removed from v.1.1  
changed lines
  Added in v.1.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>