2.asm

liangshouge.rar

stack segment para stack 'stack'
   dw 256 dup(?)
stack ends
data  segment 
bg2 db 0ah,0dh,"two tiger:$";
bg db 0ah,0dh,"mian yang:$";
freq 	DW	330,294,262,294,3 DUP(330)	; 
	DW	3 DUP(294),330,392,392	; 
	DW	330,294,262,294,4 DUP(330)
	DW	294,294,330,294,262,0;
  time dw 10 dup(500),1000,500,500,1000;
  dw 2 dup (480,480,480,480,1000,1000)
  dw 2 dup (1000,1000,2000);
freq2 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;
time2 dw 10 dup(500),1000,500,500,1000;
  dw 2 dup (240,240,240,240,500,500)
  dw 2 dup (500,500,1000);
data ends
code segment
      assume cs:code
start proc far
  push ds;
  mov ax,0;
  push ax;
  mov ax,data;
  mov ds,ax;
  mov dx,offset bg;
 mov ah,09h;
 int 21h;
 mov si,offset freq;
 mov bp,offset time;
 call sing;
 mov dx,offset bg2;
 
  mov ah,09h;
 int 21h;
 mov si,offset freq2;
 mov bp,offset time2;
 call sing;
 ret
start endp
sing proc near
 push di;
 push si;
 push bp;
 push bx;
pp:mov di,[si];
      cmp di,0;
      je end_sing;
      mov bx,ds:[bp];
      call sound;
       add si,2;
      add bp,2;
     jmp pp
end_sing: pop bx;
pop bp;
pop si;
pop di;
 ret 
 sing endp
sound proc near
push ax;
push bx;
push cx;
push dx;
push di;
mov al,0b6h;
out 43h,al;
mov dx,12h;
mov ax,34dch;
div di;
out 42h,al;
mov al,ah;
out 42h,al;
in al,61h;
mov ah,al;
or al,3;
out 61h,al;
delay:mov cx,50000;
dl10ms:loop dl10ms;
  dec bx;
jne delay;
mov al,ah;
out 61h,al;
pop di;
pop dx;
pop cx;
pop bx;
pop ax;
ret
sound endp
code ends
end  start