標(biāo)題: 8086cpu電子琴Proteus仿真+代碼 [打印本頁]
作者: anan111    時間: 2020-1-4 21:34
標(biāo)題: 8086cpu電子琴Proteus仿真+代碼
8086cpu電子琴仿真，帶led,源代碼可編譯。

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  1. ;;;===Create By XuHe 2018 1.10===;;;
  2. ;;;===電子琴設(shè)計(jì)===;;;
  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.    ;發(fā)聲子程序
  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
復(fù)制代碼

所有資料51hei提供下載:
電子琴.zip (71.08 KB, 下載次數(shù): 115)


作者: ZIIvhJf    時間: 2020-1-7 21:15
很詳細(xì)的資料



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1