--- nono/exp/fmovemc.php	2026/04/29 17:05:28	1.1.1.3
+++ nono/exp/fmovemc.php	2026/04/29 17:05:36	1.1.1.4
@@ -29,6 +29,7 @@
 
 	.xref	hexstr_long
 	.include doscall.mac
+	.include iocscall.mac
 	.list
 	.cpu	68030
 
@@ -38,16 +39,6 @@ PRINT	.macro	msg
 	addq.l	#4,sp
 	.endm
 
-SET_FLINE_TRAP	.macro
-	move.l	(a5),a4
-	lea.l	fline_handler(pc),a1
-	move.l	a1,(a5)
-	.endm
-
-RESTORE_FLINE_TRAP	.macro
-	move.l	a4,(a5)
-	.endm
-
 	.text
 	.even
 start:
@@ -61,7 +52,6 @@ start:
 	// a0/a1	work
 	// a3	検査対象命令の次の位置 (Fライン例外から戻るのに使用)
 	// a4	元のFライン例外ハンドラ置き場
-	// a5	Fライン例外ベクタの位置 $002c
 ?>
 <?php
 	// regs がターゲットのFPcr。
@@ -287,14 +277,14 @@ function subr_fail($dir, $regs, $id)
 	out("	rts");
 	out("@@:");
 	out("	PRINT	msg_{$funcname}");
-	out("	SET_FLINE_TRAP");
+	out("	bsr	set_fline");
 	out("	moveq.l	#0,d7");
 	out("	lea.l	@f,a3");
 	// アセンブルできない可能性があるので命令はバイナリを出力。
 	out("	.dc.w	$%04x, $%04x", $w1, $w2);
 	out("@@:");
 
-	out("	RESTORE_FLINE_TRAP");
+	out("	bsr	restore_fline");
 	// 例外が起きるはずなので D7 が非ゼロなら成功(次へ)
 	out("	tst.l	d7");
 	out("	bne	@f");
@@ -364,7 +354,7 @@ function subr_success_to($regs, $id)
 		break;
 	}
 
-	out("	SET_FLINE_TRAP");
+	out("	bsr	set_fline");
 	out("	moveq.l	#0,d7");
 	out("	lea.l	@f,a3");
 	// 実行
@@ -379,7 +369,7 @@ function subr_success_to($regs, $id)
 	}
 	out("@@:");
 
-	out("	RESTORE_FLINE_TRAP");
+	out("	bsr	restore_fline");
 	// 例外は起きないはずなので D7 はゼロなら成功(次へ)
 	out("	tst.l	d7");
 	out("	beq	@f");
@@ -451,7 +441,7 @@ function subr_success_to($regs, $id)
 		out("	move.l	#$%08x,a1", $expected[$i] & regmask(1));
 		$i++;
 	} else {
-		out("	move.l	d7,a1	; d7=0");
+		out("	suba.l	a1,a1");
 	}
 	out("	cmpa.l	a1,a0");
 	out("	beq	@f");
@@ -512,7 +502,7 @@ function subr_success_from($regs, $id)
 		break;
 	}
 
-	out("	SET_FLINE_TRAP");
+	out("	bsr	set_fline");
 	out("	moveq.l	#0,d7");
 	out("	lea.l	@f,a3");
 	// 実行
@@ -522,7 +512,7 @@ function subr_success_from($regs, $id)
 		out("	fmovem.l {$mnem},{$cpureg}");
 	out("@@:");
 
-	out("	RESTORE_FLINE_TRAP");
+	out("	bsr	restore_fline");
 	// 例外は起きないはずなので D7 はゼロなら成功(次へ)
 	out("	tst.l	d7");
 	out("	beq	@f");
@@ -564,7 +554,7 @@ function subr_success_from($regs, $id)
 				$i++;
 				out("	cmp.l	d1,d0");
 				out("	beq	@f");
-				out_result("msg_fail", "d1", "d0");
+				out_result("msg_fail_dst", "d1", "d0");
 				out("@@:");
 			}
 		}
@@ -577,7 +567,7 @@ function subr_success_from($regs, $id)
 				$i++;
 				out("	cmp.l	a1,a0");
 				out("	beq	@f");
-				out_result("msg_fail", "a1", "a0");
+				out_result("msg_fail_dst", "a1", "a0");
 				out("@@:");
 			}
 		}
@@ -592,7 +582,8 @@ function subr_success_from($regs, $id)
 				out("	cmp.l	workarea+%d,d1", $i * 4);
 				$i++;
 				out("	beq	@f");
-				out_result("msg_fail", "d1", sprintf("workarea+%d", $i * 4));
+				out_result("msg_fail_dst",
+					"d1", sprintf("workarea+%d", $i * 4));
 				out("@@:");
 			}
 		}
@@ -607,14 +598,10 @@ function subr_success_from($regs, $id)
 	out("");
 }
 ?>
-<?php
-// lea.l $0000002c.l,a5 だと has.x に絶対アドレッシングだと
-// 怒られてしまうため仕方なく
-?>
 start2:
 	clr.l	-(sp)
 	DOS	_SUPER
-	movem.l	d7/a3-a5,-(sp)
+	movem.l	d7/a3-a4,-(sp)
 	; rough argument check
 	cmpi.b	#4,(a2)+	; strlen(arg)>=4 ?
 	bcs	@f
@@ -629,9 +616,6 @@ disp_hard:
 disp_easy:
 	PRINT	msg_easy
 @@:
-
-	moveq.l	#$2c,d0		; alternate of "lea.l $2c,a5"
-	move.l	d0,a5		;
 <?php
 	foreach ($funclist as $name => $text) {
 		// FPcr が1つもないケースは hard の時だけ実行。
@@ -646,7 +630,7 @@ disp_easy:
 		}
 	}
 ?>
-	movem.l	(sp)+,d7/a3-a5
+	movem.l	(sp)+,d7/a3-a4
 	DOS	_EXIT
 
 ; 結果表示
@@ -676,6 +660,28 @@ result:
 	unlk	a6
 	rts
 
+; Fライン例外をテスト用のものに差し替える。
+; 変更前のアドレスを a4 に格納する。
+; a1 は破壊する。
+set_fline:
+	movem.l	d0-d1,-(sp)
+	moveq.l	#$b,d1
+	lea.l	fline_handler(pc),a1
+	IOCS	_B_INTVCS
+	movea.l	d0,a4
+	movem.l	(sp)+,d0-d1
+	rts
+
+; Fライン例外を元に戻す。
+; a1 は破壊する。
+restore_fline:
+	movem.l	d0-d1,-(sp)
+	moveq.l	#$b,d1
+	movea.l	a4,a1
+	IOCS	_B_INTVCS
+	movem.l	(sp)+,d0-d1
+	rts
+
 ; Fライン例外ハンドラ
 ; a3 に戻りアドレスをセットしてあること
 ; d7 を 1 にして帰る
@@ -691,11 +697,11 @@ msg_fail_notrap:	.dc.b	$9,"FAIL: trap ex
 msg_fail_trap:	.dc.b	$9,"FAIL: unexpected trap occured",$d,$a,0
 
 msg_ok:		.dc.b	$9,"ok",$d,$a,0
-msg_fail:	.dc.b	$9,"fail",$d,$a,0
 msg_fail_cr:	.dc.b	$9,"FAIL: fpcr expects ",0
 msg_fail_sr:	.dc.b	$9,"FAIL: fpsr expects ",0
 msg_fail_ir:	.dc.b	$9,"FAIL: fpiar expects ",0
 msg_fail_addr:	.dc.b	$9,"FAIL: an expects ",0
+msg_fail_dst:	.dc.b	$9,"FAIL: dst expects ",0
 msg_but:	.dc.b	" but ",0
 msg_crlf:	.dc.b	$d,$a,0