汇编 求长方体表面积

DATA SEGMENT
BUFF DB 3 DUP(?);保存键盘输入的长、宽、高
RUSULT DW 0;保存表面积
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
MAIN PROC FAR
MOV AX,DATA
MOV DS,AX
LEA BX,BUFF
MOV CX,3
NEXT:
MOV AH,1；键盘输入的长、宽、高
INT 21H
SUB AL,30H
MOV [BX],AL；保存键盘输入的长、宽、高
INC BX
LOOP NEXT
;求表面积
LEA DI,RESULT
LEA BX,BUFF
MOV AL,[BX]
MUL [BX+1]
ADD [DI],AX
MOV AL,[BX]
MUL [BX+2]
ADD [DI],AX
MOV AL,[BX+1]
MUL [BX+2]
ADD [DI],AX
SHL WORD PTR [DI]
；在屏幕上以十进制形式显示表面积
MOV BL,10
MOV DX,[DI]
MOV CX,5
NEXT2:
CALL DIV10
MOV DL,AL
ADD DL,30H
MOV AH,2
INT 21H
LOOP NEXT2
MOV AH,1
INT 21H
MOV AX,4C00H
INT 21H
MAIN ENDP
DIV10 PROC NEAR
MOV AX,DX
DIV BL
MOV DH,0
MOV DL,AH
RET
DIV10 ENDP
CODE EDNS
END MAIN

V VFX