home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV11.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  1KB  |  68 lines
  1.     page    66,132
  2. ;******************************** CONV11.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_WORD -  convert unsigned ascii string to binary word
  16. ;
  17. ; inputs  ds:si = string ptr
  18. ;            cx = string length
  19. ; 
  20. ; output  bx = binary value
  21. ;       si = updated to point at end of value
  22. ;       al = zero if success
  23. ;* * * * * * * * * * * * * *
  24. 
  25.     extrn    ten:word
  26.     public    DEC_STR2_TO_WORD
  27. DEC_STR2_TO_WORD    proc    far
  28.     push    dx
  29.     cld
  30.     mov    bx,0               ;set running sum = 0
  31. ;
  32. ; remove blanks in front of number
  33. ;
  34. ab3:    lodsb
  35.     jcxz    ab2_done
  36.     dec    cx
  37.     cmp    al,' '
  38.     je    ab3            ;remove leading spaces
  39.  
  40. ab4:    sub    al,'0'
  41.     js    ab2_err            ;jmp if error, not number
  42.     cmp    al,9
  43.     ja    ab2_err         ;jmp if error, not number
  44.  
  45.     sub    ah,ah
  46.     push    ax            ;save current char
  47.  
  48.     mov    ax,bx            ;get running sum
  49.     mul    cs:ten
  50.     pop    dx            ;get current char
  51.     add    ax,dx
  52.     mov    bx,ax            ;save running sum
  53.     jcxz    ab2_done
  54.     lodsb
  55.     dec    cx
  56.     jmp    ab4            ;loop till done
  57.     
  58. ab2_done:
  59.     xor    al,al
  60. ab2_err:    
  61.     pop    dx
  62.     RETF
  63. DEC_STR2_TO_WORD    endp
  64.     
  65.  
  66. LIBSEG    ENDS
  67.     end
  68.