sound.asm

汇编语言编写的响铃程序

data segment
     count dw 1
     msg db 'The bell is ringing!',0dh,0ah,'$'
data ends
code segment
     assume cs:code,ds:data

main proc
start:mov ax,data
      mov ds,ax

      mov al,1ch
      mov ah,35h
      int 21h
      push es
      push bx
      push ds

      mov dx,offset ring
      mov ax,seg ring
      mov ds,ax
      mov al,1ch
      mov ah,25h
      int 21h

      pop ds
      in al,21h
      and al,0feh
      out 21h,al
      sti

      mov di,20000
  delay:mov si,30000
  delay1:dec si
        jnz delay1
        dec di
        jnz delay

        pop dx
        pop ds
        mov al,1ch
        mov ah,25h
        int 21h

        mov ax,4c00h
        int 21h
main endp

ring proc near
        push dx
        push ax
        push cx
        push dx

        mov ax,data
        mov ds,ax
        sti

        dec count
        jnz exit

        mov dx,offset msg
        mov ah,09h
        int 21h

        mov dx,100
        in al,61h
        and al,0fch
  sound:xor al,02
        out 61h,al

        mov cx,1400h
   wait1:loop wait1
        dec dx
        jne sound
        mov count,182
   exit:
        cli
        pop dx
        pop cx
        pop ax
        pop ds
        iret
ring endp
code ends
     end start