汇编电子琴.doc

DW 100DUP(?)STACKS ENDSDATA SEGMENTDISPLAY DB '***********************************',0DH,0AH,0DH,0AH DB '*1Press1-7ToPlay*',0DH,0AH,0DH,0AHDB '*2PressCToPlayChangTune*',0DH,0AH,0DH,0AH DB '*3PressZToPlayZhongTune*',0DH,0AH,0DH,0AH DB '*4PressDToPlayDuanTune*',0DH,0AH,0DH,0AH DB '*5PressLToPlayLowTune*',0DH,0AH,0DH,0AH DB '*6PressMToPlayMiddleTune*',0DH,0AH,0DH,0AH DB '*7PressHToPlayHighTune*',0DH,0AH,0DH,0AH DB '*8PressRToReplay*',0DH,0AH,0DH,0AH DB '*9PressEscToExit*',0DH,0AH,0DH,0AH DB '***********************************',0DH,0AH,'$'TABLE1 DW 1EEH,1B8H,188H,15DH,14AH,126H,106H;TABLE2 DW 3DCH,370H,310H,2BAH,293H,242H,20BH;TABLE3 DW 7B8H,6E0H,620H,575H,526H,497H,416H;DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA,SS:STACKSSTART: MOV AX,DATA MOV DS,AX MOV DX,OFFSETDISPLAY MOV AH,09H INT 21HSCAN: MOV AH,0 ;读键盘 INT 16H MOV CX,4000 MOV DI,3500H ;设放置音节的首地址 MOV DX,3500H ;设复读首地址 CMP AL,1BH ;判断输入是否为退出 JNE L MOV AH,4CH ;退出 INT 21HL: CMP AL,4CH ;判断输入是否为L低音 JNE M JMP SCAN1M: CMP AL,4DH ;判断输入是否为M中音 JNE H JMP SCAN2H: CMP AL,48H ;判断输入是否为H高音 JNE SCAN1 JMP SCAN3 SCAN1: MOV AH,0 ;读键盘 INT 16H CMP AL,1BH JNE REP1 MOV AH,4CH ;退出 INT 21HREP1: CMP AL,52H JNE C1 CALL REPLAY MOV DI,3500H C1: CMP AL,43H ;判断输入是否为C长音 JNE Z1 MOV CX,7000 JMP A1Z1: CMP AL,5AH ;判断输入是否为Z中音 JNE D1 MOV CX,4000 JMP A1D1: CMP AL,44H ;判断输入是否为D短音 JNE A1 MOV CX,2000 JMP A1 HELP1: JMP SCAN1A1: CMP AL,4DH ;判断是否是中音 JNE B1 JMP SCAN2B1: CMP AL,48H ;判断是否是高音 JNE KEY1 JMP SCAN3KEY1: CMP AL,31H ;1 JNE KEY2 MOV BX,00H CALL PLAY1 JMP HELP1KEY2: CMP AL,32H ;2 JNE KEY3 MOV BX,02H CALL PLAY1 JMP HELP1KEY3: CMP AL,33H ;3 JNE KEY4 MOV BX,04H CALL PLAY1 JMP HELP1KEY4: CMP AL,34H ;4 JNE KEY5 MOV BX,06H CALL PLAY1 JMP HELP1KEY5: CMP AL,35H ;5 JNE KEY6 MOV BX,08H CALL PLAY1 JMP HELP1KEY6: CMP AL,36H ;6 JNE KEY7 MOV BX,0AH CALL PLAY1 JMP HELP1KEY7: CMP AL,37H ;7 JNE HELP1 MOV BX,0CH CALL PLAY1 JMP HELP1PLAY1 PROC MOV AL,0B6H ;8253工作方式3 OUT 43H,AL MOV SI,OFFSET TABLE1 ;取低音首地址 MOV AX,[BX+SI] MOV [DI],AX INC DI INC DI INC DX INC DX OUT 42H,AL ;送初