简单计算器

本人上学时间做的一个计算器作业.发上来以备以后查看,写的方法有点幼稚,见笑.

XIAN    MACRO XIANSHI;显示大写字母
    LEA BX,XIANSHI
    LOCAL C1,C2
C1:    CMP [BX],'A'
    JS C2
    CMP [BX],'Z'
    JNS C2
    MOV DL,[BX]
    MOV AH,2
    INT 21H
    INC BX
    JMP C1
C2:    MOV DL,"!"
    MOV AH,2
    INT 21H
    MOV DL,0AH
    MOV AH,2
    INT 21H
    MOV DL,0DH
    MOV AH,2
    INT 21H
    ENDM
XIAN1    MACRO XIANSHI;显示非零位
    LEA BX,XIANSHI
    LOCAL C1,C2
C1:   
    CMP [BX],'0'
    JZ C2
    MOV DL,[BX]
    MOV AH,2
    INT 21H
    INC BX
    JMP C1
C2:    MOV DL,"!"
    MOV AH,2
    INT 21H
    MOV DL,0AH
    MOV AH,2
    INT 21H
    MOV DL,0DH
    MOV AH,2
    INT 21H
    ENDM
XIAN0    MACRO XIANSHI0;显示四位以内数字
    LOCAL D1,D2,D21,D3,D4,D5,D51,D6,D7,D8,D81,D9,D10,D11,D111,D12
    MOV BX,XIANSHI0
    MOV DL,-1
    MOV FLAG,0
D1:    SUB BX,10000
    INC DL
    JC D2
    JMP D1
D2:    CMP DL,1
    JNS D21
    CMP FLAG,0
    JZ D3
D21:    MOV FLAG,1
    OR DL,30H
    MOV AH,2
    INT 21H
D3:    ADD BX,10000
    MOV DL,-1
D4:    SUB BX,1000
    INC DL
    JC D5
    JMP D4
D5:    CMP DL,1
    JNS D51
    CMP FLAG,0
    JZ D6
D51:    MOV FLAG,1
    OR DL,30H
    MOV AH,2
    INT 21H
D6:    ADD BX,1000
    MOV DL,-1
D7:    SUB BX,100
    INC DL
    JC D8
    JMP D7
D8:    CMP DL,1
    JNS D81
    CMP FLAG,0
    JZ D9
D81:    MOV FLAG,1
    OR DL,30H
    MOV AH,2
    INT 21H
D9:    ADD BX,100
    MOV DL,-1
D10:    SUB BX,10
    INC DL
    JC D11
    JMP D10
D11:    CMP DL,1
    JNS D111
    CMP FLAG,0
    JZ D12
D111:    MOV FLAG,1
    OR DL,30H
    MOV AH,2
    INT 21H
D12:    ADD BX,10
    MOV DL,BL
    OR DL,30H
    MOV AH,2
    INT 21H
    ENDM
SHURU     MACRO STATE;输入四位之内数字
    LOCAL S1
S1:    MOV AH,1
    INT 21H
    CMP AL,30H
    JC STATE
    CMP AL,3AH
    JNC STATE
    MOV FLAGE,01H
    ADD CX,CX
    MOV BX,CX
    ADD CX,CX
    ADD CX,CX
    ADD CX,BX
    AND AX,0FH
    ADD CX,AX
    JMP S1
    ENDM
       
   
DATA     SEGMENT
ERROR0     DB 'ERROR0'
TUICHU    DB 'TUICHU0'
OUTT    DB 'OUT'
KUOHAO    DB 'SOME ( HAS NOT BEEN ENDDED0'
KUOHAO1    DB 'THIS ) IS WRONG0'
SHUZI1    DW ?
SHUZI2  DW ?
FUHAO1    DW ?
FUHAO2    DW ?
FUHAO     DW ?
;HUANHANG DB ' '
FLAGE    DB 00H
FLAG     DB ?
FLA    DW -1
XI    DW 9899
DATA     ENDS
CODE     SEGMENT
    ASSUME CS:CODE,DS:DATA
START:     MOV AX,DATA
    MOV DS,AX
YUNSUAN    PROC NEAR
    PUSH SHUZI1
    PUSH SHUZI2
    PUSH FUHAO1
    PUSH FUHAO2
    PUSH FUHAO
    INC FLA
    ;XIAN0 FLA
    ;PUSH AX
    ;PUSH BX
    ;PUSH DX
    ;XIAN0 XI
     
STATE1:    MOV CX,0000H
    SHURU STATE2;读第一个数字
   
STATE2:    SUB FLAGE,01H
    JZ S21
    CMP AL,'('
    JNZ S24
    CALL YUNSUAN
    JMP S21
S24:     JMP ERROR
S21:    ;XIAN0 CX
    MOV SHUZI1,CX;保存cx中的第一个数字并且读第一个符号
    CMP AL,'+'
    JZ STATE3
    CMP AL,'-'
    JZ STATE3
    CMP AL,'*'
    JZ S22
    CMP AL,'/'
    JZ S22
    CMP AL,'='
    JZ S23
    CMP AL,')'
    JZ S23
    JMP ERROR
S23:    JMP OK   
S22:    JMP STATE4
STATE3:    MOV CX,0000H
    MOV AH,0H
    MOV FUHAO1,AX;第一个符号是+-时，保存第一个符号，读入第二个数字
    SHURU STATE5
   
STATE5: SUB FLAGE,01H
    JZ S51
    CMP AL,'('
    JNZ S53
    CALL YUNSUAN
    JMP S51
S53:    JMP ERROR
S51:    MOV SHUZI2,CX;保存第二个数字，读入第二个符号
    CMP AL,'+'
    JZ STATE6
    CMP AL,'-'
    JZ STATE6
    CMP AL,'*'
    JZ STATE7
    CMP AL,'/'
    JZ STATE7
    CMP AL,'='
    JZ S52
    CMP AL,')'
    JZ S52
    JMP ERROR
S52:    JMP OK1
   
STATE6: CMP FUHAO1,'+';第二个符号是+-时，将返回到状态3
    JZ STATE8
    CMP FUHAO1,'-'
    JZ STATE9
STATE8:    MOV BX,SHUZI2
    ADD SHUZI1,BX
    JMP STATE3
STATE9: MOV BX,SHUZI2
    SUB SHUZI1,BX
    JMP STATE3
STATE7: MOV CX,0000H
    MOV AH,0H
    MOV FUHAO2,AX;第二个符号是*/时，保存第二个符号，读入下一个数字
    SHURU STATE10
   
STATE10:SUB FLAGE,01H
    JZ S101
    CMP AL,'('
    JNZ S102
    CALL YUNSUAN
    JMP S101
   
S102:    JMP ERROR
S101:    MOV AH,0H
    MOV FUHAO,AX
    CMP FUHAO2,'*';读入第三个数字并先完成乘除法计算，将返回状态5
    JZ STATE11
    CMP FUHAO2,'/'
    JZ STATE12
STATE11:MOV AX,SHUZI2
    MUL CX
    MOV CX,AX
    MOV AX,FUHAO
    MOV FLAGE,01H
    JMP STATE5
STATE12:MOV AX,SHUZI2
    XOR DX,DX
    IDIV CX
    MOV CX,AX
    MOV AX,FUHAO
    MOV FLAGE,01H
    JMP STATE5
STATE4: MOV CX,0000H
    MOV AH,0H
    MOV FUHAO1,AX;第一个符号是*/时将返回状态2
    SHURU STATE13
   
STATE13:SUB FLAGE,01H
    JZ S131
    CMP AL,'('
    JNZ S132
    CALL YUNSUAN
    JMP S131
S132:     JMP ERROR
S131:    MOV AH,0H
    MOV FUHAO ,AX
    CMP FUHAO1,'*'
    JZ STATE14
    CMP FUHAO1,'/'
    JZ STATE15
STATE14:MOV AX,SHUZI1
    MUL CX
    MOV CX,AX
    MOV AX,FUHAO
    MOV FLAGE,01H
    JMP STATE2
STATE15:MOV AX,SHUZI1
    XOR DX,DX
    IDIV CX
    MOV CX,AX
    MOV AH,0H
    MOV AX,FUHAO
    MOV FLAGE,01H
    JMP STATE2
OK1:    MOV BX,SHUZI2
    CMP FUHAO1,'-'
    JZ O12
   
    ;ADD AX,SHUZI1
    ADD SHUZI1,BX
    JMP O1
O12:    SUB SHUZI1,BX
    ;XIAN OUTT
   
    ;XIAN HANHANG
    JMP O1
ERROR1:    MOV DL,0AH
    MOV AH,2
    INT 21H
    MOV DL,0DH
    MOV AH,2
    INT 21H
    XIAN1 KUOHAO
   
    JMP ERROR
ERROR2: MOV DL,0AH
    MOV AH,2
    INT 21H
    MOV DL,0DH
    MOV AH,2
    INT 21H
    XIAN1 KUOHAO1   
ERROR:    XIAN ERROR0
    XIAN TUICHU
    JMP EENNDD
OK:    ;XIAN OUTT
   
    ;XIAN HUANHANG
    JMP O1
O1:    CMP AL,')'
    JNZ O2
    CMP FLA,0H
    JS O3
    MOV CX,SHUZI1
    JMP ED
O3:     JMP ERROR2
O2:    CMP FLA,0H
    JZ O4
    JMP ERROR1
O4:    XIAN0 SHUZI1
    MOV DL,0DH
    MOV AH,2
    INT 21H
    MOV DL,0AH
    MOV AH,2
    INT 21H
    MOV FLA,-1
    JMP START

EENNDD:    MOV AH,4CH
    INT 21H
ED:    MOV FLAGE,01H
    ;POP DX
    ;POP BX
    ;POP AX
    MOV AH,1
    INT 21H
    POP FUHAO
    POP FUHAO2
    POP FUHAO1
    POP SHUZI2
    POP SHUZI1
    DEC FLA
    ;XIAN0 FLA
    RET
YUNSUAN ENDP
    ;CALL YUNNSUAN
    CODE ENDS
    END START