欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 基于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.raoushi.com/bbs/) Powered by Discuz! X3.1