cnc-club.ru

Код: Выделить всё

#include<conio.h>
#include<stdio.h>

/* lpt base 0x378

  DR[7..0] =     9..2

*/
//-------------------------------------------------
int wait_3(unsigned int time_slep)
	 {   //wait end of counting and write next time
	  asm{                     //
		  in al,61h
		  test al,00100000b
		  jz   loop            //    loop, if OUT2=0
		  mov  ax, time_slep   //
		  out 42h, al          //     LSB time ---> counter timer-2
		  mov  al, ah          //
		  out 42h, al          //     MSB time ---> counter timer-2
		 };return(1);          //bad
 loop:asm{
		  in al,61h
		  test al,00100000b
		  jz   loop            //    loop, if OUT2=0
		  mov  ax, time_slep   //
		  out 42h, al          //     LSB time ---> counter timer-2
		  mov  al, ah          //
		  out 42h, al          //     MSB time ---> counter timer-2
		 }return(0);           //good
	  }
//--------------------------------------------------
char install_timer(void)
	 {char status_ppi;
	   //not save status 8254 count2. set regime timer and start counter.
   asm{
	   mov  al, 10110000b
	   out 43h,al           //     set timer-2 in mode 0
	   in   al, 61h         //     read status PPI
	   mov  status_ppi,al   //     keep status PPI
	   or   al, 00000011b   //     set bit-1 ppi --> 1, sound yes
	   out 61h, al          //     set bit-0 PPI --> 1, gate open
	   mov  al, 64           //     start delay
	   out 42h, al          //     LSB time ---> counter timer-2
	   out 42h, al          //     MSB time ---> counter timer-2
	  }return(status_ppi);
	 }
//-----------------------------------------------------
void uninstall_timer(char status_ppi)
	 {
	   // not restore status 8254 count2.
   asm{
	   mov  al, status_ppi  //
	   out 61h, al          //     restore PPI status
	  };
	 };
 //----------------------------------------------------
int out_array (long int number)
//code return
 {
   unsigned long int l=0;
   char j;

   j=install_timer();
   while (l<number)
   {
	 wait_3(119);                                // 10 kiloHERZ ???

	outportb(0x378,0xff); outportb(0x378,0xff); outportb(0x378,0x00); //  step
	l=l+1;
   }

   uninstall_timer(j);
   return(0);
 }
//----------------------------------


void main(void)
{
double      dt=         0.838 ; // mkc  tic 8254

  printf(" Press any key to exit \n");  

   //cliar kb buffer
  while(kbhit()) getche();

  while(!kbhit()) out_array (100000); // 10 second

}