发布时间 : 星期一 文章北邮微机原理软件实验报告更新完毕开始阅读74a76ae3a3c7aa00b52acfc789eb172dec639955
.
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