home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 09 / bdosbios.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-08-09  |  1.3 KB  |  53 lines
  1. (*--------------------------------------------------------------*)
  2. (*                       BDOSBIOS.PAS                           *)
  3. (* Funktionen zum BDOS/BIOS-Aufruf mit JRT-Pascal 2.0 auf CP/M  *)
  4.  
  5. FUNCTION BDOS(Fkt, Par : INTEGER) : INTEGER;
  6.  
  7. TYPE Register = RECORD
  8.                   CASE INTEGER OF
  9.                     1 : (Flag,A,C,B,E,D,L,H : CHAR);
  10.                     2 : (AF,BC,DE,HL : INTEGER);
  11.                   END;
  12.  
  13. VAR BDOSReg, ResReg : Register;
  14.  
  15. BEGIN
  16.   BDOSReg.C := Chr(Fkt);
  17.   BDOSReg.DE := Par;
  18.   Call(5,BDOSReg,ResReg);
  19.   BDOS := Ord(ResReg.A);
  20. END;
  21.  
  22.  
  23.  
  24. FUNCTION Bios(Fkt, Par : INTEGER) : INTEGER;
  25.  
  26. TYPE BIOSPB = RECORD
  27.                 Func, A : CHAR;
  28.                 BC, DE, HL : INTEGER;
  29.               END;
  30.      Register = RECORD
  31.                   CASE INTEGER OF
  32.                     1 : (Flag,A,C,B,E,D,L,H : CHAR);
  33.                     2 : (AF,BC,DE,HL : INTEGER);
  34.                   END;
  35.  
  36. VAR BIOSReg : BIOSPB;
  37.     BDOSReg,
  38.     ResReg  : Register;
  39.  
  40. BEGIN
  41.   BIOSReg.Func := Chr(Fkt);
  42.   BIOSReg.BC := Par;
  43.   BDOSReg.BC := 50;
  44.   BDOSReg.DE := Addr(BIOSReg);
  45.   Call(5,BDOSReg,ResReg);
  46.   Bios := Ord(ResReg.A);
  47. END;
  48.  
  49. (*------------------------------------------------------------*)
  50. (*                    Ende BDOSBIOS.PAS                       *)
  51.  
  52.  
  53.