8086汇编语言21键电子琴

建议使用dosbox进行qwq
（编写环境：masm5.0，dosbox0.74）

说明

qwertyu对应高音区的do lai mi fa so la xi
asdfghj对应中音区
zxcvbnm对应低音区
可以在TABLE中修改对应区域的频率，或者在此基础上加上半音，搞个十二平均律的qwq

org 100h
ASSUME	CS:seg2,DS:seg1
seg1		SEGMENT
	pstart	DB	'Program start.',0DH,0AH,'$'
	pend 	DB	'Program will end when input' ,27H,'ESC',27H,'.',0DH,0AH,'$'
		sec	DB	?
	TABLE	DW	130
		DW	146
		DW  164
		DW	174
		DW	196
		DW	220
		DW	246
		DW	261
		DW	293
		DW	329
		DW	349
		DW	392
		DW	440
		DW	493
		DW	523
		DW	587
		DW	659
		DW	698
		DW	784
		DW	880
		DW	987

seg1		ENDS
STACK	SEGMENT	PARA	STACK	'STACK'
	STA	DB	48	DUP(?)
	TOP	EQU	LENGTH	STA
STACK	ENDS
seg2		SEGMENT
ASSUME	CS:seg2,DS:seg1,SS:STACK,ES:seg1
start:	MOV	 AX,seg1
		MOV	 DS,AX
		MOV	 DX,OFFSET pstart
		MOV	 AH,09H
		INT	 21H     
		
		MOV	DX,OFFSET pend
		MOV	AH,09H
		INT	21H
		MOV	AX,STACK
		MOV	SS,AX
		MOV	AX,TOP
		MOV	SP,AX
		MOV	AL,90H
		OUT	63H,AL

wait1:  	MOV     AH,01H			
		INT		21H
		CMP	 	AL,1BH			
		JE		cse

		CMP	 	AL, 'a'
		JE		ka
		CMP	 	AL, 's'
		JE		ks
		CMP	 	AL, 'd'
		JE		kd
		CMP	 	AL, 'f'
		JE		kf
		CMP	 	AL, 'g'
		JE		kg
		CMP	 	AL, 'h'
		JE		kh
		CMP	 	AL, 'j'
		JE		kj
		JMP		wait2 
kj:		JMP		keyj
ka:		JMP		keya
ks:		JMP		keys
kd:		JMP		keyd
kf:		JMP		keyf
kg:		JMP		keyg
kh:		JMP		keyh
cse: 		JMP		keyESC 
wait2:	CMP	 	AL, 'q'
		JE		kq
		CMP	 	AL, 'w'
		JE		kw
		CMP	 	AL, 'e'
		JE		ke
		CMP	 	AL, 'r'
		JE		kr
		CMP	 	AL, 't'
		JE		kt
		CMP	 	AL, 'y'
		JE		ky
		CMP	 	AL, 'u'
		JE		ku
		JMP 	wait3
ku:		JMP		keyu
kt:		JMP		keyt
kr:		JMP		keyr
ke:		JMP		keye
kq:		JMP		keyq
kw:		JMP		keyw
ky:		JMP		keyy

wait3:		CMP	 	AL, 'z'
		JE		kz
		CMP	 	AL, 'x'
		JE		kx
		CMP	 	AL, 'c'
		JE		kc
		CMP	 	AL, 'v'
		JE		kv
		CMP	 	AL, 'b'
		JE		kb
		CMP	 	AL, 'n'
		JE		kn
		CMP	 	AL, 'm'
		JE		km
		CMP	 	AL, 'p'
JE		kp
		JMP     find 
kp:		JMP		keyp   
km:		JMP		keym
kn:		JMP		keyn
kb:		JMP		keyb
kc:		JMP		keyc
kx:		JMP		keyx
kz:		JMP		keyz
kv:		JMP		keyv	


keyp:		IN	AL,61H
		AND	AL,0FCH
		OUT	61H,AL
		JMP	wait1

find:		MOV	AH,0BH
		INT	21H
		AND	AL,1111111B
		CALL	DELAY
		JNZ	find
		IN	AL,61H
		AND	AL,0FCH
		OUT	61H,AL
		JMP	wait1

keyz:		MOV	BX,TABLE
		JMP	SOUNDF
keyx:		MOV	BX,TABLE+2
		JMP	SOUNDF
keyc:		MOV	BX,TABLE+4
		JMP	SOUNDF
keyv:		MOV	BX,TABLE+6
		JMP	SOUNDF
keyb:		MOV	BX,TABLE+8
		JMP	SOUNDF
keyn:		MOV	BX,TABLE+10
		JMP	SOUNDF
keym:		MOV	BX,TABLE+12
		JMP	SOUNDF
keya:		MOV	BX,TABLE+14
		JMP	SOUNDF
keys:		MOV	BX,TABLE+16
		JMP	SOUNDF
keyd:		MOV	BX,TABLE+18
		JMP	SOUNDF
keyf:		MOV	BX,TABLE+20
		JMP	SOUNDF
keyg:		MOV	BX,TABLE+22
		JMP	SOUNDF
keyh:		MOV	BX,TABLE+24
		JMP	SOUNDF
keyj:		MOV	BX,TABLE+26
		JMP	SOUNDF
keyq:		MOV	BX,TABLE+28
		JMP	SOUNDF
keyw:		MOV	BX,TABLE+30
		JMP	SOUNDF
keye:		MOV	BX,TABLE+32
		JMP	SOUNDF
keyr:		MOV	BX,TABLE+34
		JMP	SOUNDF
keyt:		MOV	BX,TABLE+36
		JMP	SOUNDF
keyy:		MOV	BX,TABLE+38
		JMP	SOUNDF
keyu:		MOV	BX,TABLE+40
		JMP	SOUNDF


SOUNDF:		MOV	DX,12H
		MOV	AX,348CH
		DIV	BX
		CALL	SOUND
		CALL	DELAY
		JMP	find

keyESC:	MOV   	AH,4CH
		INT     21H

SOUND	PROC	NEAR
		PUSH	AX
		MOV	AL,10110110B
		OUT	43H,AL
		POP	AX
		OUT	42H,AL
		MOV	AL,AH
		OUT	42H,AL
		IN	AL,61H
		OR	AL,03H
		OUT	61H,AL
		RET
SOUND	ENDP

DELAY	PROC	NEAR
		PUSH	CX
		PUSH	AX
		MOV	AX,0FFFH
X11:		MOV	CX,100
X12:		LOOP	X12
		DEC	AX
		JNZ	X11
		POP	AX
		POP	CX
		RET
DELAY	ENDP

seg2 	ENDS
	    END   	start