Chy Turbo Pascal 7.0 vi CPU nhanh

Chy Turbo Pascal 7.0 vi CPU Intel Celeron3xx
Xem bai viet bang font Unicode

PCWorld VN 5/99

Trong thi gian qua, to son  nhn c rt nhiu thc mc ca bn c v vn  li khi chy Borland Turbo Pascal 7.0 trn cc my tnh tc  cao (Pentium II, AMD K6,...). Borland (nay i tn thnh Inprise) li khng c gii php chnh thc cho vn  ny m ngi dng phi "rng t lo ly". Bn c th ln Internet ly "trn gi" nhng patch file m ngi dng trn ton th gii "ng gp" v dng v khng cn quan tm cch lm. Trong trng hp mun tm hiu v "t sn xut" th mi bn xn tay ln!

Nh mt s bn s dng Borland Pascal 7.0  nhn xt trong s bo PCWorld thng 3 nm 1999, vi cc b x l Intel Pentium Celeron, mt s chng trnh Pascal sau khi dch v cho thc thi th nhn c thng bo li: Error 200: division by zero. Nu em ng chng trnh source cho dch li vi Turbo Pascal 5.5 th li khng c vn  g xy ra.

iu kh au lng cho chng ta l Borland, cng ty to ra trnh bin dch ni ting Turbo Pascal, sau mt thi gian hot ng thua l  quyt nh i tn thnh Inprise Inc. v b ri mt s phn mm ca mnh trong  c Turbo Pascal. Version cui cng ca Pascal do Borland a ra l 7.0. Vic cp nht ln version mi hn l iu khng thc hin c.

L sinh vin ca giai on u thp k 90, ti  kh vit kh nhiu chng trnh bng Turbo Pascal. Cch y vi thng, khi nng cp my tnh ca mnh ln Pentium Celeron 333, ti  nhn c thng bo li tng t nh trn. Vi mt s bn, nu Turbo Pascal t chi chy vi Celeron, vit li chng trnh bng mt ngn ng khc c l cng chng thnh vn . Tuy nhin, trong trng hp ca ti, thi gian  dch s source  vit sang mt ngn ng khc nh C hay C++ s rt ln. Chnh v vy, ti quyt nh tm hiu nguyn nhn v cch khc phc vn  trn. Trong bi vit ny, xin chia s kinh nghim ca ti cng cc bn. Nu khng quan tm ti nguyn nhn xu xa ca thng bo li trn, bn c th b qua mc Nguyn Nhn v i thng ti phn Cch gii quyt.

Tri li, nu l ngi yu thch ngn ng Pascal v mun i su vo ngn ng ny, xin b mt cht thi gian cho mc Nguyn nhn, ni mi nguyn cn ca vn  trn c trnh by.

Nguyn nhn

Trc ht,  c th tm c v tr gy nn li, chng ta hy dng on chng trnh n gin sau:

Program Test;

Uses Crt;

Begin

Writeln('Hello');

End.

R rng, chng trnh ny ch vit ch Hello ln mn hnh. Khi cc bn chy chng trnh s nhn c thng bo li: Runtime error 200 at XXXX:0091. XXXX l a ch segment gy li, c th khc vi mi my ty theo cc chng trnh  np trong b nh. 0091 l offset ca on m lnh gy nn li.

Nu bn b dng th 2: Uses Crt th chng trnh li chy mt cch "ngon lnh". S d chng ta c th b dng ny l v hm writeln duy nht dng trong chng trnh va thuc unit SYSTEM ngm nh, va thuc unit CRT. Trong trng hp dng lnh Uses CRT, CRT.Writeln s c gi. Tri li, SYSTEM.Writeln s c s dng nu bn khng vit Uses CRT. Vy, li c lin quan ti unit CRT.

Gi nguyn dng Uses CRT, v thm dng:

SYSTEM.writeln('System Hello')

vo trc dng writeln('Hello'). Khi chy chng trnh, bn cng s chng thy dng System Hello hin ra, m h thng vn a ra cu bo li tng t. Nh vy, phn m gy li nm trc m lnh SYSTEM.Writeln(System Hello).

T 2 nhn xt trn, c th phn on ngay phn m gy li l phn khi ng ca unit CRT-phn c thc hin u tin khi chng trnh Test c np vo b nh.

Nu bn dch chng trnh Test ra file EXE ri tin hnh thi hnh ngoi DOS th s nhn c thm mt cht thng tin v a ch gy li: Runtime error 200 at XXXX:0091. Error 200 theo Borland Pascal Help l li Divide by zero (chia cho 0). Chng trnh ca chng ta c cng tr nhn chia g u m gy nn li ny?

Nh cc bn cng bit, nu dng mt unit no , khi bt u chy chng trnh, phn m khi ng ca Unit s c thc hin. Bng cch s dng Turbo Debugger (ti du nhc ca Dos, nhp TD TEST), bn c th quan st d dng quan st c cc m khi ng ca unit SYSTEM v CRT vo u chng trnh di dng cc lnh Call Far:

CALL XXXX:0000 ; Khi ng unit system

CALL YYYY:000D ; Khi ng unit Crt

Trong Turbo Debugger, n F8 (Step Over)  thc hin 1 ln lnh th nht v F7 (Trace)  bc vo chy tng bc lnh CALL th hai-lnh khi ng CRT. Sau , chn mc Run / Execute To, nhp offset a ch cn ti l 0091 (hex), bm Enter. Con tr s hin ln  ngay trc v tr on m lnh gy li( XXXX:0091). Nu nhn F8 1 ln na, Deburger s hin ra thng bo: Terminated, exit code 200.  tin theo di, ti xin trch ra mt phn cc lnh c lin quan pha trc v sau lnh gy li:

CRT_Initialize:

...............................

XXXX:0071: MOV ES,Seg0040

XXXX:0075: MOV DI,OFFSET Timer

XXXX:0078: MOV BL,ES:[DI] ; ES = 0040h, DI = 006Ch

XXXX:007b: @@2: CMP BL,ES:[DI] ; ES:DI = System clocktick

XXXX:007e:JE @@2

XXXX:0080: MOV BL,ES:[DI]

XXXX:0083: MOV AX,-28

XXXX:0086: CWD ; DX = FFFFh, AX = FFE4h

XXXX:0087: CALL DelayLoop

XXXX:008a: NOT AX

XXXX:008c: NOT DX

XXXX:008e: MOV CX,55

XXXX:0091: DIV CX ; Ni gy li

XXXX:0093: MOV DelayCount,AX

DelayLoop:

XXXX:02c6: @@1: SUB AX,1

XXXX:02c9: SBB DX,0

XXXX:02cc: JC @@2

XXXX:02ce: CMP BL,ES:[DI]

XXXX:02d1: JE @@1

XXXX:02d3: @@2: RET

Ti khng mun bn "sa ly" vo hp ng, xin gii thch  chnh ca on chng trnh ny nh sau:

Khi phn khi ng ca CRT chy, chng trnh s khi to mt bin gi l DelayCount (dng word 2- byte). Bin ny cha s ln thc hin cc lnh trong vng lp DelayLoop  lm chm 1 mili giy. Nu bn cn delay N mili giy, h thng s thc hin N ln vng DelayLoop.

Cch xc nh DelayCount s da vo gi tr xung m h thng (clocktick) ti a ch 0040:006C (4 byte). Mi giy, nh kch hot ca interrupt 08, gi tr ti a ch ny s tng ln 18.2 ln.

Trnh bin dch s t vo DX:AX mt gi tr c nh v gi vng lp DelayLoop. Trong vng lp ny, gi tr DX:AX s c thay i cho ti khi clocktick ca h thng thay i.

 l  thay i ca DX:AX trong 1 clocktick (1/18.2s).  c gi tr ny cho 1 mili giy, gi tr DX:AX s c chia cho 55 (xin  : 18.2 * 55 = 1000ms=1second).

on lnh gy li trong chng trnh chnh l on chia DX:AX cho CX. V mt nguyn tc, thng s s c cha trong AX v s d trong DX. Tuy nhin, do DX:AX qu ln, gi tr DX:AX chia cho CX s vt qua gi tr ti a ca 1 word (FFFFh) v h thng pht sinh thng bo li.

Vi my Celeron 333 ca ti, gi tr nhn c khi chy ti lnh ti a ch xxxx:008E l DX= 0045h, AX=4EEAh. Do , php chia DX:AX (00454EEAh) cho CX(55=37h) s lm trn s v gy ra li runtime. Nguyn nhn ca vn  li r rng c lin quan ti tc  CPU. Do CPU chy qu nhanh,  bin i DX:AX l rt ln v php chia DX:AX cho CX b trn. CPU trong tm 200A266MHz c l nm  ngng ca "vc thm" v DX = 045h (gi tr ng vi Celeron 333MHz) * 266/333 = 37h = 55 (Php chia DX:AX cho CX s cho ra mt gi tr xp x FFFFh. Do , vi cc h thng 200 - 266 MHz nhanh, li trn c th xut hin v vi cc h thng chm, cc bn c th chy Turbo Pascal mt cch yn ). Nh bn c th thy, CPU tc  300MHz, 333MHz hoc cao hn s gy li (do gi tr DX ln hn nhiu so vi CX, dn ti DX:AX chia CX b trn). Nh vy, cch gii quyt ca chng ta s xoay quanh vic lm gim  bin i DX:AX xung. iu ny c th thc hin bng cch lm chm vng DelayLoop xung. Bn c th thm 1 vi lnh lm tiu tn CPU clock vo vng lp ny nh ti thc hin  phn sau. Mi thng bo s chm dt v chng trnh Pascal ca bn s chy mt cch m .

Cch gii quyt

Mi vn  "au u" ni trn s c gii quyt bng cch thay i ni dung tp tin CRT.TPU. Thng thng, khi bn khi ng TURBO PASCAL (TP) hay BORLAND PASCAL (BP), CRT.TPU s c h thng t ng np khi c TURBO.TPL (TPL=Turbo Pascal Library). Nhim v ca chng ta l thay i unit CRT trong TURBO.TPL.

n gin nht, bn c th chp tp tin TURBO.TPL t ta son v v ghi  ln tp tin TURBO.TPL trong th mc \BP\BIN (xem nh \BP l th mc Pascal ca bn). Tp tin TURBO.TPL mi cha mi thay i cn thit gip bn c th chy BORLAND PASCAL vi b x l Intel Pentium Celeron (v hy vng mi b x l khc "c vn ").

Nu bn khng th gh ta son v c th truy xut Internet hay e-mail, xin gi e-mail cho namthang72@hotmail.com,, ti s gi file TURBO.TPL li cho bn theo dng attachment.

V cui cng, nu bn khng th chp tp tin t ta son v cng khng c iu kin s dng Internet, nu cho mnh l mt lp trnh vin Pro, hy lm nh sau:

Trc khi tin hnh cc bc sau, hy lu li tp tin TURBO.TPL trong \BP\BIN   phng mi bt trc.

Bc 1: Sa li ni dung unit CRT

Vi mt bn ci y  ca Borland Pascal 7.0, bn s c th mc \BP\CRT, trong  c 2 tp tin CRT.ASM v CRT.PAS. u tin, hy thay i ni dung CRT.ASM nh sau (hy bm Ctrl Q-L v tm t DelayLoop v phn m sau):

; Delay one timer tick or by CX iterationsDelayLoop:

@@1:

SUB AX,1

SBB DX,0

JC @@2

CMP BL,ES:[DI]

JE @@1

@@2: RET

tr thnh:

; Delay one timer tick or by CX iterations

DelayLoop:

@@1:

push ax ; bt u cc hng chn thm

push cx push dx

mov ax,0

mov cx,1

mov dx,0

div cx ;vi 10 lnh div cx, DelayCount = 5F0h div cx;  cho bn chy vi CPU c tc  < 8GHz

div cx ; v mt l thuyt.

div cx

pop dx

pop cx

pop ax ; kt thc cc hng chn thm

SUB AX,1

SBB DX,0

JC @@2

CMP BL,ES:[DI]

JE @@1

@@2: RET

Nh ti c trnh by  phn trn, cc dng chn thm khng thc hin bt c mt lnh g m ch n thun l lm chm vng DelayLoop li. iu ny khng c ngha l ng h h thng s chm li m ch n thun lm chm vng DelayLoop v gim s ln lp xung.

Lnh nguyn thy SUB v SBB ca vng lp c gi nguyn, cc lnh DIV (sau khi lu ni dung thanh ghi AX, CX, DX bng lot lnh PUSH) nhm lm chm hn vng lp. S d ti chn cc lnh ny l v DIV l lnh tiu tn nhiu clock ca CPU (lnh mt nhiu thi gian thc hin). Bn c th thm s ln DIV nu cm thy cn thit. Cui cng, lot lnh POP hon tr li ni dung cc thanh ghi.

Bc 2. Chp tp tin SE.ASM t th mc \BP\SYS vo th mc \BP\CRT. Tp tin SE.ASM cha mt s nh ngha cho qu trnh dch cc Unit ca Borland (hay Turbo) Pascal.

Bc 3. Tin hnh dch CRT.ASM bng lnh:

\BP\BIN\TASM CRT.ASM

My s pht ra mt vi cnh bo v cch s dng tn bin. C "nhm mt lm ng", chng c g nghim trng u.

Bc 4. Chy Borland Pascal v tin hnh dch (bm F9) \BP\CRT\CRT.PAS  to ra CRT.TPU. Chp CRT.TPU vo th mc \BP\BIN.

Bc 5. Chuyn th mc hin thi qua \BP\BIN

Xa unit CRT trong TURBO.TPL bng lnh:

TPUMOVER TURBO.TPL -CRT

Sau , a unit CRT mi sa vo TURBO.TPL

TPUMOVER TURBO.TPL +CRT

TURBO.TPL  sn sng. Hy khi ng li Borland Pascal. Hy vng rng mi hm ca bn u c thc hin mt cch chnh xc v Turbo Pascal s chng cn pht ra nhng thng bo li kh chu "Run time error 200" khi bn s dng unit CRT na.

Gii php cho cc chng trnh Pascal  bin dch nhng khng cn source

Chc rng trong s cc chng trnh bn  bin dch bng Borland Pascal 7, mt s chng trnh s dng unit CRT cng s gp phi li Division Error k trn. Nu cc bn cn gi source, bin dch li chng trnh vi unit TURBO.TPL  hiu chnh khng phi l "chuyn ln". Th nhng phi lm th no nu bn khng cn hay khng c source cc chng trnh trn.

  rng do chng trnh EXE  c dch, vic thay i vng lp DelayLoop  khng nh hng ti cc phn khc ca chng trnh l khng thc hin c. Do , chng ta cn thay i trc tip on m lnh gy li.

Gii php ti xin  c ti cc bn l thay on lnh:

XXXX:008e: mov CX,55

XXXX:0091: div CX

bng mt lnh n gin: mov AX,0FFFFh v FFFFh l gi tr ti a m DelayCount (bin dng word 2 byte) c th nhn c. Tuy nhin,  khng lm bin i a ch cc phn khc, bn nh t thm 1 lnh 2 byte trc lnh move ny (do 2 lnh nguyn thy chim 5 byte b nh cn lnh mov AX,0FFFFh ch chim 3 byte. Gii php ny dn ti vic nu bn dng hm delay, my tnh s ch t hn (nhanh hn) so vi thi gian bn yu cu, tuy nhin trong a s cc trng hp, iu ny khng dn ti hu qu g nghim trng.  trnh s phin h khi tm kim v thay i phn m gy li, ti c km thm chng trnh PATCH.EXE (c th chp ti Ta Son PCW). Chng trnh ny s t ng thc hin vic thay i on m k trn. Ch c i iu bn cn lu :

1. Ch dng PATCH vi cc chng trnh pht sinh li khi chy nh k trn.

2. Hy lu file nguyn thy trc khi thc hin thay i.

Chc bn thnh cng!

L Nam Thng

Cng ty Samsung Vina

T: (08) 821.1111
Khc phc li "Runtime Error 200"

trong Turbo Pascal 7.0 trn my PC tc  cao

PCWorld VN 5/99

Borland Turbo Pascal 7 l b bin dch ngn ng lp trnh Pascal, nhng  nhiu nm, hng Borland khng cp nht. Trong b bin dch Pascal ny c unit CRT m hu ht chng trnh vit trn Pascal c s dng. Cc chng trnh c bin dch bng Borland Turbo Pascal 7 c s dng unit CRT s b kt thc vi thng bo li "Runtime Error 200" trn cc my PC tc  cao, v d nh my Pentium II 350MHz bus 100MHz (chng ti cng  th nghim trn my Pentium II 350MHz - bus 66MHz th khng thy li ny).

Chng trnh c bin dch bng Borland Pascal 6 khng b li ny, nhng thi gian tr hon trong lnh delay b sai hon ton khi chy trn cc my PC nhanh.

Nguyn nhn

Li xy ra khi thi hnh chng trnh c s khi to unit Crt, trong  th tc delay cng c khi to. Vic khi to th tc delay khng ch c gi trong cc chng trnh c s dng th tc delay, m n cn c gi trong tt c cc chng trnh c s dng unit Crt.

Khi khi to th tc delay, chng trnh s m s ln thc hin mt vng lp nh trong khong thi gian 55 mili giy (thi gian c o bng cch c b m thi gian ca BIOS  a ch 40:6C, b m ny nhp 18,2 ln mi giy, ngha l mi nhp chim 55 mili giy).

S m ny c chia li cho 55  c s ln thc hin vng lp trong mt mili giy. Kt qu c ghi vo trong bin kiu word (16 bit). Kt qu s c s dng lm c s  tnh thi gian tr hon trong lnh delay. Khi chy chng trnh trn cc my PC tc  cao, s ln lp trong 55 mili giy qu ln (hn 65.535) lm bin ny b trn (overflow) v gy ra li ( ngha ca Runtime Error 200 l li chia cho Zero, nhng tht ra  l li trn bin).

Gii php

Di y l vi b chng trnh c th tm trn Internet  khc phc li ny cho nhng trng hp tiu biu. Cng cn lu  vi cc bn rng y l nhng chng trnh do ngi dng vit, cn Borland cng nh Intel khng a ra gii php no!

Nu bn ch c tp tin  dch sang file .EXE m khng c chng trnh ngun:

C th dng TpPatch.zip, b chng trnh sa trc tip trn tp tin thc thi (.EXE) c bin dch t Borland Pascal 7, ch nn s dng cho cc chng trnh khng cn nh thi chnh xc. Bn hy gii nn tp tin ny, sau  thc hin theo nhng hng dn c th trong .

Nu bn s dng Turbo Pascal 7.01 hoc Borland Pascal 7.01  ch  real mode :Trong trng hp ny, bn c th ti xung ba tp tin sau v ty chn theo  bn.

T7TplFix.zip. B chng trnh nng cp cho tp tin th vin Run Time Library (TURBO.TPL), bn ch cn gii nn, chy chng trnh v n s t ng thc hin cng vic trn.

NewDelay.pas. L mt tp tin dng Unit thay th lnh delay. Nu dng Unit ny, phi khai bo n trc Crt v tt c cc Unit khc c s dng Unit Crt trong chng trnh ngun.

Rdelay.zip. Ging nh NewDelay, n thay th lnh Delay.

B chng trnh bppatch. y l gii php theo chng ti thy l tt nht khi tin hnh cc th nghim. Gii php ny bao gm chng trnh ngun Crt.asm v Crt.pas (m chng ta c th hc c nhiu iu nu so snh Crt.asm v Crt.pas vi chng trnh gc ca Borland) cng cc th vin Turbo.tpl, Tpp.tpl, Tpw.tpl. Hoc l bn dch li ton b th vin RTL, hoc n gin l bn ch cn chp cc file .TPL vo th mc BIN v dch li cc chng trnh m bn  vit.

Vi b chng trnh khc nh bp7patch, tp7p5fix, tpbug.

Sau khi tm hiu cc gii php trn, nhiu ngi trong chng ta c th thy rng mt gii php y  v nhiu mt (nht l vn  bn quyn) vn cha c, tr khi Borland ( i tn thnh Inprise) pht hnh phin bn mi.

Cc bn c th nhn c cc gii php trn bng cch gi e-mail n a ch pcworldvn@hcm.vnn.vn vi subject: get fix error 200. Nu cc bn mun so snh Crt.asm v Crt.pas vi bn gc ca Borland xin gi email n a ch trn c subject: get RTL.

Trung Dng

Hu Hoan (PC World VN)

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com