home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / RELAYOFF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-14  |  943 b   |  23 lines
  1. {->>>>RelayOff<<<<---------------------------------------------}
  2. {                                                              }
  3. { Filename: RELAYOFF.SRC -- Last modified 7/14/88              }
  4. {                                                              }
  5. { All we do here is de-energize the cassette relay, opening    }
  6. { the contacts across pins 1 and 3 of the cassette DIN         }
  7. { connector on the original PC.  (XT's and AT's do not have    }
  8. { the cassette relay.)                                         }
  9. {                                                              }
  10. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  11. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  12. {--------------------------------------------------------------}
  13.  
  14. PROCEDURE RelayOff;
  15.  
  16. VAR
  17.   Regs : Registers;
  18.  
  19. BEGIN
  20.   Regs.AH := 1;         { AH=1 -- Service that turns motor off }
  21.   Intr($15,Regs)
  22. END;
  23.