回 帖 发 新 帖 刷新版面

主题:在次打扰塞白江南老师

塞白江南老师 就是上一次那个程序我同学编了一下他和我调不出来你能不能看一下.
DSEG SEGMENT
welcome db 'Welcome to use (A+B)*C program~!~',0dh,0ah,'$'
tishi1 db 'Please enter  number: A,B,C',0dh,0ah,'$'
ERROR1 DB 'number error,please enter again!!!   -256<A|B|C<+256',0dh,0ah,'$'
TEMP DB 0
BUF DW ?
DATA DB 3H DUP(?)
DSEG ENDS

SSEG SEGMENT STACK
DB 100 dup(?) 
SSEG ENDS

CSEG SEGMENT
ASSUME DS:DSEG,SS:SSEG,CS:CSEG
START:MOV AX,DSEG
      MOV DS,AX
     LEA DX,welcome
      MOV AH,09H
      INT 21H
      LEA DX,tishi1
      MOV AH,09H
      INT 21H
         
;SCAN ===================================================================
;输入部分老是不大对,虽然知道原理..
;1
;TEMP=1
;12
;TEMP=TEMP*10+2
;123
;TEMP=TEMP*10+3

R2 PROC NEAR
             MOV CX,4
       SHURU:MOV AH,1
             INT 21H

             CMP AL,0DH
             JZ NEXT
             CMP AL,2DH
             JZ SIGN
             JMP F1
    SIGN:MOV DL,AL
             MOV AH,2
             INT 21H
             JMP NEXT
        F2:CMP AL,30H
             JB ERROR
             CMP AL,39H
             JA ERROR

        F3:SUB AL,30H
             MOV DL,AL
             MOV AL,TEMP
             MOV BL,10
             MUL BL
             ADD TEMP,DL
             DEC CX
             JNZ SHURU
RET
R2 ENDP

NEXT:
        MOV AX,WORD PTR TEMP
        CALL R2
        MOV BX,WORD PTR TEMP               
        CALL R2
        MOV CX,WORD PTR TEMP
            
;print=====================================================================
       ADD AX,BX
       IMUL CX
       MOV BUF,AX
       MOV AX,DX

SHUCHU PROC NEAR
         MOV CX,4
      L1:MOV BL,10
         DIV BL
         PUSH AX
         MOV AH,0
         LOOP L1

         MOV CX,4
      L2:POP AX
         OR AH,30H
         MOV DL,AH
         MOV AH,2
         INT 21H
         LOOP L2
RET  
SHUCHU ENDP
        
         MOV AX,BUF     ;DS:AX→AX
         CALL SHUCHU
  

       
    EXIT:MOV AH,4CH
         INT 21H

CSEG ENDS
END START

回复列表 (共4个回复)

沙发

问题太多了,不如干脆重写了!
在前面的帖子中已经给你完整的能运行的程序了。

板凳

你写的那个有错啊  就是在最后的时候

3 楼

有一处修改过了,现在没问题了。

4 楼

汗。。。那个是我没修改的。。。惭愧啊。。。现在已经好了。。。

输出部分有关也会很快出来。谢谢关心和帮助

我来回复

您尚未登录,请登录后再回复。点此登录或注册