OpenVMS 用 VSI BASIC

VSI BASIC for OpenVMS は、 Digital Equipment Corporation (DEC)によって開発され、現在は VMS Software Incorporated (VSI) が所有するBASIC プログラミング言語の方言の最新名称です。これはもともと、1970 年代にPDP-11ミニコンピュータのRSTS-11オペレーティング システム用にBASIC-PLUSとして開発されました。その後、最初はVAX、次にAlpha、Integrity、そして最近ではx86-64のOpenVMSに移植されました。

この製品の過去の名称には、BASIC-PLUS、Basic Plus 2 ( BP2またはBASIC-Plus-2 )、VAX BASIC、DEC BASIC、Compaq BASIC for OpenVMS、HP BASIC for OpenVMSなどがあります。ハードウェア プラットフォーム (VAX、AlphaServer など) を示すタイトルの複数のバリエーションも存在します。

VSI BASIC には、オリジナルのDartmouth BASIC行列演算子をサポートするほか、FORTRANのような拡張機能が多数あります。

「ERL」関数が存在しない限り、行番号はオプションです。これにより、保護されたステートメントの周囲に「WHEN ERROR」エラー ハンドラーを記述できます。より伝統的ですが、あまりエレガントではない「ON ERROR」ステートメントには、このようなコンテキストやスコープがありません。

VSI BASIC の注目すべき機能の 1 つは、 OpenVMSの強力なレコード管理サービス(RMS)の組み込みサポートです。VAX BASIC がリリースされる前は、ネイティブ RMS サポートは DEC のCOBOLコンパイラでのみ利用可能でした。

VSI BASIC for OpenVMS 製品の歴史は 30 年以上にわたり、その間に多くの名前と所有者の変更を経てきました。また、 DEC、Compaq、HP、VSI によって開発された新しいプラットフォームに次々と移植されてきました。会社名やプラットフォーム名が製品名に含まれることが多く、名前の急増につながっています。

VSI BASIC は、DEC がRSTS-11オペレーティング システムとPDP-11ミニコンピュータ用に作成したBASIC-PLUSから始まりました。プログラミング言語のステートメントは、コマンド インタープリタに直接入力することも、テキスト エディタに入力してファイルに保存し、そのファイルからコマンド インタープリタに読み込むこともできます。ソース コード内のエラーは、行が入力されるとすぐにユーザーに報告されます。

プログラムは、「SAVE」コマンドを使用して.BASソースファイルとして保存されました。「COMPILE」コマンドを使用して、編集不可能なバイナリ .BAC ファイルに「コンパイル」できました。このコマンドは、真のマシン言語プログラムではなく、 「トークン」と呼ばれるバイト コードを生成します。トークンは、より現代的なJavaと同様の方法で、実行時に解釈されます。

プログラムは、行番号 ( 1 から 32767 までの整数)から始まるコマンド インタープリタに入力されました。行は、改行\文字を使用して複数行に継続できます。ソース ファイルの外部編集を容易にするために、BASIC-PLUS の後のバージョンでは、行継続文字として & 文字も使用できるようになりました。ステートメント区切り文字として を 使用することで、複数のステートメントを 1 行に配置できます。

仮想メモリ ( RSTS/E )を備えた PDP-11 システムでは、アドレス空間は約 64 KBに制限されていました。BASIC-PLUS では、この約半分がコマンド インタープリタとランタイム ライブラリの組み合わせによって使用されていました。これにより、ユーザー プログラムは約 32 KB のメモリに制限されていました。古いRSTS-11システムには仮想メモリがなかったため、ユーザー プログラムは、RSTS と BASIC-PLUS が割り当て分を占めた後の物理メモリの残りに収まる必要がありました。たとえば、32K の物理メモリを備えた PDP-11/35 で RSTS-11 V04B-17 を実行すると、ユーザー プログラムは 7 KB に制限されました。大きなプログラムは、「CHAIN」命令を使用してさまざまな部分に分割できます。プログラムは、セカンダリ プログラムの特定の行番号に連鎖できます。コア コモンと呼ばれる共有メモリ セクションを使用すると、必要に応じてプログラム間でデータを渡すこともできます。ディスクファイルも使用できますが、速度は遅くなります。

インタプリタには、文字列データとバイトコードの両方に使用されるガベージ コレクション メモリ マネージャが含まれていました。実行中のプログラムを中断し、変数を調べて変更してから再開することができます。他の高級言語で使用される制御構造の多くは、WHILE や UNTIL など、BASIC-PLUS に存在していました。この言語では、1 行での条件修飾子の使用もサポートされていました。たとえば、行 " " は、I が 10 未満でない限り、"I" の値を出力します。 PRINT I UNLESS I < 10

Basic Plus 2 ( BP2またはBASIC-Plus-2 ) は、後に DEC によって開発され、機能の追加とパフォーマンスの向上を図りました。スレッド コードへの真のコンパイルを使用し、その出力をマシン語 オブジェクト ファイルに書き込みました。これらはシステム上の他のオブジェクト ファイルと互換性があり、ライブラリにアセンブルすることができました。次に、リンカー (TKB タスクビルダー) がそれらから実行可能ファイルを作成しました。TKB はオーバーレイもサポートしており、これにより、必要に応じて個々のルーチンをメイン メモリ領域にスワップすることができました。

BP2 プログラムは、RSX-11または RSTS/E の RSX ランタイム システムで実行されました。この RTS は、ユーザーのアドレス空間の 8KB (後に 2KB) のみを占有し、56KB をユーザーのプログラムに残しました。これらの 2 つの要素により、個々の BP2 プログラムは BASIC-PLUS プログラムよりもはるかに大きくなり、多くの場合、CHAIN が不要になりました。BASIC-PLUS (RSTS-11 でのみ使用可能) とは異なり、BP2 は RSX-11 オペレーティング システムでも使用できました。

VAX ミニコンピュータの開発に伴い、DEC は BASIC-PLUS-2 を新しいVMSオペレーティング システムに移植し、これをVAX BASICと名付けました。VAX BASIC は標準の VMS 呼び出し標準を使用していたため、VAX BASIC で生成されたオブジェクト コードは、他のどの VMS 言語で生成されたオブジェクト コードともリンクできました。BASIC Plus 2 のソース コードは通常、大きな変更を加えることなく VAX BASIC 上で実行できます。

DEC がAlpha マイクロプロセッサを開発したとき、 VMS はこれに移植され、OpenVMSに名前が変更されました。VAX BASIC も同様に Alpha に移植され、DEC BASIC に名前が変更されました。BASICインタプリタはこの時点で永久に廃止され、 DEC BASIC プログラムはコンパイルとリンクによって生成されるOpenVMS実行可能ファイルとしてのみ実行可能になりました。

1997/98 年に DEC がCompaqに買収されたとき、製品名はCompaq BASIC for OpenVMS VAXおよびCompaq BASIC for OpenVMS Alphaに変更されました。

同様に、Compaq が2001/02 年にHPと合併した際に、製品名はHP BASIC for OpenVMS on VAXおよびHP BASIC for OpenVMS on AlphaServerに変更されました。HP は後に、 IntelのItaniumプロセッサをベースにしたIntegrityサーバープラットフォーム向けにHP BASIC for OpenVMS on Integrity をリリースしました。

2014年半ば、HPはOpenVMSエコシステム全体をVSIに売却し、VSIは製品名をVSI BASIC for OpenVMSに変更しました。^[1]

VSI BASIC は、行番号がオプションで、SUB と FUNCTION の両方をサポートする BASIC の構造化されたバリアントです。

「Hello, world!」と印刷します。

関数 real to_fahrenheit(real celsius)
  華氏 = (摂氏 * 1.8) + 32
終了関数    

外部実数関数 to_fahrenheit(real)
実際の temp_celsius を宣言する

エラーが発生したとき
  print "摂氏温度を入力してください";
  入力x
  temp_celsius = 実数(x)
使用
  「エラー: 有効な数値を入力してください。」と印刷します。
終了すると

print "華氏温度は"; to_fahrenheit(temp_celsius)

終わり

• HP の公式 BASIC ドキュメント
• HP BASIC for OpenVMS「ソースコードデモと例」