[HOME]  [リストへもどる]  [全部表示]  [最新100]  [最新50]   [新着40] 
新着記事 40

72Tra_TAG.def 改 V04 投稿者:konno   2018/12/04(火) 23:12
  66 番 konno さんへのコメント

=== Tra_TAG.def v16 ===

;					 V16k04	konno改
;2018-10-04 03 ディレクトリ&LFN不具合対応  
;2018-12-04 04 バッファ溢れ不具合対策 コンソールのみ

* M
;60 ^\ "TAG"
60  "TAG"
        ?.
;------- ファイラー移行拡張子 (%A) ---------------------------------------
	a".com .exe .dic .obj .lib .lzh .jpg .gif .ico .zip .pif .lnk",
;------- start コマンド拡張子 (%B) ---------------------------------------
	b".xls .ppt .mdb",
;------- メニュー選択拡張子  (%C) ---------------------------------------
;	c".htm .pas",
	c".htm .pas .asm .inc",
;------- m=0:wgrep, m=1:ygrep, (%D) --------------------------------------
	m0,	;m1,
;-------------------------------------------------------------------------


	#] #? #> #< &x(255)		;バッファ溢れ対策 行の長さ255以上?
	(cd!=$d&&wn==0)?{&x(254)#m#e}#<	;コンソールなら改行挿入

	#] #? (r)?. wa..19.2-,		;行を lfb に取り込む
	&So(wa..18,":\") (r)??{		;フルパスが書いてない
		&Ss(pq..148+2) si=r,		;lbuf
		di=pq..134+100, i-, i[, &> i],	;tmpbuf
		(r!=-1)?{ r=si+1, >C }	;行頭からもLFNが取得出来ないときは
		 r=si+1, >C 		;★LFNが取得出来なくても進む
		dn[-, #60 dn],		;通常の #60 
		&m("0 ng %s",di)	;▼
		>C			;★LFNが取得出来なくても進む
;		f"",(r)?>61 >B		;取得できなければ LZH 処理
	}

:A	si=r-1, di=pq..134+100, i3,	;フルパス部分を di へ取り出し
:C
;	&m("-0 ng %s",di)	;▼
;&w(120)
	di[, &> di],
	f=di, ;(r==-1)?{ #> #d >E }
	r=si+i,				;-->r=lbf内のフルパス末尾adr
	&09 				;-->pa=拡張行番号情報
	&m("09 i=%d %s",i,wa+146)
;	&t &w(120)
	ax$7160, cx+, si=di, di=pq..149,
;        &i($21) (ax==$7100 || r)?di=si,
        &i($21) (ax==$7100)?di=si,

	&s 
	#k (w=wn)?#X mr255,#i mb+,		;起動行を console に貼り付けて
	ps[=pr, #56 "$"" #m "" #m 'Y'
	#56 &?("\i %s",si) #m		;ファイル名部分をSFNに置換
	&?("%s ",di) #m 'Y' ps], mb-,
	#60 e=r,			;TAG情報取得して
	ux[+, #y ux], (w)?#X &d		;後始末
	#> #d
	(e)?{				;ディレクトリ対応
		&06 (r)? >E
		&m("1 ng %s",pf)	;▼
;		f"",(r)?>61 >B		;取得できなければ LZH 処理
		.
	}

:B	;- 拡張子判断 -
	&Sy(pf) (r&2)?{
		:a &So(a,cx) (r)?{	;ファイラー移行拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&03 .
			} a=e+1, >a
		}
		:b &So(b,cx) (r)?{	; start コマンド拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&07 .
			} b=e+1, >b
		}
		:c &So(c,cx) (r)?{	;メニュー選択拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&02 .
			} c=e+1, >c
		}
	}
	&04				;--- テキストとしてオープン ---
		&m("2 ok %s",wa+146)	;●
.


:E	;- オープン出来ない -
	&m("%s オープンできません",f) &b(2)

00:	;--- LFN対応 #60 ----
	;<-- r=0:Exists, -1:non,

	si[,
	&Sc(di,si,i)
 :A 	(si.i=='"')?{ si++, >A }
; 	&f(si.i,"$(9,d)$"(*<>?:/| =[];+,")	;
 	&f(si.i,"$(9,d)$"(*<>?:| =;+,")		; / ディレクトリ&LFN対応
	e=r, (si.i)??e-,
	(e>=0)?{			;ファイル不可文字なら一旦存在判定
		&> (r)??>Z		;存在すればr=0を返す
	}
	(e==255)?{ di.i-, (-1) >Z }	;存在しなければr=-1を返す
	di.i=si.i, i++, >A
:Z	si],
	&m("00 i=%d %70s",i,wa+146)
	;&w(60)

01:	;--- ファイル存在チェック ---
	;<-- r=0:Exists,
	;    e=255:最終判定,

	(e<11)?e255,			;LFN でも使えない文字なら最終判定
        di.i-,
	&Sn(di) r--, 
	(r>=254)?{&m("%d",r)&t}
	(di.r=='\')?di.r=0,
	ax$7143, bx-, dx=di,
 :F	&i($21)				;ファイル存在チェック
	(ax==$7100)?{			;LFN に対応してなければ最終判定
		ax$4300, e255, >F
	}
        (r)
	&m("01 i=%d %70s",i,wa+146)
	 ;&w(60)

02:	;--- メニュー処理 ---
	;--> pf

	&m("02 %70s",wa+146)
	;&w(120)
	!01
	(r==0)?{	;start
		&07
		.
	}
	(r==1)?{	;filer
		&03
		.
	}
	(r==2)?{	;open
		&04
		.
	}

03:	;--- ファイラーへ移行 ---
	;--> pf,bx

	#O bx.0[=0, &?("%s",pf) #m bx.0=0],
	&Sc(pn..-38,pf) #U 

04:	;--- テキストとしてオープン ---
	;--> pf

	r=pf, &08 (r==1)?{
:S	;- メニュー処理その2 -
		&m("maybe binary : %60s",pf)
		!01
		(r==0)?{	;start
			&07
			.
		}
		(r==1)?{	;filer
			&03
			.
		}
		(r==2)?{	;open
			>O
		}
		.
	}
 :O	&Sf(pf,' ') (r)?{ p=r, si=p+2, }
		?{ &Sn(pf) si=p=pf+r, } &>
	q=pf, pf[=pr,
	p.0[=0, #O &?("%s",q) p.0=0], #m
	pf],
	(s)?{ &b(2) . }

	(pa.0==1)?{
		&m("ただいまジャンプ中 %s(->%s)",wa+146,pa+1)
; &w(60)
;		#O &?("%s ->%s",wa+146,pa+1) #m
		#O &?("%s ->%s",pf,pa+1) #m
		&d
		.
	}

	&m("ただいまジャンプ中 %s (%lu行)",wa+146,ax,dx)
; &w(60) &d
	#^ dn[-,
:L	;- long行番号へジャンプ -
	(dx)?{ dx--, &#J(-1)
        	(ln-0~)??{ #> #d >L } (0)
	}? &#J(ax)
	&m("") #? &d dn],

05:	;--- Long 値を取得 ---

	&i(3+$)."$
	$(33,C0,99,33,C9,BF,0A,00,8B,D8,AC,2C,30,3C,09,77)$
	$(0F,8A,C8,8B,C2,F7,E7,93,F7,E7,03,C1,13,D3,EB,E8)$
	$(8B,C3,C3)"

06:	;--- ディレクトリとしてオープン ---
	;--> di

	ax$4300, bx-, dx=di, &i($21)	;ファイル存在チェック
	(r)?{ (1) . }
	#O &?("%s",di) #m (0)

07:	;--- start コマンド ---
	;--> pf

	#E &?("Start %s",pf) #m #[

08:	;--- chk binary ---
	;--> r=ファイル名
	;<-- r=-1:non file, 1:binary

	ax[,bx[,cx[,dx[,di[,
	dx=r, ax$3d00, &i($21) (r)?{ (-1)>Z }	;open
	dx=pq..149, bx=ax, cx=250,
	ax$3f00, &i($21)			;read
	bx[, di=dx,cx=ax,
	&i("$(32,C0,F2,AE,F7,D9,C3)") (r)	;scan ZERO
	bx], ax$3E00, &i($21)			;close
 :Z	di],dx],cx],bx],ax],

09:	;--- 拡張行番号情報 ---
	;<--pa.0  db 0:normal, 1:cp, 2:env,
	;     .1  dd string

	p[=r+1,
	pa.0-,
	(p..0=='>-')?{
		pa.0=1, p+=1, i-,
		:a i++, r=p.i, &10 ?{ pa.i=p.i, >a }
		pa.i-,
	}
	(p..0=='-[')?pa.0=2,
	p],

10:	;--- 16進? ---
	(r)>!{
		1>h 2>h 3>h 4>h 5>h
		6>h 7>h 8>h 9>h 0>h
		A>h B>h C>h D>h E>h F>h
		a>h b>h c>h d>h e>h f>h
	}
	(0)
.:h	(1)

61 ^^ "LZH"
	(s)?.
	&s &#M(4) ky[,
	&20 f=r,			;-->f=検索文字
	(f)??{ &m("変数 m を正しく設定してください") >Z }
	mp[,ps[=pr,
	#F &?("%s",f) #m #r
	ps],mp],
	(r)?{ r-,>e }
	r=pq..149, &23			;-->r=行バッファ取得アドレス
	(r==-1)?{ r+, >e }
	&21 (r==-1)?{ r2, >e }
	p=r,				;-->p=圧縮ファイル名

	&#U(4)
	r=pq..149+121, &23
	(r==-1)?{ r+, >e }
	&22 (r==-1)?{ r3, >e }
	q=r, &Sn(q) l=q+r+1,		;-->q=ファイル名
	&Ss(l) l=r,			;   l=行数

	#E &?("miel -l -na %s +%s -ej -j%s",p,q,l) #m #[

 :Z	&#U(4) ky],&d
.
:e	;- エラー表示 -
	&#U(4) #> #d &#M(4)
	(r)>?{
		("タグ情報/書庫ファイル情報行が見つかりません")
		("カーソル行が取得できません")
		("書庫ファイル情報行の不備です( ^QP でジャンプ )")
		("タグファイル情報行の不備です")
	}
	&m("%d %s %s",r,mg..0,p)
	>Z

20:	;--- 書庫ファイル情報検索文字 ---

	r-,
	(m==0)?{ r"\i ------------------[", }
	(m==1)?{ r"\i /* 書庫ファイル ", }
	(r)

21:	;--- 書庫ファイル情報行を分析 ---
	;-->r=取得バッファ

	p[=r,
	(m==0)?{
		&SO(p," << ") (r)?p=r+4,
				?{ r=-1, >Z }
		&SO(p,"]") (r)?r.0-,
				?{ r=-1, >Z }
	}
	(m==1)?{
		&SO(p,"ル ") (r)?p=r+3,
				?{ r=-1, >Z }
		&SO(p," */") (r)?r.0-,
				?{ r=-1, >Z }
	}
	r=p,
 :Z	(r)
 	p],

22:	;--- タグファイル行を分析 ---
	;-->r=取得バッファ

	p[=r,
	&SO(p," ") (r)?r.0-,
			?{ r=-1, >Z }
	&SO(r+1,":") (r)?r.0-,
			?{ r=-1, >Z }
	r=p,
 :Z	(r)
 	p],

23:	;--- カーソル行の(論理)行頭から 120 文字を r へ取得 ---
	;-->r=取得バッファ
	;<--r=-1:Err,

	p[=r,
	(mr==$80)?{#? &s }?#28	;#28 は ViewMode では使えない
	(r)?{ r=-1, >Z }	;#? #28 --> r==-1:lbfが一杯などのエラー
	wa..19.2-,
;	&Sc(p,wa..18,120) r=p,
	&Sc(p,wa..18,200) r=p,
 :Z	(r)
 	p],


* P
01	"",7,3
	"Start"
	"Filer"
	"Open"

*
= End of Tra_TAG.def =

    - No.72 -   [コメント元:66]     [リストへもどる ]
pre

71IMASK3.DEF 投稿者:konno   2018/11/21(水) 21:14
  70 番 shadow さんへのコメント

=== IMASK3.DEF === IMASK+MASKMAN2+α+k

だんだんパスマスク by 榊原 知	ver 2.00 94/02/04
+MASKMAN2.DEF とらじ
+konno 若干改造 2018-11-20

* M
;89 \[CLR] "だんだんパスマスク"
50 ""
	>?{>A >B #98 >> .} >>
:A	#O
:B	(cm-70 && cm-71 && cm-76)?.
	#m >>

20:	;本体
;e=パスマスク書換マクロ
	(s-3)?.
	r=mg..2,
	(r>mg+16 && r..0==r..-4)?.
	&01 
	p..0='*',			;&Sc(p,"*")
	&Sy(fl+98) (r&2)?{		;拡張子あり?
		&Sy(cx) (r&1)??{&Sw(cx) &Sc(p+1,cx,r)}
					;パスマスクに拡張子設定
	}
	e"",&02
	i-,
:A	&26				;ディレクトリMask by とらじ
	&01 
;	&m("Mask %s",p)
	am[=$e0, &m("Mask %s",p) am],	;動作中はメッセージ色変更 ★★★
	&p &u(r) c=r,			;c=キー入力
	(s-3)?>B
	(ks&1 && (c>'0' && c<='9'))?{&s #L ss-, &o(c+16) >A}
					;ドライブ切り替え
	(ks&1 && (c>='A' && c<='Z'))?{r=c,rr=(pv+63)..7-3,&* >A}
					;ファイラーコマンド
	e-,
	(c)>!{				;機能キー処理
		:>B />B			;[:][\][/]そのまま
		\	(e">12")
		*	(e"#x'*'")	;[*]マスククリア
		.	(e">11")	;[.]拡張子
		(#[)	>Z		;[ESC]終了
		(#94)	(e">10")	;[BS]1字戻し
		(#h)	(e">10")	;[BS]1字戻し
;		(' ')	(c'?')		;[SPC]1字飛ばし
		?	(c'?')		;[?]1字飛ばし		★★★
		(' ')	>S		;[SPC] マーク		★★★
	}
	(e)??{				;一般キー処理
		(c>>8==1)?>B		;コマンドキー
		e"&o(c)",		;文字キー
	}
	&02 >A				;パスマスク
:S	#91 >A				;マーク			★★★##k
:B	&o(c) (sm==3)?>A		;そのまま

:Z	(s)??fg.1+, &m("")


;:Z
;	(s)?? {
;	fl.98-,					;[CR]&mask 解除 Takahashi
;;	fl...98-,				;
;	pc.375+,                		;pq.-7=1, pq.6~+, ;tchdir ; touch dir flag
;;	(fl.130)?&Sc(fl+34,fl+130)?fl.33-,	;[CR]&path 解除
;;	f=fl..0,				;
;;	(f.130)?&Sc(f+34,f+130)?f.33-,		;
;	}
;	&m("")



01:	p=5+$,.
	"$(40,0)$[64]"

02:	;パスマスク設定
;<---
;e=パスマスク加工マクロ
	pf[,&01 pf=p,		;ファイルヒストリー設定
	&s
	#P #e			;パスマスク
:A	(cd-'*')?{#s>A}
	&e(e)
	&d #m
	pf],

10:	;[BS]1字戻す
	(lx)??{#[ &d #94 #P "*" .}
	ux[+,
	#s
	(cd=='.')?#h
	#g
	ux],

11:	;[.] 拡張子マスク
	ux[+, #l ux],
	"*.*"

12:	;[\]ディレクトリ
	ux[+, #l ux],
	"\" #m
	#P "*"

26:	;--- ▽ファイラープール書き換え	-----
	; &i() 前後で、
	; ▼総ファイル数が同じなら(ファイラープールの書き換えがない)
	;   #- のみで再表示、違うなら fv^=4, &d #V で。
	; ▼ファイラーカーソル位置が 0 なら #^ でカーソル位置を補正。

	ax=fl, &> &i(r)
	(dx)?{ fv^=4, &d #V (0) }? #?
	(bx)??#^
26:	(3+$)."$
	$(8B,E8,FF,76,0C,33,D2,8B,5E,02,8B,F3,E8,6A,00,A8)$
	$(10,74,0D,3B,5E,06,73,08,E8,07,00,83,C3,16,EB,EA)$
	$(5B,C3,8B,F3,83,C6,09,8B,FD,83,C7,62,8A,05,E8,4F)$
	$(00,8A,E0,E8,43,00,E8,47,00,80,FC,00,74,16,80,FC)$
	$(2A,74,11,80,FC,3F,74,09,3A,C4,74,05,E8,06,00,EB)$
	$(03,47,EB,D8,C3,8B,FB,8B,F7,83,C6,16,8B,4E,06,2B)$
	$(CF,1E,06,8E,46,04,8E,5E,04,F3,A4,07,1F,42,FF,4E)$
	$(0E,83,6E,06,16,83,EB,16,C3,1E,8E,5E,04,AC,1F,C3)$
	$(3C,61,72,06,3C,7A,77,02,2C,20,C3)"
*
=== end of IMASK

    - No.71 -   [コメント元:70]     [リストへもどる ]
pre

70maskman2 投稿者:shadow   2018/11/18(日) 13:04
   コメント数 1

maskman2.lzhです。

<<< maskman2.lzh for MS-DOS ( use ish & lha ) [ 85 lines ] >>>
97--- 省略されました。---- [全文表示]
    - No.70 -             [リストへもどる ]
soft

69Re: testです 投稿者:konno   2018/10/23(火) 21:33
  68 番 konno さんへのコメント

> testです

testです
    - No.69 -   [コメント元:68]     [リストへもどる ]
soft

68testです 投稿者:konno   2018/10/23(火) 21:32
   コメント数 1

testです
    - No.68 -             [リストへもどる ]
soft

67他の板への番号リンクテストです 投稿者:konno   2018/10/06(土) 20:12
  36 番 konno さんへのコメント

他の板への番号リンクテストです。

#     #41 言#41 塀#41 の#41 #41 #1#41 ##41

#kyo #k3008 #kyo3008へ(今日のテーマ板)

#kyo 今日のテーマ#3008へ(今日のテーマ板)

#link #l0008  #link8へ (リンク板)

#test #t0041 #test41へ (テスト板)

#n   #n3000  野ざらし言#3000 野ざらし言3000番へ

#i   #i1000  板塀#1000へ       板塀1000番へ



    - No.67 -   [コメント元:36]     [リストへもどる ]
pre

66Tra_TAG.def 改 V02 投稿者:konno   2018/10/05(金) 01:02
  65 番 konno さんへのコメント    コメント数 1

=== Tra_TAG.def v16 ===
; V16k02		2018-10-04 konno

* M
;60 ^\ "TAG"
60 ^[F10] "TAG"
        ?.
;------- ファイラー移行拡張子 (%A) ---------------------------------------
	a".com .exe .dic .obj .lib .lzh .jpg .gif .ico .zip .pif .lnk",
;------- start コマンド拡張子 (%B) ---------------------------------------
	b".xls .ppt .mdb",
;------- メニュー選択拡張子  (%C) ---------------------------------------
;	c".htm .pas",
	c".htm .pas .asm .inc",
;------- m=0:wgrep, m=1:ygrep, (%D) --------------------------------------
	m0,	;m1,
;-------------------------------------------------------------------------
	#] #? (r)?. wa..19.2-,		;行を lfb に取り込む
	&So(wa..18,":\") (r)??{		;フルパスが書いてない
		&Ss(pq..148+2) si=r,
		di=pq..134+100, i-, i[, &> i],
		(r!=-1)?{ r=si+1, >C }	;行頭からもLFNが取得出来ないときは
;		 r=si+1, >C ;}		;★LFNが取得出来なくても進む
		dn[-, #60 dn],		;通常の #60 
		&m("0 ng %s",di)	;▼
		>C			;★LFNが取得出来なくても進む
		f"",(r)?>61 >B		;取得できなければ LZH 処理
	}

:A	si=r-1, di=pq..134+100, i3,	;フルパス部分を di へ取り出し
:C	di[, &> di],
	f=di, ;(r==-1)?{ #> #d >E }
	r=si+i,				;-->r=lbf内のフルパス末尾adr
	&09 				;-->pa=拡張行番号情報
	ax$7160, cx+, si=di, di=pq..149,
;        &i($21) (ax==$7100 || r)?di=si,
        &i($21) (ax==$7100)?di=si,

	&s 
	#k (w=wn)?#X mr255,#i mb+,		;起動行を console に貼り付けて
	ps[=pr, #56 "$"" #m "" #m 'Y'
	#56 &?("\i %s",si) #m		;ファイル名部分をSFNに置換
	&?("%s ",di) #m 'Y' ps], mb-,
	#60 e=r,			;TAG情報取得して
	ux[+, #y ux], (w)?#X &d		;後始末
	#> #d
	(e)?{				;ディレクトリ対応
		&06 (r)? >E
		&m("1 ng %s",pf)	;▼
;		f"",(r)?>61 >B		;取得できなければ LZH 処理
		.
	}

:B	;- 拡張子判断 -
	&Sy(pf) (r&2)?{
		:a &So(a,cx) (r)?{	;ファイラー移行拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&03 .
			} a=e+1, >a
		}
		:b &So(b,cx) (r)?{	; start コマンド拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&07 .
			} b=e+1, >b
		}
		:c &So(c,cx) (r)?{	;メニュー選択拡張子
			e=r, &Sn(cx)
			(e.r==32 || e.r==0)?{
				&02 .
			} c=e+1, >c
		}
	}
	&04				;--- テキストとしてオープン ---
		&m("2 ok %s",pf)	;●
.


:E	;- オープン出来ない -
	&m("%s オープンできません",f) &b(2)

00:	;--- LFN対応 #60 ----
	;<-- r=0:Exists, -1:non,

	si[,
	&Sc(di,si,i)
 :A 	(si.i=='"')?{ si++, >A }
; 	&f(si.i,"$(9,d)$"(*<>?:/| =[];+,")
 	&f(si.i,"$(9,d)$"(*<>?:| =;+,")
	e=r, (si.i)??e-,
	(e>=0)?{			;ファイル不可文字なら一旦存在判定
		&> (r)??>Z		;存在すればr=0を返す
	}
	(e==255)?{ di.i-, (-1) >Z }	;存在しなければr=-1を返す
	di.i=si.i, i++, >A
:Z	si],

01:	;--- ファイル存在チェック ---
	;<-- r=0:Exists,
	;    e=255:最終判定,

	(e<11)?e255,			;LFN でも使えない文字なら最終判定
        di.i-,
	&Sn(di) r--, (di.r=='\')?di.r=0,
	ax$7143, bx-, dx=di,
 :F	&i($21)				;ファイル存在チェック
	(ax==$7100)?{			;LFN に対応してなければ最終判定
		ax$4300, e255, >F
	}
        (r)

02:	;--- メニュー処理 ---
	;--> pf

	&m("%70s",pf)
	!01
	(r==0)?{	;start
		&07
		.
	}
	(r==1)?{	;filer
		&03
		.
	}
	(r==2)?{	;open
		&04
		.
	}

03:	;--- ファイラーへ移行 ---
	;--> pf,bx

	#O bx.0[=0, &?("%s",pf) #m bx.0=0],
	&Sc(pn..-38,pf) #U 

04:	;--- テキストとしてオープン ---
	;--> pf

	r=pf, &08 (r==1)?{
:S	;- メニュー処理その2 -
		&m("maybe binary : %60s",pf)
		!01
		(r==0)?{	;start
			&07
			.
		}
		(r==1)?{	;filer
			&03
			.
		}
		(r==2)?{	;open
			>O
		}
		.
	}
 :O	&Sf(pf,' ') (r)?{ p=r, si=p+2, }
		?{ &Sn(pf) si=p=pf+r, } &>
	q=pf, pf[=pr,
	p.0[=0, #O &?("%s",q) p.0=0], #m
	pf],
	(s)?{ &b(2) . }

	(pa.0==1)?{
		&m("ただいまジャンプ中(->%s)",pa+1)
		#O &?("%s ->%s",wa+146,pa+1) #m
		&d
		.
	}

	&m("ただいまジャンプ中(%lu行)",ax,dx)
	#^ dn[-,
:L	;- long行番号へジャンプ -
	(dx)?{ dx--, &#J(-1)
        	(ln-0~)??{ #> #d >L } (0)
	}? &#J(ax)
	&m("") #? &d dn],

05:	;--- Long 値を取得 ---

	&i(3+$)."$
	$(33,C0,99,33,C9,BF,0A,00,8B,D8,AC,2C,30,3C,09,77)$
	$(0F,8A,C8,8B,C2,F7,E7,93,F7,E7,03,C1,13,D3,EB,E8)$
	$(8B,C3,C3)"

06:	;--- ディレクトリとしてオープン ---
	;--> di

	ax$4300, bx-, dx=di, &i($21)	;ファイル存在チェック
	(r)?{ (1) . }
	#O &?("%s",di) #m (0)

07:	;--- start コマンド ---
	;--> pf

	#E &?("Start %s",pf) #m #[

08:	;--- chk binary ---
	;--> r=ファイル名
	;<-- r=-1:non file, 1:binary

	ax[,bx[,cx[,dx[,di[,
	dx=r, ax$3d00, &i($21) (r)?{ (-1)>Z }	;open
	dx=pq..149, bx=ax, cx=250,
	ax$3f00, &i($21)			;read
	bx[, di=dx,cx=ax,
	&i("$(32,C0,F2,AE,F7,D9,C3)") (r)	;scan ZERO
	bx], ax$3E00, &i($21)			;close
 :Z	di],dx],cx],bx],ax],

09:	;--- 拡張行番号情報 ---
	;<--pa.0  db 0:normal, 1:cp, 2:env,
	;     .1  dd string

	p[=r+1,
	pa.0-,
	(p..0=='>-')?{
		pa.0=1, p+=1, i-,
		:a i++, r=p.i, &10 ?{ pa.i=p.i, >a }
		pa.i-,
	}
	(p..0=='-[')?pa.0=2,
	p],

10:	;--- 16進? ---
	(r)>!{
		1>h 2>h 3>h 4>h 5>h
		6>h 7>h 8>h 9>h 0>h
		A>h B>h C>h D>h E>h F>h
		a>h b>h c>h d>h e>h f>h
	}
	(0)
.:h	(1)

61 ^^ "LZH"
	(s)?.
	&s &#M(4) ky[,
	&20 f=r,			;-->f=検索文字
	(f)??{ &m("変数 m を正しく設定してください") >Z }
	mp[,ps[=pr,
	#F &?("%s",f) #m #r
	ps],mp],
	(r)?{ r-,>e }
	r=pq..149, &23			;-->r=行バッファ取得アドレス
	(r==-1)?{ r+, >e }
	&21 (r==-1)?{ r2, >e }
	p=r,				;-->p=圧縮ファイル名

	&#U(4)
	r=pq..149+121, &23
	(r==-1)?{ r+, >e }
	&22 (r==-1)?{ r3, >e }
	q=r, &Sn(q) l=q+r+1,		;-->q=ファイル名
	&Ss(l) l=r,			;   l=行数

	#E &?("miel -l -na %s +%s -ej -j%s",p,q,l) #m #[

 :Z	&#U(4) ky],&d
.
:e	;- エラー表示 -
	&#U(4) #> #d &#M(4)
	(r)>?{
		("タグ情報/書庫ファイル情報行が見つかりません")
		("カーソル行が取得できません")
		("書庫ファイル情報行の不備です( ^QP でジャンプ )")
		("タグファイル情報行の不備です")
	}
	&m("%d %s %s",r,mg..0,p)
	>Z

20:	;--- 書庫ファイル情報検索文字 ---

	r-,
	(m==0)?{ r"\i ------------------[", }
	(m==1)?{ r"\i /* 書庫ファイル ", }
	(r)

21:	;--- 書庫ファイル情報行を分析 ---
	;-->r=取得バッファ

	p[=r,
	(m==0)?{
		&SO(p," << ") (r)?p=r+4,
				?{ r=-1, >Z }
		&SO(p,"]") (r)?r.0-,
				?{ r=-1, >Z }
	}
	(m==1)?{
		&SO(p,"ル ") (r)?p=r+3,
				?{ r=-1, >Z }
		&SO(p," */") (r)?r.0-,
				?{ r=-1, >Z }
	}
	r=p,
 :Z	(r)
 	p],

22:	;--- タグファイル行を分析 ---
	;-->r=取得バッファ

	p[=r,
	&SO(p," ") (r)?r.0-,
			?{ r=-1, >Z }
	&SO(r+1,":") (r)?r.0-,
			?{ r=-1, >Z }
	r=p,
 :Z	(r)
 	p],

23:	;--- カーソル行の(論理)行頭から 120 文字を r へ取得 ---
	;-->r=取得バッファ
	;<--r=-1:Err,

	p[=r,
	(mr==$80)?{#? &s }?#28	;#28 は ViewMode では使えない
	(r)?{ r=-1, >Z }	;#? #28 --> r==-1:lbfが一杯などのエラー
	wa..19.2-,
;	&Sc(p,wa..18,120) r=p,
	&Sc(p,wa..18,200) r=p,
 :Z	(r)
 	p],


* P
01	"",7,3
	"Start"
	"Filer"
	"Open"

*
= End of Tra_TAG.def =

    - No.66 -   [コメント元:65]     [リストへもどる ]
pre

65Tra_TAG.def 改 V1 投稿者:konno   2018/10/04(木) 21:42
   コメント数 1

削除しました
    - No.65 -             [リストへもどる ]
pre

64k7t5b 投稿者:konno   2017/09/11(月) 07:21


<<< k7t5b.lzh for MS-DOS ( use ish & LHarc ) [ 180 lines ] >>>
71--- 省略されました。---- [全文表示]
    - No.64 -             [リストへもどる ]
soft

63Re^9: 半角カナのテスト2 投稿者:konno   2015/10/02(金) 23:04
  62 番 konno さんへのコメント

> > > > > > > > > > テスト123 456
> > > > > > 123
> > > > > > 567
> > > > > > 789
> > > > > 11
> > > > 22
> > > 33
> 0925 0928

    - No.63 -   [コメント元:62]     [リストへもどる ]
hard

62Re^8: 半角カナのテスト2 投稿者:konno   2015/09/22(火) 19:25
  61 番 さんへのコメント    コメント数 1

> > > > > > > > > テスト

> > > > > 123
> > > > > 567
> > > > > 789
> > > > 11
> > > 22
> > 33
> 61
62 11
0925 0928


    - No.62 -   [コメント元:61]     [リストへもどる ]
hard

60Re^5: 半角カナのテスト2 投稿者:konno   2015/09/22(火) 18:09
  59 番 konno さんへのコメント

> > > > > > > テスト
> > >
> > > 123
> > > 567
> > > 789
> > 11
> 22
33

    - No.60 -   [コメント元:59]     [リストへもどる ]
soft

59Re^4: 半角カナのテスト2 投稿者:konno   2015/09/22(火) 17:23
  58 番 konno さんへのコメント    コメント数 1

> > > > > > テスト
> >
> > 123
> > 567
> > 789
> 11
22
3

    - No.59 -   [コメント元:58]     [リストへもどる ]
soft

58Re^3: 半角カナのテスト2 投稿者:konno   2015/09/22(火) 17:17
  56 番 konno さんへのコメント    コメント数 1

> > > > > テスト
>
> 123
> 567
> 789
11

    - No.58 -   [コメント元:56]     [リストへもどる ]
soft

57Re^3: 半角カナのテスト2 投稿者:konno   2015/09/22(火) 09:28
  56 番 konno さんへのコメント

> > > > > テスト
>
> 123
345
0927 0928


    - No.57 -   [コメント元:56]     [リストへもどる ]
soft

56Re^2: 半角カナのテスト2 投稿者:konno   2015/09/20(日) 02:58
  55 番 konno さんへのコメント    コメント数 2

> > > > テスト

123
567
789
    - No.56 -   [コメント元:55]     [リストへもどる ]
soft

55Re: 半角カナのテスト2 投稿者:konno   2015/09/13(日) 23:23
  46 番 konno さんへのコメント    コメント数 1

> > > テスト
> テスト
> > > 半角カナのテストデス
> > > ( ゚゚;)
> メ
> >ル
> > ア
> > ト
> > ゙
> > 行頭に半角の「メル」とか「ド」だけで文字化けしますね。タイトルにはほぼ使用不能?
> > CGIエラーになる場合もあります。
> >
> > 使用する場合は必ずプレビューで確認してください。書きかけの記事が消えても
> > 責任はもてませんので、自己責任で。(^^;
> >
> >
> >
> >
> >
> >
>
    - No.55 -   [コメント元:46]     [リストへもどる ]
soft

53tagl.def用taglight.pat 投稿者:konno   2013/05/11(土) 19:07
   コメント数 3

#デフォルト
D	■
C	\^■
B	\^★
A	\^・
1	 

#C,C++コード用
:C,CP,H,
E	(	)
D	{	 }
B	//	\C\$
C	{*	*}

#パスカルコード用
:DP,PA,
E	(*	*)
E	{ 	 }
E	//	\C\$

#HTML用
:HT,
B	<	>
C	!--	--
E	HREF="	"
A	src="	"
B	name="	"
E	font

#CGI用
:CG,
C	<	>
B	!--	--
E	font
A	src="	"
B	name="	"

#NIFTYログ用
:LO,
A	\0\0\0\0\0/\0\0\0\0\0 	\C\$
B	\^|	\C\$
B	\^ |	\C\$
B	\^|	\C\$
B	\^>	\C\$
B	\^>	\C\$
B	\^》	\C\$
C	http://	\C\$
E	mailto:	\C\$

#VZマクロコード用
:DE,
C	\^\0\0:
E	>\0\0 
C	>\0\0\C
C	&\0\0 
C	&\0\0\C
C	&> 
C	&>\C
C	>> 
C	>>\C
E	:\A
E	>\A 
E	>\A\C
B	;	\C\$
D	\^\0\0 	\C\$
B	\^*	\C\$

# TagLight 設定ファイル
#
#【パターン】
#
# |表示色<TAB>前タグ<TAB>後タグ	  → 前タグと後タグも含めて間の文字を着色
# |表示色<TAB>前タグ		  → 前タグのみを着色
#
#【表示色】
#
# DkBlack    0     Black     8
# DkBlue     1     Blue      9
# DkGreen    2     Green     A
# DkAqua     3     Aqua      B
# DkRed      4     Red       C
# DkPurple   5     Purple    D
# DkYellow   6     Yellow    E
# DkWhite    7     White     F
#
#【特殊文字】
#
# \0     0〜9
# \A     a〜z A〜Z
# \C     ASCII CODE $00〜$1F
# \^     前タグの先頭にある場合のみ表示行頭
# \$     後タグの末尾にある場合のみ表示行末
# \\     \ 自身
#
#	※ \$ はANDではなくてORの働きをします。例えば後タグが \C\$ の場合、
#	「表示行末に ASCII CODE $00〜$1F の文字があるところまで」ではなく
#       て「表示行末かもしくは ASCII CODE $00〜$1F まで」となります。
#	※ \^ と \$ は TagLight.exe の内部でフラグに置き換えられていますか
#       ら、これらのみをタグに指定しても「タグ文字列が無い」と判断されます。
#       他の文字を組み合わせて使ってください。
#
#【VZ用 NE 設定】
#
# 行頭の : に続けて1文字か2文字で指定。 AA,BB のように , で区切り
# 複数指定することもできます。


    - No.53 -             [リストへもどる ]
pre

52blta.asm ver0.41k all DOS版 バグ修正 投稿者:konno   2012/01/08(日) 02:03
  47 番 konno さんへのコメント    コメント数 2

;blta.asm (Long Fullpath BLT All for all DOS ver0.41k  2012-01-08 )

INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, ES:CODE, SS:CODE
	org	80h
	argc	db	?		;引数のサイズ 0-127bytes
	argv	db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          	;↓引数をASCIIZにする
	add	bl,[bx]			;引数のサイズ取得
	inc	bx
	cmp	bx,83h			;★ 引数が無い時
	jb	normal			;★
	mov	[bx],byte ptr 0 	;引数終わりの0Dhをnullに

	mov	bx, offset argv		;↓第一引数の処理
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '		;スペースなら第二引数の先頭
	jb	OPERR			;
	jne	USAGE			;それ以外の文字ならHELP
sp2:	add	bx,1
	cmp byte ptr [bx],' '		;
	jb	OPERR			;
	je	sp2
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1			; ""
	jmp	SWCHR
OP_P:	mov	OPT_P,1			; full Pass
	jmp	SWCHR
OP_F:	mov	OPT_F,1			; Filename opt2
	jmp	SWCHR
OPERR:	cmp	OPT_F,0			; 引数が無い
	je	normal

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h			;-> disk num in AL
 	add	al,'A'			;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN) ----
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_FP	;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	jne	win

	mov	ah,47h
	mov	al,byte ptr BUFF_DP
	add	al,1			;AL num different! A=0 (19h) & A=1 (47h)
	mov	dl,al
	mov	si,offset BUFF_FP	;BUFF_DP+3
	int	21h
	jmp	dos

win:
	mov	OPT_W,1
;check & flag set	----
dos:
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1	;if root 0 not root 1(=add '\')

;findfirst	----
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1		;'*.*'
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2	;opt2
FI0:	call	SET			;set cx, si, di
	cmp	OPT_W,0
	jne	FI1
	mov	ah,4eh
FI1:	int	21h
	jc	BYE			;not found?
	mov 	HAND, word ptr ax	;save handle num
	call	print_fn		;print drive+dir

;findnext	----
FINDN:	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	cmp	OPT_W,0
	jne	FN1
	mov	ah,4fh
FN1:	int	21h
	jc	BYEBYE
	call	print_fn
	jmp	FINDN

ERR:	print ERR_MSG1			;not win32
	retms

BYE:	print ERR_MSG2			;file not found
BYEBYE:
	mov	bx,HAND			;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

;	--- subroutines ---

SET:	mov	cx,28h			;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

;	--- print1 subroutines ---
PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

;	--- print filename ---
print_fn:
	cmp	OPT_D,0			;print drive+dir
	je	B0
	putchar	'"'
B0:	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	ret


OPT_W		db	0		;DOS 0 win 1
OPT_P		db	0		;full Path flag
OPT_F		db	0		;Filename opt2 flag
OPT_D		db	0		;double quote flag
FLAG		db	0		;if root 0 not root 1(=add '\')
HAND		dw	?		;handle
FILE1		db	'*.*',0
FILE2		dw	0		;opt2 filename
BUFF_DP		db	?,':\'
BUFF_FP		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for all DOS   Ver0.41k',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend

    - No.52 -   [コメント元:47]     [リストへもどる ]
pre

51blta.com ver0.40k all DOS版のish 投稿者:konno   2012/01/04(水) 20:43
  50 番 konno さんへのコメント

<<< blta.com for MS-DOS ( use ish ) [ 27 lines ] >>>
57--- 省略されました。---- [全文表示]
    - No.51 -   [コメント元:50]     [リストへもどる ]
soft

50blta.asm ver0.40k all DOS版 投稿者:konno   2012/01/04(水) 20:42
  47 番 konno さんへのコメント    コメント数 2

blta.asm ver0.40k   all DOS版です、16ビットDOSでは試してません。

;blta.asm (Long Fullpath BLT All for all DOS ver0.40k  2012-01-04 )

INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, SS:CODE
	org	80h
	argc	db	?		;引数のサイズ 127bytes
	argv	db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          	;↓引数をASCIIZにする
	add	bl,[bx]			;引数のサイズ取得
	inc	bx
	mov	[bx],byte ptr 0 	;引数終わりの0Dhをnullに

	mov	bx, offset argv		;↓第一引数の処理
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '		;スペースなら第二引数の先頭
	jb	OPERR			;
	jne	USAGE			;それ以外の文字ならHELP
sp2:	add	bx,1
	cmp byte ptr [bx],' '		;
	jb	OPERR			;
	je	sp2
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1			; ""
	jmp	SWCHR
OP_P:	mov	OPT_P,1			; pass
	jmp	SWCHR
OP_F:	mov	OPT_F,1			; Fname
	jmp	SWCHR
OPERR:	cmp	OPT_F,0			; 引数が無い
	je	normal

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h			;-> disk num in AL
 	add	al,'A'			;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN)
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_FP	;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	jne	win

	mov	ah,47h
	mov	al,byte ptr BUFF_DP
	add	al,1			;AL num different! A=0 (19h) & A=1 (47h)
	mov	dl,al
	mov	si,offset BUFF_FP	;BUFF_DP+3
	int	21h
	jmp	dos

win:
	mov	OPT_W,1
;check & flag set	----
dos:
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1	;if root 0 not root 1(=add '\')

;findfirst	----
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1		;'*.*'
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2	;opt2
FI0:	call	SET			;set cx, si, di
	cmp	OPT_W,0
	jne	FI1
	mov	ah,4eh
FI1:	int	21h
	jc	BYE			;not found?
	mov 	HAND, word ptr ax	;save handle num
	call	print_fn		;print drive+dir

;findnext	----
FINDN:	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	cmp	OPT_W,0
	jne	FN1
	mov	ah,4fh
FN1:	int	21h
	jc	BYEBYE
	call	print_fn
	jmp	FINDN

ERR:	print ERR_MSG1			;not win32
	retms

BYE:	print ERR_MSG2			;file not found
BYEBYE:
	mov	bx,HAND			;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

;	--- subroutines ---

SET:	mov	cx,28h			;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

;	--- print1 subroutines ---
PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

;	--- print filename ---
print_fn:
	cmp	OPT_D,0			;print drive+dir
	je	B0
	putchar	'"'
B0:	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	ret


OPT_W		db	0		;DOS 0 win 1
OPT_P		db	0		;full Path flag
OPT_F		db	0		;Filename opt2 flag
OPT_D		db	0		;double quote flag
FLAG		db	0		;if root 0 not root 1(=add '\')
HAND		dw	?		;handle
FILE1		db	'*.*',0
FILE2		dw	0		;opt2 filename
BUFF_DP		db	?,':\'
BUFF_FP		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for all DOS   Ver0.40k',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend


    - No.50 -   [コメント元:47]     [リストへもどる ]
pre

49blta.com ver0.31k の ish 投稿者:konno   2012/01/04(水) 12:36
  48 番 konno さんへのコメント

<<< blta.com for MS-DOS ( use ish ) [ 27 lines ] >>>
57--- 省略されました。---- [全文表示]
    - No.49 -   [コメント元:48]     [リストへもどる ]
soft

48blta.asm ver0.31k 投稿者:konno   2012/01/04(水) 02:09
  47 番 konno さんへのコメント    コメント数 3

;-------------------------------------------------------------------------
;blta.asm (Long Fullpath BLT All for win32_DOS ver0.31k)
INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, SS:CODE
	org	80h
	argc		db	?		;引数のサイズ 127bytes
	argv		db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          		;↓ファイル名をASCIIZにする
	add	bl,[bx]				;引数のサイズ取得
	inc	bx
	mov	[bx],byte ptr 0 		;引数終わりの0Dhをnullに

	mov	bx, offset argv			;↓第一引数の処理
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '			;スペースなら第二引数の先頭
	jb	OPERR				;
	jne	USAGE				;それ以外の文字ならHELP
sp2:	add	bx,1
	cmp byte ptr [bx],' '			;
	jb	OPERR				;
	je	sp2
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1				; ""
	jmp	SWCHR
OP_P:	mov	OPT_P,1				; pass
	jmp	SWCHR
OP_F:	mov	OPT_F,1				; Fname
	jmp	SWCHR
OPERR:	cmp	OPT_F,0				; 引数が無い
	je	normal

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h				;-> disk num in AL
 	add	al,'A'				;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN)
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_DF		;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	je	ERR
;check & flag set
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1		;if root 0 not root 1(=add '\')

;findfirst
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2
FI0:	call	SET				;set cx, si, di
	int	21h
	jc	BYE				;not found
;	cmp	ax,7100h			;error check
;	je	BYE
	;print drive+dir
	mov 	HAND, word ptr ax		;save handle num
	cmp	OPT_D,0
	je	FI_2
	putchar	'"'
FI_2:	cmp	OPT_P,0
	je	A1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	A1
	putchar	'\'
A1:	;print filename
	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	FI_3
	putchar	'"'
FI_3:	newline
;findnext
FINDN:
	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	int	21h
	jc	BYEBYE
	;print drive+dir
	cmp	OPT_D,0
	je	FN_2
	putchar	'"'
FN_2:
	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
;print filename
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	jmp	FINDN

ERR:	print ERR_MSG1				;not win32
	retms

BYE:	print ERR_MSG2				;file not found
BYEBYE:
	mov	bx,HAND				;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

	;--- subroutines ---

SET:	mov	cx,28h				;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

OPT_P		db	0			;full Path flag
OPT_F		db	0			;Filename opt2 flag
OPT_D		db	0			;double quote flag
FLAG		db	0			;if root 0 not root 1(=add '\')
HAND		dw	?			;handle
FILE1		db	'*.*',0
FILE2		dw	0			;opt2 filename
BUFF_DP		db	?,':\'
BUFF_DF		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for Win32 DOS   Ver0.31k  2012-01-04',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend


    - No.48 -   [コメント元:47]     [リストへもどる ]
pre

47blta.asm (オプション付き改造版) ver0.30k 投稿者:konno   2012/01/04(水) 01:10
   コメント数 4

#kyo5724 から転載

VTDOS|C:\VZ\T>BLTA.COM ?
BLTA.COM file lister for Win32 DOS   Ver0.30k  2012-01-02
  usage  BLTA opt filename
    opt  D or d      Double quote
    opt  P or p      full Path
    opt  F or f      File name opt
    opt  H or h or ? Help usage

このように、最初の引数が動作のオプションで、何もつけなければ、Bll と同じ動作
オプションは複数同時指定できます。"-" や "/" は無視します。
第一引数に "f" を指定して半角スペース1個空け第二引数にファイル名を指定できます。

VTDOS|C:\VZ\T>BLTA.COM f blt*.*
BLT.000
BLT1.ASM
BLT1.COM
BLT1.EXE
BLT1.LST
BLT2.ASM
blt2.com
blt2.exe
blt2.map
BLTA.000
BLTA.ASM
BLTA.COM
blta.exe
BLTA.MAP

こんな感じになります。どうでしょうか。以下ソースです。

;-------------------------------------------------------------------------
;blta.asm (Long Fullpath BLT All for win32_DOS)
INCLUDE STDIO.H

	CODE	SEGMENT BYTE
	ASSUME	CS:CODE, DS:CODE, SS:CODE
	org	80h
	argc		db	?
	argv		db	127 dup (?)
	org	100h
;-----------------------------------------------------------------
START:
	mov	bx,80h          	;↓ファイル名をASCIIZにする
	add	bl,[bx]
	inc	bx
	mov	[bx],byte ptr 0 	;↑ここまで

	mov	bx, offset argv
SWCHR:	add	bx,1
	cmp byte ptr [bx],'/'
	je	SWCHR
	cmp byte ptr [bx],'-'
	je	SWCHR
	cmp byte ptr [bx],'D'
	je	OP_D
	cmp byte ptr [bx],'d'
	je	OP_D
	cmp byte ptr [bx],'P'
	je	OP_P
	cmp byte ptr [bx],'p'
	je	OP_P
	cmp byte ptr [bx],'F'
	je	OP_F
	cmp byte ptr [bx],'f'
	je	OP_F
	cmp byte ptr [bx],'?'
	je	USAGE
	cmp byte ptr [bx],'H'
	je	USAGE
	cmp byte ptr [bx],'h'
	je	USAGE
	cmp byte ptr [bx],' '		;↓ファイル名の先頭を求める
	jne	normal
	add	bx,1
	mov FILE2,word ptr bx
	jmp	normal

OP_D:	mov	OPT_D,1
	jmp	SWCHR
OP_P:	mov	OPT_P,1
	jmp	SWCHR
OP_F:	mov	OPT_F,1
	jmp	SWCHR

USAGE:	print	help_usage
	newline
	retms
;-----------------------------------------------------------------
;get current disk
normal:
	mov	ah,19h
 	int	21h		;-> disk num in AL
 	add	al,'A'		;num2char
 	mov	BUFF_DP, byte ptr al
;get current directory (LFN)
 	mov	dl,0
 	mov	ax,7147h
 	mov	si,offset BUFF_DF	;BUFF_DP+3
 	int	21h
 	cmp	ax,7100h
 	je	ERR
;check & flag set
	cmp	BUFF_DP[3],0
	je	FIND1
	mov	FLAG, byte ptr 1	;if root 0, if not root 1 (=add '\')

;findfirst
FIND1:	mov	ax,714eh
	mov	dx,offset FILE1
	cmp	OPT_F,0
	je	FI0
	mov	word ptr dx,FILE2
FI0:	call	SET			;set cx, si, di
	int	21h
	cmp	ax,7100h		;error check
	je	BYE
	;print drive+dir
	mov 	HAND, word ptr ax	;save handle num
	cmp	OPT_D,0
	je	FI_2
	putchar	'"'
FI_2:	cmp	OPT_P,0
	je	A1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	A1
	putchar	'\'
A1:	;print filename
	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	FI_3
	putchar	'"'
FI_3:	newline
;findnext
FINDN:
	mov 	bx,HAND
	mov	ax,714fh
	call	SET
	int	21h
	jc	BYEBYE
	;print drive+dir
	cmp	OPT_D,0
	je	FN_2
	putchar	'"'
FN_2:
	cmp	OPT_P,0
	je	B1
	mov	bx,offset BUFF_DP
	call	PRI
	cmp	FLAG,0
	je	B1
	putchar	'\'
;print filename
B1:	mov	bx,offset BUFF_F+2ch
	call	PRI
	cmp	OPT_D,0
	je	B2
	putchar	'"'
B2:	newline
	jmp	FINDN

ERR:	print ERR_MSG1
	retms

BYE:	print ERR_MSG2
BYEBYE:
	mov	bx,HAND			;HANDLE CLOSE
	mov	ax,71a1h
	int	21h
	retms

	;--- subroutines ---

SET:	mov	cx,28h			;directory, volume 除く
	mov	si,1
	mov	di,offset BUFF_F
	ret

PRI:	cmp	[bx],byte ptr 0
  	je	FIN
   	putchar	[bx]
  	inc	bx
  	jmp	PRI
FIN:	ret

OPT_P		db	0		;full Path flag
OPT_F		db	0		;Filename opt flag
OPT_D		db	0		;double quote flag
FLAG		db	0		;if root 0, if not root 1 (=add '\')
HAND		dw	?		;handle
FILE1		db	'*.*',0
FILE2		dw	0		;opt filename
BUFF_DP		db	?,':\'
BUFF_DF		db	300 dup (0)
BUFF_F		db	320 dup (0)
ERR_MSG1	db	'Run on Windows','$'
ERR_MSG2	db	'File Not Found','$'
help_usage	db	'BLTA.COM file lister for Win32 DOS   Ver0.30k  2012-01-02',CR,LF
		db	'  usage  BLTA opt filename',CR,LF
		db	'    opt  D or d      Double quote',CR,LF
		db	'    opt  P or p      full Path',CR,LF
		db	'    opt  F or f      File name opt',CR,LF
		db	'    opt  H or h or ? Help usage',CR,LF
		db	'$'

	pend

    - No.47 -             [リストへもどる ]
pre

46半角カナのテスト2 投稿者:konno   2011/12/29(木) 21:07
  39 番 konno さんへのコメント    コメント数 1

> > テスト
テスト
> > 半角カナのテストデス
> > ( ゚゚;)

>ル
> ア
> ト
> ゙
> 行頭に半角の「メル」とか「ド」だけで文字化けしますね。タイトルにはほぼ使用不能?
> CGIエラーになる場合もあります。
>
> 使用する場合は必ずプレビューで確認してください。書きかけの記事が消えても
> 責任はもてませんので、自己責任で。(^^;
>
>
>
>
>
>
    - No.46 -   [コメント元:39]     [リストへもどる ]
soft

45Re: VZ_com 関連ダウンロードランキング 投稿者:konno   2009/09/16(水) 00:16
  43 番 konno さんへのコメント

 総アクセス数:21483件 
   
VZ_COM ランキング
             
1       VZK07P.LZH      377
2       VZK09.LZH       330
3       VZK8Q2.LZH      173
4       VZK08Q8.LZH     165
5       VZK07R2.LZH     143
6       VZK07QJ.LZH     140
7       T03K2-K.LZH     122
8       VZOP03A.LZH     121
9       VZK07R1.LZH     114
10      VZK08Q3.LZH     108
11      VZK07I.LZH      105
12      VZK07K.LZH      100
13      VZOP03.LZH      99
14      VZOP02.LZH      95
15      VZK08R.LZH      88
16      VZK08Q7.LZH     71
17      VZK08Q4.LZH     58
18      VZK08Q9.LZH     54
19      VZK07S1.LZH     42
20      VZK08Q6.LZH     41
21      VZK07Q.LZH      31
22      VZK07S2.LZH     18
23      VZK07R.LZH      9
24      VZK07S.LZH      7
25      VZK07S3.LZH     6
                
25件            参照数  2617

    - No.45 -   [コメント元:43]     [リストへもどる ]
pre

44NP2関連ダウンロードランキング 投稿者:konno   2009/09/16(水) 00:02
  42 番 konno さんへのコメント

じょじょカウント/アクセス解析 05/05/14 〜 09/09/12 のアクセス解析
     総参照数:21483件                

 NP2関連の参照数  12139件

順位    総合順位                        参照数
1       1               NP2W03T6.LZH    1838
2       2               NP2W0312.LZH    986
3       3               NP2W0304.LZH    918
4       4               NP2WV_T7.LZH    872
5       5               NP2W0306.LZH    862
6       8               NP2W0307.LZH    592
7       9               NP2W0311.LZH    484
8       14              NP2S3_81.LZH    380
9       15              NP2PPP4.LZH     379
10      21              NP2Q40_4.LZH    344
11      24              NP2W0309.LZH    286
12      25              NP2AD_14.LZH    282
13      26              NP2W0314.LZH    275
14      27              NP2MH81.LZH     237
15      28              NP2MQ81.LZH     225
16      30              NP2HPCM.LZH     223
17      31              NP2_SIG3.LZH    214
18      32              NP2AQ81.LZH     197
19      33              NP2W0305.LZH    196
20      34              NP2PPPQ1.LZH    191
21      35              NP2Q40_3.LZH    188
22      36              NP2HPCA.LZH     186
23      37              NP2_HM03.LZH    183
24      42              NP2AH81.LZH     161
25      43              NP2PPC40.LZH    156
26      44              NP2SH3.LZH      156
27      45              NP2_HA03.LZH    150
28      47              NP2SH3_1.LZH    144
29      59              NP2PPP1.LZH     96
30      63              NP2ES_14.LZH    80
31      64              NP2W0308.LZH    79
32      67              NP2_HA04.LZH    76
33      68              NP2_HM04.LZH    75
34      69              NP2PPP3.LZH     73
35      70              NP2PPP2.LZH     73
36      73              NP2_QM04.LZH    71
37      80              NP2_QA04.LZH    52
38      81              NP2S3_05.LZH    52
39      86              NP2A60_3.LZH    32
40      88              NP2_HM05.LZH    31
41      89              NP2_HA05.LZH    29
42      91              NP2W0310.LZH    15

42件                    NP2関連参照数  12139件

    - No.44 -   [コメント元:42]     [リストへもどる ]
pre

43VZ関連ダウンロードランキング 投稿者:konno   2009/09/16(水) 00:01
  42 番 konno さんへのコメント    コメント数 1

じょじょカウント/アクセス解析05/05/14   〜 09/09/12 のアクセス解析
          総参照数:21483件 

 VZ関連の参照数      4933件

1       VZK.TXT         773
2       VZK07P.LZH      377
3       VZK09.LZH       330
4       VZ.DEF          224
5       WINCOLOR.DEF    178
6       VZK8Q2.LZH      173
7       EZKEY2.LZH      166
8       VZK08Q8.LZH     165
9       VZFL.DEF        145
10      VZK07R2.LZH     143
11      VZK07QJ.LZH     140
12      T03K2-K.LZH     122
13      VZOP03A.LZH     121
14      VZK07R1.LZH     114
15      VZ2.DEF         112
16      VZK08Q3.LZH     108
17      VZK07I.LZH      105
18      EZKEY3.LZH      102
19      VZK07K.LZH      100
20      VZOP03.LZH      99
21      VZOP02.LZH      95
22      K09_S.LZH       95
23      VZK08R.LZH      88
24      EZKEY4.LZH      78
25      QVIEW_K.LZH     76
26      K08Q8S.LZH      71
27      VZK08Q7.LZH     71
28      K07RS.LZH       69
29      K08Q2S.LZH      69
30      VZK08Q4.LZH     58
31      CTRL.DEF        56
32      VZK08Q9.LZH     54
33      K08RS.LZH       48
34      VZK07S1.LZH     42
35      VZK08Q6.LZH     41
36      K08Q9S.LZH      33
37      VZK07Q.LZH      31
38      VZK07S2.LZH     18
39      TRATAG_K.LZH    10
40      VZK07R.LZH      9
41      VZK07S.LZH      7
42      K07S2S.LZH      7
43      VZK07S3.LZH     6
44      K07S3S.LZH      4

 VZ関連の参照数      4933件

    - No.43 -   [コメント元:42]     [リストへもどる ]
pre

42総合ダウンロードランキング2009 投稿者:konno   2009/09/16(水) 00:00
   コメント数 2

じょじょカウント/アクセス解析 05/05/14 〜 09/09/12 のアクセス解析
有効アクセス数:21483件
      ダウンロードランキング

順位               参照数  比率
    1 NP2W03T6.LZH   1838  8.56%  アドエス用NP2テスト版
    2 NP2W0312.LZH    986  4.59%
    3 NP2W0304.LZH    918  4.27%
    4 NP2WV_T7.LZH    872  4.06%  EM.ONE(WVGA)用TEST版
    5 NP2W0306.LZH    862  4.01%
    6 scash.htm       819  3.81%
    7 VZK.TXT         773  3.60%
    8 NP2W0307.LZH    592  2.76%
    9 NP2W0311.LZH    484  2.25%
   10 xshoot          466  2.17%
   11 speed.html      451  2.10%
   12 qpoint.htm      445  2.07%
   13 oscheck.htm     384  1.79%
   14 NP2S3_81.LZH    380  1.77%  シグ3用NP2
   15 NP2PPP4.LZH     379  1.76%  ポポペ用NP2
   16 VZK07P.LZH      377  1.75%  VZkでは最多だがポポペに負けてる(^^;
   17 mad.htm         377  1.75%
   18 agent.htm       365  1.70%
   19 allcheck.htm    355  1.65%
   20 viewenv.cgi     348  1.62%
   21 NP2Q40_4.LZH    344  1.60%
   22 VZK09.LZH       330  1.54%
   23 money.htm       303  1.41%
   24 NP2W0309.LZH    286  1.33%
   25 NP2AD_14.LZH    282  1.31%  アドエス用最新
   26 NP2W0314.LZH    275  1.28%  W-ZERO3用最新
   27 NP2MH81.LZH     237  1.10%  シグ2用NP2
   28 NP2MQ81.LZH     225  1.05%
   29 VZ.DEF          224  1.04%
   30 NP2HPCM.LZH     223  1.04%
   31 NP2_SIG3.LZH    214  1.00%
   32 NP2AQ81.LZH     197  0.92%
   33 NP2W0305.LZH    196  0.91%
   34 NP2PPPQ1.LZH    191  0.89%
   35 NP2Q40_3.LZH    188  0.88%
   36 NP2HPCA.LZH     186  0.87%
   37 NP2_HM03.LZH    183  0.85%
   38 WINCOLOR.DEF    178  0.83%
   39 VZK8Q2.LZH      173  0.81%
   40 EZKEY2.LZH      166  0.77%
   41 VZK08Q8.LZH     165  0.77%
   42 NP2AH81.LZH     161  0.75%
   43 NP2PPC40.LZH    156  0.73%
   44 NP2SH3.LZH      156  0.73%
   45 NP2_HA03.LZH    150  0.70%
   46 VZFL.DEF        145  0.67%
   47 NP2SH3_1.LZH    144  0.67%
   48 VZK07R2.LZH     143  0.67%
   49 VZK07QJ.LZH     140  0.65%
   50 T03K2-K.LZH     122  0.57%
   51 VZOP03A.LZH     121  0.56%  オアポケ3用VZ
   52 VZK07R1.LZH     114  0.53%
   53 VZ2.DEF         112  0.52%
   54 VZK08Q3.LZH     108  0.50%
   55 VZK07I.LZH      105  0.49%
   56 EZKEY3.LZH      102  0.47%
   57 VZK07K.LZH      100  0.47%
   58 VZOP03.LZH       99  0.46%
   59 NP2PPP1.LZH      96  0.45%
   60 VZOP02.LZH       95  0.44%
   61 K09_S.LZH        95  0.44%
   62 VZK08R.LZH       88  0.41%
   63 NP2ES_14.LZH     80  0.37%
   64 NP2W0308.LZH     79  0.37%
   65 EZKEY4.LZH       78  0.36%
   66 QVIEW_K.LZH      76  0.35%
   67 NP2_HA04.LZH     76  0.35%
   68 NP2_HM04.LZH     75  0.35%
   69 NP2PPP3.LZH      73  0.34%
   70 NP2PPP2.LZH      73  0.34%
   71 K08Q8S.LZH       71  0.33%
   72 VZK08Q7.LZH      71  0.33%
   73 NP2_QM04.LZH     71  0.33%
   74 K07RS.LZH        69  0.32%
   75 K08Q2S.LZH       69  0.32%
   76 K00001.LZH       60  0.28%
   77 VZK08Q4.LZH      58  0.27%
   78 CTRL.DEF         56  0.26%
   79 VZK08Q9.LZH      54  0.25%
   80 NP2_QA04.LZH     52  0.24%
   81 NP2S3_05.LZH     52  0.24%
   82 K08RS.LZH        48  0.22%
   83 VZK07S1.LZH      42  0.20%
   84 VZK08Q6.LZH      41  0.19%
   85 K08Q9S.LZH       33  0.15%
   86 NP2A60_3.LZH     32  0.15%
   87 VZK07Q.LZH       31  0.14%
   88 NP2_HM05.LZH     31  0.14%
   89 NP2_HA05.LZH     29  0.13%
   90 VZK07S2.LZH      18  0.08%
   91 NP2W0310.LZH     15  0.07%
   92 KYO_003.LZH      14  0.07%
   93 KYO_001.LZH      13  0.06%
   94 KYO_002.LZH      11  0.05%
   95 TRATAG_K.LZH     10  0.05%
   96 VZK07R.LZH        9  0.04%
   97 VZK07S.LZH        7  0.03%
   98 K07S2S.LZH        7  0.03%
   99 VZK07S3.LZH       6  0.03%
  100 K07S3S.LZH        4  0.02%

合計100件    総参照数  21483件

VZ関連		44件	4933	22.96%
NP2関連		42件	12139	56.50%
    - No.42 -             [リストへもどる ]
pre

41他の板への番号リンクテスト 投稿者:konno   2009/06/04(木) 00:35


他の板への番号リンクテストです。
#     #41 言#41 塀#41 の#41 #41 #1#41 ##41
#kyo #k3008 #kyo3008へ(今日のテーマ板)
#kyo 今日のテーマ#3008へ(今日のテーマ板)
#faq #f0010 #faq10へ (VzFAQ板)
#link #l0008  #link8へ (リンク板)
#test #t0041 #test41へ (テスト板)
#n   #n3000  野ざらし言#3000 野ざらし言3000番へ
#i   #i1000  板塀#1000へ       板塀1000番へ


    - No.41 -             [リストへもどる ]
pre

40二重投稿のテスト 投稿者:konno   2009/05/14(木) 23:21


二重投稿のテストです。



    - No.40 -             [リストへもどる ]
pre

39「メルアド」は文字化けする? 投稿者:konno   2009/05/14(木) 00:43
  37 番 konno さんへのコメント    コメント数 1

> テスト
> テスト
> 半角カナのテストデス
> ( ゚゚;)
メ
ル
ア
ト
゙
行頭に半角の「メル」とか「ド」だけで文字化けしますね。タイトルにはほぼ使用不能?
CGIエラーになる場合もあります。

使用する場合は必ずプレビューで確認してください。書きかけの記事が消えても
責任はもてませんので、自己責任で。(^^;





    - No.39 -   [コメント元:37]     [リストへもどる ]
pre

37できるカナ? 投稿者:konno   2009/05/13(水) 23:51
   コメント数 2

テスト
テスト
半角カナのテストデス
( ゚゚;)

    - No.37 -             [リストへもどる ]
pre

36発言番号リンクのテスト 投稿者:konno   2009/04/30(木) 01:46
   コメント数 1

発言番号リンクのテストです。某板塀からコピペ m(__)m

--- input ---
#123 #456  #789 #12345 #123456 #12345#3210

--- output --
X#123Y X#456Y  X#789Y X#12345Y #123456 X#12345Yx#6789y

http://hpcgi3.nifty.com/tamaneko/wforum.cgi?&mode=allread#35

http://hpcgi3.nifty.com/tamaneko/wforum.cgi?&mode=allread #35



    - No.36 -             [リストへもどる ]
pre

35Re: X01Tキーコードログ 投稿者:mmichael   2008/01/05(土) 12:26
  34 番 mmichael さんへのコメント

補足です。
各値の意味ですが、おそらく下記の通りだと思います。
マイクロ秒,ステータス,キーコード

ステータス…1桁目:S…ソース、T…Keyboard Hook経由
          …2桁目:D…キーダウン、U…キーアップ
    - No.35 -   [コメント元:34]     [リストへもどる ]
pre

34X01Tキーコードログ 投稿者:mmichael   2008/01/05(土) 11:56
   コメント数 1

[@Enter]    926675,SD,0x86
	    926683,TD,0x86
    	    926690,SD,0x0d
    	    926696,TD,0x0d
    	    926834,SU,0x0d
    	    926841,TU,0x0d
    	    926849,SU,0x86
    	    926854,TU,0x86
[@Up]       930806,SD,0x26
    	    930837,TD,0x26
    	    931002,SU,0x26
    	    931034,TU,0x26
[@Down]     935752,SD,0x28
    	    935807,TD,0x28
    	    935918,SU,0x28
    	    935979,TU,0x28
[@Left]     937680,SD,0x25
    	    937740,TD,0x25
    	    937874,SU,0x25
    	    937940,TU,0x25
[@Right]    939359,SD,0x27
    	    939419,TD,0x27
     	    939574,SU,0x27
    	    939634,TU,0x27
[Enter]     971204,SD,0x0d
    	    971257,TD,0x0d
    	    971373,SU,0x0d
    	    971376,TU,0x0d
[Up]        942494,SD,0x26
    	    942554,TD,0x26
    	    942669,SU,0x26
    	    942729,TU,0x26
[Down]      944381,SD,0x28
    	    944434,TD,0x28
    	    944589,SU,0x28
    	    944643,TU,0x28
[Left]      946918,SD,0x25
    	    946973,TD,0x25
    	    947135,SU,0x25
    	    947189,TU,0x25
[Right]     948715,SD,0x27
    	    948768,TD,0x27
    	    948883,SU,0x27
    	    948939,TU,0x27
[A]         1624769,SD,0x41
            1624775,TD,0x41
            1624920,SU,0x41
            1624971,TU,0x41
[Shift]     1627912,SD,0x10
            1627947,TD,0x10
            1629262,SU,0x10
            1629322,TU,0x10
[Func]      1635683,SD,0xe4
            1635687,TD,0xe4
            1636235,SU,0xe4
            1636296,TU,0xe4
            1640433,SD,0xe4
            1640494,TD,0xe4
[Del]       1641140,SD,0x2e
            1641202,TD,0x2e
            1641851,SU,0x2e
            1641854,TU,0x2e
[BS]        1648316,SD,0x08
            1648369,TD,0x08
            1648490,SU,0x08
            1648543,TU,0x08

※@が付いているのはアクションキー
※DELはFuncを押下後、BSボタンで機能
    - No.34 -             [リストへもどる ]
pre

19MK6.BAT 投稿者: Konno   2007/04/05(木) 00:01
   コメント数 1

MASM6用VZアセンブルバッチです。
えむしさんのバッチを少し改造しました。m(__)m

 MK6.BAT >>>
95--- 省略されました。---- [全文表示]
    - No.19 -             [リストへもどる ]
pre

18buf1k ver0.2 投稿者: Konno   2007/02/01(木) 23:23
  17 番 Konno さんへのコメント

buf1k v0.2 です
vmap でのオーナー名表示とソースのコメント追加だけです。

<<< buf1k02.lzh for MS-DOS ( use ish & LHarc ) [ 55 lines ] >>>
154--- 省略されました。---- [全文表示]
    - No.18 -   [コメント元:17]     [リストへもどる ]
pre

17buf1k ver0.1 投稿者: Konno   2007/01/29(月) 01:27
   コメント数 1

buf1k v0.1 です。
buf1k.asm と buf1k.com を同梱しました。
buf1k  でメモリの上位に1024のバッファを取ります。実行するたびに1024増えます。
MCBエリアにIDを埋め込んだので、PSP領域を含めた1024バイト丸まる使えます。
buf1k r  でメモリを開放します。バッファが複数あっても一度に開放します。

<<< buf1k01.lzh for MS-DOS ( use ish & LHarc ) [ 53 lines ] >>>
373--- 省略されました。---- [全文表示]
    - No.17 -             [リストへもどる ]
pre

16Re^2: <br>テスト 投稿者: Konno   2006/12/28(木) 01:10
  15 番 Konno さんへのコメント

> > <br>
> > =<br>
> > &quot&quot=”"
> > &amp&amp=&&
> > &gt&gt=>>
> > &lt&lt=<<
> >
> >
>
    - No.16 -   [コメント元:15]     [リストへもどる ]
soft