home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV17.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  2KB  |  73 lines
  1.     page    66,132
  2. ;******************************** CONV03.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_DWORD -  convert signed ascii string to DWORD
  16. ;
  17. ; inputs  ds:si = string pointer
  18. ;            cx = length of string
  19. ; 
  20. ; output  bx,dx = binary value
  21. ;       si = updated to point at end of value
  22. ;       al = zero if success
  23. ;* * * * * * * * * * * * * *
  24. 
  25. str_sign    db    0
  26.  
  27.     extrn    dmul_10_plus:far
  28.     public    DEC_STR4_TO_DWORD
  29. DEC_STR4_TO_DWORD    proc    far
  30.     mov    bx,0
  31.     mov    cs:str_sign,0
  32. sb6:    lodsb
  33.     dec    cx
  34.     jcxz    sb8_done2
  35.     cmp    al,' '
  36.     je    sb6            ;remove leading spaces
  37.     cmp    al,'+'
  38.     je    sb17            ;jmp if sign found
  39.     cmp    al,'-'
  40.     jne    sb18
  41.     mov    cs:str_sign,1        ;set sign negative
  42.  
  43.     xor    ah,ah               ;
  44.     xor    dx,dx            ;running sum = 0
  45.     xor    bx,bx            ;running sum = 0
  46. ;
  47. ; remove blanks in front of number
  48. ;
  49. sb17:    lodsb
  50.     dec    cx
  51.     jcxz    sb8_done
  52. sb18:    sub    al,'0'
  53.     js    sb8_done        ;jmp if error, not number
  54.     cmp    al,9
  55.     ja    sb8_done        ;jmp if error, not number
  56.  
  57.     call    dmul_10_plus        ;compute (dx,ax) * 10 + bx
  58.     jnc    sb17            ;jmp if no errors
  59.  
  60. sb8_done:
  61.     cmp    str_sign,0        ;is result +
  62.     je    sb8_done2        ;jmp if + number
  63.     not    dx
  64.     neg    ax
  65.     sbb    dx,-1
  66. sb8_done2:    
  67.  
  68.     retf        
  69. DEC_STR4_TO_DWORD    endp
  70.  
  71. LIBSEG    ENDS
  72.     end
  73.