TP-SPD/sound.asm at master · UlisesZag/TP-SPD · GitHub

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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

; ------------------------------------------------------------------
; http://muruganad.com/8086/8086-assembly-language-program-to-play-sound-using-pc-speaker.html
; os_play_sound -- Play a single tone using the pc speaker
; IN: CX = tone, BX = duration

;EN EL MAIN

;mov cx, 9121
;mov bx, 25
;call play

  ; sii dw 2415
  ; la  dw 2711
  ; sol dw 3043
  ; fa  dw 3416
  ; mi  dw 3619
  ; re  dw 4061
  ; do  dw 4560

  ; F_low dw 6833
  ; Fsh_low dw 6449
  ; Gsh_low dw 5746
  ; Ash_low dw 5119

  ; C dw 4560
  ; Csh dw 4304
  ; D dw 4063
  ; Dsh dw 3834
  ; E dw 3619
  ; F dw 3416
  ; Fsh dw 3224
  ; G dw 3043
  ; Gsh dw 2873


.8086
.model small
.stack 100h
.data

.code

    public play
    play proc
        play:
        push ax
        push cx
        push bx
        mov     ax, cx

        out     42h, al
        mov     al, ah
        out     42h, al
        in      al, 61h

        or      al, 00000011b
        out     61h, al

        pause1:
            mov cx, 65535

        pause2:
            dec cx
            jne pause2
            dec bx
            jne pause1

            in  al, 61h
            and al, 11111100b
            out 61h, al

        pop bx
        pop cx
        pop ax

        ret
    play endp

    public play_snd_hit
    play_snd_hit proc
        mov cx, 1200
        mov bx, 30
        call play

        mov cx, 1560
        mov bx, 25
        call play

        ret
    play_snd_hit endp

    public play_snd_miss
    play_snd_miss proc
        mov cx, 9340
        mov bx, 35
        call play

        mov cx, 8450
        mov bx, 25
        call play

        ret
    play_snd_miss endp

    public play_snd_bounce
    play_snd_bounce proc
        mov cx, 8000
        mov bx, 20
        call play

        ret
    play_snd_bounce endp

    public play_snd_select
    play_snd_select proc
        mov cx, 1000
        mov bx, 15
        call play

        ret
    play_snd_select endp

    public play_snd_welcome_to_dosu
    play_snd_welcome_to_dosu proc
        mov cx, 1809
        mov bx, 100
        call play

        mov cx, 2031
        mov bx, 100
        call play

        mov cx, 2711
        mov bx, 100
        call play

        mov cx, 3043
        mov bx, 100
        call play

        mov cx, 4063
        mov bx, 100
        call play

        mov cx, 3619
        mov bx, 300
        call play

        mov cx, 3224
        mov bx, 500
        call play

        ret
    play_snd_welcome_to_dosu endp
end