home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / ptrstat.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-07  |  548 b   |  16 lines
  1. (* --------------------------------------------------- *)
  2. (*                      PTRSTAT.PAS                    *)
  3. (*     Funktion zur Ermittlung des Druckerstatus       *)
  4. FUNCTION PtrStat (PtrNum: INTEGER): BYTE;
  5. VAR regs: RECORD
  6.             AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS: INTEGER;
  7.           END;
  8. BEGIN
  9.   WITH regs DO BEGIN
  10.     AX := $0200;  DX := PtrNum;  Intr($17,regs);
  11.     PtrStat := AX Shr 8;
  12.   END;
  13. END;
  14. (* --------------------------------------------------- *)
  15. (*                      PTRSTAT.PAS                    *)
  16.