home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / jr_tools / jrprt201.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-12  |  1.8 KB  |  58 lines
  1. Unit JRPRT201 ;
  2.  
  3. (*╔═════════════════════════════════════════════════════════════════════════╗*)
  4. (*║                                                                         ║*)
  5. (*║             JR Unit Library  -  Version 2.01  -  June xxrd 1988         ║*)
  6. (*║                                                                         ║*)
  7. (*║                     Printer functions and procedures                    ║*)
  8. (*║                                                                         ║*)
  9. (*╚═════════════════════════════════════════════════════════════════════════╝*)
  10.  
  11. Interface
  12.  
  13. (*───────────────────────────────────────────────────────────────────────────*)
  14.  
  15. Uses Dos ;
  16.  
  17. (*───────────────────────────────────────────────────────────────────────────*)
  18.  
  19. Const _BIOSPrinterService  = $17 ;
  20.  
  21. (*───────────────────────────────────────────────────────────────────────────*)
  22.  
  23. Var _regs8086 : Registers ;
  24.  
  25. (*───────────────────────────────────────────────────────────────────────────*)
  26.  
  27. Function _PrinterStatus : Byte ;
  28. Function _PrinterReady  : Boolean ;
  29.  
  30. (*───────────────────────────────────────────────────────────────────────────*)
  31.  
  32. Implementation
  33.  
  34. (*───────────────────────────────────────────────────────────────────────────*)
  35.  
  36.  
  37. Function _PrinterStatus ;
  38. (*  Version 1.01  *)
  39. Begin ;
  40.    With _regs8086 Do Begin ;
  41.       ah:=2 ; dx:=0 ;
  42.    End ;
  43.    Intr(_BIOSPrinterService,_regs8086) ;
  44.    _PrinterStatus:=_regs8086.ah ;
  45. End  (* Function _PrinterStatus *) ;
  46.  
  47. (*───────────────────────────────────────────────────────────────────────────*)
  48.  
  49. Function _PrinterReady ;
  50. (*  Version 1.02 *)
  51. Begin ;
  52.    _PrinterReady:=(_PrinterStatus=$90) ;
  53. End  (* Function _PrinterReady *) ;
  54.  
  55. (*───────────────────────────────────────────────────────────────────────────*)
  56.  
  57. End  (* Of Unit JRPRT201 *).
  58.