３チップ構成Pic24CPMマイコン（その７）GAMEコンパイラ：ＰＩＣマイコンは面白い：So-netブログ

	ブログをはじめるログイン

トラ技2019年5月号のPSoC基板｜3チップ構成68Kマイコンの構想（その１.. ブログトップ

３チップ構成Pic24CPMマイコン（その７）GAMEコンパイラ　[Z80] [編集]

　ネットで久々にGAME言語ネタを見つけた^^ので平成最後のカキコはGAME言語ネタです。
　Old68funさんが6809 / 6800とFLEXのブログで書かれている「SBC8080でGAME80がようやく動作」の記事です。TK-80BS用のGAME80インタプリタをSBC8080上で動かされています。

　TK-80BSと言えば中島さんにより開発されたGAME80コンパイラが発表された環境であり、Jun's Homepageの「GAME80コンパイラ解説 (2003/08/05)」に解説とともにソースが掲載されています。

　久々にGAMEコンパイラを動かしてみたいものですねぇ^^

　最初にGAME80をCP/M-80に移植してみました。GAMEインタプリタ自体はコンソール入出力関連の処理をハード環境に合わせて変更すれば動作するのでCP/M-80用に先頭にコールドスタートへのジャンプ命令を追加し、末尾にコンソール関連の処理を追加しました。使用した環境はマイクロソフトのMACRO80/LINK80です。
　全体をリロケートしなかったのは上記のコンパイラを動かしてみたかったからです。

GAMEインタプリタのCP/M-80へのインプリメント


                                ;********************************
                                ; GAME interpreter
                                ; TK-80BS version on CP/M-80
                                ;  2019/05/01
                                ;********************************
                                
  8600                          PRGST   EQU     8600H   ; program start addres
  CBFF                          RAMEND  EQU     0CBFFH  ; for CP/M-80 64K
                                
  001B                          K_STOP  EQU     01BH	; stop key
  0020                          K_PAUSE EQU     ' '	; pause key
                                
  8E00                          SRCSTA  EQU     08E00H  ; sorce start addres
  8DC4                          STACK2  EQU     08DC4H  ; second stack
                                
                                
  8D42                          Y8D42   EQU     08D42H
  8D46                          Y8D46   EQU     08D46H
  8D4A                          Y8D4A   EQU     08D4AH
  8D4B                          Y8D4B   EQU     08D4BH
  8D4E                          Y8D4E   EQU     08D4EH
  8D50                          Y8D50   EQU     08D50H
  8D52                          Y8D52   EQU     08D52H
  8D58                          Y8D58   EQU     08D58H
  8D5A                          Y8D5A   EQU     08D5AH
  8D68                          Y8D68   EQU     08D68H
  8D6A                          Y8D6A   EQU     08D6AH
  8D70                          Y8D70   EQU     08D70H
  8D72                          Y8D72   EQU     08D72H
  8D74                          Y8D74   EQU     08D74H
  8D76                          Y8D76   EQU     08D76H
  8D77                          Y8D77   EQU     08D77H
  8D7E                          Y8D7E   EQU     08D7EH
  8D88                          Y8D88   EQU     08D88H
  8D8A                          Y8D8A   EQU     08D8AH
                                
                                        .Z80
  0000'                                 ASEG
                                
                                        ORG     00100H
                                
  0100    C3 8600                       JP      START
                                
                                        ORG     PRGST
                                
                                
  8600    C3 8606               START:  JP      A8606           ; cold start
  8603    C3 8611                       JP      A8611           ; hot start
                                ;
  8606    21 8E00               A8606:  LD      HL,SRCSTA
  8609    22 8D7E                       LD      (Y8D7E),HL
  860C    22 8D50                       LD      (Y8D50),HL
  860F    36 FF                         LD      (HL),0FFH
  8611    21 CBFF               A8611:  LD      HL,RAMEND
  8614    22 8D58                       LD      (Y8D58),HL

　           ～～～　途中省略　～～～

  8C7B    C2 8C4E                       JP      NZ,A8C4E
  8C7E    36 00                         LD      (HL),000H
  8C80    21 8D8A                       LD      HL,Y8D8A
  8C83    3E 0D                 A8C83:  LD      A,00DH
  8C85    CD 8C99                       CALL    PUTCH
  8C88    3E 0A                         LD      A,00AH
  8C8A    C3 8C99                       JP      PUTCH
                                ;
  8C8D    0D 0A 2A 52           T8C8D:  DB      0DH,0AH,'*READY',00H
  8C91    45 41 44 59           
  8C95    00                    
                                
                                ;*** added by skyriver 2019/04/30 ***
                                
                                
  8C96    CD 8CA7               GETCH:  CALL    CONIN
  8C99    C3 8CB1               PUTCH:  JP      CONOUT
  8C9C    E5                    KBHIT:  PUSH    HL
  8C9D    D5                             PUSH   DE
  8C9E    1E 03                           LD    E,03H   ; CONST
  8CA0    CD 8CBE                         CALL  GOBIOS
  8CA3    0F                              RRCA          ; if exist then set carry
  8CA4    D1                              POP   DE
  8CA5    E1                             POP    HL
  8CA6    C9                            RET
                                
  8CA7    E5                    CONIN:  PUSH    HL
  8CA8    D5                             PUSH   DE
  8CA9    1E 06                           LD    E,06H   ; CONIN
  8CAB    CD 8CBE                         CALL  GOBIOS
  8CAE    D1                              POP   DE
  8CAF    E1                             POP    HL
  8CB0    C9                            RET
                                
  8CB1    E5                    CONOUT: PUSH    HL
  8CB2    D5                             PUSH   DE
  8CB3    F5                              PUSH  AF
  8CB4    1E 09                            LD   E,09H   ; CONOUT
  8CB6    4F                               LD   C,A
  8CB7    CD 8CBE                          CALL GOBIOS
  8CBA    F1                               POP  AF
  8CBB    D1                              POP   DE
  8CBC    E1                             POP    HL
  8CBD    C9                            RET
                                
  8CBE    2A 0001               GOBIOS: LD      HL,(0001H)      ;WBOOT addres
  8CC1    16 00                         LD      D,0
  8CC3    19                            ADD     HL,DE
  8CC4    E9                            JP      (HL)

                                
                                        END

★2019/04/30　変更
　連続表示中にスペースでポーズできなかったので修正
　オリジナルは'!'キーで中断ですが、ESCで中断するように変更
★2019/05/01　変更
　コール先やワークのアドレスをラベル名に変更

　GAME80インタプリタがCP/M-80上で動いたので上記のGAME80コンパイラの解説ブログページからコンパイラのソースを頂いて動かしてみます。
　ブログにも「リストは昔に記事を読んで打ち込んだもので、実行して確認していません。ミスがあるかもしれませんが、その場合はご容赦下さい。」と書かれているように実際に動かそうとすると数ヶ所修正が必要です（手元にエンサイクロペディアアスキーの該当ページのコピーがあったので突合チェックした）。
　オリジナルとの差分を以下にメモしておきます。

No.	修正箇所
1	225 ?(5)=V .=5 ??=A .=5 ??=G /
2	3270 ;=H="+" #=3300
3	3410 ;=G:0)="=" G=G+1 !=4000 H=$FA #=3600
4	5620 A:0)=$CD A=A+3 A(-1)=A A:0)=$D5 A=A+1

　これで何十年かぶりにGAMEコンパイラのコンパイルぶりを見れる（私が当時動かしていたのはTRS-80用のGAME-Z80を自作マイコンに移植したものだったのでTK-80BSのGAMEは初体験）と思いきやコンパイルしたコードが全く動きません・・・
　コンパイラのソースを確認したところ、文字列出力部で$FA52をコールしているコードを生成しています。
　そこで1文字出力ルーチンを使ったループ処理のコードを生成するように変更し、機種依存性を無くしました。

オリジナル	2410 @=(G:I-1)=""") A(0)=A+I 2420 G=G+I A=A+I A:0)=$3E 2430 A:1)=I-2 A:2)=$32 A=A+5 A(-1)=$847A 2440 A:0)=$21 A=A+3 A(-1)=Q 2445 A:0)=$22 A=A+3 A(-1)=$847B 2450 A:0)=$CD A=A+3 A(-1)=$FA52 2460 #=700
変更後	2410 @=(G:I-1)=""") A(0)=A+I 2420 G=G+I A=A+I A:0)=$06 2430 A:1)=I-2 A:2)=$21 A=A+3 2432 A(0)=Q A(1)=$CD7E A(2)=$8C99 2433 A(3)=$0523 A=A+11 A:-3)=$C2 A(-1)=A-9 2460 #=700

　ソースを見ると生成するコードが何となく判ると思いますが、文字列生成処理のコンパイル結果を確認してみます。
　サンプルソースとしては単に"Hello"と出力するだけのものを使用しました。

文字列出力処理のコンパイル例


:0

   10 "Hello"

*READY
:=$8E00

*READY
:#=1
GAME PROGRAM FROM:$B000
START ADRRESS:$4000
WORK AREA FROM:$100
   10     4000     B000
   10     4000     B000
PROGRAM SIZE: 25(4000-4018)
END
*READY
:>=0

b>

　0x4000以降にコンパイルされたコードが書かれているので、一旦GAMEを抜けてCP/Mのディバッガ（ZSID）を起動し、確認しました。
　ZSIDDはZSIDに小文字シンボル対応や1行ダンプ等のパッチをあてたものです。

生成されたコード


b>a:zsidd
ZSID VERS 1.4
#l4000,4018
  4000  JP   4008
  4003  LD   C,B
  4004  LD   H,L
  4005  LD   L,H
  4006  LD   L,H
  4007  LD   L,A
  4008  LD   B,05
  400A  LD   HL,4003
  400D  LD   A,(HL)
  400E  CALL 8C99
  4011  INC  HL
  4012  DEC  B
  4013  JP   NZ,400D
  4016  JP   8603
  4019
#d4000
4000: C3 08 40 48 65 6C 6C 6F 06 05 21 03 40 7E CD 99 ..@Hello..!.@~..
4010: 8C 23 05 C2 0D 40 C3 03 86 00 00 00 00 00 00 00 .#...@..........
4020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
4090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
40A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
#

　想定通りのコードが生成されていますね。当然実行結果もｏｋでした。
　当初の目的であるGAMEコンパイラをインタプリタ動作でコンパイラ自身をコンパイルし、コンパイルされたコンパイラで更にコンパイラをコンパイルすることも問題なくできました（＾＾）／

　GAME言語のインタプリタやコンパイラのソースを公開していいか判らないのでCP/M-80に移植したバイナリだけ置いておきます。
　冒頭で紹介したブログと本ブログを参照すれば、CP/M環境でGAMEコンパイラのセルフコンパイル（通常とは違う意味での「セルフ」）まで試せると思います。

GameOnCpm80_20231130_005d.zip
★2023/11/30 Ver 0.05d
　filesコマンド(¥¥)の表示を改善
★2023/11/29 Ver 0.05c
　files(¥¥)命令を追加（ワイルドカード対応）
★2023/11/29 Ver 0.05b
　files(¥¥)命令を追加
★2023/11/04 Ver 0.05a
　エラーの表示の改善とBIOSコール部の若干の高速化
★2023/11/02 Ver 0.05
　save(¥>FileName)とload(¥<FileName)コマンドをインプリメント
★2023/11/01 Ver 0.04a
　キーセンス部分の間引き処理廃止
★2023/10/30 Ver 0.04
　キーセンス部分で実際のキーセンスを8回に1回コールすることで若干高速化
　起動時にアーギュメントを付けてるとホットスタート起動するように変更
★2019/05/18 Ver0.03
　コンパイル時の表示をGAME-Z80版のように見易くした
★2019/05/09 Ver0.02
　スペースキーでのポーズ及びESCでのブレーク時にエコーバックしないようにした
★2019/05/06 Ver0.01
　コンパイラを0200H～に包括した( >=$200 でコンパイラ起動)
　版数特定ができるようにVer付きオープニングメッセージを表示するようにした
★2019/05/04
　起動時にGAME本体を8600Hへ転送するようにして起動時間短縮
★2019/05/01
　コンソール関連処理を2バイト軽量化しました（機能的には変わらず）

★2019/04/30　追記
　twitterにポストした動画付きコメントを貼り付けておきます。

平成最後のカキコはGAME言語ネタです^^
GAME言語をCP/M-80に移植してGAMEコンパイラをコンパイル^^
久々に自分自身をコンパイル後の爆速ぶりを見たよ^^
Z80 16MHzなので当時は1/4程度の速度だったと思う。#GAME言語 #CPM #GAMEコンパイラ https://t.co/cmOuhxzror pic.twitter.com/MXGxqFy5oo
— skyriver (@wcinp) April 30, 2019

★2019/05/02　追記
　コメントに書いたように文字列出力処理部のコンパイルでインタプリタ内の'\0'で終端された文字列の出力処理である0x8785を呼び出すようにして生成コードを短縮し、更にキーチェックだけを行う長さゼロの文字列出力 "" に対応してみました。

　GAMEコンパイラの修正箇所は下記になります。ソース自体も短くなりました。

オリジナル	2300 A:0)=$C3 A=A+1 I=2 2400 Q=A+2 @ A:I)=G:I-1) I=I+1 2410 @=(G:I-1)=""") A(0)=A+I 2420 G=G+I A=A+I A:0)=$3E 2430 A:1)=I-2 A:2)=$32 A=A+5 A(-1)=$847A 2440 A:0)=$21 A=A+3 A(-1)=Q 2445 A:0)=$22 A=A+3 A(-1)=$847B 2450 A:0)=$CD A=A+3 A(-1)=$FA52 2460 #=700
変更後	2300 A:0)=$C3 Q=A+1 A=A+2 2400 @ G=G+1 A=A+1 A:0)=G:0) @=(G:0)=""") 2410 G=G+1 A(0)=$2100 A(1)=Q+2 Q(0)=A+1 2420 A=A+7 A:-3)=$CD A(-1)=$8785 2460 #=700

　それではコンパイル結果を確認してみます。

コンパイル結果確認


*READY
:=$B000

*READY
:&=0

*READY
:10 "Hello"

:20 ""

:0

   10 "Hello"
   20 ""

*READY
:=$8E00

*READY
:#=1
GAME PROGRAM FROM:$B000
START ADRRESS:$4000
WORK AREA FROM:$100
   10     4000     B000
   20     400F     B00B
   10     4000     B000
   20     400F     B00B
PROGRAM SIZE: 28(4000-401B)
END
*READY
:>=$4000
Hello
*READY
:>=0

b>a:zsidd
ZSID VERS 1.4
#l4000,401b
  4000  JP   4009
  4003  LD   C,B
  4004  LD   H,L
  4005  LD   L,H
  4006  LD   L,H
  4007  LD   L,A
  4008  NOP
  4009  LD   HL,4003
  400C  CALL 8785
  400F  JP   4013
  4012  NOP
  4013  LD   HL,4012
  4016  CALL 8785
  4019  JP   8603
  401C
#d4000,401f
4000: C3 09 40 48 65 6C 6C 6F 00 21 03 40 CD 85 87 C3 ..@Hello.!.@....
4010: 13 40 00 21 12 40 CD 85 87 C3 03 86 00 00 00 00 .@.!.@..........
#g0

b>

　想定通りですね＾＾
　GAMEコンパイラはコンパイラ自身をコンパイルし、拡張していけるのでマイコン環境でC言語等の開発環境が無かった時代にブートストラップ方式で言語仕様を拡張することでいくつかのコンパイラが作られました。独自言語が色々出てきて楽しい時代でしたね。

★2019/05/03　追記
　インタープリタ　⇒　インタプリタ　に変更

★2019/05/03　追記
　CP/MでGAME言語が動くようになったので以前、「PIC24FJ64GAでGAME言語（その５）」で記載した迷路生成／探索のプログラムを動かしてみました。

GAME80ではPIC24FJ版GAMEとの相違点として

&(AND)演算子が無い
配列のインデックス部で~~計算ができない~~配列が参照できない※1
乱数 'N の範囲が０～Ｎ－１ではなく、１～Ｎである
タイマ管理変数の '¥' が無い

等がありましたが容易に移植できました。
★2019/05/03　追記
※１　インデックス部で計算はできるようです。下記の事象が発生しました。

W=B:P+D(Z))	⇒　NG
C=D(Z) W=B:P+C)	⇒　OK

★2019/05/09　追記　{配列値評価時に8D70HにHLレジスタを保存しているため}

　ソースを以下に貼りました。TeraTermのWindowサイズは80カラム×32行で動かしてください（と言ってもTeraTerm接続で動くCP/M-80環境を持っている人は希少だとは思いますが）。

Maze for GAME80


1' Maze for GAME80 2019/05/03 by skyriver
2 S=78 T=30 #=100
8' move cursor
9 Y=P/S X=%(0)
10 $=$1B "[" ?=Y+1 ";" ?=X+1 "H" ]
18' set wall
19 Y=P/S X=%(0)
20 B:Y*S+X)=8 ]
29' wait
30 C=1,100 "" @=C+1 ]
100 D=&+1 B=D+8 '=157
102 D(0)=1 D(1)=S D(2)=-1 D(3)=-S U=S*T-1
110 @
119' create maze
120  I=S*T @ I=I-1 B:I)=0 @=(I=0)
130  Y=0,T
140   X=0 !=20
150  @=Y+1
160  X=0,S
170   Y=0 !=20 Y=T !=20
180  @=X+1
190  G=2,T-2
200   F=2,S-2
210    X=F Y=G !=20 P=S*G+F
220    @ R=P+D('(4-(G>2))-1) @=(B:R)=0)
230    P=R !=19
240   @=F+2
250  @=G+2
259' display maze
260  $=$1B "[2J" X=0 Y=0 !=10 $=$1B "[36m"
270  Y=0,T
280   X=0,S
290    Z=" " ;=B:Y*S+X) Z="#"
300    $=Z
310   @=X+1
320   /
330  @=Y+1
340  $=$1B "[m"
350  X=S-1 Y=T-1 !=10 $="@"
360  !=30
369' explore
370  P=S+1 Z=0
380  @
390   !=9 "+" $=8 Z=%((Z+2)/4)
400   @ ""
410    Z=%((Z+1)/4) R=P+D(Z)
420   @=(B:R)<8)
430   P=R B:P)=B:P)+1
440   !=30
450  @=(P=U)
459' best route
460  $=$1B "[43m" P=S+1
470  @
480   !=9 "+" $=8
490   N=0 E=8
500   Z=0,3
510    C=P+D(Z) W=B:C)
520    ;=(W>0)*(W<E) E=W N=Z
530   @=Z+1
540   B:P)=7 P=P+D(N)
550   !=30
560  @=(P=U)
570  $=$1B "[m"
580 @=(0)

　参考にtwitterにポストした動画付きコメントを貼ります。

CP/M-80でGAME言語が動くようになったので以前PIC24版のGAME用に作った迷路プログラムを動かしてみた。若干の相違はあったけどすぐに動いたよ^^
ブログにも追記しました#GAME言語 #CPM80 #GAME80 https://t.co/cmOuhxzror pic.twitter.com/XBUdIIDtBz
— skyriver (@wcinp) May 3, 2019

★2019/05/10　追記
　GAME80のソースのリナンバプログラムを作ったので貼っておきます。
　GAME68等でも動作すると思います。

renumber for GAME80


    1' renumber for GAME Ver0.03a 2020/12/01 by skyriver
    2 "src address " S=?
    3 "dst address " D=?
    4 "line start  " B=?
    5 "line step   " E=?
    6 Z=&+1 TBL=Z+6
    7 P=S IDX=0 C=D
    8 @
    9  TBL(IDX)=P:0)*256+P:1) IDX=IDX+1 ;=%(IDX/10)=0 "*"
   10  P=P+2 @ P=P+1 @=(P:-1)=0)
   11 @=(P:0)>=$F0)
   12 P=S IDX=0
   13 @
   14  NEW=E*IDX+B
   15  D:0)=NEW/256 D:1)=NEW D=D+2 P=P+2
   16  / ?(5)=TBL(IDX) "  :" ?(5)=NEW
   17  ;=P:0)<>" " @ D:0)=P:0) D=D+1 P=P+1 @=(P:0)=0)
   18  @
   19   ;=(P:0)=""")*(P:1)=""")*(P:2)=""") D:0)=""" D=D+1 P=P+1
   20   ;=(P:0)=""") @ D:0)=P:0) D=D+1 P=P+1 @=(P:0)=""")
   21   ;=(P:0)="#")+(P:0)="!") !=31
   22   D:0)=P:0)
   23   D=D+1 P=P+1
   24  @=(P:-1)=0)
   25  IDX=IDX+1
   26 @=(P:0)>=$F0)
   27 D:0)=P:0)
   28 /"Renumbered(" ??=C "-" ??=D ")"
   29 #=-1
   30' goto,gosub
   31 ;=(P:1)<>"=")+(P:2)="-") ]
   32 D:0)=P:0) D:1)="=" D=D+2 P=P+2
   33 LINE=0 @ LINE=LINE*10+(P:0)-"0") P=P+1 @=((P:0)<"0")+(P:0)>"9"))
   34 "  " $=D:-2) "=" ?=LINE " -> "
   35 F=-1 @ F=F+1 @=(TBL(F)>=LINE)
   36 LINE=E*F+B X=Z-1 ?=LINE
   37 @ X=X+1 LINE=LINE/10 X:0)=%(0)+"0" @=(LINE=0)
   38 @ D:0)=X:0) D=D+1 X=X-1 @=(X<Z)
   39 ]

★2020/12/01　追記
　Ver 0.03a リナンバー後のプログラム範囲の表示を追加
★2019/05/11　追記
　Ver 0.03 """処理部簡略化
　Ver 0.02 行短縮しました

★2019/12/01　追記
　MSX-DOSでCP/M-80のコマンドを実行できることからWebMSX環境で動作させたMSX-DOS上でGAMECを動かしてみた。
　Twitterにアップしたコメントを貼っておきます。

CP/M-80に移植したGAME言語をWebMSXで動かしてみた
コンパイラも動いたけどソースをコピペができないのでソースのロード／セーブ機能を追加しないと使いづらい・・#GAME言語 #GAMEコンパイラ #MSXDOS #WebMSX https://t.co/7OsMhjhhbX pic.twitter.com/e3KTLJSHks
— skyriver (@wcinp) December 1, 2019

★2019/12/03　追記
　上のTwitterではWebMSXでコピペができないと書いてしまいましたが、ALT+V の操作でコピペできました^^
　なんとWebSMXの作者であるPaulo PeccinさんからTwitterで教えて頂きました。

★2020/01/05　追記
　「MSX-DOS上でのGAME言語のベンチマーク」の記事にWebMSX上で動かしたMSX-DOSでのGAME言語（インタプリタ＆コンパイラ）やBASIC等のベンチマーク計測結果を記載しました。

★2020/01/16　追記
　ポケコン（PC-G850V）にGAMEコンパイラを移植しました。
「ポケコン（PC-G850V）でGAME言語（その３）ＧＡＭＥコンパイラ」
　twitterにポストしたメッセージも貼っておきます。

先日入手した中古ポケコン（G850V）にGAMEコンパイラを移植してみたよ
　ベンチマークではGAMEインタプリタは予想に反して遅かったけどコンパイラは予想通りの速さだった^^#G850V #ポケコン #GAME言語 #GAMEコンパイラ https://t.co/FJqKLuMn0w pic.twitter.com/TuyxscTQSD
— skyriver (@wcinp) January 15, 2020

★2020/05/03　追記
　エミュレータ環境を使ってパピコン（PC-6001)にGAMEインタプリタとコンパイラを移植しました。
　「パピコン（PC-6001）でGAME言語（その２）ＧＡＭＥコンパイラ」
Twitterのメッセージも貼っておきます。

パピコン（PC-6001）に移植したGAME言語コンパイラの簡単なデモを作ってみた
コンパイルするだけで結構速くなる（大きなソースなら尚更）
この程度ならマシン語でも更に高速なのが簡単に作れるけどねw#PC6001 #パピコン #GAME言語 #GAMEコンパイラ https://t.co/oJIEzSOIie pic.twitter.com/fl8G4mOVuJ
— skyriver (@wcinp) January 29, 2020

★2020/08/08　追記
　GAMEコンパイラの開発者である中島さんがコンパイラのソースをgithubで公開！！

これが高校生の時に作って月間アスキーで発表した　GAME（という言語）で書かれたGAMEコンパイラ。見開き２ページの下半分に全ソースコードが入る大きさ。

ソースコードを github に置いておきます。https://t.co/f1vlEIrOKR pic.twitter.com/9cXhgkSASX
— Satoshi Nakajima (@snakajima) August 7, 2020

[TOP] [ 前へ ] 連載記事 [ 次へ ]

タグ：WebMSX ＧＡＭＥコンパイラ TK-80BS GAME80 ＧＡＭＥ言語プログラムツイッター Twitter

2019-04-30 13:26 nice!(2) コメント(15)
共通テーマ：趣味・カルチャー

nice! 2

CP/M版GAMEを修正しました。
・連続表示中にポーズできなかった問題を修正（スペースキーでポーズ）
・中断キーを’！’からESCに変更
by skyriver (2019-05-01 00:30)

　コンパイラが生成するコードで文字列出力処理について1文字出力処理を使ったループ処理を生成するようにしましたがインタープリタ内の 0x8785 が'\0'で終端された文字列出力処理部でポーズや中断キーチェック機能も付いているので、ここをコールするようなコードを生成した方がいいですね。コードが短くなるし、ポーズ等のチェックも入るようになる。

8785 AF XRA A
8786 47 MOV B,A
8787 7E MOV A,M
8788 23 INX H
8789 B8 CMP B
878A CA 8793 JZ 8793H
878D CD 8C99 CALL PUTCH ;8C99H
8790 C3 8787 JMP 8787H
8793 CD 8C9C CALL KBHIT ;8C9CH
8796 D0 RNC
8797 CD 8C96 CALL GETCH ;8C96H
879A FE 1B CPI K_STOP
879C CA 8617 JZ 8617H
879F FE 20 CPI K_PAUSE
87A1 C0 RNZ
87A2 C3 8C96 JMP GETCH ;8C96H

by skyriver (2019-05-01 09:15)

　文字列表示のコンパイルコードについて、長さ０の文字列表示 "" のためには最初にカウンタがゼロか確認すべきですが、 ”” はコンパイル時にエラーになります。
　GAME-Z80版のGAMEコンパイラは　”” に対応していたと記憶しています。""はキーセンスのためにループ内でよく使っていたはず。
by skyriver (2019-05-01 15:52)

　コメントで書いた文字列出力部のコンパイルが気になったので頭の体操として生成コードの短縮化と長さゼロの文字列に対応するようコンパイラを変更しました。
by skyriver (2019-05-02 23:35)

　CP/Mで起動時にGAME本体を8600Hへ転送するようにして起動時間を高速化しました。

by skyriver (2019-05-04 08:34)

　起動のたびにコンパイラをコンパイルするのは面倒なので0x0200～にコンパイラを包括しました。コマンド名もgamecに変更しました。

by skyriver (2019-05-06 11:20)

　起動時のメモリマップは下記のようになっているので
1)作成したGAMEソースのコンパイル結果を$0200に上書き
　この時、$0200からのコンパイラは使えません
2)下記のコマンドで起動時のジャンプ先をコンパイル結果に変更してGAMEから抜ける。
A=$011B A:0)=$02 >=0
3)下記のコマンドでセーブすると作成したGAMEソースのコンパイル結果を実行する自作のCP/Mコマンドを作成できます。
save 34 hoge.com

[起動時のメモリマップ]
0200-1b23 : compiler
1C00-22FF : interpretter

by skyriver (2019-05-06 15:33)

　CP/M-80用GAME80のVer0.02でスペースキー、ESCによるポーズ、ブレーク時にエコーバックしないようにしました。

by skyriver (2019-05-10 00:01)

GAMEソースの行番号をリナンバするプログラムを追記しました。

by skyriver (2019-05-10 23:48)

懐かしいGAME言語ですね．
昔，HITACHIのLevel3やFujitsu FM-8/7/11上で動くGAMEコンパイラを開発していました．ASCIIにGAME-FMを載せたことがあります．
GAME-FMを載せたのは1984年くらいだったでしょうか．他のGAMEコンパイラと異なり最適化を最大限行うためにアセンブラで全てを記述しました．シンプルな言語ですが，ちょっとしたプログラムを高速化するには便利でしたね．
by Level3 (2019-11-10 14:22)

　コメントありがとうございます。
　GAME言語コンパイラをアセンブラで最適化されたのはすごいですね。
　ハンドアセンブルがメインだった当時の私にとってGAME言語は非常にインパクトがありました。
　更にGAME言語自身で記述されたコンパイラが公開され大変驚きました。
　その後も色々な独自言語が出てきましたが私にとって一番懐かしく感じるのはGAME言語です。

by skyriver (2019-11-10 15:22)

GAME言語、懐かしいです。大学生の時にTK-80BSを持っていましたが、月刊ASCIIに次号にGAME80コンパイラが掲載されると予告された時の興奮、発刊を指折り数えて待つソワソワ、次号に載らなかった時の落胆、その次の号に掲載されたときの興奮、動いた時の感動を、40年以上経った今でもありありと思いだします。GAME80ではリロケータブルコンパイラを作成しました。生成されたオブジェクトはどこへ移しても動くものでした。また、1981年の月刊ASCIIに掲載されましたが、GAME言語用ラインエディタを開発しました。当時はエディタやOSが存在しなかったので。
by mocapapa (2020-05-03 09:45)

　コメントありがとうございます。
　リロケータブルなマシン語を出力するように改造したのはすごいですね。
　GAME言語のエディタは使いづらいので私も自作マイコン上で１ラインのスクリーンエディタもどきの機能を付けて使ってました。

by skyriver (2020-05-03 23:15)

GAME言語は懐かしいです。僕もこの間、GAME言語のインタプリタをLinuxのCで開発しました。まだベータ版と言ったところですが、よろしければホームページをお訪ね下さい。実行ファイルとソースをGithubに上げてあります。
by T.M (2023-02-01 19:30)

CでGAME言語のインタプリタを作ったんですね。
私も以前、Cで作りポケコン（FX-890）とPIC24で動かして遊びました。
by skyriver (2023-02-01 20:56)

コメントを書く

トラ技2019年5月号のPSoC基板｜3チップ構成68Kマイコンの構想（その１.. ブログトップ

日	月	火	水	木	金	土
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

CH32V203で遊ぶ（その２）U..
　⇒ 素晴らしい文章です。あなたのプ..
ポケコン（G850）用拡張基板（そ..
　⇒ 組み込み屋さんではありませんが..
　⇒ 組み込みのお仕事でもされている..
ポケコン（G850）用拡張基板（そ..
　⇒ コメントありがとうございます。..
　⇒ 学生時代にout &h69,6..
レトロマイコンZ80ボードの構想（..
　⇒ 上記二つ目のコメントで書いたZ..
　⇒ Z-80のALUは4bitのも..
　⇒ Z80自身による全メモリクリ..
　⇒ 下記のURLにHALT時のZ8..
　⇒ 　HALT命令をNOPに置き換..

RSS1.0 | RSS2.0

ＰＩＣマイコンは面白い

３チップ構成Pic24CPMマイコン（その７）GAMEコンパイラ　[Z80] [編集]

nice! 2

コメント 15

コメントを書く

skyriver さん

検索ボックス

マイカテゴリー

連載記事

お勧め記事

最新記事一覧

カレンダー

月別表示

skyriver さんがコメントした記事

最近のコメント

skyriver さんの記事をnice!と思った人 (全13人)

開発作品公開ページ

ＰＩＣマイコンは面白い

３チップ構成Pic24CPMマイコン（その７）GAMEコンパイラ [Z80] [編集]

nice! 2

コメント 15

コメントを書く

skyriver さん

検索ボックス

マイカテゴリー

連載記事

お勧め記事

最新記事一覧

カレンダー

月別表示

skyriver さんがコメントした記事

最近のコメント

skyriver さんの記事をnice!と思った人 (全13人)

開発作品公開ページ

３チップ構成Pic24CPMマイコン（その７）GAMEコンパイラ　[Z80] [編集]