home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / asm / PJ96.ZIP / ALIB.ZIP / PUTCHAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-21  |  354 b   |  29 lines
  1.     include    asm.inc
  2.  
  3.     public    putchar
  4.  
  5.     .code
  6.  
  7. ;;    putchar
  8. ;
  9. ;    entry    AL    character
  10. ;
  11. putchar    proc
  12.     pushm    ax,dx
  13.     mov    ah,2
  14.     cmp    al,LF_CHAR        ; treat line feed character as newline
  15.     je    pch2            ;  if line feed
  16.     mov    dl,al
  17. pch1:    int    21h
  18.     popm    dx,ax
  19.     ret
  20.  
  21. pch2:    mov    ah,2
  22.     mov    dl,CR_CHAR
  23.     int    21h
  24.     mov    dl,LF_CHAR
  25.     jmp    pch1
  26. putchar    endp
  27.  
  28.     end
  29.