-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathsound.inc
101 lines (91 loc) · 3.16 KB
/
sound.inc
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
;=========================================================================
; sound.inc - Play power-on sound. This also tests PIT and PORT B functionality
;-------------------------------------------------------------------------
;
; Compiles with NASM 2.07, might work with other versions
;
; Copyright (C) 2011 - 2012 Sergey Kiselev.
; Provided for hobbyist use on the Xi 8088 board.
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;=========================================================================
notes dw pic_freq/554 ; D flat
dw -1 ; silent
dw pic_freq/227 ; D flat
dw pic_freq/370 ; G flat
dw pic_freq/227 ; D flat
dw pic_freq/415 ; A flat
dw 0
;=========================================================================
; sound - Play power-on sound.
; Input:
; none
; Output:
; none, destroys some registers
;-------------------------------------------------------------------------
sound:
cld
mov si,notes ; set SI to notes table
mov al,0B6h ; set PIC channel 2 to mode 3
out pit_ctl_reg,al
.loop:
cs lodsw ; load next note to AX
cmp ax,0
jz .exit
jl .silent ; don't turn on speaker if silent note
out pit_ch2_reg,al ; load divisor's low byte to PIC
mov al,ah
out pit_ch2_reg,al ; load divisor's high byte to PIC
in al,port_b_reg ; read current value of PORT B
or al,03h ; turn on the speaker
out port_b_reg,al ; write the new value
.silent:
mov cx,3000h
call delay_15us ; delay while note is playing
in al,port_b_reg ; read current value of PORT B
and al,0FCh ; turn off the speaker
out port_b_reg,al ; write the new value
mov cx,0100h
call delay_15us ; delay after the note
jmp .loop ; play the next note
.exit:
ret
;=========================================================================
; beep - Play a beep sound
; Input:
; BL - duration in 0.1 second
; Output:
; BL = 0
;-------------------------------------------------------------------------
beep:
push ax
mov al,0B6h ; set PIC channel 2 to mode 3
out pit_ctl_reg,al
mov ax,1193 ; approximately 1000 Hz
out pit_ch2_reg,al ; load divisor's low byte to PIC
mov al,ah
out pit_ch2_reg,al ; load divisor's high byte to PIC
in al,port_b_reg ; read current value of PORT B
or al,03h ; turn on the speaker
out port_b_reg,al ; write the new value
.loop:
mov cx,6666 ; 0.1 second delay
call delay_15us
dec bl
jnz .loop
xor al,03h ; turn off the speaker
out port_b_reg,al ; write the new value
pop ax
ret