ReC98/libs/master.lib/bgm_read_sdata.asm

; master library - BGM
;
; Description:
;	EFSファイルを読み込む
;
; Function/Procedures:
;	int bgm_read_sdata(const char *fname);
;
; Parameters:
;	fname		ファイルネーム
;
; Returns:
;	BGM_COMPLETE	正常終了
;	BGM_FILE_ERR	ファイルがない
;	BGM_FORMAT_ERR	フォーマットが異常
;	BGM_OVERFLOW	メモリが足りない
;
; Binding Target:
;	Microsoft-C / Turbo-C / Turbo Pascal
;
; Running Target:
;	PC-9801V
;
; Requiring Resources:
;	CPU: V30
;
; Notes:
;
;
; Assembly Language Note:
;
;
; Compiler/Assembler:
;	TASM 3.0
;	OPTASM 1.6
;
; Author:
;	femy(淀  文武)		: オリジナル・C言語版
;	steelman(千野  裕司)	: アセンブリ言語版
;
; Revision History:
;	93/12/19 Initial: b_r_sdat.asm / master.lib 0.22 <- bgmlibs.lib 1.12

MRETURN macro
	pop	SI
	pop	DI
	leave
	ret	(DATASIZE*2)
	EVEN
endm

func BGM_READ_SDATA
	enter	4,0
	push	DI
	push	SI

	fname	= (RETSIZE+1)*2

	fbuf_seg= -2
	senum	= -4

	; 指定したファイルがなければファイルエラー
if LDATA
	push	word ptr [BP+fname+2]
endif
	push	word ptr [BP+fname]
	nopcall	DOS_ROPEN
	mov	SI,AX
	cmp	SI,FileNotFound
	jne	short @@OPENED
	mov	AX,BGM_FILE_ERR
	jmp	short @@RETURN
@@NOMEM:	
	mov	AX,InsufficientMemory
@@RETURN:
	MRETURN

@@OPENED:
	push	AX
	push	0
	push	0
	push	2
	nopcall	DOS_SEEK		; 最後にいく
	mov	DI,AX			; 長さの下位16bitだけみる
					; 64Kオーバーの動作は予測不能
	push	SI
	push	0
	push	0
	push	0
	nopcall	DOS_SEEK		; 戻る
	push	DI
	nopcall	SMEM_WGET
	jc	short @@NOMEM
	mov	[BP+fbuf_seg],AX
	push	SI
	push	AX
	push	CX
	push	DI
	nopcall	DOS_READ
	mov	ES,[BP+fbuf_seg]
	mov	BX,AX
	mov	byte ptr ES:[BX],255	; 終わりに0ffhを入れる
	push	SI
	nopcall	DOS_CLOSE

	CLD

	;データセット
	mov	AX,glb.snum
	mov	[BP+senum],AX

	mov	BX,AX
	shl	BX,3			; type SESOUND
;	mov	AX,word ptr esound[BX].sbuf
;	mov	word ptr esound[BX].sptr,AX
	mov	word ptr esound[BX].sptr,0	; offsetは0のはず
	mov	AX,word ptr esound[BX].sbuf+2
	mov	word ptr esound[BX].sptr+2,AX

	xor	DI,DI		; dcnt
	xor	SI,SI
@@LOOP_TOP:
	mov	DS,[BP+fbuf_seg]
	ASSUME DS: NOTHING
@@TIL_NUMBER:
	lodsb
	cmp	AL,';'
	jne	short @@NO_COMMENT
@@COMMENT_SKIP:
	lodsb
	cmp	AL,0ffh
	je	short @@NUMBER_FOUND
	cmp	AL,0ah			; ';'が来たら改行まで飛ばす
	jne	short @@COMMENT_SKIP

@@NO_COMMENT:
	cmp	AL,'0'
	jb	short @@L01
	cmp	AL,'9'
	jbe	short @@NUMBER_FOUND
@@L01:
	cmp	AL,0ffh
	jne	short @@TIL_NUMBER
@@NUMBER_FOUND:
	xor	CX,CX		; dat = 0;

	; 数字が来た
	cmp	AL,'0'
	jb	short @@NUMBER_END
@@WHILE_NUMBER:
	cmp	AL,'9'
	ja	short @@NUMBER_END
	cmp	AL,0ffh
	je	short @@NUMBER_END

	sub	AL,'0'
	mov	DL,AL
	mov	DH,0

	mov	AX,CX		; CX = CX * 10
	shl	AX,2
	add	AX,CX
	add	AX,AX
	add	AX,DX		; .... + (c - '0') ;
	mov	CX,AX
	lodsb
	cmp	AL,'0'
	jae	short @@WHILE_NUMBER
@@NUMBER_END:

	; 数字が終わった
	; CXに数値が入った
	push	seg DGROUP
	pop	DS
	ASSUME DS: DGROUP

	cmp	AL,0ffh
	je	short @@LOOP_BREAK

	mov	BX,glb.snum
	shl	BX,3
	mov	DX,BX
	les	BX,esound[BX].sptr
	mov	ES:[BX],CX			; *esound[glb.senum].sptr = data
	mov	BX,DX
	add	word ptr esound[BX].sptr,2	; esound[glb.senum].sptr++

	or	CX,CX		; dat = SEND?
	je	short @@DAT_IS_SEND
	inc	DI		; dcnt
	cmp	DI,SBUFMAX
	jne	short @@NOT_SBUFMAX
@@DAT_IS_SEND:
	mov	BX,glb.snum
	shl	BX,3
	les	BX,esound[BX].sptr
	xor	DI,DI		; dcnt = 0;
	mov	ES:[BX],DI	; *esound[glb.senum].sptr = SEND
	inc	glb.snum
	cmp	glb.snum,SMAX
	je	short @@LOOP_BREAK	; break

	; esound[glb.senum].sptr = esound[glb.senum].sbuf ;
	mov	BX,glb.snum
	shl	BX,3
;	mov	CX,word ptr esound[BX].sbuf
;	mov	word ptr esound[BX].sptr,CX
	mov	word ptr esound[BX].sptr,0	; offsetは0のはず
	mov	CX,word ptr esound[BX].sbuf+2
	mov	word ptr esound[BX].sptr+2,CX
@@NOT_SBUFMAX:
	cmp	AL,0ffh
	je	short @@LOOP_BREAK
	jmp	@@LOOP_TOP
@@LOOP_BREAK:

	mov	AX,glb.snum
	cmp	[BP+senum],AX
	mov	AX,BGM_FORMAT_ERR
	je	short @@FORMERR		; 一つも増えなかったなら失敗
	xor	AX,AX		; BGM_COMPLETE
@@FORMERR:
	push	word ptr [BP+fbuf_seg]
	nopcall	SMEM_RELEASE
	MRETURN
endfunc