;比较low的钢琴ASSUME CS:CODE,DS:DATA,SS:STACKDATA  SEGMENT        ;设置键盘区位     ;中音区 A: 7 S: 8 D: 9 F:10 J:11 K:12 L:13    ;高音区 Q:14 W:15 E:16 R:17 U:18 I:19 O:20    ;低音区 Z: 0 X: 1 C: 2 V: 3 B: 4 N: 5 M: 6     ;填补区 T:17 Y:18 G:10 H:11 P:20     ;       ‘[‘:20 ‘]‘:20 ‘;‘:14 ‘"‘:14 ‘<‘:    ;       ‘<‘:5 ‘>‘:5 ‘\‘:6     ;       ‘^‘:0 ‘-‘:0 ‘`‘:0     ;由于acsii码‘A‘的号码较小,为了大小写一致,直接减去‘A‘则得到序号为    NORMALF DD 119000    TIME DW 0    IND DB    7,4,2,9,16,10,10,11,19,11,12,13,6,5,20,20,14,17,8,17,18,3,15,1,18,0,20,6,20,0,0,0,7,4,2,9,16,10,10,11,19,11,12,13,6,5,20,20,14,17,8,17,18,3,15,1,18,0    FRE DW    131,147,165,175,196,220,247,262,294,330,349,392,440,494, 524,587,659,698,784,880,988    STR1 DB "Welcome!!$"    STR2 DB "The keyboard is distributed like that:$"    STR3 DB "0 exit$"    STR4 DB "High   Q W E R U I O$"    STR5 DB "Medium A S D F J K L$"    STR6 DB "Low    Z X C V B N M$"    LENSTR DW 10,39,7,21,21  DATA ENDSSTACK SEGMENT    BUFF DB 80H DUP(0) STACK ENDSCODE SEGMENT    INIT PROC                         ;直接把所有频率除以基准频率       MOV CX,21       MOV DI,0       LOOP1:       MOV DX,NORMALF[2]       MOV AX,NORMALF        DIV FRE[DI]       MOV FRE[DI],AX       ADD DI,2       LOOP LOOP1                 MOV CX,5                        ;输出提示语       LEA DI,STR1       MOV AX,0900H       MOV DX,DI       MOV SI,0       INT 21H             CALL NEWLINE       LOOP3:       ADD DI,LENSTR[SI]       ADD SI,2       MOV DX,DI         MOV AX,0900H       INT 21H            CALL NEWLINE       LOOP LOOP3              RET    INIT ENDP        RING PROC                         ;此时调用的字符存储在栈中       POP SI       POP DI       SUB DI,‘A‘       MOV AL,IND[DI]       MOV DI,AX             ADD DI,DI        MOV AX,0              MOV AL,0B6H       OUT 43H,AL       MOV AL,BYTE PTR FRE[DI]       OUT 42H,AL       MOV AL,BYTE PTR FRE[DI+1]       OUT 42H,AL         IN  AL,61H       OR  AL,3       OUT 61H,AL              MOV AL,0        INT 1AH       MOV TIME,DX       BACK1:       MOV AL,0       INT 1AH       SUB DX,TIME       CMP DX,5H       JB BACK1         MOV AX,0       OUT 61H,AL       PUSH SI       RET    RING ENDP            NEWLINE PROC      MOV AH,02H      MOV DL,0DH      INT 21H           MOV AH,02H      MOV DL,0AH      INT 21H      RET    NEWLINE ENDP            BEGIN:    MOV AX,DATA    MOV DS,AX       MOV AX,STACK    MOV SS,AX    CALL INIT            LOOP2:     MOV AH,01H    INT 21H    CMP AL,‘A‘    JB EXIT    CMP AL,‘z‘    JA EXIT         MOV AH,0    PUSH AX    CALL RING    JMP LOOP2     EXIT:    MOV AX,4C00H    INT 21HCODE ENDSEND BEGIN