home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / ASSEMBLY / STDLIB.ZIP / PUTH.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-04-29  |  630 b   |  44 lines
  1. stdlib        segment    para public 'slcode'
  2.         assume    cs:stdlib
  3.         extrn    sl_Putc:far
  4. ;
  5. ;
  6. ; Puth- Outputs value in AL as two hex digits.
  7. ;
  8.         public    sl_Puth
  9. sl_Puth        proc    far
  10.         push    ax
  11.         mov    ah, al
  12.         shr    al, 1
  13.         shr    al, 1
  14.         shr    al, 1
  15.         shr    al, 1
  16.         add    al, 90h
  17.         daa
  18.         adc    al, 40h
  19.         daa
  20.         call    sl_Putc
  21.         mov    al, ah
  22.         and    al, 0fh
  23.         add    al, 90h
  24.         daa
  25.         adc    al, 40h
  26.         daa
  27.         call    sl_Putc
  28.         pop    ax
  29.         ret
  30. sl_Puth        endp
  31. ;
  32. ; Putw- Outputs word in AX as four hexadecimal digits:
  33. ;
  34.         public    sl_Putw
  35. sl_Putw        proc    far
  36.         xchg    al, ah
  37.         call    sl_Puth
  38.         xchg    al, ah
  39.         jmp    sl_Puth
  40. sl_Putw        endp
  41. ;
  42. stdlib        ends
  43.         end
  44.