sounce1.asm

这个源代码是可运行的。

	.model tiny
	.stack
	.data
hz  dw 32900,32900,34900,44000,44000,34900,32900,29300,26100,26100,29300,32900,32900,29300,29300
	.code
	.startup
	mov cx,1
	mov si,offset hz
begain:	mov ah,01
	int 21h
	mov di,[si]
	call speaker 
	inc cx
	add si,2
	 cmp cx,16
	jnz begain

	.exit 0
speaker  proc
	push ax
	push bx
	push cx
	push dx
	mov al,0b6h
	out 43h,al
	mov dx,12h
	mov ax,533h*896
	div di
	out 42h,al
	mov ah,al
	out 42h,al
	in al,61h
	mov ah,al
	or al,03h
	out 61h,al
	mov bx,10000
l1:	mov cx,28010
wait1:	loop wait1	 						;call  speaker_on
	dec bx
	jnz l1
	
	mov al,ah
	out 61h,al	
	pop dx
	pop cx
	pop bx
	pop ax
	ret
speaker	endp

	end