home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / tricks / togglpt.bas < prev   
Encoding:
BASIC Source File  |  1988-06-23  |  1.1 KB  |  22 lines
  1. '* ------------------------------------------------------- *
  2. '*                    TOGGLPT.BAS                          *
  3. '*     Druckerumschaltung von LPT1 auf LPT2 für LPRINT     *
  4. '* ------------------------------------------------------- *
  5. '*   (c) 1988 by HEIMSOETH Software /Technical Support     *
  6. '*          veröffentlicht in TOOLBOX 10/11'88               *
  7. '* ------------------------------------------------------- *
  8. '*            Compiler: Turbo Basic  V1.01e                *
  9. '* ------------------------------------------------------- *
  10. SUB ToggleLPT INLINE
  11.   $INLINE &H1E                            'PUSH DS
  12.   $INLINE &H31, &HC0                      'XOR AX,AX
  13.   $INLINE &H8E, &HD8                      'MOV DS,AX
  14.   $INLINE &HA1, &H08, &H04                'MOV AX,[0408]
  15.   $INLINE &H8B, &H1E, &H0A, &H04          'MOV BX,[040A]
  16.   $INLINE &H89, &H1E, &H08, &H04          'MOV [0408],BX
  17.   $INLINE &HA3, &H0A, &H04                'MOV [040A],AX
  18.   $INLINE &H1F                            'POP DS
  19. END SUB
  20. '* ------------------------------------------------------- *
  21. '*               Ende von TOGGLPT.BAS                       *
  22.