勝つ快感。

2016年2月7日日曜日

PC-U6000 Heavy Metal

高松製作所さんのUSB接続ケーブルが手に入ったので、以前のブログで紹介したHeavy Metalを動かしてみる。

Windows PCとポケコンをUSBケーブルで接続。

USBシリアル変換のデバイスドライバをインストールすると、自分の環境ではCOM3と認識されたので、APLINKSはCOM3にして仮想ドライブLを作成

エミュレータで使うかもしれないので、ROMイメージを吸出し、仮想ドライブ経由でPCに転送

今度はFDDから読み込んだHeavy MetalのイメージをPCからポケコン実機に転送

20年ぶりくらいに、ゲームを動かしてみた。

相変わらず、このゲームは素晴らしい！

フィルムコンデンサ

ブログに質問が来たので情報共有。

Twitterなどを見ていると、パソピアの電源でフィルムコンデンサが破裂する症状がある様子。
もう30年選手なので、寿命に達している固体も多いと思う。

下の写真は、初代パソピアの電源部

黄色いところがフィルムコンデンサで、0.1uFと見える。

ツイートなどを参考にさせてもらうと、EQC-UA104K 0.1uF/275Vあたりがつかえそうとのこと。

幸い、うちのパソピア達は、まだその症状に出会っていないが、念のために在庫を確保した。

2015年5月17日日曜日

Toshiba T100

以前、XPAC2の動作検証で少し紹介したT100
ebayで購入してから、あまり使っていなかったので、少し調べてみる。

箱はボロボロだったが、、

中身は綺麗。

パソピアとキー配列が違う。。

以前作成したROM吸出しプログラムで、BASIC ROMを吸い出す。

ちゃんと、T-BASIC Ver1.1と認識した

フォントROMの吸出しはできないので、昔紹介した手動打ち込みの方法でフォント作成する。
画面に全文字列を表示して、エディタを使ってプチプチ文字データを作成する。

エミュレータのROMファイルを差し替えて起動すると、問題なく起動。

ここだけだと、パソピアと区別つかない。。

ディスクを吸い出して、D88ファイルを作成。
エミュレータだと一部化けているが、CP/Mも動いた

T-DISK BASICも大丈夫

世界時計のアプリ

こんなアプリも入っていた。

これかなぁ。。

サンプルプログラムを動かしてみた。

パソピアのサンプルとちょっと違う。

XPAC2の動作確認もできたし、T100は一旦しまっておこう。

2015年5月16日土曜日

パソピア7でBIOSアクセス

パソピア7にはBIOSが搭載されているので、BIOSコールを試してみる

BIOSを呼びだす場合は、Cレジスタにファンクション番号をセットした後、0005hをコールする。
ファンクション番号によっては、各レジスタに必要なパラメータをセットしておく

BIOSコールを呼び出すBASICプログラムを用意してみました。

100 'Pasopia7 BIOS Call Test (C) 2015 zak
110 CLEAR ,&HEFFF

120 FOR I=&HF000 TO &HF02D
130 READ A$
140 POKE I,VAL("&H"+A$)
150 NEXT I

160 FOR I=0 TO 6
170 IF I=5 THEN PRINT"H"; ELSE IF I=6 THEN PRINT"L"; ELSE PRINT CHR$(I+65);
180 INPUT " Register &H",A$
190 POKE &HF034-I,VAL("&H"+RIGHT$("00"+A$,2))
200 NEXT I

210 A=&HF000:CALL A
220 PRINT"-----"

230 FOR I=0 TO 6
240 IF I=5 THEN PRINT"H"; ELSE IF I=6 THEN PRINT"L"; ELSE PRINT CHR$(I+65);
250 A=PEEK(&HF034-I):
260 PRINT " Register &H";RIGHT$("0"+HEX$(A),2)
270 NEXT I
280 A=PEEK(&HF035)
290 PRINT "F Register &H";RIGHT$("0"+HEX$(A),2)
300 END

310 DATA C5 :'F000 PUSH BC
320 DATA D5 :'F001 PUSH DE
330 DATA E5 :'F002 PUSH HL
340 DATA F5 :'F003 PUSH AF
350 DATA 2A,2E,F0 :'F004 LD HL,(F02Eh)
360 DATA ED,5B,30,F0 :'F007 LD DE,(F030h)
370 DATA ED,4B,32,F0 :'F00B LD BC,(F032h)
380 DATA 3A,34,F0 :'F00F LD A,(F034h)
390 DATA CD,05,00 :'F012 CALL BIOS
400 DATA 32,34,F0 :'F015 LD (F034h),A
410 DATA ED,43,32,F0 :'F018 LD (F032h),BC
420 DATA ED,53,30,F0 :'F01C LD (F030h),DE
430 DATA 22,2E,F0 :'F020 LD (F02Eh),HL
440 DATA F5 :'F023 PUSH AF
450 DATA C1 :'F024 POP BC
460 DATA 79 :'F025 LD A,C
470 DATA 32,35,F0 :'F026 LD (F035h),A
480 DATA F1 :'F029 POP AF
490 DATA E1 :'F02A POP HL
500 DATA D1 :'F02B POP DE
510 DATA C1 :'F02C POP BC
520 DATA C9 :'F02D RET

ちょっと長くなってしまいましたが、エミュレータが使える方はコピペができるので、手で打ち込むより楽で確実です。。

このプログラムを使って、BIOS経由でFDDの情報を読み込んでみます。
FAT情報がTrack18(12h), Head0, Sector1に保存されているので、その内容を読み込んでみます

まずは起動時の「How may disk drives」に、ドライブ数を指定。
FDをセットした後、上記プログラムをRUN

各レジスタにセットするパラメータを聞かれるので、A～Lレジスタの値を入力

FDDパラメータのセット(ファンクション番号18=12h)における、各レジストリの値は以下の通り。

A=&H00 (0-2bit:DriveNumber, 3-4bit:0, 5-6bit:DriverType, 7bit=DiskSide)
B=&H10 (Read/Write SectorNumber)
C=&H12 (FDD Parameter Set: BIOS Function Number 18=12h)
D=&H12 (Track Number: 12h=18)
E=&H01 (Sector Number)
H=&HE0 (Distnation Address: HL=E000h)
L=&H00

Lまで入力してRETURNを押すと、BIOSコールを実行し、戻ってきたレジストリを表示して終了する

続いてディスク読み込み(ファンクション番号19=13h)を行う
パラメータは無いので、Cレジストリに13hのみセットして実行

キャリーフラグ(Fレジスタの0bit)が0なら成功、1なら失敗
Aレジスタが30h(文字の"0")の場合は成功、31h(文字の"1")の場合はNotReadyです

成功した場合は、出力先アドレス(HL)にE000hをダンプしてみるとFAT情報が書き込まれています

FAT情報には、16バイト毎に以下のファイル情報が書かれています

0-8byte：ファイル名
9byte：ファイル属性（BSAVEで保存したファイルは01h）
10byte：クラスタ番号
11-15byte：未使用(FFh)

クラスタ番号は、以下の順番で並んでいる

クラスタ番号	ヘッド	トラック	セクタ	サイズ	D88の並び順
0	0	0	1～8	単密度:128バイト	0
1	1		1～8	倍密度:256バイト	2
2	0		9～16	単密度:128バイト	1
3	1		9～16	倍密度:256バイト	3
4	0	1	1～8	倍密度:256バイト	4
5	1		1～8		6
6	0		9～16		5
7	1		9～16		7
・・・
68	0	17	1～8	倍密度:256バイト	68
69	1		1～8		70
70	0		9～16		69
71	1		9～16		71
72	0	18	1～8	倍密度:256バイト	72
73	1		1～8		74
74	0		9～16		73
75	1		9～16		75
・・・
136	0	34	1～8	倍密度:256バイト	136
137	1		1～8		138
138	0		9～16		137
139	1		9～16		139

※セクタ番号は、0～ではなく、1～16なので注意
※トラック0・ヘッド0のみ単密度で、1セクタあたり128バイトとなる。
※D88ファイルに吸い出した場合、トラックx・ヘッド0・セクタ1～16 → トラックx・ヘッド1・セクタ1～16の順番で記録されるため、クラスタ番号と並び順が異なる

先ほどダンプしたファイル情報の場合、最初のファイルのクラスタ番号が47h(=71)なので、
トラック：17
ヘッド：1

セクタ：9-16

を見に行くと、ファイルのデータ中身が見えるはず。。

BASICのDSKI$()関数では、トラック0・ヘッド0は取得できない制限がある（ここだけ単密度だから?）ので、どうしても読みたい場合はBIOSを直接コールすると取得できるはず。

試してみると、

結果を見ると、16セクタ×128バイト(単密度)＝2048(800h)バイトぶんのデータがE000h～E7FFhに書き込まれていた。

2015年5月14日木曜日

フロッピーに保存したマシン語ファイルの情報

マシン語をバックアップする場合、開始アドレスとデータサイズが必要。
フロッピーにマシン語ファイルを保存した場合、アドレスとサイズを調べるのは難しい。

5インチ2Dのアドレスとサイズを表示するプログラムをパソピア7で組んでみた。

10 'XPAC2 Machine Language File Information (C) 2015 zak
20 INPUT"Device Number? (1 or 2) ",DEVICE
30 FIELD#0,255 AS FAT$
40 FOR SECTOR=1 TO 12
50 FOR I=0 TO 15
60 T1$=DSKI$(DEVICE,0,18,SECTOR)
70 M=ASC(MID$(FAT$,I*16+1,1))
80 IF (M<>0) AND (M<>255) AND(M<>58) THEN GOSUB 130
90 NEXT I
100 NEXT SECTOR
110 END
120 'Find File
130 PRINT MID$(FAT$,I*16+1,9);" ";
140 ATTR=ASC(MID$(FAT$,I*16+10,1))
150 IF (ATTR=&H80) OR (ATTR=&H81) OR (ATTR=&H90) THEN PRINT"[BASIC]";
160 IF (ATTR=&H01) OR (ATTR=&H11) THEN PRINT"[MachineLanguage]";:GOSUB 200
170 PRINT""
180 RETURN
190 'Find Machine Language
200 CLUSTER=ASC(MID$(FAT$,I*16+11,1))
210 TRACK=CLUSTER\4
220 TSECTOR=((CLUSTER MOD 4)\2)*8+1
230 THEAD=CLUSTER MOD 2
240 FIELD#0,4 AS SIZE$
250 T2$=DSKI$(DEVICE,THEAD,TRACK,TSECTOR)
260 START=ASC(MID$(SIZE$,2,1))*256+ASC(MID$(SIZE$,1,1))
270 LAST=ASC(MID$(SIZE$,4,1))*256+ASC(MID$(SIZE$,3,1))
280 PRINT" START:&H";HEX$(START);
290 PRINT" SIZE:&H";HEX$(LAST-START);
300 RETURN

起動時の「How may disk drives」に、ドライブ数を指定。
「width 80」にしておいたほうが見やすい。

実行すると、確認するフロッピーの入っているドライブ番号を聞かれるので入力。

マシン語の場合は、開始アドレスと記録サイズが16進数で表示される。

フロッピーに保存できる最大ファイル数（192）を全てチェックするまで時間がかかるので、気長にお待ち下さい。。

これがわかれば、FDのファイルをXPAC2にデータ保存しやすくなります。

2015年5月6日水曜日

パソピアの漢字コード変換

前回、PASOPIA7用のワープロソフト「WORK7」で日本語を入力したが、かな入力はまだしも、単漢字変換で、文章を作成するのはとても大変。

テキストファイルをパソピアの漢字コードにコンバートするプログラムを考えてみる。

前回のブログで記載したが、前回のブログでパソピア/7の漢字コードは、区番号と点番号のから計算できる。（区番号と点番号は、Wikiなどを参考）

漢字コード＝（区番号-1）×94＋（点番号-1）＋256

以下のアプリを作ってみたので、ここからダウンロードできます。
　・Kanji Converter(KanjiConv.exe)：S-JISコードをPasopia7の漢字コードに変換
　　Windowsプログラムです。以下のファイル形式で保存できます。
　　(1) バイナリ(*.bin)で保存
　　　2バイト毎で漢字コード（リトルエンディアン）が保存されます。
　　　ファイルサイズは、2048バイトの倍数でサイズ調整（0埋め）されます。
　　(2) CSVで保存
　　　漢字コードは、10進数のカンマ区切りで出力されます。

　・Display Kanji(DispKJ.bin)
　　パソピアのRAM PAC2イメージです。以下のXPAC2の以下コマンドでマウントできます。
　　　sv 3 text.rom
　　以下の2つのBASICプログラムが登録されいます。
　　(1)DISPKJ：XPAC2に保存された漢字コードのバイナリデータを読み込んで表示します。
　　　Kanji Converterで作成したバイナリの漢字コードを利用できます。
　　(2)MANUAL：XPAC2のマニュアルの一部を表示します。
　　　Kanji Converterで作成したCSVを使っています。
　　※(1)(2)共に、プログラム実行前に「SCREEN 1」又は「SCREEN 2」にしておきます。

以下、使い方です。

S-JISテキストをパソピアの漢字コードに変換するWinアプリ「KanjiConv.exe」（.NET 4.0が必要）

ファイルからS-JISテキストファイルを読み込む、もしくはテキストボックスに直接テキストを読み込み、Saveボタンを押します。

ファイルを保存ダイアログで、バイナリ(*.bin)で保存するか、CSVで保存するか選択します。

バイナリで保存した場合、2バイト毎で漢字コード（リトルエンディアン）が保存されます。
ファイルサイズは、XPAC2で読み込めるように、2048バイトの倍数でサイズ調整（0埋め）されます。

例えば、text.binと保存したバイナリファイルを、スロット3(デバイス番号6)に保存する場合、コマンドプロンプト「CMD」で、以下のように実行します

sv 3 text.rom

パソピア7でバイナリの漢字コードを読み込んで表示するプログラム「DISPKJ」を用意しました。

10 'XPAC2 Display Kanji (C) 2015 zak
20 R$=CHR$(13)+CHR$(10)
30 INPUT"Width ";W:WIDTH W
40 PRINT"Select Slot Number."
50 PRINT"[3] 64KB MRAM (DEVICE 6)"
60 PRINT"[4] 64KB MRAM (DEVICE 5)"
70 PRINT"[5] 8KB SRAM"
80 PRINT"[6] 4KB SRAM"
90 PRINT"[7] 2KB SRAM"
100 INPUT S:IF S<3 OR S>7 GOTO 40
110 INPUT"Start Address &H",A$
120 L=VAL("&H"+RIGHT$("00"+A$,2))
130 H=VAL("&H"+LEFT$(RIGHT$("0000"+A$,4),2))
140 LOCATE 0,24
150 OUT &H1B,S:OUT &H19,H:OUT &H18,L:A=INP(&H1A)
160 IF L<255 THEN L=L+1 ELSE L=0:H=H+1
170 OUT &H1B,S:OUT &H19,H:OUT &H18,L:B=INP(&H1A)
180 K=B*256+A:IF K=0 THEN PRINT R$:END
190 IF K=255 THEN X=0:PRINT R$:GOTO 220
200 PUT%(X,23),KANJI(K),7
210 IF X<W-2 THEN X=X+2 ELSE X=0:PRINT R$
220 IF L<255 THEN L=L+1 ELSE L=0:H=H+1
230 GOTO 150

パソピア7の場合は、200行目にあるPUT%()命令でテキスト画面に漢字を表示することかできます。
「SCREEN 1」もしくは「SCREEN 2」で実行します。プログラムを実行すると画面幅を聞かれますので、40 or 80を入力します。続いてバイナリの漢字コードが保存されているスロット（上記の例の場合は3）を選択し、読み込み開始アドレスを入力します。

「KanjiConv.exe」アプリでCSVに漢字コードを保存した場合、そのままDATA文としてコードに書き込むことで漢字コードを利用して画面表示できます。

CSVの漢字コードをDATA文に組み込んで、XPAC2のマニュアルの一部を表示するプログラム「MANUAL」を用意しました。
こちらもPUT%を使っているので、実行前に「SCREEN 1」もしくは「SCREEN 2」にしておきます。

10 'XPAC2 Display Manual (C) 2015 zak
20 R$=CHR$(13)+CHR$(10)
30 WIDTH 80
40 LOCATE 0,24
50 READ K
60 IF K=0 THEN PRINT R$:END
70 IF K=255 THEN X=0:PRINT R$:GOTO 50
80 PUT%(X,23),KANJI(K),7
90 IF X<80-2 THEN X=X+2 ELSE X=0:PRINT R$
100 GOTO 50

300 DATA 680,660,683,633,286,466,4440,650,714,691,642,283,672,313,499,491
・・・（略）
2610 DATA 550,599,562,258,255,0

以下のように、スクロールしながらマニュアルが表示されます。

これで、日本語表示がいくぶん楽にできるようになった。。

XPAC2の漢字ROMを使って印刷

前回漢字ROMデータを書き込んだXPAC2で、実際にパソピアで漢字を出力してみます。

I/Oポートを直接たたく場合、以下のアドレスから操作します。

I/Oポートアドレス	内容
18h	漢字ROM PAC2下位アドレス8ビット
19h	漢字ROM PAC2中位アドレス8ビット
1Ah	漢字ROM PAC2上位アドレス1ビット

上位・中位・下位の合計17ビットで128KBのアドレスを指定した後、18h～1Bhのどれかで8ビットデータをリードします。

初代パソピア（T-BASIC Ver1.1）で漢字を利用する場合、漢字ROM PAC2(PA7246)付属のサブルーチンを読み込んでおく必要があります。また、スロット2を指定（OUT &H1B,2）してから、BASIC命令を呼びます。

パソピア7（T-BASIC7）の場合、そのままBASICの漢字命令を利用することができます。

グラフィック画面に描画するPUT@命令は、初代パソピア、パソピア7両方で利用できます。
文字として表示するPUT%命令は、パソピア7のみで利用できます。

漢字ROMの動作確認プログラム

100 SCREEN 2:WIDTH 80
110 R$=CHR$(13)+CHR$(10)
120 FOR KU=1 TO 47
130 FOR TEN=1 TO 94
140 K=(KU-1)*94+(TEN-1)+256
150 PUT@(X,Y),KANJI(K),PSET
160 X=X+16
170 IF X>=640 THEN X=0:Y=Y+16
180 IF Y>=192 THEN Y=0
190 NEXT TEN
200 NEXT KU

順番に漢字が表示されます。