本文共 2189 字，大约阅读时间需要 7 分钟。

第一次作发声代码：

        title music -- a music of 'Mary  had a little lamb'

        extrn soundf :far  ;link  music+soundf

        stack   segment para stack 'stack'

                db 64 dup('stack...')

        stack ends

        dseg    segment para'data'

        mus_freg 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,-1

        mus_time dw 6 dup(25),50

                 dw 2 dup(25,25,50)

                 dw 12 dup(25),100

        dseg ends

        cseg segment para 'code'

                assume cs:cseg,ss:stack,ds:dseg

        music proc far

                mov ax,dseg

                mov ds,ax

                lea si,mus_freg

                lea bp,ds:mus_time

        freq:

                mov di,[si]

                cmp di,-1

                je music

               ; 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;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;       title music -- a music of 'Mary  had a little lamb'

        extrn soundf :far

        stack   segment para stack 'stack'

                db 64 dup('stack...')

        stack ends

        dseg    segment para'data'

        mus_freg dw 330,392,330,294,330,392,330,294,330

                 dw 330,392,330,294,262,294,330,392,294

                 dw 262,262,220,196,196,220,262,294,330,262

                 dw -1

        mus_time dw 3 dup(500),250,250,500,250,250,1000

                 dw 2 dup(500,500,250,250),1000

                 dw 3 dup(500,250,250),1000

        dseg ends

        cseg segment para 'code'

                assume cs:cseg,ss:stack,ds:dseg

        music proc far

                mov ax,dseg

                mov ds,ax

                lea si,mus_freg

                lea bp,ds:mus_time

        freq:

                mov di,[si]

                cmp di,-1

                je music

               ; 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;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;        title  soundf -- the speaker beeper   

        public soundf

        cseg    segment para 'code'

                assume cs:cseg

        soundf  proc far

                push ax

                push bx

                push cx

                push dx

                push di

                mov al,0b6h

                out 43h,al

                mov dx,12h

                mov ax,348ch

                div di

                out 42h,al

                mov al,ah

                out 42h,al

                in al,61h

                mov ah,al

                or al,3

                out 61h,al

        waitl:

                mov cx,6630

                call waitf

                mov al,ah

                out 61h,al

                pop di

                pop dx

                pop cx

                pop bx

                pop ax

                ret

        soundf endp

        waitf proc near

                push ax

        waitf1:

                in al,61h

                and al,10h

                cmp al,ah

                je waitf1

                mov ah,al

                loop waitf1

                pop ax

                ret

        waitf endp

       cseg ends

      ;---------------------------------------------------

       end

下载代码：

转载地址：http://zopmb.baihongyu.com/