;;　,,,,　　 ,,　　　 ,,　　　　;;　　　　　　　　 ;;　　　
　''';;'''　　　 ,;'　　　 ;;　　,,,,;;,;'' ';,　 ;;　,,;;,,,　 
　　 ;;,;;,,　　 ;;　 ''''';;'''　　 ;;　　　 ''　;;;'',;'　';; 
　,,;;; ;; ';;　 ;;　　　　;;　　　 ,;;''''';,　 ,;;,　;;　　 ;;
 ,;' ;;;;　　;;　;;　　　　;;　　 ,;';;　　　;;　;;';,;;　　　;;
 ;;　;;;　　,;'　';,　　　;;　　 ;;　;;　　　;;　;; ,;;,　　 ;; 
　''';; ,,,;''　　''　 ,,;'　　　';,,;'　,,,;'　　'''　　,,;''　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　 ,,,　　 ,,,　　 ,,,　　 ,,,　　　　　,,,,,,,,,,,,,,,,　 ;;　　　　　 
 ,;' ';, ,;' ';, ,;' ';, ,;' ';,　　　　　　　 ;;　　　　 ;;''';;'''''' 
 ''　 ;; ;;　 ;; ''　 ;; ;;　 ''　　　　 ,,,,,,;;,,,,,, ,;'　　;;　　　 
　　 ;;　;;　 ;;　　 ;;　;;;';,　　　　　;;　　;;,　 ;;　　　　;;　　　 
　 ,;'　 ;;　 ;;　 ,;'　 ;;　 ;;　　　　 ;;　,;' ';, ;; ''''''';;'''''''
　,;'　　;;　 ;;　,;'　　;;　 ;;　　　　 ;;'''　　 '';;　　　　;;　　　 
 ;;,,,,,　';,;'　;;,,,,,　';,;'　　　　　;;　　　　　;;　　　　;;　　　 
　　　　　　　　　　　　　　　　　　　　 ''　　　　''''　　　　''　　　 

2026年　元旦
みなさま、今年もよろしくお願いいたします。

難しい話などは明日以降ということで。(^^;

　念のためですが、konnoさん、以下を見たことありますよね？

C:\TOKIWA\LIB>dir

CIRCLE   TLB           551 01-11-04    9:55
CONTIME  TLB         1,297 01-11-04   10:02
EXTCONS  TLB         1,602 01-11-04   10:05
MGGRAPH  TLB         2,686 01-11-04   22:02	;-->
MGXCONS  TLB         1,440 01-11-04   10:10
RANDOM   TLB         2,077 01-11-09   14:34
VGAGRAPH TLB         1,907 01-11-04   10:17


----- from MGGRAPH.TLB -----
***** Mobile Gear Graphic bakebakebake TBC *****

Subroutine DispMode(X)			;BIOSコールだ
        Integer X
        Value X
        /Byte &CD,&10,&C3		;インライン・アセンブラではないけど
SubEnd					;/Byte, /Word は、sample版でも
					;残した、と.docにありましたよね
SubRoutine Get_Mode
        /Byte &B4,&0F,&CD,&10		;data/read文では、コンパイルできない
        /Byte &B4,0,&C3			;だろうと想像されますが、このやり方
SubEnd					;（Ｖｚそっくり）なら、仕様なので
					;ぜったいコンパイルできますね
----------------------------

　いちおうこの不如意を簡単に説明すると、僕は結局、Tokiwa Basic Compilerを
３カ所から落としました。１つはベクタ、２つはロシア・サイト。３つとも
sample版だったけど、中身は、微妙に違ったので。

　僕が上をちゃんと使えるのは、遠い日の彼方であることは間違いないですが。

　万が一「見たことない」ということなら、「見る」場所をお知らせします。
　いろいろゴチャゴチャになったしまった、ということです。

　bannerv.def、その他はまだまだ、、、。
　とりいそぎ。

> 　念のためですが、konnoさん、以下を見たことありますよね？

ざっとは見ていますが、私は文太さんとの意思疎通がうまく出来ていない気がして。
とりあえず TBCの現況を書いてみますね。

TBCは普通のBASICにある TIME$なども無いので、マシン語で作ってみました。

20000
*  time ax$2c00,&i($21)h=cx/256,m=cx-h*256,
*integer  n,h,m,s
*   マシン語の内容 
    /byte &b4, &2c
    /byte &cd, &21
    /byte &b4, 0  
    /byte &8A, &c5
    value = h     
    /byte &8A, &c1
    value = m     
    /byte &8A, &c6
    value = s     
    h=h mod 24
    m=m mod 60
    s=s mod 60
    print#0 %2I h; ":"; %2I m; ":"; %2I s
*  マシン語     アセンブラのソース
*  B8 2C00	mov	ax,2c00h
*  B4 2C	mov	ah,2ch
*  CD 21	int	21h
*  B4 0		mov	ah,0
*  8A C5	mov	al,ch	h
*  8A C1	mov	al,cl	m
*  8A C6	mov	al,dh	s
return

これを作った後で、contime.libに同等のサブルーチンがあるのに気が付いた次第です。
subroutine time
なんてこったい。(-_-;)
でもこれが出来たので、prime2.bas 素数表示の移植が出来ました。

#txt:prime2tk.lzh   7098bytes   by TBC ソース付き

これを 1 オプション付きで起動して 65550 を入力します。

>prime2tk.exe 1

Prime Number (20 to 100000 ) ? 65550

 0: 0:13
Prime Number = 6545 

DOSVAXJ3 や MS-DOS Player はこういう表示になるのですが、VTDOSは

 0: 0:17
Prime Number = 6555 

こうなります。VTDOSだけ 65536を超えるとおかしくなるようです。
エラー処理が無いのでこの状態になったり中断したりするとメモリを壊すかもしれません。
DOSエミュ窓が消滅しても良い状態で試してください。

386コードなどが紛れているのか、VTDOSかソースに問題が有るのか、わかりませんが
現状ここで躓いてしまっています。

konnoさん

　意志疎通できてないの、ごめんなさい。僕のせいです。
　僕のほうはですね、konnoさんのことは分からないのですが、konnoさんが書いて
くれたことからは、とっても多くを学んでいます。感謝です。
　アセンブラソースまで、ありがとうございます。


　で、MS-DOS 6.2V（純ＤＯＳマシン）で、prime2tk.exeを実行したら以下の
ようになりました。

--------------------------------------------------------
C:\WK>prime2tk.exe 1
コマンドラインの引数  1 1 
    ****  Prime Number Count Ver.240304  **** 
opt  1  0 
 1 
Prime Number (20 to1000000) ? 65550
 0:26:58

Number.65550
 0:26:58
 0:26:59
Prime Number = 6545 
--------------------------------------------------------

　原因は、VTDOSの方なんじゃないですか、という感想です。
　tbc.comでコンパイルしたのなら（すいません、してません）、386コードは
紛れ込まないのではないですか？

> 　で、MS-DOS 6.2V（純ＤＯＳマシン）で、prime2tk.exeを実行したら以下の
> ようになりました。
> Prime Number (20 to1000000) ? 65550
>  0:26:58
> Number.65550
>  0:26:58
>  0:26:59
> Prime Number = 6545 

実機で試してみてくれたのですね。もしかして処理時間1秒？　凄いですね。
って、あれ？　もしかしたら古い方をUPしてしまったようです。(>_<)
うう、差し替え版をUPしても古い方しかダウンロードできない。(>_<)
しかたがないので名前を変えました。

#txt:prime2t2.lzh   7098bytes   by TBC ソース付き

こちらは経過秒数で表示します。違いはそれだけかな。(^^;

> 　原因は、VTDOSの方なんじゃないですか、という感想です。
> 　tbc.comでコンパイルしたのなら（すいません、してません）、386コードは
> 紛れ込まないのではないですか？

私もVTDOSの可能性を疑っているのですが、まだ原因が特定できていないのです。

konnoさん

　いま僕は何も考えていません。
　もしなにかお役に立つことがあるのであれば、と盲目のまま「作業」だけ
をしました。
　以下はどうでしょうか？　もちろん、純ＤＯＳ環境です。

------------------------------------------------------------------
C:\WK>dir prime2tk.exe
PRIME2TK EXE         6,374 26-01-07   21:21
; これでいいいですよね？　prime2t2.exeではないですが。

C:\WK>prime2tk.exe 1
コマンドラインの引数  1 1 
    ****  Prime Number Count Ver.250504  **** 
opt 1:画面+file  2:カウント  12:カウントなし+file　99>:  opt=  1  0 
Prime Number (20 to 100000 ) ? 65550

Number.65550
 1:27: 0
 0: 0: 0
Prime Number = 6545 
------------------------------------------------------------------

> PRIME2TK EXE         6,374 26-01-07   21:21
> ; これでいいいですよね？　prime2t2.exeではないですが。

はい、差し替えるつもりだったので中身は同じ名前のままなのでした。

> Number.65550
>  1:27: 0
>  0: 0: 0
> Prime Number = 6545 

わお！　ゼロ秒とは、流石に最近のPCのリアルDOSは速いですねぇ。うらやま。
これで他のBASICの移植もできる手ごたえは出来たのですが、まさかVTDOSで躓くとは。
実は以前、特定のアセンブラ命令がVTDOSで反応しない？動かないような気がしたのですが
AAA だったかなぁ。？
その時はそういうこともあるのかなくらいに深く考えなかったのですが、もしかしたら
いくつかの命令が実装されていないということはありうるのでしょうか。

konnoさん

　今晩、少しは手を動かして、まともに考えてみたいと思っています。
　だいたいにおいて、「素数」を見つけ出す計算式を知らないし、、、。
　素数と無縁の人生をおくってきたド文系。

>>  0: 0: 0             ;ココを見てる？
>> Prime Number = 6545  ;出力の読み方が分からない、、、。
>わお！　ゼロ秒とは、   ;「ココ」のことですか？
                        ;「ここまでの範囲で一番大きな素数を示せ」ですよね？
                        ;それとも、「6545」個ある？

>流石に最近のPCのリアルDOSは速いですねぇ。うらやま。
　「最近のPC」ではまったくありません。２０年以上前のＭＢとＣＰＵ
です。WinMEにはちょうどいい、WinXPでは遅すぎなマシン、というか箱に
入っていないので、板ですね。元ソーテックのマシンだったと思います。

　この年末ぐらいから腐海の整理に着手し、あ、このＨＤダメになってる
なんてのがあって、またまたヤフオクしてしまってます。
　うん、運がよくて鑑識眼があれば、だいたい１万円で組めますよ。

　「最近のPC」で「リアルDOS」機が組めると思っているkonnoさんに、要らぬ
入れ知恵をば。

　（１）ＩＤＥのＨＤが動かせるＭＢ
　（２）ＦＤスロットのあるＭＢ
　（３）（いろいろ面倒なので）ＶＧＡ出力のあるＭＢ
　（４）（いろいろ面倒なので）ＰＳ２キーボードが使えるＭＢ
　（５）コンデンサの潰れていないＭＢ

　だいたいこんなところかな。（ＤＯＳで）うまくＵＳＢが使えるとなお良い、
ついでにＬＡＮチップも載っていると、やっぱりいろいろいい、ですかね。
　当時の廉価版のマシン／ＭＢが、高性能でないけど、全部載ってる、というもの
になります。Micro-ATXの小さいのがＤＯＳには合ってると僕は思う。拡張とか
ないし。
　シリアル／パラレル・ポートもデータ通信用に使えます。ＤＯＳは過去の資産が
いっぱい！　最後がCD-ROMドライブ。いまはＦＤで足らしてしまってますが。

　WinME/XP 時代のものになります。これ以前だともうクラシックカー並みの
コレクターズ・アイテムになっているようです。まともに動くものを探すのも
大変そうだし。
　こんな将来を見越していたわけではないですが、WinME/XP時代に、「ＥＭＳが
とれない！」騒ぎのなか、腐海資源および腐海技術（知識）をためこんでおいて
よかったな、とは思っています。

　あ、最近気づいたのですが、IBM/PC一辺倒でなかった日本は、ある意味、
エミュレータ大国になっているようです。VFICとか、知ってますか？

追伸：
　すぐ動けないのですが、#12664 の、/byte文の使い方サンプルは、超嬉しかった！
ありがとうございました。

追伸２：
　BIOS ROM (Vector Tableなども)を覗く、ベーシック・ソースがあって、
うはうはしたのだけど（あくまでIBM/PC用）、TBC移植に失敗しています。
ＴＢＣ、いろんなものがないのね！　TIME$みたく自分で作るの？
　コンパイル・エラーがいっぱい出るの、、、だいぶ減らしたのだけど、、、。

　これで、VTDOSと実機の違いが分かるかもしれない、、、とか年末から思っていた
のですが、、、。フォントのありかが分かれば、、、to banner(v).def!
　ま、こんなのがムニャムニャしてて、「意思疎通」できなかった原因なのでは
ないでしょうか？　僕にも秘め事があり、、、。

追伸３：意味フメでしょうが、Ｖｚって、いいわぁ。

> >>  0: 0: 0             ;ココを見てる？
> >> Prime Number = 6545  ;出力の読み方が分からない、、、。
> >わお！　ゼロ秒とは、   ;「ココ」のことですか？

げげ、これ、こちらで試してもゼロ秒でした！　UP前にソースを弄ってました。
実はマシン語の最後に C3 ret が無いのはまずいと思って追加したのでした。

    /byte &8A, &c6, &c3
　　　　　　　　　　↑これを入れると駄目みたい
これを取ったら正常になりました。
エンバグしたのを上げてしまってすみませんでした。m(__)m
再UPします。

#txt:prime2t6.lzh   7098bytes   by TBC ソース付き

> 　「最近のPC」で「リアルDOS」機が組めると思っているkonnoさんに、要らぬ
> 入れ知恵をば。

ありがたいです。WinMEかXPなら実現できそうですね。

> 　あ、最近気づいたのですが、IBM/PC一辺倒でなかった日本は、ある意味、
> エミュレータ大国になっているようです。VFICとか、知ってますか？

FDイメージの読み書き変換でしたっけ。
そういえば実用的なDOSエミュを知ったのはPC98エミュが最初かと思っていましたが
DOS時代からJ3100エミュレータの じぇいさんなどもあり、お世話になりましたね。
DOS/VもIBMPCの日本語エミュレータとも言えるし。

> 追伸３：意味フメでしょうが、Ｖｚって、いいわぁ。

やはり一番手に馴染む道具ですし、そもそももう他のエデイタが使えない体に。(^^;

konnoさん

>>今晩、少しは手を動かして、まともに考えてみたいと思っています。
　あ、またしても、意図せず嘘をついてしまった、、、。
　これからです！

>げげ、これ、こちらで試してもゼロ秒でした！　UP前にソースを弄ってました。
>実はマシン語の最後に C3 ret が無いのはまずいと思って追加したのでした。
　できたら、ここを一生懸命解明したい、、、。

　つまらぬことを。ここだけ信用していいです。

>txt:prime2t6.lzh   7098bytes   by TBC ソース付き       ;# deleted
　「by TBC ソース付き」は変です。by は、「誰々によって」の意味。

　VWX by M.Ishida(wing)
　vkeyc by H.Takahashi
　Vz Editor arranged by Taka+Danny+H.konno
　どれも、「誰々によって」の意味。

　「ソース付き」は、

>txt:prime2t6.lzh   7098bytes   with TBC ソース         ;# deleted
　がいいと思います。


>> エミュレータ大国になっているようです。VFICとか、知ってますか？
>FDイメージの読み書き変換でしたっけ。
　です。こんなに色々あるの？　と驚いた。
　一部うまくいき、一部うまくいかない、、、。1.2MB FD のハード＆メディア
の壁というのもありまして、、、。720MB FDって高いんですよ、昨今。

>DOS/VもIBMPCの日本語エミュレータとも言えるし。
　そういう考え方もありますか。でもエミュレートは真似して（たぶん）ゼロ
から作るのでしょう。DOS/Vは、足してるだけじゃないですかね。

>> 追伸３：意味フメでしょうが、Ｖｚって、いいわぁ。
>やはり一番手に馴染む道具ですし、そもそももう他のエデイタが使えない体に。
　後悔はありません。高津さんの気持ちはよく分かる、よく皆（みんな）離れて
いけたものですよね。ふつう、そうせざるを得なかったのでしょうけど。

　色々なことの言い訳。
　腐海整理をして、ほんのすこしだけアソコを整理してモノをこちらに運んだら、
こちらに菌が蔓延してしまい、メインデスクのまわりが腐海化しています。年末から
増殖していたらしい、はやく気づけよ！
　少しこいつと戦います。

> >げげ、これ、こちらで試してもゼロ秒でした！　UP前にソースを弄ってました。
> >実はマシン語の最後に C3 ret が無いのはまずいと思って追加したのでした。
> 　できたら、ここを一生懸命解明したい、、、。
> 　つまらぬことを。ここだけ信用していいです。

信用してはいけません。おかしい・・・時間がループしているみたいな。

> 　「ソース付き」は、
> >txt:prime2t6.lzh   7098bytes   with TBC ソース         ;# deleted
> 　がいいと思います。

添削ありがとうございます。英語は永劫にわからないのです。

> 720MB FDって高いんですよ、昨今。

うーむ、スーパーフロッピーかZIPかMOか？　検索してしまいました。(^^;
同じ容量のはないようですねぇ。(^^;

> DOS/Vは、足してるだけじゃないですかね。

まあそうですが、DOSエミュもWindowsのシステムに足しているとも言えそうな気が。

> 　腐海整理をして、ほんのすこしだけアソコを整理してモノをこちらに運んだら、
> こちらに菌が蔓延してしまい、メインデスクのまわりが腐海化しています。年末から
> 増殖していたらしい、はやく気づけよ！
> 　少しこいつと戦います。

DOS黒いやつらの死骸にやがて胞子が芽を出して世界は腐海に呑まれてしまった・・・
世界で最も邪悪なVZ一族を掘り出して薙ぎ払おうとしたが、腐ってやがる。遅すぎたんだ・・・