dianziqin.asm

利用PC键盘和CRT显示器设计一个电子琴

;宏定义

DRAW MACRO START_X,START_Y,END_X,END_Y,COLOR

        LOCAL DRAW_NEXT

;local ：避免宏重复调用时，标号的重复

;功能：画填充的矩形

;使用条件：START_X < END_X ,START_Y < END_Y

       PUSH AX

       PUSH BX

       PUSH CX

       PUSH DX

       

       MOV AH,0CH                                         ;写像素点

       MOV AL,COLOR                                    ;设置颜色

       MOV BH,0                                              ;选用页号0

       MOV CX,START_X                                 ;列起始点

       MOV DX,START_Y                                 ;行起始点

DRAW_NEXT:

       INT 10H                                                  ;画点

       INC CX                                                   ;画横线

       CMP CX,END_X                                      ;比较行是否画完

       JNE DRAW_NEXT                                   ;画另一行

    MOV CX, START_X                                ;另一行的起始点

    INC DX

    CMP DX,END_Y                                      ;比较列是否画完

    JNE DRAW_NEXT                                   ;未完继续画

       

       POP DX

       POP CX

       POP BX

       POP AX

       ENDM

DRAWSQRE MACRO START_X,START_Y,END_X,END_Y,COLOR

       LOCAL ROW_UP,ROW_DOWN,RANK_LEFT,RANK_RIGHT

;功能：画不填充的矩形

       PUSH AX

       PUSH BX

       PUSH CX

       PUSH DX

       PUSH SI

 

      MOV AH,0CH

       MOV AL,COLOR

       MOV BH,0

       MOV CX,START_X

       MOV DX,START_Y

ROW_UP:                                        ;画上边

       INT 10H

       INC CX

       CMP CX,END_X

       JNE ROW_UP

 

RANK_RIGHT:                                 ;画右边

       INT 10H

    INC DX

    CMP DX,END_Y

    JNE RANK_RIGHT

 

       MOV CX, START_X                  ;下边起始点

       MOV SI,END_X

       INC SI

ROW_DOWN:                                 ;画下边

       INT 10H

       INC CX

       CMP CX,SI

       JNE ROW_DOWN

       

       MOV DX,START_Y                   ;右边起始点

       MOV CX,START_X

RANK_LEFT:                                   ;画右边

       INT 10H

       INC DX

       CMP DX, END_Y

       JNE RANK_LEFT

       

       POP SI

       POP DX

       POP CX

       POP BX

       POP AX

       ENDM

 

;数据段

DATA SEGMENT

       ;定义在屏幕绘制字

       START_COL DB ?                     ;存储起始行

       TEXT DB 16                                                                 ;起始行

                DB 2                                                             ;起始列

             DB 06H                                                         ;字体颜色

             DB 'Piano XP',0FFH,'Copyright(c)Auto-5-5th',0FFH,0FFH        ;显示字

             DB 10 DUP(2 DUP(0DBH),2 DUP(20H)),0FFH                     ;颜色交叉矩形

             DB 10 DUP(2 DUP(20H),2 DUP(0DBH)),0FFH

             DB 10 DUP(2 DUP(0DBH),2 DUP(20H)),0FFH

             DB 10 DUP(2 DUP(20H),2 DUP(0DBH)),0FFH

             DB 10 DUP(2 DUP(0DBH),2 DUP(20H)),0FFH

             DB 10 DUP(2 DUP(20H),2 DUP(0DBH)),0FFH

             DB 00

       ;白色琴键坐标

    ST_LX DW  50,61,72,83,94,105,116

    ST_MX DW  127,138,149,160,171,182,193

    ST_HX DW  204,215,226,237,248,259,270

    ST_Y   DW  50

    ED_LX DW  60,71,82,93,104,115,126

    ED_MX DW  137,148,159,170,181,192,203

    ED_HX DW  214,225,236,247,258,269,280

    ED_Y   DW  90

       ;黑色琴键坐标

    BT_X  DW 57,68,90,101,112

           DW 134,145,167,178,189 

           DW 211,222,244,254,265

    BT_Y  DW  50

    BD_X DW  64,75,97,108,119

          DW  141,152,174,185,196

          DW  218,229,251,262,273

    BD_Y  DW  70

;音乐频率值

       LOWD  DW 131

       LOWDD DW 147,165,175,196,220,247

       MID  DW 262

       MIDD DW 294,330,349,392,440,494

       HGH  DW 523

       HGHD DW 587,659,797,783,879,987,1046

 

    KEYFLAG DB 1                                       ;标记低（0）、中（1）、高（2）音键

       KEYNUM DW 1                                       ;存储1~7

    DELAY_TIME DW 7000                          ;延时

       SONG DW 100                                         ;保存所选的自动演奏的曲目

       TUNE DW 1                                             ;标记c调或d调

       AUDIO DW 1                                          ;标记低（1）、中（2）、高音（3）

;自动演奏的歌曲频率和延时

MUS_FREQ1 DW 440,392,330,392,523,440,392,440

         DW 330,392,440,392,330,262,220,392

         DW 330,2 DUP(294),330,2 DUP(392),440,330

         DW 294,262,392,330,294,262,220,262,196

         DW -1

MUS_TIME1 DW 37,12,3 DUP(25),2 DUP(12),50

         DW 25,2 DUP(12 ),2 DUP(25),4 DUP(12 ),50

         DW 37 ,12 ,25,2 DUP(12 ),2 DUP(25),50

         DW 37 ,5 DUP(12 ),100

MUS_FREQ2 DW 392,523,392,330,2 DUP(262,330,392),2 DUP(523)

         DW 349,3 DUP(440),330,3 DUP(392),294,349,330,294,262

         DW 392,523,392,330,2 DUP(262,330,392),2 DUP(523)

         DW 349,3 DUP(440),330,3 DUP(392),294,349,330,294,262

         DW 392,3 DUP(523),494,587,392,392,3 DUP(587),523,659,392

         DW 3 DUP(523),330,3 DUP(392),294,349,330,294,262

         DW -1

MUS_TIME2 DW 12 ,3 DUP(25,2 DUP(12 )),2 DUP(25)

         DW 2 DUP(19,6,2 DUP(12 )),4 DUP(12 )

         DW 25,12 ,3 DUP(25,2 DUP(12 )),2 DUP(25)

         DW 2 DUP(19,6,2 DUP(12 )),5 DUP(12 )

         DW 2 DUP(19,6,4 DUP(12 ),25)

         DW 25,2 DUP(12 ),19,6,6 DUP(12 ),25

MUS_FREQ3 DW 262,262,294,330,330,349,392,440,392,330

         DW 392,349,330,294,349,330,294,262

         DW 262,262,294,330,330,349,392,440,392,330

         DW 392,349,330,294,330,294,262,196

         DW 392,349,330,294,196,196,349,330,294,262

         DW 392,349,330,294,196,196,349,330,294,262

         DW 262,262,294,330,330,349,392,440,392,330

         DW 392,349,330,294,330,294,262

         DW -1

MUS_TIME3 DW 3 DUP(25,2 DUP(12)),50

         DW 2 DUP(25,2 DUP(12),50)

         DW 3 DUP(25,2 DUP(12)),50

         DW 2 DUP(25,2 DUP(12)),2 DUP (50)

         DW 3 DUP(25,2 DUP(12)),50

         DW 3 DUP(25,2 DUP(12)),50  

         DW 3 DUP(25,2 DUP(12)),50

         DW 2 DUP(25,2 DUP(12)),50

MUS_FREQ4 DW 262,262,294,330,330,294,262,262,220,196

        DW 262,294,330,294,262,294

        DW 262,294,330,330,294,294,262,220,220,294,262,262,220,196

        DW 196,220,220,262,262,294,294,262,220

        DW 294,330,294,262,262,294,262,220,196,220

        DW 196,220,262,294,330,392,294,330,262,294,262,220

        DW 220,294,247,220,196,196

        DW 4 DUP(392),330,392,440,440,392,330

        DW 5 DUP(440),392,392,330,294

        DW 440,392,440,392,330,294,330,294,262,220

        DW 4 DUP(294),262,220,196

        DW 2 DUP(440,392),2 DUP(330,294),262,220

        DW 3 DUP(294),262,220,392

        DW -1

MUS_TIME4 DW 3 DUP(20,10,10),50

       DW 20,10,20,10,10,80

       DW 20,10,20,10,10,3 DUP(20,10),20,20,80

       DW 20,10,10,20,20,20,10,10,40

       DW 20,10,20,20,10,5,5,10,10,40

      DW 20,10,2 DUP(20,10,10),10,5,5,20

       DW 20,20,20,10,10,80

       DW 10,20,10,20,10,10,40,10,10,20

       DW 8 DUP(10),80

       DW 20,10,10,20,20,4 DUP(10),40

       DW 15,5,10,10,20,20,80

       DW 20,10,10,20,20,4 DUP(10),40

       DW 40,20,20,40,40,100

 

MUS_FREQ5 DW 330,392,440,330,392,294    

       DW 330,392,440,523,440,392,220,262,330,294 

       DW 294,330,392,294,330,294,220,220         

       DW 220,262,294,330,294,247,220,262,196     

       DW 294,330,294,247,220,196,262                

       DW  523,523,440,523,440,523,440,392

       DW  392,330,440,392,262,294,262,292,330

       DW  330,330,294,330

       DW  523,523,494,440

       DW 330,330,294,330,523,494,440,330,392

       DW -1

MUS_TIME5 DW 2 DUP(12,12,75),3 DUP(12),25,12,25,6,6,12,75 ;#1,2

       DW 12,12,75,4 DUP(12),75,12,12,37,5 DUP(12),75

       DW 37,12,12,12,12,12,50

       DW 12,12,12,50,12,12,12,75

       DW 12,12,37,12,25,6,6,12,50,12,12,12,50,12,12,12,75

       DW 12,12,37,12,12,12,12,12,75

DATA ENDS

;代码段

CODE SEGMENT

     ASSUME DS:DATA,CS:CODE

MAIN PROC FAR

;主程序

START:  

       CALL INIT                                       ;调用初始化程序

NEW_SCAN:       

       CALL SCAN_KEY                            ;扫描所按下的键

       CMP SONG,100                                 ;判断是否按下了自动播放的歌曲键

       JE  HAND_PLAY                            ;若不是，继续判断

       CALL PLAY_SONG                          ;若是，演奏音乐

       JMP NEW_SCAN                              ;演奏结束，重新扫描有无键按下

HAND_PLAY:

    CMP KEYNUM,100                           ;判断是否手动演奏

    JZ  NEW_SCAN                              ;若不是，重新扫描有无键按下

                                                               ;若是，进行按键处理

       PUSH BX                     

       MOV BX,KEYNUM      

       CALL KEY_DOWN                          ;在屏幕上显示按下状态

       POP BX

       CALL LOAD_AUDIO ;判断高低音、C/D调，并装入对应频率段地址到BX中

       PUSH SI

       MOV SI,KEYNUM

       MOV DI,[BX+SI]

       CALL GEN_HAND                            ;发声

       POP SI

       PUSH BX

       MOV BX,KEYNUM                           ;在屏幕上显示弹起状态

       CALL KEY_UP

       POP BX

 

       JMP NEW_SCAN                              ;重新扫描有无键按下，直到按下ESC键

MAIN ENDP

 

GEN_HAND PROC NEAR

;手动演奏发声程序

;IN：DI

       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                                    ;定时器送处值

       IN AL,61H                                        ;开扬声器

       MOV AL,AH

       OUT 42H,AL

       IN AL,61H

       MOV AH,AL

       OR AL,3

       OUT 61H,AL

WAIT1:  

       CALL WAITF                                   ;调用延时程序

    IN AL,60H                                 

    TEST AL,80H                               ;查询键是否放开

    JZ WAIT1                                         ;未放开继续查询

       MOV AL,AH                                    ;放开则关扬声器

       OUT 61H,AL

 

       POP DI

       POP DX

       POP CX

       POP BX

       POP AX

   RET

GEN_HAND ENDP

 

GEN_AUTO PROC NEAR

;自动播放发声程序

       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

       IN AL,61H

       MOV AL,AH

       OUT 42H,AL

       IN AL,61H

       MOV AH,AL

       OR AL,3

       OUT 61H,AL

WAIT2:  

       CALL WAITF

       DEC BX

       JNZ WAIT2                                      ;判断是否播放完毕

       MOV AL,AH                                    ;完毕则关闭扬声器

       OUT 61H,AL

       

POP DI

       POP DX

       POP CX

       POP BX

       POP AX

      RET

GEN_AUTO ENDP

 

WAITF PROC NEAR

;延时程序

       PUSH AX

MOV CX,DELAY_TIME

WAITF1:

       IN AL,61H                          

       AND AL,10H                                    ;检查PB4口

       CMP AL,AH                                     ;判断AL变化否

       JE WAITF1                                       ;等待AL变化

       MOV AH,AL                                    ;保存PB4的新状态(AL中)

       LOOP WAITF1

       POP AX

       RET

WAITF ENDP

 

PIANO_DRAW  PROC NEAR

;绘制琴键

 LEA SI,ST_LX                                ;载入白色起始点地址

     LEA DI,ED_LX                               ;载入白色结束点地址

     MOV CX,21                                    ;白键数目

NEXT_DRAW:

     DRAW [SI],ST_Y,[DI],ED_Y,0FH    ;调用宏定义画白键

     DRAW [SI],90,[DI],93,07H                    ;阴影

     ADD SI,2                                        ;下一个键

     ADD DI,2

     LOOP NEXT_DRAW

 

        LEA SI,BT_X                      ;载入黑色起始点地址

        LEA DI,BD_X                            ;载入黑色结束点地址

        MOV CX,15                              ;黑键数目

NEXT_BLOCK:

        DRAW [SI],BT_Y,[DI],BD_Y,00H

        ADD SI,2

        ADD DI,2

        LOOP NEXT_BLOCK

        RET

PIANO_DRAW ENDP

 

KEY_DOWN PROC NEAR

;键按下时，在屏幕上显示

PUSH SI

       PUSH DI

       CALL LOAD                                    ;载入所按下键在屏幕上的位置

       DRAW [SI+BX],90,[DI+BX],92,0FH

    DRAW [SI+BX],92,[DI+BX],94,07H

       POP DI

       POP SI

       RET

KEY_DOWN ENDP

 

KEY_UP PROC NEAR

;键弹起时，恢复正常状态

       PUSH SI

       PUSH DI

       CALL LOAD                                    ;载入所弹起键在屏幕上的位置

    DRAW [SI+BX],90,[DI+BX],93,07H  ;恢复阴影

       DRAW [SI+BX],93,[DI+BX],94,05H  ;恢复背景色

       POP DI

       POP SI

      RET

KEY_UP ENDP

LOAD PROC NEAR