home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / OUTP.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  539 b   |  23 lines
  1. main()    /* outp.c -- demonstrates a use for outp() */
  2. /* care MUST be exercised in using poke and outp if you are to*/
  3. /* losing your program; having to re-boot or worse */
  4. {
  5. int i,j,k;
  6. j = 0;
  7.     puts("A few notes from an electronic clarinet");
  8.     outp(0x43,0xB7);
  9.     for(i = 0; i < 100; ++i, ++j){
  10.     outp(0x42,j);
  11.     outp(0x61,0x4f);
  12.     }
  13.  
  14. j = 100;
  15.     puts("I yearn for the high notes");
  16.     for(k = 100; k > 1; --k, --j){
  17.         outp(0x42,j);
  18.         outp(0x61,0x4f);
  19.     }
  20.  
  21.     outp(0x61,0x4d); /* disables speaker; otherwise noise continues */
  22. }
  23.