汇编源码--sound

原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:1来源：未知

; sound.asm
;
; This is a small sound example for the IBM PC
; It will play 12 notes of the octave starting at middle C.
;-----------------------------------------------------------------------------
; How to generate sound on the IBM PC :
;
; The 8255 (port 61H) bit 0 controls the 8253 timer
; bit 1 controls the speaker
;
; The output channel 2 from the 8253 timer will be ANDed with the
; speaker control bit in order to turn on/off the speaker.
;
; Timer channel 2 internal count register (port 42h) is loaded in
; two successive OUT operations with the lower byte being loaded first.
; For this to work properly, timer command register has to be loaded first
; with B6H.
;
; Since the input clock to the timer chip is 1.19318 MHz, the counter value
; to generate the frequency X can be calculated by 1193180 / X.
;-----------------------------------------------------------------------------
; CX is used as a note counter with the frequency effectively being
; incremented by a half tone and the corresponding count being loaded
; into the count register on each iteration.
;
; No stack segment is needed for this small program, so don't panic
; when you receive the 'No stack segment' warning.
;
; Arne Asplem 880731 (MASM 4.0)

dseg segment ; data segment
notes dw 262,277,294,311,330,349,370,392,415,440,466,494
dseg ends

cseg segment

sound proc far
assume cs:cseg, ds:dseg, ss:nothing

start:
mov ax, dseg
mov ds, ax ; set up data segment (DS) reg.
xor si, si
mov bx, 12 ; note count

; set up timer command register and counter register

mov al, 0b6h ; set 8253 command register
out 43h, al ; for channel 2, mode 3

nloop:
mov ax, 34dch ; low part of clock freq.
mov dx, 12h ; hight part of clock freq.
div [notes si] ; get note from data segment
out 42h, al ; 8253 command register (low byte)
mov al, ah
out 42h, al ; 8253 command regsieter (high byte)

; turn on low bits in 8255 output port

in al, 61h ; read current value of 8255 port
or al, 3 ; clear low bits
out 61h, al ; send new value to port

; loop while note is sounding

mov cx, 6d60h

rpta:
loop rpta ; 1/10 sec delay

; turn off speaker, check note count, set up next note

xor al, 3
out 61h, al ; turn off speaker
mov cx, 0af0h

rptb:
loop rptb ; 1/100 sec delay
inc si ; increment note pointer
inc si
dec bx ; decrement note counter

jnz nloop ; loop until bx = 0

mov ax, 4c00h ; terminate program
int 21h

sound endp
cseg ends
end start

本页地址

• DOS6.0源程序中的硬盘引导记录源程序FDBOOT

• 汇编语言制作的光带菜单及源程序(1.0)

• GET TIME OF DAY(获取时间)

• 侦测CPU型号