添加一些关于midi播放的项目

Midi/mg/mg.inc

@@ -0,0 +1,105 @@
+;----------------------------------------------------------;
+; Melody Generator Include File
+
+
+.equ	A2 = 0		;220Hz
+.equ	B2 = 1
+.equ	H2 = 2
+.equ	C2 = 3
+.equ	Cis2 = 4
+.equ	D2 = 5
+.equ	Dis2 = 6
+.equ	E2 = 7
+.equ	F2 = 8
+.equ	Fis2 = 9
+.equ	G2 = 10
+.equ	Gis2 = 11
+.equ	A3 = 12		;440Hz
+.equ	B3 = 13
+.equ	H3 = 14
+.equ	C3 = 15
+.equ	Cis3 = 16
+.equ	D3 = 17
+.equ	Dis3 = 18
+.equ	E3 = 19
+.equ	F3 = 20
+.equ	Fis3 = 21
+.equ	G3 = 22
+.equ	Gis3 = 23
+.equ	A4 = 24		;880Hz
+.equ	B4 = 25
+.equ	H4 = 26
+.equ	C4 = 27
+.equ	Cis4 = 28
+.equ	D4 = 29
+.equ	Dis4 = 30
+.equ	E4 = 31
+.equ	F4 = 32
+.equ	Fis4 = 33
+.equ	G4 = 34
+.equ	Gis4 = 35
+.equ	A5 = 36		;1760Hz
+.equ	B5 = 37
+.equ	H5 = 38
+.equ	C5 = 39
+.equ	Cis5 = 40
+.equ	D5 = 41
+.equ	Dis5 = 42
+.equ	E5 = 43
+.equ	F5 = 44
+.equ	Fis5 = 45
+.equ	G5 = 46
+.equ	Gis5 = 47
+.equ	A6 = 48		;3520Hz
+.equ	B6 = 49
+.equ	H6 = 50
+.equ	C6 = 51
+.equ	Cis6 = 52
+.equ	D6 = 53
+.equ	Dis6 = 54
+.equ	E6 = 55
+
+.equ	EoS = 255	;End of score
+.equ	en = 128	;End of line flag
+
+
+;--------------------------------------------------------------------;
+; T0 = int8(EL) x .uint8(EH), 32clks
+
+.macro MULT
+	mov	T0H, EL
+	sbrc	EL, 7
+	neg	EL
+
+	clr	T0L
+	sbrc	EH, 0
+	add	T0L, EL
+	lsr	T0L
+	sbrc	EH, 1
+	add	T0L, EL
+	lsr	T0L
+	sbrc	EH, 2
+	add	T0L, EL
+	lsr	T0L
+	sbrc	EH, 3
+	add	T0L, EL
+	clr	T0L
+	sbrc	EH, 4
+	add	T0L, EL
+	lsr	T0L
+	sbrc	EH, 5
+	add	T0L, EL
+	lsr	T0L
+	sbrc	EH, 6
+	add	T0L, EL
+	lsr	T0L
+	sbrc	EH, 7
+	add	T0L, EL
+
+	lsl	T0H
+	mov	T0H, _0
+	brcc	PC+3
+	neg	T0L
+	sbc	T0H, T0H
+.endm
+