home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / teseract / source / tesstp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-02  |  2.5 KB  |  80 lines
  1. {****************************************************************************
  2.  * TESSTP.PAS -- Source for TP 4.0 Unit
  3.  ***************************************************************************
  4.  SUBTTL    TesSeRact Revision Level 1
  5.  ;--------------------------------------------------------------------------
  6.  ;   TesSeRact(tm) -- A Library of Routines for Creating Ram-Resident (TSR)
  7.  ;                    programs for the IBM PC and compatible Personal
  8.  ;                    Computers.
  9.  ;
  10.  ;The software, documentation and source code are: 
  11.  ; 
  12.  ;    Copyright (C) 1986, 1987, 1988 Tesseract Development Team
  13.  ;    All Rights Reserved 
  14.  ; 
  15.  ;    c/o Chip Rabinowitz
  16.  ;    Innovative Data Concepts
  17.  ;    2084 Woodlawn Avenue
  18.  ;    Glenside, PA 19038
  19.  ;    1-215-884-3373
  20.  ;
  21.  ;--------------------------------------------------------------------------
  22.  ;   This product supports the TesSeRact Standard for Ram-Resident Program 
  23.  ;   Communication.  For information about TesSeRact, contact the TesSeRact 
  24.  ;   Development Team at:
  25.  ;       Compuserve:    70731,20
  26.  ;       MCIMAIL:       315-5415
  27.  ;   This MCIMAIL Account has been provided to the TesSeRact Development
  28.  ;   Team by Borland International, Inc.  The TesSeRact Development Team
  29.  ;   is in no way associated with Borland International, Inc.
  30.  ;--------------------------------------------------------------------------}
  31.  
  32. {$R-,S-,I-,D-,T+,F-,V-,B-,N-,L+ }
  33.  
  34.  
  35.  
  36. unit TESSTP;
  37.  
  38. interface
  39.  
  40. {$I TESS.TP4 }
  41.  
  42. implementation
  43.  
  44. function TsDoInit; external;
  45. procedure TsSetStack; external;
  46. procedure TessBeep; external;
  47. function TsCheckResident; external;
  48. function TsGetParms; external;
  49. function TsCheckHotkey; external;
  50. function TsSetUser24; external;
  51. function TsEnable; external;
  52. function TsDisable; external;
  53. function TsRelease; external;
  54. function TsRestart; external;
  55. function TsGetStat; external;
  56. function TsSetStat; external;
  57. function TsGetPopType; external;
  58. function TsCallUserProc; external;
  59. function TsStuffKeyboard; external;
  60. function TsTriggerPop; external;
  61. function TsTriggerBack; external;
  62.  
  63. procedure TsVerify2F; external;
  64. procedure TsRestore2F; external;
  65. function TsSetExtraHot; external;
  66. function TsGetData; external;
  67. procedure TsSetAdrTP4; external;
  68. procedure FarRet; external; { used only for initializing }
  69.  
  70. {$L TESS_TP.OBJ }
  71.  
  72. begin
  73.   TsSetAdrTP4(@farret, 0);
  74.   TsSetAdrTP4(@farret, 1);
  75.   TsSetAdrTP4(@farret, 2);
  76.   TsSetAdrTP4(@farret, 3);
  77.   TsSetAdrTP4(@farret, 4);
  78.   TsSetAdrTP4(@farret, 5);
  79. end.
  80.