home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
modiromppu
/
modiromppu.iso
/
PROGRAMS
/
ORGPACKS
/
SADT2.ZIP
/
MEMTOOLS.BLK
< prev
next >
Wrap
Text File
|
1995-05-28
|
3KB
|
144 lines
setfree proc
mov bx,ss
mov ax,es
sub bx,ax
mov ax,sp
mov cl,4
shr ax,cl
add bx,ax
inc bx
mov ah,4ah
int 21h
ret
setfree endp
Melmac PROC
MOV AH,48H
INT 21H
JNC Memory_Available
push cs
pop ds
MOV AH,9
LEA DX,Memory_Message
INT 21H
mov ax,3
int 10h
MOV AH,4CH
INT 21H
Memory_Available:
MOV cs:[DI],AX
RET
Memory_Message db 7,"Sorry dude! Your machine hasn't got enough memory.$"
Melmac ENDP
LFTEMC PROC
MOV AH,49H
PUSH ES
PUSH word ptr cs:[DI]
POP ES
INT 21H
POP ES
RET
LFTEMC ENDP
fll dw 0
flh dw 0
Loadseg PROC
; CS:[DI] <= where to store segment
; CS:[DX] <= Filename
push ds
push cs
pop ds
mov ah,3dh
mov al,10010010b
int 21h
jnc fileopen
mov si,dx
lodmore:
lodsb
cmp al,0
jne lodmore
mov byte ptr ds:[si-1],'$'
push dx
lea dx,fileerror1
mov ah,9
int 21h
pop dx
mov ah,9
int 21h
lea dx,fileerror2
mov ah,9
int 21h
mov ah,4ch
int 21h
fileopen:
mov bx,ax
mov ah,42h
mov al,2
mov cx,0
mov dx,0
int 21h
mov si,ax ; loword
mov bp,dx ; hiword
mov cs:fll,ax
mov cs:flh,dx
mov ah,42h
mov al,0
mov cx,0
mov dx,0
int 21h
push bx
mov dx,bp
mov bx,si
rept 4
clc
rcr dx,1
rcr bx,1
endm
add bx,1
call melmac
push word ptr cs:[di]
pop ds
pop bx
cmp bp,0
jne mehrere_segmente
mov ah,3fh
mov cx,si
mov dx,0
int 21h
mov ah,3eh
int 21h
pop ds
ret
mehrere_segmente:
mov ah,3fh
mov cx,0FFFFh
mov dx,0
int 21h
mov ax,ds
add ax,1000h
mov ds,ax
sub si,0FFFFh
sub bp,1
cmp bp,0
jg mehrere_segmente
mov ah,3fh
mov cx,si
mov dx,0
int 21h
mov ah,3eh
int 21h
pop ds
ret
fileerror1 db 7,"Error! Can't find the file '$"
fileerror2 db "'",13,10,"$"
Loadseg Endp