STACK   SEGMENT  STACK
        DB 200  DUP(?)
STACK   ENDS
DATA    SEGMENT
        BUF DW 100,200,500,-1
        N = ($-BUF)/2
CODE SEGMENT
        ASSUME CS:CODE;SS:STACK
BEGIN:  MOV AX,DATA 
        MOV DS,AX
        LEA SI,BUF
        MOV CX,N
L0:     MOV AX,[SI]
        CALL DISP10 ...