PL/MでHELLO WORLD

せっかく動いたPL/M。もう少し遊んで見る。

・よくあるHello worldの例

Unofficial CP/M(http://www.cpm.z80.de/source.html)の「EARLY CP/M SOURCE」内のBDOS.PLMやCCP.PLMを参考に作成

===========================================

100H:                              /* [1] */
DECLARE BDOS LITERALLY '05H';

MON1: PROCEDURE(F,A);              /* [2] */
    DECLARE F BYTE,
    A ADDRESS;
    GO TO BDOS;
    END MON1;

DECLARE
    CR LITERALLY '13',
    LF LITERALLY '10';

PRINTCHAR: PROCEDURE(CHAR);
    DECLARE CHAR BYTE;
    CALL MON1(2,CHAR);
    END PRINTCHAR;

CRLF: PROCEDURE;
    CALL PRINTCHAR(CR);
    CALL PRINTCHAR(LF);
    END CRLF;

PRINT: PROCEDURE(A);
    DECLARE A ADDRESS;
    CALL MON1(9,A);
    END PRINT;

RET$CPM: PROCEDURE;                /* [3] */
    CALL MON1(0,0);
    END RESET;

HELLO:
DO;
    CALL PRINT(.'HELLO WORLD$');   /* [4] */
    CALL CRLF;
    CALL RET$CPM;                  /* [3] */
END HELLO;                                                                      
EOF                                /* [5] */

=========================================

・注意点
　　[1]スタートアドレスが必要。ないと0スタート
　　[2]入出力は自前でBDOSを呼ぶ
　　　昔からCP/MのBDOS Callが、CとDEにパラメタを入れるのが不思議だったのだが、PL/Mはそれに合ったコードを出す
　　　(初期のCP/MはPL/Mで書かれていたようなので、卵が先か鶏が先かなのかもしれない）
　　[3]コンパイルしたコードの最後は、EI HALTになる
　　　これはCP/Mから実行する場合は困る。そこでRET$CPMというCP/Mに戻るコードを加えた。
　　[4]文字はUpperCaseのみ。例え文字列であってもLowerCaseはだめ(Hello worldとは書けない）
　　[5]最後にEOFが必要
    [6]コンパイル時のエラーは、fort.12の最後を見ること。「1 PROGRAM ERROR」とか出ている。

・コンパイル結果と実行結果

>ddt HELLO.HEX
DDT VERS 1.4
NEXT  PC
0161 0000
-l100,160
  0100  LXI  SP,01F8
  0103  JMP  0144
  0106  LXI  H,01F9             ;MON1 固定なので再帰は出来ない
  0109  MOV  M,C                ;第1引数はBYTEで1バイト
  010A  INR  L　　　　　　　　　;INX HではないのはHLは奇数なことを見越した最適化かな
  010B  MOV  M,E                ;第2引数はADDRESSで2バイト
  010C  INX  H
  010D  MOV  M,D
  010E  JMP  0005               ;BDOS CALL
  0111  RET  
  0112  LXI  H,01FD             ;PRINTCHAR
  0115  MOV  M,C                ;第1引数はBYTEで1バイト  メモリ経由でEレジスタへ
  0116  MVI  C,02
  0118  MOV  E,M
  0119  MVI  D,00
  011B  CALL 0106
  011E  RET  
  011F  MVI  C,0D               ;CRLF
  0121  CALL 0112
  0124  MVI  C,0A
  0126  CALL 0112
  0129  RET  
  012A  LXI  H,01FE             ;PRINT
  012D  MOV  M,C                ;第1引数はADRESSで2バイト　メモリ経由でDEへ
  012E  INX  H                  ;HLは偶数なのでINX H ?
  012F  MOV  M,B
  0130  MVI  C,09
  0132  DCR  L
  0133  MOV  E,M
  0134  INR  L
  0135  MOV  D,M
  0136  CALL 0106
  0139  RET  
  013A  MVI  C,00               ;RET$CPM
  013C  MVI  E,00
  013E  MVI  D,00
  0140  CALL 0106
  0143  RET  
  0144  JMP  0153               ;メインルーチンへ
  0147  MOV  C,B
  0148  MOV  B,L
  0149  MOV  C,H
  014A  MOV  C,H
  014B  MOV  C,A
  014C  ??=  20
  014D  MOV  D,A
  014E  MOV  C,A
  014F  MOV  D,D
  0150  MOV  C,H
  0151  MOV  B,H
  0152  INR  H
  0153  LXI  B,0147             ;メインルーチン　0x147は DB 'HELLO WORLD$'のアドレス。
  0156  CALL 012A               ;PRINT
  0159  CALL 011F               ;CRLF
  015C  CALL 013A               ;RET$CPM
  015F  EI                      ;ここへは戻らない
  0160  HLT  
  0161  
-

 

>load HELLO.HEX

FIRST ADDRESS 0100
LAST  ADDRESS 0160
BYTES READ    0061
RECORDS WRITTEN 01

E>HELLO
HELLO WORLD

RunCPM Version 5.3 (CP/M 2.2 60K)