Diff for /gforth/arch/c165/prim.fs between versions 1.2 and 1.3

version 1.2, 2001/09/16 10:26:42 version 1.3, 2012/02/10 00:30:04
Line 250  End-Code Line 250  End-Code
   
   
 \ SIO-Grundroutinen                             ( 09.06.96/KK )  \ SIO-Grundroutinen                             ( 09.06.96/KK )
   Code key?     ( -- f ) \ Flag, ob Zeichen anliegt    Code (key?)     ( -- f ) \ Flag, ob Zeichen anliegt
     sp -] , tos mov,   tos , 0 s# mov,      sp -] , tos mov,   tos , 0 s# mov,
     _s0ric . 7 , here 6 + jnb,      _s0ric . 7 , here 6 + jnb,
     tos , 1 s# sub,   next,                            End-Code      tos , 1 s# sub,   next,                            End-Code
   Code (key)      ( -- char ) \ Zeichen holen    Code (key)      ( -- char ) \ Zeichen holen
     _s0ric . 7 , here jnb,   _s0ric . 7 bclr,   sp -] , tos mov,      _s0ric . 7 , here jnb,   _s0ric . 7 bclr,   sp -] , tos mov,
     tosh , 0 s# movb,   tosl , _s0rbuf movb,   next,   End-Code      tosh , 0 s# movb,   tosl , _s0rbuf movb,   next,   End-Code
   Code emit?    ( -- f ) \ Flag, ob Zeichen ausgebbar    Code (emit?)    ( -- f ) \ Flag, ob Zeichen ausgebbar
     sp -] , tos mov,   tos , 0 s# mov,      sp -] , tos mov,   tos , 0 s# mov,
     _s0tic . 7 , here 6 + jnb,      _s0tic . 7 , here 6 + jnb,
     tos , 1 s# sub,   next,                            End-Code      tos , 1 s# sub,   next,                            End-Code

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


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