HI-TECH Cを使ってみた

はじめに

環境：Windows 11

参考

CPM.EXE for Win32 で HI-TECH C を使う
http://hp.vector.co.jp/authors/VA000084/HI-TECH_C.html

HI-TECH C for CP/M Fan WIKI(JP)
http://hi-tech.msx.click/

MSX C Magazine HI-TECH C部屋 HI-TECH Cを256倍(!?)使うドキュメント
http://tatsu.life.coocan.jp/TMR/MSX-HCTECH.html

MSX(Z80)のセルフコンパイラ
https://www.nabeta.tk/msx/selfcc.html
HI-TECH C CP/M版

HI-TECH Cの入手

http://web.archive.org/web/20040414090318/http://www.htsoft.com/software/cpm/index.html
若しくは
http://www.retroarchive.org/cpm/cdrom/SIMTEL/HITECH-C/
から Z80V309.EXE をダウンロードする。
自己解凍ファイルで64bitでは解凍できない。
MS-DOS Player若しくは拡張子をlzhにしてExplzhなどで解凍する。

適当なディレクトリに配置する（例：C:\etc\HI-TECH_C）

CP/Mエミュレータの入手

CP/M program EXEcutor for Win32
https://www.vector.co.jp/soft/win95/util/se378130.html
から cpm32_04.zip をダウンロードする。

適当なディレクトリに配置する（例：C:\etc\cpm32_04）

コンパイル

適当な作業ディレクトリを用意する（例：C:\Projects\etc\HI-TECH_C）

dev.bat

@echo off
path %path%;C:\etc\cpm32_04
set cpmpath=C:\etc\HI-TECH_C
cmd

hello.c

#include <stdio.h>
main()
{
	printf("hello, HI-TECH C\n");
}

環境変数を設定したバッチファイルでコマンドプロンプトを起動。
コンパイルして実行。

C:\Projects\etc\HI-TECH_C>cpm c hello.c
 COMPILER (CP/M-80) V3.09
Copyright (C) 1984-87 HI-TECH SOFTWARE

C:\Projects\etc\HI-TECH_C>cpm hello
hello, HI-TECH C

C:\Projects\etc\HI-TECH_C>

asciiart

asciiart.c

/*
cpm c asciiart.c -LF
*/

#include <stdio.h>

main()
{
	int i, x, y;
	float a, b, ca, cb, t;

	for (y = -12; y <= 12; y++) {
		for (x = -39; x <= 39; x++) {
			ca = x * 0.0458;
			cb = y * 0.08333;
			a = ca;
			b = cb;
			for (i = 0; i <=15; i++) {
				t = a * a - b * b + ca;
				b = 2 * a * b + cb;
				a = t;
				if ((a * a + b * b) > 4) {
					break;
				}
			}
			putch("0123456789ABCDEF "[i]);
		}
		putch('\n');
	}
}

WebMSX/MSX-DOS2などでも実行可能。