小电子琴.asm

本人跟网上学单片机时,调试用过的资料,有汇编和C,

;小电子琴,按P3口的小键盘喇叭发出不同频率的声音。同时数码管显示不同的数字。 
;***************************************************************************
;* (程序转载请著明出处 ，未声明可适应本站腾龙/isp开发套件/倚天版开发套件      *
;*  E-mail:[e-mail] (51c51 test web)  51测试网，自学单片机的网站            *
;* Create by :石学军 www.51c51.com   www.8951.com 更多例程请登陆网站                 *
;***************************************************************************
org 0000h
ljmp start
org 0030h
start: mov p2,#0ffh
CLR P2.6 ;选中最右边的七段码。
mov p3,#0ffh ;初始化,键盘全部置高
l1: jnb p3.2,l2 ; 监测键盘如果3.2按下执行l2
jnb p3.4,l3 ;
jnb p3.5,l4 ;检测按键
ljmp l1 ;循环检测
l2:
cpl p3.3 ;小喇叭响
mov p0,#7eH ;显示'1'
lcall delay1 ;延时1
ljmp l1 ;重新监测键盘
l3: cpl p3.3
mov p0,#0A2H ;显示'2'
lcall delay2
ljmp l1
l4: cpl p3.3
mov p0,#62H ;显示'3'
lcall delay3
ljmp l1
delay1: mov r5,#100;延时1。
djnz r5,$
ret
delay2:
mov r5,#180;延时2。
djnz r5,$
ret
delay3:
mov r5,#250 ;延时3。
djnz r5,$
ret
end