PC-8001でもXMODEM

HardOffで110円で手に入れたUP12でPC-8001とWindows 7がつながったのに気をよくて、XMODEMのシーケンスを試してみました。

XMODEMはコンピュータ間でシリアル通信を使いファイルの送受信をおこなうプロトコルで、1977年にWard Christensenにより8BitのCP/M上で開発されたようです。日本ではパソコン通信とともに80年代に入ってから普及しました。XMODEMが元祖で、いろいろな派生系が存在します。

Windows 7でターミナルはRLoginを使っているのですがRLoginにもXMODEMのサポートがありました。

Z80のアセンブラで受信のプログラムを書いてみました。シーケンスの確認で中身は無いです。

UARTRD	EQU	20H
UARTRC	EQU	21H

RTSHIG	EQU	00010111B
RTSLOW	EQU	00110111B

SOH     EQU     01H
STX     EQU     02H
EOT     EQU     04H
ACK     EQU     06H
NAK     EQU     15H
CAN     EQU     18H

PUT	MACRO	C
	LD	A, C
	RST	18H
	ENDM

	ORG	6000H

START:

	CALL	INIT8251
L2:
	LD	A, NAK
	CALL	CHAR_OUT
	CALL	CHAR_IN
	CP	EOT
	JP	Z, L1
	LD	C, 131

L3:
	CALL	CHAR_IN
	DEC	C
	JP	NZ, L3

	LD	A, ACK
	CALL	CHAR_OUT

	PUT	'.'
	JP	L2

L1:
	LD	A, ACK
	CALL	CHAR_OUT

	JP	05C66H

INIT8251:
	XOR	A
	OUT	(UARTRC), A
	OUT	(UARTRC), A
	OUT	(UARTRC), A
	LD	A, 01000000B
	OUT	(UARTRC), A
	LD	A, 01001110B
	OUT	(UARTRC), A
	LD	A, RTSLOW
	OUT	(UARTRC), A

;
;  PC-8001の8251を外部RS232Cヘ
;
	LD	A, (0EA66h)  ; ワークエリアから I/O 30hへ出力する情報を取得
	AND	A, 0CFh
	OR	A, 20h      ; BS2 = ON
	OUT	(30h), A    ; CMTから外部RS232Cへ切り替え
;
	RET

;
; 8251から1文字入力
;
CHAR_IN:
	IN	A, (UARTRC)
	AND	A, 02h
	JP	Z, CHAR_IN
	IN	A, (UARTRD)
	RET
;
; 8251へ1文字出力
;
CHAR_OUT:
	PUSH	AF
CHAR_OUT1:
	IN	A, (UARTRC)
	AND	A, 01h
	JP	Z, CHAR_OUT1
	POP	AF
	OUT	(UARTRD), A
	RET

8Bit時代に作られたプロトコルなので、8Bitのアセンブラにしっくりきますね。

RLoginをcom 300 ビット/秒で接続してXMODEMアップロード状態にして、このプログラムを実行すると処理が行われ、終了します。

こちらのページを参考にしました。

ちなみに内蔵の8251はカセットインターフェースとの兼用で、割り込みを使っていません。拡張ユニット(PC-8011)の方の8251は割り込みを使っているようです。そのためか、外付けの8251の方はBASICでサポートがありますが、内蔵のほうはありません。

ボーレートはデフォルト300ですが、筐体の中のジャンパーで、4800まで変更可能です。