DATAS SEGMENT
    BUF DB 1,3,5,7,9,-1,-2,-3,-4,'$'
    BUF1 DB 9 DUP(?)
    BUF2 DB 9 DUP(?) ;此处输入数据段代码  
   
DATAS ENDS

STACKS SEGMENT
    DB 200 DUP(0);此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
      MOV AX, DATAS
      MOV DS,AX
      LEA SI,BUF
      LEA DI,BUF1
      LEA BP,BUF2
      MOV BX,[SI]
      MOV CX,8
      CMP BX,0
      JB LOOP1
      MOV [BP],BX
      INC SI
      INC BP
      mov DX,WORD PTR[BP]
      ADD DX,30H
      JMP EXTE
LOOP1: MOV [DI],BX
      MOV DX,WORD PTR[DI]
      ADD DX,30H
      INC DI
      INC SI
      DEC CX
EXTE: MOV AH,9
      INT 21H
        MOV AH,4CH
        INT 21H
CODES ENDS
    END START