home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / _TR_PUTC.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-22  |  1.3 KB  |  46 lines
  1. ; __TR_PUTC.ASM
  2. ;
  3. ; by Ralph Davis, Leonard Zerman
  4. ;
  5. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. ;
  7.  
  8.          PUBLIC    __TR_PUTCH
  9.  
  10. ;*******************************
  11. _TR_PUTC_TEXT SEGMENT  BYTE PUBLIC 'CODE'
  12.          ASSUME   CS:_TR_PUTC_TEXT
  13. ;-------------------------------
  14. __TR_PUTCH PROC     FAR
  15. ;
  16. ;   SYNTAX:  _tr_putch( c );
  17. ;
  18. ;            char c;
  19. ;
  20. ;--------------------
  21.           PUSH     BP
  22.           MOV      BP,SP
  23.           MOV      DX,[BP+6]       ; Pick up character passed?
  24.           CMP      DX,0AH          ; '\n' (newline?)
  25.           JNE      PUTCH1          ; No, just output the character
  26.           PUSH     DX              ; Yes, so save line feed (0AH)
  27.           MOV      DL,0DH          ;   and output carriage return (0DH)
  28.           MOV      AH,2            ; Print character in DL
  29.           INT      21H
  30.           POP      DX              ; Retrieve line feed
  31.           MOV      AH,2            ;   and output it
  32.           INT      21H
  33.           JMP      SHORT PUTCH_RET
  34. PUTCH1:
  35.           MOV      AH,2
  36.           INT      21H
  37. PUTCH_RET:
  38.           POP      BP
  39.           RET
  40. __TR_PUTCH ENDP
  41. ;-----------------------------
  42. _TR_PUTC_TEXT     ENDS
  43. ;*****************************
  44.           END
  45.  
  46.