5621-1 (661240), страница 2
Текст из файла (страница 2)
start endp ; Кінець основної процедури
ton2 proc near ; Процедура генерації звука 2
mov dx,duration ; Тривалість
mov di,frequency2 ; Коефіцієнт ділення 2
jmp ton0 ; Перехід на універсальну процедуру
ton1 proc near ; Процедура генерації звука 1
mov dx,duration ; Тривалість
mov di,frequency1 ; Коефіцієнт ділення 2
; Універсальна процедура генерації звука
; DX - тривалість, DI - коефіц. ділення
ton0 proc near
cli ; Заборона переривань
; Включення динаміка і таймера
in al,61h ; Читання стану системного порта В
or al,3 ; Дозвіл звучання (біти 0 и 1)
out 61h,al ; Запис в системний порт В
; Програмування поділювача частоти 2 канала
mov ax,di ; Поділювач частоти
out 42h,al ; Мол.байт частоти канал 2 таймера
xchg al,ah ; AH AL
out 42h,al ; Ст.байт частоти канал 2 таймера
; Формування затримки
mov cx,dx ; Лічильник циклу затримки
ton01: push cx ; Команди, що використовуються тільки для
pop cx ; збільшення трив. цикла затримки
loop ton01 ; Затримка
; Виключення звука
in al,61h ; Читання стану системного порта В
and al,0fch ; Заборона звучання (биты 0 и 1)
out 61h,al ; Запис в системний порт В
sti ; Дозвіл переривань
ret ; Вихід з піроцедури
ton0 endp ; Кінець універсальної процедури
ton1 endp ; Кінець процедури генерації звука 1
ton2 endp ; Кінець процедури генерації звука 2
kbin proc near ; Ввод з клавіатури і перевірка на вибір гри
kbin endp
code ends ; Кінець сегмента (кодового)
END Start ; Вказівка на точку входу
Список литературы
Финогенов К. Г. «Самоучитель по системным функциям MS-DOS». М.: 1993.
Пирогов В. Ю. «Ассемблер. Учебный курс».
В контрольній роботі також використовувались матеріали сайту http://www.BankReferatov.ru ,перекладені на українську мову.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
