...
ponnota:
	mov dpsel,#01h 
	mov a,r2 		;meto numero nota en registro 
	movc a,@a+dptr 		;apunto a la parte alta de la nota 
	mov cmh7,a 
	inc r2 			;incremento r2 para leer siguiente valor 
	mov a,r2 		;meto r2+1 
	movc a,@a+dptr 		;parte baja nota 
	mov cml7,a 
	inc r2 
	mov a,r2 
	movc a,@a+dptr 
	mov ctrelh,a 
	inc r2 
	mov a,r2 
	movc a,@a+dptr 
	mov ctrell,a 
	ret