ASCTOB   PROCNEAT
MOV      BX,CX
MOV      AL,[SI+BX-1]
CMP      AL,'B'
JE       LL1
CMP      AL,'Q'
JE       LL2
CMP      AL,'H'
JE       LL3
CMP      AL,'D'
JE       LL4
CMP      AL,'0'
JB       ERRO
CMP      AL,'9'
JA       ERRO
MOV      DI,10
MP       LL
LL1:MOV  DI,2
    JMP  LL5
LL2:MOV  DI,8
    JMP  LL5
LL3:MOV  DI,16
    JMP  LL5
LL4:MOV  DI,10
LL5:DEC  CX
LL:MOV   AX,0
NEXT:MOV  BL,[SI]
     MOV  BH,0
     SUB  BX,30H
     CMP  BX,10
     JL   BB
     CMP  BX,11H
     JL   ERRO
     SUB  BX,7
BB:CMP  BX,DI
   JAE  ERRO
   MUL  DI
   JC   ERRO
   ADD  AX,BX
   JC   ERRO
   INC  SI
   LOOP NEXT
ENDO:RET
ERRO:MOV  SI,-1
     JMP  ENDO
ASTOB     ENDP

感谢

感谢