[03_03]九州大学大型計算機センター広報 : 3(3)
7
0
0
全文
(2) 紙 テー プの 入 力 につ いて 津 実 験 や 観 測 を行 な っ て 得 たアナログ. 田. 和. 枝. 量 を デ ィ ジ タ ル 量 の デ ー タ に 変 換 す る 際 、紙 テ ー プ に 出 力 さ せ. る こ と が あ り ま す 。 こ の よ う な デ ー タ を 計 算 機 を 利 用 し て 処 理 し た い と い う利 用 者 の 希 望 に よ っ て 、 紙 テ ー プ のBasicREADRoutineを. 作 成 し ま した。. こ の ル ー チ ン は ア セ ン ブ ラ(FASP)で ー チ ン と し てSSLと. サ ブル. 同 様 に利 用 で き ます 。. 紙 テ ー プ に は8単 用 で き る の は8単. 組 ん で い ま す が 、 使 用 す る 側 と し て はFORTRANの. 位 と6単. 位 の テ ー プ が あ})ま す が 、 環 在 の と こ ろBasicREADRoutineを. 使. 位 コ ー ドの 紙 テ ー プ に 制 限 し て お き ま す 。. 紙 テ ー プ のBasicREADRoutine こ の ル ー チ ン は1つ. の プ ロ グ ラ ム 単 位 を 構 成 し て い る 。 紙 テ ー プ を 、 紙 テ ー フ號 み 取 り装 置 に セ ッ. ト し デ ー タ を 読 む 領 域 や そ の 個 数 な ど の 初 期 設 定 を行 な う部 分(TOPSET)、 タ を読 み 込 む 部 分(PTREAD>と1本 要 求 す る 部 分(CHANGE)に ENTRY名 1呼. 定 め ら れ た領 域 に デ ー. の 紙 テ ー プ で 終 了 しな い デ ー タの 場 合 、 紙 テー プのかけかえを よ り な っ て い る 。 従 っ て 、TOPSET、PTREAD,CHANGEの. で あ る よ う な1つ. 各 々が. の サ ブ ルー チ ンで あ る。. び 出 し方 CALLTOPSET(A,N,STCODE,SPCODE) CALLPTREAD(王.」> CALLCHANGE こ の3つ. の 文 を必 要 に 応 じて組 合 わせ て 使 用 す る。. (1)TOPSET 1本 の 紙 テ ー プ を 読 み こ む た め の 初 期 設 定 を行 な う。 パ ラ メー タ の説 明 A紙. テ ー プ の デ ー タ を読 み こ ん で 格 納 す る 配 列 名 (偶 数 番 地 よ り領 域 が 確 保 さ れ る こ と 〉(注1/. N一. 度 に 読 み こ む デ ー タ の 数 、 紙 テ ー プ に 穿 孔 さ れ て い る4桁 ー タとなる. 。(偶. 数 個 で あ る こ と>. STCODE…. … … テ ー プ 上 で デ ー タ の 始 ま り を示 す コ ー ド(注2>. SPCODE…. … … テ ー プ 上 で デ ー タ の 終 り を示 す コ ー ド. が1語. の デ.
(3) (注1)偶. 数 番地 か ら領 域 を確 保 す る た め に は [. DIMENSIONA(100) DOUBLEPRECISIONB EQUIVALENCE(A,B) と宣 言 し て お け ば よ い 。 (注2)紙. テ ー プ で あ ら わ さ れ る 値 は 下 図 の よ う に な る 。 相 当 す る ビ ッ トが 穿 孔 さ れ て い れ ば ONに. な る。. ス タ ー ト コー ド;ス. ト ッ プ コ ー ドは 一 般 に 使 用 さ れ な い 特 殊 記 号 を 用 い る ほ うが 便 利. で あ る 。た と え ばOKITYPERに と そ の 値 は1160と. な る。. お い て 紙 テ ー プ の 終 り を 示 す 。TMコ. ー ドを 用 い る. 、,nlt、. (2)PTREAD 初 期 設 定 さ れ て い る 紙 テ ー プ の ス タ ー ト ・コ ー ドの 直 後 か ら4桁. の も の を1語. と し てN個. 読み. こ む。 パ ラ メー タの 説 明 1、J読 1…. み こ ん だ 後 の完 了状 態 を示 す。 … …. 配 列Aに. 読 み こ ん だ デ ー タ の 語 数 。 但 し1・0の. 場 合 はTOPSETで. 指定 し. た語 数 にす べ て デー タの 転 送 を終 了 した こ とを示 す。 JIで. 示 さ れ た デ ー タ の 最 終WORDの. 何 番 目 の 文 字 に ス ト ッ プ ● コ ー ドが 来. て い るか を示 す 。 た と え ば 、1・8,J・3で A(8)の 第3番. 終 了 し た 場 合 、A(IXA(2>・. ・ …A(8)に 紙 テ ー プ の 内 容 が 転 送 さ れ て. 目 の 文 字 に ス トッ プ ・コ ー ドが 入 っ て い る 。. 冒. (3)CHANGE テ ー プが2本. 以 上 に わ た っ て い る場 合 、 テー プ の か け か え が必 要 な時 点 で使 用 す る。.
(4) テ ー プ に よ っ て ス タ ー ト ・コ ー ド、 ス ト ッ プ ・コ ー ドが 違 っ て い る 場 合 に は 初 期 設 定 の 必 要 が あ る の で 再 度TOPSETを. 呼 び 出 さ ね ば な ら な い。. (II)エ ラ ー 処 理 の 方 法 紙 テ ー プ を 読 oん で い る 際 に ハ ー ド ・エ ラ ー が 起 こ っ た 場 合 ・. ハ ー ド ・エ ラ ー で あ る こ と を 明 示 し て 、 ジ ョ ブ の 実 行 を 終 る 。. CHANGEに. よ っ て テ ー プ の か け か え が要 求 さ れ て い る際 に 、 か o け るべ き テー プ が な くな っ た. 場 合 ・ ⑳. 紙 テ ー プが な い こ とを 明示 して ジ ョブ の 実行 を終 る。. 例 下 図 の よ う な テ ー プ が あ る と す る 。 ス タ ー ト ・コ ー ド、 ス ト ッ プ ・コ ー ド共 にU60で. このテープは DIMENSIONAao) DOUBLEPRECISLONB EQUIVALENCE(A,B). CALLTOPSET(A,10,1160,1160) CALLPTREAD(1,」. に よ っ て 配 列Aに. 〉.. は 次 の よ う に 入 る 。(表. 現 は す べ て8進. で あ る 。). あ る。.
(5) @)実. 際 の使 用例 今 ま で の 説 明 で 紙 テ ー プの デ ー タ を計 算 機 の コ ア上 に 移 す こ とは可 能 に な っ た わ け で あ るが 、 こ. の ま ま で は ほ とん ど実 際 に計 算処 理 は で きな い 。 従 っ て 読 み こ ん だ デ ー タ を利 用 者 の プ ロ グ ラ ム で 使 用 で き る よ うな 、つ な ぎ の プ ロ グ ラ ム"が 必 要 とな っ て くる。. 紙 テ ー プ の デー タ と して ① ② の2種. 文 字 と して 取 りあつ か う もの バ イ ナ リー デ ー タ と し て 取 り あ つ か う も の. 類 が 考 え ら れ る 。 ① の 処 理 は 、 紙 テ ー プ の 文 字 コ ー ド とF230‑60の. 内部 コー ドとの 変 換 ル ー. チ ン を作 成 す る こ と が 即 ち 、 つ な ぎの プ ロ グ ラ ム に な る 。 こ の コ ー ド変 換 ル ー チ ン は 紙 テ ー プ 穿 孔 機 に よ っ て 種 々 コ ー ド が 異 っ て い る の で 例 と し て と り あ げ る の は や め て 、 ② の バ イ ナ リー ・デ ー タ の場 合 を考 え て み る。 穿 孔 機 に よ っ て そ の デ ー タ の 出 力 形 式 が 全 く異 っ て い る の で 、 効 果 的 な 例 と は 思 え な い が 、 次 の よ う な 紙 テ ー プ デ ー タ が あ っ た と仮 定 す る 。 デ ー タ は0〜28‑1ま. で と し 、200個. ー ドは 共 にOKITYPERのTMコ. の デ ー タ が 穿 孔 さ れ て い る 。 ス タ ー ト コ ー ド,ス. ー ド1160と. す る。. こ の 紙 テ ー プ の デ ー タ を 入 力 す る ため に は 、 次 の ① 、 ② の 副 プ ロ グ ラ ム に よ り MAINPROGRAMでCOMMONDATA(200) と 宣 言 して お け ばCALLDATAINに. よっ て使 用 で き る。. トップ コ.
(6) 0. C**. C**. 100 C**. SUBROUTINE DATAIN KAMI TAPE YORI DATA 0 INPUT COMMON DATA(200) DIMENSION A(50) DOUBLE PRECISION B EOUIVALENCE(A,B) KOSU=200 KAMI TAPE NO READ ** CALL TOPSET(A,5011160,1160) CALL PTREAD (I , J) WRITE(6,100)A FORMAT(1H ,8016) IF(I.NE.0) KOSU=(i-1)*4+J-1 BINARY DATA NO HENKAN ** CALL TRANS (A,DATA,KOSU) RETURN END. SURU **.
(7) ELEMENT HENKAN GLOBAL TRANS TRANSSTX,1. INDEX1 STX42 INDEX2 STX+3 INDEX3 SIX44 INDEX4 STX+5 INDEX5 STX46 INDEX6 STX+7 INDEX7 LX,6,7 LX451+7 LA*247 STADATAKOSU LXI44 0 Li360 LAI0 L9C,6 1B69.6 EST,5 AXI15 AXI,4 TXL*44 JTRANSEOO. TRANSFOO. 46. 1 1 DATAKOSU. INDEX1LXI+1 INDEX2LXI42 INDEX3LXI•3. *-* *-* *-*. INDEX4LXI+4 INDEX5LXI45 INDEX6LXI*6 INDEX7LXI47. *-* *-* *-* J OCT0. DATAKOSU END. 3,7.
(8)
関連したドキュメント
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
九州大学学術情報リポジトリ Kyushu University Institutional Repository.. 九州大学大型計算機セン ター
![[03_01]九州大学大型計算機センター広報 : 3(1)](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==)