北邮微机原理软件实验报告

.

LEA DX,STR3 ;调用DOS 09号功能，显示字符串STR3

MOV AH,09H INT 21H

CALL DISPY ;调用送显程序 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

Word 资料

;检验子程序 .

CMP AL,39H JA ERROR MOV [DI],AL INC DI INC BX MOV CMP JB CMP JA MOV INC INC INC MOV CMP JZ INC JMP ERROR: LEA STR2

MOV Word 资料

AL,[BX] AL,30H ERROR AL,39H ERROR [DI],AL DI BX CX

AL,[BX] AL,0DH FINISH1 BX NEXT1

DX,STR2 AH,9

;调用DOS 09号功能，显示字符串 .

INT 21H MOV CK,1 FINISH1: RET CHECK ENDP

COM PROC COMP1: PUSH MOV SHL SHL SUB MOV POP DEC DEC JMP COMP2: ADD COTI: MOV MOV DEC AGAN: MOV CMP Word 资料

CX VAR1,CX CX,1 CX,1 CX,4 VAR2,CX CX DI

DI COTI

DI,VAR2 BL,0 CX,VAR1 CX AL,[DI] AL,[DI-4]

;调用排序子程序 .

JA GOON1 JB GOON3 INC DI MOV AL,[DI] CMP AL,[DI-4] PUSHF DEC POPF

JA JBE GOON1: MOV PUSH MOV DEC DEC GOON2: MOV XCHG MOV INC LOOP POP DEC Word 资料

DI GOON1 BL,-1 CX CX,4 DI

DI AL,[DI] AL,[DI-4] [DI],AL DI GOON2 CX DI

GOON3