80x86汇编语言－－输入表达式，再计算

;键盘输入一个算术表达式，计算表达式的值，以十进制、十六进制、及二进制格式输出结果。

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

;其中表达式中包含的整数均为十进制非符号数(其值 < pow(2, 32));

;表达式中包含的运算符包括+、*两个;

;计算时不考虑运算符的优先级，即一律从左到右计算;

;计算过程中若有值超过32位，则一律忽略超过32位的部分，故计算的最终结果不会超过32位。

;例如:

;输入:

;1234*5678+98765*54321+12345678

;输出:

;1234*5678+98765*54321+12345678=

;3733613191

;DE8A6A87h

;1101 1110 1000 1010 0110 1010 1000 0111B

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

ASSUME   CS:CC, DS:QW

;1234*5678+98765*54321+12345678=

;37 33 61 31 91

;DE8A6A87h

;1101 1110 1000 1010 0110 1010 1000 0111B

QW  SEGMENT

    S1  DB   '1234*5678+98765*54321+12345678= '

    MSG DB   'Input arithmetic expression:', 13, 10, 36

    SN  DB   80

    SX  DB   ?

    S2  DB   85 DUP(?)

    N1  DW   0

    N2  DW   0

    M1  DW   0134

    M2  DW   0

    X   DW   ?, ?, ?, ?, ?, ?, ?, ?

    Y   DB   0, 0, 0, 0, 0, 0, 0, 0, 0, 0   ;存放BCD码

QW  ENDS

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

CC  SEGMENT

START:

    MOV   AX, QW

    MOV   DS, AX

    LEA   DX, MSG

    MOV   AH, 9

    INT   21H

    LEA   DX, SN

    MOV   AH, 10

    INT   21H

    MOV   CL, SX

    MOV   CH, 0

    MOV   SN, 13

    MOV   SX, 10

    LEA   DI, S2

    ADD   DI, CX

    MOV   BYTE PTR [DI], '='

    INC   DI

    MOV   BYTE PTR [DI], 13

    INC   DI

    MOV   BYTE PTR [DI], 10

    INC   DI

    MOV   BYTE PTR [DI], 36

    LEA   DX, SN

    MOV   AH, 9

    INT   21H

;    LEA   SI, S1      ;使用内定的表达式来计算

    LEA   SI, S2      ;使用键入的表达式来计算

    MOV   N1, 0

    MOV   N2, 0

    CALL  READ_STR_N1

    MOV   AX, N1

    MOV   M1, AX

    MOV   AX, N2

    MOV   M2, AX

M_LOOP:

    CMP   BYTE PTR [SI], '*'

    JZ    M_CHE

    CMP   BYTE PTR [SI], '+'

    JZ    M_JIA

    CMP   BYTE PTR [SI], '='

    JZ    M_END

    JMP   EXIT

M_CHE:

    INC   SI

    MOV   N1, 0

    MOV   N2, 0

    CALL  READ_STR_N1

    CALL  MUL32_32

    MOV   AX, X + 0

    MOV   M1, AX

    MOV   AX, X + 2

    MOV   M2, AX

    JMP   M_LOOP

M_JIA:

    INC   SI

    MOV   N1, 0

    MOV   N2, 0

    CALL  READ_STR_N1

    MOV   AX, N1

    ADD   AX, M1

    MOV   M1, AX

    MOV   AX, N2

    ADC   AX, M2

    MOV   M2, AX

    JMP   M_LOOP

M_END:

    MOV   AX, M1

    MOV   X + 0, AX

    MOV   AX, M2

    MOV   X + 2, AX

    MOV   X + 4, 0

    MOV   X + 6, 0

    CALL  BIN2BCD

    CALL  DISP

    CALL  CR_LF

    CALL  DISP_HEX

    CALL  CR_LF

    CALL  DISP_BIN

EXIT:

    MOV   AH, 4CH

    INT   21H

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

CR_LF:

    MOV   AH, 2

    MOV   DL, 13    ;回车换行

    INT   21H

    MOV   DL, 10

    INT   21H

RET

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

DISP_HEX:           ;十六进制显示

    MOV   BX, M2

    CALL  @F

    MOV   BX, M1

    CALL  @F

    MOV   DL, 'H'

    INT   21H

    RET

@@: MOV   CH, 4

    MOV   CL, 4

@@: ROL   BX, CL

    MOV   AL, BL

    AND   AL, 0FH

    ADD   AL, 90H

    DAA

    ADC   AL, 40H

    DAA

    MOV   DL, AL

    MOV   AH, 2

    INT   21H

    DEC   CH

    JNZ   @B

RET

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

DISP_BIN:

    MOV   BX, M2

    CALL  @F

    MOV   BX, M1

    CALL  @F

    MOV   DL, 8

    INT   21H

    MOV   DL, 'B'

    INT   21H

    RET

@@: MOV   CX, 16

    MOV   AH, 2

@@: MOV   DL, '0'

    TEST  BX, 8000H

    JE    PP1

    INC   DL

PP1:INT   21H

    ADD   BX, BX

    DEC   CX

    TEST  CX, 03H

    JNE   PP2

    MOV   DL, ' '

    INT   21H

PP2:INC   CX

    LOOP  @B

RET

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

READ_STR_N1:

    CMP   BYTE PTR [SI], '*'

    JZ    READ_END

    CMP   BYTE PTR [SI], '+'

    JZ    READ_END

    CMP   BYTE PTR [SI], '='

    JZ    READ_END

    MOV   AX, N1

    MOV   BX, 10

    MUL   BX

    MOV   N1, AX

    MOV   AX, N2

    MOV   N2, DX

    MUL   BX

    ADD   N2, AX

    MOV   AL, [SI]

    AND   AL, 0FH

    MOV   AH, 0

    ADD   N1, AX

    ADC   N2, 0

    INC   SI

    JMP   READ_STR_N1

READ_END:

    RET

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

MUL32_32:

    MOV   AX, N1

    MOV   BX, M1

    MUL   BX

    MOV   X + 0, AX

    MOV   X + 2, DX

    MOV   X + 4, 0

    MOV   X + 6, 0

    MOV   AX, N2

    MOV   BX, M1

    MUL   BX

    ADD   X + 2, AX

    ADC   X + 4, DX

    MOV   AX, N1

    MOV   BX, M2

    MUL   BX

    ADD   X + 2, AX

    ADC   X + 4, DX

    ADC   X + 6, 0

    MOV   AX, N2

    MOV   BX, M2

    MUL   BX

    ADD   X + 4, AX

    ADC   X + 6, DX

RET

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

BIN2BCD:

    MOV   CX, 64        ;64位数变换成BCD码

_L0_:

    PUSH  CX

    LEA   BX, X

    MOV   CX, 8

    CLC

_L1_:

    MOV   AL, [BX]

    ADC   AL, AL

    MOV   [BX], AL

    INC   BX

    LOOP  _L1_

    LEA   BX, Y + 9

    MOV   CX, 10

_L2_:

    MOV   AL, [BX]

    ADC   AL, AL

    DAA

    MOV   [BX], AL

    DEC   BX

    LOOP  _L2_

    POP   CX

    LOOP  _L0_

RET

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

DISP:

    LEA   BX, Y + 5

    MOV   CX, 5

_L3_:

    MOV   AL, [BX]

    MOV   AH, 0

    MOV   DL, 16

    DIV   DL

    MOV   DL, AL

    AND   DL, 0FH

    ADD   DL, 30H

    MOV   AH, 02H

    INT   21H

    MOV   DL, [BX]

    AND   DL, 0FH

    ADD   DL, 30H

    MOV   AH, 02H

    INT   21H

    INC   BX

    LOOP  _L3_

RET

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

CC  ENDS

    END   START

本程序运行后，输入、输出，完全符合题目的要求。