home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV21.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  1KB  |  48 lines
  1.     page    66,132
  2. ;******************************** CONV21.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. WORD_TO_DEC_STDOUT - display byte as decimal to stdout
  15. ;
  16. ; inputs  ax = word
  17. ; 
  18. ; output  none
  19. ;* * * * * * * * * * * * * *
  20. 
  21. ;==========================================================================
  22. ;  inputs:  ax = binary value
  23. ;  outputs: none
  24. ;
  25. ;  registers destroyed:  ax,dx
  26. ;
  27.     extrn    ten:word
  28.     public    word_to_dec_stdout
  29. word_to_dec_stdout    proc    far
  30.         call    local_proc
  31.         retf
  32. word_to_dec_stdout    endp
  33. ;--------------------------------
  34. local_proc:        xor    dx,dx
  35.         div    cs:ten            ;divide curent binary val by 10
  36.         or    ax,ax            ;check if done
  37.         jz    db_display        ;  jmp if done
  38.         push    dx            ;save remainder
  39.         call    local_proc            ;recursion
  40.         pop    dx
  41. db_display:    add    dl,30h            ;convert char. to ascii
  42.         mov    ah,2
  43.         int    21h            ;display char. in -dl-
  44.         ret
  45. LIBSEG    ENDS
  46.     end
  47.  
  48.