/*
程序效果：蜂鸣器发出两只老虎的音律
*/
ORG 0000H
AJMP START
ORG 000BH
AJMP TIM0
ORG 0030H
START: MOV TMOD,#01H //工作在方式1
MOV IE,#82H //开总控和分控
START0: MOV 30H,#00H //清零
NEXT: MOV A,30H //清零
MOV DPTR,#TABLE //赋表首地址
MOVC A,@A+DPTR
MOV R2,A //暂存A的值
JZ END0 //判断A是否为0
ANL A,#0FH //屏蔽A的高半
MOV R5,A //把A屏蔽高半的值赋给R5
MOV A,R2 //恢复A的原值
SWAP A //高低位互换
ANL A,#0FH //屏蔽原来A的高半
JNZ SING //判断原来A的高半是否为0
CLR TR0 //是0，则停止计时
SETB P2.0 //关闭蜂鸣器
LJMP D1 //转到标号为D1的地方
//原来A的高半不为零，开始唱歌
SING: DEC A //￥原来A的高半减1，用于读取相应的音律
MOV 22H,A //￥保存现在A的值
RL A //￥左循环移位
MOV DPTR,#TABLE1 //赋表首地址
MOVC A,@A+DPTR
MOV TH0,A //赋给TH0用于计时，用于控制蜂鸣器响的时间
MOV 21H,A //保存A的值
MOV A,22H //*
RL A //左循环移位
INC A //加1，根据表的存储顺序
MOVC A,@A+DPTR
MOV TL0,A //用于把低八位赋给TL0，用于计时
MOV 20H,A //*
SETB TR0 //启动定时器
D1: LCALL DELAY //调用延时子程序，能够听到该音律
INC 30H //加1
LJMP NEXT
END0: CLR TR0 //停止计时
JMP START0 //无限循环
//定时器0
TIM0: PUSH ACC //保护A的值
PUSH PSW
MOV TL0,20H //赋初值
MOV TH0,21H
CPL P2.0 //给蜂鸣器高低电平，使蜂鸣器发声
POP PSW //弹出相应的值
POP ACC
RETI //返回
//延时时间大约为：100ms=0.1s
DELAY: MOV R4,#187
D3: MOV R3,#248
DJNZ R3,$
DJNZ R4,D3
DJNZ R5,DELAY //R5代表节拍
RET
TABLE1: DW 63745,63969,64140,64215 //$ ;七个音符
DW 64360,64489,64603 //$ 他们之间存在一种对应关系
TABLE: DB 14H,24H,34H,14H,01H //$
DB 14H,24H,34H,14H,01H //$
DB 34H,44H,54H,02H,34H,44H,54H,02H //$
DB 52H,62H,52H,42H,34H,14H,01H,52H,62H,52H,42H,34H,14H,02H //$
DB 14H,54H,14H,02H,14H,54H,14H,08H,00H //$
END
/*
注：程序源于查老师
完整程序:http://www.51hei.com/ziliao/file/lzlhasm.rar
*/