120 lines
1.8 KiB
NASM
120 lines
1.8 KiB
NASM
|
FirstMB dw 0
|
|||
|
|
|
|||
|
|
;Initialise les blocs de m<>moire
|
|||
|
|
MBinit:
|
|||
|
|
push ax cx es
|
|||
|
|
mov ax,gs
|
|||
|
|
mov cs:Firstmb,ax
|
|||
|
|
dec ax
|
|||
|
|
mov es,ax
|
|||
|
|
mov cx,0A000h
|
|||
|
|
sub cx,ax
|
|||
|
|
dec cx
|
|||
|
|
mov es:[MB.Reference],Free
|
|||
|
|
mov es:[MB.Sizes],cx
|
|||
|
|
mov es:[MB.Check],'NH'
|
|||
|
|
mov es:[MB.IsNotLast],False
|
|||
|
|
clc
|
|||
|
|
pop es cx ax
|
|||
|
|
ret
|
|||
|
|
notforfree:
|
|||
|
|
stc
|
|||
|
|
pop es cx ax
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
;Lib<69>re le bloc de m<>moire GS
|
|||
|
|
MBFree:
|
|||
|
|
push bx es
|
|||
|
|
mov bx,gs
|
|||
|
|
dec bx
|
|||
|
|
mov es,bx
|
|||
|
|
cmp es:[MB.Check],'NH'
|
|||
|
|
je notforfree
|
|||
|
|
mov es:[MB.IsResident],0
|
|||
|
|
mov es:[MB.Reference],Free
|
|||
|
|
mov dword ptr es:[MB.Names],'eerF'
|
|||
|
|
mov dword ptr es:[MB.Names+4],0
|
|||
|
|
pop es bx
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
;Cre<72>r un bloc de nom ds:si de taille cx (octets) -> n<>segement dans GS
|
|||
|
|
MBCreate:
|
|||
|
|
push ax bx cx dx si di es
|
|||
|
|
shr cx,4
|
|||
|
|
inc cx
|
|||
|
|
mov bx,cs:firstmb
|
|||
|
|
dec bx
|
|||
|
|
searchfree:
|
|||
|
|
mov es,bx
|
|||
|
|
cmp es:[MB.Check],'NH'
|
|||
|
|
jne wasntgood
|
|||
|
|
cmp es:[MB.IsNotLast],True
|
|||
|
|
sete dl
|
|||
|
|
cmp es:[MB.Reference],Free
|
|||
|
|
je weregood
|
|||
|
|
cmp dl,False
|
|||
|
|
je wasntgood
|
|||
|
|
notsogood:
|
|||
|
|
inc bx
|
|||
|
|
add bx,es:[MB.Sizes]
|
|||
|
|
jmp searchfree
|
|||
|
|
weregood:
|
|||
|
|
mov ax,es:[MB.Sizes]
|
|||
|
|
cmp cx,ax
|
|||
|
|
ja notsogood
|
|||
|
|
mov es:[MB.IsNotLast],True
|
|||
|
|
mov es:[MB.Reference],cs
|
|||
|
|
mov es:[MB.IsResident],False
|
|||
|
|
mov es:[MB.Sizes],cx
|
|||
|
|
mov di,MB.Names
|
|||
|
|
push ax cx
|
|||
|
|
mov cx,8
|
|||
|
|
loops:
|
|||
|
|
mov dh,[si]
|
|||
|
|
inc si
|
|||
|
|
dec cx
|
|||
|
|
jz endofloops
|
|||
|
|
cmp dh,0
|
|||
|
|
je endofloops
|
|||
|
|
mov es:[di],dh
|
|||
|
|
inc di
|
|||
|
|
jmp loops
|
|||
|
|
endofloops:
|
|||
|
|
inc cx
|
|||
|
|
mov al,0
|
|||
|
|
rep stosb
|
|||
|
|
pop cx ax
|
|||
|
|
mov word ptr es:[MB.Check],'NH'
|
|||
|
|
sub ax,cx
|
|||
|
|
dec ax
|
|||
|
|
js nofree
|
|||
|
|
inc bx
|
|||
|
|
mov gs,bx
|
|||
|
|
add bx,cx
|
|||
|
|
mov es,bx
|
|||
|
|
mov es:[MB.IsNotLast],dl
|
|||
|
|
mov es:[MB.IsResident],False
|
|||
|
|
mov es:[MB.Reference],Free
|
|||
|
|
mov es:[MB.Sizes],ax
|
|||
|
|
mov dword ptr es:[MB.Names],'eerF'
|
|||
|
|
mov dword ptr es:[MB.Names+4],0
|
|||
|
|
mov es:[MB.Check],'NH'
|
|||
|
|
nofree:
|
|||
|
|
clc
|
|||
|
|
pop es di si dx cx bx ax
|
|||
|
|
ret
|
|||
|
|
wasntgood:
|
|||
|
|
stc
|
|||
|
|
pop es di si dx cx bx ax
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
;Rend le segment GS r<>sident
|
|||
|
|
MBresident:
|
|||
|
|
push bx es
|
|||
|
|
mov bx,gs
|
|||
|
|
dec bx
|
|||
|
|
mov es,bx
|
|||
|
|
mov es:[MB.IsResident],True
|
|||
|
|
pop es bx
|
|||
|
|
ret
|