一括表示

　別に無理をしてお付き合いいただくにはおよびません。
　僕は、知ーらない、派なので。困っているわけでもありませんし。

　ただ、何しろ仲間うちの人数も限られているし、こんなことを気にする人は
世間で決して多くはないので。
　VTDOSの挙動の不思議というか、不具合というか、と僕が考えている件です。

http://www.vector.co.jp/soft/dos/util/se016215.html

　このfo.comを実行してみてください。たぶん、ファイルができないと思う。

　ソースを見てみてください。変なことをしなければ（INT24Hのお世話なるというか、
お世話させてしまうというか、がなければ）ふつうにファイルが作れるはずです。
　なぜできない？　ソースがバグってるとも思えないんですよね、かなり単純な
プログラムなので。
　純ＤＯＳと WinME では問題なくファイルが作れます。


----- fo.doc -----
●エラーレベルは、
ファイルオープン時　　　０５ｈ
引数無し時　　　　　　　０２ｈ
パス無し時　　　　　　　０３ｈ
既にファイルがあるとき　５０ｈ
INT24Hが介入したとき　　００ｈ
-------------------
　なお、これは、fo.com が出してくれるerrorlevelではなく、


-------------------------------------------------------------
	MOV	DX, OFFSET DTA+2	;ファイル名オフセット
 	XOR	CX, CX			;普通属性
	MOV	AH, 5Bh			;ファイル創製　不重複
	INT	21H
-------------------------------------------------------------
　が出す、5Bh, int 21h のエラーコードです。


　ご報告でした。
　もし僕のオペレーションミスとかだったら、ご指摘に感謝いたします。
Please accept my apology in advance. （あらかじめご容赦ください）

> 　このfo.comを実行してみてください。たぶん、ファイルができないと思う。
> 　ソースを見てみてください。変なことをしなければ（INT24Hのお世話なるというか、
> お世話させてしまうというか、がなければ）ふつうにファイルが作れるはずです。
> 　なぜできない？　ソースがバグってるとも思えないんですよね、かなり単純な
> プログラムなので。
> 　純ＤＯＳと WinME では問題なくファイルが作れます。

確かにVTDOS ではうまく動かないみたいですね。
ソースの冒頭部分を引用すると

CODE	SEGMENT				;.COM モデルです。
	ASSUME	CS:CODE, DS:CODE, SS:CODE	
	ORG	5CH
FCB	DB	24H DUP(?)
DTA	DB	80H DUP(?)		;DTA 領域を確保
START:

ここを見ると、古いやり方なのかなぁ、と感じました。
これがあっているかはわかりませんが。

アセンブラ 〜MS-DOSの世界〜
http://programmer.main.jp/assembler2/assembler10.html

この中の
4-5. 練習問題1
4-8. ファイル作成
のソースをアレンジしてやってみました。


CODE	SEGMENT
	ASSUME	DS:CODE,CS:CODE,ES:CODE,SS:CODE
	ORG	100h

START:
	mov	bx,80h          	;↓ファイル名をASCIIZにする
	add	bl,[bx]
	inc	bx
	mov	[bx],byte ptr 0 	;↑ここまで

	mov	cx,80h          	;↓ファイル名の先頭を求める
	mov	di,81h
	mov	al,' '
	repz	scasb
	dec	di
	mov	dx,di           	;↑ここまで

	mov	ah,5Bh			;5Bh 新規ファイル作成
	xor	cx,cx
	int	21h             	;新規ファイルオープン

	mov	ax,4c00h
	int	21h             	;終了

;	ENDS
;	END	START
; 一部のコンパイラでは、
CODE	ENDS
	END	START
;と記述しなければいけないようです


これをアセンブルして、引数付きで実行すると、VTDOS で作成できました。
普通のソースなら動くようです。
FO のソースは普通（一般的）ではないのではないかと感じます。
わかってないですが。

> もし、この２つのやり方で結果が違うのだとしたら、VTDOSのバグ報告をしてもいいかもしれない。
> VTDOSのエミュレーションが不完全、という意味で。

うーん、私はもぐらさんのソースの書き方に違和感を覚えたんですよ。何かおかしい気がすると。
調べたらわかったような気がします。

> あと、konnoさん、ほかにもMS-DOS PlayerとかDOSVAXだとかをお持ちだと思いますが、
> そちらのほうでもぐらさんのオリジナルは動くか、というところも気になりました。

FO.COM やってみました。
MS-DOS Player は、実行後、1分ぐらいフリーズしてからプロンプトが戻りました。
やばい！ 何かループのコードを実行してるみたい！！

結果は新規ファイルは出来たのですが、私の懸念が当たったように思いました。
私の懸念とは、MSDOS プログラマーズハンドブックを見ると

ＯＲＧ 疑似命令
プログラムの開始アドレスを指定します。ＣＯＭファイルは１００Ｈ番地からはじめるという約束がありますから、
プログラムの先頭は必ず ＯＲＧ＝１００ にしなければなりません。

とあります。さらに、80H からの領域を DTA の自前データ領域として指定しているようですが

（この領域を）DTAとして使うと パラメータの文字列は破壊される

と付録ページに書かれています。
つまり、モグラさんは、DOSが自動作成した領域を自分のプログラム領域として上書きしているのです。

	ORG	5CH
自前のプログラムをここからロードする、という意味になるのではないでしょうか。
自前のDTA領域も範囲がよくわからないし、変なコードで上書きされている気がします。

そこで、このソースにちょっと追加してみました。

	ORG	5CH
FCB	DB	24H DUP(?)
DTA	DB	80H DUP(?)		;DTA 領域を確保

	ORG	100H			;★これを追加

START:

これでアセンブルして実行すると、MS-DOS Player は、実行後直ぐにプロンプトが戻りました。
VTDOS はまだ駄目みたいですね。
多分、自前の FCB や DTA 領域を止めればいいのでは。

DOSVAX は、オリジナルも改変のも普通に正常処理出来ました。

konnoさん

>この本であっているはずです。
>ISBN4-87148-778-4
　ありがとうございました。

> 　これも見つかりませんでした。
>これは私も見つけるのに難儀しました。

　付録！　青い厚い紙の Programmer's Reference Card　ですね。

「＊４　ＤＴＡとして使うとパラメータの文字列は破壊される。」

　とある。

　ただ、この＊４は、図を再度みていただけると分かると思うのですが、

ＤＴＡの構造

文字数　文字列　　　　　　０Ｄｈ　　この後の領域を指してますよね。


　そして、konno版 fo.com でも、同じところを書き換えてます。

　分かってない遠い記憶なのですが、「ねこさんのファンクションコール」？
ＤＴＡって破壊されるものだから、最初の状態が欲しかったら、ちゃんと自前で
保存しときなさいよ、というものなんじゃないでしょうか。

　で、fo.comの場合、ＤＯＳにロードしてもらってＰＳＰ＆ＤＴＡを作って
もらってそこをfo.comが勝手にいじって、はい、お終い、でいいのじゃないのです
かね？

　ただ、org	100h は常にいると。

　明日、８冊をいちおう調べてみます。

　お付き合い、ありがとうございます。

　これから８冊の書籍にあたりますが、
org		100h
　は、なければいけないものなのだ、と以下から学びました。
　計算が合っていればいいというものではない、と。

from main.asm

;--- PSP defs. ---

		org	02h
maxseg		label	word

		org	16h
parentpsp	label	word		; ##153.39

		org	2Ch
GDATA myenvseg,	label,	word

		org	80h
GDATA cmdln,	label,	byte

		org	100h
entry:		jmps	entry1
vzversion:	db	"VZ1.60 ",0,EOF
entry1:		jmp	init
		dw	0
GDATA nm_vz,	db,	<'VZ',0,0,0,0,0,0,0>
GDATA hardware,	db,	0

		org	120h

　すいません、ここに置かせてください。

------------------------------------------------------------------------------
main.asm   419: GDATA tmpbuf3,	dw,	WD*2	; DTA,smooth,&?()
std.inc     50: F_SETDTA	equ	1Ah	; Set Disk Transfer Addr
std.inc     53: F_GETDTA	equ	2Fh	; Get Disk Transfer Addr
vz.inc     744: ;--- DTA record ---

------------------------------------------------------------------------------
main.asm
;--- Read option ---
;<-- CY :error
readopt	proc
	mov	si,offset cgroup:cmdln +1

------------------------------------------------------------------------------
    The pspCommandTail field is also used as the default buffer pointed to by the
default disk transfer address (DTA). Unless a program explicitly changes the DTA,
the system uses this area as a buffer for file information returned by
Find First File (Int 21h 4Eh) and Find Next File (Int 21h 4Fh), as well as
for all FCB-type read and write operations.
(from MS, _MS-DOS Programmer's Reference_, p.96)

------------------------------------------------------------------------------
DTA
    The same 128 bytes that serve as the Command Tail Buffer also form the default
Disk Transfer Area (DTA) when a new process is created.  If the program does not
select some other DTA by using the documented DOS function to do so, all disk I/O
will use this space as a buffer.

    Naturally, this means that the command-tail information placed there by the loader
will not survive the first disk actions of the program.  If that information
will be needed later in the program, either it must be copied to some other area
before the first disk actions take place or some other DTA must be set up for
the disk to use.  Defensive programmers should do both, just to be safe.
(from Terry Dettmann, _DOS Programmer's Reference_, 2nd ed. QUE, p.862)

------------------------------------------------------------------------------
　はやい話が、壊れるからね、そこ、ということでしょう。
　どっちでもいい、という結論なのですが、"pspCommnadTail field" とか "Command Tail
Buffer" と呼ばれています。つまり、０Ｄｈのあと。ただ、文字数、コマンド文字列も
壊されるのだろうな、と思っています。
the Command Tail Buffer also form the default Disk Transfer Area (DTA)
「ＤＴＡをなす、ＤＴＡを構成するＣＴＢ」とも言ってますから。

　過去ログで「ＤＴＡ」でグレップすれば……。もういいでしょう。


------------------------------------------------------------------------------
『ＭＳ−ＤＯＳシステムコールハンドブック』　河西朝雄　著　　ナツメ社

　過去ログ（PK/DC）で、こっちはものすごく多く言及されていますが、あの「分厚くて
真っ黒な本」＝『MSDOS プログラマーズハンドブック』は、それほど言及されていない
ようです。河西先生の本、これ＋『MS-DOS プログラミング技法』（ナツメ）、
素晴らしいです。

　僕は、これを買った日の絶望をよく覚えているのです。かなり貧しかったときに
『勝手にＭＳ−ＤＯＳ』のあとに、なぜか買ってしまった。\3500 を捨てちまったよ、
ひぇ〜、とある場所で感じた光景が今でも思い浮かびます。生協、１割引の時代。
　ほんと、分厚くて重くて真っ黒な本。使う日がくるとは……。

　皆さまのご協力（？）、ご関心に深く感謝しております。m(_B_)m

> 　同内容ですが、文言が違うので、同じ書名の違う本かな、と考えています。
> 　著者とか出版元とかお教えいただけますでしょうか。

うう、タイプが面倒でネットの文章を張り付けたのがバレたか。
＃いや、まだだ、たかがモニターをやられただけだ。

> 　でも、本当に破壊されるのなら、もぐらさんオリジナルコードでどの環境でも、fo.comは
> 機能しませんよね？　と考えました。

破壊とは、プログラムによって改変されうる、という意味かもしれませんね。

> fo.com, 純ＤＯＳとWinMEでは機能するのです。

気になったのでソーサーで逆汗してみました。


psp_cmd_size	equ	80h			; (30F4:0080=0)
data_2e		equ	81h			; (30F4:0081=0)
data_3e		equ	82h			; (30F4:0082=0)
  
seg_a		segment	byte public
		assume	cs:seg_a, ds:seg_a
  
  
		org	100h
  
F00		proc	far
  
start:
		mov	bl,ds:psp_cmd_size	; (30F4:0080=0)
		mov	byte ptr ds:data_2e[bx],0	; (30F4:0081=0)
		mov	dx,data_3e		; (30F4:0082=0)
		xor	cx,cx			; Zero register
		mov	ah,5Bh			; '['
		int	21h			; DOS Services  ah=function 5Bh
						;  create new file, name @ ds:dx
		mov	ah,4Ch			; 'L'
		int	21h			; DOS Services  ah=function 4Ch


うーん、いいんだろうか？
この逆汗ソースには org 100h  がありますね。
バイナリをロードするときは、100H からロードするというのが大前提なのかなぁ。

このソースを見ていてずっと気になっていたのが、BX の扱いです。
冒頭で bl にサイズを入れて、次に bx をアドレスとして使っている？
bh はゼロクリアされていなければ不定のはず？

気になったので、試しに冒頭に
	xor	bx,bx			;★追加
これを追加してみました。
そうしたら、VTDOS でも新規作成出来ました。

汚れていたのは ｂｘ なんです。
org 100h は、あっても無くてもバイナリは変わらず、濡れ衣でした。
お騒がせしてすみませんでした。

純ＤＯＳでは、コマンド実行時に レジスタのクリアをやっているのかなぁ。
だとすると、ＶＴＤＯＳはそれをやっていない？
レジスタのクリアはＤＯＳの仕事で、command.com はやっていないのか？
どうなんでしょう。

>逆にいうと、konnoさんの#5007のソース冒頭で bx レジスタに 80h を
>代入している部分、ここで bl レジスタに代入していたらもぐらさんのものと
>同じ挙動になりそうです

START:
	mov	bl,80h          ;↓ファイル名をASCIIZにする
	add	bl,[bx]		; 上の行、bx -> bl へ改悪


C:\0\00FO>test
2,3,5,80, all not matching!

C:\0\00FO>test
2,3,5,80, all not matching!

　test.bat の中身は、fo2 qqq.txt, 999.txt etc
ぐちゃぐちゃになります。

　としきさん、正解です。
　課題を必死にこなしております。

や、やばい、、、

out.lst

PSP_cmd_size  equ     80h                     ; (3A25:0080=0)
PSP_cmd_tail  equ     81h                     ; (3A25:0081=0)
data_1e       equ     82h                     ; (3A25:0082=0)

seg_a         segment byte public
              assume  cs:seg_a, ds:seg_a
              org     100h
fo            proc    far
start:
              xor     bx,bx                   ; Zero register
              mov     bl,ds:PSP_cmd_size      ; (3A25:0080=0)
              mov     byte ptr ds:PSP_cmd_tail[bx],0  ; (3A25:0081=0)
              mov     dx,data_1e              ; (3A25:0082=0)
              xor     cx,cx                   ; Zero register
              mov     ah,5Bh
              int     21h                     ; DOS Services  ah=function 5Bh
                                              ;  create new file, name @ ds:dx
                                              ;   cx=file attribute bits
              mov     ah,4Ch
              int     21h                     ; DOS Services  ah=function 4Ch
                                              ;  terminate with al=return code
fo            endp
seg_a         ends
              end     start

としきさん

　すいませんが、さくっと。

　「古い」に関して、僕には何とも。

-----------------------------------------------
	ORG	5CH
FCB	DB	24H DUP(?)
DTA	DB	80H DUP(?)		;DTA 領域を確保
-----------------------------------------------
　これがそう感じさせるのだとしたら、これは、もぐらさんの癖です、としか。
　いつもコピーです。
　でも、FCBを使わなくてはならない場合というのも、あるにはありましたよね？
　間違っているかもしれないけど。

;konno wrote:
START:
	mov	bx,80h          	;↓ファイル名をASCIIZにする

;mogura wrote:
START:
	MOV	BL, DTA 		;DTA+1以降データ数＝文字数＋１

>一方、konnoさんの書き方は、別途確保してある（本当に？）
　「別途確保」はしていません。僕からすると、上は同じことをしているように思える
のですが、１６進コードは違いました。ですから、はい、もうそれやりません、と
なっています。もうちょっと実験したいのだけど。分かりやすいから。
　「別途確保」でなく、DTA をじかに書き直しています。行儀悪そうだと思ったけど、
どうせ瞬時に消えるのだからいいじゃん、と思っています。

>VTDOSのエミュレーションが不完全、という意味で。
　なんてことを最初おもったのですが、報告して直る予定はあるでしょうか。「そんなソースが
悪い」となりそうな気もする……。vz.comとvtdos.exeは、似ている。
　「そっち行かないほうがいいよ」マークだけが大事。

>そして、INT24Hが介入するって、どういうときなんだろう。
>FDDにメディアが入っていないとき、かなぁ。
　あとは、ＣＤロムドライブに書こうとしたとか？

----------------------------------------------------------
@int24h 					◇★
F_その他の割込
　int24h 重大エラーの抜出しアドレス
　　標準入出力ハードエラー発生時等，DOS は重大エラーフラグ
　　を立て，このファンクションのエントリアドレス（PSP:12h 
　　にコピー）に制御を渡す。int24h は以下を受け，AL に動作
　　コードを返し，IRET し DOS のエラールーチンに戻す。
　　DOS が発行するもので，ユーザーが直接呼んではいけない。
----------------------------------------------------------
　こんな感じ。

>> 　なお、これは、fo.com が出してくれるerrorlevelではなく、
>それはおかしい。
>もぐらさん作成のほかのツールでもエラーレベルを返すものは多かったはずなので、
　よくご存知で。はい、僕も（不注意にも）最初そのコードが入っているとばかり……。
　だから、バッチで使える「errorlevelでない」と書いたのです。あのfo.docを読んだら、
そう勘違いしても仕方ないかもしれないから。

>エラーレベルではないと文太さんが考えた理由
　ソースにそのコードがないからです。ちゃんとバッチで使えるerrorlevelを入れる場合、
最終処理で、al に番号を入れるものなのです。すると、

	mov	EL, 0ffh		;エラーレベル255
	mov	al, EL
	mov	ah, 4ch			;終了
	int	21h

　のような具合。これは、別のもぐらさんツールのソースです。
　繰り返しになりますが、前に書いたとおり、fo.docに書いてある「エラーコード」と
いうのは、5Bh, int 21h のエラーコードです。これを外に出すコードを入れないと
取り出せません。それはやりませんでした。上みたいなのを加えればいいのだけど。

>ファイル作製に関する、違うファンクションというのがあったかと思います。
>3BHだったか3DHだったか、もはや覚えていませんが。そちらのファンクションを
>使っても、konnoさんおっしゃるところの「古いやり方」だとファイルが作れないか
>どうか、というところ

mogura wrote:
MOV	AH, 5Bh			;ファイル創製　不重複

>>　int21_3Ch ハンドルで作成  F_CREATE
>>　ハンドルを作成してファイルをオープン。
　　同名ファイルがない場合は新規作成するが，すでにある場合
　　はそのファイルの大きさを 0 にする。　◆<===
　　（int21_5Bh ではエラーが返る）　　　 ◆<===
　　返り値　NC-->AX = ファイルハンドル番号
　　　　　　　　 (05h 以後が返る)
　　　　　　CY-->AX = エラーコード
　　　　　       03h,04h,05h

　あ、これが「古い」という理由？
　そして、ありがたいことに、「不重複」の意味が分かりました。
　いちおう、こっちでもやってみますね。問題は、konnoさんご指摘のとおり、前半部分
だと思うけど。
　うーん、なかなか深いものですねぇ。「違うファンクション」ヒットです。でも、もぐら
さんにも狙いがありました。

　もぐらさん、やっぱり色々と模索・格闘してましたよ。fo.docとか読んでみて。いろいろ
試行錯誤してたんだなぁ、と。今回は、ファイルを小さくすることに執念を燃やしていたの
でしょう。

としきさん

　リクエストにはだいたいお応えしました。最初、サクサクだったのに……。
　ただ、エラーコード＆バッチで、七転八倒。七転バッチですよ。

-----------------------------------
C:\0\00FO>fo2.exe t1.txt		;konno版, exe　@vtdos
					;できるのね
C:\0\00FO>dir t1.txt
2022/09/06  16:30                 0 t1.txt  <-- file created
-----------------------------------

-----------------------------------
C:\0\00FO>fo.exe t2.txt			;mogura版, exe　@vtdos

C:\0\00FO>dir t2.txt
ファイルが見つかりません
-----------------------------------

-----------------------------------
C:\0\00FO>fo.com t3.txt			;mogura版, com

C:\0\00FO>dir t3.txt
ファイルが見つかりません
-----------------------------------

-----------------------------------
C:\0\00FO>fo3.exe t4.txt		;toshiki版（3Ch）, exe
					;5Bh -> 3Ch @vtdos
C:\0\00FO>dir t4.txt
ファイルが見つかりません
-----------------------------------

-----------------------------------
C:\0\00FO>fo3.com t5.txt		;toshiki版（3Ch）, com
					; @vtdos
C:\0\00FO>dir t5.txt
ファイルが見つかりません
-----------------------------------

-----------------------------------
C:\0\FOX>fo f3.txt			;sucess as expected
					; @ dos6
C:\0\FOX>dir f3.txt
F3       TXT             0 22-09-06   19:37	;長い時間やっとるのぉ？
-----------------------------------

-----------------------------------
C:\0\FOX>fo3 f4.txt			;toshiki版　@ dos6

C:\0\FOX>dir f4.txt
F4       TXT             0 22-09-06   19:41
-----------------------------------


　バッチでエラーコードは拾えない……。＠ＤＯＳ
　ぜったい俺がいけないんだ、と思いつつ、ヘルプ！　プリーズ。

----- test.bat -----
fo a:\f2.txt		;わざとＦＤ空ドライブのファイル。
			;fo.com は、むぐら版のオリジナル
if errorlevel 2	 echo No Arg	;いつも先頭が出てしまう。
goto END

if errorlevel 3	 echo No Path			;これも出ない
goto END

if errorlevel 80 echo File Already Exists	;これも出ない
goto END

if errorlevel 0 echo Int 24h			;これも出ない
goto END

if errorlevel 5	 echo File Creation Success	;最初先頭にあって
						;こればかり出ていた。
:END
--------------------
　このバッチの何がいけないと言うのだ？
　としきさんにこんなことを伝えるのはなんですが、errorlevel, Winとか
で、いろいろありますので、罠にはまらないでね。%errorlevel% とかやると
罠だらけ。
　この書き方で、いいはずなんだけどなぁ。もちろん、僕はもぐらさんを
疑ってません。コードみて、自分で気づいたもの。変数に入れる必要
ないじゃん、と。
　でも、なんで、これはダメなの？

ぐすん、なんでこんなに嵌ってるんだぁ！

以下のように純ＤＯＳではちゃんとエラーが返りました。

=== Macrotmp by B ===;
ファイルオープン時　　　０５ｈ
引数無し時　　　　　　　０２ｈ
パス無し時　　　　　　　０３ｈ
既にファイルがあるとき　５０ｈ
INT24Hが介入したとき　　００ｈ

* M
50 ^^ "Macrotmp"

;	p="c:\z.txt",	;5 correct
;	p="c:\z.txt",	;50 correct (2nd try)
;	p="  ",		;2 corrct
;	p="a:\z.txt",	;空Ａドライブ、$FFFF == 0 ??? -1
	p="q:\z.txt",	;not such drive, 3 correct
	&Sh(pa,p)
	dx=pa, cx-, ax$5B00, &i($21)
	&m("%x",ax)

*


VTDOSへやってきました。

=== Mac by B ===;

* M
50 ^^ "Macrotmp"

;	p="c:\z.txt",	;5 correct		順番に ; を外して
;	p="c:\z.txt",	;50 correct (2nd try)	再カスタマイズです。
;	p="  ",		;3 ???			VTDOS に不具合ありと思いますが、
;	p="a:\z.txt",	;空Ａドライブ、1 ???	それ以前だと思う。バッチ！
	p="q:\z.txt",	;not such drive, 3 correct
	&Sh(pa,p)
	dx=pa, cx-, ax$5B00, &i($21)
	&m("%x",ax)

*

> 　このバッチの何がいけないと言うのだ？

あ〜、バッチファイルの技術も失われた技術になりつつあるようだ。
WindowsのCMD.EXEのコマンドプロンプトで

 >help if

と打ってみましょう。ずらずらと出てきますが、わりと最初のほうで

  ERRORLEVEL 番号   最後のプログラムの実行で指定された番号以上の終了コード
                    が返されたときに、条件が真になるように指定します。

と表示されます。ここで、私のような昔からのバッチ使いでもたまに忘れること
なんですが、さすがMS、きちんと、でもさりげなく明記してあることがあります。
それは

「指定された番号 *以上* の終了コード」

ということ。すなわち、ここでの比較は、イコールではないのです。
これを踏まえてバッチを書くと

f.bat >-----------------------------------------------------------------
@echo off
fo a:f.txt
rem ↑ここはc:\f.txtとか任意に

if errorlevel 6 goto f
if errorlevel 5 goto e
if errorlevel 4 goto d
if errorlevel 3 goto c
if errorlevel 2 goto b
if errorlevel 1 goto a

echo "level0"
goto end

:f
echo "level6 and over"
goto end

:e
echo "level5"
goto end

:d
echo "level4"
goto end

:c
echo "level3"
goto end

:b
echo "level2"
goto end

:a
echo "level1"
goto end


:end
echo end
f.bat >-----------------------------------------------------------------

こんな感じでしょうか。
 

　できましたよぉ！　この echo って奴、、、。
　結論からいうと、#5016 で指摘した、vtdosの出口でのＸＸＸも再現されます。

----- test.bat -----
@echo off

rem ファイルオープン時　　　０５ｈ
rem 引数無し時　　　　　　　０２ｈ
rem パス無し時　　　　　　　０３ｈ
rem 既にファイルがあるとき　５０ｈ

rem 以下を書き換える。以下の場合、VTDOS NG, DOS6 OK.
rem 以下の fo.com には、konnoさん発見の xor bx,bx を挿入済み

fo   

if errorlevel 80 goto A
if errorlevel 5	 goto B
if errorlevel 3	 goto C
if errorlevel 2	 goto D

@echo on
@echo 2,3,5,80, all not matching!

goto END

:A
@echo on
@echo File Already Exists

@echo off
goto END

:B
@echo on
@echo File Created

@echo off
goto END

:C
@echo on
@echo File Path Wrong

@echo off
goto END

:D
@echo on
@echo No Argument

@echo off

:END

　元気です！　夏バテです！　学校が始まってうんざりです！　というだけのご報告。
　うん、みなさん、とりわけ konnoさん、がんばられてる！　嬉しいです。

　さて、ｘｔｒで少しあそびました。
　で、前回、足りなかったのは、これ。

>xtr -f -e asm.txt >kek.txt	; -e 埋め込みコマンド有効化

>type asm.txt

Assembly Language For Intel Based Computers By Kip R. Irvine

ASSEMBLY LANGUAGE FOR INTEL-BASED COMPUTERS 

FOURTH EDITION 

~{			; --- コレ　fill 適応させるな
Ctrl			; 埋め込みコマンドで「非整形」
Ctrl-A 			; ｘｔｒはテキスト・フォーマッタですから、
Ctrl-B 			; 出力では、この埋め込みコマンドは
Ctrl-C 			; ちゃんと削除されます
Ctrl-D 
Ctrl-E 
~}			; --- コレ　fill 適応させるな

ASCII CONTROL CHARACTERS 

The following list shows the ASCII codes generated when ; 結局のところ
a control key combination is pressed. The mnemonics and ; ここの部分が
descriptions refer to ASCII functions used for screen   ; 整形（文字詰め）
and printer formatting and data communications.         ; 対象です。


--- from xtr.doc ---
~{，~}  部分的非整形。これで囲んだ部分が行分割や空白の伸び縮みしない
で、そのままの形になるようにする。
--------------------

　きめ細やかな「テキスト・フォーマット読解」が必要ということですね。