home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s085 / 1.img / UD98.H < prev    next >
Encoding:
Text File  |  1989-10-15  |  2.1 KB  |  77 lines
  1.  
  2. /**************** UD-98-1 UTILITIES LIBRARY DEFINE FILE ********************/
  3. /*    If you want to use UD-98-1 utilities library (ud98.lib),suggest that
  4.     you include this file in your source file               */
  5.  
  6. DECLARE        ADDR_FIELD      LITERALLY '0',
  7.            DATA_FIELD      LITERALLY '1',
  8.            NOBLANK           LITERALLY '0',
  9.            BLANK           LITERALLY '1';
  10.  
  11.     DECLARE UD_CHAR BYTE EXTERNAL;
  12.     DECLARE UD_ERROR BYTE EXTERNAL;
  13.  
  14. /*UD_INIT initialize 8155,you must call this procedure befor call the other
  15.   procedure in ud98.lib                           */
  16.  
  17. UD_INIT:PROCEDURE EXTERNAL;
  18.     END UD_INIT;
  19.  
  20. /*UD_DISPLAY display the contents of the array pointed to by the first parameter
  21.   to the field specified by the second parameter.the number of decimal pointers
  22.   for prompts is determined by the third parameter.
  23.  
  24.     PTR:        point to the array;
  25.     FIELD:        = ADDR_FIELD or DATA_FILED;
  26.     PROMPTS:    = 0,1,2,3 or 4;             */
  27.  
  28. UD_DISPLAY: PROCEDURE(PTR,FIELD,PROMPTS) EXTERNAL;
  29.     DECLARE PTR ADDRESS;
  30.     DECLARE (FIELD,PROMPTS) BYTE;
  31.     END UD_DISPLAY;
  32.  
  33. /*UD_GET_CHAR return the value of the key,if any key be striked.if no key
  34.   be striked,return 0FFH.the value of the key is defined as fowllowing tabel:
  35.  
  36.      17   16   15    -    -
  37.      7    8    9    A    13
  38.      4    5    6    B    12
  39.      1    2    3    C    11
  40.      0    F    E    D    10
  41.                                 */
  42. UD_GET_CHAR:       PROCEDURE BYTE EXTERNAL;
  43. END UD_GET_CHAR;
  44.  
  45. UD_GET_CHAR_DISP:
  46. /*    GET CHAR WITH _DISPLAY ALL . */
  47.     PROCEDURE BYTE EXTERNAL;
  48.     END UD_GET_CHAR_DISP;
  49.  
  50. UD_BLANK_DATA_FIELD:
  51.     PROCEDURE (PROMPTS) EXTERNAL;
  52.     DECLARE PROMPTS BYTE;
  53.     END UD_BLANK_DATA_FIELD;
  54.  
  55. UD_BLANK_ADDR_FIELD:
  56.     PROCEDURE (PROMPTS) EXTERNAL;
  57.     DECLARE PROMPTS BYTE;
  58.     END UD_BLANK_ADDR_FIELD;
  59.  
  60. UD_DISP_BYTE:
  61. /*    B=BYTE _DISPLAYED ON DATA FILED WITH LEAD BLANKS  */
  62.     PROCEDURE (B,PROMPTS) EXTERNAL;
  63.     DECLARE (B,PROMPTS) BYTE;
  64.     END UD_DISP_BYTE;
  65.  
  66. UD_DISP_WORD:
  67.     PROCEDURE (W,FIELD,PROMPTS,BLANKING) EXTERNAL;
  68.     DECLARE W WORD;
  69.     DECLARE (FIELD,PROMPTS,BLANKING) BYTE;
  70.     END UD_DISP_WORD;
  71.  
  72. UD_GET_EXPR:
  73.     PROCEDURE (FIELD,PROMPTS,BLANKING) WORD EXTERNAL;
  74.     DECLARE (FIELD,PROMPTS,BLANKING) BYTE;
  75.     END UD_GET_EXPR;
  76.  
  77.