home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CONV20.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  916b  |  41 lines
  1.     page    66,132
  2. ;******************************** CONV20.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. BYTE_TO_DEC_STDOUT - display byte as decimal to stdout
  15. ;
  16. ; inputs  al = byte
  17. ; 
  18. ; output  none
  19. ;* * * * * * * * * * * * * *
  20. 
  21.     extrn    stdout_char:far
  22. ;----------------------------------------------------------------------------
  23. ; inputs al = binary
  24. ;
  25.     public    byte_to_dec_stdout
  26. byte_to_dec_stdout    proc    far
  27.     push    ax
  28.     aam            ;convert byte to bcd
  29.     or    ax,3030h    ;add in ascii
  30.     xchg    al,ah
  31.     call    stdout_char
  32.     xchg    al,ah
  33.     call    stdout_char
  34.     pop    ax
  35.     retf 
  36. byte_to_dec_stdout    endp
  37.  
  38. LIBSEG    ENDS
  39.     end
  40.  
  41.