这是一个敲击键盘发声程序
是由soundf 调用waitf
再由piano 程序调用soundf 程序实现键盘发声
PUBLIC waitf
C_SEG SEGMENT  PARA'CODE'
      ASSUME   CS:C_SEG
waitf  proc    far
       push ax
waitf1:
       in al,61h
       and al,10h
       cmp al,ah
       je waitf1
       mov ah,al
       loop waitf1
　　　　pop ax
       ret
waitf  endp
c_seg  ends
end
－－－－－－－－－－－－－－－－第一个程序结束
PUBLIC SOUNDF
EXTRN  WAITF:FAR
C_SEG SEGMENT  PARA'CODE'
      ASSUME   CS:C_SEG
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
wait1: mov cx,663
       call waitf
       dec bx
       jnz wait1
       mov al,ah
       out 61h,al
       pop di
       pop dx
－－－－－－－－－－－－－－－－－第二个程序
;piano   
EXTRN   SOUNDf:FAR
EXTRN   WAITF:FAR
STACK   SEGMENT STACK  PARA  'STACK'
        DB       64    DUP('STACK...')
STACK   ENDS
DSEG    SEGMENT  PARA  'DATA'
TABLE   DW  262
        DW  294
        DW  330
        DW  349
        DW  392
        DW  440
        DW  494
        DW  523
DSEG    ENDS
CSEG    SEGMENT PARA 'CODE'
        ASSUME  SS:STACK,DS:DSEG,CS:CSEG
MAIN    PROC   FAR
        MOV    AX,DSEG
        MOV    DS,AX
        MOV    AX,STACK
        MOV    SS,AX
NEW_NOTE:
       MOV   AH,0
       INT   16H
       CMP   AL,0DH
       JE    EXIT
       MOV   BX,OFFSET  TABLE
       CMP   AL,'1'
       JB    NEW_NOTE
       CMP   AL,'8'
       JA    NEW_NOTE
       AND   AX,0FH
       SHL   AX,1
       SUB   AX,2
       MOV   SI,AX
       MOV   DI,[BX][DI]
       MOV   BX,10
       CALL  SOUNDF
       JMP   NEW_NOTE
EXIT:
       MOV   AX,4C00H
       INT   21H
MAIN   ENDP
CSEG   ENDS
END    MAIN
－－－－－－－－－－－－－主程序
连接的时候总是有问题，键盘也不可以发声音
谁帮忙看下啊，学妹感激不尽