Board index » delphi » Pentium II problem with programs compiled in Turbo Pascal (CRT unit)

Micha3 Piaseck

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Pentium II problem with programs compiled in Turbo Pascal (CRT unit)

        I have a problem with my new Intel Pentium II (Celeron 266)
processor. I've decided to buy this one because of compatibility with all
compilers (such as clipper, pascal, C). And i had a great surprise when i
found out that there is no program compiled in Turbo Pascal 7.0 (Borland
too) which would run properly, runtime error 200 (divide by zero). Later
it
turned out that it's caused by declaration of CRT unit in uses section,
when there is no CRT declared everything is ok.
        Now I wonder if I should write my own unit which would substitute original
one or maybe there is another way to solve this problem.
--
                                                           Micha3 Piasecki
 
Micha3 Piaseck

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


        I have a problem with my new Intel Pentium II (Celeron 266)
processor. I've decided to buy this one because of compatibility with all
compilers (such as clipper, pascal, C). And i had a great surprise when i
found out that there is no program compiled in Turbo Pascal 7.0 (Borland
too) which would run properly, runtime error 200 (divide by zero). Later
it
turned out that it's caused by declaration of CRT unit in uses section,
when there is no CRT declared everything is ok.
        Now I wonder if I should write my own unit which would substitute original
one or maybe there is another way to solve this problem.

--
                                                           Micha3 Piasecki.

Pedt Scrag

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


Micha3 Piasecki [mailto:boxm...@friko.onet.pl] decided to regale us in
clpb with

Quote
>it
>turned out that it's caused by declaration of CRT unit in uses section,
>when there is no CRT declared everything is ok.

*Sigh* Please read before writing, it saves us all time. Info:

Mini-FAQ posted weekly lists this. Copies in the newsgroup and at
                        http://www.pascal.force9.co.uk/faq/clpb-faq.txt
                        http://www.merlyn.demon.co.uk/clpb-faq.txt
                        ftp://garbo.uwasa.fi/pc/doc-net/faqclpb.zip

Also Timo Salmi's FAQ - monthly pointer posted in clpb
                        ftp://garbo.uwasa.fi/pc/link/tsfaqp.zip
                        See #124

--
Pedt

Osmo Ronkan

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


In article <01be367a$8605f540$LocalHost@ppp>,

Quote
Micha3 Piasecki <boxm...@friko.onet.pl> wrote:
>    I have a problem with my new Intel Pentium II (Celeron 266)
>processor. I've decided to buy this one because of compatibility with all
>compilers (such as clipper, pascal, C). And i had a great surprise when i
>found out that there is no program compiled in Turbo Pascal 7.0 (Borland
>too) which would run properly, runtime error 200 (divide by zero). Later
>it
>turned out that it's caused by declaration of CRT unit in uses section,
>when there is no CRT declared everything is ok.
>    Now I wonder if I should write my own unit which would substitute original
>one or maybe there is another way to solve this problem.

This is a VFAQ.  Use the following before CRT:

Unit Fdelay;             { Use this before CRT }

interface

const dfix:word=1;       { call delay() dfix times }

implementation

{$ifdef msdos}

uses dos;

procedure oldints; assembler; { "variables" in the code segment }
          asm dd 0,0 end;

Procedure error;
begin
  runerror(200);
End;

Procedure Int0; assembler;
          asm
          cmp cx,55       { If CX<>55 we are at some other point }
          je @ok
          sti
          call error
@ok:
          shr dx,1        { divide dx:ax by 2 }
          rcr ax,1
          shl Dfix,1      { multiply Dfix by 2 }
          iret            { return to the DIV (286+) }
          end;

{ Int21h handler removes the int0 handler (as well as itself) from the
  memory when CtrlBreak vector is set by CRT right after calculating
  the delay counter. Note DS does NOT point to the data segment when
  this is called }

Procedure Int21h; assembler;
          asm
          cmp ax,$251B
          jne @old               { Not setint 1Bh? }

          push es; push si; push di
          mov si,offset oldints
          xor di,di
          mov es,di
          cld
          segcs; movsw
          segcs; movsw           { restore int 0 }

          mov di,$21*4
          segcs; movsw           { restore int 21h }
          segcs; movsw
          pop di; pop si; pop es

@old:     jmp dword ptr cs:[oldints+4]
          end;

type tr=record int0,int21:pointer; End;
     pr=^tr;

begin
  GetIntVec(0,pr(@oldints)^.int0);
  GetIntVec($21,pr(@oldints)^.int21);

  SetIntVec(0,@int0);
  SetIntVec($21,@int21h);
{$endif}
end.

GAD

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


Czesc
widze, ze jestes Polak ;), wiec pisze po polsku
popatrz na : pl.comp.lang.pascal - zadalem pare dni temu to samo pytanie.
poczytaj sobie odpowiedzi ;))

GAD

Qualit

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


uggg.... what he say?    :)
Quote
GAD wrote in message ...
>Czesc
>widze, ze jestes Polak ;), wiec pisze po polsku
>popatrz na : pl.comp.lang.pascal - zadalem pare dni temu to samo pytanie.
>poczytaj sobie odpowiedzi ;))

>GAD

GAD

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


Quote
>uggg.... what he say?    :)

heheh
That was in Polish ;)))))))

GAD

Jesse van Oor

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


it read:
"Hi, I see you're Polish so I'll write in Polish.
Look at pl.comp.lang.pascal. I asked the same question a few day's ago.
You can read the answers there. "

--

Jesse van Oort
firul...@nospam.wxs.nl
(remove 'NOSPAM' for Email).

Quote
Quality wrote in message <77892p$...@enews2.newsguy.com>...
>uggg.... what he say?    :)

>GAD wrote in message ...
>>Czesc
>>widze, ze jestes Polak ;), wiec pisze po polsku
>>popatrz na : - zadalem pare dni temu to samo pytanie.
>>poczytaj sobie odpowiedzi ;))

>>GAD

raste

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


Hey! How do you know what this means ???? Are you Polish too or what?

GAD

mbcode

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


This is a problem - or better: a bug - in TURBO.TPL. You must patch it.

Mail me for more information: mbsei...@gmx.de
(perhaps I'll upload it to http://software.webset.de/mbs/ )

Pedt Scrag

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Pentium II problem with programs compiled in Turbo Pascal (CRT unit)


mbcoder [mailto:mbsei...@hotmail.com] decided to regale us with
Quote
>This is a problem - or better: a bug - in TURBO.TPL. You must patch it.

>Mail me for more information: mbsei...@gmx.de
>(perhaps I'll upload it to http://software.webset.de/mbs/ )

Fixes are already available in well publicised locations. Mini-FAQ has
info but see http://www.geocities.com/SiliconValley/2926/tp.html for
URLs for patches.

--
Pedt

Other Threads

1. Borland Pascal 7 CRT unit on Pentium II

2. The CRT Unit and my new 300 mhz Pentium II

3. Pentium II 300 - bug with crt unit

4. Pentium II and CRT unit

5. crt.zip Replacement CRT units for Turbo/Borland Pascal

6. Turbo Pascal 7 et Pentium II

7. borland pascal programs don't run with intel pentium II

8. Pentium and CRT unit: Problem solved

9. CRT pentium PRO/II bug work-around

10. Turbo Pascal for Windows 1.5 - CRT unit