home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV13.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  2KB  |  78 lines
  1.     page    66,132
  2. ;******************************** CONV13.ASM *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12.  
  13. comment 
  14. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( CONVERT )
  15. ;DEC_STR4_TO_WORD -  convert signed ascii string to binary word
  16. ;
  17. ; inputs  ds:si = string pointer
  18. ;            cx = length of string
  19. ; 
  20. ; output  bx = binary value
  21. ;       si = updated to point at end of value
  22. ;       al = zero if success
  23. ;* * * * * * * * * * * * * *
  24. 
  25. str_sign    db    0
  26.     extrn    ten:word
  27.     public    DEC_STR4_TO_WORD
  28. DEC_STR4_TO_WORD    proc    far
  29.     push    dx
  30.     cld
  31.     mov    bx,0
  32.     mov    cs:str_sign,0
  33. ab8:    jcxz    ab4_done
  34.     lodsb
  35.     dec    cx
  36.     cmp    al,' '
  37.     je    ab8            ;remove leading spaces
  38.     cmp    al,'+'
  39.     je    ab9            ;jmp if sign found
  40.     cmp    al,'-'
  41.     jne    ab10
  42.     mov    cs:str_sign,1        ;set sign negative
  43. ab9:    jcxz    ab4_done
  44.     lodsb                ;get next char
  45.     dec    cx
  46.  
  47. ab10:    sub    al,'0'
  48.     js    ab4_err         ;jmp if error, not number
  49.     cmp    al,9
  50.     ja    ab4_err         ;jmp if error, not number
  51.  
  52.     sub    ah,ah
  53.     push    ax            ;save current char
  54.  
  55.     mov    ax,bx            ;get running sum
  56.     mul    cs:ten
  57.     pop    dx            ;get current char
  58.     add    ax,dx
  59.     mov    bx,ax            ;save running sum
  60.     jcxz    ab4_done
  61.     lodsb
  62.     dec    cx
  63.     jmp    ab10            ;loop till done
  64.  
  65. ab4_done:
  66.     cmp    str_sign,0        ;is result +
  67.     je    ab4_done2        ;jmp if + number
  68.     neg    bx
  69. ab4_done2:    
  70.     sub    al,al
  71. ab4_err:    
  72.     pop    dx
  73.     retf        
  74. DEC_STR4_TO_WORD    endp
  75.  
  76. LIBSEG    ENDS
  77.     end
  78.