perso
/
cos2000v1
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix: correction de bogues dans les fonctions "compstr" et "evalue"

This commit is contained in:
Nicolas Hordé 2007-03-23 16:33:45 +00:00
parent a733711bc2
commit 171ec40b83
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
commande/str0.asm
View File

@ -601,11 +601,13 @@ endp invert
PROC cmpstr FAR PROC cmpstr FAR
ARG @src:word,@dest:word ARG @src:word,@dest:word
USES cx,dx,si,di USES cx,dx,si,di
push ds
pop es
mov si,[@src] mov si,[@src]
mov di,[@dest] mov di,[@dest]
call getlength,si
mov cx,ax
call getlength,di call getlength,di
mov cx,ax
call getlength,si
cmp cx,ax cmp cx,ax
jne @@notequal jne @@notequal
repe cmpsb repe cmpsb
@ -617,8 +619,8 @@ endp cmpstr
PROC evalue FAR PROC evalue FAR
ARG @src:word,@dest:word ARG @src:word,@dest:word
USES cx,si,di,es USES cx,si,di,es
push es push ds
pop ds pop es
mov si,[@src] mov si,[@src]
mov di,[@dest] mov di,[@dest]
call getlength ,di call getlength ,di
@ -633,8 +635,8 @@ PROC evalue FAR
@@noident: @@noident:
sub ax,cx sub ax,cx
dec ax dec ax
clc
popf popf
clc
ret ret
endp evalue endp evalue