home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLPRT.ZIP / PRINTER.PAS
Encoding:
Pascal/Delphi Source File  |  1992-10-28  |  994 b   |  37 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Runtime Library                    }
  5. {       Printer Interface Unit                          }
  6. {                                                       }
  7. {       Copyright (C) 1988,92 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Printer;
  12.  
  13. {$I-,S-}
  14.  
  15. interface
  16.  
  17. var
  18.   Lst: Text;
  19.  
  20. implementation
  21.  
  22. procedure LstBinaryMode;
  23. inline(
  24.   $8B/$1E/Lst/        { MOV   BX,Lst.Handle }
  25.   $B8/$00/$44/        { MOV   AX,4400H      }
  26.   $CD/$21/            { INT   21H           }
  27.   $80/$CA/$20/        { OR    DL,20H        }
  28.   $B6/$00/            { MOV   DH,0          }
  29.   $B8/$01/$44/        { MOV   AX,4401H      }
  30.   $CD/$21);           { INT   21H           }
  31.  
  32. begin
  33.   Assign(Lst,'LPT1');
  34.   Rewrite(Lst);
  35.   LstBinaryMode;
  36. end.
  37.