Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Работа с системным таймером.  (Прочитано 4435 раз)
0 Пользователей и 1 Гость смотрят эту тему.
KBAC
Постоялец

ru
Offline Offline
Пол: Мужской

« : 01-06-2012 14:17 » 

Системный счетчик 8254, который вырабатывает прерывание int 8h - чтобы точно все поняли о чем идет речь.
Надо по нажатию клавиши выдавать звуковой сигнал. Я это делаю через канал 2 счетчика, запрограммированного в 3 режим на нужную частоту (примерно 100Гц).
Что-то работает не так как я хочу. Не включается динамик при отладке и при запуске проги. Процедура Delay при отладке повела себя должным образом. Запускаю под виртуалкой Windows XP, компилятор TASM, отладчик тот же.
Код: (ASM)
;=================
; Beep
;===================
Bdeni proc
        push ax
       
        ; programming timer for channel 2
;manage string: SC RW M BCD настраиваем на чтение/запись второй канал
        mov al,         10 11 011 0b
        out timer_MR,al                                 ; send to chan
       
        mov ax,1193             ; 100 Hz
        out timer_channel_2,al
        mov al,ah
        out timer_channel_2,al
       
        ; turning on loudspeaker
        in al,loudspeaker_MR
        or al,03h       ; last two bytes is 1 for channel 2 and for loudspk
        out loudspeaker_MR, al
       
        ; delay for not intermediate off of ldspk
        call delay
       
        ; turning off loudspeaker
        in al,loudspeaker_MR
        add al,11111100b        ; last two bytes is 1 for channel 2 and for loudspk
        out loudspeaker_MR, al
       
        pop ax
        ret
Bdeni endp

;=====================
; work with channel 0
;=====================
delay proc
        push ax
        push bx
       
        call ReadOL_ch0 ; read timer in channel 0
        mov bx,ax ; old val to bx
       
Delay1:
                call ReadOL_ch0
               
        cmp bx,ax
        jg CMP1
        jz Delay1
        jb CMP2
       
CMP1: ; old > new
                sub bx,ax
                cmp bx,loudspeaker_lngt
                jae end1
                jmp Delay1
               
CMP2: ; old < new
                sub bx,ax
                neg bx
                cmp bx,loudspeaker_lngt
                jb Delay1
end1:
        pop bx
        pop ax
        ret
delay endp

;================================
; Read Ol of channel0
; output - ax
;=================================
ReadOL_ch0 proc
        mov al, 11 00 100 0b ; rbc for reading CE channel0
        out timer_MR,al
       
        mov al, 00 00 000 0b ; manage str for read OL without interrupt ticking of timer
        out timer_MR,al
       
        xor ax,ax
        in al,timer_channel_0 ; young byte
        xchg ah,al      ; rem young byte
        in al,timer_channel_0 ; old byte
        xchg al,ah ; make proper number
       
        ret
ReadOL_ch0 endp
В нажатиях клавиш я уверен, но если что :
Код: (ASM)
main:
        call ClearScreen
       
        call ReadImr
        mov al,imr
        call ByteToHex
       
        lea dx,buffer
        call PrintStr_bios
       
        call BlockKeyboard
       
        lea dx,blockmsg
        call PrintStr_bios
        lea dx,endl
        call PrintStr_bios
       
        waiting:
                mov al,0Ah      ; irr read command
                out 20h,al
                ; nop
                in al,20h       ; read irr
                ; nop
                and al,00000010b ; analizing irr. zero if there isn't any active
                jz waiting
       
        xor ax,ax
        in al,60h  ; get byte-code of pushing key
       
        and al,01111111b ; get rid of first byte (press/release button)
        call ByteToHex
        lea dx,buffer
        call PrintStr_bios
       
        call Bdeni
       
        cmp al,01h ; esc was pushed
        je progover
       
        call UnblockKeybooard
       
        ; pause for clear stdout
        mov ah,00h
        int 16h
       
        jmp main
       
progover:
        lea dx,endmsg
        call PrintStr_bios
       
        call UnblockKeybooard
       
        ; pause
        mov ah, 00h
        int 16h
       
        ret ; return to 000h on int 20h
Байты в директивах мов разбиты для удобства чтения.
« Последнее редактирование: 01-06-2012 14:25 от KBAC » Записан

У тебя все получится, главное -- верить и делать.
Порадоваться, когда все плохо -- легче, чем ты думаешь.
В действии счастье.
Вовлекая людей важно быть увлеченным чужой жизнью.
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #1 : 01-06-2012 14:53 » new

XP позаоляет в юзер моде работать с оборудованием напрямую? что то я сомневаюсь.
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines