ＭＹＣＰＵ８０でＣＰ／Ｍを！
超巨大基板の８０８０互換ＨＣＭＯＳ・ＣＰＵでＣＰ／Ｍを走らせてしまおうという、なんとも狂気なプロジェクトです！
［第１３６回］
●ＢＴＫおよびＢＩＮファイル作成プログラム（２）
前回説明をしましたＢＴＫおよびＢＩＮファイル作成プログラムＨＴＯＢ．ＥＸＥですが、実は最初にプログラムを作ってテストをしてみましたら、実に気持ちの悪い動作をすることに気が付きました。
最初はどうしてそういうことになるのか、全く見当がつかず、しばらくあれこれネットを検索して調べてみたりして悩んでいました。
そのうちに
あ。
そういうことだったのか、とやっと気が付いたのでしたが。
これをそのままにしておきますと、いつかそのうちに、また同じことで悩んでしまうかもしれません。
忘れないようにノートに書き留めておけばよろしいのですけれど。
悲しいことに、ノートのどこに書いたのか、じきに忘れてしまいます。
それどころか、ノートに書いたことすら忘れてしまいますから、もうお話にもなりません。
そこで、こうやって、備忘録がわりに、ＨＰに書いておくことにいたしました。
うむむ。
せんだってのように、ＨＰに書いたこともやっぱり忘れてしまいますから、どこに書いても同じことか。
あ。
しかし。
ノートに書いたものを後で探し出す場合には、自力によるほかはありませぬ（これには大変なエネルギーが要りまする）。
ＨＰに書いた場合には、ひょっとするとＧｏｏｇｌｅさまにお尋ねすれば教えてくれるやも知れませぬ。
でありますから、やっぱりノートではなくて、ここに書きとめておくことにいたします。
何が起きていたのかといいますと。
下が気が付かずにうっかり間違えてしまったプログラムです。
ええ。
間違っているところがあります。
// translate from htx to btx & bin
//
#include <stdio.h>
#include <string.h>
FILE *htxfp;
FILE *btkfp;
FILE *binfp;
char htxfname[50];
char btkfname[50];
char binfname[50];
int n;
int c;
int i;
int j;
int k;
int H;
int L;
int x;
//
int hextobin();
//
void main(){
printf("infilename=");
gets(htxfname);
n=strlen(htxfname);
i=0;
while(i<n){
btkfname[i]=htxfname[i];
binfname[i]=htxfname[i];
if(htxfname[i]==0x2e)break;
i++;
}
if(i==n){
strcat(htxfname,".htx");
strcat(btkfname,".btk");
strcat(binfname,".bin");
}
else{
strcat(btkfname,"btk");
strcat(binfname,"bin");
}
printf("infile=%s\n",htxfname);
printf("outfile1=%s\n",btkfname);
printf("outfile2=%s\n",binfname);
htxfp=fopen(htxfname,"r");
if(!htxfp){printf("%s cannot open\n",htxfname);return;}
btkfp=fopen(btkfname,"wb");
if(!btkfp){printf("%s cannot open\n",btkfname);fclose(htxfp);return;}
binfp=fopen(binfname,"wb");
if(!binfp){printf("%s cannot open\n",binfname);fclose(htxfp);fclose(btkfp);return;}
//
printf("start to convert\n");
i=0;
j=0;
k=0;
while(1){
c=fgetc(htxfp);
if(c==EOF)break;
H=c;
i++;
c=fgetc(htxfp);
if(c==EOF)break;
i++;
L=c;
if(!hextobin()){printf("\n***error! not HTX\n\n");break;};
fputc(x,btkfp);
j++;
if(j>4){fputc(x,binfp);k++;}
}
fclose(htxfp);
fclose(btkfp);
fclose(binfp);
if(i==0)printf("\n***error! file is empty\n\n");
printf("%s=%dbytes\n",htxfname,i);
printf("%s=%dbytes\n",btkfname,j);
printf("%s=%dbytes\n",binfname,k);
printf("end\n");
}
//
int hextobin(){
if(H>=0x30 && H<=0x39)x=(H-0x30)*16;
else if(H>=0x41 && H<=0x46)x=(H-0x37)*16;
else return 0;
if(L>=0x30 && L<=0x39)x=x+(L-0x30);
else if(L>=0x41 && L<=0x46)x=x+(L-0x37);
else return 0;
return 1;
}
//
|
