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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机仿真论坛 › 基于8086的电子琴程序Proteus仿真
返回列表 发新帖
查看: 966|回复: 0
收起左侧

基于8086的电子琴程序Proteus仿真

[复制链接]
ID:567008 发表于 2023-6-9 18:51 | 显示全部楼层 |阅读模式
微机原理基础电子琴，有8255，8253芯片
1686307648273.png

  1. ;;;===Create By XuHe 2018 1.10===;;;
  2. ;;;===电子琴设计===;;;
  3. DATAS SEGMENT
  4.    CTR EQU 0206H
  5.    T0 EQU 82H    ;10000010B
  6. DATAS ENDS
  7. STACKS SEGMENT STACK
  8.    DW 128 DUP(?)
  9.    TOP EQU $-STACKS
  10. STACKS ENDS
  11. CODE    SEGMENT PUBLIC 'CODE'
  12.         ASSUME CS:CODE,DS:DATAS,SS:STACKS

  14. START:   
  15.     ;===初始化===
  16.     MOV AX,DATAS
  17.     MOV DS,AX     
  18.     MOV AX,STACKS
  19.     MOV SS,AX  
  20.     MOV SP,TOP
  21.     MOV AL,T0
  22.     MOV DX,CTR
  23.     OUT DX,AL  
  24.     MOV DX,0200H
  25.     MOV AL,0FFH
  26.     OUT DX,AL
  27.     ;===按键扫描===
  28.    K1:
  29.     MOV DX,0202H
  30.     IN AL,DX   
  31.     CMP AL,0FEH
  32.     JNZ K2
  33.     MOV DI,247
  34.     JMP DDD
  35.    K2:
  36.    MOV DX,0202H
  37.     IN AL,DX     
  38.     CMP AL,0FDH
  39.     JNZ K3
  40.     MOV DI,277
  41.     JMP DDD
  42.    K3:  
  43.    MOV DX,0202H
  44.     IN AL,DX      
  45.     CMP AL,0FBH
  46.     JNZ K4
  47.     MOV DI,311
  48.     JMP DDD
  49.    K4:   
  50.    MOV DX,0202H
  51.     IN AL,DX      
  52.     CMP AL,0F7H
  53.     JNZ K5
  54.     MOV DI,330
  55.     JMP DDD
  56.    K5:   
  57.    MOV DX,0202H
  58.     IN AL,DX         
  59.     CMP AL,0EFH
  60.     JNZ K6
  61.     MOV DI,370
  62.     JMP DDD
  63.    K6:   
  64.    MOV DX,0202H
  65.     IN AL,DX         
  66.     CMP AL,0DFH
  67.     JNZ K7
  68.     MOV DI,415
  69.     JMP DDD
  70.     K7:  
  71.     MOV DX,0202H
  72.     IN AL,DX         
  73.     CMP AL,0BFH
  74.     JNZ K8
  75.     MOV DI,466
  76.     JMP DDD
  77.     K8:   
  78.     MOV DX,0202H
  79.     IN AL,DX            
  80.     CMP AL,07FH
  81.     JNZ K1
  82.     MOV DI,495
  83.     JMP DDD
  84.     ;有键按下
  85.    DDD:  
  86.     MOV DX,0200H
  87.     OUT DX,AL   
  88.     CALL OUTTONE  
  89.     ;是否弹起，按的时间长短决定拍长
  90.    DELAY:
  91.    MOV DX,0202H
  92.    IN AL,DX
  93.    CMP AL,0FFH
  94.    JNZ DELAY   
  95.    ;停止   
  96.    MOV DX,0200H
  97.    MOV AL,0FFH
  98.    OUT DX,AL
  99.     CALL STOP
  100.     JMP K1
  101.    ;发声子程序
  102.    OUTTONE PROC NEAR
  103.     MOV DX,0406H
  104.     MOV AL,10010110B
  105.     OUT DX,AL
  106.     MOV DX,00H
  107.     MOV AX,5000
  108.     DIV DI
  109.     AND AX,00FFH
  110.     MOV DX,0404H
  111.     OUT DX,AL
  112.     RET
  113.    OUTTONE ENDP  
  114.    ;停止子程序
  115.    STOP PROC NEAR
  116.     MOV AL,10110001B
  117.     MOV DX,0406H
  118.     OUT DX,AL
  119.     MOV AX,5000
  120.     MOV DX,0404H
  121.     OUT DX,AL
  122.     MOV AL,AH
  123.     OUT DX,AL
  124.     RET
  125.     STOP ENDP
  126. CODE    ENDS
  127.         END START
复制代码

Keil代码与Proteus仿真下载: 8086设计--电子琴.7z (63.2 KB, 下载次数: 15)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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