【文章內(nèi)容簡介】 ACK ENDS CODE SEGMENT PARA 39。code39。 ASSUME CS:CODE,DS:DATA,SS:STACK START PROC FAR PUSH DS XOR AX,AX PUSH AX MOV AX,DATA MOV DS,AX 。初始化 DS LEA DX,STR1 MOV AH,09H 。調(diào)用 DOS 09 號功能顯示字符串 STR1 INT 21H INPUT: LEA DX,BUFFER MOV AH,0AH 。調(diào)用 DOS 0A 號功能，從鍵盤輸入字符串并存儲 INT 21H LEA DI,TAB XOR CX,CX MOV AH,30H MOV DH,31H LEA BX,BUFFER+2 CALL CHECK 。調(diào)用檢錯子程序 CMP CK,1 JZ INPUT CALL COM 。調(diào)用排序子程序 MOV DL,0DH MOV AH,02H 。調(diào)用 DOS 02 號功能，顯示 DL 字符 INT 21H MOV DL,0AH MOV AH,02H INT 21H LEA DX,STR3 。調(diào)用 DOS 09 號功能，顯示字符串STR3 MOV AH,09H INT 21H CALL DISPY 。調(diào)用送顯程序 RET START ENDP CHECK PROC 。檢驗子程序 NEXT1: MOV CK,0 MOV [DI],AH INC DI MOV [DI],DH INC DI CMP DH,39H JZ L1 INC DH JMP L2 L1: MOV DH,30H INC AH L2: MOV AL,[BX] CMP AL,30H JB ERROR CMP AL,39H JA ERROR MOV [DI],AL INC DI INC BX MOV AL,[BX] CMP AL,30H JB ERROR CMP AL,39H JA ERROR MOV [DI],AL INC DI INC BX INC CX MOV AL,[BX] CMP AL,0DH JZ FINISH1 INC BX JMP NEXT1 ERROR: LEA DX,STR2 。調(diào)用 DOS 09 號功能，顯示字符串STR2 MOV AH,9 INT 21H MOV CK,1 FINISH1: RET CHECK ENDP COM PROC 。調(diào)用排序子程序 COMP1: PUSH CX MOV VAR1,CX SHL CX,1 SHL CX,1 SUB CX,4 MOV VAR2,CX POP CX DEC DI DEC DI JMP COTI COMP2: ADD DI,VAR2 COTI: MOV BL,0 MOV CX,VAR1 DEC CX AGAN: MOV AL,[DI] CMP AL,[DI4] JA GOON1 JB GOON3 INC DI MOV AL,[DI] CMP AL,[DI4] PUSHF DEC DI POPF JA GOON1 JBE GOON3 GOON1: MOV