home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / tplib21.zip / INSTALL.EXE / STDERR.ASM < prev    next >
Assembly Source File  |  1993-06-24  |  2KB  |  49 lines
  1. ;               TURBO PASCAL LIBRARY 2.1
  2. ;               Std-error access module
  3.  
  4.                 TITLE   UNIT STDERR: Std-error access module
  5.                 PAGE    66,132
  6.                 %BIN    12
  7.  
  8.                 EXTRN   NEWLINE                 ; Carriage-return/line-feed
  9.  
  10. DOS_WRITE       MACRO                           ; Call DOS write-handle
  11.                 MOV     AH,40H
  12.                 INT     21H
  13.                 ENDM
  14.  
  15. CODE            SEGMENT WORD
  16.                 ASSUME  CS:CODE
  17.                 LOCALS
  18.                 PUBLIC  WRITESTDERR
  19.  
  20.  
  21. WRITESTDERR     PROC    FAR
  22.                 PUSH    BP
  23.                 MOV     BP,SP                   ; Set up stack frame pointer
  24.                 PUSH    DS
  25.                 LDS     DX,[BP+6]               ; Point DS:DX to string
  26.                 MOV     BX,DX
  27.                 MOV     CL,[BX]                 ; Get length of string in CX
  28.                 XOR     CH,CH
  29.                 INC     DX
  30.                 MOV     BX,02H                  ; Handle for std. error device
  31.                 DOS_WRITE
  32.                 MOV     AX,SEG NEWLINE
  33.                 MOV     DS,AX                   ; Follow string with new line
  34.                 MOV     DX,OFFSET NEWLINE
  35.                 INC     DX
  36.                 MOV     CX,02H
  37.                 MOV     BX,CX
  38.                 DOS_WRITE
  39.                 POP     DS
  40.                 POP     BP
  41.                 RET     4
  42. WRITESTDERR     ENDP
  43.  
  44. CODE            ENDS
  45.  
  46.                 END
  47.  
  48.  
  49.