微机原理远程数据采集系统设计

下位机

   S_SHOW MACRO STRING
   MOV AH,9
   MOV DX,OFFSET STRING
   INT 21H
ENDM

DATAS SEGMENT
  RESULT DB 40H
  num_h db 0
  num_l db 0
  msg db 'plaese set time_cycle:','$'
  ;msg db 'plaese set time_cycle:',0AH,0DH,'$'
  str1  db 'Please input! Enter q key exit!',0ah,0dh,'$'
  errm db 'Error!',0ah,0dh,'$'
  s1     db 0
  ;延时周期 
  time_cycle DB 3
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX

    ;;;;;;;;;;;;;8255初始化
    call init_8255

    ;;;;8253初始化
    call init_8253

    ;设置延时周期
    call SetTimeCycle

    ;;;发送初始化
    call init_send

    againshow:
      ;调用数据采集
      caLl SHUJUCAIJI

      ;显示数据
    ;  call show 

      ;发送数据
      call send

      ;判断键盘是否有输入
      MOV AH,0BH
      INT 21H
      CMP AL,0
      JE againshow

    MOV AH,1      
    INT 21H
    JMP START

;显示数据
show proc
    MOV AL, RESULT
    MOV BL,50

    MUL BL
    MOV AL,AH
    MOV AH,0
    MOV BL,10
    DIV BL
    ;ASCLL码加30
    ADD AL,30H
    MOV num_h,AL

    ADD AH,30H
    MOV num_L,AH


    MOV AH,02H
    MOV DL,num_h
    INT 21H


    MOV AH,02H
    MOV DL,'.'
    INT 21H

    MOV AH,02H
    MOV DL,num_L
    INT 21H

    MOV AH,02H
    MOV DL,'V'
    INT 21H
ret
show endp   

;功能：回车换行
huiche proc
  MOV AH,02H
  MOV DL,0AH
  INT 21H

  MOV AH,02H
  MOV DL,0DH
  INT 21H
RET
huiche endp


;功能：设置延时周期
SetTimeCycle proc

  S_SHOW msg
  ;循环判断是否有输入
  again: MOV AH,0BH
    INT 21H
    CMP AL,0
    JE again
  ;因是字符串
  ;获取的ASCLL码值减30 得到延时周期
  MOV AH,1
  INT 21H
  sub AL, 30H
  MOV time_cycle, AL

  MOV AH,02H
  MOV DL,0AH
  INT 21H

  MOV AH,02H
  MOV DL,0DH
  INT 21H


RET
SetTimeCycle endp

;功能：数据采集
;出口：返回RESULT 数据采集的值
SHUJUCAIJI proc
   MOV DX, 0E098H;通道0 对应298

   OUT DX,AL ;启动
   CALL delay 
   MOV DX,0E098H;
   IN AL,DX;读取电压 al
   MOV RESULT,AL 
RET
SHUJUCAIJI ENDP


;延时子程序
delay proc

   MOV DX,0E08BH
   MOV AL,01110000B
   OUT DX,AL

   MOV DX,0E089H
   ;计算相乘
   MOV AL,time_cycle
   MOV BL,100
   MUL BL   

   ;先传低后传高
   OUT DX,AL
   MOV AL,AH 
   OUT DX,AL

   ;取出C端口     
    MOV DX,0E082H
   ;看最高位是否是高电平
   ISNO:IN AL,DX
   TEST AL,1
   JZ ISNO

RET  
delay endp;


;功能：发送数据
send proc
    mov al,RESULT
    ;发送
    mov ah,1
  mov dx,0

    int 14h
send endp

init_8253 proc
;;;;8253初始化
    ;给送控制字, 使其工作在方式三
    MOV DX,0E08BH    
    MOV AL,00110110B     
    OUT DX,AL
    ;送通道0的计数初值
    MOV DX, 0E088H    
    MOV AX,10000
    ;送低送高
    OUT DX,AL
    MOV AL,AH
    OUT DX,AL

RET  
init_8253 endp


init_8255 proc
    MOV DX,0E083H
    MOV AL,10000001B
    OUT DX, AL
RET  
init_8255 endp

init_send proc
mov ah,0
    mov dx,0
    mov al,10111011b
    int 14h
RET  
init_send endp


CODES ENDS
    END START

上位机

DATAS SEGMENT
    ;此处输入数据段代码  
    str1 db 'Please input! Enter q key exit!',0ah,0dh,'$'
    ;str2 db 'V=:',0ah,0dh,'$'
    errm db 'Error!',0ah,0dh,'$'
    num_L db 0
    num_H db 0
    RESULT DB 40H
    data db 0
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    ;此处输入代码段代码
    mov ah,9
    mov dx,offset str1
    int 21h

    mov ah,0
    mov dx,0
    mov al,10111011b
    int 14h;调用中断

send:
    mov ah,3;读入串行口状态
    mov dx,0
    int 14h
    test ah,00100000b;判断输入缓冲器是否为空
    jz receive;空跳转到接收

    mov ah,0bh;检查标准输入状态
    int 21h
    cmp al,0
    je receive              ;未准备好输入就跳到接收

    mov ah,8
    int 21h                 ;无回显的控制台输入

    mov data,al

    cmp data,'q'
    je exit

receive:
    mov ah,3
    mov dx,0
    int 14h
    test ah,1;判断输入缓冲器是否为满
    jz send;不满跳到发送

    mov ah,2;读入缓冲器的数据
    mov dx,0                ;收字符
    int 14h
    test ah,10001110b
    jnz error



    mov RESULT,al
    call show   

    cmp al,'q'
    je exit

    mov dl,al
    mov ah,2
    int 21h;显示

    jmp send
exit: 
    mov dx,0
    mov ah,1                ;输出字符
    int 14h

    test ah,80h
    jnz error

    mov ax,4c00h
    int 21h

error: mov ah,9
    mov dx,offset  errm
    int 21h
    mov ax,4c00h
    int 21h

show proc
    MOV AL, RESULT
    MOV BL,50

    MUL BL
    MOV AL,AH
    MOV AH,0
    MOV BL,10
    DIV BL
    ;ASCLL码加30
    ADD AL,30H
    MOV num_h,AL

    ADD AH,30H
    MOV num_L,AH


    MOV AH,02H
    MOV DL,num_h
    INT 21H


    MOV AH,02H
    MOV DL,'.'
    INT 21H

    MOV AH,02H
    MOV DL,num_L
    INT 21H

    MOV AH,02H
    MOV DL,'V'
    INT 21H
    call huiche
ret
show endp

;功能：回车换行
huiche proc
  MOV AH,02H
  MOV DL,0AH
  INT 21H

  MOV AH,02H
  MOV DL,0DH
  INT 21H
RET
huiche endp


CODES ENDS
    END START