home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / RELAYON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-14  |  1.0 KB  |  25 lines
  1. {->>>>RelayOn<<<<----------------------------------------------}
  2. {                                                              }
  3. { Filename: RELAYON.SRC -- Last modified 7/14/88               }
  4. {                                                              }
  5. { This one quite simply energizes the cassette relay, which    }
  6. { closes 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.)  The specs allow for 1 amp through the  }
  9. { relay, but having inspected the relay I would play it safe   }
  10. { and attempt no more than half an amp.                        }
  11. {                                                              }
  12. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  13. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  14. {--------------------------------------------------------------}
  15.  
  16. PROCEDURE RelayOn;
  17.  
  18. VAR
  19.   Regs : Registers;
  20.  
  21. BEGIN
  22.   Regs.AH := 0;        { AH = 0 -- Service that turns motor on }
  23.   Intr($15,Regs)
  24. END;
  25.