Pコードマシン

pコードマシンとは、プロセッサの一種であるが、ハードウェアではなくソフトウェアで、すなわちエミュレータや仮想機械のようなインタプリタ型のプログラムで実装されることを目的としたものであり、p-code と呼ばれる中間コードを解釈実行する。この用語は、そのような仕様一般を指すこともあるが、多くの仕様はそれぞれ個々の名称を持っている。特にUCSD Pascalの p-Machine を指すことが多い。「p」の意味については、Pascal処理系の場合はPascalの頭文字ともされるが、他言語の場合はpseudo（マイクロソフトのサポート情報を参照）やportableなどとされる。
このコンセプトは1966年ごろ、BCPLのやニクラウス・ヴィルトののPとして実装されたのが最初であるが、pコード (p-code) と呼ばれるようになったのは1970年代初期であった。pコードを生成する初期のコンパイラとしては、1973年、Nori、Ammann、Jensen、Hageli、Jacobi が開発した Pascal-P コンパイラと、ヴィルトが1975年に開発した Pascal-S コンパイラがある。
ソースコードからコンパイラのコード生成によってpコードが生成され、そのpコードはpコードマシンのエミュレータ、言い換えればインタプリタによって解釈実行される。商業的に十分意味があるとみて、pコードを直接実行するハードウェアが実装された例もある（例えば、）。
pコードによる実装の利点と欠点.
利点.
（実機の）機械語コードに直接変換するのに比べ、途中でpコードを経由してインタプリタや実行時コンパイラでpコードを実行する方式にはいくつかの利点がある。
Pascalのいくつかの実装では、pコードの解釈実行にジャストインタイムコンパイル方式を利用している。ニクラウス・ヴィルトは Pascal の後継である Modula-2 向けの m-code について言及している 。1980年代、イギリスでpコードのプログラムを実行するクロスプラットフォームのオペレーティングシステム Business Operating System (BOS) が開発された。UCSD p-System はpコードを使ったマシン非依存の移植性の高いオペレーティングシステムであった。
欠点.
pコードの最大の欠点は実行速度が遅い点だが、実行時コンパイラを使えばある程度おぎなえることもある。
UCSD p-Machine.
アーキテクチャ.
pコードマシンはスタックマシンであり、ほとんどの命令がスタックからオペランドを持ってきて、結果をスタックに戻す。例えば、add 命令はスタックの先頭2要素を取り出し、加算結果をスタックに戻す。一部の命令は即値オペランドを持つ。Pascalと同様、pコードも型があり、ブーリアン(b)、文字(c)、整数(i)、実数(r)、集合(s)、ポインタ(a)が最初から用意されている。
以下に簡単な命令を示す。命令名、実行前のスタック状態、実行後のスタック状態、解説の順に並んでいる。
環境.
FORTHやJava仮想マシンのような他のスタックベースの環境とは異なり、pコードマシンはコールスタックとしても使われる1つのスタックしか持たない。マシンの持つ3つのレジスタは、それぞれスタック内の位置を指している。スタックはアドレスの大きくなる方向に成長する。
他に定数域があり、その下に動的メモリアロケーション域がある。NPレジスタ (new pointer) はヒープの先頭（最低位アドレス）を指す。EPがNPより大きくなった場合、マシンのメモリが使い尽くされたことを示す。
PCレジスタはコード領域で現在実行中の命令を指している。
呼出規約.
スタックフレームは以下のようになっている:
 EP →
 ローカルスタック
 SP → ...
 ローカル変数
 引数
 リターンアドレス（前のPC）
 前のEP
 動的リンク（前のMP）
 静的リンク（外側のプロシージャのMP）
 MP → 関数のリターン値
プロシージャ呼び出しは次のようになる。まず呼び出しは次の命令で開始される。
 mst n
ここで、"n" は入れ子レベルを指定する（Pascalではプロシージャが入れ子になりうることに注意）。この命令はスタックに印をつける。すなわち現在のスタックフレームの上の5要素ぶんを予約し、以前のEP、動的リンク、静的リンクなどを設定する。呼び出し側は必要な引数を計算してプッシュし、次の命令を実行する。
 cup n, p
これでユーザープロシージャが呼び出される（"n" は引数の個数、"p" はプロシージャのアドレス）。この命令はPCをリターンアドレスとしてスタック上にセーブし、そのプロシージャのアドレスを新たなPCとしてセットする。
ユーザープロシージャは次の2つの命令から開始される。
 ent 1, i
 ent 2, j
1番目の命令はSPを MP + "i" にする。2番目の命令は EP を SP + "j" にする。従って、"i" にはローカル変数用の領域サイズを指定し（引数および余分に5要素分も予約する）、"j" には命令実行でローカルに必要なスタック領域が指定される。メモリ不足が発生していないかはこの時点でチェックされる。
呼び出し側への復帰は次の命令で行われる。
 retC
"C"にはリターン型（上述の基本型 i, r, c, b, a と何も返さない場合の p）が指定される。リターン値は適切なセルに格納される。p 以外の各型のリターンでは、その値がスタックに置かれたまま呼び出し側に復帰する。
ユーザープロシージャの呼び出し(cup)ではなく、標準プロシージャ "q" を呼び出す場合は次の命令を使用する。
 csp q
標準プロシージャとは、Pascalの標準ライブラリのようなもので、例えば "readln()"（"csp rln"）、"sin()"（"csp sin"）などがある。ただし、"eof()" はpコードでは1つの命令となっている。
例.
1976年、ニクラウス・ヴィルトは単純なpコードマシンを自著 "Algorithms + Data Structures = Programs" で定義した。このマシンには3つのレジスタがある。プログラムカウンタ(p)、スタックベースレジスタ(b)、スタックポインタ(t) である。8種類の命令があり、うち1種 (opr) は複数の形式がある。
このマシンのコードは以下のようになる (Pascal):
const
 levmax=3;
 amax=2047; 
type 
 fct=(lit,opr,lod,sto,cal,int,jmp,jpc);
 instruction=packed record 
 f:fct;
 l:0..levmax;
 a:0..amax;
 end;
procedure interpret;
 const stacksize = 500;
 var
 function base(l: integer): integer;
 var b1: integer;
 begin
 while l > 0 do begin
 b1 := s[b1];
 l := l - 1
 end;
 base := b1
 end {base};
begin
 writeln(' start pl/0');
 t := 0; b := 1; p := 0;
 s[1] := 0; s[2] := 0; s[3] := 0;
 repeat
 i := code[p]; p := p + 1;
 with i do
 case f of
 lit: begin t := t + 1; s[t] := a end;
 opr: 
 0: 
 t := b - 1; p := s[t + 3]; b := s[t + 2];
 end;
 1: s[t] := -s[t];
 2: begin t := t - 1; s[t] := s[t] + s[t + 1] end;
 3: begin t := t - 1; s[t] := s[t] - s[t + 1] end;
 4: begin t := t - 1; s[t] := s[t] * s[t + 1] end;
 5: begin t := t - 1; s[t] := s[t] div s[t + 1] end;
 6: s[t] := ord(odd(s[t]));
 8: begin t := t - 1; s[t] := ord(s[t] = s[t + 1]) end;
 9: begin t := t - 1; s[t] := ord(s[t] <> s[t + 1]) end;
 10: begin t := t - 1; s[t] := ord(s[t] < s[t + 1]) end;
 11: begin t := t - 1; s[t] := ord(s[t] >= s[t + 1]) end;
 12: begin t := t - 1; s[t] := ord(s[t] > s[t + 1]) end;
 13: begin t := t - 1; s[t] := ord(s[t] <= s[t + 1]) end;
 end;
 lod: begin t := t + 1; s[t] := s[base(l) + a] end;
 sto: begin s[base(l)+a] := s[t]; writeln(s[t]); t := t - 1 end;
 cal: 
 s[t + 1] := base(l); s[t + 2] := b; s[t + 3] := p;
 b := t + 1; p := a
 end;
 int: t := t + a;
 jmp: p := a;
 jpc: begin if s[t] = 0 then p := a; t := t - 1 end
 until p = 1;
 writeln(' end pl/0');
end {interpret};
このマシンはヴィルトのPL/0の実行に使われた。PL/0 はコンパイラ開発の教育用に使われたPascalのサブセットである。