home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / polskie / orhmet / df1 / rlibc / patches.cas < prev    next >
Text File  |  1995-09-24  |  1KB  |  52 lines
  1. #include "rlibc.h"
  2. #include <string.h>
  3.  
  4. #pragma inline
  5.  
  6. int mk_kbhit ( void )
  7. {
  8.     _AH=0x0b;
  9.     asm    int 21h
  10.     return(_AL);
  11. }
  12.  
  13. int podaj_rozkaz ( char *rozkaz )
  14. {
  15.     char *bufor="  ";
  16.  
  17.     if (strlen(rozkaz)!=2)
  18.         return (R4);
  19.     if (sendport(2,rozkaz)==-1)                /*    wy₧lij rozkaz                */
  20.         return (R0);
  21.     if (recvport(2,bufor)==-1)                /*    jak zareagowaÆa na rozkaz ?    */
  22.         return (R0);
  23.     return( mk_translate( bufor ) );
  24. }
  25.  
  26. int mk_translate ( char *source )
  27. {
  28.     if (source[0]=='D')
  29.     {
  30.         if ( source[1] >= '0' && source[1] <= '9' )
  31.             return( D0 + source[1] - '0' );
  32.         if ( source[1] >= 'A' && source[1] <= 'F' )
  33.             return( D10 + source[1] - 'A' );
  34.     }
  35.     if (source[0]=='I')
  36.         if ( source[1] >= '0' && source[1] <= '8' )
  37.             return( I0 + source[1] - '0' );
  38.  
  39.     if (!memcmp(source, "L1", 2))
  40.         return (LD1);
  41.     if (!memcmp(source, "L2", 2))
  42.         return (LD2);
  43.     if (!memcmp(source, "L3", 2))
  44.         return (LD3);
  45.     if (!memcmp(source, "DJ", 2))
  46.         return (DJ);
  47.     if (!memcmp(source, "WE", 2))
  48.         return (WE);
  49.  
  50.     return (-1);
  51. }
  52.