一括表示

原因を特定するにはまだ分からないことが多いので，
まずひとつ潰すところからやってみましょうか。

次のマクロは，製品版に相当する機能を持つ自分の常用マクロです。
これは #B を使っていないので，サイレントと非サイレント両方で
実行してみていただけるでしょうか。
なお，シフトキーを押しながら I を押すと元ファイルを削除して
しまいますので，くれぐれもご注意ください。

= t
*m
9 [ESC]I "Insert a File"        ; H_ear
        ?. (mr==$80)?{ &m(36) . }
        (tc-wc)??{ &m(6) . }
#if 98
        (ks&16)
#else
        (ks&4)
#endif
        ?{ &z("insfile") >* }
        k1&ks, c=wc, &m("%s to %s",mg..2..2+5,wa+146)
        (wt)?{ #W b=id, } #R #m
 :a     (s)?{ &c >a } (wc==c)?{ &m("cancel") . }
        &s #_ #> #b #^ #< ek[+,
 :b     #k (mb)?{ #W #< #i #W >b } #C
        (wt)?{ &#T(-b) #W } #i ek], &d
        (k)?{ #E &?("del %s",wf+$92) #m #[ k=px, }?k"",
        &m("ins %4s%s",k,wf+$92)
*

所謂XPモード的なものとエミュレータ上で結果が同じということなので，
環境よりも VZ(高橋版含む)により近い部分から確認してみたいですね。

> この、カーソルが行末で点滅していた行そのものは長さ約2550バイトほど。

念の為，以下の変数(バッファサイズ)の値も確認しておきたいです。
Bl（ラインバッファのサイズ：　初期値=2048　設定範囲=256~8192	
Bt（テキストバッファのサイズ(KB)）：　初期値=64[KB]　設定範囲=16~64	
　※BlはBtの指定サイズの128倍の値であること

テキストスタックに複写する際に，テキストバッファサイズの境界付近に
たまたまラインバッファサイズを超える長い行が存在した場合の振る舞い
（結構レア？）に係ることかもしれないですね。「新発見」かも。

ずいぶん昔作った漢字の化けてるとこを見つけたり直したりのマクロです．
まだ使えるかどうかわかりませんが……．

=== kataware.def 漢字片割れ探索 === by H_ear
*m
89 ^^ ""        ; 漢字断片を捜して修正支援
        ?. mp[, ps[=pa, Jd[-, Je[-, &s
:A      (ct<2)?{ ss-, #d (r)?>Z &> &s >A }
        (ck||ct-3)?{ #d >A }
        ((cd<$80 || cd>$EA) || (cd>$9F && cd<$E0))?{ #d >A }
        &d #d c='@',
:B      &o(c)
        &m("【発見しました】　[↓]:次候補　[↑]:前候補　[CR]:決定　[ESC]:中止")
:P      ep[+, &p ep],
        (r==#x)?{ c++, (c>$FC)? c=$40, &01 >B }
        (r==#e)?{ c--, (c<$40)? c=$FC, &01 >B }
        (r==#[)?{ &01 &m(" 中止しました。") >Z }
        (r==#m)?{ &m(" 決定しました。^QL でキャンセルできます。") >Z }
        >P
:Z      Je], Jd], ps], mp], #?
0:      (ly>wy-3)?{ &s ky-, &d }
1:      &s #h #F #x #u #m &o(pa.0) &d
;*
;=== k1byte.def === by H_ear = ２バイトコードの１バイト目のみ出力
;*m
89 ^\ ""
        ?. a=mg.-9, fr+, &j(1) &g("全角１文字",14) &Cr (r==-1)?>Z (r==-2)? >^
        &Sn(pw) (r-2)?. &Jk(pw..0) (r)??. &o(pw.0)
:Z      (a)?. mg.-9=0, &j(-1)
*
:Z      (直前のFEPの状態がON)?. mg.-9=0, &j(-1)


> ちょっとこれはもしかして、根が深い問題？

なんだか，終わりが見えない感じになってきましたね．
どういうテストをしたら原因が特定できるのが判然としないということが一番の問題かも．
ラインバッファとか64kの境界を跨ぐとき…みたいなことだと思うのですがね．

とりあえず、ここにつけます。

様々なものが遅々として進んでいませんが、とりあえず、最初に症状が顕在化した
WinXPのcommand.comのオプションの一覧を、やっと取得できました。
めざらさんのようにメモリ関係だけ抜粋するべきなんでしょうが、そういう手間も
かけていられないので、option.lstをそのまま貼り付けます。

---------- option.lst --------------------- 2022/04/17 (Sun) 18:52 --------
 DOSV  VZt  z+  St-  vw-  zk-
 
 Bt64     Bf4096   Bo32768  EM128    XM2048   Bm6456   Ba2      Hs4096
 Hf4096   Hx4096   Ha128    Hw64     Bl8192   Bc1024   Bu512    Bv0
 
 SW4   TC30  WD80  We80  PG0   RS3   Ta8   Tb4   Ci0   Co3   WL0
 LC24  VM0   CA48  Sr39  Qt1800Qc100 Qw1000RM0
 
 An$0F  Ac$0B  Al$0A  Ah$B0  As$F0  Ao$E0  Ar$B0  Am$0E  Ab$0B  At$0B
 Aw$0F  Af$0E  Ai$F0  Aj$0E  Ak$0E  Ag$01  Au$4F  Ae$12  Ay$00  vs$00
 vy$00  Ad$0F
 
 Dl-  Dc+  Dt-  De+  Ds-  Db-  Dn-  Du-  Df-  Dp-  Dh-  Dg+  Dr+  Dj-  Dv+
 
 FM58    FW2048  FV1     FS4     FO3
 
 Ei+  Es+  Ez-  Eb-  Eu-  Et+  Eh-  Ew-  Ec+  Ex-  En-  Ev-  Ek-  Ea+  RO-
 Ej+  Eo+  El-
 
 RX+  ZH+  Sx+  Se+  Sd+  Sk-  Sy+  YN-  Sn+  Sq-  FP+  FR-  FK+  FQ+  Sz-
 
 Sc-  Nd-  Vb-  Sv-  Tv-  YM-  CH-  Hp-  Hp-  lf-  Is-  Da-  Nf-
 Ce0      ml   mc   Ys$0F  Yo$0D  Yr$0E
---------- End of option.lst ----------------------------------------------

なんか、妖しそうなところってあります？


あと、関連して、めざらさんに頼みたいことがひとつ。
補完計画のほうからこのマクロを取得しようとしたのですが、なんかリンクが
切れているっぽい。
確認ならびに修正方、よろしくお願いいたします。

参考までに，メモリ関係を並べてみますので，ざっと比較してみてください。
上段がとしき環境で下段がめざら環境です。

>  Bt64     Bf4096   Bo32768  EM128    XM2048   Bm6456   Ba2      Hs4096
　 Bt64     Bf4096   Bo32768  EM1024   XM0      Bm24175  Ba2      Hs256

>  Hf4096   Hx4096   Ha128    Hw64     Bl8192   Bc1024   Bu512    Bv0
　 Hf256    Hx128    Ha92     Hw92     Bl8192   Bc1024   Bu256    Bv0

メモリの配分はあくまでも個人の必要性ですから，推奨される値はありませんが，
マニュアルのp35やreadme.docの第3章末の記述を参考にXMは使っていません。

あとは，ラインバッファの位置がどこになるのかですね。
ラインバッファとして使用するメモリの途中に 8000h（正負の境界）があると，
不具合を発生させる可能性があることが指摘されています。
メモリの配分を順番に足してゆくのは面倒だと思われたら，次のマクロ…
http://mezala.la.coocan.jp/vz/workshop/mtool.html#csegmap  (CSEGMAP.DEF)
…で確認してみてください。（ぱっと見で，この問題は当たらなさそう。）

- aja - さんのマクロは，御本人のサイトへのリンクになっていたので，
サイトの閉鎖にともなってリンクが切れてしまいました。
確認してみて復旧につとめます。
（元データが巨大なので，応急処置しかできないかも。）

なんか、一時的にCSSを変更していたりしていました？

> やはり，お仕事は相変わらず大変みたいですね。

とりあえず、やらないと誰かに迷惑がかかる系の仕事は今のところすべて終わらせた
ので、気は楽です。残っているのは自分の評価にかかわる系のものだけなので、むしろ
締め切り後でもいいかもしれない。厳密に言えば課長に迷惑がかかるかもしれないけど、
知ったことか。それに、そもそも締め切りが知らされていなかったりする。

席を譲られたことに関していえば、大きな荷物を持っていたりとか、自分でも辛くて
それがおもてに現れていることを自覚しているときに譲られたことはあります。
とはいえ、もう数年前になりますが。でも、今回は、そのいずれにも該当していない。
なので、純粋に外見の年齢だけで譲られたと想定。
あまりにも初体験のことなので、ちょっとだけ状況を詳しく書いときます。
席を譲ってくださった方は、見た目、女子中学生。
年配の女性と並んで座って会話されていたのですよ。こちらの女性は見た目は５０代
後半か６０代前半くらい。ただ、私、女性を見る目がないことは自覚しています。
中学生に見えたのが実はちょっと小柄な高校生とか大柄な小学生ということもある
かもしれない。年配の女性のほうも、若い女性の母親か祖母あたりの年代だと思う
けど、どちらかは不明。車内の騒音で会話はあまり聞き取れず。楽しそうな風情だった
けど。ただ、この女の子、親の教育がいいのだろうということは容易に想起できます。
席を譲った後、この女の子は年配の女性の前に立って、楽しそうに会話を続けて
いました。
電車を降りたのは私のほうが先でしたが、あまり礼を重ねるのもアレかなと思い、
席を立ったときは会釈だけ済ませてしまいましたが、もうちょっとはっきり礼を言った
ほうがよかったかなぁ。


ところで私、デフォルト値ってVZ.DEFなんかで設定していないときに自動で設定される
値だと思っていたのですが、なんか勘違いしているかもしれません。
ためしに、WinXP常用環境のVZ.DEFとVZFL.DEFの「* Oオプション」の部分にcols.defを
使って全て行頭セミコロンで潰してみたものを使って常駐させてみましたが、とりあえず
エラーは出ずに常駐。ただ、この状態だと、マクロバッファが足りなくてOPT_LST.DEFも
起動できない。ということで「* E その他」の１番にVZFLとOPT_LSTを登録して起動させた
結果が以下のとおり。

---------- option.lst --------------------- 2022/05/03 (Tue) 18:52 --------
 DOSV  VZt  z+  St-  vw-  zk-
 
 Bt64     Bf2048   Bo32768  EM246    XM12416  Bm1026   Ba2      Hs256
 Hf128    Hx128    Ha64     Hw64     Bl1024   Bc256    Bu64     Bv1024
 
 SW1   TC10  WD80  We80  PG0   RS3   Ta8   Tb4   Ci4   Co7   WL0
 LC25  VM0   CA0   Sr0   Qt0   Qc0   Qw0   RM0
 
 An$07  Ac$05  Al$05  Ah$0D  As$0F  Ao$0E  Ar$0D  Am$06  Ab$05  At$05
 Aw$07  Af$06  Ai$0F  Aj$06  Ak$06  Ag$01  Au$06  Ae$01  Ay$00  vs$00
 vy$00  Ad$07
 
 Dl-  Dc+  Dt-  De+  Ds-  Db-  Dn-  Du-  Df-  Dp-  Dh-  Dg-  Dr+  Dj-  Dv-
 
 FM0     FW256   FV1     FS0     FO3
 
 Ei+  Es+  Ez+  Eb+  Eu-  Et+  Eh-  Ew+  Ec-  Ex-  En-  Ev-  Ek-  Ea-  RO-
 Ej-  Eo-  El-
 
 RX-  ZH-  Sx+  Se+  Sd+  Sk-  Sy-  YN-  Sn+  Sq-  FP+  FR-  FK-  FQ-  Sz-
 
 Sc-  Nd-  Vb-  Sv-  Tv-  YM-  CH-  Hp-  Hp-  lf-  Is-  Da-  Nf-
 Ce0      ml   mc   Ys$0F  Yo$0D  Yr$0E
---------- End of option.lst ----------------------------------------------

これが高橋版のデフォルト値ということだと思うのですが、なんか、デフォルト値の
取得方法を間違えていますでしょうか。この方法ではこの部分がまずい、ということを
ご教示いただけると幸いです。
 

insfile.def を見てみると、ループ中に #B を使っていません。
としきさんが、#B が怪しいとにらんでいるのは正解かもと思い
製品版の [ESC]I マクロを修正してみました。


= esci.def =

製品版の [ESC]I マクロのバグ回避は、#B を使わないこと

*m


8  [ESC]I @I "I カーソル位置へ挿入"
	?. (mr==$80)?{ &m(36) . }
	&m("カーソル位置へファイルを読み込みます")
	n=wn, c=wc,
;	#R
	#R #m					;★ 直接ファイラーへ
:A	(s)?{ &c >A }
	(wc==c)? >Z
	mr=-1,
	&s
	#W &#T(n)
:B	#W &#T(c+1)
	#b #_ (ct)?{ #> #m #x }
;	#b #_ (ct|lh)?{ #> #m }		; #x は不要  T.Tanomura 94/01/05 15:48
:C
;	#y (mb)?{ #W #< #i (ek)?? #B #W >C }
	#y (mb)??>D				;★ ブロックでなければループを抜ける
	#W #< ek[+, #i ek], #W >C		;★ #B を使わない
:D	#C &#T(n)
	#< #i (ek)?? #B
	(wc>c)? >B
 	&d
:Z	&m("")

*


これで、今まで VTDOS153 で異常が出ていたファイルも正常に処理出来ました。
サイレントのままでも、試した全てのVZで問題なく動作しました。

結論として、#B にはバグがあるということですね。
そのバグは、VTDOS や NTVDM で出やすいようだというのが今の状況です。

> めざらさんのマクロ　
> t.def　　　　最初の一回は正常に動作したようです。
> その後は、内容が入れ替わっていたり、テンポラリファイルエラーになったり

これは私の手持ちの生ログだけで起こるのですが
そういえば、めざらさんは

> これは #B を使っていない

と言っていましたね。
何故異常動作するのか、色々試してみました。
その結果

;	#k (mb)?{ #W #< #i #W >b } #C
	#y (mb)?{ #W #< #i #W >b } #C

このように、#k を #y に変えてみたら、正常動作しました。

うーん、何が違うんだろう？
コピーするための一時スタック確保の関係？
64kの境界付近でカーソル位置ポインタを算出しまちがえる？
あと、VTDOS だけで起こるのか、XPで試してみないと分かりませんね。

引用元：nifty:FGALDC/mes/15/07629
「新 insfile.def」 1997/09/13 17:17

======== insfile.def ======== by I.kamimura

#if 0

【カーソル位置へ挿入】

　■機能
　　●挿入ファイル数にはオープン可能なテキスト数（TC）の制限はありません。
　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
　　●挿入した全ブロックを１ブロックとして再現できます。
　　●挿入後のカーソル位置（ブロックの先頭／最後）はオプション Ek に依存
      します。
　　●文字境界ファイル（ファイルの最終行が尻切れ）に対応。ただし、文字境
      界ファイルと行境界ファイルを混在して挿入すると、順序が乱れます。

　■テクニカルノート
　　●&Fl によるファイラー選択では &Fi 不要？
　　●&Fl によるファイラー選択では 交換可能なドライブ （ＦＤなど）でもマ
      ークがクリアされない。

#endif

* M
8  [ESC]I @I "I カーソル位置へ挿入"
        ?.
        (mr==$80)? { &m(36). }          ;「変更できません」
        (wc==tc)? { &m(6). }            ;「オープンできません」
        #M &m("カーソル位置へファイルを読み込みます")
        n=wn,
        &Fl(fl+34) &Cr (r)?.
        &s i-,
:A      &Fg(pr,1) &m(pr)
        mx[+, sn[+, pf[=pr, #R #e #m pf], sn], mx],
        (s)? { #[ #[ >A }
        #W &#T(n) #W
        &60 i++,
        #C &#T(n) &Fn (r)? >A
:Z      mb-, #b #U (ek)? #B #b
        &d #] &m(" %d ファイル挿入しました",i)

60:     ;---裏窓へファイル全体をコピー---
        #^ #< #b #_ (ct)? #>
:A      (mb)??.
        &m(" %s : %05u --> %s : %05u",wa+$92,wa..5,wb+$92,wb..5)
        #y (s==4)? 'y' #W ek[+, #i ek], #W >A

*
======== End of insfile.def ========