https://www.crimson-systems.com YouTube
　 　
FACOM 230-25　アセンブラと磁気テープ　　
 


第1次～第2次オンラインシステムの開発に携わりました。

第1次オンラインシステムは アセンブラ + ＣＯＢＯＬ
　　　FASP 　　　オンラインプログラム
　　　COBOL　　付帯バッチ



FACOM 230 5シリーズのＯＳは
　・BOS (Batch Operating System)　　 ・・・　バッチ用
　・ROS (Real-time Operating System) ・・・　オンライン用

　しかしROSは大きいので、MARBLE-25（核のみ）で運用
　データ管理は、COP-F

　・システムは磁気ドラムからローディング
　・外部記憶として、磁気テープ４台（マスタ・ジャーナル）








第2次オンラインシステムは COBOL (OSⅣ/MSP)
　・1970年代には、単勘定から総合システム
　・この頃にはデーターベースという言葉も定着 → CODASYL型データーベース

Mシリーズ　　M-360R
 
   

M-360R console
 
 



第１次オンライン システム

第１次オンラインシステムのジャーナル取得は、磁気テープ２台でした。
オンライン終了後、この取引ジャナールで夜間バッチ処理を行います。






第１次オンラインシステム開発時のソース・リスト
実家の掃除中に見つけたもので、付帯バッチ用 のみ (オンラインシステムのソースが無いので残念)





BOS2: Batch Operating System Ⅱ　　FASP

タイムスタンプが　47.11.10 （1972.11.10）




※オンラインシステムは、 FACOM 230-45の
　ROS, COP-Fではプログラムサイズが大きすぎるので
　ROSを凝縮した MARBLE-25上で、稼働
　 FACOM 230-25　 OS: MARBLE-25
　主記憶　64KB ＋　増設メモリ (Advanced Memory)　128KB

　ROS: Real-Time Operating System
　COP-F: COP File Oriented System (オンラインコモンパッケージ)


　オンライン開発チ－ムは、私を含め４名、付帯バッチは３名に管理者１名の８名でした。
　開発言語：　オンラインはFASP、付帯バッチはCOBOLでした。
　開発期間：　S49年4月 ～ S50年3月　（ 1975.3.3 稼働 ）



　入分配（電文受付）が、常駐しており、電文に応じて処理が割り振られます。
　各処理はオーバーレイ方式で、当座、普通、定期、照会です。
　（私は定期を担当しました。）




CCUの電文制御は、ポーリング/セレクティング方式

１電文長は　128バイト　　・・・　　[STX]　 [ヘッダー]　 [電文]　[ETX]

上り電文: 　各店舗から、口座番号、取引コード、金額等　各取引（処理）毎に各項目があり、DS(Data Separater)で区切られています。
下り電文:　取引毎にチエックをし、正常であれば入出金処理を行い、処理後内容の電文を作成します。

端末の電文送出テストに於いて
実テストでは電電公社(現NTT)が入る為、さらに厄介でした。
（こちら側の確実なテストを得て、不明（おかしい点）を電電公社様にお伺い）


　　　　　　　　　　　　　EBCDIC code






店舗の 端末機は、Olivetti TC-380

TC-380は、テレタイプ　ASR-33と同等な構成
入出力装置の紙テープは、珍しい６単位角穴です。（テレタイプ用　６穴）










※しかし、システム稼働後能力不足の為、　FACOM 230-45SにUP






・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
第2次オンラインシステムでは FACOM M-360R ＋ TC-800

Olivetti TC-800　　8インチディスプレイ









FASP: FACOM Automatic Symbolic Program

開発言語のアセンブラは、コンピュータ・プログラムのひとつです。
※アセンブラ（アセンブラ言語）はアセンブリ言語と同義


現在では　C, C++, Java等が主流ですが、
昔のプログラム言語には、アセンブラ、FORTRAN、COBOLなどがありました。
アセンブラは　記号言語でコンピュータに詳細な命令を出せます。

第１次オンラインシステムは、DBMSの影も無く、各メーカー独自のファイルシステム
プログラムは、全てアセンブラ (バッチプログラムはCOBOL)



※ 第２次オンラインシステムは、CODASYL型データベース



ソースリストを一部載せます。
オンライン取引ジャナールのＭＴを読んで、データを印刷するプログラム
なぜ COBOLで無くアセンブラなのかは、取引ジャナールが
COBOLで扱えないバイナリーになっている為。



DC, DAで定数・領域確保　（ Define Constant, 　Define Area )
EQU でアドレスの定義






取引ジャーナルには、CheckPoint A と CheckPoint B が有ります。
　・CKPT-A は取引データ
　・CKPT-B はメモリの内容　　→　 システムダウン時は、CKPT-Bの内容を見て調べます。


.............................................................................

外部スィッチ判断(ASW)は、SVC (supervisor call) 割り込みで可　→ int86と思ってください。
MT, LPのオープンは低レベルのFCPで、BLCP: Block Level Control Program　です。





マクロが使えます。

WTOマクロ: Write To Operater　・・・ オペレータにメッセージを表示（コンソールタイプライター出力）

書式　WTO 表示文字のアドレス、表示文字数





FASP 命令


※ Branchには、拡張命令あり　→　B, BO,BP,BM.BZ ・・・
※ COBOLモジュール命令(パック/アンパック形式用)　→　P,UP,STP,LP,AP,SP,CP

※ NOP: No Operation 命令有り





オンラインシステムの開発とデバッグ


オンラインシステムは、電文を判断（入分配）し、各プログラムを呼び出すオーバーレイ方式
入分配プログラムはメモリ常駐

当座預金、普通預金、定期預金等各プログラムは
アセンブルリストで　2500～4000ページ
(マクロ展開、シンボルリスト等を含む)

各プログラムは、電文内容から各取引処理を行い
ファイルを更新後、下り電文を作成し、CCUへ渡します。

まだデータベースという言葉が無い時代なので、各メーカー独自のファイルシステムです。

各ファイルの更新前イメージと更新後イメージをジャーナルに出力する機能は既に確立しています。
その後、CODASYL型DB　→　RDBへ　・・・



　 ..................................................................................................................................................


第一次オンラインシステムの開発時、
複数のタスクが絡んでの特異現象が発生しました。
なかなか再現出来ないので、網を張ることに・・・

特定のアドレスでCPUを止め、その時のメモリ内容を吐き出します。
（ FETCH ADDRESS STOP, CORE DUMP ）
５～６日で網にかかりました。

今なら考えられない話ですが、当時はＣＰＵを止め
直接レジスタやメモリを覗いたり、値を変更し再開できました。

※下部にエンジニアパネルがあります。
　16個のトグルスィッチでアドレスを指定し、FETCH ADDERSS STOPにより各レジスタの内容が参照可
　また、指定アドレスの内容の変更が可能






【 コンソールパネル 】

※電源ON後、RS1=A 　RS2=0　にセットし、　IPL起動ボタンを押して、システムを稼働　


ロータリースィッチ２個 (RS1, RS2)の上部に、外部SW ( ASW0～ASW4 )
FASPでの読込みは、SVC CALL

　　SVC 　　S.RASW 　　　　　外部SW1 READ
　　BOB　　 ASW1ON,,1　　　　ONなら、ASW1ONへjump


※COBOLで外部SWの定義は、SPECIAL-NAMES句で指定

　　　SPECIAL-NAMES.
　　　　　ASW-1 IS TEST-MODE.
　　　　　ASW-2 IS PRINT-CONTROL.




※下部がエンジニアパネル




【 エンジニアパネル 】

RS1: REGISTER SELECT
R0～R7, PSW0, PSW1, EXIT MASK, ADDRESS

RS2: MODE SELECT
NORMAL, STEP, DISPLAY, STORE,
FETCH ADDRESS STOP, FETCH ADDRESS INTRPT, STORE ADDRESS STOP, STORE ADDRESS INTRPT

PSW : Program Status Word


　CCは、命令実行後の結果の状態
　ICは、次に実行するアドレス



汎用レジスタとインデックスレジスタ

汎用レジスタは　R0 ～　R7 の８個
R1、R2、R3はインデッックスレジスタとして使え、X1、X2、X3 と表示する





【 システム再編成 】　 SYSGEN: System Generation

オンライン・システムの運用に於いて、軽微な修正が有れば、システムEBをパッチ（修正）して運用します。
EB: Executable Binary

パッチは専用のJOBで、パンチカードで修正データをセットします。


システム改変及び端末の追加・変更があればパッチも含め、再度システムを再作成します。　→　SYSGEN
システム再編成は半日から１日ぐらいかかり、.もし再編成途中で問題が発生すれば、延期し日程を調整します。

【 当時のシステム開発 】

①システムフローを作成し、個別プログラムに分割
②個別プログラムの仕様書を作成
③仕様書よりプログラムフローの作成
④プログラムのコーディング
⑤プログラムのコンパイル＆テスト











￥ JOB
￥ EX AEZZ9901
￥ FD LIST=DA,VOL=WORK,SOUT=A,CYL=1
￥ FASP
￥ FD U01=DA,VOL=WORK,CYL=(2,1)
￥ FD LIST=DA,VOL=WORK,SOUT=A,CYL=1
￥ FD COIN=*
/FILE AEZZ9901

... ソースプログラム ...

/END
￥ JEND




【 ファイル設計書 】









磁気テープによるジャーナル


FACOM 603M 磁気テープ装置



磁気ディスク（ハードディスク）の無い時代なので、 オンラインの取引情報（入出金データ等）は、全て磁気テープに書き出します。
　・定期的にメモリ・レジスター等のデータを出力(CKPT-B)
　・取引情報（電文等）の出力(CKPT-A)
　・ファイルの更新前(Before Image)と更新後(After Image)のデータを出力 (CKPT-A)

信頼性を高める為、同時に磁気テープ装置２台で書き出し。

データが一杯になったら、磁気テープを交換するのですが、同時に２台も交換する必要が有るので、
オペレータの作業も考慮し、２種類（長さが違う）の磁気テープでオンラインを開始します。

ロングの磁気テープ 長さ 2400フィート(約730m)＆ ハーフの磁気テープ 半分の1200フィート　
このようにすると、最初にハーフが一杯になり以降別々に切り替えが可能


※システムダウン時には、この磁気テープのデータを利用して復旧＆再開
　①ダウン時の位置にテープマークを書く
　②ダウン時のテープ位置から、直近のCKPT-Bデータを探しメモリの復元
　③取引データ(CKPT-A)を読んで、ファイルを書き
　④システムの再開
　⑤必要に応じて、取引禁止フラグの設定等






MT: Magnetic Tape (磁気テープ)

オープンリール　MEMOREX
リールのサイズ：　ロング　テープ長さ 2400フィート(直径40cm)

ハーフ : 　1200フィート(直径25cm)　
クオーター:　 600フィート(直径15cm)







裏面　「書込み許可」の黄色いリングが付いています。



write enable ring 　直径11cm



磁気テープ装置に取り付ける時
このフィンガーポジションに人差し指を入れてリールを廻してテープを装填
※磁気テープの開始位置判断の為、テープには銀紙が貼ってあり
　テープを巻き取りながら、この位置を見つけます（Load Point）





MT: Magnetic Tape (磁気テープ) 　　オープンリール　富士フイルム
ハーフ : 　1200フィート(直径25cm)　












当時の富士フイルムのカタログ











磁気テープの動画（ 約 1分 ）








磁気テープの装填は、オス・メスのフックを利用
（オート・ローディングでは不要）

















フックで接続




磁気テープ保管庫

他の磁気テープ装置

NEAC 543磁気テープ装置　　～ 怪奇大作戦 20話「殺人回路」より





NEAC 2206







IBM 3420 磁気テープ装置







8単位 紙テープ




紋紙から紙テープの解析



Teletype Model 19 の５穴と比較






当時のメインフレームなど


IBM SYSTEM 360



IBM SYSTEM 370



CDC 6600 1964年 主任設計者: Seymour Cray



CDC 6600の発表に関して、IBMのT.J.Watson Jr.は、次のようなメモを幹部に送っている。
「先週、CDCは記者会見を開いて6600システムを発表した。このシステムを開発した部門の人員は"掃除夫まで含めても"たったの34人である。
その内、エンジニアは14人、プログラマは4人で、博士号を持っているのは1人だけである。その博士も、比較的初級のプログラマである。
外部から見ると、この開発部門はコスト意識が高く、ハードに働く、強い動機をもったチームであると考えられる。
この控えめなサイズの開発を、わが社の巨大な開発と比較すると、最も強力なコンピュータを他社が提供し、業界のリーダーシップを奪われるということは理解しがたい。
我々のやり方の何が悪かったのかを議論し、ただちに、それを変えることが急務である」


磁気テープ装置の説明と、当時と同様なブラシを作成しての修理の話



IBM 3420 9-track TAPE



IBM Rare 7070 Mainframe Computer film 1960



磁気テープ関連



UNIVAC テープ装置



OUTER LIMITS 1964 Seen are two UNIVAC 1951






　https://www.crimson-systems.com