DATASEGMENT
XDB?
DATAENDS
CODESEGMENT
ASSUMECS:CODE,DS:DATA
MAINPROCFAR
PUSHDS
XORAX,AX
PUSHAX
MOVAX,DATA
MOVDS,AX
CALLDTOB;十进制输入,拼数保存在BL中,数的范围0-255,否则将溢出
MOVAL,BL
MOVX,BL
CMPAL,20
JLL1
SUBAL,20
JMPQUIT
L1:
MOVCL,3
MULCL
QUIT:
MOVAH,0;最终结果保存在AX中
RET
MAINENDP
DTOBPROCNEAR
MOVBX,0
INPUT:
MOVAH,1
INT21H
SUBAL,30H
JLEXIT
CMPAL,9
JGEXIT
CBW
XCHGAL,BL
MOVCL,10
MULCL
XCHGAL,BL
ADDBL,AL
JMPINPUT
EXIT:
RET
DTOBENDP
CODEENDS
ENDMAIN |