廃棄する本や説明書、データーブックなど

仕事場に死蔵してある「本」・・・取り扱い説明書やデータブック。
これらを捨てようと整理していたら・・・
「あれま、懐かしい・・・」っと。　・・・手が止まってしまいます。


「ICM」 製のPC-9801用ハードディスクの説明書。
　　※一番上に、「EO system」のガイド本を乗せました。

この時に買ったのはSCSIの180MバイトのHDDだったのでしょう、
今とは容量の「単位」が違います。

※誰もいらないですね？
　火曜日にみんな捨てますんで。

CR2032バックアップ用リチウム電池・・・0V

先日来、ガレージのPCの調子が良くなかったんで、
昨晩、フタを開けて清掃。
　　立ち上がりをミスったり、
　　動画を見てたら落ちたりっと。
PCはガレージの主テーブル（食事を作るんで油も煙もひどい）の
そば。
電源を抜いてから、ケースの吸気口やファンの汚れ（コテコテだぁ）
を清掃。



ところが・・・掃除を終えてからの電源投入。
いきなりBIOS設定画面が出てきちゃいました。
いろんな設定だけでなく、日付も忘れています。
あれまっ。

文鎮 の佐藤テック君のアドバイス。
　　「電池とちゃうか？！」



アタリ！でした。
電池を外してテスターで電圧を測ったら「0V」。
放電しきってます。
「まぁよぅ動いてたな」ってことで新品電池に交換にして解決。

電源コードを外して小一時間ほど掃除でごそごそしてたせいで、
完全に電源が抜け落ちてしまったのでしょう。
それでもまぁ「0V」とは・・・

エライこっちゃ。ネットも電話もできない！！

今朝、仕事場へ来たら・・・・
ネットも電話もできない状態になってました。

仕事場、「NTT・ひかり電話」でネットと電話+FAXをしています。
昨日までは普通。
今朝、ネットがつながらないということで、異常に気付いたという次第。
電話も発信音が聞こえません。

NTTの故障サービス受付は9時から。（0120の）
9時になって携帯から電話しても「混んでいる」ということでつながりません。
さぁ困った。
電話は携帯があるんでなんとかなりますが、ネットにメールがアウトと
なると仕事になりません。
そこで、非常手段。
アナログ電話の故障対応の「116」へ電話。
そこから「ひかり電話」の故障対応セクションへ連絡してもらうことができました。

しかし、修理ができるまで待てません。
自力でどうにかなるかっと、まずは、「何がおかしいのか」の確認から。
引き込んである光ケーブルを見ますと・・・

光ケーブルは↑の右側の白い箱に入っています。
そこからモジュラージャックで、左の黒い箱につながり、黒い箱から
ルータや電話に、という流れです。

電源を入り切り（ACアダプタ）をしますと、黒い箱のLEDは点滅したり
賑やかに応答しますが、白い箱のはPOWERが点くだけでだんまり・・・
白い箱が「怪しいかも？！」っとにらんで外したACアダプタがこれ。

白い箱の型番が「GE-PON-ONU」。
それ用のACアダプタです。
「DC11V 1A」という定格で、「2005年3月」と記されています。
「ミツミ」とありますが製造は「三菱電機」。
しかし「MADE IN CHNA」。

このDCプラグに電子負荷をつないでテストすると・・・
0.3Aくらいまでは11V出てますが、そこから電流を増やすと
ドロップし始めてアウト。
このACアダプタが死んでいるようです。

必要なのは中途半端な「DC11V」という電圧。
手持ちのスイッチング電源、5Vと24Vなら電圧可変できるのが
あるんですが、12Vの出力電圧可変電源は見当たらず。
　　※もっと探せばあったかも

そこで・・・
手持ちの12V固定電圧出力電源、この出力ラインにダイオード１本を
直列にかまして、ちょいとドロップさせて「GE-PON-ONU」につな
ぎました。　すると・・・復旧。
　　※つなぎの線のドロップなどで、機器端ではほぼ11Vだっ
　　　たんで、OKと判断。

とりあえず、非常事態から抜け出すことができました。
NTTの修理（機器交換だと）は来週月曜日に。

朝から大騒ぎしました。

ひさびさの1.2Mフォーマットのフロッピ

現用PCのハードディスクに保存してあるはずの昔のファイル。
ぜったいに作業フォルダーごと保存してあるはずなのに見つからない・・・
MS-Cでコンパイルしてたので、その関連ファイルが残っているはず。
でも、HDD内に無い・・・。　どこに？

・歴史
Windows普及(DOS/V機)の前はPC-9801が開発環境。
その前は自作のZ-80・CP/M。
仕事のプログラムだけでなく趣味のあれこれのファイル、喪失しないようハードディスクやMO、DVDにバックアップしてあります。
CP/MからPC-9801への移行期には、8インチのCP/MディスクをPC-9801で保存。
MS-DOS時代はHDDだけでなく、予備的にMOやCDへもコピー。
Windowsになっても基本は同じ。
昔のファイルもPC内のHDDと外付けHDD、そして適時DVDに保存。
　　※MOは使わなくなったけど置いてある。
　　　まだドライブは生きている。

だもんで、必要なフロッピはすべてバックアップしているはずだとの思い込みが・・・
ちょいと「Z80アセンブラ」の話が出たんで、フリーソフトのソースの在処を探したんです。
それが見つからない。

出来上がって動く実行ファイルや関連するドキュメント（アマチュア無線のパケット通信、VAP-NETのログ）の一部は残っているんですが肝心のソースファイルが無いのです。

「保存のし忘れの可能性大」ということで、3.5インチフロッピを保管してある引き出しを探してみました。
すると、その中から発見！
バックアップしなくて良いだろうと判断した、雑誌の付録フロッピなどのところから。


当時のフロッピ、バックアップしたらその行き先「MO」とか「HDD」と赤ペンでマークしてあります。
見つかったフロッピにはそのマークがありませんでした。
まったくもってバックアップのし忘れ。
　　※しかも、当時使ってたPC-9801のHDDからは消したみたい。
　　　その理由は思い出せない。
　　　ひょっとすると、自宅のPCでゴソゴソしてたのかも。

ファイルの日付は1991年7月。
28年前のものでした。
昨日発掘できなかったら、失っていたかもしれません。
あぶなかった。

※元はCP/Mのフリーソフト。
　Cで書いてあるのでMS-DOSにも移植可能。
　扱えるラベルの数を増やすにはとか、カナを通るようにとか、
　「DEC (IX-nn), DEC (IY-nn)」命令展開のバグを見つけたりと。


さらに・・・　（思い込みで手間が増える）
現用のWindows PCにFDDは付いているんですが、「PC-9801の1.2Mフロッピは読めない」っと思い込んでいたのです。
だもんで、ひさしぶりにPC-9821を起動。
TABキーを押しながら電源オンすると「MS-DOS」と「Windows 95」を選べます。
Windows 95にするとLANにつながるので、現用PCからPC-9821をアクセスできます。
これで1.2Mのフロッピを読み取りました。
　　　※作業はこれで完了。

現用PCのFDD、そういや長いこと使ってません。
ちゃんと動くかどうか1.4Mのフロッピを入れて確認。
きちんと読み書きできました。

そのあと「ほんとに3モードFDDじゃないのか？」の記憶が不確かだったので、試しに1.2Mのフロッピを入れてみると・・・
読み書き可能。
PC-9801の起動は不要だったという話でした。

メモ：早明浦ダム空撮

早明浦ダム放流時の空撮映像がアップされています。

http://www.water.go.jp/yoshino/ikeda/sameura/same_118.html

「★★★　職員が撮影したものです。ぜひ、ご覧下さい　★★★」っと。

※過去記事

2010年06月18日：ちょっと四国へ#6

2010年06月30日：早明浦ダム放流中

2011年05月31日：早明浦ダム100%

方眼紙

ラフ図を描くのに「A4の方眼紙どっかにあったぞ」と探してきたのがCQ出版からお預かりしている手書き図用のトレーシングペーパー。

5mm升で50mmごとに太線が入ってます。

　　※A3、A2の方眼トレーシングペーパーはたくさん残って

　　　るんですが、もう使うこともないかなぁ。

このCQ出版からの紙も残り少ないんで、とりあえず作っておこうと線を引いてみたのがこれ。

http://act-ele.c.ooco.jp/data/A4SQ5mm.pdf

5mmピッチで25mmごとに太線を入れてます。

線色は薄い黒で。

その後、わざわざ作らなくてもネットにきっと転がってるでっと探してみたらありました。
自分で好きなのを作れるようになっていてなかなか優れもの。

http://houganshi.net/houganshi_solid.php

対数の方眼紙もラインアップ。

「gawk」の正規表現・・・続き：文字の順番を入れ替える

もう一つ、gawkの処理で「簡単に！」を実現したののが
「負論理記号」。

例えば「74138」。

部品ライブラリの「ピン名称」、Bsch3Vだと「￥Ｇ￥２」のよう

に￥が先に来て負論理のupper barが次文字の上に出ます。

+PIN,N:A,DF:FFFFFFFF,L:L1,T:,M:1,-PIN
+PIN,N:B,DF:FFFFFFFF,L:L2,T:,M:2,-PIN
+PIN,N:C,DF:FFFFFFFF,L:L3,T:,M:3,-PIN
+PIN,N:\G\2\A,DF:FFFFFFFF,L:L5,T:N,M:4,-PIN
+PIN,N:\G\2\B,DF:FFFFFFFF,L:L6,T:N,M:5,-PIN
+PIN,N:G1,DF:FFFFFFFF,L:L7,T:,M:6,-PIN
+PIN,N:\Y\0,DF:FFFFFFFF,L:R1,T:N,M:15,-PIN
+PIN,N:\Y\1,DF:FFFFFFFF,L:R2,T:N,M:14,-PIN
+PIN,N:\Y\2,DF:FFFFFFFF,L:R3,T:N,M:13,-PIN
+PIN,N:\Y\3,DF:FFFFFFFF,L:R4,T:N,M:12,-PIN
+PIN,N:\Y\4,DF:FFFFFFFF,L:R5,T:N,M:11,-PIN
+PIN,N:\Y\5,DF:FFFFFFFF,L:R6,T:N,M:10,-PIN
+PIN,N:\Y\6,DF:FFFFFFFF,L:R7,T:N,M:9,-PIN
+PIN,N:\Y\7,DF:FFFFFFFF,L:R8,T:N,M:7,-PIN

ところが、OrCADだと「Ｇ￥２￥」となって、
文字の後ろに￥があると、その文字の上にバーが付くのです。

'74LS138'
{X Size =}   7      {Y Size =}   9      {Parts per Package =}   1
L1      1         IN  'A'
L2      2         IN  'B'
L3      3         IN  'C'
L6      6         IN  'G1'
L7      4 DOT     IN  'G\2\A\'
L8      5 DOT     IN  'G\2\B\'
R1     15 DOT     OUT 'Y\0\'
R2     14 DOT     OUT 'Y\1\'
R3     13 DOT     OUT 'Y\2\'
R4     12 DOT     OUT 'Y\3\'
R5     11 DOT     OUT 'Y\4\'
R6     10 DOT     OUT 'Y\5\'
R7      9 DOT     OUT 'Y\6\'
R8      7 DOT     OUT 'Y\7\'
T0     16         PWR 'VCC'
B0      8         PWR 'GND'

単純な文字の入れ替えなんですが、うまい表現が思いつきません。

2019年02月10日 ：「gawk」の正規表現・・・続き

と同じように、￥の検出で、その直前の文字列の最後尾を１文字
抜き出し、￥を挿入後に抜いた文字を加えるという処理をして
います。
これ、どうにかスマートにする手法って無いでしょかね。

gawkの関数：「length」でつまづく！

MS-DOS時代の「jgawk」なら大丈夫なのに、Vectorでダウンロードした
「gawk(3.1.5)」でアウト。

「正規表現」 は関係ありません。

おかしな挙動をしたのが「length」。

文字のバイト数を返す関数。

gawkで使うと、おかしなことが起こったんです。

検証のため、こんなテストプログラムを実行。

{
    n = length($0);           # 入力文字列のバイト数
    printf("n:%d\n", n)     # いったん確認
    r1 = "";                    # バッファをクリア
    for(i = 1; i <= n; i++){    # 入力文字数でloop
        c1 = substr($0, i, 1);     # 1文字取り出し
        r1 = r1 c1;                 # バッファに文字として結合
        printf("%s:%d\n",r1,length(r1));   # バッファの文字列とバイト数を表示
    }
}

これがgawkだと、

12345　　←入力文字

n:5　　　　合ってる
1:1　　　　ところが、増えていくはずが・・・
12:1
123:1
1234:1
12345:1　　　5文字ループしたのに「1」

abcdefg　　　7文字入力

n:7　　　　合ってる
a:1　　　　ところが・・・
ab:1
abc:1
abcd:1
abcde:1
abcdef:1
abcdefg:1　　やはり1のままで違ってる

正しい値は・・・

行末の数字が1234・・・と+1ずつ増加しなくちゃなりません。
で、正しい答えを出す方法。

・gawkのままで

　１：　　　　 r1 = r1 c1 "";           # 空文字を結合

　２：　　　　 printf("%s:%d\n",r1,length(r1 ""));　　　同じく

　３：　　　　　起動オプションに　-W ctype=ASCIIを加える

　　　ctype=SJISだとダメ。

・jgawkだとそのままでok

むちゃ悩んだぞ～～～っと。
どうしたものか。

※結果・・・
gawkのバージョンを上げるということで対応。（4.1.4に）

ここからダウンロード。

https://www.klabaster.com/freeware.htm#mawk

Free download of the version 4.1.4 (Aug 2016)
(Version 4.1.4)
Win32 executable

Version in English


※ところが・・・
4.1.4では日本語がアウト。
起動オプションも見当たらず。

「gawk」の正規表現・・・続き

昔の回路図データを紙にプリントしたい！

「gawk」の正規表現で

の続きで、gawkの正規表現で悩んでいます。

・やりたいこと

OrCADの部品ライブライーソースファイルの中に出てくる

こんな文字列（「'xxxx'」というふうに｢'｣で区切られている）内の

「スペース」を「_」（下線記号）に変えたい。

・例　文字列

　　'VOLTAGE REGULATOR'
　　L1  3  SHORT   IN  'PLUS INPUT'
    R1  'C2' CLK  OUT 'CLK OUT'

・なぜか

gawkの「スペースで文字列を文字単位に」分割するという

機能、「'」で区切られた文字列内にスペースがあると、

そこで切られてしまいす。

「'  '」内のスペース、これを「_」（下線記号）に変えて、

分割されないようにしたいわけで。

・条件

1行に複数個の「'  '」が出現することもある。

・試したのはこんな処理

    while(1){                                 # 「'  '」がいくつもあるかもしれないので
        match($0, /'[^']*'/);
        if(RSTART == 0)     break;   　　# 「'  '」がなければおわり
        s1 = substr($0, 1, RSTART-1);             # 「'  '」の左側
        s2 = substr($0, RSTART, RLENGTH);   # 「'  '」の部分
        s3 = substr($0, RSTART+RLENGTH);   # 「'  '」の右側
        gsub("'", "@", s2)      # 「'  '」部分の「']をいったん@に
        gsub(" ", "_", s2)       # 「'  '」部分スペースを｢_｣に
        $0 = s1 s2 s3            # あらたな$0
    }   
    gsub("@", "'", $0)         # @を｢'｣に変えて元に戻す

「'  '」が複数個出るかもということで、「']をいったん@に変えて、

1行の先頭から処理するようにしました。

gawkらしく、もっとスマートな方法は？

　　　※Cだとチカラ技で処理を進めるですが、gawkの書式はパズルです。

　　　　　1文字ずつ読み出して｢'｣が来たらスペースを｢_｣にというほうが

　　　　　良いかな。

そういや、こういった記述にも対応しないと。

R1    24   OUT 'QA'''　← QA'が信号名で 二つの｢''｣で

文字としての｢'｣を示すわけでして・・・。

「gawk」の正規表現で

2019年2月 5日：昔の回路図データを紙にプリントしたい！
の記事に対するCPU.BACHさんのコメントに関して・・・

「LIBSX」という「OrCAD」の部品ライブラリソースファイルを、

水魚堂さんの回路図エディタ「CE」の部品ライブラリに変換

するツールがあります。

これ、MS-DOS時代のツールでして「MS-C」で作ったんです

が、これを手直しして「BSch3V」用の部品ライブラリ「LB3」

変換ツールに出来ないものかと、ちょいと試行錯誤してみ

ました。

で、ツールですがCでコンパイルするんじゃなく、「gawk」を

使ってみました。
　　※MS-DOS時代からjgawkはあれこれと使っています。

そこで、OrCAD部品ソースに出てくる文字列処理での

「正規表現」につまずいちゃいました。
部品ソース内にこんな行が出てきます。

'7400'　　←部品名
{X Size =}  4 {Y Size =} 4 {Parts per Package =}  4　★
L1      1   4   9  12         IN  'I0'　　←ピン指定
L3      2   5  10  13         IN  'I1'
R2      3   6   8  11 DOT     OUT 'O'
T0     14  14  14  14         PWR 'VCC'
B0      7   7   7   7         PWR 'GND'

★部分で部品の大きさとパッケージ内の個数を示しています。

前処理としてコメント文字列である「 {xxx} 」を消して、

数字「4 4 4」だけを残したいのですが、この↓正規表現

ではうまくいきません。

　　　gsub(/{.*}/, "", $0)

{ }に囲まれた文字列という正規表現なのですが、
　　　{xxx} yyy {xxx} zz　が
　　　1　  2      3    4

残したいyyyまで消えて、最後尾のzzしか残らない

のです。

「/{.*}/」だと、{ }のくくりを、2と3を飛ばして「1～4」にし

ちゃっています。

ほんとは、1～2で処理。続いて3～4で処理と{ }を含

めて{ }内の文字列を消して欲しいのです。

しかたなく、↓のようなスクリプトでもって{ }を消して

います。

1文字ごと読み出して { 出現でコピーをオフ、} 検出以降

にコピー再開。

　　※こりゃawkのスクリプトじゃないぞ(笑)

#####   コメントを取り除く      #####
#   読み出したﾃﾞｰﾀの中から「ｺﾒﾝﾄﾌｨｰﾙﾄﾞ」を取り除く
#   OrCADのﾗｲﾌﾞﾗﾘｿｰｽのｺﾒﾝﾄは「{...}」となっている
#   直接ﾊﾞｯﾌｧを操作して「{}」とｺﾒﾝﾄを取ってしまう
#   gsub(/{.*}/, "", $0)だと
#   「{xxx} yyy {xxx} zz」が yyyまで消えてzzしか残らない
function rmvcmnt(s,  c,f)
{
    r_bff = "";
    f = 0;　　　　　　　　　　　　 　# 1で文字ｺﾋﾟｰ禁止
    for(i = 1; i <= length(s); i++){
        c = substr(s, i, 1);                # 1文字取り出し
        if(c == "{")        f = 1;          # ｢{｣以降はｺﾋﾟｰしない
        else if(c == "}")   f = 0;          # ｺﾋﾟｰ再開
        else if(f == 0){                    # 文字連結
            r_bff = r_bff c;                # {xxx}以外の文字はｺﾋﾟｰ
        }
    }
    return r_bff;       # コメント削除した1行
}

正規表現を使っての何か良い手順はありませんかね？

※参考
ファイルから読み出した1行は「$0」に入る。
function rmvcmnt(s,  c,f)の s は関数への引数。
その次にスペースをあけてのc,fは関数内部だけの局所変数。

ほかにも、「 { } 」で囲まれたこんなコメントがあります。

      {000000000011111111112}
      {.....................}
      {012345678901234567890}
{  0.0}##...................
{  0.1}#.##.................
{  0.2}#...##...............
{  0.3}#.....##.............
{  0.4}#.......##...........
{  0.5}#.........##.........
{  0.6}#...........##.......
{  0.7}#.............##.....
{  0.8}#...............##...
{  0.9}#.................##.
{  1.0}#...................#
{  1.1}#.................##.
{  1.2}#...............##...
{  1.3}#.............##.....
{  1.4}#...........##.......
{  1.5}#.........##.........
{  1.6}#.......##...........
{  1.7}#.....##.............
{  1.8}#...##...............
{  1.9}#.##.................
{  2.0}##...................

これも行の中から消してしまいたいわけでして。

{X Size =}  、 {Y Size =}、{Parts per Package =}は
固定文字列なんで３つを個別にgsubで先に処理。
その後、「{  2.0}」などを正規表現で削除かな。

こんな具合に。

#    ｺﾒﾝﾄ文 {xxx} を消す
　  gsub("{X Size =}", "", $0);                # ｺﾒﾝﾄ削除               
    gsub("{Y Size =}", "", $0);
    gsub("{Parts per Package =}", "", $0);
    gsub(/{.*}/, "", $0);                    # 残りの{...}を全部
　　　：