80x86汇编语言程序：提示输入矩形的长和宽，并显示周长

写一个完整的80x86汇编语言程序，提示输入矩形的长和宽，并显示周长。

题目链接：http://zhidao.baidu.com/question/1731717776952045667.html

做而论道编写的程序如下：

提问者采纳

;================================================

ASSUME  CS:CODE, DS:DATA

DATA   SEGMENT

    MSG1   DB  13, 10, 'Please  input X(0~2559): $'

    MSG2   DB  13, 10, 'Please  input Y(0~2559): $'

    MSG3   DB  13, 10, '(X + Y) * 2 = $'

    NNNN   DW  ?

DATA   ENDS

;----------------------------------

CODE   SEGMENT

START:

    MOV   AX, DATA

    MOV   DS, AX

;-----------------------

    LEA   DX, MSG1

    MOV   AH, 9

    INT   21H

    CALL  INPUT

    MOV   NNNN, CX

    LEA   DX, MSG2

    MOV   AH, 9

    INT   21H

    CALL  INPUT

    ADD   CX, NNNN

    ADD   CX, CX

    LEA   DX, MSG3

    MOV   AH, 9

    INT   21H

    MOV   AX, CX

    CALL  OUTPUT

EXIT:

    MOV   AH, 4CH

    INT   21H              ;返回DOS

;----------------------------------

INPUT:

    MOV   BL, 10

    MOV   CX, 0

IN_X:

    MOV   AH, 7

    INT   21H

    CMP   AL, 13

    JE    IN_END

    CMP   AL, '0'

    JB    IN_X

    CMP   AL, '9'

    JA    IN_X

    MOV   DL, AL

    MOV   AH, 2

    INT   21H

    MOV   AL, DL

    SUB   AL, 30H

    MOV   AH, 0

    XCHG  AX, CX

    MUL   BL

    ADD   CX, AX

    CMP   CH, 0

    JNZ   IN_END

    JMP   IN_X

IN_END:

    RET

;----------------------------------

OUTPUT:

    MOV   BX, 10

    MOV   CX, 0

OL1:MOV   DX, 0

    DIV   BX

    ADD   DL, '0'

    PUSH  DX

    INC   CX

    CMP   AX, 0

    JNZ   OL1

    MOV   AH, 2

OL2:POP   DX

    INT   21H

    LOOP  OL2

    RET

;----------------------------------

CODE   ENDS

    END  START

;================================================

提问者评价：谢谢 !