fix: corrections de bogues : - lors d'essais multiples de lecture ou d'écriture dans la fonction "readsector" et "writesector" - dans les fonctions de projection-exécution
This commit is contained in:
parent
bdcfa07476
commit
ea9ab47d47
|
@ -161,7 +161,7 @@ PROC execfile FAR
|
||||||
mov di,[@file]
|
mov di,[@file]
|
||||||
call uppercase,di
|
call uppercase,di
|
||||||
call projfile,di
|
call projfile,di
|
||||||
;jc @@reallyerrornoblock
|
jc @@reallyerrornoblock
|
||||||
call [cs:mbfind],di
|
call [cs:mbfind],di
|
||||||
jc @@reallyerror
|
jc @@reallyerror
|
||||||
call [cs:mbchown],ax,[word ptr ss:bp+4]
|
call [cs:mbchown],ax,[word ptr ss:bp+4]
|
||||||
|
@ -232,7 +232,7 @@ USES cx,si,di,ds,es
|
||||||
pop di
|
pop di
|
||||||
call uppercase,di
|
call uppercase,di
|
||||||
call [cs:mbfind],di
|
call [cs:mbfind],di
|
||||||
jnc @@errorload
|
jnc @@notace
|
||||||
call searchfile,di
|
call searchfile,di
|
||||||
jne @@errorload
|
jne @@errorload
|
||||||
jc @@errorload
|
jc @@errorload
|
||||||
|
@ -742,10 +742,9 @@ PROC readsector FAR
|
||||||
shl cl,6
|
shl cl,6
|
||||||
or cl,bl
|
or cl,bl
|
||||||
mov bx,[@pointer]
|
mov bx,[@pointer]
|
||||||
mov si,4
|
mov si,5
|
||||||
mov al,1
|
|
||||||
@@tryagain:
|
@@tryagain:
|
||||||
mov ah, 2
|
mov ax,0201h
|
||||||
int 13h
|
int 13h
|
||||||
jnc @@done
|
jnc @@done
|
||||||
dec si
|
dec si
|
||||||
|
@ -778,10 +777,9 @@ PROC writesector FAR
|
||||||
shl cl,6
|
shl cl,6
|
||||||
or cl, bl
|
or cl, bl
|
||||||
mov bx,[@pointer]
|
mov bx,[@pointer]
|
||||||
mov si,4
|
mov si,5
|
||||||
mov al,1
|
|
||||||
@@tryagain:
|
@@tryagain:
|
||||||
mov ah, 3
|
mov ax,0301h
|
||||||
int 13h
|
int 13h
|
||||||
jnc @@done
|
jnc @@done
|
||||||
dec si
|
dec si
|
||||||
|
|
Loading…
Reference in New Issue