music.asm

来自「汇编课程设计 图形编辑器」· 汇编 代码 · 共 40 行

TITLE MUSIC

extrn   soundf:far
stack   segment para stack 'stack'
        db 64 dup('stack......')
stack ends

dseg segment para 'data'
mus_freq   dw 330,294,262,294,3 dup(330)
           dw 3 dup(259),330,392,392
           dw 330,294,262,294,4 dup(330)
           dw 294,294,330,294,262,-1
mus_time   dw 6 dup(25),50
           dw 2 dup(25,25,50)
           dw 12 dup(25),100
dseg ends

cseg segment para 'cord'
     assume cs:cseg,ss:stack,ds:dseg
music proc far
      mov ax,dseg
      mov ds,ax
      lea bp,ds:mus_time
freq:
      mov di,[si]
      cmp di,-1
      je  end_mus
      mov bx ,ds:[bp]
      call soundf
      add si,2
      add bp,2
      jmp freq
end_mus:
      mov ax,4c00h
      int 21h
music endp
cseg  ends
      end   music