24_press.asm

可作为接口实验的参考教材

;//****************************************************************
;文件名: Press for 8088

;功能: 压力测量显示实验

;接线: 用导线连接压力测量模块的P-Detect到并行模数转换模块的IN-0；
;      用导线连接并行模数转换CS_0809到CPU模块的200H;
;      并行模数转换模块的接+5V电源。
;//****************************************************************
;0～5V    模拟量
;0～FFH   数字量
;0～500g  重  量


Z8279    EQU       239H
D8279    EQU       238H


LEDFEQ   EQU       38H     ;扫描频率
LEDMOD   EQU       00H     ;左边输入 八位字符显示
                           ;外部译码键扫描方式,双键互锁
LEDCLS   EQU       0C1H    ;清除显示 RAM
  
D0809    EQU       200H    ;通道0地址

DSEG    SEGMENT
        BUFFER   DB  ?     
        BUFFER1  DB  ? 
        BUFFER2  DB  ?                
DSEG    ENDS

CODE    SEGMENT
ASSUME  CS:CODE,DS:CODE

START:   
         PUSH      CS        
         POP       DS 
         call      delay
         MOV       DX,Z8279
         MOV       AL,LEDMOD
         OUT       DX,AL
         MOV       AL,LEDFEQ
         OUT       DX,AL
         MOV       AL,LEDCLS;清除显示
         OUT       DX,AL
BEGIN:
         mov       dx,D0809
         mov       al,0
         out       dx,al
         call      delay
         in        al,dx           ;  读入结果
     
         MOV       AH,0
         MOV       BX,500          ; *500/256
         MUL       BX
         MOV       AL,AH
         MOV       AH,DL  
         MOV       BL,100 
         DIV       BL              ; /100      

         MOV       BUFFER,AL       ; 存百位  
         
         MOV       AL,AH
         MOV       AH,0
         MOV       BL,10
         DIV       BL
         MOV       BUFFER1,AL      ;存十位
         MOV       AL,AH
         MOV       BUFFER2,AL      ;存个位  
         
         MOV       SI,OFFSET  BUFFER 
DISPLAY: 
         MOV       AL,BUFFER         
         PUSH      AX         
         mov       dx,z8279
         mov       al,87h
         out       dx,al
         pop       ax
         LEA       BX,LEDSEG
         XLAT
         MOV       DX,D8279          ;将AL中内容写到数码管上
         OUT       DX,AL
         MOV       AL,BUFFER1         
         PUSH      AX         
         mov       dx,z8279
         mov       al,86h
         out       dx,al
         pop       ax
         LEA       BX,LEDSEG
         XLAT
         MOV       DX,D8279          ;将AL中内容写到数码管上
         OUT       DX,AL         
         MOV       AL,BUFFER2          
         PUSH      AX         
         mov       dx,z8279
         mov       al,85h
         out       dx,al
         pop       ax
         LEA       BX,LEDSEG
         XLAT
         MOV       DX,D8279          ;将AL中内容写到数码管上
         OUT       DX,AL         
                       
         mov       dx,z8279
         mov       al,80h
         out       dx,al
         MOV       DX,D8279
         MOV       AL,6FH            ;g
         OUT       DX,AL
                                
         CALL      delay
         JMP       BEGIN
         

delay    proc      near
         push      cx
         mov       cx,0ff00h
         loop      $
         pop       cx
         ret
         delay     endp
          
LEDSEG  DB     3FH,06H,5BH,4FH,66H,6DH,7DH,07H ;'0,1,2,3,4,5,6,7'
        DB     7FH,67H,77H,7CH,39H,5EH,79H,71H ;'8,9,A,B,C,D,E,F'
        DB     00H,63H,39H                     ;' ,o,C' 
        
        CODE  ENDS
END      START