home *** CD-ROM | disk | FTP | other *** search
/ Chip: Special Survival Kit / Chip_Special_Survival_Kit_fuer_PC_Anwender.iso / 01tools / txt2exe / ica / t2ecomm.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-01  |  3KB  |  75 lines
  1. Program TEST_TEXT2EXE_ICA;
  2. (* TXT2EXE Interprogram-Communication-Area Test-Program *)
  3.  
  4. USES dos; { wg TYPE Registers }
  5.  
  6. TYPE
  7.   TXT2EXEMode = (Zeile, Seite, UeberSchrift);
  8.  
  9.   FUNCTION TXT2EXEset(mode : TXT2EXEMode; value : LongInt) : Boolean;
  10. (*************************************************************************)
  11. (*                                                                       *)
  12. (*  Setzt Zeile, Seite, Ueberschrift für die Stelle an der mit TXT2EXE   *)
  13. (*  erzeugte Programme mit der Anzeige beginnen sollen. Jedoch muß       *)
  14. (*  zuvor das TSR T2EICA (600 Bytes) installiert sein.                   *)
  15. (*                                                                       *)
  16. (*    AUFRUF INT 2Fh                                                     *)
  17. (*      AX = 5547h                                                       *)
  18. (*      Bh = Function : 0 -- installed // 1 -- set val // 2 -- get val   *)
  19. (*      Bl = Modus : 0 -- Zeile // 1 -- Seite // 2 -- Ueberschrift       *)
  20. (*      CX = Wert div 65536 (Hi-Word)                                    *)
  21. (*      DX = Wert mod 65536 (Lo-Word)                                    *)
  22. (*                                                                       *)
  23. (*    Zurück :                                                           *)
  24. (*      AX = 524Eh wenn OK                                               *)
  25. (*                                                                       *)
  26. (*************************************************************************)
  27.   CONST
  28.     TXT2EXE_ICA_KENNUNG = $5547;   { "GU" }
  29.     TXT2EXE_ICA_ANTWORT_OK = $524e;{ "NR" }
  30.   TYPE
  31.     Long = RECORD
  32.              l,h : Word;
  33.            END;
  34.   VAR
  35.     r : registers;
  36.   BEGIN
  37.     r.ax := TXT2EXE_ICA_KENNUNG;                 { Kennung in AX }
  38.     r.bh := 0;                                   { ICA installiert ? }
  39.     intr($2f, r);
  40.     IF r.ax = TXT2EXE_ICA_ANTWORT_OK THEN        { OK=Antwort }
  41.       BEGIN
  42.         CASE mode OF
  43.           Zeile : r.bl := 0;                     { Zeile : bl = 0 }
  44.           Seite : r.bl := 1;                     { Seite : bl = 1 }
  45.           UeberSchrift : r.bl := 2;              { Ueberschrift : bl = 2 }
  46.         END;
  47.         r.bh := 1;                               { Funktion PUT-Value to ICA }
  48.         r.ax := TXT2EXE_ICA_KENNUNG;
  49.         r.cx := long(value).h;                   { Typecasting longint --> word }
  50.         r.dx := long(value).l;                   { Typecasting longint --> word }
  51.         intr($2f, r);
  52.         IF r.ax = TXT2EXE_ICA_ANTWORT_OK THEN    { OK=Antwort }
  53.           TXT2EXEset := True                     { Alles glatt gegangen }
  54.         ELSE
  55.           TXT2EXEset := False                    { schiefgeganen ... }
  56.       END
  57.     ELSE
  58.       TXT2EXEset := False;                       { T2EICA nicht installiert }
  59.   END;
  60.  
  61.  
  62. begin
  63.  
  64.   { do or call something }
  65.  
  66.   TXT2EXEset(Ueberschrift,5);      { ein mit TXT2EXE erstelltes Programm }
  67.                                    { beinnt mit der Anzeige bei der      }
  68.                                    { fünften Überschrift                 }
  69.  
  70.   { do or call something }
  71.  
  72.   TXT2EXEset(Zeile,342);           { ein mit TXT2EXE erstelltes Programm }
  73.                                    { beinnt mit der Anzeige ab Zeile 342 }
  74. end.
  75.