помогите вставить какой-нибудь звук в эту программу

@kollega93 · Регистрация: 18.12.2011

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

программа выводит на экран 4 прямоугольнику разных цветов, при работе программы произвольно изменяются цвета на экране каждую секунду
нужно чтобы ещё производился кокой-то звук

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
        .model  tiny
        .code
               org      100h
main:
                push    cs
                pop     ds
                push    0B800h
                pop     es
                mov     cx, 25          ; lines
lines:          push    cx
                mov     cx,4
                mov     si, offset colors
onelin:         lodsw
                call    _seg_
                loop    onelin
                pop     cx
                loop    lines           
 
                mov     ax, 351Ch                                     ; получить в ES:BX адрес прерывания 8h
                int     21h
                mov     word ptr old_int1C, bx     ; запомним старый адрес 08
                mov     word ptr old_int1C+2, es    ; прерывания
                mov     ax, 251Ch                                             ; установим вектор на 08
                mov     dx, offset _int1C        ; прерывание
                int     21h
                xor     ah, ah
                int     16h
 
remove: 
                lds     dx, dword ptr old_int1C    ; возвращаем вектор прерывания на место
                mov ax, 251Ch
                int 21h
exit:                                   ; выход
                int 20h
_seg_:          push    cx
                mov     cx, 20
                rep     stosw
                pop     cx
                ret
 
_int1C:         pushf
                inc     byte ptr cs:flag
                cmp     byte ptr cs:flag,18     ; got 1 sec. signal?
                jz      @@1                     ; yes, processing
@@0:            popf
                jmp     dword ptr cs:old_int1C          ; go back
@@1:            mov     byte ptr cs:flag, 0
.386
                pusha
.286
                push    es
                push    ds
                mov     ax,0B800h
                mov     ds,ax
                mov     es,ax
                xor     si,si
                xor     di,di
                mov     cx, 80*25
@@2:            lodsw
                inc     ah
                and     ah,0Fh
@@3:            stosw
                loop    @@2
                pop     ds
                pop     es
.386
                popa
.286
                jmp     @@0
old_int1C:      dd      ?
flag:           db      0
colors:         DW 0EDBh, 01DBh, 02DBh, 04DBh
                end     main

@zhan313 · 24.12.2011, 20:42

Скэнлон в помощь, Глава 8. (с примерами простых мелодий)

@Mikl___ · 26.12.2011, 09:13

kollega93, а почему бы непосредственно не обратиться к Charles Kludge -- автору программы в #1?

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@zhan313 85 / 85 / 38 Регистрация: 09.12.2011 Сообщений: 174
	24.12.2011, 20:42
	Скэнлон в помощь, Глава 8. (с примерами простых мелодий) 0

@Mikl___ Ушел с форума 16373 / 7685 / 1080 Регистрация: 11.11.2010 Сообщений: 13,759
	26.12.2011, 09:13
	kollega93, а почему бы непосредственно не обратиться к Charles Kludge -- автору программы в #1? 0