home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV15.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  1KB  |  53 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_STR2_TO_DWORD -  convert unsigned ascii string to binary DWORD
  16. ;
  17. ; inputs  ds:si = string ptr
  18. ;            cx = string length
  19. ; 
  20. ; output  bx,dx = binary value
  21. ;       si = updated to point at end of value
  22. ;       al = zero if success
  23. ;* * * * * * * * * * * * * *
  24. 
  25.     extrn    dmul_10_plus:far
  26.     public    DEC_STR2_TO_DWORD
  27. DEC_STR2_TO_DWORD    proc    far
  28.     xor    ah,ah               ;
  29.     xor    dx,dx            ;running sum = 0
  30.     xor    bx,bx            ;running sum = 0
  31. ;
  32. ; remove blanks in front of number
  33. ;
  34. sb13:    lodsb
  35.     dec    cx
  36.     cmp    al,' '
  37.     je    sb13            ;remove leading spaces
  38.  
  39. sb14:    sub    al,'0'
  40.     js    sb6_done        ;jmp if error, not number
  41.     cmp    al,9
  42.     ja    sb6_done        ;jmp if error, not number
  43.  
  44.     call    dmul_10_plus        ;compute (dx,ax) * 10 + bx
  45.     jcxz    sb6_done        ;jmp if done
  46.     jnc    sb13            ;jmp if no errors
  47. sb6_done:
  48.     RETF
  49. DEC_STR2_TO_DWORD    endp
  50.  
  51. LIBSEG    ENDS
  52.     end
  53.