home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / asm / ucrstdlb / puth.asm < prev    next >
Assembly Source File  |  1991-10-12  |  720b  |  49 lines
  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7. ;
  8.         extrn    sl_Putc:far
  9. ;
  10. ;
  11. ; Puth- Outputs value in AL as two hex digits.
  12. ;
  13.         public    sl_Puth
  14. sl_Puth        proc    far
  15.         push    ax
  16.         mov    ah, al
  17.         shr    al, 1
  18.         shr    al, 1
  19.         shr    al, 1
  20.         shr    al, 1
  21.         add    al, 90h
  22.         daa
  23.         adc    al, 40h
  24.         daa
  25.         call    sl_Putc
  26.         mov    al, ah
  27.         and    al, 0fh
  28.         add    al, 90h
  29.         daa
  30.         adc    al, 40h
  31.         daa
  32.         call    sl_Putc
  33.         pop    ax
  34.         ret
  35. sl_Puth        endp
  36. ;
  37. ; Putw- Outputs word in AX as four hexadecimal digits:
  38. ;
  39.         public    sl_Putw
  40. sl_Putw        proc    far
  41.         xchg    al, ah
  42.         call    sl_Puth
  43.         xchg    al, ah
  44.         jmp    sl_Puth
  45. sl_Putw        endp
  46. ;
  47. stdlib        ends
  48.         end
  49.