dz.asm

音乐盒功能

data segment
bg db 0ah,0dh,"tu TIGETS:$"
freq dw 2 dup(262,294,330,262)
dw 2 dup(330,349,392)
dw 2 dup(392,440,392,349,330,262)
dw 2 dup(294,196,262),0
;FREQ中存入频率表
time dw 1000 dup(2500),5000,2500,2500,5000
dw 2 dup(1200,1200,1200,1200,2500,2500)
dw 2 dup(2500,2500,5000) 
;TIME中存入节拍表
data ends

stack segment para stack 'stack'
dw 100 dup(?)
stack ends

code segment
assume cs:code,ds:data,ss:stack
start proc far
push ds
xor ax,ax;或mov ax,0
push ax
mov ax,data
mov ds,ax
mov dx,offset bg
mov ah,09h ;功能能调用
int 21h
mov si,offset freq ;SI指向频率表
mov bp,offset time ;BP指向节拍表
call sing ;调用SOUND
mov ah,4ch
int 21h
start endp

sing proc near ;SING程序
push di
push si
push bp
push bx
repts: mov di,[si];声音频率->DI
cmp di,0 ;频率为0？
je endsing ;若为0则转否则顺序
mov bx,ds:[bp] ;节拍－>声音频率
call sound ;调用SOUND子程序
add si,2
add bp,2
jmp repts
endsing: pop bx
pop bp
pop si
pop di
ret
sing endp

sound proc near ;SOUND程序
push ax
push bx
push cx
push dx
push di
mov al,0b6h ;先LSB后MSB
out 43h,al ;向8023发命令 编程2＃通道 按照方式3工作

mov dx,12h
mov ax,0ffffh ;时钟频率
div di
out 42h,al ;此时计数值在AX中

mov al,ah
out 42h,al ;向42H送入频率对应值

in al,61h
mov ah,al
or al,3
out 61h,al ;通过8255打开扬声器门 发声

delay: mov cx,2801h
dl10ms: loop dl10ms ;延时
dec bx
jnz delay
mov al,ah
out 61h,al ;关门
pop di
pop dx
pop cx
pop bx
pop ax
ret
sound endp
code ends
end start