p280通用发生程序.asm

来自「汇编子程序 大学课程设计需求者的最爱」· 汇编 代码 · 共 41 行

;功能：通用的发生子程序
;参数：di为频率，bx为10ms的倍数
;返回值：无

gensound proc far
	push ax
	push bx
	push cx
	push dx
	push di

	mov al,0b6h
	out 43h,al
	mov dx,12h
	mov ax,533h*896
	div di
	out 42h,al
	mov al,ah
	out 42h,al
	in al,61h
	mov ah,al
	or al,3
	out 61h,al

wait1:	mov cx,2801
delay:	loop delay
	dec bx
	jnz wait1
	mov al,ah
	out 61h,al

	pop di
	pop dx
	pop cx
	pop bx
	pop ax

	ret
gensound endp
;宇光制作