welcome.asm

80X86的一些例子程序

;******************************************************
;* 文件名:Welcome.asm
;* 创建日期:2001.4.12
;* 作者:陈文尧
;* 功能:显示欢迎词并用喇叭播放《友谊地久天长》
;******************************************************
include system.inc

;******************************************************
;* 以下代码由汇编专家产生,不要随便修改
;******************************************************
.CODE
	ifdef __COM__
		org	100h
	endif
@@Start:
;------------------------------------------------------
; 初始化数据段
;------------------------------------------------------
	InitDS	cs
;------------------------------------------------------
; 调用主函数
;------------------------------------------------------
	call	main
;------------------------------------------------------
; 正常返回DOS
;------------------------------------------------------
	ReturnDos

;++++++++++++++++++++++++++++++++++++++++++++++++++++++
;+ 主函数,加入实现程序功能的代码
;++++++++++++++++++++++++++++++++++++++++++++++++++++++
main	proc
      LibCall	Cls
      LibCall	HideCursor
      mov		di,CR_WHITE	
      LibCall	PutStringDirect,<offset ReturnMsg>,0,di
First:
      mov		si,offset MUSIC
Next:
      mov		bx,[si]	
      LibCall	PutStringDirect,<offset WelcomeMsg>,80d*08d+25d,di
      inc		di
      add		si,02h
      cmp		di,10h
      jne		Skip
      mov		di,01h
Skip:
      mov		ax,bx 
      shr		ax,06h
      and		bx,003fh
      LibCall	Sound,ax
LoopTop:
      LibCall	Delay,40h
      dec		bx
      jg		LoopTop
      LibCall	NoSound
      mov		ah,0bh
      int		21h
      cmp		al,00h
      jnz		ProgramEnd
      cmp		si,MUSIC_END
      jl		Next
      LibCall	Delay,2500d
      jmp		First
ProgramEnd:
      LibCall	ShowCursor,00h ;显示正常光标（非实心光标）
      LibCall	Cls
      ;
	ret
main	endp

MUSIC     DW  196*64+2*MULT,262*64+3*MULT,262*64+1*MULT,262*64+2*MULT
          DW  330*64+2*MULT,294*64+3*MULT,262*64+1*MULT,294*64+2*MULT
          DW  330*64+1*MULT,294*64+1*MULT,262*64+4*MULT,330*64+2*MULT
          DW  394*64+2*MULT,440*64+4*MULT,440*64+2*MULT,394*64+3*MULT
          DW  330*64+1*MULT,330*64+1*MULT,262*64+1*MULT,294*64+3*MULT
          DW  262*64+1*MULT,294*64+2*MULT,330*64+1*MULT,294*64+1*MULT
          DW  262*64+3*MULT,230*64+1*MULT,230*64+2*MULT,196*64+2*MULT
          DW  262*64+7*MULT,440*64+2*MULT,394*64+3*MULT,330*64+1*MULT
          DW  330*64+1*MULT,262*64+1*MULT,294*64+3*MULT,262*64+1*MULT
          DW  294*64+2*MULT,440*64+2*MULT,394*64+3*MULT,330*64+1*MULT
          DW  330*64+2*MULT,394*64+2*MULT,440*64+7*MULT,523*64+2*MULT
          DW  394*64+3*MULT,330*64+1*MULT,330*64+1*MULT,262*64+1*MULT
          DW  294*64+3*MULT,262*64+1*MULT,294*64+2*MULT,330*64+1*MULT
          DW  294*64+1*MULT,262*64+3*MULT,230*64+1*MULT,230*64+2*MULT
          DW  196*64+2*MULT,262*64+7*MULT,440*64+2*MULT,394*64+3*MULT
          DW  330*64+1*MULT,330*64+1*MULT,262*64+1*MULT,294*64+3*MULT
          DW  262*64+1*MULT,294*64+2*MULT,440*64+2*MULT,394*64+3*MULT
          DW  330*64+1*MULT,330*64+2*MULT,394*64+2*MULT,440*64+7*MULT
          DW  523*64+2*MULT,394*64+3*MULT,330*64+1*MULT,330*64+1*MULT
          DW  262*64+1*MULT,294*64+3*MULT,262*64+1*MULT,294*64+2*MULT
          DW  330*64+1*MULT,294*64+1*MULT,262*64+3*MULT,230*64+1*MULT
          DW  230*64+2*MULT,196*64+2*MULT,262*64+7*MULT
MUSIC_END =   offset $
MULT      =   08h

WelcomeMsg	db    '陈文尧欢迎您使用《未来汇编》！',00h
ReturnMsg	db    '按任意键结束...',00h
;******************************************************
;* 标志程序结束并指定程序入口
;******************************************************
	end	@@Start