PL/M

CUGにも幾つかPL/Mでかかれたプログラムがある。PL/MコンパイラをコンパイルするにはFortranコンパイラが必要なので、Linux上でgfortranを使用し動かしてみた。

(1)The Unofficial CP/M Web Siteから「PLM compiler source 」をダウンロードし展開
(2)本体はPLM81.FORとPLM82.FOR
　　gfortran PLM81.FOR -o plm81
    gfortran PLM82.FOR -o plm82
   ソースの最後にCP/MのEOFである01AHがあるのでエラーになるが、それを除いてコンパイル。いろいろWarningが出るが無視。
(3)使い方が良くわからなったが、同サイト上の「PL/M-80 compiler for DOS Box: 500K」を展開してみたところ、以下のDOSのバッチファイルがあった。つまり入力ファイルも出力ファイルもファイル名は固定ということ。(fort.1は良くわからないけど)

===PLM80.BAT===
Rem This setup created by mr.collis@physics.org 31/03/2008
copy %1.plm fort.2
echo rubbish  > fort.1
plm81

rename fort.16 fort.4
rename fort.17 fort.7
plm82
copy fort.17 %1.hex
===============

linuxでは以下のスクリプトを作成。(改行をCR/LFにするのもsedで組み込んだ)
===plm80===
#!/bin/sh
cp $1.PLM fort.2
echo rubbish > fort.1
./plm81

mv fort.16 fort.4
mv fort.17 fort.7
./plm82
sed 's/$/\r/g' fort.17 > $1.HEX
===========

./plm80 PLMSAMP としてコンパイルすればPLMSAMP.HEXが生成される。（付属していたPLMSAMP.HEXと一致することを確認）

これをCP/MでLOADすれば動くはず。ところがエラー「ERROR: INVERTED LOAD ADDRESS, LOAD ADDRESS 0010」
HEXファイルを調べてみると、ロード場所が0010スタート。良く見るとPLMSAMP.PLM内で、「10H:  /*  IS THE ORIGIN OF THIS PROGRAM */」となっている。ソースを修正 (10H->100H)しコンパイルし、CP/Mでロード
  
>load PLMSAMP.HEX

FIRST ADDRESS 0100
LAST  ADDRESS 0381
BYTES READ    0282
RECORDS WRITTEN 06

ところが、実行するとエラー。もう一度ソースを良く読むと、なんと出力ルーチンがアドレスで指定されている。

    /* PRINT USING INTELLEC MONITOR */                                          
PRINT$CHAR: PROCEDURE (CHAR);                                                   
    DECLARE CHAR BYTE;                                                          
    DECLARE IOCO LITERALLY '3809H';                                             
    GO TO IOCO;                                                                 
    END PRINT$CHAR;                      

fort.12がリストファイルなので、該当するPRINT$CHARルーチンを探すと、0197Hとなっている。DDTでHEXファイルを確認すると、
  0197  LXI  H,03E1
  019A  MOV  M,C
  019B  JMP  3809
  019E  RET  

0x3809に出力ルーチンを作れば良いのだが、Cregを出力すれば良いのか? どのレジスタを保存すべきか? よくわからない。出来るだけ安全サイドでBDOSコールルーチンを作る。

===COUT.ASM===
;--CP/M interface---------------
BDOS EQU 5

ORIGIN EQU 3809H
;
 ORG ORIGIN
COUT: PUSH H
 PUSH D
 PUSH B
 PUSH PSW
 MOV E,C
 MVI C,2
 CALL BDOS
 POP PSW
 POP B
 POP D
 POP H
 RET
;

これを使用して
>asm COUT
CP/M ASSEMBLER - VER 2.0
3818
000H USE FACTOR
END OF ASSEMBLY

RunCPM Version 5.3 (CP/M 2.2 60K)

>ddt COUT.HEX
DDT VERS 1.4
NEXT  PC
3818 0000
-I PLMSAMP.HEX
-R
NEXT  PC
3818 0000
-G100

SAVE 38 PLMSAMP.COM とすればCOMファイルが出来る。　動作確認が出来た。