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

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

［第７１回］

●ＢＩＯＳを修正

［第６９回］での検討によって、ＢＩＯＳのコンソールステータス取得ルーチンの変更が必要であることがわかりました。
キーが押されているときに、Ａレジスタにキーコードを入力してリターンするのではなくて、Ａレジスタのビット０を１にしてリターンするように直します。



［第６７回］で修正したＣＰＭ２２Ｈ．ＴＸＴをもとにして上記修正を行ないます。
３８２３のＲＥＴ　ＮＺを、ＪＰ　ＮＺ，ＣＯＮＳＴＪ２に変更します。
そして３８２５のＲＥＴの下に、
ＣＯＮＳＴＪ２：ＯＲ　０１
　　　　　　　　ＲＥＴ
の２行を追加します。
これをＣＰＭ２２Ｉ．ＴＸＴとしてセーブします。

ＣＰＭ２２Ｉ．ＴＸＴをＺＡＳＭ．ＥＸＥでアセンブルしてＣＰＭ２２Ｉ．ＢＩＮを作りました。



ＣＰＭ２２Ｉ．ＢＩＮをＮＤ８０ＺⅢにロードして、ＦＮＣ０ＢＴ１．ＣＯＭを実行してみました。
今回もＺＢ３．ＥＸＥはテスト用に細工をしたものを使いました。

logfile nd80zlog\03230755.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld cpm22i.bin,bc00
loading CPM22I.BIN ...1715(5909)bytes loaded,from BC00 to D314
>jp d233
[00][00]
[00]a[00]>[00]f[00]n[00]c[00]0[00]b[00]t[00]1[00][00][00]
[00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00
]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[
00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]
0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [
00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]
0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[0
0]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0
[00]0[61]00 0161[00]a[00]a[00] [00][00]0[00]0[61]00 0161[00]a[00]a[00] [00][61]0
061 0161[00]a[00]a[61] 0161[00]a[61]a 0161[00]a[00]a[00] [00][00]0[00]0[00]0[61]
0 0161[00]a[00]a[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [
00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]
0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[0
0]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][62]0
062 0162[00]b[00]b[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00]
 [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[0
0]0[00] [00][00]0[62]062 0162[00]b[00]b[00] [00][62]0062 0162[00]b[62]b 0162[00]
b[00]b[00] [00][62]0062 0162[00]b[00]b[00] [00][62]0062 0162[00]b[00]b[00] [00][
00]0[00]0[00]0[00]0[00] [62]0163[00]c[00]c[00] [00][00]0[00]0[00]0[00]0[00] [00]
[00]0[00]0[00]0[00]0[00] [00][63]0063 0163[00]c[00]c[00] [00][00]0[00]0[63]00 01
63[00]c[63]c 0163[00]c[00]c[00] [00][63]0063 0163[00]c[63]c 0163[00]c[00]c[00] [
00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[63] 0163[00]c[00]c[00] [00]
[00]0[00]0[00]0[00]0[00] [00][00]0[63]063 0163[00]c[00]c[00] [00][00]0[00]0[00]0
[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00
]0[64]00 0164[00]d[64]d 0164[00]d[64]d 0164[00]d[00]d[00] [00][64]0064 0164[00]d
[00]d[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[64] 0164[00]d[00
]d[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[
00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]
0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [
00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]
0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[00]0[00]0[00] [00][00]0[00]0[0
0]0[1A]0 01
a>[00]^[1A]Z[00]^[00]Z[00]^[00]Z[00][00][00]
[00][00][00][00]?[00][00]
[00][00]
[00]a[00]>[00]^[00]D>a>^D>

ERR:23 
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Fri Mar 23 07:56:49 2012

ＣＰ／Ｍにエントリするとコマンドなどの表示が１文字ずつ行なわれ、その間にＺＢ３．ＥＸＥ側でキー入力のチェックが入るためちょっと見にくいです。
［００］を無視して表示をひろってみると、下のように読めます。


>jp d233

a>fnc0bt1

今回は［６２］（ｂ）や［６４］（ｄ）も表示されるようになりました。
そして表示の最後のところでは、［１Ａ］（Ｃｔｒｌ－ｚ）の入力が受け付けられてブレイクしています。
うまくいったようです（ここではうまくいったように見えていますが、実は、たまたまうまくいっただけだったことが後になってわかりました）。

通常のＺＢ３．ＥＸＥに戻して、同じことをしてみました。

logfile nd80zlog\03230756.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>jp d233

a>fnc0bt1
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0061 0161aa 0000 0000 0000 0161aa 0061 0161aa 0161aa 0061 0161aa 0161a
a 0061 0161aa 0000 0161aa 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
 0000 0000 0000 0162bb 0162bb 0062 0162bb 0062 0162bb 0062 0162bb 0062 0162bb 00
62 0162bb 0000 0162bb 0000 0000 0063 0163cc 0000 0163cc 0000 0000 0163cc 0163cc 
0163cc 0000 0163cc 0000 0163cc 0163cc 0000 0000 0000 0000 0000 0000 0000 0000 00
00 0164dd 0000 0164dd 0000 0164dd 0064 0164dd 0064 0164dd 0000 0164dd 0164dd 000
0 0000 0000 0000 0000 0000 0000 01
a>^Z
?

a>^D>a>^D>

ERR:23 
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Fri Mar 23 07:59:37 2012

ここでもうまくいったようですが…。

●Ｃｔｒｌ－Ｓ、Ｃｔｒｌ－Ｃを試してみたのですが…

前回、ファンクションコール０ＢＨは、Ｃｔｒｌ－Ｓ（［Ｃｔｒｌ］キーを押しながら［Ｓ］キーを押す）の入力でポーズし、そのあとＣｔｒｌ－Ｃ（［Ｃｔｒｌ］キーを押しながら［Ｃ］キーを押す）の入力でブレイクするように作られている、と書きました。
ＦＮＣ０ＢＴ１．ＣＯＭはＣｔｒｌ－Ｚ（［Ｃｔｒｌ］キーを押しながら［Ｚ］キーを押す）の入力でブレイクするようにプログラムしてあるのですが、それを使わないで代わりにＣｔｒｌ－ＳとＣｔｒｌ－Ｃを使ってもブレイクするかどうかを試してみることにしました。
なお、ＣＰＭ２２Ｉ．ＢＩＮはシステムの都合でＣｔｒｌ－Ｃの代わりにＣｔｒｌ－Ｄ（［Ｃｔｒｌ］キーを押しながら［Ｄ］キーを押す）を使います。

うまくいくはずだったのですが…。
なんと、想定外の結果になってしまいました。

logfile nd80zlog\03250740.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>jp d233

a>dir
A: FNC0BTST COM : FNC0BT2  COM : FNC0BT3  COM : FNC0BT4  COM
A: FNC0BT1  COM
a>fnc0bt1
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0161aa 0161aa 0161aa 0061 0161aa 0061 0161aa 0000 0161a
a 0161aa 0161aa 0161aa 0061 0161aa 0000 0000 0000 0000 0000 0000 0000 0162bb 006
2 0162bb 0062 0162bb 0000 0162bb 0000 0162bb 0162bb 0063 0163cc 0000 0000 0000 0
000 0000 0163cc 0063 0163cc 0000 0163cc 0063 0163cc 0000 0163cc 0063 0163cc 0063
 0163cc 0000 0000 0000 0000 0000 0164dd 0000 0000 0064 0164dd 0000 0064 0164dd 0
000 0164dd 0000 0164dd 0000 0000 0000 0000 0000 0000 0000 0000 0104 0000 0000 00
00 0000 0000 0000 0000 0000 0104 0000 0104 0000 0104 0004 0104 0004 0104 0004 01
04 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 00
00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 00
00 0000 0

Ｃｔｒｌ－Ｓでポーズはするのですが、どういうわけかＣｔｒｌ－Ｄを受けつけてくれません。
上で書きましたように、都合によりＣｔｒｌ－Ｃの代わりにＣｔｒｌ－Ｄを使っていますが、そのことには間違いはありません。
それは確認済みです。
Ｃｔｒｌ－Ｄの入力コードの０４が入力文字コードとして表示されてしまっています。
ありえないことがおきてしまっています。
Ｃｔｒｌ－Ｄは、［第６９回］と［第７０回］でお見せしたＣＫＣＯＮＳＯＬルーチンで検出されるはずなのですが…。
もう一度その部分をお見せします。



１３７２行のＣＰ　ＣＮＴＲＬＣで検出しています。
ＣＴＲＬＣは本来はコード０３ですが、都合でコード０４（Ｃｔｒｌ－Ｄ）に変更しています（［第２０回］）。

それだけではなくて、Ｃｔｒｌ－Ｚの入力でシステムが暴走してしまう、という「おまけ」までついてしまいました。

●テストプログラムにバグがありました

もっとも、Ｃｔｒｌ－Ｚで暴走するという件につきましては、テストプログラムにバグがあることがわかりました。
バクというのも恥ずかしい、初歩的なミスでありました。
プログラムリストは［第６８回］にありますが、Ｃｔｒｌ－Ｚを検出する部分にミスがありました。

; BDOS function0B test
;2012/3/22
;
        ORG $8100
        FCALL=$8005
        CHARBUF=$C70E
;
LOOP:LD C,0B
        CALL FCALL
        PUSH AF
        CALL B2HEXDP
        LD A,(CHARBUF)
        CP 1A;^Z
        RET Z
        CALL B2HEXDP
        POP AF
        OR A
        JP NZ,KEYIN
NEXT:CALL SPDP
        JP LOOP
KEYIN:LD C,01
        CALL FCALL
        CALL ADP
        JP NEXT
;

ＣＰ　１Ａ；＾Ｚ
ＲＥＴ　Ｚ
が間違っているところです。
ここは下のようにしなければいけませんでした。

LOOP:LD C,0B
        CALL FCALL
        PUSH AF
        CALL B2HEXDP
        LD A,(CHARBUF)
	CP 1A;^Z
	JP NZ,LOOP2
	POP AF
	RET
LOOP2:CALL B2HEXDP
        POP AF
        OR A
        JP NZ,KEYIN
NEXT:CALL SPDP
        JP LOOP
KEYIN:LD C,01
        CALL FCALL
        CALL ADP
        JP NEXT
;

その少し前のところにＰＵＳＨ　ＡＦがありますから、ここでいきなりＲＥＴ　Ｚにしてしまうと、スタックが食い違ってしまって、正しい戻り先にリターンできなくて、異常な動作をすることになります。
まことにお恥ずかしいミスでした。

ここは当然修正しまして、その結果Ｃｔｒｌ－Ｚは受け付けられるようになったのですが、しかし、Ｃｔｒｌ－ＳとＣｔｒｌ－Ｄによるブレイクは相変わらず受け付けられませんでした。

ここにも、意外な落とし穴がありました。
しつこく追求して、やっとみつけた、意外な落とし穴とは？
というところで、本日は時間がなくなってしまいました。
この続きは次回にいたします。

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

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