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