一括表示

PK 14, #00077, syoさん 「未公開変数av0〜av11の動作確認」 93/02/14
を参考に。ＸＰにて。
アンダーライン・カーソル行の着色用なんですね。av4が僕にはいいみたい。

変数　　　　　　　内容
av     　　　(Du+の条件下で、)
　　　av0,　なし
　　　av1,  カーソル行着色（黄色）
　　　av2,  カーソル行着色（紫）
　　　av3,  カーソル行着色（赤）
　　　av4,  カーソル行着色（青）
　　　av5,  カーソル行着色（緑）
　　　av6,  カーソル行着色（濃こん）
　　　av7,  カーソル行着色（灰色）
　　　av8,  同上
　　　av9,  同上
　　　av10, カーソル行着色（濃紫）

　av8以降は、0-7が濃くなったり薄くなったりという感じみたい。WinMEのほうが見やすかった。

　すごく深いようですね。
　以下、引用です。

-----------------------------------------------------------
PK, (14) 01224 Aiming Off  Re:Av の設定  93/06/27

  以前私も似たような経験をしたので (IBMのマシンで An と Av の組み合わせに
よってはカーソルを移動した後の軌跡の色が変わったり消えてしまったりするんで
すよね), 少しソースを覗いてみました.
  これって, 完全に機種依存していますね. IBM系も, J31 と DOS/V では違うよう
です. (AX だと変更すらできないように見える.)

  ただ, パッと見ただけでは, どういう論理なのかは判りませんでした. 私には
これ以上の追求をするパワーはありませんので, 他の方の登場を待ちましょう. (^^;)

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

PK, (14) 01201 y.mikome  RE:Av の設定、教えて下さい  93/06/26

  　横道にそれますが、syo さん自身がこういう表をあみ出したこの機会を狙
  って、ビットの考え方をむりやり syo さんに教えちゃお。

                                      →16進数    →２進数
　　　av0,　アンダーラインが消える             0h         0000 0000
　　　av1,  カーソル行以外は表示しない       1h         0000 0001
　　　av2,  カーソル行の点滅                 2h         0000 0010
　　　av3,  av1かつav2                   3h         0000 0011
　　　av4,  カーソル行反転                   4h         0000 0100
　　　av5,  av1かつav4                   5h         0000 0101
　　　av6,  av2かつav4                   6h         0000 0110
　　　av7,  av3かつav4                   7h         0000 0111
　　　av8,  アンダーライン出現、すべての行出現 8h         0000 1000
　　　av9,  av1かつav8                   9h         0000 1001
　　　av10, av2かつav8                   Ah         0000 1010
　　　av11, av3かつav8                   Bh         0000 1011

  　でもせっかく８つも電球が用意されているなら、それぞれの電球に意味を
  持たせれば、応用範囲が広くなるでしょ。

                          ＼｜／
        ●　●　●　●　●−○−●　●
                          ／｜＼
                        ↑  ↑  ↑  ↑
                        │  │  │  └─１　カーソル行以外非表示      
                        │  │  └───２  カーソル行点滅            
                        │  └─────４  カーソル行反転            
                        └───────８  カーソル行アンダーライン  

 y.mikomeさんが言うのより複雑なようですね。

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

AP (12) 411 N.Myaa  えっ？！  91/09/23

　　　av ですが，結構おもしろいですね．ちょっと試した結果（du+, となっ
　　ているのが前提です）は，
        bit0    :カーソル行以外は，表示しない．
        bit1    :カーソル行を点滅表示させる．
        bit2    :カーソル行をリバース表示させる．
        bit3    :カーソル行にアンダーラインを表示させる．
        bit4    :カーソル行に縦のストライプを表示させる．
        bit5    :カーソル行以外は，青色を消す（補色の黄色になる）．
        bit6    :カーソル行以外は，赤色を消す（補色の水色になる）．
        bit7    :カーソル行以外は，緑色を消す（補色の紫色になる）．
　  という感じに思えましたが？

　N.Myaaさんが近いかも。
　旧８とかＮＴ系Windowsとか９５系とか、色々ありそう、、、。

変数の機能は数字よりもビットのほうがわかりやすいかも。

変数　　　　　　　内容(Du+の条件下で、)
av0　　bit0,　　なし
av1　　bit1,  　カーソル行文字色（黄色）
av2　　bit2,  　カーソル行文字色（紫）
av4　　bit3,  　カーソル行文字色（青）
av8　　bit4,  　カーソル行文字色（灰色）
av$10　bit5,  　カーソル行背景色（青）
av$20　bit6,  　カーソル行背景色（緑）
av$40　bit7,  　カーソル行背景色（赤）
av$80　bit8,  　カーソル行背景色（灰色）

av$70　bit7+6+5 カーソル行背景色（高輝度灰色）(赤+緑+青)
av$90　bit8+5 　カーソル行背景色（高輝度青）  (灰+青)

こんな感じでしょうか。
あとはこれらの組み合わせということで。

＃うう、やっぱり下位8ビットしか使っていないみたい。ぼけたなぁ。

> すなわち、文太さんの実験結果の通り、０〜１５の値と色の並びがあたかも反転しているかのようです。

おそらく反転させているんでしょうね。ただ、文字色と背景色を4ビットで
纏めているところに無理があるので矛盾が出ているのでは。

> 最下位４ビットを反転させるだけならアセンブラで５行程度だと思うのですが、
> なぜ放置されたのだろう。気づいていなかったのかな。

そんなに簡単なのかなぁ。と思い、ようやくソースを見てみました。
DSEG.MAP でavを検索

216	atrucsr		dw	08h		; av

VZKのソースでatrucsrを検索

SCRNIBM.ASM : 2231行目から

;--- Under line cursor ---
;-->
; DX :cursor x,y
; CL :length

	public	undercsr
undercsr proc
	test	word ptr dspsw,DSP_UNDER	; du

中略

	mov	ah,atrucsr	; av

中略

	or	es:[di],ah

中略

	not	ah

中略

	and	es:[di],ah


さて、この辺の論理演算がヒントのようですが、今の私には難しい。
皆さん、この夏休みの自由研究としてやってみませんか。(^^;

> xor  ah,0fh
> だけです。

うーむ、実際のソースは複雑でどこに入れるかもわかりません。
ちょっと長いですが、ソースを貼りますので見てもらえますか。

undercsr proc
	test	word ptr dspsw,DSP_UNDER	; Du
	jz	ucsr9
	call	issilent
	mov	ax,dx
	xchg	dx,ucsrpos
	push	cx
	xchg	cl,ucsrlen
	cmp	dx,ax			; カーソル位置比較
_ifn e					; カーソル位置が同じなら
	push	ax
	mov	al,FALSE		; al=0
	call	ucsr1			; すぐ下をcallしている?
	pop	dx
_endif
	pop	cx
	mov	al,TRUE			; al=1
ucsr1:	tst	dx			; カーソル位置が同じなら
	jz	ucsr9			; 何もしない
	call	mkwindp			; Make screen pointer from x,y
	call	vrestore		; 画面の更新
	mov	ah,atrucsr		; ah=Av
	test	ah,atrtbl		; ##156.93   ah と An を比較?
_ifn z					; 違っていたら
	xor	al,1			; alが1なら0に、0なら1にする
_endif
	inc	di
	push	es
	mov	es,dsp.@seg
	clr	ch			; xor ch,ch (ch=0)
	push	cx
	tst	al			; = or al,al (al=0?)
_ifn z
  _repeat
	or	es:[di],ah		; csratr or ah
	inc	di
	inc	di
  _loop
_else
	not	ah			; ahのビット反転
  _repeat
	and	es:[di],ah		; csratr and ah
	inc	di
	inc	di
  _loop
_endif
	dec	di
	call	vrefresh_a		; カーソル行以降画面更新?
	pop	cx
	pop	es
ucsr9:	ret
undercsr endp

暑さのせいか、いろいろ間違えていたみたいです。

> > 	test	ah,atrtbl		; ##156.93   ah と An を比較?
> > _ifn z					; 違っていたら
　　　　　　　　　　　　　　↓
	test	ah,atrtbl		; ##156.93   ah と An のビット積
_ifn z					; Anのビットと一致していたら

ここはこうだったですね。つまり、文字色Anが15なら下位4ビットがすべて
立つので、Avも同じ状態の時に条件が成り立つと。

> であるならば、ここに元からあるxorの次の行ぐらいに
> > > xor  ah,0fh
> これを入れてみたらどうでしょうか。

うまくいきませんでした。
考えてみたら、不完全？な反転処理の中に反転処理を一つ埋め込んでも
問題は解消されないですよね。問題はもっと複雑だと思います。

ということで、ソースの問題はこれ以上は板違いなので、続きは
うちの掲示板でやることにします。


色で疑似アンダーラインを表現しているので、グラフィカル
アンダーライン、略してグラアンダラインか。

よーし、グラアンダラインを制覇して、俺は改造王になる！！　（嘘）