设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 单片机电子琴播放音乐带倒计时功能的proteus仿真（汇编 ...
返回列表 发新帖
查看: 4167|回复: 0
打印 上一主题 下一主题
收起左侧

单片机电子琴播放音乐带倒计时功能的proteus仿真（汇编）

[复制链接]
跳转到指定楼层
楼主
ID:137190 发表于 2016-9-4 21:16 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

电子琴与倒计时播放音乐全部资料下载： 电子琴和倒计时播放音乐.rar (30.5 KB, 下载次数: 47)
功能：
一、能通过按键，自行弹奏电子琴类的音乐；
二、能写好音乐代码后，自动播放音乐。 已通过测试。

带有proteus仿真，用汇编语言编写，内有详细注解
电子琴的基本原理是产生各个音符对应的频率，将频率放大后驱动喇叭发出音响。该电子琴包括手动弹奏与自动演奏两种功能，其中手动弹奏时还可录音回放


汇编源码如下：
  1. ORG 0000H
  2. SL      EQU   30H              ; SL存放秒的个位数
  3. SH  EQU   31H              ; SH存放秒的十位数
  4. ML      EQU   32H              ; ML存放分的个位数
  5. MH      EQU   33H              ; MH存放分的十位数
  6. HL      EQU   34H              ; HL存放时的个位数
  7. HH  EQU   35H             ; HH存放时的十位数
  8. ;
  9. L0      EQU   36H              ; L0~L3:显示数据存储器
  10. L1  EQU   37H
  11. L2      EQU   38H
  12. L3  EQU   39H
  13. DSPLYP  EQU   3AH              ; 显示数据指针(DISPLAY-POINT)
  14. PLYTS   EQU   3BH              ; 显示次数计数器(DISPLAY-TIMES)
  15. ;
  16. LPLMOD  BIT   39H              ; 低两位显示方式(LOW-PLAY-MOD)
  17. HPLMOD  BIT   3AH              ; 高两位显示方式(HIGH-PLAY-MOD)
  18. BRIGHT  BIT   3BH              ; DISPLAY子程序参数:亮灭指示位
  19. ;
  20. TCOUNT  EQU   3CH              ; 时间计数器(TIME-COUNT)
  21. ;
  22. ADDRES  EQU   3DH              ; 加1子程序参数
  23. MAX     EQU   3EH              ; 加1子程序参数
  24. IFDEC   BIT   20H              ; BCD加法子程序参数
  25. ;
  26. R_MOD   EQU   3FH              ; 响铃方式参数
  27. ;
  28. LED4    BIT   30H              ; 发光管状态位
  29. BELL    BIT   P1.7             ; 蜂鸣器
  30. SWITCH  BIT   P3.7             ; 继电器
  31. FKEY    BIT   P3.0             ; 功能键 （S1）
  32. MKEY    BIT   P3.1             ; 修改键 （S2）
  33. ;
  34. WORKIN  BIT   38H              ; 工作状态指示位
  35. ;

  37.                          SJMP START
  38.                          ORG 000BH

  40.                          LJMP LOOP1
  41.                          ;ORG 001BH
  42.     ;LJMP INT_1

  44. ORG 001BH

  46. JNB P0.6,YINYUE1  ;低音乐
  47. LJMP DIANZIQIN1

  49. ORG 0030H

  51.               DIANZIQIN1:
  52.                ;JB P0.1,ZIJIDE
  53.                JnB P3.6,HUAN   ;高主
  54.                 ;YINYUE1:ljmp YINYUE11
  55.               ZIJIDE:;CLR P2.0
  56.               LJMP INT_1
  57.               HUAN:LJMP DIANZIQIN
  58.                YINYUE1:INC 20H ;中断服务,中断计数器加1
  59.                        MOV TH1,#0D8H
  60.                       MOV TL1,#0EFH ;12M晶振，形成10毫秒中断
  61.                         RETI

  63.                         START: LJMP  MAIN             ; 0000H  引向主程序
  64.     LJMP  ERR              ; 0003H
  65.     NOP
  66.     NOP
  67.     LJMP  ERR              ; 引向出错处理程序
  68.    LOOP1: LJMP  PGT0             ; 000BH  引向中断处理程序PGT0
  69.     NOP
  70.     NOP
  71.     LJMP  ERR              ; 引向出错处理程序
  72.    LOOP2: LJMP  ERR              ; 0013H  INT1
  73.     NOP
  74.     NOP
  75.     LJMP  ERR
  76.    LOOP3:LJMP  ERR              ; 001BH  T1
  77.     NOP
  78.     NOP
  79.     LJMP  ERR
  80.    LOOP4:LJMP  ERR              ; 0023H
  81.     NOP
  82.     NOP
  83.     LJMP  ERR
  84.     LJMP  ERR              ; 002BH
  85.     NOP
  86.     NOP
  87. ;
  88. ;************
  89. ;   主程序  ;
  90. ;************
  91. MAIN: JNB P0.6,CCC
  92.   LJMP DIANZIQIN
  93. ;CCC:LJMP YINYUE

  95. CCC:MOV   IE,#00H          ; 关中断
  96.     MOV   SP,#57H          ; 设置堆栈指针
  97.     MOV   PSW,#00H         ; 选用寄存器组0
  98.     MOV   TMOD,#11H        ; 设定中断工作方式为T0和T1
  99.     ;
  100.     MOV   A,56H
  101.     CJNE  A,#0AAH,CSTART   ; 判上电复位标志，无标志转冷启动
  102.     MOV   A,57H
  103.     CJNE  A,#55H,CSTART    ; 无标志转冷启动
  104.     AJMP  HSTART           ; 有上电复位标志转热启动
  105.     NOP
  106.     NOP
  107.     LJMP  ERR              ; 软件陷阱,引向出错处理程序
  108. CSTART: MOV   P1,#0FFH         ; 冷启动,全面初始化
  109.     MOV   P3,#0FFH
  110.     MOV   TCON,#00H        ; 计时停止
  111.     MOV   TL0,#0B0H        ; 赋中断T0初值
  112.     MOV   TH0,#3CH
  113.     MOV   TCOUNT,#0AH      ; 赋定时器初值
  114.     MOV   R5,#00H          ; R5为一空单元(备用)
  115.     MOV   R4,#00H          ; R4 为工作模式选择寄存器
  116.     MOV   SL,#00H          ; 定时单元清零
  117.     MOV   SH,#00H          ; 秒
  118.     MOV   ML,#00H          ;
  119.     MOV   MH,#00H          ; 分
  120.     MOV   HL,#00H          ;
  121.     MOV   HH,#00H          ; 时
  122.     MOV   PLYTS,#64H       ; 赋显示次数初值为100次
  123.     MOV   DSPLYP,#L0       ; 显示指针指向显存单元
  124.     MOV   L0,#0AH          ; 送显示数据"-----"
  125.     MOV   L1,#0AH
  126.     MOV   L2,#0AH
  127.     MOV   L3,#04H
  128.     SETB  LED4             ; LED4为数码管之间的发光二极管
  129.     SETB  LPLMOD           ; 设定显示方式为闪烁
  130.     SETB  HPLMOD           ;
  131.     SETB  BRIGHT           ; 允许显示
  132.     CLR   WORKIN          ; 清工作标志 , 待命
  133.     AJMP  SETUP            ; 转开始工作
  134.     NOP
  135.     NOP
  136.     LJMP  ERR              ; 软件陷阱
  137. HSTART: MOV   SCON,#00H        ; 有上电标志,热启动,清串行口控制寄存器
  138.     MOV   IP,#00H          ; 清中断优先控制寄存器
  139.     SETB  FKEY             ; 重设按键
  140.     SETB  MKEY
  141.     SETB  EA               ; 开中断
  142.     AJMP  BEGIN            ; 转向继续工作
  143.     NOP
  144.     NOP
  145.     LJMP  ERR              ; 软件陷阱
  146. SETUP:  SETB  EA               ; 开中断
  147. ;
  148. MAIN1:  ACALL DISPLY           ; 调用显示
  149.     JB    FKEY,JUDGE       ; 按键扫描
  150.     ACALL KEYDLY           ; 延时消抖动
  151.     JB    FKEY,JUDGE       ; 无键按下转向判断是否到点
  152.     CLR   ET0              ; 功能键被按下,则
  153.     CLR   TR0          ; 暂停计时
  154.     ACALL MENU             ; 调用菜单设置程序
  155. BEGIN:  SETB  WORKIN           ; 置工作标志位,开始工作
  156.     SETB  ET0              ; 开中断
  157.     SETB  TR0              ; 开始计时
  158.     MOV   A,R4             ; 移入工作模式选择
  159.     RL    A         ; 指针放大
  160.     MOV   DPTR,#M_TAB
  161.     JMP   @A+DPTR          ; 根据工作模式跳转到相应程序段
  162. M_TAB:  AJMP  WORK1
  163.     AJMP  WORK2
  164.     AJMP  WORK3
  165.     AJMP  WORK4
  166.     NOP
  167.     NOP
  168.     LJMP  ERR              ; 软件陷阱
  169. WORK1:  ;
  170. WORK2:  CLR   SWITCH           ; 工作方式1和2:开继电器
  171.     AJMP  MAIN2
  172.     NOP
  173.     NOP
  174.     LJMP  ERR              ; 软件陷阱
  175. WORK3:  ;
  176. WORK4:  SETB  SWITCH           ; 工作方式3和4:不开继电器
  177. MAIN2:  CLR   BELL             ; 蜂鸣器短鸣一声,以示开始工作
  178.     ACALL DL05S
  179.     SETB  BELL
  180. JUDGE:  JNB   WORKIN,MAIN1     ; 判断是否在定时之中
  181.     MOV   A,SL             ; 判断秒是否为零
  182.     JNZ   MAIN1
  183.     MOV   A,SH             ; 判断秒是否为零
  184.     JNZ   MAIN1
  185.     MOV   A,ML             ; 判断分是否为零
  186.     JNZ   MAIN1
  187.     MOV   A,MH             ; 判断分是否为零
  188.     JNZ   MAIN1
  189.     MOV   A,HL             ; 判断时是否为零
  190.     JNZ   MAIN1
  191.     MOV   A,HH             ; 判断时是否为零
  192.     JNZ   MAIN1            ; 若时分秒全为零则
  193.     CLR   ET0              ; 停止计时
  194.     CLR   TR0              ;


  197.     ACALL ACTION          ; 调用到点工作子程序

  199.     AJMP  MAIN             ; 返回
  200.     NOP
  201.     NOP
  202.     LJMP  ERR              ; 软件陷阱
  203.     ;
  204. ;******************
  205. ;    倒计时程序   ;
  206. ;******************
  207. PGT0:   CLR   EA               ; 关中断
  208.     PUSH  ACC          ; 保护现场
  209.     PUSH  PSW
  210.     PUSH  DPL
  211.     PUSH  DPH
  212.     MOV   PSW,#08H        ; 选用寄存器组1
  213.     CLR   TR0              ; 暂停计时
  214.     MOV   A,#0B7H          ; 中断同步修正
  215.     ADD   A,TL0
  216.     MOV   TL0,A
  217.     MOV   A,#3CH
  218.     ADD   A,TH0
  219.     MOV   TH0,A
  220.     SETB  TR0              ; 恢复计时
  221.     DEC   TCOUNT           ; 定时器T0每50 000毫秒溢出一次,则
  222.     MOV   A,TCOUNT         ; 溢出10次为0.5秒
  223.     JNZ   OUTT0        ; 判断是否到半秒
  224.     MOV   TCOUNT,#0AH      ;
  225.     CPL   LED4         ; 若到半秒LED取反
  226.     JNB   LED4,OUTT0       ; LED每闪烁一次是一秒
  227.     MOV   R0,#SH           ; 移入秒位的地址
  228.     SETB  IFDEC            ; BCD子程序参数,使其做减法
  229.     ACALL ADDBCD           ; 调用BCD子程序, 秒减1
  230.     CJNE  R3,#99H,OUTT0    ; 判断秒要否借位
  231.     MOV   SH,#05H          ; 要借位则
  232.     MOV   SL,#09H          ; 送数据59(否则显示99)
  233.     MOV   R0,#MH           ; 移入分位的地址
  234.     ACALL ADDBCD          ; 分减1
  235.     CJNE  R3,#99H,OUTT0    ; 判断分要否借位
  236.     MOV   MH,#05H
  237.     MOV   ML,#09H
  238.     MOV   R0,#HH
  239.     ACALL ADDBCD
  240. OUTT0:  POP   DPH         ; 恢复现场
  241.     POP   DPL
  242.     POP   PSW
  243.     POP   ACC
  244.     SETB  EA

  246.     RETI                   ; 中断返回
  247.     NOP
  248.     NOP
  249.     LJMP ERR               ; 软件陷阱
  250.     ;
  251. ;
  252. ;**************************
  253. ;   BCD子程序(加1或减1 )  ;
  254. ;**************************
  255. ADDBCD: MOV   A,@R0            ; 移入被操作数的高位
  256.     DEC   R0               ; 指针减一
  257.     SWAP  A
  258.     ORL   A,@R0            ; 移入被操作数的低位
  259.     MOV   B,#01H           ; B寄存器送立即数#01H
  260.     MOV   C,IFDEC          ; 若减法标志位为1,则
  261.     MOV   B.3,C            ;
  262.     MOV   B.4,C            ; B寄存器的值被改为#99H
  263.     MOV   B.7,C            ;
  264.     ADD   A,B              ; 对一个压缩的BCD码加#99H等于对其减一
  265.     DA    A                ; BCD码调整
  266.     MOV   R3,A             ; 暂存结果
  267.     ANL   A,#0FH           ; 取低位码
  268.     MOV   @R0,A            ; 存数
  269.     MOV   A,R3             ; 取回结果
  270.     INC   R0               ; 指针加一
  271.     SWAP  A                ; 交换
  272.     ANL   A,#0FH           ; 取结果数的高位
  273.     MOV   @R0,A            ; 存数
  274.     RET
  275.     NOP
  276.     NOP
  277.     LJMP  ERR              ; 软件陷阱
  278. ;
  279. ;**************
  280. ;   加1程序   ;
  281. ;**************
  282. ADDONE: MOV   R0,ADDRES        ; 移入被加数单元的地址
  283.     CLR   IFDEC            ; 设定BCD子程序做加法
  284.     ACALL ADDBCD           ; 调用BCD子程序
  285.     CLR   C                ; 判断被加数是否大于
  286.     MOV   A,R3             ; 最大值"MAX"
  287.     CJNE  A,MAX,JGOVER
  288. JGOVER: JC    ENDADO
  289.     CLR   A                ; 若大于"MAX",则清零
  290.     MOV   @R0,A
  291.     DEC   R0
  292.     MOV   @R0,A
  293. ENDADO: RET
  294.     NOP
  295.     NOP
  296.     LJMP  ERR              ; 软件陷阱
  297. ;
  298. ;******************
  299. ;   调时快进程序  ;
  300. ;******************
  301. QUICK:  CLR   LPLMOD         ; 设定显示方式不闪烁
  302.     CLR   HPLMOD
  303.     ACALL ADDONE           ; 调用加1子程序
  304.     MOV   L0,R4            ; 将工作模式选择数移入显存
  305.     INC   L0               ; 加1转化成显示值
  306.     ACALL KEYDLY           ; 延时
  307.     ACALL DL100
  308.     JNB   MKEY,QUICK       ; 判断键是否松开
  309.     SETB  LPLMOD           ; 若松开则恢复闪烁显示方式
  310.     CJNE  R6,#02H,ENDQUK
  311.     SETB  HPLMOD
  312.     CLR   LPLMOD
  313. ENDQUK: RET
  314.     NOP
  315.     NOP
  316.     LJMP  ERR              ; 软件陷阱
  317. ;
  318. ;
  319. ;******************
  320. ;   功能菜单程序  ;
  321. ;******************
  322. MENU:   MOV   R6,#00H        ; 初始化;  R6 计功能键按键次数
  323.     MOV   ADDRES,#05H      ; 将 R5 的地址送入，以便于改变 R4 的值
  324.     MOV   MAX, #04H        ; 定义工作模式选择寄存器R4 的最大值
  325.     MOV   DSPLYP,#L0       ; 定义显示指针指向显存
  326.     SETB  LPLMOD          ; 设定低两位数闪烁
  327.     CLR   HPLMOD
  328.     MOV   L0,R4            ; 送显示数据"F-0X"
  329.     INC   L0
  330.     MOV   L1,#00H
  331.     MOV   L2,#0BH
  332.     MOV   L3,#00H
  333.     SETB  LED4
  334. ;
  335. WAITFK: ACALL DISPLY           ; 等待F键释放
  336.         JNB   FKEY,WAITFK
  337. MENU1:  ACALL DISPLY
  338.     JB    MKEY,JGFKEY      ; M键扫描
  339.     ACALL KEYDLY           ; 延时消抖动
  340.     JB    MKEY,JGFKEY      ; 未按下则转F键扫描
  341.     CJNE  R6,#00H,NEXT1    ;
  342.     MOV   SL,#00H          ; 若中途改变定时方式,则清除原计时数据
  343.     MOV   SH,#00H
  344.     MOV   ML,#00H
  345.     MOV   MH,#00H
  346.     MOV   HL,#00H
  347.     MOV   HH,#00H
  348. NEXT1:  MOV   R2,#00H          ; R2用于判断按键时间是否超过0.5秒
  349. NEXT2:  ACALL ADDONE           ; 调用加1程序
  350.     MOV   L0,R4            ; 移入工作方式选择数
  351.     INC    L0
  352.     ;
  353. WAITMK: ACALL DISPLY         ; 等待M键释放
  354.     INC   R2               ; R2自增一
  355.     CLR   C
  356.     CJNE  R2,#0C8H,JGQUIC  ; 若R2大于等于200则调用快进子程序
  357. JGQUIC: JC    WATMK1
  358.         ACALL QUICK
  359. WATMK1: JNB   MKEY,WAITMK      ; R2小于200则等待M键释放
  360. ;
  361. JGFKEY: JB    FKEY,MENU1       ; 功能(F)键扫描
  362.     ACALL KEYDLY           ; 延时消抖动
  363.     JB    FKEY,MENU1       ; 键未按下则转修改(M)键扫描
  364.     INC   R6               ; F键按键次数加1
  365.     MOV   A,R6             ; 移入按键次数
  366.     RL    A            ; 指针放大
  367.     MOV   DPTR,#FUNTAB
  368.     JMP   @A+DPTR          ; 根据按键次数跳转到相应的程序段
  369. FUNTAB: AJMP  WAITFK
  370.     AJMP  SETLOW
  371.     AJMP  SETHI
  372.     AJMP  ENDMEN
  373.     NOP
  374.     NOP
  375.     AJMP  ENDMEN
  376. ;STWKMD:                       ; 工作模式设定,不需另外改变菜单
  377. ;
  378. SETLOW: MOV   MAX,#60H         ; 设置低位(秒位或分位)
  379.     MOV   A,R4             ; 移入工作模式选择数
  380.     RL    A            ; 指针放大
  381.     MOV   DPTR,#FTAB1
  382.     JMP   @A+DPTR          ; 根据工作模式选择数跳转到相应的程序段
  383. FTAB1:  AJMP  SETSS
  384.     AJMP  SETM60
  385.     AJMP  SETSS
  386.     AJMP  SETM60
  387.     NOP
  388.     NOP
  389.     AJMP  WAITFK
  390. SETSS:    MOV   DSPLYP,#SL       ; 设定显示区域为MM:SS
  391.     MOV   ADDRES,#SH
  392.     AJMP  WAITFK
  393. SETM60:   MOV   DSPLYP,#ML       ; 设定显示区域为HH:MM
  394.     MOV   ADDRES,#MH
  395.     AJMP  WAITFK
  396. ;
  397. SETHI:    CLR   LPLMOD           ; 设置高位(分位或时位)
  398.     SETB  HPLMOD           ; 高两位数码管闪烁
  399.     MOV   MAX,#31H         ; 最大数为30
  400.     MOV   A,R4             ; 移入工作模式选择数
  401.     RL    A                ; 指针放大
  402.     MOV   DPTR,#FTAB2      ; 移入表首地址
  403.     JMP   @A+DPTR          ; 根据工作模式选择数跳转到相应的程序段
  404. FTAB2:  AJMP  SETM30
  405.     AJMP  SETHH
  406.     AJMP  SETM30
  407.     AJMP  SETHH
  408.     NOP
  409.     NOP
  410.     AJMP  WAITFK           ; 返回等待键释放
  411. SETM30: MOV   ADDRES,#MH       ; 移入分位的地址
  412.         AJMP  WAITFK           ; 转向等待键释放
  413. SETHH:  MOV   ADDRES,#HH       ; 移入时位的地址
  414.     AJMP  WAITFK           ; 转向等待键释放
  415. ;
  416. ENDMEN: CLR   HPLMOD           ; 恢复不闪烁显示方式
  417.     RET
  418.     NOP
  419.     NOP
  420.     LJMP  ERR              ; 软件陷阱
  421. ;
  422. ;****************
  423. ;  到点工作程序 ;
  424. ;****************
  425. ACTION: MOV   L0,R4            ; 移入工作模式选择数
  426.     INC   L0               ; 送显示数"F-0X"
  427.     MOV   L1,#00H
  428.     MOV   L2,#0BH
  429.     MOV   L3,#00H
  430.     SETB  LED4
  431.     MOV   DSPLYP,#L0       ; 指针指向显存
  432.     SETB  LPLMOD           ; 设定显示方式不闪烁
  433.     SETB  HPLMOD
  434.     MOV   A,R4             ; 移入工作模式选择数
  435.     RL    A                ;
  436.     MOV   DPTR,#A_TAB
  437.     JMP   @A+DPTR          ; 根据工作模式选择数跳转
  438. A_TAB:  AJMP  ACTF1            ; 工作模式一
  439.     AJMP  ACTF1            ; 工作模式二
  440.     AJMP  ACTF3            ; 工作模式三
  441.     AJMP  ACTF3            ; 工作模式四
  442.     NOP
  443.     NOP
  444.     LJMP  ERR              ; 软件陷阱
  445. ACTF1:  SETB  SWITCH           ; 工作模式一(或二): 开继电器
  446. LJMP AAA
  447.     BBB: MOV   R_MOD,#82H       ; 响铃模式参数#82H
  448.     MOV   R2,#96H          ; 响铃次数参数#96H
  449. ACTF11: ACALL RING           ; 调用响铃子程序
  450.     JNB   MKEY,ENDACT      ; 等待键按下
  451.     JNB   FKEY,ENDACT      ; 有键按下则结束响铃
  452.     DJNZ  R2, ACTF11       ; 次数未满继续响铃
  453.     MOV   R_MOD,#0FFH      ; 参数#0FF使响铃无效
  454.     AJMP  ACTF11           ; 无键按下返回
  455.     NOP
  456.     NOP
  457.     LJMP  ERR              ; 软件陷阱
  458. ACTF3:  CLR   SWITCH           ; 工作模式三(或四): 开继电器
  459.     CLR   BELL             ; 蜂鸣器短鸣一声
  460.     ACALL DL1S
  461.     SETB  BELL
  462.     MOV   R_MOD,#0FFH      ; 响铃模式参数#0FFH
  463.     MOV   R2,#96H          ; 响铃时间参数#96H
  464. ACTF31: ACALL RING        ; 调用响铃子程序
  465.     JNB   MKEY,ENDACT      ; 等待键按下
  466.     JNB   FKEY,ENDACT      ; 有键按下则结束
  467.     DJNZ  R2,ACTF31        ; 次数未满继续
  468.     MOV   R2,#96H          ; 重新赋值
  469.     CLR   BELL             ; 短鸣一声(说明: 响铃模式参数#0FFH使
  470.     ACALL DL100            ; 响铃程序无效,仅起延时作用,
  471.     SETB  BELL             ; 每延时一段时间短鸣一声,以
  472.     AJMP  ACTF31           ; 提醒使用者继电器仍在工作)
  473.     NOP
  474.     NOP
  475.     LJMP  ERR              ; 软件陷阱
  476. ENDACT: SETB  SWITCH           ; 关继电器
  477. AWAITF: ACALL DISPLY           ; 调用显示
  478.         JNB   FKEY,AWAITF      ; 等待键释放
  479. AWAITM: ACALL DISPLY           ; 调用显示
  480.     JNB   MKEY,AWAITM      ; 等待键释放
  481.     RET
  482.     NOP
  483.     NOP
  484.     LJMP  ERR              ; 软件陷阱
  485.     ;
  486. ;**************
  487. ;   响铃程序  ;
  488. ;**************
  489. RING:   MOV   R5,#18H          ; R5为循环控制变量
  490. RING1:  JNB   MKEY,R_EXIT      ; 键扫描
  491.     JNB   FKEY,R_EXIT      ; 有键按下则退出
  492.     MOV   A,R_MOD          ; 移入响铃模式参数
  493.     MOV   C,ACC.7          ; 根据响铃模式参数改变响铃
  494.     MOV   BELL,C
  495.     RL    A
  496.     MOV   R_MOD,A
  497.     ACALL DL100            ; 延时
  498.     DJNZ  R5,RING1         ; 循环次数控制
  499. R_EXIT: SETB  BELL             ; 关闭响铃
  500.     RET
  501.     NOP
  502.     NOP
  503.     LJMP ERR               ; 软件陷阱
  504. ;
  505. ;**************
  506. ;   显示程序  ;
  507. ;**************
  508. DISPLY: PUSH  ACC              ; 数据压栈保护
  509.     PUSH  PSW
  510.     MOV   PSW,#10H         ; 选用寄存器组2
  511.     MOV   R0,DSPLYP        ; 移入显示指针
  512.     MOV   R2,#0FDH         ; R2寄存的是数码管选通数
  513.     MOV   A,PLYTS          ; 移入显示循环控制量
  514.     JNZ   PLAY             ; 不为0则转PLAY
  515.     MOV   PLYTS,#64H       ; 否则从新赋值
  516.     CPL   BRIGHT           ; 亮灭指示位取反
  517. PLAY:   DEC   PLYTS            ; 显示循环控制量减1
  518.     JNB   LPLMOD,PLAYL     ; 低两位数码管不闪则"PLAYL"
  519.     JB    BRIGHT,PLAYL     ; 亮灭指示为1也"PLAYL"
  520.     ACALL NOPLAY           ; 否则灭灯延时
  521.     AJMP  PLAY1            ; 转显示高位数码管
  522.     NOP
  523.     NOP
  524.     LJMP ERR               ; 软件陷阱
  525. ;用来显示低位
  526. PLAYL:  ORL   P1,#7FH          ; 清原显示数据
  527.     ORL   P3,#3CH          ; 清原选通数据
  528.     MOV   A,R2             ; 移入数码管位选数
  529.     RL    A                ; 换一位
  530.     ANL   P3,A             ; 选通低位的个位数码管
  531.     MOV   R2,A             ; 暂存位选数
  532.     MOV   A,@R0            ; 移入显示数值
  533.     MOV   DPTR,#TABLE1     ; 移入表首地址
  534.     MOVC  A,@A+DPTR        ; 查表
  535.     ANL   P1,A             ; 送显示数据
  536.     ACALL DL1MS            ; 延时
  537.     INC   R0               ; 指向低位的十位数
  538.     JB    P3.3,PLAYL       ; 显示低位的十位数
  539. ;
  540. PLAY1:  JNB   HPLMOD,PLAYH     ; 高两位数码管不闪则"PLAYH"
  541.     JB    BRIGHT,PLAYH     ; 亮灭指示为1也"PLAYH"
  542.     ACALL NOPLAY           ; 否则灭灯延时
  543.     AJMP  OUTPLY           ; 转结束
  544.     NOP
  545.     NOP
  546.     LJMP ERR               ; 软件陷阱
  547. ;
  548. ;用来显示高位
  549. PLAYH:  ORL   P1,#7FH          ; 清原显示数据
  550.     ORL   P3,#3CH          ; 清原选通数据
  551.     ANL   P3,#0EFH         ; 选通高位的个位数数码管
  552.     MOV   A,@R0            ; 移入显示数值
  553.     MOV   DPTR,#TABLE1     ; 移入表首地址
  554.     MOVC  A,@A+DPTR        ; 查表
  555.     ANL   P1,A             ; 送显示数据
  556.     ACALL DL1MS            ; 延时
  557.     INC   R0               ; 指向高位的十位数
  558.     ;                      ; 显示高位的十位数
  559.     ORL   P1,#7FH          ; 清原显示数据
  560.     ORL   P3,#3CH          ; 清原选通数据
  561.     ANL   P3,#0DFH         ; 选通高位的十位数
  562.     MOV   A,@R0            ; 移入显示数值
  563.     MOV   C,LED4          ; 指针放大＋小灯状态
  564.     RLC   A                ;
  565.     MOV   DPTR,#TABLE2     ; 移入表首地址
  566.     MOVC  A,@A+DPTR        ; 查表
  567.     ANL   P1,A             ; 送显示数据
  568.     ACALL DL1MS            ; 延时
  569. ;
  570. OUTPLY: POP   PSW              ; 恢复数据
  571.     POP   ACC
  572.     RET
  573.     NOP
  574.     NOP
  575.     LJMP ERR               ; 软件陷阱
  576. ;
  577. TABLE1: DB  0C0H,0F9H,0A4H,0B0H, 99H, 92H, 82H,0F8H, 80H, 90H,0BFH, 8EH,0FFH
  578. ;           "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "F", " "
  579. ;
  580. TABLE2: DB  0FFH, 0DFH, 0F9H, 0D9H, 0A4H,  84H, 0B0H,  90H, 0BFH, 09FH
  581. ;    "  ",  " :",   "1 ",  "1:",  "2 ",    "2:",  "3 ",  "3:",  "- ",  "-:"
  582. ;
  583. ;
  584. ;
  585. ;**********************
  586. ;    无显示(灭灯)程序   ;
  587. ;**********************
  588. NOPLAY: ORL   P1,#7FH          ; 清显示数据
  589.     ORL   P3,#3CH          ; 清选通数据
  590.     INC   R0               ; 指针自增2
  591.     INC   R0
  592.     ACALL DL1MS            ; 延时
  593.     RET
  594.     NOP
  595.     NOP
  596.     LJMP  ERR              ; 软件陷阱
  597.     ;
  598. ;******************
  599. ;     延时程序    ;
  600. ;******************
  601. DL1MS:  MOV   R3,#0F9H         ; 延时 1250US  只为DISPLY所调用
  602. DL1MS1: NOP
  603.     NOP
  604.     NOP
  605.     DJNZ  R3,DL1MS1
  606.     RET
  607.     NOP
  608.     NOP
  609.     LJMP  ERR              ; 软件陷阱
  610.     ;
  611. KEYDLY: CLR   BELL        ; 按键消抖动专用延时程序,
  612.     ACALL DISPLY           ; 在消除抖动的同时发出按键提示音
  613.     SETB  BELL
  614.     RET
  615.     NOP
  616.     NOP
  617.     LJMP ERR               ; 软件陷阱
  618. ;
  619. DL50MS: MOV   R7,#0AH          ; 50毫秒延时程序
  620. DL50M1: ACALL DISPLY         ; 每调用一次显示程序5MS
  621.     DJNZ  R7,DL50M1        ; 调用10次
  622.     RET
  623.     NOP
  624.     NOP
  625.     LJMP  ERR              ; 软件陷阱
  626. ;
  627. DL100:  ACALL DL50MS           ; 延时100毫秒
  628.     ACALL DL50MS
  629.     RET
  630.     NOP
  631.     NOP
  632.     LJMP  ERR              ; 软件陷阱
  633. ;
  634. DL05S:  ACALL DL100            ; 延时0.5秒
  635.     ACALL DL100
  636.     ACALL DL100
  637.     ACALL DL100
  638.     ACALL DL100
  639.     RET
  640.     NOP
  641.     NOP
  642.     LJMP  ERR              ; 软件陷阱
  643.     ;
  644. DL1S:   ACALL DL05S            ; 延时1秒
  645.     ACALL DL05S
  646.     RET
  647.     NOP
  648.     NOP
  649.     LJMP  ERR              ; 软件陷阱
  650.     ;
  651. ;****************************
  652. ;     ERR(出错处理) 程序    ;
  653. ;****************************
  654. ERR:    CLR   EA               ; 关中断
  655.     MOV   DPTR,#ERR1       ; 准备返回地址
  656.     PUSH  DPL              ; 压栈
  657.     PUSH  DPH              ;
  658.     RETI                   ; 中断返回
  659. ERR1:   MOV   56H,#0AAH        ; 建立上电标志(出错标志)
  660.     MOV   57H,#55H
  661.     MOV   A,#00H           ; 准备返回地址
  662.     PUSH  ACC              ; 压栈
  663.     PUSH  ACC
  664.     RETI                   ; 中断返回
  665.     NOP
  666.     NOP
  667.     LJMP  ERR              ; 软件陷阱
  668. ;
  669.     ORG   07FAH
  670.     NOP
  671.     NOP
  672.     NOP
  673.     LJMP  ERR              ; 软件陷阱
  674.     ;AAA:JNB P0.6,CCC
  675.     ;CCC:LJMP YINYUE

  677.                           ;LJMP DIANZIQIN
  678.                   DIANZIQIN:;MOV P0,#00H
  679.                          ;clr p3.6
  680.                         ;setb P0.1
  681.                          SETB EA
  682.                          SETB ET1                       ;计数器0
  683.                          MOV TMOD,#20H
  684.                          MOV TH1,#09CH
  685.                          MOV TL1,#09CH                 ;定时器初植
  686.                          CLR TR1                        ;定时器不允许
  687.                   SCAN:                                 ;键盘扫描
  688.                          MOV A,P2                   ;判断键盘按下，跳到SCAN_1，若未按，继续扫描
  689.                          CJNE A,#0FFH,SCAN_1
  690.                          NOP

  692.                          SJMP SCAN
  693.                   SCAN_1:
  694.                          ACALL DELAY ;是不是真的要按下？如果是，则跳转SU_KEY查询是哪个按下？
  695.                          MOV A,P2
  696.                          CJNE A,#0FFH,SU_KEY
  697.                          NOP
  698.                          SJMP SCAN
  699.                   SU_KEY:JNB P0.6,LOOP11
  700.                          ;SJMP LOOP2
  701.                    ;LOOP11:LJMP AAA
  702.                          JNB P2.1,MU_1                  ;判断是哪个键按下？
  703.                          JNB P2.2,MU_2
  704.                          JNB P2.3,MU_3
  705.                          JNB P2.4,MU_4
  706.                          JNB P2.5,MU_5
  707.                          JNB P2.6,MU_6
  708.                          JNB P2.7,MU_7
  709.                          SJMP SCAN
  710.                   LOOP11:LJMP AAA
  711.                                                            ;R1信号周期
  712.                   MU_1:  MOV R1,#19                ;如果第一个按键按下，则R1=19，同时程序转NEXT
  713.                          SJMP NEXT
  714.                   MU_2:  MOV R1,#17
  715.                          SJMP NEXT
  716.                   MU_3:  MOV R1,#15
  717.                          SJMP NEXT
  718.                   MU_4:  MOV R1,#14
  719.                          SJMP NEXT
  720.                   MU_5:  MOV R1,#13
  721.                          SJMP NEXT
  722.                   MU_6:  MOV R1,#11
  723.                          SJMP NEXT
  724.                   MU_7:  MOV R1,#10
  725.                          SJMP NEXT
  726.                   NEXT:  MOV A,R1
  727.                          MOV R0,A
  728.                          SETB TR1                      ;启动定时器0

  730.                   NEXT_1:MOV A,P2                     ; 没键按下继续执行，有键按下，返回读引脚
  731.                          CJNE A,#0FFH,NEXT_1
  732.                          ACALL DELAY
  733.                          MOV A,P2                       ;真的没键按下？
  734.                          CJNE A,#0FFH,NEXT_1
  735.                          CLR TR1                        ;不响
  736.                          AJMP SCAN                     ;扫描键盘去
  737.                   INT_1:                                 ;中断程序
  738.                         DJNZ R0,RE                      ;R0不等于0时，返回
  739.                         CPL P0.0
  740.                         MOV A,R1
  741.                         MOV R0,A
  742.                   RE:   RETI
  743.                   DELAY:MOV R7,#100                    ;延长时间等待，键盘消抖
  744.                   D1:   MOV R6,#10
  745.                   D2:   DJNZ R6,D2
  746.                         DJNZ R7,D1
  747.                         ;LJMP BBB
  748.                         RET


  751.      AAA:
  752.      SETB P3.6
  753. ;CLR P0.6
  754. MOV SP,#50H
  755. MOV TH1,#0D8H
  756. MOV TL1,#0EFH
  757. MOV TMOD,#10H
  758. MOV IE,#88H
  759. LJMP TIAO
  760. MUSIC0:;JB P0.6,QIN


  763. ;LJMP BBB
  764. TIAO:
  765. NOP
  766. MOV DPTR,#DAT ;表头地址送DPTR
  767. MOV 20H,#00H ;中断计数器清0
  768. MOV B,#00H ;表序号清0
  769. MUSIC1:
  770. ;JnB P0.1,duan
  771. NOP
  772. CLR A
  773. MOVC A,@A+DPTR ;查表取代码
  774. JZ END0 ;是00H,则结束
  775. CJNE A,#0FFH,MUSIC5
  776. LJMP MUSIC3
  777. duan:ljmp BBB
  778. MUSIC5:
  779. NOP
  780. MOV R6,A
  781. INC DPTR
  782. MOV A,B
  783. MOVC A,@A+DPTR ;取节拍代码送R7
  784. MOV R7,A
  785. SETB TR1 ;启动计数
  786. MUSIC2:

  788. ;clr P3.6
  789. NOP
  790. CPL P0.0
  791. MOV A,R6
  792. MOV R3,A
  793. LCALL DEL
  794. MOV A,R7
  795. CJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?
  796. ;不等,则继续循环
  797. ;JB P0.6,QIN
  798. ;jb p0.6,QIN
  799. ;jnb p0.4,ting
  800. MOV 20H,#00H ;等于,则取下一代码
  801. INC DPTR
  802.   ;JB P0.6,QIN
  803. ; INC B
  804. LJMP MUSIC1
  805. ;ting:ljmp BBB
  806. ;QIN:CLR TR1
  807. ;QIN:LJMP DIANZIQIN
  808. ;DIANZIQIN
  809. MUSIC3:
  810. NOP
  811. CLR TR1 ;休止100毫秒
  812. MOV R2,#0DH
  813. MUSIC4:
  814. NOP
  815. MOV R3,#0FFH
  816. LCALL DEL
  817. DJNZ R2,MUSIC4
  818. INC DPTR
  819. LJMP MUSIC1
  820. END0:
  821. NOP
  822. MOV R2,#64H ;歌曲结束,延时1秒后继续
  823. MUSIC6:
  824. MOV R3,#00H
  825. LCALL DEL
  826. DJNZ R2,MUSIC6
  827. LJMP MUSIC0
  828. DEL:
  829. NOP
  830. DEL3:
  831. MOV R4,#02H
  832. DEL4:
  833. NOP
  834. DJNZ R4,DEL4
  835. NOP
  836. DJNZ R3,DEL3
  837. RET
  838. NOP
  839. DAT:
  840. db 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h
  841. db 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h
  842. db 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
  843. db 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
  844. db 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h
  845. db 2bh,20h,30h,10h,39h,10h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,20h
  846. db 20h,10h,20h,10h,2bh,10h,26h,30h,30h,80h,18h,20h,18h,20h,26h,20h
  847. db 20h,20h,20h,40h,26h,20h,2bh,20h,30h,20h,30h,20h,1ch,20h,20h,20h
  848. db 20h,80h,1ch,20h,1ch,20h,1ch,20h,30h,20h,30h,60h,39h,10h,30h,10h
  849. db 20h,20h,2bh,10h,26h,10h,2bh,10h,26h,10h,26h,10h,2bh,10h,2bh,80h
  850. db 18h,20h,18h,20h,26h,20h,20h,20h,20h,60h,26h,10h,2bh,20h,30h,20h
  851. db 30h,20h,1ch,20h,20h,20h,20h,80h,26h,20h,30h,10h,30h,10h,30h,20h
  852. db 39h,20h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,10h,40h,10h,20h,10h
  853. db 20h,10h,2bh,10h,26h,30h,30h,80h,00H

  855. END
复制代码





音乐, 电子琴, 单片机, 计数器, 存储器
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶顶 踩踩

相关帖子
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表