home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
bp7os2
/
os2rtl
/
sys
/
tfun.asm
< prev
next >
Wrap
Assembly Source File
|
1993-08-16
|
1KB
|
88 lines
; *******************************************************
; * *
; * Turbo Pascal Run-time Library *
; * Textfile Support Functions *
; * *
; * Copyright (c) 1988,92 Borland International *
; * *
; *******************************************************
TITLE TFUN
INCLUDE SE.ASM
CODE SEGMENT BYTE PUBLIC
ASSUME CS:CODE
; Externals
EXTRN ReadText:NEAR
; Publics
PUBLIC GetSEoln,GetSEof,GetTEoln,GetTEof
; SeekEoln standard function
GetSEoln:
MOV CX,0301H
JMP SHORT TextStatus
; SeekEof standard function
GetSEof:
MOV CX,0201H
JMP SHORT TextStatus
; Eoln standard function
GetTEoln:
MOV CX,0101H
JMP SHORT TextStatus
; Eof standard function
GetTEof:
MOV CX,0001H
TextStatus:
ARG FileP,DWORD,1
ENTRY WINFAR
LES BX,FileP
MOV AX,OFFSET CS:@@10
XOR DX,DX
CALL ReadText
MOV AL,CL
EXIT
@@10: LODSB
CMP AL,eof
JE @@13
TEST CH,1
JE @@11
CMP AL,cr
JE @@13
@@11: TEST CH,2
JE @@12
CMP AL,' '
JA @@12
CMP SI,BX
JNE @@10
MOV AX,OFFSET CS:@@10
RET
@@12: DEC CX
@@13: DEC SI
XOR AX,AX
RET
CODE ENDS
END