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

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

［第１９０回］


●ＭＡＣＲＯ－８０（２）

前回は、ＣＰ／Ｍ互換ＤＯＳ上でＭＡＣＲＯ－８０がうまく動作しました、というご報告をいたしました。
ＭＡＣＲＯ－８０そのものはちゃんと起動いたしました。

私の腹積もりでは、用意したサンプルプログラムをＭＡＣＲＯ－８０でアセンブルして、それからリンカー（Ｌ８０）でマシン語プログラムファイルを作成して、それがうまく実行できれば、めでたしめでたし、という段取りだったのでありますが。
そうは問屋が卸してくれないのでありますね。

テスト用に用意しましたソースプログラムは、［第３９回］でＣＰ／Ｍ２．２の動作テストに使ったＦＴＥＳＴ１．ＣＯＭのソースをＭＡＣＲＯ－８０用に直したものです。
もともとのソースプログラムはＮＤ８０ＺⅢに附属しております当社オリジナルのＺ８０アセンブラＺＡＳＭ．ＣＯＭ用ですので、１６進数の表記やＥＱＵ文が一般的なアセンブラとは異なっています。

もとのソースプログラムでは
　　　　　ＯＲＧ　＄８１００
　　　　　ＦＣＡＬＬ＝＄８００５
となっていたところを
　　　　　ＯＲＧ　０１００Ｈ
　　　　　ＦＣＡＬＬ　ＥＱＵ　０００５Ｈ
に変更しました。

下がそのように変更して作成したＭＶＦＴＳＴ１．ＭＡＣです。
ＭＡＣＲＯ－８０のソースプログラムは拡張子をＭＡＣにすることになっています（そうしないとアセンブルできないというわけではありません）。

; BDOS function 1 & 2 test for ZBDOS
;for MACRO-80
;12/8/4
;
     ORG 0100H
     FCALL EQU 0005H
;
LOOP:LD E,3F;?
        LD C,02
        CALL FCALL          
        LD C,01
        CALL FCALL
        CP 1A;^z?
        RET Z
        PUSH AF
        LD E,3D;=
        LD C,02
        CALL FCALL
        POP AF
        LD D,A
        CALL HEX1
        LD E,A
        LD A,D
        RRCA
        RRCA
        RRCA
        RRCA
        CALL HEX1
        PUSH DE
        LD E,A
        LD C,02
        CALL FCALL
        POP DE
        LD C,02
        CALL FCALL
        LD E,0D
        LD C,02
        CALL FCALL
        LD E,0A
        LD C,02
        CALL FCALL
        JP LOOP
HEX1:AND 0F
        ADD A,30
        CP 3A
        RET C;0-9
        ADD A,07;A-F
        RET     
;
        END

あ。最後に’ＥＮＤ’を追加しました。

で。
Ｍ８０．ＣＯＭとＭＶＦＴＳＴ１．ＭＡＣをＡドライブにＣＯＰＹして（ＣＯＰＹ　Ｚ：については［第１７５回］で説明をしています）、Ｍ８０（ＭＡＣＲＯ－８０）を起動して、ＭＶＦＴＳＴ１．ＭＡＣをアセンブルしてみましたところ。

なんと。
２２個も（！）　Ｆａｔａｌ　Ｅｒｒｏｒ（ｓ）になってしまいました。

A>dir
A: F80      COM : HELL1    FOR : HELL1    REL : HELLO    FOR
A: HELLO    REL : HELL2    FOR : HELL2    REL : HELL3    FOR
A: HELL3    REL
A>copy z:m80.com

A>dir
A: F80      COM : HELL1    FOR : HELL1    REL : HELLO    FOR
A: HELLO    REL : HELL2    FOR : HELL2    REL : HELL3    FOR
A: HELL3    REL : M80      COM
A>copy z:mvftst1.mac

A>m80

*=mvftst1
U 0100'   03 2D                 LOOP:LD E,3F;?
U 0102'   01 02                         LD C,02
U 0107'   01 01                         LD C,01
N 010C'   F4 0014                       CP 1A;^z?
Q 010F'   C9                            RET Z
U 0111'   03 03                         LD E,3D;=
U 0113'   01 02                         LD C,02
U 0119'   02 07                         LD D,A
U 011E'   03 07                         LD E,A
U 0120'   07 02                         LD A,D
U 0122'   00                            RRCA
U 0123'   00                            RRCA
U 0124'   00                            RRCA
U 0125'   00                            RRCA
U 012A'   03 07                         LD E,A
U 012C'   01 02                         LD C,02
U 0132'   01 02                         LD C,02
U 0137'   03 00                         LD E,0D
U 0139'   01 02                         LD C,02
U 013E'   03 0A                         LD E,0A
U 0140'   01 02                         LD C,02
O 0148'   F1                    HEX1:AND 0F
Q 0149'   87                            ADD A,30
N 014A'   F4 0028                       CP 3A
Q 014D'   C9                            RET C;0-9
Q 014E'   87                            ADD A,07;A-F

22 Fatal error(s),4 Warning(s)

*
’Ｕ’というのはＵｎｋｎｏｗｎということらしいです。
むむ。
Ｕｎｋｎｏｗｎ？
おお。
ＭＡＣＲＯ－８０はデフォルトでは８０８０ソースをアセンブルするらしいことがわかりました。

ならばということで
／ｚ
をつけてみたところ、５　Ｆａｔａｌ　Ｅｒｒｏｒ（ｓ）になりました。


*=mvftst1/z
N 0100'   1E 2D                 LOOP:LD E,3F;?
N 010C'   FE 14                         CP 1A;^z?
N 0139'   1E 0A                         LD E,0A
N 0143'   E6 0F                 HEX1:AND 0F
N 0147'   FE 28                         CP 3A

5 Fatal error(s)

*

時間がなくなってしまいました。
この続きは次回にいたします。

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

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