paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 08:51:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* slight accuracy improvement in crt.delay for i8086-msdos

Browse Source 
git-svn-id: trunk@24749 -
This commit is contained in:
nickysn 2013-06-01 19:23:25 +00:00
parent 4e427b9663
commit 40630a7cde
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/msdos/crt.pp
View File

@ -454,16 +454,16 @@ label
asm asm
mov ax, $40 mov ax, $40
mov es, ax mov es, ax
mov di, $6c xor di, di
mov cx, MS mov cx, MS
test cx, cx test cx, cx
jz LDelay2 jz LDelay2
mov si, [DelayCnt + 2] mov si, [DelayCnt + 2]
mov bx, es:[di]
LDelay1: LDelay1:
mov ax, [DelayCnt] mov ax, [DelayCnt]
mov dx, si mov dx, si
mov bx, es:[di]
call DelayLoop call DelayLoop
loop LDelay1 loop LDelay1
LDelay2: LDelay2: