home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1995 December
/
SOFM_Dec1995.bin
/
pc
/
os2
/
vpascal
/
examples
/
bp7
/
tvdemo
/
tvhc.dif
< prev
Wrap
Text File
|
1995-10-31
|
2KB
|
54 lines
Comparing files BP7\TVHC.PAS and VP\TVHC.PAS
***** BP7\TVHC.PAS
86: uses Drivers, Objects, Dos, Strings, HelpFile;
***** VP\TVHC.PAS
86: uses Drivers, Objects, Dos, Strings, HelpFile, Use32;
***** BP7\TVHC.PAS
96: {======================= File Management ===============================}
***** VP\TVHC.PAS
96: {$IFDEF DYNAMIC_VERSION}
97: {$Dynamic System, Dos, Strings, Xcpt}
98: {$Dynamic Objects, Drivers, Memory, Views }
99: {$L TVISION.LIB} (* Turbo Vision import library *)
100: {$L VPRTL.LIB} (* Runtime import library *)
101: {$ENDIF}
102:
103: {======================= File Management ===============================}
***** BP7\TVHC.PAS
720: procedure CopyToBuffer(var Line: String; Wrapping: Boolean); assembler;
721: asm
***** VP\TVHC.PAS
727: procedure CopyToBuffer(var Line: String; Wrapping: Boolean); assembler;
728: {$IFNDEF USE32}
729: asm
***** BP7\TVHC.PAS
741: INC Ofs
742: end;
***** VP\TVHC.PAS
749: INC Ofs
750: {$ELSE} {$USES esi,edi} {$FRAME-}
751: asm
752: cld
753: mov edi,OFFSET Buffer
754: add edi,Ofs
755: mov esi,Line
756: xor eax,eax
757: lodsb
758: add Ofs,eax
759: xchg eax,ecx
760: rep movsb
761: xor al,al
762: test Wrapping,1
763: je @@1
764: mov al,' '-13
765: @@1:
766: add al,13
767: @@2:
768: stosb
769: inc Ofs
770: {$ENDIF}
771: end;