home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / gsxvdi.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-11-25  |  1.3 KB  |  31 lines
  1. {---------------------------------------------------------------------------}
  2. {                   gsxvdi.pas - Pascal GSX Bibliothek:                     }
  3. {                  Schnittstelle GSX <-> Betriebssystem                     }
  4. {---------------------------------------------------------------------------}
  5. { Hier fuer CP/M plus (3.x) in TURBO-Pascal.
  6.  
  7.   Implementationsabhaengigkeit:
  8.      Der Parameterblock PB enthaelt die absoluten Adressen der GSX-Arrays.
  9.      Hier werden diese mittels einer in der verwendeten Pascal-Version
  10.      implementierten Adress-Funktion ermittelt und dem Integer-Feld PB zu-
  11.      gewiesen (16-Bit-Adressen). Andere Moeglichkeiten: s. Begleitartikel.  }
  12.  
  13. PROCEDURE VDI_Call (VAR contrl: VDI_contrl;
  14.                     VAR intin : VDI_intin;   VAR intout: VDI_intout;
  15.                     VAR ptsin : VDI_ptsin;   VAR ptsout: VDI_ptsout);
  16.  
  17. CONST VDIFctNum = 115;
  18.  
  19. VAR PB: ARRAY [1..5] OF Integer;
  20.  
  21. BEGIN
  22.   PB[1] := Addr(contrl);
  23.   PB[2] := Addr(intin);     PB[3] := Addr(ptsin);
  24.   PB[4] := Addr(intout);    PB[5] := Addr(ptsout);
  25.   BDos(VDIFctNum, Addr(PB));
  26.   VDI_Error := (contrl[3] <> 0);
  27. END;
  28.  
  29. {---------------------------------------------------------------------------}
  30.                          { Ende von gsxvdi.pas }
  31.