gforth/arch/c165/prim.fs - diff

Return to prim.fs CVS log

Up to [gforth] / gforth / arch / c165

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