今日のテーマ   日々改造 (^_^;)         
[記事リスト(ツリー表示)]  [ 返信 ]   [新着記事] [最新50] [ワード検索] [過去ログ]

タイトル 十分割ジャンプ JUMP10.def Ver0.5
投稿日: 2020/11/09(月) 21:15
投稿者konno
 番 号 9911    9864 番 konno さんへのコメント

現在考えられる範囲ではモアベターなジャンプマクロが完成しましたのでアップします。
マクロの改造ポイントの説明は、#9910 にあります。
日替わりじゃぁ。(^^;

Ver0.5  2020-11-09	oVZで 11.3M まで使用可能に、全てのVZに対応
VZEXはステータスラインのアドレスが全然違うようなので分岐させています。


=== JUMP10.def ===
;	 H岡,DANNY,和生,めざら,konno 100/10分割ジャンプ,行番号付
;元ネタ 17079/17177  H岡  その3:ファイル十分割地点へジャンプ ;(15)  00/10/31
;どんな大きなファイルでも、十分の一刻みで、正確に、ファイル内のお望みの地点へ着地してくれます。
;※ 高橋版系以外のVZ は、実用ファイルサイズは11.3M までです。それ以上は不定
;[ESC]+0 なら1〜99入力 百分割ジャンプ/100 以上なら行番号ジャンプ
;使用している汎用変数:n,p,i		Ver0.5  2020-11-09

*M

80 [ESC]0 "きっちり十分割ジャンプ:巨大ファイル対応版"
	?.
	n=r,					;[ESC]+数字を n に
	(n==0)?>J				;[ESC]+0 なら1〜99入力へ
	n=n*10, pw.1='0', >T			;1〜9は十分割ジャンプ
:J						;[ESC]+0 なら1〜99入力 百分割ジャンプ
	&g("",-9) n=r, &Cr (n==-1)?.			;-9:Line No. /[ESC]etc.
	&Sn(pw)(r>2)?{ &#J(n) >q .}		;100 以上なら行番号ジャンプ 65534行まで
	n=pw.0&$f*10+pw.1&$f,			;n:%
	(pw.1)??pw.1='0',			;着地微調整
:T	p126+wa, #]				;p:mark0,wa+126
#if tVZ
	&Tz(wa) p..0=ax, p..1=dx,		;tVZファイルサイズ DANNY
#else						;oVZは11Mまで
	&Im(p,0)				;pをクリア
	&s #_ #> &Le(p,wa+82)			;wa+82 + cp-2 = ファイルサイズ
	&Ia(p,cp-2) ax=p..0,dx=p..1,		;ロング加算 wa+82=head lptr
#endif
	i10,(dx==0&&ax<$7000)?i1, 		;ファイルサイズで倍率調整
	&Id(p,100*i) &Im(p,n*i) &Ia(p,r*n/100)	;r:mod revise
	i-, #U (ax+$8000<$80c8 && dx==0)?>q 	;200 byte
	(pc..1=='XE')?{#d >q }			;VZEXはstatusの位置が違う?
	ds[+, #] i-,				;ステータス画面更新
	p10+pq..133,				;%の手前の数字位置
	(p.1=='%')?p9+pq..133,			;VZTの場合
	(100){ #d i++, (r)?{} (pw.1-p.1)??{} }	;一致するまでカーソル進める
	ds],
:q	&d &m("%s Jump to %d%",pc,n) ;&w(40)
;	&m("") 
	.
*

Ver0.5  2020-11-09	oVZで 11.3M まで使用可能に、全てのVZに対応
Ver0.4  2020-11-08	oVZで 3.2M まで使用可能に、H岡さんと和生さんとめざらさんとDANNYさんのマクロを合体。(^^;
Ver0.3  2020-10-21	32767行以上に対応?  (^^;
Ver0.2  		まぼろし〜? (^^;
Ver0.1  2006-11-09	H岡さんと和生さんとDANNYさんのマクロを泥縄合体。(^^;

    - No.9911 一括表示へ   -   コメント元:9864 一括表示へ  -    [ 返信 ]    [引用無し] pre


- 関連一覧ツリー (先頭の番号をクリックするとツリー全体を一括表示します)
9864.十分割ジャンプマクロの更新 - konno 20/10/21-22:51
  ┣9870.Re: 十分割ジャンプマクロの更新 - としき 20/10/29-19:28
  ┣9873.Re^2: 十分割ジャンプマクロの更新 - めざら 20/11/01-18:53
  ┣9878.Re^3: 十分割ジャンプマクロの更新 - konno 20/11/03-01:42
  ┗9879.Re^4: 十分割ジャンプマクロの更新 - めざら 20/11/03-07:36
   ┗9886.Re^5: 十分割ジャンプマクロの更新 - konno 20/11/04-00:57
    ┗9895.Re^6: 十分割ジャンプマクロの更新 - めざら 20/11/06-22:26
     ┗9896.Re^7: 十分割ジャンプ、ロング計算マクロ - konno 20/11/07-00:46
      ┗9898.Re^8: 十分割ジャンプ、ロング計算マクロ - めざら 20/11/07-08:58
       ┣9902.Re^9: 十分割ジャンプ、ロング計算マクロ - konno 20/11/07-20:56
       ┗9906.十分割ジャンプの完成形のヒントは原点にあった - konno 20/11/08-15:56
        ┗9910.Re: 十分割ジャンプ、1/1000 にしてみたら - konno 20/11/09-20:15
  ┗9881.Re^3: 十分割ジャンプマクロの更新 - としき 20/11/03-13:21
   ┗9885.Re^4: 十分割ジャンプマクロの更新 - めざら 20/11/03-16:05
    ┗9890.Re^5: 十分割ジャンプマクロの更新 - としき 20/11/04-23:29
     ┗9892.Re^6: 十分割ジャンプマクロの更新 - めざら 20/11/06-07:06
      ┗9894.Re^7: 十分割ジャンプマクロの更新 - としき 20/11/06-19:44
       ┗9899.Re^8: 十分割ジャンプマクロの更新 - めざら 20/11/07-09:19
        ┣9901.Re^9: 十分割ジャンプマクロの更新 - としき 20/11/07-11:35
  ┗9876.Re^2: 十分割ジャンプマクロの更新 - konno 20/11/03-01:12
   ┗9882.Re^3: 十分割ジャンプマクロの更新 - としき 20/11/03-13:21
    ┗9891.Re^4: 十分割ジャンプマクロに適した式は? - konno 20/11/06-00:07
     ┗9893.Re^5: 十分割ジャンプマクロに適した式は? - としき 20/11/06-19:44
      ┗9897.Re^6: 十分割ジャンプマクロに適した式は? - konno 20/11/07-01:12
       ┗9900.Re^7: 十分割ジャンプマクロに適した式は? - としき 20/11/07-11:35
        ┗9903.Re^8: 十分割ジャンプマクロに適した式は? - としき 20/11/07-22:46
         ┣9904.Re^9: 十分割ジャンプマクロに適した式は? - konno 20/11/07-23:14
         ┗9908.Re^10: 十分割ジャンプマクロに適した式は? - としき 20/11/08-23:59
          ┗9909.Re^11: 十分割ジャンプマクロに適した式は? - konno 20/11/09-01:41
           ┗9921.Re^12: 十分割ジャンプマクロに適した式は? - としき 20/11/19-23:15
            ┗9923.Re^13: それぞれの事情 - konno 20/11/20-00:12
             ┗9925.Re^14: それぞれの事情 - としき 20/11/20-01:06
              ┗9926.Re^15: それぞれの事情 - konno 20/11/22-23:48
         ┗9905.Re^9: 十分割ジャンプマクロに適した式は? - めざら 20/11/07-23:40
  ┗9907.十分割ジャンプマクロ JUMP10.def Ver0.4 - konno 20/11/08-16:04
  ┗9911.十分割ジャンプ JUMP10.def Ver0.5 - konno 20/11/09-21:15

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)   [引用無し]
おなまえ 
Eメール 
タイトル 
メッセージ auto soft pre(図表、プログラム) ※折り返さずに改行を入れてね
 参照先 
 暗証キー (英数字で8文字以内)
 プレビュー          

- 以下のフォームから自分の投稿記事を修正・削除することができます -
   処理   記事No   暗証キー
    [ページトップへ] [管理用]