としきさんに刺激を受けたので（大昔）、あっちのほうがいいのかもしれませんが、
ちょっとメモ的に。

　パスカルの本を眺めています。古い人たちは、Ｃでなくパスカルをやるものだ
ったみたいだからです。ジェフさんもそう、ノートンさんもそう。お二方の本、
両方、サンプルにアセンブラだけでなく、Basic と Pascal のコードが載っている。
　（Undocumented DOS -- Ｃも入る --, MS-DOS Encyclopedia -- Ｃ多数になる --。）

　で、ノートンさんが、もうちょっとアセンブラをきちんとやりたいなら
（つまりＣＰＵを知りたければ）、この本だよ、と薦めていた本があり、それを開いて
みました。

　Stephen P. Morse, _The 8086/8088 Primer_, 2nd ed., 1982.

　これ、 初版は 1980 で、初代ＩＢＭマシンが 1981 のはずですから（つまり
MS-DOS 以前）、8086 っぽいのが登場してすぐ書かれた名著（とされている）。
古典。

　で、その２版では、パスカルを扱う章が追加されている。
　パスカルのソースが出てきて、ほとんど英語だよね、眺めれば何をどうやって
るのか分かるよね、で、マシン語はどう？　読めないよね、とか書いてあります。

　そこで、お題。
　問題が解決されるべきレベルで書かれる「高級言語」＝パスカル
　（真の意味で）問題が解決される、ＣＰＵのレベルで書かれる「低級言語」＝アセンブラ

　「ＣＰＵの動きに集中するより（アセンブラ）、問題解決の方法に（パスカル）
注意を払ったほうが有利な場合も多い」などなど。

　パスカルの教科書の多くに、「問題解決」という表現がいっぱい出てきます。
　へぇ、そういう分類があるんだ、と。

　今でもそうなんでしょうか？　Windows プログラミングには、とうぶん関心を
向けないと思うけど。Delphi 7.0 for Win98 or laterは手に入れましたよ　＞としきさん

　テキスト処理なんて、問題解決そのもじゃないか、とか思いました。

c:\c>dir | sort

2022/10/19  01:26               363 delspc.def
2022/10/20  11:49               333 keyw_cpy.def
2022/10/21  21:37               743 addzspc.def
2022/10/22  13:18               379 vwx_strl.def
2022/10/22  20:24               683 2strsrch.def
2022/10/22  20:26               142 999.def
2022/10/22  20:28               142 ln_fin.def
2022/10/22  20:28             1,980 catg_fix.def
2022/10/22  20:29             3,413 altkey_t.def
2022/10/22  20:35             1,208 repl.def
2022/10/22  20:39               955 ren_repl.def
2022/10/22  22:27             1,138 keyp.def
2022/10/28  15:00               105 delallcr.def
2022/10/28  17:20               153 tabs.def
2022/10/28  18:23               370 tabs2.def
2022/10/28  23:24               342 etxtrf.def
2022/10/29  01:43               764 alpha.def
2022/10/29  01:57               739 ren_srch.org
2022/10/29  10:46               200 srch_do.def
2022/10/29  10:59               266 2repl.def
2022/10/29  11:23               220 srch_do2.def
2022/10/29  11:48               193 cnd_sch1.def
2022/10/29  13:40               704 ren_srch.def
2022/10/29  13:42               785 rn_schid.def
2022/10/31  01:04               159 delln_d.def
2022/10/31  21:43               283 2repl2.def
2022/10/31  22:44               199 srch_do3.def
2022/10/31  23:05               811 array2.def
2022/10/31  23:06               209 srch_do4.def
2022/10/31  23:33             2,860 g_story.txt
2022/10/31  23:36               636 array3.def
2022/10/31  23:40               665 arr_srch.def
2022/11/01  01:59               199 srch_do5.def
2022/11/01  02:13               131 srch_do6.def
2022/11/01  12:52               232 hyphn1.def
2022/11/01  14:16               147 hyphn0.def

　問題解決用Ｖｚマクロ一覧（すべて使い捨て）。
　同じ日に何本もマクロを書いている。ストレスの絶頂で現実逃避をしています。

英語のまんまで、ごめんなさい、読んでくだされ。がんばれ！

   Personal Computer Computer Language Series
   Pascal Compiler
   Copyright International Business Machines Corporation 1981
   First Edition (August 1981)

from the above, below

Pascal, a relatively modern language, has benefited 
from many earlier languages (such as ALGOL) 
and is forming the basis of several new ones.

IBM has added several goals to this list:

IBM Personal Computer Pascal is designed to be 
a systems implementation language, especially 
suitable for writing compilers, interpreters, 
operating systems, and so on.

　２点ほど、接点があったので。
　IBM 初号機（1981）には、Pascalが付いてきたみたいで、ALGOLが先祖、
そしてコンパイラが作れるようにと IBMは、オリジナル・パスカルからいくらか
拡張をした、とありますね。
　この拡張というのが何なのか分からなかったのですが。

　ただ、僕が何となく思っているのは、basicコンパイラ（BCってたしか
ＭＳの製品でなかったかなぁ？）と、Basic -> Asmに翻訳して、アセンブル
するのとは、ちょっと違うのじゃないかな、ということ。

　何となくアセンブルすると、すごく速くなりそう。ここが、ぼくが
BASMを面白いかな、と思った点。

>BASM!  The BASIC to 286 Assembly Language Translator (c) 1998

　というように、Basicが流行っていたときのものではないですね。
　Power Basicって何なのか（商品っぽい）調べておきます。
　Basicが方言まみれで収拾つかなくなってしまった、という話は聞いて
います。方言だらけなんでしょうね。

　でも僕が面白がる部分は……。所詮、テキスト処理ツール部分と
あとメモリとちょっとシステム寄りな部分だけでしょうから。

　親父さんは、COBOLも勉強したんだぁ。昔の人は偉いですよねぇ。
　Miyataさんが、「仕事はCOBOL、つまんない」とか言ってませんでしたっけ？
　ここから僕が思うのは、やっぱエディタはエディタで、「言語」で
プログラムする前に、いろんな工夫があるんだろうな、ということ。

　僕は、残りの人生をかけて、基本的に、これをやりたい。
　１　Ｖｚを極める。
　２　Ｖｚの存在意義を実証する＝プログラミングする。道具は使って
　　　なんぼよ。

　まだまだ疲れてるけど、イエイ！

　ふとこんなののことを思い出しました。
　コメントもオリジナルです。「$」の使い方が教育的ですね。
　FGALAPだと思います。

======== cplate.def (v1.00) ========
;127/376   NBH01153  BANT-iT           c.mos氏のＣ言語テンプレート・マクロ
;(12)   91/04/18 01:23
  
* M マクロ
  
50 [CR] "{..}"
        ?.
;       (fe<4||fe>5)?.                  ; 拡張子の判定
        #s (cd!='{') #d ?{ #m . }
        #m '}' #n #21
  
51 \[TAB] "Ｃテンプレート"
        ?.
;       (fe<4||fe>5)?.
        #s c=cd, #d
        &f(c,"iewfscrd") (r<0)? .
        p=$, p.8=c, >i                  ; こういう手もあるわけやね
:i      "f ()" #s .
:e      "lse" .
:w      "hile ()" #s .
:f      "or ()" #s .
:s      "witch ()" #s .
:c      "ase:" .
:r      "eturn" .
:d      "o {" #m "} while();" #n #21 .
  
*
======== End of cplate.def ========

>機械翻訳を使わず、辞書だけでがんばった。
　がんばりました〜！！！　(^^)/~~~~

>Wikipediaにもありますが、もともとPascalでPascalコンパイラというのは書ける
>わけで、これはほかの言語のコンパイラを書くことができるようにしたい、という
>意味なのかなぁ。
　そういう意味なのではないですかねぇ。

> 　この拡張というのが何なのか分からなかったのですが。

APPENDIX E. PASCAL STANDARD AND IBM FEATURES

Summary of IBM Pascal Features
This list summarizes the extensions added to Standard Pascal.

Syntactic and Pragmatic
Metalanguage 
Metacommands:	;これらはコンパイラへの擬似命令。
$BRAVE
$DEBUG
$ENTRY

　どどどどど。５ページくらい。読む気にならない。
　読んでも大半わからないだろう。


>言葉のニュアンスが違う、というのはわかります。
>でも、コンパイラというのは多くの場合、マシン語を直接出力します。
>一方、アセンブラというのは、原義としては、マシン語と１対１の変換機。
>なので、「Basic -> Asmに翻訳」というのがマクロ構文をビシバシ使っている
>ものに対する翻訳であれば高級なプリプロセッサだと思いますが、単にマシン語
>に翻訳するだけであれば、それはコンパイラに他ならない。

　ふーん。コンパイラよりアセンブラのほうがもっとマシンよりなのかと思って
ましたけど、そうとも限らない、と。ふーん、です。

>あとは、BASMという言語そのものがどういったものか、という点も知りたい。

　どうしても本気で知りたいなら、basm最終版を落としてもらって、basm.txtを
読んでもらうしかないですが、僕がなんとなく理解できたのは、
　・配列に制限がある
　・複文（？）＝関数の返り値が関数の入力になるようなのはダメ＝単文２つに分けよ。
　・.comモデル用ソース生成で、relocatableなのは作れない。コンパイル時にメモリ
　　配置が固まるものに限る。
ぐらいでしょうか。

　いっぱい足りないものがあるのかもしれませんが、概略としてはこんな感じ
みたいです。↓


"BASM supports the following statements and functions:"
Say 07,07,"DIR$        HEX$         OPEN           CLS            REPLACE"
Say 07,08,"SHELL       ASC          CLOSE          PRINT          SWAP"
Say 07,09,"TIME$       ABS          KILL           INPUT          DELAY"
Say 07,10,"DATE$       BIN2DEC      CHDIR          POS            ASM"
Say 07,11,"COMMAND$    GETKEY       MKDIR          CSRLIN         BEEP"
Say 07,12,"CURDIR$     INSTR        RMDIR          LOCATE         DIM"
Say 07,13,"UCASE$      VAL          NAME           COLOR          ARRAY SORT"
Say 07,14,"LCASE$      LEN          PRINT#         FRAME          ARRAY INSERT"
Say 07,15,"MID$        SGN          INPUT#         GETSCREEN      ARRAY DELETE"
Say 07,16,"TRIM$       EOF          LINE INPUT#    PUTSCREEN      SCAN"
Say 07,17,"LTRIM$      ERR          EOF            CHANGEATTR     MOD"
Say 07,18,"RTRIM$      AND          DIR$           VIDEOCARD      INCR"
Say 07,19,"EXTRACT$    OR           CURDIR$        DEF SEG        DECR"
Say 07,20,"REMOVE$     XOR          GET$           PEEK           SHL"
Say 07,21,"REPEAT$     NOT          PUT$           POKE           SHR"
Say 07,22,"SPACE$      TICKS        LEFT$          RIGHT$"
END SUB


SUB Display3
ReFrame
Say 13,05,"BASM supports a rich set of control and loop constructs
Say 07,07,"DO  - EXIT LOOP  -  LOOP
Say 07,08,"FOR - NEXT - STEP - EXIT FOR
Say 07,09,"IF  - THEN - ELSE - END IF
Say 07,10,"SUB - EXIT SUB - END SUB
Say 07,11,"GOTO  labelname
Say 07,12,"GOSUB labelname
Say 07,13,"RETURN
Say 07,14,"FUNCTION - EXIT FUNCTION - END FUNCTION
Say 07,15,"CALL  subname [parameters]       { CALL is optional }
Say 07,16,"SELECT - CASE - END SELECT
Say 07,17,"WHILE -EXIT WHILE- WEND
Say 07,18,"END  [optional DOS Errorlevel value]
END SUB

　じゅうぶん立派な気がする。GOTO、悪くないと思うけどなぁ。


>極端なことを言うと、アセンブラのレジスタの数しか変数が使えない、なんて仕様
>のBASICなら機械語に変換するのもたやすいかもしれない、みたいな感じで。

　なかなか受けましたが、そのようなことは書いてなかったと思う。

keep instructions short, 
use the registers, 
use string instructions,

　というのが、速いコードを書く鉄則だそうです。気にしないけど。変数、大好き。
　当たり前のことがさらりと書いてあっただけなのですが、引用元は、Zen of Asm Lang
です。知ってる？　怖いよ、タイトルからして。同じ著者の別の本のタイトルは、
Black Bookです。こ、怖いです。５年先にすら読もうとする可能性はかなり低い。
　もちろん、アサム本です。

> > 　この拡張というのが何なのか分からなかったのですが。

> APPENDIX E. PASCAL STANDARD AND IBM FEATURES
> Metalanguage 
> Metacommands:	;これらはコンパイラへの擬似命令。

なるほど、これは私の感覚では、確かに正統な拡張と言う感じです。

> 　どうしても本気で知りたいなら、basm最終版を落としてもらって、basm.txtを
> 読んでもらうしかないですが、僕がなんとなく理解できたのは、

そこそこ興味はそそられるので、落としてしまうかも。
とりあえず、ネットをさまよって、英語で書かれたいくつかのサイトをざっくり
読んでみたのですがね。関係者が書いたのか善意の第三者が書いたのかわからない
ページで、compilingという単語を見かけました。なので、これって実は、ただの
BASICコンパイラなのではないか、と思いました。
とはいえ、今の所はまだ、表面をなぞっただけ、という自覚はある。
私の知りたいところとしては、ごく簡単なもの、例えば hello world を表示する
だけとかでいいので、完璧に動作するソースリストと、それの変換結果がどうなる
か、というのを見たい。なぜかいまだにBASM用のソースリストにお目にかかれて
いない。

> 　いっぱい足りないものがあるのかもしれませんが、概略としてはこんな感じ
> みたいです。↓

これをみるに、なかなかできの良いBASICコンパイラではないか、という思いが
ますます強くなります。


> 　ふーん。コンパイラよりアセンブラのほうがもっとマシンよりなのかと思って
> ましたけど、そうとも限らない、と。ふーん、です。

ここだけ、ちょっと長くなるけど、解説。
私の感覚が古い、とか、かつてはそうだったけど今は違う、という部分は多々ある
かと思います。でも、もしBASMが２０世紀末にリリースされたのであれば、私の
感覚も大ハズレではないと思う。

まず機械語というのはビットの羅列。そして人間には、どのコードが何をするか
なんてことを覚えるのはなかなか難しい。そこで記憶用の、いわゆるニーモニック
というのが開発された。最初はまさに、それぞれのコードの挙動の記憶用。のはず。
なお、ニーモニックという言葉の由来とか原義とかは、たぶん英語の専門家にお尋ね
いただいたほうがいいでしょう。
そして、ニーモニックを使ってコンピュータの挙動全体を書き下ろすようになった。
すると次に、それをそのまま機械語に変換できるとうれしい。
ということで、ニーモニックを機械語に変換するのがアセンブラ。
その後、アセンブラには擬似命令だのマクロ機能だのが追加されて、構造化構文
までサポートされるようになりました。
とはいえ、基本的にニーモニックと機械語は１対１。
そうではなく、変数に定数を代入する、というようなロジックでプログラムを書く
のが高級言語。最初のころのFORTRANとかCOBOLとか。そして、そのプログラムを
複数の機械語に変換する、というのがコンパイラ。
また、コンパイラも、ターゲットのマシンの機械語にコンパイルする、いわゆる
普通のコンパイラのほかにも、仮想的なマシンの機械語にコンパイルするという
種類のものが昔からありました。有名なところでは、JavaはJVMという仮想マシン
をターゲットにコンパイルされることが多く、WindowsやLinuxではそれぞれ自分
の環境で動くJVMを用意しています。古くは、PASCALでp-codeコンパイラという
ものがありました。これは pseudo code というものを出力するコンパイラで、
別途 p-codeを解釈するインタプリタを実際の各マシンで用意するという形に
なっていました。
これら伝統的なアセンブラやコンパイラのほかに、トランスレータというのかな、
別の言語処理系があります。つまり、ある言語を別の言語に変換する、というもの。
最初にBASMの話を聞いたとき、私はこれだと思ったんですよ。つまり、BASICの
ソースをバリバリの機械語にいきなり変換するのならコンパイラだけど、例えば
マクロを使いまくったアセンブラのソースに変換するのであれば、それはコンパイラ
でもアセンブラでもないよね、ということ。
これの有名なものにratforという言語があります。rational FORTRANということで、
構造化されたPascalっぽい構文のratforで書かれたプログラムをトラディショナルな
FORTRANに変換してくれるのです。ratforが最初に紹介されたときは、これはFORTRAN
の前処理、すなわちプリプロセッサであるという言い方をしていましたが、今では
プリプロセッサというのは単なる置き換え程度のみ行うものをさすようになっていて、
ratforのように構文解析して全く異なったものを出力するものに対しては使わない
用語となっているようです。

ということで、BASMの入力と出力がどうなっているか、ということに興味津々。
とはいえ、今日はもう寝る。

かなりどうでもいいことです。

> 産報という会社のだしていた「ソフトウェア科学」という雑誌の別冊、という体裁な

この会社と雑誌が気になったので、調べて見ました。
きちんと調べるのなら国会図書館ですが、ネットでざっくり、で十分。
結果。
産報出版という、後継の会社が存在していました。
現在は、溶接関係の本や雑誌を出しているようです。
会社概要のページ（ttps://www.sanpo-pub.co.jp/about/）によると

1948年11月　「溶接ニュース」（週刊）を創刊。これをもって創業とする。
　　　　　　なお、発行は社団法人溶接学会から行われた。
1962年04月　株式会社産報と改称。
1985年05月　旧産報の事業整備のため溶接出版部門が分離独立し産報出版株式会社を
　　　　　　設立、現在に至る。

だそうで。
なるほど、祖業回帰に当たって、現在はコンピュータ関係は扱っていない、と。
ん〜、そちらのほうは一体どうなったんだろう。ちょっと気になる。
さらに検索を重ねると、引っかかってきたのがツイッター。
ttps://twitter.com/akakit/status/1111251040370716673
おや、こちらだと雑誌名は「ソフトウェア」となっている。でも

> 後ろのほうのページの広告によると、別冊ではなく本体のほうの「ソフトウェア科学」
> のキャッチフレーズは「ユーザーのためのコンピュータ専門誌」だそうな。

キャッチフレーズは同じ。
どうやら、雑誌名が「ソフトウェア」から「ソフトウェア科学」に変わったらしい。
さらに追いかけてみたら　ttps://acaddb.com/books/articles/5651069　より

> 巻次・年月次
> 　　2巻5号 (1970.5)-6巻8号 (1974.8) = 通巻9号 (1970.5)-通巻68号 (1974.8)
> 雑誌変遷 ID 00151400
>   ソフトウェア = Software ID AN00285688
>     産報 [編] 産報
>    通号表示併記: <1巻2号 (1969.11)>-2巻4号 (1970.4) = <通巻2号 (1969.11)>-通巻8号 (1970.4)
>     産報 1969-1970

なるほど、最初の８冊だけ「科学」がなかったのね。
ところで、上記「別冊」の後ろページに掲載されている本体の広告は1970年6月号。
ほほう、改題されて２号目、なのか。
また、廃刊はオイルショックのころ。あまり売れなかったということなんでしょう。
大型コンピュータのユーザ向けの雑誌のようですし。
ついでなので、1980年前後、いわゆるマイコンブームを牽引した大手誌の創刊を調べて
みたところ

工学社　　　Ｉ／Ｏ　　　　1976年10月創刊
アスキー　　月刊アスキー　1977年6月創刊
電波新聞社　月刊マイコン　1977年8月創刊
廣済堂　　　ＲＡＭ　　　　1978年2月創刊

ということでした。「ソフトウェア科学」も、あと数年がんばって、さらに路線変更
していたら、という気もしなくもない。


さて、産報。
こちらのほうも、もうちょっと検索をしていたら見つけたのが以下。

ttps://daihanrei.com/l/%E6%9D%B1%E4%BA%AC%E5%9C%B0%E6%96%B9%E8%A3%81%E5%88%A4%E6%89%80%20%E6%98%AD%E5%92%8C%EF%BC%95%EF%BC%94%E5%B9%B4%EF%BC%88%E3%83%AF%EF%BC%89%EF%BC%96%EF%BC%96%EF%BC%96%EF%BC%92%E5%8F%B7%20%E5%88%A4%E6%B1%BA

なんか、有名漫画家の本名が原告の中にある。
原告筆頭の方の名前は知らなかったけど、別の有名漫画家のお兄さんということで、
Wikipediaにも名前が載るくらいの大物。
これが確定判決かどうかはわからないけど、この判決が昭和54年、つまり1979年。
ということは、裁判の期間を考えると、1975年前後から、この産報という会社、いろいろと
手を出していた模様。多角化経営というヤツでしょう。でも、それがうまく行かなくて
1985年に事業整備ということになったのではないか、と推測できてしまいます。
大ハズレかもしれませんけどね。



あぁ、一体私は何を調べているのやら。
時間のムダとはいわないけど、ちょっと好奇心の方向がアレすぎるような気がする。

>私もこの辺は、わりと基本に忠実なプログラミングをしていましたね。
>昔、大学生のころ、８ビットアセンブラをハンドアセンブルしていた時代。BASIC
>でロジックを組んで、それをアセンブラに落とす、ということをしていました。

　ここ、構造化ってことを言ってますよね。たぶん、おそらく。
　パスカルが偉かったのは、「構造化」を可能にしたってことですよね。

　僕にとって、現在、「基本に忠実なプログラミング」って、ラインエディタです。
edlinとか、使ったことないのだけど。

……
(ln==655)?.
　これも割と最近の発見でした。

……
655q	# sed version

　プログラミングっぽくないでしょうか？　
　結果がでれば問題は解決されるのです。


----- たとえばこんなの -----
目次のページ情報の桁をそろえる。
;Introduction  				viii 
;   A Maze to Think About		x 

:a
	(ln==158)? .
	#> #a
	&#V(65)			;エライ！
	#> #d
>a
----------------------------