mirror of https://github.com/nmlgc/ReC98.git
76 lines
1.4 KiB
NASM
76 lines
1.4 KiB
NASM
|
; master library -
|
||
|
|
;
|
||
|
|
; Description:
|
||
|
|
; mem_assign系で確保されたメモリを管理から除外する
|
||
|
|
; このときに、mem_assign_dos/mem_assign_allで確保されていたのなら
|
||
|
|
; 同時に DOS メモリを解放する。
|
||
|
|
;
|
||
|
|
; Function/Procedures:
|
||
|
|
; int mem_unassign(void) ;
|
||
|
|
; function mem_unassign: Boolean ;
|
||
|
|
;
|
||
|
|
; Parameters:
|
||
|
|
; none
|
||
|
|
;
|
||
|
|
; Returns:
|
||
|
|
; 1(true) success( 開放に成功、あるいはもともと割り当てられていない )
|
||
|
|
; 0(false) failure(hmem_*やsmem_*で確保されたままのものがある)
|
||
|
|
;
|
||
|
|
; Binding Target:
|
||
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
||
|
|
;
|
||
|
|
; Running Target:
|
||
|
|
; MS-DOS
|
||
|
|
;
|
||
|
|
; Requiring Resources:
|
||
|
|
; CPU: 8086
|
||
|
|
;
|
||
|
|
; Notes:
|
||
|
|
;
|
||
|
|
;
|
||
|
|
; Assembly Language Note:
|
||
|
|
; AX,ES 破壊
|
||
|
|
;
|
||
|
|
; Compiler/Assembler:
|
||
|
|
; TASM 3.0
|
||
|
|
; OPTASM 1.6
|
||
|
|
;
|
||
|
|
; Author:
|
||
|
|
; 恋塚昭彦
|
||
|
|
;
|
||
|
|
; Revision History:
|
||
|
|
; 93/ 9/16 Initial: memunasi.asm/master.lib 0.21
|
||
|
|
|
||
|
|
func MEM_UNASSIGN ; mem_unassign() {
|
||
|
|
cmp mem_TopSeg,0
|
||
|
|
je short @@SUCCESS
|
||
|
|
|
||
|
|
ifndef MASTERMOD
|
||
|
|
mov AX,mem_OutSeg ; some heap type memory allocated
|
||
|
|
cmp mem_TopHeap,AX
|
||
|
|
jne short @@FAILURE
|
||
|
|
endif
|
||
|
|
mov AX,mem_TopSeg
|
||
|
|
ifndef MASTERMOD
|
||
|
|
cmp mem_EndMark,AX ; some stack type memory allocated
|
||
|
|
jne short @@FAILURE
|
||
|
|
endif
|
||
|
|
mov ES,AX ; for free
|
||
|
|
|
||
|
|
xor AX,AX
|
||
|
|
cmp mem_MyOwn,AX ; myown が 0 なら開放せず成功
|
||
|
|
mov mem_TopSeg,AX
|
||
|
|
je short @@SUCCESS
|
||
|
|
|
||
|
|
mov AH,49h ; free block
|
||
|
|
int 21h
|
||
|
|
|
||
|
|
@@SUCCESS:
|
||
|
|
mov AX,1
|
||
|
|
ret
|
||
|
|
@@FAILURE:
|
||
|
|
xor AX,AX
|
||
|
|
stc
|
||
|
|
ret
|
||
|
|
endfunc ; }
|