konnoさん

>> c:\0etxt\asm\tbook\masttasm.txt
>> c:\0etxt2\asm\tbook\masttasm.txt
>> 　の違いが分からん！　と思ったのでした。
>> 　で、今頃おもいだしましたが、これを実現するマクロを書いたのだった

>そ、それ欲しいです。是非アップしてください。m(__)m
>私も本当はそういうフルパス表示をやりたかったのです。

　捨ててはいないと思いますので、探してはみます。
　ただ、誤解してそうなので、ちょっとだけ書きますね。

　これ、Ｖｚマクロですよ。Ｖｚ本体の話ではなく。で、編集画面で
表裏のファイルのフルパス・ファイル名を取得して、メニューの中に表示
するだけです。こんなのkonnoさんだったら、１０分で書けるでしょう？
　僕は、いま書けと言われたら、３０分かかると思うけど。（注１）

　あ、もちろん、ＳＦＮオンリーですよ。普通にファイル名取得する
だけですから。wa+146からもってくるだけ。ＬＦＮや空白入りとか、
僕のＶｚ世界には存在しないのだもの。というか、排除しているの
ですから。

　いちおう状況も説明しますね。
　上のファイル名（２つのファイル）は、根っこのディレクトリ名が
違うだけで、以下はまったく同一なのです。こうなると、

c:\0etxt\
c:\0etxt2\

　の部分が切られてＶｚのステータスバーに表示されると、どっちがどっちだか
分からない、ということになりますね。
　（ \0etxt2 のほうは、バックアップです）（注２）

　この（元の話題に戻って−−何が元だか？−−）話＝ステータスバーに
おけるファイル名表示の長さの話は、かならず、ここの掲示板でしたことが
あるはずです。そこで、そうかあ、ステータスバーを全部自由に使えるわけ
ではないのか、じゃマクロでやろう、と思って書いたはずです。
　マクロをここで発表したりはしなかったと思うけど。

　仕様をかためて、konnoさん、たまには低レベルマクロでも、実用的に
おいしい、というのを書いてみましょう！
　ＬＦＮとか空白 in filename とかだと、、、知らない、、、。
　空白は知らないけど、ＬＦＮは環境によっては、ファンクションコールで
見れそうな気がする、、、。

　電卓の話は、次回に。
　もっと深い話があったんだけど……。これは次々回。（注２）に繋がる。

　LibreOffice Calc、見てみますね。ありがとうございます！
　ふつうパソコンのソフトでやるだろう、とは思いました。
　ボク、物理的世界のほうが好きなんですけどね。
　物理的に独立した時計とか温度計とか電卓とか……。

（注１）　&m("%s",wa+146) これで表ファイルのフルパス表示。メッセージ
ライン版。

　あはははは。何をやってるんだ？？！！
　以下がわりと最近のお気に入り。

=== ps_in by B ===;
put chrs/strings into PS 26 times. bottom up type
 for INDEX of etexts.

* M
50 ^^ "ps_in"

i=26,
:a
	(i)??.
	#b #>
	#G mb-, #<
	#e i--, >a

*

\x ^A		;26th line from bottom
\x ^B
...
\x ^Z		;cursor here / start

　Yeah!  Wild & Heavy !!!  Jitsuyo Only !!!

　全体につまらない話で、申し訳ありません。

konnoさん

　見つけました。Ｙメニューです。アルツ予防（なつかひ）に、そのまま
貼っておきます。
　ＬＦＮ対応は、がんばってください。

　ち、ちがう、電卓の話なんだ、、、。
　和生さ〜〜〜ん。


=== Twofname.def ===;a lot from 和生氏, 96/7/17, <nifty:FGALPK/MES/14/18037>
#if0
フルパスファイル名と行番号をＹメニューで表示（機能としてはそれだけ）。
分割画面では、上と左窓の情報は常に上の行に表示。
#endif

*Macro
50 ^^ "Twofname"
	?. w-,				;<w>
	(wt%2)? {#W w+,}		;wt 02 3 4 5 wsplit
	(wt)? {i=2, &00 &01 (0)} 	;<i> u l L R
	    ? {i=1, &00}
	(w)? #W

	#]				;lbuf -> textbuf
;	m=n=pn..-26,			;<m><n>lbuf, ダミーマクロを作る
	m=n=pq..148,			;<m><n>lbuf, ダミーマクロを作る
	&02 &Sm(m,r,20)          	;m からメニュー幅まで
	m.16=l+4,                  	;<l>メニュー幅(f)
	m.17=i,                  	;アイテム数 (1 or 2)
	k=(i+1)*2, 			;<k>アイテム種用空白
	m..7=(k+4)+b, 		    	;<b>m..7 メニューサイズ(c0)▲ +8?
	m+=20,
	(k){m.0-,m++,}     		;アイテム種用空白
	n.19=-1,			;カーソルなし
	&Sc(m," FULL PATH FILENAMES ") 	;タイトル
	m=r+1,
	&Sc(m,pa)              		;タイトルの後にアイテム
	(i>1)? {m=r+1, &Sc(m,pr)}	;▲
;	rr[=pn..-26, &* rr],     	;実行
	rr[=pq..148, &* rr],     	;実行

00:; -- upper/left -> pa
        &Sp(pa,"%s -%u",wa+146,wa.10)	;wa.10 == ln
        &Sl(pa) &Sn(pa) l=b=r+1,		;<b>size（文字列長＋null１つ）
01:; -- lower/right -> pr
        &Sp(pr,"%s -%u",wb+146,wb.10)
	&Sl(pr) &Sn(pr) b+=r+1, (r>l)? l=r,

02:; -- ymenu header
	(3+$)."$(1,a,0,ff,ff,0)!01(r)$(0,e1,84,0,f,2)";0,0
;                                   　      ^^^^ ^ ^★  ここはマクロ中で書換

*
;                                    *      si,ze,width,items,0,-1

                                     *ここまで10bytes


----- 和生氏,96/7/17, <nifty:FGALPK/MES/14/18037> -----
=T
*m
80^\""?.
      &01 m=pn..-27,                                  ;ダミーマクロを作る
      &02 &Sm(m,r,20)                                 ;m からメニュー幅まで
      m.16=l,                                         ;長い ps をメニュー幅(f)
      m.17=i,                                         ;ps の数をアイテム数 (4)
      k=i++*2, m..7=j+k+8,                            ;m..7 メニューサイズ(c0)
      m+=20,(k){m.0-,m++,}                            ;アイテム種用空白
      &Sc(m,"PS") m=r+1,                              ;タイトル
      &Sm(m,ps,j)                                     ;タイトルの後にアイテム
      rr[=pn..-27, &* rr],                            ;実行
1:    j=ps,i-,l-,                                     ;ps を測る
:a    &Sn(j)(l<r)?l=r,                                ;一番長い ps の文字列
      (r)?{j+=r++,i++,>a}                             ;文字列がいくつあるか
      j=j-ps,                                         ;全体の長さ
2:    (3+$)."$(1,a,0,ff,ff,0)!01(r)$(0,e1,c0,0,f,4)";0,0
;                                         ^^^^ ^ ^★  ここはマクロ中で書換
*

　【from mes14_#11710 by Yushi】
》  ローカルマクロ 02: で、定義した文字列を分解して説明すると
》  $(1)          グローバルマクロ１番を表す。
》  $(a,0)        グローバルマクロのサイズを表す。
》                a,0 で 10 bytes を表す。次のキー定義から、グローバルマクロ終
》                了の $(0) まで、数えたら 10 bytes
》  $(ff,ff)      グローバルマクロの起動キー２つ分
》                $ff は未設定という意味
》  $(0)          マクロタイトル
》                文字列＋ $(0) なのですが、タイトルを省略した形
》  !01           メニューの１番を呼びだす
》                サイズ情報に基づいて次の項目から順にサーチしていく
》                次を メニュー１番のように細工すれば、ちゃんと騙されてくれる
》  (r)           返り値を内部レジスタに入れる。
》                親マクロに返った時、内部レジスタの値が、r に代入されるから
》                こうしておかないと、親マクロに返った時 r が破壊されてしまう
》  $(0)          グローバルマクロの終了を表す . と同じ意味
》                このおかげで、親マクロに帰っていく
》  $(e1)         メニュー１番を表す数値
》  $(c0,0)       メニューのサイズ 192 bytes を表す。                      ★
》                用意したバッファの全体が 256 bytes なので、適当に設定
》  $(f)          メニューの横幅 16                                        ★
》  $(4)          アイテム数                                               ★
》  ; 0,0         このマクロを読み込むと、文字列の終端 " が $(0) になり、
》                その後に、マクロの終了を表す $(0) が付くので、わざわざ定義
》                しない。2 bytes お得。合わせて 20 bytes
》  この文字列の理解が重要。
》
》  &z 関数を使うと、読み込んだマクロの先頭が rr に代入される。&* は、ポインタ
》  rr からマクロを実行して、帰ってくる。それなら、rr にマクロバッファとは、ま
》  るで違うが、 マクロにしか見えない場所を代入して、&* で呼び出したらどうなる
》  か。ちゃんと実行してくれました。(^_^)

#R
格納されたメニューヘッダ

[E1][1F]･[0F][02]･･････==MENU==･menu1･menu2･･････
  |   +-+ |   |  2parameters+(items+1)*2
  |    |  |   + アイテム数
  |    |  +横幅
  |    +バイト数
  +メニュー番号 ($E0+n)

　原理に、実際的に迫ってます。
　もちろん、これが面白い課題としてうかんだのは、まったくの偶然です。
　でも、１バイトに色んな情報が格納してある、なんて、Ｖｚではざらですよね。
　syoさんが、ワケワカだ！　ケチるな！　と言っていたのが懐かしい。
ありがとうございます、ご同輩さま。今もお友だちです。

　ま、とにかく、そうそう、窓割りモードって（あんまり使わないけど）内部的に
ワケワカなんだよなぁ、と思い、「１バイトは８ビットです。0,1,2,4,8 です」
とか、おお、当然ツナガッテル、です。

	(wt%2)? {#W w+,}		;wt 02 3 4 5 wsplit

;3 = 1+2
;5 = 1+4	たぶん。

c:\vzsrc\cmos\main.asm      498:GDATA wsplit0,	db,	0
c:\vzsrc\cmos\open.asm     1635:		mov	al,[bp].wsplit
c:\vzsrc\cmos\text.asm       34:	extrn	wsplit0		:byte
c:\vzsrc\cmos\text.asm     1001:		mov	wsplit0,al
c:\vzsrc\cmos\vz.inc      817:wsplit		db	?		; window split mode

　ちょっとずつ分かっていくのよ。

　ふと思い出しました。
　これでいけるでしょう！　sin, cos, tan とか、ぜったい要らないのですが。

　で、これのアーカイブファイルを見つけられる人はいませんでしょうか。
　僕の手元には、ソースがないのです。ソースがあったら、どうということでも
ないのですが。ベクタにはないみたい、、、。

　あるいは、元々のアーカイブ名が分かる方？　そしたら、あそこで tosfind
できるかも？


----------------------------------------------------------------------------
本ソフトは，I/O '91年２月号掲載版の修正版です．（作者）
　　　　　　　　　　　　　　　　　 ＣＡＬ　　　　　　　　　　　　　　 ｴｲﾄ ﾚﾝ
　　　　　　　　　　　　　　　　　（カル）　　　　　　　　　　　　　○英斗恋
                                                      (hyama@telestar.or.jp)
　最近，電卓ソフトがおまけでついてくるソフトがあります．それはそれで便利なの
ですが，どれもこれも（私の知る限り），普通の電卓の操作性を遵守したものばかり
です．
このようなソフトでは，
　　+---------------+
　　| “(1+2)*3+5” |
　　+---------------+
という，カッコがついた計算ができません．そこで，簡単な電卓を作ってみました．
類似のソフトは既に出回っているでしょうが，勘弁してください．

----------------------------------------------------------------------------

　もちろん、１６進の計算ができると、cal.txt の下のほうに記述がありました。

　かっこいいよね、「英斗恋」。

> 本ソフトは，I/O '91年２月号掲載版の修正版です．（作者）
> 　　　　　　　　　　　　　　　　　 ＣＡＬ　　　　　　　　　　　　　　 ｴｲﾄ ﾚﾝ
> 　　　　　　　　　　　　　　　　　（カル）　　　　　　　　　　　　　○英斗恋
>                                                       (hyama@telestar.or.jp)

えーと、これでしょうか、「英斗恋 電卓」でググりました。

CAL/CAL_EXP [Open Source 1]
　DOS汎用の電卓2種.全ソース付きです
https://www.vector.co.jp/vpack/browse/person/an003474.html