Diff for /gforth/arch/8086/prim.fs between versions 1.4 and 1.6

version 1.4, 2000/08/14 19:15:54 version 1.6, 2003/09/14 21:16:48
Line 119  end-macros Line 119  end-macros
   
   Code ?branch   ( f -- ) \ jump on f<>0    Code ?branch   ( f -- ) \ jump on f<>0
     tos tos or,   tos pop,                      \ check and get new tos      tos tos or,   tos pop,                      \ check and get new tos
     0= IF,  fip ) fip add,      next,           \ jump      0= IF,  fip ) fip mov,      next,           \ jump
     ELSE,   fip inc,  fip inc,  next,  THEN,    \ skip      ELSE,   fip inc,  fip inc,  next,  THEN,    \ skip
    End-Code     End-Code
   
Line 258  end-macros Line 258  end-macros
   
  \ branch and literal   \ branch and literal
   Code branch   ( -- ) \ unconditional branch    Code branch   ( -- ) \ unconditional branch
     fip ) fip add,      fip ) fip mov,
     next,      next,
    End-Code     End-Code
   
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
   
 -9 Alias: :doesjump  : bye ( -- )  0 (bye) ;
       
   Code: :doesjump
   end-code

Removed from v.1.4  
changed lines
  Added in v.1.6


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