home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
tplib21.zip
/
INSTALL.EXE
/
STDERR.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-06-24
|
2KB
|
49 lines
; TURBO PASCAL LIBRARY 2.1
; Std-error access module
TITLE UNIT STDERR: Std-error access module
PAGE 66,132
%BIN 12
EXTRN NEWLINE ; Carriage-return/line-feed
DOS_WRITE MACRO ; Call DOS write-handle
MOV AH,40H
INT 21H
ENDM
CODE SEGMENT WORD
ASSUME CS:CODE
LOCALS
PUBLIC WRITESTDERR
WRITESTDERR PROC FAR
PUSH BP
MOV BP,SP ; Set up stack frame pointer
PUSH DS
LDS DX,[BP+6] ; Point DS:DX to string
MOV BX,DX
MOV CL,[BX] ; Get length of string in CX
XOR CH,CH
INC DX
MOV BX,02H ; Handle for std. error device
DOS_WRITE
MOV AX,SEG NEWLINE
MOV DS,AX ; Follow string with new line
MOV DX,OFFSET NEWLINE
INC DX
MOV CX,02H
MOV BX,CX
DOS_WRITE
POP DS
POP BP
RET 4
WRITESTDERR ENDP
CODE ENDS
END