SBC6809ルーズキットに6809モニタを載せてみた

Micro-compurter
dav

SBC6809ルーズキットを組み立てて無事完成しましたが、いまのところサンプルプログラムしか動きません。次のステップに進むにはモニタプログラムを動かしたいところです。

まずは6809アセンブラの入手です。検索してみたところ次のものをみつけました。

なんと、太田昌孝氏が作成したもので、junet時代のものでした。

早速macのxcodeでコンパイルしたところ、レガシーなCの書き方のためエラーがでてしまいます。

as09 $ make
cc -O -DMC6809   -c -o as68.o as68.c
as68.c:10:7: warning: incompatible redeclaration of library function 'malloc'
      [-Wincompatible-library-redeclaration]
char *malloc(),*strcpy(),*strcat();
      ^
 :
as68.c:989:1: warning: type specifier missing, defaults to 'int'
      [-Wimplicit-int]
printdecimal(n,p)
^
fatal error: too many errors emitted, stopping now [-ferror-limit=]
127 warnings and 20 errors generated.
make: *** [as68.o] Error 1
as09 $

そこで、makefileにおまじないを加えます。

 CFLAGS = -O -DMC6809

 CFLAGS = -O -DMC6809 -w -Wno-return-type

にします。あとはソースで使われているgetline()が標準ライブラリとコンフリクトしていたので、getline1()に関数名を変更しました。

as09mac $ diff -rc ../as09/as68.c as68.c
*** ../as09/as68.c    1998-06-28 20:42:17.000000000 +0900
--- as68.c    2017-12-20 20:14:19.000000000 +0900
***************
*** 197,203 ****
      }
  }

! char *getline()
  {    lineptr = linebuf + LINEHEAD;
      return fgets(lineptr,MAXCHAR-LINEHEAD,srcf);
  }
--- 197,203 ----
      }
  }

! char *getline1()
  {    lineptr = linebuf + LINEHEAD;
      return fgets(lineptr,MAXCHAR-LINEHEAD,srcf);
  }
***************
*** 206,212 ****
  {
      initpass();
      while ( !endfile ) {
!         if ( getline() == NULL ) {
              fclose(srcf);
              if ( (srcf = popfile()) == NULL ) break;
              continue;
--- 206,212 ----
  {
      initpass();
      while ( !endfile ) {
!         if ( getline1() == NULL ) {
              fclose(srcf);
              if ( (srcf = popfile()) == NULL ) break;
              continue;
as09mac $

これでコンパイルができるようになりました。

as09mac $ make
cc -O -DMC6809 -w -Wno-return-type   -c -o as68.o as68.c
cc -O -DMC6809 -w -Wno-return-type   -c -o optab.o optab.c
cc -O -DMC6809 -w -Wno-return-type -o as09 as68.o optab.o
as09mac $

ためしにSBC6809ルーズキットに含まれる動作確認用のエコーバックプログラムをアセンブルしてみます。

as09mac $ ./as09 TESTPOL9.ASM -o -l
MC6809 cross assembler version 01.00
    5: illegal character in expression
    5: extra garbage
   :
   63: extra garbage

     Total Errors 68
as09mac $

残念ながらエラーが大量にでてしまいました。
やはりソースを直さないとだめかなと念のためアセンブリリストをみたところ、ソースコードの一部に6800のニーモニックが残っていてエラーになっている部分があるようです。このas09は6809のニーモニックしか処理できないので、TESTPOL9.ASMのソースを以下のように書き換えました。

as09mac $ diff -rc TESTPOL9.ASM.old TESTPOL9.ASM
*** TESTPOL9.ASM.old    2017-12-21 22:26:47.000000000 +0900
--- TESTPOL9.ASM    2017-12-21 22:39:54.000000000 +0900
***************
*** 11,20 ****
  START    LDS    #STACK
  *
  *    ACIA INITIALIZE
!     LDAA    #$03
!     STAA    ACIACS
!     LDAA    #$15
!     STAA    ACIACS
  *
  *    ECHOBACK TEST
      LDX    #MESG
--- 11,20 ----
  START    LDS    #STACK
  *
  *    ACIA INITIALIZE
!     LDA    #$03
!     STA    ACIACS
!     LDA    #$15
!     STA    ACIACS
  *
  *    ECHOBACK TEST
      LDX    #MESG
***************
*** 24,48 ****
      BRA    LOOP
  *
  *    INPUT CHAR
! INCH    LDAA    ACIACS
      ASRA
      BCC    INCH
!     LDAA    ACIADA
      RTS
  *
  *    OUTPUT CHAR
! OUTCH    LDAB    ACIACS
      ASRB
      ASRB
      BCC    OUTCH
!     STAA    ACIADA
      RTS
  *
  *    OUTPUT STRING
! PDATA    LDAA    0,X
      BEQ    EXIT
      JSR    OUTCH
!     INX
      BRA    PDATA
  EXIT    RTS
  *
--- 24,48 ----
      BRA    LOOP
  *
  *    INPUT CHAR
! INCH    LDA    ACIACS
      ASRA
      BCC    INCH
!     LDA    ACIADA
      RTS
  *
  *    OUTPUT CHAR
! OUTCH    LDA    ACIACS
      ASRB
      ASRB
      BCC    OUTCH
!     STA    ACIADA
      RTS
  *
  *    OUTPUT STRING
! PDATA    LDA    0,X
      BEQ    EXIT
      JSR    OUTCH
!     LEAX    1,X
      BRA    PDATA
  EXIT    RTS
  *
as09mac $

このソースコードでアセンブルしてみました。

    :
   8 E000                   ORG    $E000
   9                    *
  10                    *    POWER ON SEQUENCE
*** illegal character in expression
*** extra garbage
  11 E000 10CE 1FFF     START    LDS    #STACK
  12                    *
  13                    *    ACIA INITIALIZE
*** illegal character in expression
*** extra garbage
  14 E004 86   03           LDA    #$03
*** illegal character in expression
*** extra garbage
  15 E006 B7   8018         STA    ACIACS
*** illegal character in expression
*** extra garbage
  16 E009 86   15           LDA    #$15
*** illegal character in expression
*** extra garbage
  17 E00B B7   8018         STA    ACIACS
   :

as09からエラーメッセージはでているもののコードは正しく生成されていました。

このエラーメッセージですが、ソースファイルの行末コードが$0D $0Aになっていたのが原因でした。以下の手順でソースファイルの行末コードをUNIXの$0Aに修正するとエラーは無くなりました。(2017/12/22追記)

as09mac $ perl -pe 's/\r\n/\n/' TESTPOL9.ASM > TESTPOL9.ASM.unix
as09mac $ ./as09 TESTPOL9.ASM.unix -o -l
MC6809 cross assembler version 01.00

     Total Errors 0
as09mac $

アセンブル結果のSフォーマットファイルも正しく生成されています。

as09mac $ cat TESTPOL9.ASM.o
123E00010CE1FFF8603B780188615B780188EE03DBDE031BDE01CBDE02620F8B68018479C
S123E02024FAB6801939B68018575724F9B7801939A6842707BDE026300120F5390D0A459E
S113E04043484F4241434B20544553540D0A003B2F
S10BFFF8E04FE04FE04FE00090
S9030000FC
as09mac $

6809アセンブラの準備ができましたので、このas09でモニタをアセンブルすることにしました。
モニタも良いものはないか探してみたところ、以下の記事を見つけました。

SBC6809と同様の構成の6809ワンボードマイコンの記事です。シンプルなモニタプログラムのソースも掲載されています。
これであれば、メモリマップとACIAのアドレスを変えるだけで使えそうです。
早速ソースコードをSBC6809用に修正します。修正箇所は以下のように3箇所だけです。

sbc6809mon $ diff -rc ../mpb6809/MON6809.ASM MON6809SBC.ASM
*** ../mpb6809/MON6809.ASM    2010-11-27 08:13:42.000000000 +0900
--- MON6809SBC.ASM    2017-12-20 20:53:32.000000000 +0900
***************
*** 10,18 ****
  *    F  FILL
  *    C  CONTINUE FROM BREAKPOINT
  *
! ACIACS    EQU    $EFFE
  ACIADA    EQU    ACIACS+1
!     ORG    $F000

  *     I/O INTERRUPT SEQUENCE
  IO    LDX    IOV
--- 10,19 ----
  *    F  FILL
  *    C  CONTINUE FROM BREAKPOINT
  *
! ACIACS  EQU     $8018
  ACIADA    EQU    ACIACS+1
! *    ORG    $F000
!     ORG    $E000

  *     I/O INTERRUPT SEQUENCE
  IO    LDX    IOV
***************
*** 398,404 ****
      FDB    START
  **

!     ORG    $DF80
  IOV    RMB    2    IO INTERRUPT POINTER
  BEGA    RMB    2    BEGINING ADDR PRINT/PUNCH
  ENDA    RMB    2    ENDING ADDR PRINT/PUNCH
--- 399,406 ----
      FDB    START
  **

! **    ORG    $DF80
!     ORG    $1F80
  IOV    RMB    2    IO INTERRUPT POINTER
  BEGA    RMB    2    BEGINING ADDR PRINT/PUNCH
  ENDA    RMB    2    ENDING ADDR PRINT/PUNCH
sbc6809mon $

早速アセンブルです。

sbc6809mon $ ./as09 MON6809SBC.ASM -o -l
MC6809 cross assembler version 01.00

     Total Errors 0
sbc6809mon $ cat MON6809SBC.ASM.o
S123E000BE1F806E84BE1F866E848E80188603A7848615A784391700AE81302B4481392FB1
S123E0200A81412B3C81462E3880073912170097815326F91700908139272B813126EE7F11
S123E0401F888D338002B71F898D1E8D2A7A1F89270AA784A1842609300120EF7C1F8827B6
   :
S123E3205717FDE35F8E1F8F8D308E1F8D8D2B8D29BE1F8D8D247A1F8C26F9BF1F8D53343A
S122E340041F418D153504BE1F8D301FBC1F8426AF8EE26017FDB016FDE4EB8416FD95EC
S10FFFF4E186E000E000E18CE005E12281
S9030000FC
sbc6809mon $

正常にアセンブルはできているようです。このSフォーマットのデータをPROMに書き込みます。また、Pecker-11の登場です。

sbc6809_mon_pecker1.jpg

書き込んだPROMをSBC6809に取り付けて電源をいれたところ

sbc6809_mon4.png

見事にモニタの起動メッセージが表示されました。
メモリダンプをしてみます。

sbc6809_mon5.png

問題なく動くようです。
これでモニタが実装できましたので、作成したプログラムをロードして実行することができます。
しばらくはPROMを書き換えることは無いと思いますので、消去防止シールを貼ってPROMを固定しました。

sbc6809_mon3.jpg

次はFORTHか、BASICかGAME言語かますます楽しみが広がります。

コメント

タイトルとURLをコピーしました