2012.10.25
前へ
次へ
ホームページトップへ戻る

復活!CP/M ワンボードマイコンでCP/Mを!
CP/MがTK−80互換のワンボードマイコンの上で復活します
ND80ZVとMYCPU80の上でCP/Mが走ります

[第236回]


●VFTST25の再実行

前回はVFTST25.COMを実行したところ、CP/M互換DOSにバグがあって、正しい実行結果が得られませんでした。
CP/M互換DOSのファンクション24Hのところを調べましたら、バグがみつかりましたので、それを修正して、あらためてVFTST25を実行しました。
前回と同じように、

B>VFTST25 TEST.SAF[Enter]

と入力しました。
下は実行を完了したあとの画面です。



今度は正しい結果が得られました。
前回は、

[]の中の数値は()の中の数値と同じものになるはず

と書きましたが[]の数値は「次」のレコードbナすから()の数+1になるのが正解でした。

前回は、問題が発生しているあたりの出力結果をログファイルでお見せしました。
参考までに今回も前回と同じところをログファイルでお見せします

logfile nd80zlog\10252126.txt open

ND80ZVに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
can't open D.vfd
>/ld zbds1r.bin,bf00
loading ZBDS1R.BIN ...15f8(5624)bytes loaded,from BF00 to D4F7
>/ld zbdos2s.bin,c706
loading ZBDOS2S.BIN ...0a0a(2570)bytes loaded,from C706 to D10F
>/sv zbds1s.bin,bf00,d4f7
15F8(5624)bytes saved
>jp d233

A>b:
B>dir
B: VFTST23  COM : TEST     SAF : VFTST24  COM : VFTST25  COM

B>vftst25 test.saf
01(0000)[00 00 01]  02(0001)[00 00 02]  03(0002)[00 00 03]  04(0003)[00 00 04]  
05(0004)[00 00 05]  06(0005)[00 00 06]  07(0006)[00 00 07]  08(0007)[00 00 08]  
09(0008)[00 00 09]  0A(0009)[00 00 0A]  0B(000A)[00 00 0B]  0C(000B)[00 00 0C]  
0D(000C)[00 00 0D]  0E(000D)[00 00 0E]  0F(000E)[00 00 0F]  10(000F)[00 00 10]  
11(0010)[00 00 11]  12(0011)[00 00 12]  13(0012)[00 00 13]  14(0013)[00 00 14]  
15(0014)[00 00 15]  16(0015)[00 00 16]  17(0016)[00 00 17]  18(0017)[00 00 18]  
19(0018)[00 00 19]  1A(0019)[00 00 1A]  1B(001A)[00 00 1B]  1C(001B)[00 00 1C]  
1D(001C)[00 00 1D]  1E(001D)[00 00 1E]  1F(001E)[00 00 1F]  20(001F)[00 00 20]  
21(0020)[00 00 21]  22(0021)[00 00 22]  23(0022)[00 00 23]  24(0023)[00 00 24]  
25(0024)[00 00 25]  26(0025)[00 00 26]  27(0026)[00 00 27]  28(0027)[00 00 28]  
29(0028)[00 00 29]  2A(0029)[00 00 2A]  2B(002A)[00 00 2B]  2C(002B)[00 00 2C]  
2D(002C)[00 00 2D]  2E(002D)[00 00 2E]  2F(002E)[00 00 2F]  30(002F)[00 00 30]  
31(0030)[00 00 31]  32(0031)[00 00 32]  33(0032)[00 00 33]  34(0033)[00 00 34]  
35(0034)[00 00 35]  36(0035)[00 00 36]  37(0036)[00 00 37]  38(0037)[00 00 38]  
39(0038)[00 00 39]  3A(0039)[00 00 3A]  3B(003A)[00 00 3B]  3C(003B)[00 00 3C]  
3D(003C)[00 00 3D]  3E(003D)[00 00 3E]  3F(003E)[00 00 3F]  40(003F)[00 00 40]  
41(0040)[00 00 41]  42(0041)[00 00 42]  43(0042)[00 00 43]  44(0043)[00 00 44]  
45(0044)[00 00 45]  46(0045)[00 00 46]  47(0046)[00 00 47]  48(0047)[00 00 48]  
49(0048)[00 00 49]  4A(0049)[00 00 4A]  4B(004A)[00 00 4B]  4C(004B)[00 00 4C]  
4D(004C)[00 00 4D]  4E(004D)[00 00 4E]  4F(004E)[00 00 4F]  50(004F)[00 00 50]  
51(0050)[00 00 51]  52(0051)[00 00 52]  53(0052)[00 00 53]  54(0053)[00 00 54]  
55(0054)[00 00 55]  56(0055)[00 00 56]  57(0056)[00 00 57]  58(0057)[00 00 58]  
59(0058)[00 00 59]  5A(0059)[00 00 5A]  5B(005A)[00 00 5B]  5C(005B)[00 00 5C]  
5D(005C)[00 00 5D]  5E(005D)[00 00 5E]  5F(005E)[00 00 5F]  60(005F)[00 00 60]  
61(0060)[00 00 61]  62(0061)[00 00 62]  63(0062)[00 00 63]  64(0063)[00 00 64]  
65(0064)[00 00 65]  66(0065)[00 00 66]  67(0066)[00 00 67]  68(0067)[00 00 68]  
69(0068)[00 00 69]  6A(0069)[00 00 6A]  6B(006A)[00 00 6B]  6C(006B)[00 00 6C]  
6D(006C)[00 00 6D]  6E(006D)[00 00 6E]  6F(006E)[00 00 6F]  70(006F)[00 00 70]  
71(0070)[00 00 71]  72(0071)[00 00 72]  73(0072)[00 00 73]  74(0073)[00 00 74]  
75(0074)[00 00 75]  76(0075)[00 00 76]  77(0076)[00 00 77]  78(0077)[00 00 78]  
79(0078)[00 00 79]  7A(0079)[00 00 7A]  7B(007A)[00 00 7B]  7C(007B)[00 00 7C]  
7D(007C)[00 00 7D]  7E(007D)[00 00 7E]  7F(007E)[00 00 7F]  80(007F)[00 00 80]  
01(0080)[00 00 81]  02(0081)[00 00 82]  03(0082)[00 00 83]  04(0083)[00 00 84]  

前回は、シーケンシャルアクセスのためのRECNOの値が80Hから01Hに戻るところで[]の値が00 01 01になっていました。
今回はそこのところが[00 00 81]になっていて、正しい結果が表示されるようになりました。

ワンボードマイコンでCP/Mを![第236回]
2012.10.25upload

前へ
次へ
ホームページトップへ戻る