feat: add --makemcs option

Author: kg68k

CHANGELOG.md

@@ -1,8 +1,9 @@
 # 変更履歴
 
-## 3.01+18-beta.1 - 2023-07-11
+## 3.01+18-beta.2 - 2023-07-11
 * g2lkモードでのビルド(g2lk.r)を廃止し、通常モード(hlk.r)に統合。  
   実行ファイル名の先頭を'g2lk'(大文字小文字区別なし)にするとg2lkモードで動作する。
+* --makemcsオプションを追加。
 
 ## 3.01+17 - 2023-07-10
 * 060turbo.sys v0.57のハイメモリ仕様(DOS \_MALLOC3)に対応。

hlkev.txt

@@ -206,8 +206,8 @@ struprサブルーチンが終了しません。
     張子がなければ".map"を補完します(これを抑制する方法は今のところあり
     ません)。
 
-        例) hlk -p foo (foo.o -> foo.x、foo.map)
-        例) hlk -apbar foo (foo.o -> foo、bar.map)
+        例: hlk -p foo (foo.o -> foo.x、foo.map)
+        例: hlk -apbar foo (foo.o -> foo、bar.map)
 
 
 ・以下の変更はversion 3.01+3以降のものです。
@@ -266,7 +266,7 @@ struprサブルーチンが終了しません。
     強制的に作成します。特定のアドレスから実行されるバイナリを作成する場
     合は-bによるベースアドレスの指定が役に立つでしょう。
 
-        例) hlk -rn -b0xed0100 -o sramprog.bin sramprog.o
+        例: hlk -rn -b0xed0100 -o sramprog.bin sramprog.o
 
 
 ・以下の追加はversion 3.01+3以降のものです。
@@ -313,6 +313,15 @@ struprサブルーチンが終了しません。
     任意のディレクトリを指定できます。
 
 
+・以下の追加はversion 3.01+18以降のものです。
+
+--makemcs ... MACS(.mcs)形式ファイルの作成
+
+    　MACS(.mcs)形式でファイルを出力します。拡張子が省略された場合は.mcs
+    になります。-rオプションが自動的に設定されます。
+
+
+
 ━☆ 変更点(その他) ☆━━━━━━━━━━━━━━━━━━━━━━━━━
 
 ・以下の変更はversion 3.01+2以降のものです。

src/hlk.mac

@@ -177,6 +177,7 @@ OPT_AN_FLAG:	.ds.b		1
 
 EXEC_FILE_TYPE:	.ds.b		1
 OPT_RN_FLAG:	.ds.b		1
+MAKEMCS_FLAG:	.ds.b		1
 
 SLASH_CHAR:	.ds.b		1
 

src/main.s

@@ -2,7 +2,7 @@
 
 PROGRAM:	.reg		'HLK evolution'
 VERSION:	.reg		'3.01'
-PATCHLEVEL:	.reg		'+18-beta.1'
+PATCHLEVEL:	.reg		'+18-beta.2'
 PATCHDATE:	.reg		'2023-07-11'
 PATCHAUTHOR:	.reg		'TcbnErik'
 
@@ -1001,6 +1001,7 @@ long_opt_table:
 		.dc		str_quiet-@b	,ana_opt_b550-@b
 		.dc		str_verbose-@b	,ana_opt_b400-@b
 		.dc		str_version-@b	,print_version-@b
+		.dc		str_makemcs-@b,	,option_makemcs-@b
 		.dc		0
 
 
@@ -1276,6 +1277,11 @@ ana_opt_b600:	st		(TITLE_FLAG,a6)
 ana_opt_b650:	lea		(NO_X_EXT_FLAG,a6),a4
 		bra		ana_opt_check_an_rn
 
+* --makemcs
+option_makemcs:
+		st		(MAKEMCS_FLAG,a6)
+		bra		option_r_rtype
+
 * -r / -rn (.r type exec file)
 option_r_rtype:
 		lea		(EXEC_FILE_TYPE,a6),a4
@@ -1693,7 +1699,10 @@ mk_exec_name_b2:
 		lea		(NAMECK_Ext,a3),a0
 		tst.b		(a0)
 		bne		mk_exname_b3
-@@:		lea		(ext_r,pc),a0
+@@:		lea		(ext_mcs,pc),a0
+		tst.b		(MAKEMCS_FLAG,a6)
+		bne		mk_exname_b3
+		addq.l		#ext_r-ext_mcs,a0
 		tst.b		(EXEC_FILE_TYPE,a6)
 		bne		mk_exname_b3		;-aでも".r"は必ず付ける
 
@@ -1883,6 +1892,7 @@ usage_msg:	.dc.b		'usege: hlk [switch] file [+file] ...',CRLF
 		.dc.b		'	-h / --help	使用法表示',CRLF
 		.dc.b		'	-z / --quiet	-v/--verbose オプションを取り消す',CRLF
 		.dc.b		'	-v / --verbose	詳細表示',CRLF
+		.dc.b		'	--makemcs	MACS(.mcs)形式ファイルの作成',CRLF
 		.dc.b		'	--version	バージョン表示',CRLF
 		.dc.b		CRLF
 		.dc.b		'	環境変数 HLK の内容がコマンドラインの手前に挿入されます。',CRLF
@@ -1893,6 +1903,7 @@ str_help:	.dc.b		'help',0
 str_quiet:	.dc.b		'quiet',0
 str_verbose:	.dc.b		'verbose',0
 str_version:	.dc.b		'version',0
+str_makemcs:	.dc.b		'makemcs',0
 
 too_many_args:	.dc.b		'引数が多すぎます。',CRLF
 		.dc.b		0
@@ -1950,6 +1961,7 @@ env_g2lk:	.dc.b		'G2LK',0
 env_slash:	.dc.b		'SLASH',0
 
 ext_a:		.dc.b		'.a',0
+ext_mcs:	.dc.b		'.mcs',0
 ext_r:		.dc.b		'.r',0
 ext_x:		.dc.b		'.x',0
 ext_map:	.dc.b		'.map',0

src/make_exe.s

@@ -500,9 +500,27 @@ make_exe_r_no_check:
 		cmp.l		d0,d7
 		bcs		malloc_err
 
-		move.l		(X_TextSize,a3),d1
+		move.l		(X_TextSize,a3),d1	;ファイルに書き出すサイズとバッファ
 		add.l		(X_DataSize,a3),d1
 		lea		(X_HEADER_SIZE,a3),a3
+
+		tst.b		(MAKEMCS_FLAG,a0)
+		beq		make_exe_r_notmcs
+
+		moveq		#14,d0			;MACS(.mcs)ファイル形式の検査
+		cmp.l		d0,d1
+		bcs		make_exe_err_mcs	;ファイルサイズが小さすぎる
+		lea		(a3),a1
+		cmpi.l		#'MACS',(a1)+
+		bne		@f
+		cmpi.l		#'DATA',(a1)+
+@@:		bne		make_exe_err_mcs
+		addq.l		#2,a1			;データ形式バージョン($01_00)
+
+		move.l		(X_BssSize-X_HEADER_SIZE,a3),d0
+		add.l		d1,d0			;ファイルサイズを
+		move.l		d0,(a1)			;MACSファイルのヘッダ内に埋め込む
+make_exe_r_notmcs:
 		bra		make_exe_open
 
 make_exe_x:
@@ -595,6 +613,9 @@ make_exe_err_ill_offset:
 make_exe_err_adr:
 		pea		(exec_adr_msg,pc)	;実行アドレスが先頭からではない
 		bra		@f
+make_exe_err_mcs:
+		pea		(not_mcs_msg,pc)
+		bra		@f
 @@:
 		DOS		_PRINT
 		pea		(workbuf+EXEC_NAME,pc)
@@ -4502,6 +4523,8 @@ ill_offset_msg:	.dc.b		'再配置対象が奇数アドレスにあります: ',0
 
 exec_adr_msg:	.dc.b		'実行開始アドレスがファイル先頭ではありません: ',0
 
+not_mcs_msg:	.dc.b		'MACS形式ファイルではありません: ',0
+
 unmatch_size:	.dc.b		'roffsetサイズ不一致(?_?)!',CRLF,CRLF
 		.dc.b		0