1 DATA SEGMENT
2 msg DB 0DH,0AH,'[ 1 2 3 4 5 6 7 ]'
3 DB 0DH,0AH,' [ q w e r t y u ]'
4 DB 0DH,0AH,'_________________'
5 DB 0DH,0AH,'9: EXIT'
6 DB 0DH,0AH,'_________________','$'
7 ;********音调******后面用到-1判断音乐播是否放完
8 sound_0 DW -1
9 sound_11 DW 441,-1
10 sound_12 DW 495,-1
11 sound_13 DW 556,-1
12 sound_14 DW 589,-1
13 sound_15 DW 661,-1
14 sound_16 DW 742,-1
15 sound_17 DW 833,-1
16 sound_1 DW 882,-1
17 sound_2 DW 990,-1
18 sound_3 DW 1112,-1
19 sound_4 DW 1178,-1
20 sound_5 DW 1322,-1
21 sound_6 DW 1484,-1
22 sound_7 DW 1655,-1
23 time DW 25
24 DATA ENDS
25 ;************************
26 STACK SEGMENT
27 Db 200 DUP ('STACK')
28 STACK ENDS
29 ;***********************
30 CODE SEGMENT
31 ASSUME DS:DATA,SS:STACK,CS:CODE
32 START:
33 MOV AX,DATA
34 MOV DS,AX
35
36 MOV aH,0
37 MOV AL,00
38 INT 10H
39
40 ;*****定义一个宏*****
41 SHOW MACRO b
42 LEA DX,b
43 MOV AH,9
44 INT 21H
45 ENDM
46
47 ;********一个声音宏********
48 onesound macro soundis,jumpis,letteris
49 CMP AL,letteris
50 JNZ jumpis
51 LEA SI,soundis
52 LEA BP,DS:time
53 CALL MUSIC
54 JMP input
55 ENDM
56
57 show msg
58
59 INPUT: MOV AH,01H
60 INT 21H
61 CMP AL,'9'
62 jnz go
63
64 mov ah,4ch
65 int 21h
66
67 go: onesound sound_11,a0,'q'
68 a0: onesound sound_12,b0,'w'
69 b0: onesound sound_13,c0,'e'
70 c0: onesound sound_14,d0,'r'
71 d0: onesound sound_15,e0,'t'
72 e0: onesound sound_16,f0,'y'
73 f0: onesound sound_17,g0,'u'
74 g0: onesound sound_1,h0,'1'
75 h0: onesound sound_2,i0,'2'
76 i0: onesound sound_3,j0,'3'
77 j0: onesound sound_4,k0,'4'
78 k0: onesound sound_5,l0,'5'
79 l0: onesound sound_6,m0,'6'
80 m0: onesound sound_7,n0,'7'
81 n0: onesound sound_0,o0,al
82 o0: jmp input
83 ;********************发声
84
85 GENSOUND PROC NEAR
86 ;-------------
87 PUSH AX
88 PUSH BX
89 PUSH CX
90 PUSH DX
91 PUSH DI
92 ;--------------
93 MOV AL,0B6H
94 OUT 43H,AL
95 MOV DX,12H
96 MOV AX,348ch
97 DIV DI
98 OUT 42H,AL
99 MOV AL,AH
100 OUT 42H,AL
101 IN AL,61H
102 MOV AH,AL
103 OR AL,3
104 OUT 61H,AL
105
106 WAIT1: MOV CX,3314
107 call waitf
108 DELAY1: DEC BX
109 JNZ WAIT1
110 MOV AL,AH
111 OUT 61H,AL
112
113 ;----------------
114 POP DI
115 POP DX
116 POP CX
117 POP BX
118 POP AX
119 ;-------------------
120 RET
121 GENSOUND ENDP
122
123 ;**************************
124 waitf proc near
125 push ax
126 waitf1:
127 in al,61h
128 and al,10h
129 cmp al,ah
130 je waitf1
131 mov ah,al
132 loop waitf1
133 pop ax
134 ret
135 waitf endp
136
137 ;************************
138 MUSIC PROC NEAR
139 PUSH DS
140 SUB AX,AX
141 PUSH AX
142 FREG: MOV DI,[SI]
143
144 CMP DI,-1;音乐是否放完？
145 JE END_MUS
146
147 MOV BX,DS:[BP]
148 CALL GENSOUND
149 ADD SI,2
150 ADD BP,2
151 JMP FREG
152 END_MUS:
153 RET
154 MUSIC ENDP
155 CODE ENDS
156 ;**********************
157 END START
