电子八音盒.txt

八音盒的音乐播放程序 可能中断可能会出现一点问题

soundh		equ	79h
soundl		equ	7Ah
soundstart	equ	7Bh
beep		bit	p1.7
		org	00h
start:		lcall	key
		org	1bh
		jmp	timer1
		org	030h
main:		mov	sp,#30h
		lcall	sound
		jmp	main
musdelay:	mov	r0,#10
d:		djnz	r0,d
		ret
timer1:		clr	tr1
		mov	th1,soundh
		mov	tl1,soundl
		cpl	beep
		setb	tr1
		reti
sound:		mov	tmod,#10h
		setb	ea
		setb	et1
		mov	soundstart,#00h
		mov	soundh,#0ffh
		mov	soundl,#0ffh
loopm:		mov	a,soundstart
		movc	a,@a+dptr
		jz	start
		push	dph
		push	dpl
		rl	a
		mov	b,a
		mov	dptr,#mustab
		movc	a,@a+dptr
		mov	soundh,a
		mov	th1,a
		mov	a,b
		inc	a
		mov	dptr,#mustab
		movc	a,@a+dptr
		mov	soundl,a
		mov	tl1,a
		setb	tr1
		pop	dpl
		pop	dph
		inc	soundstart
		mov	a,soundstart
		movc	a,@a+dptr
		lcall	delay1
		inc	soundstart
		clr	tr1
		lcall	delay
		jmp	loopm
musend:		clr	tr1
		clr	ea
		clr	et1
		clr	beep
		mov	a,#20h
		lcall	delay1
		ret
delay1:		mov	r0,#00h
		mov	r1,#00h	
		mov	r2,a
		mov	b,#2
		div	ab
		mov	r2,a
dlay1:		djnz	r0,dlay1
		mov	r0,#00h
		djnz	r1,dlay1
		mov	r0,#00h
		mov	r1,#00h
		djnz	r2,dlay1
		ret
delay:		mov	r0,#100
		mov	r1,#50
dlay:		djnz	r0,dlay
		mov	r0,#100
		djnz	r1,dlay
		ret
key:
key1:
		mov	a,p3
		mov	p2,a
		cjne	a,#01111111b,key2
		mov	dptr,#mu_tab1
		ljmp	main
key2:		mov	a,p3
		mov	p2,a
		cjne	a,#10111111b,key3
		mov	dptr,#mu_tab2
		ljmp	main					
key3:		mov	a,p3
		mov	p2,a
		cjne	a,#11011111b,key4
		mov	dptr,#mu_tab3
		ljmp	main
key4:		mov	a,p3
		mov	p2,a
		cjne	a,#11101111b,key5
		mov	dptr,#mu_tab4
		ljmp	main
key5:		mov	a,p3
		mov	p2,a
		cjne	a,#11110111b,key6
		mov	dptr,#mu_tab5
		ljmp	main
key6:		mov	a,p3
		mov	p2,a
		cjne	a,#11111011b,key7
		mov	dptr,#mu_tab6
		ljmp	main
key7:		mov	a,p3
		mov	p2,a
		cjne	a,#11111101b,key8
		mov	dptr,#mu_tab7
		ljmp	main		
key8:		mov	a,p3
		mov	p2,a
		cjne	a,#11111110b,key9
		mov	dptr,#mu_tab8
		ljmp	main
key9:		sjmp	key
mu_tab1:	db	2,4,6,2,5,2,6,2,4,2,3,2,2,6,6,2,9,2,8,2,6,2,5,2,4,2,5,2,6,6,6,2,8,2,9,2,
			0ah,2,9,2
		db	8,2,6,2,5,2,4,2,4,1,5,2,6,4,5,4,6,2,3,1,2,1,1,2,2,6,00h
mu_tab2:	db	8,1,9,2,8,2,7,1,6,2,5,2,4,1,2,4,2,6,2,0bh,2,0ah,2,9,2,6,2,8,6,9,2,0ah,2,9,
			2,8,1
		db	7,2,6,2,5,2,2,4,0bh,2,0ah,2,9,2,8,2,9,2,8,2,7,2,6,2,3,2,2,2,1,2,5,2,4,4,00h
mu_tab3:	db	8,4,7,2,6,4,8,0bh,2,0ch,2,0dh,2,0bh,2,9,2,0ah,2,0bh,,4,0ah,2,0bh,4,9,2,8,3
		db	6,4,8,4,7,2,6,4,8,2,0bh,4,0ch,2,0dh,3,0bh,2,0bh,2,0bh,2,0ch,2,0ch,2,0bh,,2,
		db	0ah,2,0bh,6,00h
mu_tab4:	db	6,2,8,2,9,2,0bh,2,0ch,2,0ah,2,9,2,8,4,0bh,2,9,2,0bh,2,8,2,0ah,2,9,2,4,2,2,
			2,6,2
		db	5,4,6,2,6,2,8,2,0bh,2,9,2,8,1,9,2,6,4,8,2,6,2,8,2,4,2,5,2,3,2,2,4,00h
mu_tab5:	db	8,2,5,2,6,2,4,2,3,2,2,2,1,2,4,4,2,2,9,2,9,2,9,2,0bh,2,9,2,8,2,8,2,5,4
		db	8,2,6,2,8,2,9,2,8,2,6,2,5,2,6,2,8,2,3,4,2,1,3,1,2,1,1,1,2,1,5,1,3,1,2,1,4,
			1,1,4,00h
mu_tab6:	db	1,1,6,1,6,2,4,2,5,6,6,2,2,1,1,1,4,4,6,1,8,1,8,2,6,2,9,2,8,2,6,4,6,2,6,1
		db	5,1,4,2,5,4,6,2,3,2,1,2,2,2,3,2,2,2,4,2,3,1,6,1,6,2,3,2,2,1,3,1,2,2,3,1,6,1,
			6,1
		db	6,2,3,4,3,1,2,1,3,1,2,2,5,2,2,2,4,2,3,12,1,1,4,00h
mu_tab7:	db	2,2,4,2,2,2,6,2,2,2,3,2,1,2,6,2,2,4,4,2,3,2,2,2,5,2,5,2,5,2,4,2,4,2,5,2,6,
			4,6,2,8,2
		db	6,2,9,2,6,2,5,2,5,2,9,2,5,4,4,2,4,2,5,2,6,2,6,2,3,2,2,2,2,2,1,2,2,4,00h
mu_tab8:	db	6,1,8,1,6,1,5,1,6,1,8,1,2,1,1,1,6,1,5,1,6,4,1,1,6,1,6,1,5,1,5,1,2,1,4,1,5,
			1,4,1
		db	2,1,1,1,2,6,9,2,9,2,9,2,8,2,8,1,6,1,6,2,5,1,6,1,5,1,6,1,4,1,2,1,2,2,5,2,5,
			2,5,2
		db	6,2,8,1,6,1,6,2,5,1,6,1,5,1,4,1,4,1,5,1,4,1,2,1,1,2,2,6,00h
end