mirror of https://github.com/nmlgc/ReC98.git
56 lines
753 B
NASM
56 lines
753 B
NASM
; master library - PC98
|
|
;
|
|
; Description:
|
|
; 常駐パレットの開放
|
|
;
|
|
; Function/Procedures:
|
|
; void respal_free( void ) ;
|
|
;
|
|
; Parameters:
|
|
; none
|
|
;
|
|
; Returns:
|
|
; none
|
|
;
|
|
; Binding Target:
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
;
|
|
; Running Target:
|
|
; PC-9801
|
|
;
|
|
; Requiring Resources:
|
|
; CPU: 8086
|
|
;
|
|
; Notes:
|
|
; 常駐パレットが作成されていなければ、何もしません。
|
|
;
|
|
; Compiler/Assembler:
|
|
; TASM 3.0
|
|
; OPTASM 1.6
|
|
;
|
|
; Author:
|
|
; 恋塚昭彦
|
|
;
|
|
; Revision History:
|
|
; 92/11/16 Initial
|
|
|
|
func RESPAL_FREE
|
|
mov AX,ResPalSeg
|
|
or AX,AX
|
|
jnz short @@FREE
|
|
ifdef MASTERMOD
|
|
nop
|
|
endif
|
|
call RESPAL_EXIST
|
|
or AX,AX
|
|
jnz short @@IGNORE
|
|
@@FREE:
|
|
mov ES,AX
|
|
mov AH,49h ; メモリブロックの開放
|
|
int 21h
|
|
|
|
mov ResPalSeg,0
|
|
@@IGNORE:
|
|
ret
|
|
endfunc
|