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 |