home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV25.ASM < prev    next >
Assembly Source File  |  1994-10-31  |  2KB  |  101 lines
  1.     page    66,132
  2. ;******************************** CONV25.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. comment 
  13. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( CONVERT )
  14. DEC_STR_TO_WORD -  convert unsigned ascii string to binary word
  15. ;
  16. ; inputs  ds:si points    at string ending with "space" or "return"
  17. ; 
  18. ; output  ax = binary value
  19. ;       si = updated to point at end of value
  20. ;       carry set if    error
  21. ;* * * * * * * * * * * * * *
  22. 
  23. ab_low    dw    0
  24.  
  25.     PUBLIC    DEC_STR_TO_WORD
  26. DEC_STR_TO_WORD        PROC    FAR
  27.     push    di
  28.     push    bx
  29.     mov    cs:ab_low,0            ;  accumulators
  30. ;
  31. ; remove blanks in front of number
  32. ;
  33.     mov    bx,10            ;base 10?
  34. ab1:    cmp    byte ptr [si],' '
  35.     jne    ab2            ;jmp if not preceeding space
  36. nxt_flush:
  37.     inc    si
  38.     jmp    ab1
  39. ;
  40. ; conversion loop
  41. ;    
  42. ab_loop:
  43.     inc    si            ;move    to next    char
  44. ab2:    mov    al,[si]
  45. ;
  46. ; convert key to binary
  47. ;
  48. key21:    cmp    al,0dh
  49.     je    ab_done
  50.     cmp    al,' '
  51.     je    ab_done
  52.     cmp    al,09
  53.     je    ab_done
  54.     cmp    al,'/'
  55.     je    ab_done
  56.     cmp    al,0
  57.     je    ab_done
  58. key22:    cmp    al,'0'
  59.     jl    ab_err            ;skip non numeric key
  60.     cmp    al,'9'
  61.     jle    decimal            ;jump if    decimal    value
  62. ;
  63. ; we have a hex    number or bad value.
  64. ;
  65.     jmp    ab_err            ;    jmp if wrong base
  66. decimal:
  67.     sub    al,'0'            ;convert to number
  68. got_binary_key:
  69.     sub    ah,ah
  70.     push    ax            ;save key
  71. ;
  72. ; multiply sum by current base
  73. ;
  74.     mov    ax,cs:ab_low
  75.     mov    dx,0
  76.     mul    bx
  77. ;
  78. ; add latest character to sum
  79. ;
  80.     pop    di
  81.     add    ax,di            ;add to sum
  82.     mov    di,0
  83.     adc    dx,di            ;add carry
  84. ;
  85.     mov    cs:ab_low,ax
  86.     jmp    ab_loop
  87. ab_err:
  88.     stc
  89.     jmp    ab_exit
  90. ab_done:
  91.     mov    ax,cs:ab_low
  92.     clc
  93. ab_exit:
  94.     pop    bx
  95.     pop    di
  96.     RETF
  97. DEC_STR_TO_WORD ENDP
  98.  
  99. LIBSEG    ENDS
  100.     end
  101.