пример работы со звуком

@KIRASIR · Регистрация: 24.03.2010

Студворк — интернет-сервис помощи студентам

нужно написать прогу генерации звука любой частоты с любой продолжительностью. все на тасме под дос.

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
s_s segment stack "Stack"
         db 100 dup(?)
s_s ends
 
d_s segment
 
se dw 9
 
d_s ends
 
c_s segment
           assume ss:s_s,ds:d_s,cs:c_s
beg:
         mov  ax,d_s
         mov  ds,ax
         mov al,0b6h
         out 43h,al
         mov dx,12h
            mov ax,34dch
         mov cx,784
         div cx
         out 42h,al    
         mov al,ah
         out 42h,al    
         in al,61h
         or al,00000001b
         or al,00000010b
         out 61h,al
         cli
         mov al,se      
         mov cl,18        
         mul cx           
         mov sum,al        
         mov ah,0   
         int 1ah
         add dl,sum         
         mov bx,dx
         
         and al,11111100b
         out 61h,AL
         sti
         mov ah,4ch
         int 21h
 
c_s ends
        end beg

совсем чуток разобрался с задержкой но все равно не получается, подскажите плз.

@Tronix · 15.10.2010, 19:51

Есть такое. Процедура Sound скомунизжена из RTL библиотеки Crt паскаля. Процедура Delay завязана на прерывании 1a, значения которого обновляются 18.2 раза в секунду, поэтому надо там подбирать...

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
.model tiny
.code
.startup
 
    mov bx,1000 ; 1000 Hz
    call Sound  
    mov cx,10   ; ~1 sec
    call Delay
    ret
 
; Start sound generator
; BX = frequency
 
Sound:
    MOV AX,34DDH
    MOV DX,0012H
    CMP DX,BX
    JNC SL2
    DIV BX
    MOV BX,AX
    IN  AL,61H
    TEST    AL,3
    JNZ SL1
    OR  AL,3
    OUT 61H,AL
    MOV AL,0B6H
    OUT 43H,AL
SL1:    MOV AL,BL
    OUT 42H,AL
    MOV AL,BH
    OUT 42H,AL
SL2:    RET
 
; Turn off sound generator
 
NoSound:
 
    IN  AL,61H
    AND AL,0FCH
    OUT 61H,AL
    RET
 
; Delay specified number of milliseconds
; CX = milliseconds
delay:
        push    cx
        xor     ah,ah
        int     1Ah
        pop cx
        add     dx,cx   ;cx * 18.2
        mov     bx,dx
d_loop:
        int     1Ah
        cmp     dx,bx
        jne     d_loop
        ret
 
end

@KIRASIR · 16.10.2010, 12:01 **[ТС]**

Сделал прерывание немного по другому, только звука не слышно, или просто потому что в ноуте нет динамика.

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
s_s segment stack "stack"
 
db 100 dup(?)
 
s_s ends
 
d_s segment
 
sec dw 10
 
d_s ends
 
c_s segment
 
beg:
 
assume ss:s_s,ds:d_s,cs:c_s
 
mov ax,d_s
 
mov ds,ax
 
mov al,0b6h
 
out 43h,al
 
mov dx,12h
 
mov ax,34dch
 
mov cx,523
 
div cx
 
out 42h,al
 
mov al,ah
 
out 42h,al
 
in al,61h
 
or al,00000001b
 
or al,00000010b
 
out 61h,al
 
clI
 
mov ax,sec                
 
mov cx, 18  
 
mul cx                      
 
mov sec,ax                  
 
mov ah,0   
 
int 1Ah
 
add dx,sec                                               
 
mov bx,dx                  
 
repeat:
 
int 1Ah
 
cmp dx,bx
 
jne repeat
 
mov ah,0
 
int 1ah
 
and al,11111100b
 
out 61h,al
 
StI
 
mov ah,4ch
 
int 21h
 
c_s ends
 
end beg

@KIRASIR · 18.10.2010, 16:39 **[ТС]**

все сделал.

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
s_s segment stack "stack"
db 100 dup(?)
s_s ends
d_s segment
sec dw 10
d_s ends
c_s segment
beg:
assume ss:s_s,ds:d_s,cs:c_s
mov ax,d_s
mov ds,ax
mov al,0b6h
out 43h,al
mov dx,12h
mov ax,34dch
mov cx,523
div cx
out 42h,al
mov al,ah
out 42h,al
in al,61h
or al,00000001b
or al,00000010b
out 61h,al
cli
mov ax,sec              
mov cx, 18   
mul cx                       
mov sec,ax                 
mov ah,0   
int 1Ah
add dx,sec                
mov bx,dx                 
repeat:
int 1Ah
cmp dx,bx
jne repeat
and al,11111100b
out 61h,al
StI
mov ah,4ch
int 21h
c_s ends
end beg

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .