mirror of https://github.com/nmlgc/ReC98.git
247 lines
3.8 KiB
NASM
247 lines
3.8 KiB
NASM
; superimpose & master library module
|
|
;
|
|
; Description:
|
|
; BFNT+ファイル(16色)からパターンを登録する
|
|
;
|
|
; Functions/Procedures:
|
|
; int bfnt_entry_pat( unsigned handle, BFNT_HEADER * header, int clear_color ) ;
|
|
;
|
|
; Parameters:
|
|
; handle BFNT+ファイルハンドル
|
|
; header BFNT+ヘッダ
|
|
; clear_color 透明色
|
|
;
|
|
; Returns:
|
|
; NoError 成功
|
|
; InvalidData ファイルハンドルまたはファイルが異常
|
|
; InsufficientMemory メモリが足りない
|
|
; GeneralFailure 登録パターンが多すぎる
|
|
;
|
|
; Binding Target:
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
;
|
|
; Running Target:
|
|
; MS-DOS
|
|
;
|
|
; Requiring Resources:
|
|
; CPU: V30
|
|
;
|
|
; Notes:
|
|
;
|
|
;
|
|
; Compiler/Assembler:
|
|
; TASM 3.0
|
|
; OPTASM 1.6
|
|
;
|
|
; Author:
|
|
; Kazumi(奥田 仁)
|
|
; 恋塚(恋塚昭彦)
|
|
;
|
|
; Revision History:
|
|
;
|
|
;$Id: bftentry.asm 0.05 93/01/15 11:37:08 Kazumi Rel $
|
|
;
|
|
; 93/ 3/10 Initial: master.lib <- super.lib 0.22b
|
|
; 93/ 3/16 加速
|
|
; 93/ 5/ 9 far bug fix
|
|
; 93/ 5/26 [M0.18] bug fix(32x32dot以上のデータが無視された(^^;)
|
|
; 93/11/21 [M0.21] ほんのちょっと小さくした, ファイルが途中で切れてる
|
|
; ときにもエラーにするようにした
|
|
; 95/ 3/24 [M0.22k] InvalidData時、smemを開放していなかった
|
|
|
|
MRETURN macro
|
|
pop SI
|
|
pop DI
|
|
pop DS
|
|
pop BP
|
|
ret (2+DATASIZE)*2
|
|
EVEN
|
|
endm
|
|
|
|
retfunc BFTENTRY_INVAL
|
|
push DS
|
|
mov DS,CS:_DS_
|
|
_call SMEM_RELEASE
|
|
mov AX,InvalidData
|
|
BFTENTRY_FAULT: MRETURN
|
|
endfunc
|
|
|
|
func BFNT_ENTRY_PAT ; bfnt_entry_pat() {
|
|
push BP
|
|
mov BP,SP
|
|
push DS
|
|
push SI
|
|
push DI
|
|
|
|
; 引数
|
|
@@handle = (RETSIZE+2+DATASIZE)*2
|
|
@@header = (RETSIZE+2)*2
|
|
@@clear_color = (RETSIZE+1)*2
|
|
|
|
mov AX,[BP+@@clear_color]
|
|
mov CS:bftentry_color,AX
|
|
mov CS:_DS_,DS
|
|
mov AX,[BP+@@handle]
|
|
mov CS:bftentry_file_handle,AX
|
|
_push DS
|
|
_lds BX,[BP+@@header]
|
|
mov AX,(bfnt_header PTR [BX]).Xdots
|
|
mov CX,(bfnt_header PTR [BX]).Ydots
|
|
mov BP,(bfnt_header PTR [BX]).END_
|
|
sub BP,(bfnt_header PTR [BX]).START
|
|
inc BP ; BP = pattern counter
|
|
_pop DS
|
|
shr AX,3
|
|
mov BYTE PTR CS:[@@xsize],AL
|
|
mov DH,AL
|
|
mov DL,CL
|
|
mov CS:@@patsize,DX
|
|
mov BYTE PTR CS:[@@ysize],CL
|
|
mul CX
|
|
mov CS:plane_size,AX
|
|
shl AX,2 ;pattern size (BRGI)
|
|
mov CS:read_byte,AX
|
|
xchg BX,AX
|
|
push BX
|
|
_call SMEM_WGET
|
|
jc short BFTENTRY_FAULT
|
|
|
|
xchg CX,AX ;address backup
|
|
push BX
|
|
_call SMEM_WGET
|
|
jc short BFTENTRY_FAULT
|
|
|
|
mov ES,AX
|
|
mov DS,CX
|
|
|
|
@@NEXT_PATTERN:
|
|
JMOV CX,read_byte
|
|
xor DX,DX
|
|
JMOV BX,bftentry_file_handle
|
|
|
|
mov AH,3fh
|
|
int 21h ;read handle
|
|
if LDATA
|
|
jnb @@NEXT_PATTERN_1
|
|
jmp BFTENTRY_INVAL
|
|
else
|
|
jb BFTENTRY_INVAL
|
|
endif
|
|
@@NEXT_PATTERN_1:
|
|
cmp AX,CX
|
|
jz @@NEXT_PATTERN_2
|
|
jmp BFTENTRY_INVAL
|
|
@@NEXT_PATTERN_2:
|
|
xor SI,SI
|
|
JMOV DX,plane_size
|
|
|
|
xor BX,BX
|
|
|
|
mov CH,11h ;dummy
|
|
@@ysize EQU $-1
|
|
|
|
@@next_y:
|
|
mov CL,11h ;dummy
|
|
@@xsize EQU $-1
|
|
|
|
@@next_x:
|
|
push CX
|
|
push DX
|
|
push BX
|
|
lodsw
|
|
mov BX,AX
|
|
lodsw
|
|
mov DX,AX ; BL BH DL DH
|
|
mov DI,4
|
|
B2V_LOOP:
|
|
rol BL,1
|
|
RCL CH,1
|
|
rol BL,1
|
|
RCL CL,1
|
|
rol BL,1
|
|
RCL AH,1
|
|
rol BL,1
|
|
RCL AL,1
|
|
|
|
rol BL,1
|
|
RCL CH,1
|
|
rol BL,1
|
|
RCL CL,1
|
|
rol BL,1
|
|
RCL AH,1
|
|
rol BL,1
|
|
RCL AL,1
|
|
|
|
mov BL,BH
|
|
mov BH,DL
|
|
mov DL,DH
|
|
|
|
dec DI
|
|
jnz short B2V_LOOP
|
|
|
|
pop BX
|
|
pop DX
|
|
|
|
; DI=0だし
|
|
mov ES:[BX+DI],AL
|
|
add DI,DX
|
|
mov ES:[BX+DI],AH
|
|
add DI,DX
|
|
mov ES:[BX+DI],CL
|
|
add DI,DX
|
|
mov ES:[BX+DI],CH
|
|
pop CX
|
|
|
|
inc BX
|
|
dec CL
|
|
jnz short @@next_x
|
|
|
|
dec CH
|
|
jnz short @@next_y
|
|
|
|
push DS ;DS = data segment
|
|
JMOV AX,_DS_
|
|
|
|
mov DS,AX
|
|
|
|
JMOV AX,@@patsize
|
|
push ES
|
|
|
|
push AX ; patsize
|
|
push ES ; seg addr
|
|
xor AX,AX
|
|
push AX ;offset address
|
|
JMOV AX,bftentry_color ;clear_color
|
|
push AX
|
|
_call SUPER_ENTRY_PAT ; (patsize, far addr, clear_color)
|
|
|
|
pop ES ;resister load !!
|
|
|
|
pop DS
|
|
jc short @@ERROR
|
|
dec BP
|
|
jz short @@RETURN
|
|
jmp @@NEXT_PATTERN
|
|
EVEN
|
|
|
|
@@ERROR:
|
|
push DS
|
|
mov DS,CS:_DS_
|
|
mov CX,AX
|
|
push ES
|
|
_call SMEM_RELEASE
|
|
_call SMEM_RELEASE
|
|
mov AX,CX
|
|
stc
|
|
MRETURN
|
|
@@RETURN:
|
|
push DS
|
|
mov DS,CS:_DS_
|
|
push ES
|
|
_call SMEM_RELEASE
|
|
_call SMEM_RELEASE
|
|
mov AX,NoError
|
|
clc
|
|
MRETURN
|
|
endfunc ; }
|