PRESSURE_PORT EQU 0FF8H
DATA SEGMENT
    PRESSURES DW 100 DUP(0)
    MBR_OF_SAMPLES EQU (($-PRESSURES)/2)
DATA ENDS

STACK_SEG SEGMENT
    DW 40 DUP(0)
    STACK_TOP LABEL WORD
    STACK_SEG ENDS
CODE SEGMENT
    ASSUME CS:CODE,DS:DATA,SS:STACK_SEG
START: 
     MOV AX,DATA
     MOV DS,AX
     MOV AX,STACK_SEG
     MOV SS,AX
     MOV SP,OFFSET STACK_TOP
     
     LEA SI,PRESSURES
     MOV BX,MBR_OF_SAMPLES
     MOV DX,PRESSURE_PORT
NEXT_VALUE:
         IN AX,DX
         AND AX,0FFFH
         MOV [SI],AX
         CALL WAIT_1MS
         INC SI
         INC SI
         DEC BX
         JNZ NEXT_VALUE
STOP:
    NOP

WAIT_1MS PROC NEAR
    MOV CX,23F2H
HERE:
    LOOP HERE
    RET
WAIT_1MS ENDP

CODE ENDS 
  END
  END