home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV16.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.  
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( CONVERT )
  16. ;DEC_STR3_TO_DWORD -  convert signed asciiz string to binary DWORD
  17. ;
  18. ; inputs  ds:si points    at string ending with zero
  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_STR3_TO_DWORD
  29. DEC_STR3_TO_DWORD    proc    far
  30.     mov    bx,0
  31.     mov    cs:str_sign,0
  32. sb5:    lodsb
  33.     cmp    al,' '
  34.     je    sb5            ;remove leading spaces
  35.     cmp    al,'+'
  36.     je    sb15            ;jmp if sign found
  37.     cmp    al,'-'
  38.     jne    sb16
  39.     mov    cs:str_sign,1        ;set sign negative
  40.  
  41.     xor    ah,ah               ;
  42.     xor    dx,dx            ;running sum = 0
  43.     xor    bx,bx            ;running sum = 0
  44. ;
  45. ; remove blanks in front of number
  46. ;
  47. sb15:    lodsb
  48.  
  49. sb16:    or    al,al
  50.     jz    sb7_done        ;jmp if done, end of string
  51.     sub    al,'0'
  52.     js    sb7_done        ;jmp if error, not number
  53.     cmp    al,9
  54.     ja    sb7_done        ;jmp if error, not number
  55.  
  56.     call    dmul_10_plus        ;compute (dx,ax) * 10 + bx
  57.     jnc    sb15            ;jmp if no errors
  58.  
  59. sb7_done:
  60.     cmp    str_sign,0        ;is result +
  61.     je    sb7_done2        ;jmp if + number
  62.     not    dx
  63.     neg    ax
  64.     sbb    dx,-1
  65. sb7_done2:    
  66.     retf        
  67.         
  68. DEC_STR3_TO_DWORD    endp
  69.     
  70.  
  71. LIBSEG    ENDS
  72.     end
  73.