标题: 基于8086的电子琴程序Proteus仿真 [打印本页]
作者: anan111    时间: 2023-6-9 18:51
标题: 基于8086的电子琴程序Proteus仿真
微机原理基础电子琴，有8255，8253芯片


  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, 下载次数: 16)




欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1