Proteus VSM Studio汇编 + 蜂鸣器播放谱曲八月桂花香

Posted 2022-05-31 perseverance52

Proteus VSM Studio汇编 + 蜂鸣器播放谱曲八月桂花香

• Proteus
  

运行时可以闭合任意一个按键来播放曲目，

VSM Studio汇编(.asm)

;========================================================
;八月桂花香 12M晶振
;========================================================

ORG     0000H
        LJMP    START
        ORG     000BH
        INC     20H             ;中断服务,中断计数器加1
        MOV     TH0,#0D8H
        MOV     TL0,#0EFH       ;12M晶振，形成10毫秒中断
       
       
        RETI
START:  
        MOV     SP,#50H
        MOV     TH0,#0FFH
        MOV     TL0,#0FFH
        MOV     TMOD,#01H
        MOV     IE,#82H
MUSIC0:
        NOP
        MOV     DPTR,#DAT       ;表头地址送DPTR
        MOV     20H,#00H        ;中断计数器清0
        MOV     B,#00H          ;表序号清0
MUSIC1:
        NOP
        CLR     A
        MOVC    A,@A+DPTR       ;查表取代码
        JZ      END0            ;是00H,则结束
        CJNE    A,#0FFH,MUSIC5
        LJMP    MUSIC3
MUSIC5:
        NOP
        MOV     R6,A
        INC     DPTR
        MOV     A,B
        MOVC    A,@A+DPTR       ;取节拍代码送R7
        MOV     R7,A
        SETB    TR0             ;启动计数
MUSIC2:
        NOP
        CPL     P1.2
        MOV     A,R6
        MOV     R3,A
        LCALL   DEL
        MOV     A,R7
        CJNE    A,20H,MUSIC2    ;中断计数器(20H)=R7否?
                                ;不等,则继续循环
        MOV     20H,#00H        ;等于,则取下一代码
        INC     DPTR
;       INC     B
        LJMP    MUSIC1
MUSIC3:
        NOP
        CLR     TR0             ;休止100毫秒
        MOV     R2,#0DH
MUSIC4:
        NOP
        MOV     R3,#0FFH
        LCALL   DEL
        DJNZ    R2,MUSIC4
        INC     DPTR
        LJMP    MUSIC1
END0:
        NOP
        MOV     R2,#64H        ;歌曲结束,延时1秒后继续
MUSIC6:
        MOV     R3,#00H
        LCALL   DEL
        DJNZ    R2,MUSIC6
        LJMP    MUSIC0
DEL:
        NOP
DEL3:                  
        MOV     R4,#02H
DEL4:   
        NOP
        DJNZ    R4,DEL4
        NOP
        DJNZ    R3,DEL3
        RET
        NOP
DAT:   
        DB      18H,     30H,     1CH,     10H
        DB      20H,     40H,     1CH,     10H     
        DB      18H,     10H,     20H,     10H
        DB      1CH,     10H,     18H,     40H
        DB      1CH,     20H,     20H,     20H
        DB      1CH,     20H,     18H,     20H     
        DB      20H,     80H,    0FFH,     20H
        DB      30H,     1CH,     10H,     18H
        DB      20H,     15H,     20H,     1CH
        DB      20H,     20H,     20H,     26H
        DB      40H,     20H,     20H,     2BH
        DB      20H,     26H,     20H,     20H     
        DB      20H,     30H,     80H,    0FFH
        DB      20H,     20H,     1CH,     10H
        DB      18H,     10H,     20H,     20H
        DB      26H,     20H,     2BH,     20H
        DB      30H,     20H,     2BH,     40H
        DB      20H,     20H,     1CH,     10H
        DB      18H,     10H,     20H,     20H
        DB      26H,     20H,     2BH,     20H
        DB      30H,     20H,     2BH,     40H
        DB      20H,     30H,     1CH,     10H
        DB      18H,     20H,     15H,     20H
        DB      1CH,     20H,     20H,     20H
        DB      26H,     40H,     20H,     20H     
        DB      2BH,     20H,     26H,     20H     
        DB      20H,     20H,     30H,     80H
        DB      20H,     30H,     1CH,     10H
        DB      20H,     10H,     1CH,     10H
        DB      20H,     20H,     26H,     20H
        DB      2BH,     20H,     30H,     20H
        DB      2BH,     40H,     20H,     15H
        DB      1FH,     05H,     20H,     10H
        DB      1CH,     10H,     20H,     20H
        DB      26H,     20H,     2BH,     20H
        DB      30H,     20H,     2BH,     40H
        DB      20H,     30H,     1CH,     10H
        DB      18H,     20H,     15H,     20H
        DB      1CH,     20H,     20H,     20H
        DB      26H,     40H,     20H,     20H
        DB      2BH,     20H,     26H,     20H
        DB      20H,     20H,     30H,     30H      
        DB      20H,     30H,     1CH,     10H
        DB      18H,     40H,     1CH,     20H
        DB      20H,     20H,     26H,     40H
        DB      13H,     60H,     18H,     20H
        DB      15H,     40H,     13H,     40H
        DB      18H,     80H,     00H
end

仿真资源和程序源码

• 说明

本实验基于Proteus8.9SP2平台。本项目可以使用基于内部的VSM Studio独立的Proteus仿真文件进行仿真，也同时保留Keil工程，通过keil工程编译后生成的hex文件在导入到Proteus中进行仿真。

链接：https://pan.baidu.com/s/1-UJ6-DhxZX-jdNhqCrJdaQ 
提取码：h3od

开发者涨薪指南 48位大咖的思考法则、工作方式、逻辑体系