２０１３．７．１０
前へ
次へ
ホームページトップへ戻る

復活！ＣＰ／Ｍ　ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！

［第４３７回］


●ＴＵＲＢＯ　ＰＡＳＣＡＬ

説明の流れの関係で、お話が前後してしまいます。
ＴＵＲＢＯ　ＰＡＳＣＡＬにつきましては、少し前から「まともに動きません」というメールを大分県のＨ様からいただいておりました。
そのメールには詳細なログファイルも添付されておりました。
そのログにしたがってこちらでも同じ操作をしてみましたところ、Ｈ様がご指摘されたのとは少し異なりましたが、やはり異常が発生しました。

こちらはＴＵＲＢＯ　ＰＡＳＣＡＬの起動直後の画面です。



（Ｙ／Ｎ）？にＹを入力すると、暴走してブレークしてしまいました。



一体何が発生しているのか全くわかりません。
そもそも私はＴＵＲＢＯ　ＰＡＳＣＡＬなど一度もさわったことがありませんし、何も知りません。
それでこれをクリアするなどというのは、これはもう無茶といいますか、至難の技でありましょう。
Ｈ様には、「今は時間がありません。時間ができたら調べてみます」とご返事して、そのままになっていました。
これは解決するのに時間がかかる、と判断して、ここまでの段階（つまりＴＵＲＢＯ　ＰＡＳＣＡＬは未対策のまま）のＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）修正版を皆様にお送りしました。

そうしましたところ、Ｈ様からメールが届きました。
Ｈ様は４日間も、ＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）でＴＵＲＢＯ　ＰＡＳＣＡＬが暴走する問題について原因を追究されていたそうです。
Ｈ様はＷｉｎｄｏｗｓ上で動くＣＰ／Ｍシミュレータを使ってＺＢ３ＤＯＳとの比較を行い、その結果、なんと原因まで特定されて、それでメールを送ってこられたのです。

こちらはそのときいただいたメールの一部です。

TURBO PASCAL　が暴走する理由とZB3DOSとCPMの違いが解りましたので報告です。
三種類のテキストファイル(ログ)は、ZB3.txtがZB3DOS互換DOSで、
他の二つはエミュレーターのCPMです。
三種類とも同じように、ZSIDを利用して、実行しています。
丸の番号は三種類とも、同じ処理にふってあります。
①は、カレントドライブの取得です。
　これは、みな同じように稼動しました。
　前後のFCBなどのデータも変化はしていません。
②は、OPENの前です。
③は、OPEN後です。
ここに、ZB3DOSの課題?=暴走の理由がありました。
②のメモリーダンプの00A0からの内容は、
TURBO PASCALが利用しているジャンプテーブルです。
③のOPEN後ZB3DOSではジャンプテーブルが消えています。
　他のCPMでは変化がありません。
このジャンプテーブルをTURBO PASCALがFile Open後に利用した時に暴走します。
添付のTp301.DISが逆アセンブラリストですが、
これの、01EB,0348,03D6,03E9などのCALL命令が該当します。
TURBO PASCALが利用しているのが、イレギラーかと言いますと、
他のCPMでは、正常に稼動しますから一概に言えないと思います。
TURBO PASCALは、プログラムの中でDMAのセットを多用していますから
0080のメモリーは使用していないのでしょうが、ファイルのオープン時?に、
0080からのメモリーを利用するかしないかが
ZB3DOSとCPMの間の違いのようです。

こちらがそのログです。
Ｈ様はＴＵＲＢＯ　ＰＡＳＣＡＬの動作の解明のために、ＺＳＩＤを使われたとのことです。
いや。ほんとにすごいです。

D>zsid turbo.com
ZSID VERS 1.4
NEXT  PC  END
7980 0100 B1FF
#g,724b
---------------------------------------
TURBO Pascal system       Version 3.01A
                           CP/M-80, Z80

Copyright (C) 1983,84,85   BORLAND Inc.
---------------------------------------

Terminal: Teleray series 10



Include error messages (Y/N)? Y

*724B
#d0050,00ff
0050: 29 03 29 03 29 03 29 1C 25 03 29 00 00 54 55 52
      )  .  )  .  )  .  )  .  %  .  )  .  .  T  U  R  
0060: 42 4F 20 20 20 4D 53 47 00 00 00 00 00 00 00 00
      B  O           M  S  G  .  .  .  .  .  .  .  .  
0070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0080: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0090: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00A0: C3 17 03 C3 21 03 C3 3A 03 C3 30 03 C3 35 03 C3
      .  .  .  .  !  .  .  :  .  .  0  .  .  5  .  .  
00B0: 2B 03 C3 3A 03 C3 21 03 C1 00 82 00 43 00 C4 00
      +  .  .  :  .  .  !  .  .  .  .  .  C  .  .  .  
00C0: C5 00 C1 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00D0: 00 7E D7 7A 00 00 00 00 1A 1A 1A 1A 1A 00 1A 1A
      .  ~  .  z  .  .  .  .  .  .  .  .  .  .  .  .  
00E0: FF 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 53 21
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  S  !  
#t
 -Z-E- A=00 B=0019 D=2161 H=0080 S=B1F2 P=724B　　　　　　①
 ----- A'00 B'0000 D'0000 H'0000 X=0000 Y=0000 CALL 0005
*0005
#g,724e

*724E
#d0050,00ff
0050: 29 03 29 03 29 03 29 1C 25 03 29 00 00 54 55 52
      )  .  )  .  )  .  )  .  %  .  )  .  .  T  U  R  
0060: 42 4F 20 20 20 4D 53 47 00 00 00 00 00 00 00 00
      B  O           M  S  G  .  .  .  .  .  .  .  .  
0070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0080: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0090: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00A0: C3 17 03 C3 21 03 C3 3A 03 C3 30 03 C3 35 03 C3
      .  .  .  .  !  .  .  :  .  .  0  .  .  5  .  .  
00B0: 2B 03 C3 3A 03 C3 21 03 C1 00 82 00 43 00 C4 00
      +  .  .  :  .  .  !  .  .  .  .  .  C  .  .  .  
00C0: C5 00 C1 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00D0: 00 7E D7 7A 00 00 00 00 1A 1A 1A 1A 1A 00 1A 1A
      .  ~  .  z  .  .  .  .  .  .  .  .  .  .  .  .  
00E0: FF 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 53 21
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  S  !  
#t
 -Z-E- A=03 B=0019 D=2161 H=DC5E S=B1F2 P=724E
 ----- A'00 B'0000 D'0000 H'0000 X=0000 Y=0000 POP  IY
*7250
#g,724b

*724B
#t
 ----- A=04 B=000F D=005C H=005C S=B1F0 P=724B　　　　　　②
 ----- A'00 B'0000 D'0000 H'0000 X=0000 Y=0000 CALL 0005
*0005
#d0050,00ff
0050: 29 03 29 03 29 03 29 1C 25 03 29 00 04 54 55 52
      )  .  )  .  )  .  )  .  %  .  )  .  .  T  U  R  
0060: 42 4F 20 20 20 4D 53 47 00 00 00 00 00 00 00 00
      B  O           M  S  G  .  .  .  .  .  .  .  .  
0070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0080: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0090: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00A0: C3 17 03 C3 21 03 C3 3A 03 C3 30 03 C3 35 03 C3
      .  .  .  .  !  .  .  :  .  .  0  .  .  5  .  .  
00B0: 2B 03 C3 3A 03 C3 21 03 C1 00 82 00 43 00 C4 00
      +  .  .  :  .  .  !  .  .  .  .  .  C  .  .  .  
00C0: C5 00 C1 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00D0: 00 7E D7 7A 00 00 00 00 1A 1A 1A 1A 1A 00 1A 1A
      .  ~  .  z  .  .  .  .  .  .  .  .  .  .  .  .  
00E0: FF 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 53 21
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  S  !  
#g,724e

*724E
#d0050,00ff　　　　　　　　　　　　　　　　　　　　　　　③
0050: 29 03 29 03 29 03 29 1C 25 03 29 00 04 54 55 52
      )  .  )  .  )  .  )  .  %  .  )  .  .  T  U  R  
0060: 42 4F 20 20 20 4D 53 47 00 00 00 0D ED 00 00 00
      B  O           M  S  G  .  .  .  .  .  .  .  .  
0070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
0080: 00 54 55 52 42 4F 20 20 20 43 4F 4D 01 00 00 71
      .  T  U  R  B  O           C  O  M  .  .  .  q  
0090: E5 00 E6 00 E7 00 E8 00 E9 00 EA 00 EB 00 EC 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00A0: 00 54 55 52 42 4F 20 20 20 4D 53 47 00 00 00 0D
      .  T  U  R  B  O           M  S  G  .  .  .  .  
00B0: ED 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00C0: 00 54 55 52 42 4F 20 20 20 4F 56 52 00 00 00 0A
      .  T  U  R  B  O           O  V  R  .  .  .  .  
00D0: EE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
00E0: 00 48 45 4C 4C 4F 20 20 20 D0 41 53 00 00 00 03
      .  H  E  L  L  O           .  A  S  .  .  .  .  
00F0: EF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
      .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
#t
 C-M-I A=01 B=000F D=005C H=00C0 S=B1F0 P=724E
 ----- A'00 B'0000 D'0000 H'0000 X=0000 Y=0000 POP  IY
*7250

Ｈ様からのご指摘を受け、添付していただいたログを見まして、何がおきているのかは大体わかりましたが、しかし得心はいきませんでした。
Ｈ様はこのあとのメールで、「オリジナルのＣＰ／Ｍではディレクトリを読み書きするために、通常のＤＭＡバッファとは別にＤＩＲバッファを使っているようですが、ＺＢ３ＤＯＳではそうなっていないのではありませんか？」と書いてこられました。

いえ。
それはないです。
ちゃんとＺＢ３ＤＯＳでもＤＩＲバッファは使っていました。
あれ？
過去形…。
うむむむむ。
その後にあれこれプログラムを改良する過程で、ＤＩＲバッファなどいらんではないか、と思ってＤＩＲバッファとしては使わなくなってしまいました。

うむむむ。
やっぱり使わなくてはだめか。
かくして、またもや大幅なプログラムの変更に取り組むこととなってしまいました。
ほんとに。
やれやれです。

ワンボードマイコンでＣＰ／Ｍを！［第４３７回］
２０１３．７．１０ｕｐｌｏａｄ

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