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

version 1.1, 1998/05/02 21:33:43 version 1.2, 1999/12/30 20:43:26
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 436  end-macros Line 436  end-macros
      0 # al mov,  $4c # ah mov,  $21 int,       0 # al mov,  $4c # ah mov,  $21 int,
     End-Code      End-Code
   
   -9 Alias: :doesjump

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


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