Народ, а у меня вот такой вот вопрос, он мне не дает покоя уже очень долго. Вобщем требуется сгенировать звук. Один из вариантов кода у меня вот такой вот
dosseg
.model small
.stack 100h
.data
beat db 18,9,6,6,9,9,9,9,9,9,18,18,18,18
; длительность нот
; таблица частот
freq dw 0,2280,2031,1809,1709,1521,1353
dw 1207,1139,1140,1015,905,855,760
dw 676,604,569,3420,3016,2714,2564
dw 2271,2030,1811,1709
; номер частоты ноты
melody db 7,1,7,8,10,12,7,13,12,11,10,8,7,0ffh
.code
mov ax,@data
mov ds, ax
com_reg equ 43h
latch2 equ 42h
port_b equ 61h
in al, port_b
or al, 11b
out port_b, al
mov si, 0
mov al, 0b6h
out com_reg, al
next: lea bx, melody
mov al, [bx+si]
cmp al, 0ffh
je no_mor
cbw
mov bx, offset freq
dec ax
shl ax, 1
mov di, ax
mov dx, [bx+di]
mov al, dl
out latch2, al
mov al, dh
out latch2, al
mov ah, 0
int 1ah
mov bx, offset beat
mov cl, [bx+si]
mov ch, 0
mov bx, dx
add bx, cx
st_sou: int 1ah
cmp dx, bx
jne st_sou
inc si
jmp next
no_mor: in al, port_b
and al, 0fch
out 61h, al
mov ah,4ch
int 21h
end
Это не единственный варинт. Главное то, что никаким звуком и не пахнет никак. Код вот этот я уже выдрал из методички... Пробывал запустить программу на ноутбуке, там виста стоит - динамик просто немного шипит, будто портит воздух, но нужного тона нету. Потом попробывал на стационарном компе запустить, тоже не помогло.
Может кто-то сталкивался, в чем может быть проблема?