Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/libs/master.lib/resdata.asm

179 lines
3.4 KiB
NASM
Raw Normal View History

[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
; master library - MS-DOS
;
; Description:
; 常駐データの検索( resdata_exist )
; 常駐データの作成( resdata_create )
;
; Function/Procedures:
; unsigned resdata_exist( char * idstr, unsigned idlen, unsigned parasize) ;
; unsigned resdata_create( char * idstr, unsigned idlen, unsigned parasize) ;
;
; Parameters:
; char * idstr ; /* 識別データ */
; unsigned idlen ; /* 識別データの長さ */
; unsigned parasize ; /* データブロックのパラグラフサイズ */
;
; Returns:
; (resdata_exist) 常駐データが見つかったら、0以外を返します。
; (常駐データのセグメントアドレス)
; (resdata_create) 作成できない(メモリ不足)ならば 0
; 作成したなら (常駐データのセグメントアドレス)
;
; Binding Target:
; Microsoft-C / Turbo-C / Turbo Pascal
;
; Running Target:
; MS-DOS
;
; Requiring Resources:
; CPU: 8086
;
; Notes:
; 開放は、dos_freeでやってね
;
; Compiler/Assembler:
; TASM 3.0
; OPTASM 1.6
;
; Author:
; 恋塚昭彦
;
; Revision History:
; 92/11/16 Initial
; 92/11/21 for Pascal
; 93/ 4/15 respal_createに戻り値をつけた
; 95/ 1/ 7 Initial: resdata.asm/master.lib 0.23
_mcb_flg equ 0
_mcb_owner equ 1
_mcb_size equ 3
func RESDATA_EXIST ; resdata_exist() {
push BP
mov BP,SP
push SI
push DI
_push DS
; 引き数
@@id_str = (RETSIZE+3)*2
@@id_len = (RETSIZE+2)*2
@@parasize = (RETSIZE+1)*2
; 常駐パレットの捜索
mov AH, 52h
int 21h
CLD
mov BX, ES:[BX-2]
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
RSDEXIST_FIND:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov ES,BX
inc BX
mov AX,ES:[_mcb_owner]
or AX,AX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
je short RSDEXIST_SKIP
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov AX,ES:[_mcb_size]
cmp AX,[BP+@@parasize]
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jne short RSDEXIST_SKIP
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov CX,[BP+@@id_len]
_lds SI,[BP+@@id_str]
mov DI,10h ; MCBの次
[JWasm move] Fix the remaining small issues to get through the first pass Thanks to the LOCALS directive, we do need to break compatibility to TASM at one point after all. This is the rest we can reasonably change to get at least through JWasm's first pass without errors while maintaining compatibility to TASM. Includes: * the OPTION syntax to switch in and out of floating-point emulation mode * REP CMPSB → REPE CMPSB * Hacks for two 80-byte short jumps * lack of support for floating-point stupidity ♥ as well as other issues that I covered in previous commits and overlooked in some files.
2014-11-21 10:24:47 +00:00
repe cmpsb
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
je short RSDEXIST_FOUND
RSDEXIST_SKIP:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov AX,ES:[_mcb_size]
add BX,AX
mov AL,ES:[_mcb_flg]
cmp AL,'M'
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
je short RSDEXIST_FIND
RSDEXIST_NOTFOUND:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov BX,0
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
RSDEXIST_FOUND:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov AX,BX
_pop DS
pop DI
pop SI
pop BP
ret (2+DATASIZE)*2
endfunc ; }
func RESDATA_CREATE ; resdata_create() {
push BP
mov BP,SP
push SI
push DI
_push DS
; 引き数
@@id_str = (RETSIZE+3)*2
@@id_len = (RETSIZE+2)*2
@@parasize = (RETSIZE+1)*2
if LDATA
push word ptr [BP+@@id_str+2]
endif
push word ptr [BP+@@id_str]
push word ptr [BP+@@id_len]
push word ptr [BP+@@parasize]
_call RESDATA_EXIST
or AX,AX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jnz short RSDCREATE_IGNORE
RSDCREATE_CREATE:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov AX,5800h ; アロケーションストラテジを得る
int 21h
mov DX,AX ; 得たストラテジを保存する
mov AX,5801h
mov BX,1 ; 必要最小のアロケーション
int 21h
mov AH,48h ; メモリ割り当て
mov BX,[BP+@@parasize]
int 21h
mov CX,0
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jc short RSDCREATE_DAME
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov BX,CS ; 自分より前ならＯＫ
cmp BX,AX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jnb short RSDCREATE_ALLOC_OK
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov ES,AX ; 自分より後ろだったら
mov AH,49h ; 解放する。
int 21h ;
mov AX,5801h ;
mov BX,2 ; 最上位からのアロケーション
int 21h
mov AH,48h ; メモリ割り当て
mov BX,[BP+@@parasize]
int 21h
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
RSDCREATE_ALLOC_OK:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov CX,AX
push AX
dec CX ; MCBのownerを書き換える
mov ES,CX ;
mov AX,-1 ;
mov ES:[_mcb_owner],AX ;
inc CX
mov ES,CX
xor DI,DI ; IDの書き込み
mov CX,[BP+@@id_len]
_lds SI,[BP+@@id_str]
rep movsb
pop CX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
RSDCREATE_DAME:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
mov AX,5801h ; アロケーションストラテジの復帰
mov BX,DX ;
int 21h ;
mov AX,CX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
RSDCREATE_IGNORE:
[Reduction] #484-485: resdata_exist and resdata_create Looks like the 'pal98 grb' string was merely copy-pasted from the respal module and isn't actually used by the function, which means that we don't have to work around a naming collision after all.
2014-09-07 13:47:50 +00:00
_pop DS
pop DI
pop SI
pop BP
ret (2+DATASIZE)*2
endfunc ; }