; Win32 Consol .exe
include io32.inc
.data
;add your data here
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
;载入键在屏幕上的位置
CMP KEYFLAG,00H ;判断是否是低音键
JNZ LOAD_HGH ;继续判断
LEA SI,ST_LX ;载入低音键起始坐标首地址
LEA DI,ED_LX ;载入低音键结束坐标首地址
JMP LOAD_END ;载入结束
LOAD_HGH:
CMP KEYFLAG,02H ;判断是否是高音键
JNZ LOAD_MID ;继续判断
LEA SI,ST_HX ;载入高音键起始坐标首地址
LEA DI,ED_HX ;载入高音键结束坐标首地址
JMP LOAD_END
LOAD_MID:
LEA SI,ST_MX ;载入中音键起始坐标首地址
LEA DI,ED_MX ;载入中音键结束坐标首地址
LOAD_END:
RET
LOAD ENDP
SCAN_KEY PROC NEAR
;检查按键状态,并存入对应的变量和寄存器
MOV SI,100
MOV DI,100
MOV KEYNUM,100 ;赋初值
MOV AH,0 ;读键盘
INT 16H
MOV DL,AH
CALL SCAN_SONG ;判断是否是自动播放键(大键盘数字键1~5)
CALL SCAN_TUNE ;判断是否是C/D调选择键
CALL FREQ_CHANGE ;判断是否按下频率改变键:(+/- 符号)
CMP AH,01H ;是否是结束键
JNE FLAG_SCAN ;若不是继续检测
CALL EXIT ;若是则退出
FLAG_SCAN:
MOV AH,02H ;读键盘状态字节
INT 16H
MOV DH,AL ;判断是否是右shift键
AND DH,01H
CMP DH,01H
JE SLOW ;是则进行低音处理
MOV DH,AL ;不是判断是否是左shift键
AND DH,02H
CMP DH,02H
JE SHGH ;是则进行高音处理
JMP SMID ;都不是进行中音处理
SLOW: ;低音处理
MOV AUDIO,1
MOV KEYFLAG,0
JMP KEY_1 ;跳转到音键处理
SHGH: ;高音处理
MOV AUDIO,3
MOV KEYFLAG,2
JMP KEY_1 ;跳转到音键处理
SMID : ;中音处理
MOV AUDIO,2
MOV KEYFLAG,1
KEY_1:
CMP DL,4FH ;是否是1
JNE KEY_2 ;继续判断
MOV KEYNUM,0 ;不是则保存标志
JMP SCAN_END ;键扫描结束
KEY_2:
CMP DL,50H ;是否是2
JNE KEY_3
MOV KEYNUM,2
JMP SCAN_END
KEY_3:
CMP DL,51H ;是否是3
JNE KEY_4
MOV KEYNUM,4
JMP SCAN_END
KEY_4:
CMP DL,4BH ;是否是4
JNE KEY_5
MOV KEYNUM,6
JMP SCAN_END
KEY_5:
CMP DL,48H ;是否是5
JNE KEY_6
MOV KEYNUM,8
JMP SCAN_END
KEY_6:
CMP DL,4DH ;是否是6
JNE KEY_7
MOV KEYNUM,10
JMP SCAN_END
KEY_7:
CMP DL,47H ;是否是7
JNE SCAN_END
MOV KEYNUM,12
SCAN_END:
RET
SCAN_KEY ENDP
SCAN_SONG PROC NEAR
;判断是否是自动播放键(键1~5),并保存标志变量(song)
;IN: AH 键扫描码
PUSH AX
MOV SONG,100 ;赋初始值
CMP AH,3BH ;与1比较
JB SONG_END ;小于1则结束
CMP AH,3FH ;与5比较
JA SONG_END ;大于则结束
SUB AH , 3BH ;转换成1~5
MOV AL,AH
MOV AH,00H
MOV SONG,AX ;存入标志码
SONG_END:
POP AX
RET
SCAN_SONG ENDP
PLAY_SONG PROC NEAR
;选择并播放音乐
PUSH BP
PUSH SI
PUSH BX
PUSH DI
PUSH AX
CMP SONG,01H ;判断是否是歌1
JNE GO2 ;不是继续判断
CALL SONG_LIGHT_OFF ;灯1~5灭
DRAW 247,42,251,46,0EH ;灯1亮
LEA BP,MUS_TIME1 ;载入延时数据首地址
LEA SI,MUS_FREQ1 ;载入频率数据首地址
JMP FREQ
GO2:
CMP SONG,02H ;判断是否是歌2
JNE GO3
CALL SONG_LIGHT_OFF
DRAW 253,42,257,46,0EH
LEA BP,MUS_TIME2
LEA SI,MUS_FREQ2
JMP FREQ
GO3:
CMP SONG,03H ;判断是否是歌3
JNE GO4
CALL SONG_LIGHT_OFF
DRAW 259,42,263,46,0EH
LEA BP,MUS_TIME3
LEA SI,MUS_FREQ3
JMP FREQ
GO4:
CMP SONG,04H ;判断是否是歌4
JNE GO5
CALL SONG_LIGHT_OFF
DRAW 265,42,269,46,0EH
LEA BP,MUS_TIME4
LEA SI,MUS_FREQ4
JMP FREQ
GO5:
CMP SONG,05H ;判断是否是歌5
JNE FREQ
CALL SONG_LIGHT_OFF
DRAW 271,42,275,46,0EH
LEA BP,MUS_TIME5
LEA SI,MUS_FREQ5
FREQ:
MOV AH,01H ;读键盘缓冲区字符
INT 16H
CMP AH,1CH ;是否是Enter键
JNZ CONTINUE ;不是继续
JMP PLAY_END ;是结自动播放
CONTINUE:
MOV AH,0CH ;清除键盘缓冲区字符
MOV AL,06H
INT 21H
MOV DI,[SI]
CMP DI,-1 ;判断结束否
JE PLAY_END
MOV BX,[BP]
CALL GEN_AUTO ;发声
ADD SI,2
ADD BP,2 ;下一频率
JMP FREQ
PLAY_END:
CALL SONG_LIGHT_OFF
POP AX
POP DI
POP BX
POP SI
POP BP
RET
PLAY_SONG ENDP
LOAD_AUDIO PROC NEAR
;C\D调及对应的低、中、高频率分别载入
;OUT:BX
;IN:TUNE,AUDIO
TUNE_D: ;D大调判断
展开阅读全文