road1.a51

一款ls2051国产的单片机,由p1.0和p1.1两个输出口接两个喇叭

extrn data(temp_th1)
extrn data(temp_tl1)

NAME ROAD1
ROAD11  SEGMENT  CODE
	PUBLIC 	ROAD1
	RSEG	ROAD11
ROAD1:
	USING	0
start0:
mov 60h,#00h ;取简谱码指针
next: mov a,60h ;简谱码指针载入A
mov dptr,#table ;至table取简谱码
movc a,@a+dptr
mov r2,a ;取到的简谱码暂存于R2
jz end1 ;是否取到00(结束码)?
anl a,#0fh ;不是,则取低4位(节拍码)
mov r5,a ;将节拍码存入R5
mov a,r2 ;将取到的简谱码再载入A
swap a ;高低四位交换
anl a,#0fh ;取低四位(音符码)
jnz sing ;取到的音符码是否为零?
clr tr1 ;是,则不发音
jmp d1
sing: dec a ;取到的音符码减1(不含0).
mov 63h,a ;存入(22H).
rl a ;乘2
mov dptr,#table1 ;至table1取相对的高位字节计数值
movc a,@a+dptr
mov th1,a ;取到的高位字节存入TH1
mov temp_th1,a ;取到的高位字节存入(21H)
mov a,63h ;再载入取的的音符码
rl a ;乘2
inc a ;加1
movc a,@a+dptr ;至table1取相对的低位字节计数值
mov tl1,a ;取到的高位字节存入TL1
mov temp_tl1,a ;取到的高位字节存入(20H)
setb tr1 ;启动timer0
d1: call delay ;基本单位时间1/4拍187毫秒
inc 60h ;取简谱码指针加1
jmp next ;取下一个码
end1: clr tr1 ;停止timer1
jmp start0 ;重复循环