mirror of https://github.com/nmlgc/ReC98.git
66 lines
1.1 KiB
NASM
66 lines
1.1 KiB
NASM
; superimpose & master library module
|
|
;
|
|
; Description:
|
|
; すべてのパターン／キャラクタの開放
|
|
;
|
|
; Function/Procedures:
|
|
; void super_free(void) ;
|
|
;
|
|
; Parameters:
|
|
; none
|
|
;
|
|
; Returns:
|
|
; none
|
|
;
|
|
; Binding Target:
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
;
|
|
; Running Target:
|
|
;
|
|
;
|
|
; Requiring Resources:
|
|
; CPU: 8086
|
|
;
|
|
; Notes:
|
|
;
|
|
;
|
|
; Assembly Language Note:
|
|
;
|
|
;
|
|
; Compiler/Assembler:
|
|
; TASM 3.0
|
|
; OPTASM 1.6
|
|
;
|
|
; Author:
|
|
; 恋塚昭彦
|
|
;
|
|
; Revision History:
|
|
; 93/ 9/16 Initial: superfre.asm/master.lib 0.21
|
|
; 93/12/ 6 [M0.22] すでに開放されているのにに呼び出された時のチェック
|
|
; 95/ 4/ 7 [M0.22k] super_charfreeによってキャラクタを開放する
|
|
|
|
func SUPER_FREE ; super_free() {
|
|
cmp super_buffer,0 ; super_bufferが0ならもう全て
|
|
je short @@SKIP ; 開放されていると判断
|
|
push super_buffer
|
|
_call HMEM_FREE
|
|
mov super_buffer,0
|
|
|
|
jmp short FREESTART
|
|
PATFREE:
|
|
dec AX
|
|
push AX
|
|
_call SUPER_CANCEL_PAT
|
|
|
|
FREESTART:
|
|
mov AX,super_patnum
|
|
test AX,AX
|
|
jnz short PATFREE
|
|
|
|
cmp super_charfree,0
|
|
je short @@SKIP
|
|
call word ptr super_charfree
|
|
@@SKIP:
|
|
ret
|
|
endfunc ; }
|