Телесистемы
 Разработка, производство и продажа радиоэлектронной аппаратуры
На главную   | Карта сайта | Пишите нам | В избранное
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Там прога: CW_QSO\CW_QSO1.CPP. Функция SBlRegSet() и ещё какие-то наверное.

Отправлено uni 30 октября 2007 г. 00:32
В ответ на: Я глядел их как-то и купил для коллекции. Друг один клад искал, всё просил сделать :) А вот книжка, где есть исходники для ДОСа, давно не программил в нём. Улыбнуло. Может дискету найду, выложу. отправлено uni 30 октября 2007 г. 00:17



void SBlRegSet(int regis, int value)
{
outportb(0x220,regis);
delay(6);
outportb(0x221,value);
delay(24);
}

void NullRegistr(void)
{
SBlRegSet(0x01, 00);
SBlRegSet(0x08, 00);
SBlRegSet(0x20, 00);
SBlRegSet(0x40, 00);
SBlRegSet(0x60, 00);
SBlRegSet(0x80, 00);
SBlRegSet(0xa0, 00);
SBlRegSet(0xb0, 00);
SBlRegSet(0xbd, 00);
SBlRegSet(0xc0, 00);
SBlRegSet(0xe0, 00);
}

void SetKanal(void)
{

SBlRegSet(0x4, 0x21);
delay(90);
}


void SetRegistr(void)
{
SBlRegSet(0x20, 0x1);
SBlRegSet(0x40, 0x10);
SBlRegSet(0x60, 0xf0);
SBlRegSet(0x80, 0x77);
SBlRegSet(0xa0, 127);
SBlRegSet(0x23, 0x1);
SBlRegSet(0x43, 00);
SBlRegSet(0x63, 0xf0);
SBlRegSet(0x83, 0x77);
SBlRegSet(0xb0, 0x39);
SBlRegSet(0xc0, 0x7);
}

void ProwSBl(void)
{
SBlRegSet(0x04, 0x60);
SBlRegSet(0x04, 0x80);
nn=inportb(0x220);
SBlRegSet(0x02, 0xff);
SBlRegSet(0x04, 0x21);
delay(90);
pp=inportb(0x220);
SBlRegSet(0x04, 0x60);
SBlRegSet(0x04, 0x80);
if((pp - 0xc0) == 0) {goto_xy(18,1);
printf("Все ОК, карта SB установлена"); }
else {goto_xy(4,5);printf(" Необходимая звуковая карта не обнаружена!!!");
getch();}
}





Составить ответ | Вернуться на конференцию

Ответы


Отправка ответа
Имя*: 
Пароль: 
E-mail: 
Тема*:

Сообщение:

Ссылка на URL: 
URL изображения: 

если вы незарегистрированный на форуме пользователь, то
для успешного добавления сообщения заполните поле, как указано ниже:
введите число 387:

Перейти к списку ответов | Конференция | Раздел "Электроника" | Главная страница | Карта сайта

Rambler's Top100 Рейтинг@Mail.ru
 
Web telesys.ru