home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV14.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  1KB  |  53 lines
  1.     page    66,132
  2. ;******************************** CONV14.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_STR1_TO_DWORD -  convert unsigned ascii string to binary DWORD
  16. ;
  17. ; inputs  ds:si points    at string ending with zero
  18. ;         direction flag = CLD state
  19. ; 
  20. ; output  bx,dx = binary value
  21. ;       si = updated to point at end of value
  22. ;       al = 0 if success
  23. ;* * * * * * * * * * * * * *
  24. 
  25.     extrn    DMUL_10_PLUS:FAR
  26.     public    DEC_STR1_TO_DWORD
  27. DEC_STR1_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. sb11:    lodsb
  35.     cmp    al,' '
  36.     je    sb11            ;remove leading spaces
  37.  
  38. sb12:    or    al,al
  39.     jz    sb5_done        ;jmp if done, end of string
  40.     sub    al,'0'
  41.     js    sb5_done        ;jmp if error, not number
  42.     cmp    al,9
  43.     ja    sb5_done        ;jmp if error, not number
  44.  
  45.     call    dmul_10_plus        ;compute (dx,ax) * 10 + bx
  46.     jnc    sb11            ;jmp if no errors
  47. sb5_done:
  48.     RETF
  49. DEC_STR1_TO_DWORD ENDP
  50.  
  51. LIBSEG    ENDS
  52.     end
  53.