function.asm

PC计算机钢琴程序子程序： 包括以下资料 软件：提取音乐代码的软件工具(自己用VB写的) 资料：所有与按键和PC Sound有关资料 唱歌：包括歌曲有 聚萍、同一首歌、月亮代表我的心、美丽的神

;/*---------------------------*/
;代码区
data 	segment
	assume		ds:data
msg_1   db	0dh,0ah,'I love you!$'	
data	ends
;/*---------------------------*/



;/*---------------------------*/
;代码段定义
code    segment
        assume		cs:code
;/*---------------------------*/



;/*---------------------------*/
;字符显示
show	macro 		str
        lea		dx,str
        mov 		ah,09h
        int 		21h
        endm
;/*---------------------------*/




;/*---------------------------*/
;主函数
main	proc		far
	mov 		ax,data			;取数据段地址
	mov 		ds,ax			;设定DS
	show		msg_1
main	endp
code	ends
	end		main
;/*---------------------------*/



;/*---------------------------*/
;按任意键结束
anykey  proc		near
	mov 		ah,0bh
	int 		21h
	cmp		al,00h
	jnz		exit		;有输入就退出				
	ret				;否则
anykey	endp
;/*---------------------------*/



;/*---------------------------*/
;退出
exit:
        mov 		ah,4ch
        int 		21h
;/*---------------------------*/



;/*---------------------------*/
;退出
exit	proc		near
        mov 		ah,4ch
        int 		21h
	ret
exit    endp
;/*---------------------------*/



;/*---------------------------*/
;输入(带显示)
;输入字符存放在al中
input   proc		near
	mov 		ah,01h
	int 		21h
	ret
pause	endp
;/*---------------------------*/



;/*---------------------------*/
;设置黑白显示模式
;set video mode  Text mode 40x25, 16 colors, 8 pages.
set_video  proc		near
	mov 		ah,00h
	mov 		al,00h		
	int 		10h
	ret
set_video  endp
;/*---------------------------*/





;/*---------------------------*/
;设置彩色全屏显示模式
set_video  proc		near
        mov 		ah,00		;320*200彩色屏幕
        mov 		al,04
        int 		10h
        mov 		ah,0bh		;背景色              
        mov 		bh,00
        mov 		bl,1
        int 		10h
	ret
set_video  endp
;/*---------------------------*/