home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV12.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  1KB  |  75 lines
  1.     page    66,132
  2. ;******************************** CONV12.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_WORD -  convert signed asciiz string to binary word
  17. ;
  18. ; inputs  ds:si points    at string ending with zero
  19. ; 
  20. ; output  bx = 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    ten:word
  28.     public    DEC_STR3_TO_WORD
  29. DEC_STR3_TO_WORD    proc    far
  30.     push    dx
  31.     cld
  32.     mov    bx,0
  33.     mov    cs:str_sign,0
  34. ab5:    lodsb
  35.     cmp    al,' '
  36.     je    ab5            ;remove leading spaces
  37.     cmp    al,'+'
  38.     je    ab6            ;jmp if sign found
  39.     cmp    al,'-'
  40.     jne    ab7
  41.     mov    cs:str_sign,1        ;set sign negative
  42. ab6:    lodsb                ;get next char
  43.  
  44. ab7:    or    al,al
  45.     jz    ab3_done
  46.     sub    al,'0'
  47.     js    ab3_done        ;jmp if error, not number
  48.     cmp    al,9
  49.     ja    ab3_done        ;jmp if error, not number
  50.  
  51.     sub    ah,ah
  52.     push    ax            ;save current char
  53.  
  54.     mov    ax,bx            ;get running sum
  55.     mul    cs:ten
  56.     pop    dx            ;get current char
  57.     add    ax,dx
  58.     mov    bx,ax            ;save running sum
  59.     lodsb
  60.     jmp    ab7            ;loop till done
  61.  
  62. ab3_done:
  63.     cmp    str_sign,0        ;is result +
  64.     je    ab3_done2        ;jmp if + number
  65.     neg    bx
  66. ab3_done2:    
  67.     pop    dx
  68.     retf        
  69.         
  70. DEC_STR3_TO_WORD    endp
  71.  
  72. LIBSEG    ENDS
  73.     end
  74.     
  75.