p2.asm

用汇编语言编写的在MASM上实现大小写转换,排序,比较大小的源程序和可执行文件

EXTRN   START:FAR
PUBLIC  SUB2

HUANHANG  MACRO
          MOV DL,0DH
          MOV AH,2
          INT 21H
          MOV DL,0AH
          MOV AH,2
          INT 21H
ENDM

DATA2 SEGMENT
MEGP2   DB '2.FIND MAX(PLEASE ENTER STRINGS):$'
        ORG 2000H
BUFP2   DB 100
        DB ?
STRP2   DB 100 DUP(?)
DATA2 ENDS

STACK SEGMENT PARA STACK 'STACK'
      DB 100 DUP(0)
STACK ENDS

CODE2  SEGMENT
       ASSUME CS:CODE2,DS:DATA2
SUB2: PUSH DS
      PUSH AX
      PUSH DX
      MOV AX,DATA2
      MOV DS,AX
     
BB2:  MOV DX,OFFSET MEGP2
      MOV AH,9
      INT 21H
     
      HUANHANG      
            
      MOV DX,OFFSET BUFP2
      MOV AH,10
      INT 21H

      HUANHANG           

      MOV SI,OFFSET STRP2
      MOV CL,[SI-1]
      MOV CH,0
      CMP CL,0
      JE  CC2      
      DEC CL      
  
        MOV DL,[SI]   
NEXTP2: CMP DL,[SI+1]
        JAE AA2
        MOV DL,[SI+1]      
AA2:    INC SI
        LOOP NEXTP2          
    
      MOV AH,2
      INT 21H

CC2:  HUANHANG
      MOV AH,0
      INT 16H
      CMP AL,1BH
      JE  EXITP2
      JMP BB2

EXITP2:HUANHANG
       HUANHANG
       POP DX
       POP AX
       POP DS
       JMP START
CODE2  ENDS
       END