开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
KCONIO.C
资源名称：ertos.rar　[点击查看]
上传用户：sunrenlu
上传日期：2022-06-13
资源大小：1419k
文件大小：1k
源码类别：

操作系统开发

开发平台：

DOS

KCONIO.C：源码内容
  1. #include <rtos.h>
  2. #include <mem.h>
  4. #define KBD_DELAY 80
  6. int kgetch(void)
  7. {
  8.     int x;
  9.     while ( 1 ) {
  10.         dos_enter();
  11.         x = kbhit();
  12.         dos_exit();
  13.         if ( x != 0 ) break;
  15.         rt_sleep( KBD_DELAY );
  16.     }
  17.     dos_enter();
  18.     x = getch();
  19.     dos_exit();
  21.     return( x );
  22. }
  24. int kgetche( void )
  25. {
  26.     int x;
  28.     while ( 1 ) {
  29.         dos_enter();
  30.         x = kbhit();
  31.         dos_exit();
  32.         if ( x != 0 ) break;
  33.         rt_sleep( KBD_DELAY );
  34.     }
  36.     dos_enter();
  37.     x = getche();
  38.     dos_exit();
  39.     return( x );
  40. }
  42. char *kgets( char *str )
  43. {
  44.     int maxlen = *(BYTE *)str;
  45.     int len;
  46.     char ch;
  48.     memset( str, 0, maxlen );
  50.     for ( len = 0 ; len < maxlen ; ) {
  51.         putch( 220 );
  52.         ch = kgetch();
  53.         putch( 8 );
  54.         putch( ' ' );
  55.         putch( 8 );
  56.         switch ( ch ) {
  57.             case 27 : *str = 0; return( str );
  58.             case 13 : return( str );
  59.             case  8 :
  60.             case 127 : if ( len > 0 ) {
  61.                          putch( 8 );
  62.                          str[ --len ] = ' ';
  63.                        }
  64.                        break;
  65.             default  : str[ len++ ] = ch;
  66.                        putch( ch );
  67.                        break;
  68.         }
  69.     }
  70.     return( str );
  71. }