19.asm

在256个带符号的数中找出绝对值最大的数

DATA  SEGMENT
      BLOCK DB 2,4,6,8,-10,-1,-1,-4,-5,-6,-7,-8,9,1,3,5
      COUNT EQU $-BLOCK
      MAX DB 0
DATA  ENDS
STACK1 SEGMENT PARA STACK
       DW 40 DUP(?)
STACK1 ENDS
CODE  SEGMENT 
      ASSUME CS:CODE,DS:DATA,SS:STACK1
START:MOV AX,DATA
      MOV DS,AX
      LEA BX,BLOCK
      MOV CX,COUNT
L1:MOV AL,[BX]
    TEST AL,80H
    JS ABSPRO                       ;符号位为1转ABSPRO
    JMP SEARCH
ABSPRO:SUB AL,1
       NOT AL
       AND AL,7FH
SEARCH:CMP AL,MAX
       JG BIGE                      ;大于时转BIGE
       JMP L2
BIGE:XCHG MAX,AL
L2:INC BX
      DEC CX
      JNZ L1                        ;不等于0转L1
      MOV AH,4CH
      INT 21H
CODE  ENDS
      END START