Прерывание от таймера

[LowGree]

Пытаюсь написать программу, которая перехватывает прерывание таймера и выдает звуковой сигнал каждую секунду, но не получается вызвать звуковой сигнал

dely    macro time              
        local zd,c1,cikl,ii,ii1 
        push cx   
        push es              
        push bx                 
        push bp                                
        push dx                 
        mov cx,time             
zd:     push cx                 
        mov bp,0                
        mov bx,1                
cikl:   
        inc BP                  
        mov ah,00h                     
        int 1Ah                 
        cmp BP,1                
        je ii                   
        jmp ii1                 
ii:     add bx,dx                
ii1:                            
        cmp bx,dx                
        jne cikl                 
        pop cx                   
        loop zd                 
        pop cx 
        pop es                  
        pop bx                  
        pop bp                                    
        pop dx                  
        endm                    
Text	  segment 'code'        	        
	  assume CS:text,DS:data
                                
Sound1   proc                  
                int 1Ah
                in al, 61h
                or al, 10000011b
                out 61h, al
                and al, 01111111b
                out 61h,al
                
                mov al, 10100110b
                out 43h,al
                mov al,22
                out 42h, al
               
                push es
                mov ax, 040h
                mov es,ax
                mov al,es:[017h]                                
                xor al, 64
                mov es:[017h],al
                mov al,es:[018h]
                or al, 64
                mov es:[018h], al
                
                pop es
                
               mov al, 20h
                out 20h,al                
          ret                 
Sound1   endp                  
                                
Zadergka   proc                 
                mov bp,1        
mig:                            
                call Sound1   
                dely 18               
                inc bp          
                cmp bp,1        
                je  changS  
                mov ah,06h      
                mov dl,0ffh     
                int 21h          
                cmp al,44h      
                jne mig         
                jmp ex                 
changS:      
                mov bp,3        
                jmp mig         
ex:                             
          ret                   
Zadergka   endp                    
                                
Main            proc   
                ; int 21h
                 call Zadergka      	 

	                             
	mov ax,4C00h	
	int 21h	        
main            endp            
text            ends            
  data            segment         
data            ends            
        

stk             segment stack 'stack'
                dw 128 dup (0)  
stk             ends            
		end main

[R71MT]

Сообщение от LowGree

не получается вызвать звуковой сигнал

Попробуй пикнуть бипером так:

Sound    proc
     push ax 
     mov  al,7
     int  29h
     pop  ax
     ret
Sound    endp

[LowGree]

Написал, но результат не изменился, звука так и нет. Делаю на ноуте, win XP, как я понял порты 42h, 43h, 61h на нем отсутствуют, поэтому наверно первичный вариант не работает, может можно в нем как-нибудь заменить порты?

[R71MT]

Сообщение от LowGree

Делаю на ноуте

А у него есть вообще спикер?

[R71MT]

Порт(61h) давно перекочевал в системную логику, хотя может эмулироваться

[LowGree]

Да, есть и звук на максимум поставлен

[LowGree]

Мне удалось вызвать два звуковых сигнала другой программой, но я не уверен, что они были вызваны работой программы, а не возникшей ошибкой

.286
.model tiny
.code
org 100h
start: 
    mov ax,3
    int 10h
    mov ah,9
    ;mov dx,offset string1
    int 21h
a0: mov ah,1
    int 16h
    jnz exit
    mov ah,0 
    int 1Ah
    mov bx, dx
    add bx, 18 
a1:  
                int 1Ah
                in al, 61h
                or al, 10000011b
                out 61h, al
                and al, 01111111b
                out 61h,al
                
                mov al, 10100110b
                out 43h,al
                mov al,22
                out 42h, al
               
                push es
                mov ax, 040h
                mov es,ax
                mov al,es:[017h]                                
                xor al, 64
                mov es:[017h],al
                mov al,es:[018h]
                or al, 64
                mov es:[018h], al
                
                pop es
                
               mov al, 20h
                out 20h,al        
    jmp a0
exit:   retn
;string db ?,?,':',?,?,':',?,?,0Dh,'$'
;string1 db '$'
end start

[7in]

Попробуйте для начала вообще звук воспроизвести без перехвата прерывания.

.model tiny
.code
.startup

	mov	ax,500
	call	Sound

	mov	ah,86h
	mov	cx,15
	int	15h

	call	NoSound
		
	int	20h

Sound   proc    near
        xchg    bx,ax        ; Частота
        mov     dx,12h       ; (DX,AX)=1193181
        cmp     bx,dx        ; Если Bx <= 18Гц, то выход
        jbe     Done         ; Чтобы избежать переполнения
        in      al,61h       ; Порт РВ
        or      al,3         ; Установить биты 0-1
        out     61h,al
        mov     al,10110110b ; Управляющее слово таймера: канал 2, режим 3, двоичное слово
        out     43h,al       ; Вывод в регистр режима
        mov     ax,34DDh
        div     bx           ; AX=(DX:AX)/BX
        out     42h,al       ; Младший байт счетчика
        mov     al,ah
        out     42h,al       ; Старший байт счетчика
Done:   ret
Sound   endp

;─────────────────────────────────────────────────;

; Процедура NoSound: выключение звука
NoSound proc    near
        in      al,61h    ; Порт РВ
        and     al,not 3  ; Сброс битов 0-1
        out     61h,al
        ret
NoSound endp

end

[7in]

Глянул прогу краем глаза:
1. зачем выводить 7-й бит (ошибка чётности) в порт 61h?
2. функции DOS (в частности, от 1 до 0Ch) крайне не рекомендуется использовать в TSR (по крайней мере, без проверки InDOS-флага), используйте лучше xor ah,ah/int 16h (вместо ah=6/int 21h)
3. собственно, перехвата прерывания я здесь вообще не вижу...