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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › MCU综合技术区 › 8086微机课设程序
返回列表 发新帖
查看: 3437|回复: 0
收起左侧

8086微机课设程序

[复制链接]
ID:212700 发表于 2017-6-19 19:41 | 显示全部楼层 |阅读模式
中南大学微机课程设计
0.png

8086源程序如下:
  1. INCLUDE ZUOZHE.INC
  2. INCLUDE HUANYING.inc
  3. INCLUDE ZAIJIAN.inc
  4. INCLUDE DAIJI.inc
  5. .386P
  6. IOY0 EQU 3000H ;片选 IOY0 对应的端口始地址
  7. IOY1 EQU 3040H
  8. IOY2 EQU 3080H
  9. IOY3 EQU 30C0H
  10. MY8251_DATA  EQU IOY2+00H*4 ;8251 数据寄存器
  11. MY8251_MODE  EQU IOY2+01H*4 ;8251 方式控制寄存器
  12. MY8254_COUNT2 EQU IOY3+02H*4 ;8254 计数器 2 端口地址
  13. MY8254_MODE EQU IOY3+03H*4 ;8254 控制寄存器端口地址
  14. MY8255_A EQU IOY0+00H*4 ;8255 的 A 口地址
  15. MY8255_B EQU IOY0+01H*4 ;8255 的 B 口地址
  16. MY8255_C EQU IOY0+02H*4 ;8255 的 C 口地址
  17. MY8255_MODE EQU IOY0+03H*4 ;8255 的控制寄存器地址
  18. STACK1 SEGMENT  STACK
  19.          DW 256 DUP(?)
  20. STACK1 ENDS
  21. DATA SEGMENT USE16
  22.      ADDR DW ?
  23. DTABLE DB   3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H  
  24. STR2 DB '          1         

  26. STR3 DB '          2         

  28. STR4 DB '          3         


  31. STR5 DB '        BYE-BYE      

  33. DATA ENDS
  34. CODE SEGMENT USE16
  35. ASSUME CS:CODE,DS:DATA
  36. START: MOV AX,DATA
  37.        MOV DS,AX
  38. A2: MOV ADDR,OFFSET ZUOZHE
  39.        MOV SI,ADDR
  40. A1:    MOV  CX,20H
  41. LOOP2: CALL DISPHZ
  42.        SUB  SI,32
  43.        LOOP LOOP2
  44.        CALL CCSCAN
  45.        JNZ BEGIN
  46.        ADD  SI,2  
  47.        MOV  AX,SI      
  48.        SUB  AX,ADDR
  49.        CMP  AX,96               ;比较文字是否显示完毕
  50.        JNB  A2                  
  51.        JMP  A1      
  52. BEGIN: MOV  SI,3000H               ;建立缓冲区，存放要显示的键值
  53.            MOV  AL,00H                 ;先初始化键值为0
  54.            MOV  [SI],AL
  55.            MOV  [SI+1],AL
  56.            MOV  [SI+2],AL
  57.            MOV  [SI+3],AL
  58.            MOV  [SI+4],AL
  59.            MOV  [SI+5],AL
  60.            MOV  DI,3005H
  61.        MOV DX,MY8255_MODE ;初始化 8255 工作方式
  62.        MOV AL,81H ;方式 0，A 口、B 口输出，C 口低 4 位输入
  63.        OUT DX,AL
  64.        CALL DIS                    ;显示刷新                     
  65.            CALL CLEAR                  ;清屏
  66.        CALL CCSCAN ;扫描按键
  67.        JNZ GETKEY1 ;有键按下则跳置 GETKEY1
  68.        JMP BEGIN ;无按键则跳回继续循环，有则退出
  69. QUIT:  MOV AX,4C00H ;返回到 DOS
  70.        INT 21H
  71. GETKEY1:MOV CH,0FEH
  72.         MOV CL,00H ;设置当前检测的是第几列
  73. COLUM: MOV AL,CH ;选取一列，将 X1～X4 中一个置 0
  74.        MOV DX,MY8255_A
  75.        OUT DX,AL
  76.        MOV DX,MY8255_C ;读 Y1～Y4，用于判断是哪一行按键闭合
  77.        IN AL,DX
  78.    L1: TEST AL,01H ;是否为第 1 行
  79.        JNZ L2 ;不是则继续判断
  80.        MOV  AL,01H
  81.        CALL PUTBUF
  82.        JMP KEY1
  83.    L2: TEST AL,02H ;是否为第 2 行
  84.        JNZ L3 ;不是则继续判断
  85.        MOV  AL,02H
  86.        CALL PUTBUF
  87.        JMP KEY2
  88.    L3: TEST AL,04H ;是否为第 3 行
  89.        JNZ L4 ;不是则继续判断
  90.        MOV  AL,03H
  91.        CALL PUTBUF
  92.        JMP KEY3
  93.    L4: TEST AL,08H ;是否为第 4 行
  94.        JNZ COLUM ;不是则继续判断
  95.        MOV  AL,04H
  96.        CALL PUTBUF
  97.        JMP KEY4
  98. KEY1:      CALL FINSH
  99.            PUSH AX
  100.            CALL DIS                    ;显示刷新
  101.                POP  AX
  102.                PUSH BX
  103.                MOV BX,OFFSET STR2
  104.                CALL STRING
  105.                POP BX
  106.    A21:    MOV ADDR,OFFSET HUANYING
  107.            MOV SI,ADDR
  108.    A11:    MOV  CX,20H
  109.    LOOP21: CALL DISPHZ
  110.            SUB  SI,32
  111.            LOOP LOOP21
  112.            CALL CCSCAN
  113.            JNZ BEGIN
  114.            ADD  SI,2  
  115.            MOV  AX,SI      
  116.            SUB  AX,ADDR
  117.            CMP  AX,96               ;比较文字是否显示完毕
  118.            JNB  A21                  
  119.            JMP  A11      
  120. KEY2:      CALL FINSH
  121.            PUSH AX
  122.            CALL DIS                    ;显示刷新
  123.                POP  AX
  124.                MOV BX,OFFSET STR3
  125.                CALL STRING
  126.    A22:    MOV ADDR,OFFSET DAIJI
  127.            MOV SI,ADDR
  128.    A12:    MOV  CX,20H
  129.    LOOP22: CALL DISPHZ
  130.            SUB  SI,32
  131.            LOOP LOOP22
  132.            CALL CCSCAN
  133.            JNZ BEGIN
  134.            ADD  SI,2  
  135.            MOV  AX,SI      
  136.            SUB  AX,ADDR
  137.            CMP  AX,256               ;比较文字是否显示完毕
  138.            JNB  A22                  
  139.            JMP  A12      
  140. KEY3:      CALL FINSH
  141.            PUSH AX
  142.            CALL DIS                    ;显示刷新
  143.                POP  AX
  144.                MOV BX,OFFSET STR4
  145.                CALL STRING
  146.    A23:    MOV ADDR,OFFSET ZAIJIAN
  147.            MOV SI,ADDR
  148.    A13:    MOV  CX,20H
  149.    LOOP23: CALL DISPHZ
  150.            SUB  SI,32
  151.            LOOP LOOP23
  152.            CALL CCSCAN
  153.            JNZ BEGIN
  154.            ADD  SI,2  
  155.            MOV  AX,SI      
  156.            SUB  AX,ADDR
  157.            CMP  AX,96               ;比较文字是否显示完毕
  158.            JNB  A23                  
  159.            JMP  A13      
  160. KEY4:      CALL FINSH
  161.            PUSH AX
  162.            MOV BX,OFFSET STR5
  163.                CALL STRING
  164.            CALL DIS                    ;显示刷新
  165.                POP  AX
  166.                CALL CLEAR
  167.        MOV AX,4C00H ;结束程序退出
  168.        INT 21H
  169. CCSCAN PROC NEAR ;扫描是否有按键闭合子程序
  170.        MOV AL,00H
  171.        MOV DX,MY8255_A ;将 4 列全选通，X1～X4 置 0
  172.        OUT DX,AL
  173.        MOV DX,MY8255_C
  174.        IN AL,DX ;读 Y1～Y4
  175.        NOT AL
  176.        AND AL,0FH ;取出 Y1～Y4 的反值
  177.        RET
  178. CCSCAN ENDP
  179. DISPHZ PROC NEAR ;显示 1 屏汉字子程序
  180.        PUSH CX
  181.        MOV CX,16
  182.        MOV BX,0FFFEH
  183. LOOP1: MOV AL,BYTE PTR[SI]
  184.        MOV AH,BYTE PTR[SI+1]
  185.        ROL EAX,16
  186.        MOV AX,BX
  187.        ADD SI,2
  188.        ROL BX,1
  189.        NOT EAX
  190.        MOV DX,IOY1
  191.        OUT DX,EAX
  192.        CALL DALLY
  193.        LOOP LOOP1
  194.        POP CX
  195.        RET
  196.        DISPHZ ENDP
  197. DALLY PROC NEAR ;软件延时子程序
  198.        PUSH CX
  199.        PUSH AX
  200.        MOV CX,09H
  201.        D1: MOV AX,0F000H
  202.        D2: DEC AX
  203.        JNZ D2
  204.        LOOP D1
  205.        POP AX
  206.        POP CX
  207.        RET
  208. DALLY ENDP
  209. FINSH PROC NEAR
  210.        MOV  EAX,0                ;灭灯
  211.        MOV  DX,IOY1
  212.        OUT  DX,EAX
  213.        RET
  214. FINSH ENDP
  215. DIS PROC NEAR                      ;显示键值子程序
  216.        PUSH AX                     ;以缓冲区存放的键值为键值表偏移找到键值并显示
  217.            MOV  SI,3000H                              
  218.            MOV  DL,0DFH
  219.            MOV  AL,DL
  220. AGAIN: PUSH DX
  221.        MOV  DX,MY8255_A
  222.        OUT  DX,AL                  ;设置X1～X4，选通一个数码管   
  223.        MOV  AL,[SI]                ;取出缓冲区中存放键值                  
  224.        MOV  BX,OFFSET DTABLE
  225.            AND  AX,00FFH
  226.            ADD  BX,AX                  
  227.            MOV  AL,[BX]                ;将键值作为偏移和键值基地址相加得到相应的键值
  228.        MOV  DX,MY8255_B
  229.            OUT  DX,AL                  ;写入数码管A～Dp
  230.            CALL DALLY
  231.            INC  SI                     ;取下一个键值
  232.        POP  DX
  233.        MOV  AL,DL
  234.            TEST AL,01H                 ;判断是否显示完？
  235.        JZ   OUT1                   ;显示完，返回
  236.            ROR  AL,1            
  237.            MOV  DL,AL
  238.            JMP  AGAIN                  ;未显示完，跳回继续
  239. OUT1:  POP  AX                     
  240.            RET
  241. DIS ENDP
  242. CLEAR PROC NEAR                    ;清除数码管显示子程序
  243.        MOV  DX,MY8255_B            ;段位置0即可清除数码管显示   
  244.        MOV  AL,00H
  245.        OUT  DX,AL
  246.            RET
  247. CLEAR ENDP
  248. PUTBUF PROC NEAR                   ;保存键值子程序
  249.        MOV  SI,DI
  250.        MOV  [SI],AL
  251.            DEC  DI
  252.            CMP  DI,2FFFH
  253.            JNZ  GOBACK
  254.            MOV  DI,3005H
  255. GOBACK: RET
  256. PUTBUF ENDP
  257. STRING PROC NEAR
  258.        MOV AL, 0B6H ;初始化 8254，得到收发时钟
  259.        MOV DX, MY8254_MODE
  260.        OUT DX, AL
  261.        MOV AL, 0CH
  262.        MOV DX, MY8254_COUNT2
  263.        OUT DX, AL
  264.        MOV AL, 00H
  265.        OUT DX, AL
  266.        CALL INIT ;初始化 8251
  267.        CALL DALLY1
  268.        MOV AL,7EH
  269.        MOV DX, MY8251_MODE
  270.        OUT DX, AL  ;8251 方式字
  271.        CALL DALLY1
  272.        MOV AL, 34H
  273.        OUT DX, AL  ;8251 控制字
  274.        CALL DALLY1
  275.        MOV CX, 0016H ;10 个数
  276. A111: MOV AL, 37H
  277.        MOV DX, MY8251_MODE
  278.        OUT DX, AL
  279.        MOV AL, [BX]
  280.        MOV DX, MY8251_DATA
  281.        OUT DX, AL  ;发送数据
  282.        MOV DX, MY8251_MODE
  283. A222: IN AL, DX ;判断发送缓冲是否为空
  284.        AND AL, 01H
  285.        JZ A222
  286.        CALL DALLY
  287. A333: IN AL, DX ;判断是否接收到数据
  288.        AND AL, 02H
  289.        JZ A333
  290.        MOV DX, MY8251_DATA
  291.        IN AL, DX ;读取接收到的数据并显示
  292.        MOV DL,AL
  293.        MOV AH,02H
  294.        INT 21H
  295.        INC BX
  296.        LOOP A111
  297.        RET
  298. STRING ENDP
  299. INIT  PROC NEAR
  300.       MOV AL, 00H  ;复位 8251 子程序
  301.       MOV DX, MY8251_MODE
  302.       OUT DX, AL


  305. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码



所有资料51hei提供下载:
微机课程设计.zip (5.55 KB, 下载次数: 33)
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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