LET - みる会図書館


検索対象: 月間ラム 1980年2月号
16件見つかりました。

1. 月間ラム 1980年2月号

“ + STR ま ( ら 1119 IF 5 ( I ) く 1 THEN LET SI$= ( 1 ) ) : GOTO 1139 1129 LET SI$=STR$ ( 5 ( 1 ) ) 11 ] 9 IF C< l>=ø THEN LET 匸 1 ま = 0 115 ら 1149 LET 匸 1 $ = TR ( C ( I)) 115 IF S( I + 16 ) く 19 THEN LET S2 ま = ““ + STR $()( I + 16 ) ) : GOTO 117 目 116 LET 52 = STR ま ( S ( I + 16 ) ) 1179 IF C ( 1 + 16 ) = 9 THEN LET C2$= GOTO 1139 1189 LET C2$=STR$ (C ( I + 16 ) ) 1199 PRINT ” ( 51 ー“ ) を : C2 ま 129 NEXT 1 121 PRINT ・ PRINT :PRINT # :PRINT 1229 PRINT 当 TO 12 ] 9 PRINT ”ヒッ、、ケ シカン ヒ当、、ケ 1249 FOR 1 = 1 TO ] 2 1259 1 F 5 ( 1 ) = THEN 60T0 1479 1269 IF I + 16 ) 32 THEN GOTO 1479 1279 IF K( I ) く = 9 THEN LET CI$= 0T0 1299 1289 LET CI ま = STR $ ( に ( 1 ) ) 1299 1 F K ( I + 16 ) く = ら THEN LET C2$= : GOTO 1319 1 ] 93 LET C2$=STR$ ( K ( I + 16 ) ) 1 ユ 19 LET LI=LEN ( CI ま ) ・ LET L2=LEN ( C2 ま ) 1 ] 29 IF LI = 2 THEN LET CI ま = “ + CI ま十一 1339 IF LI = 3 THEN LET CI$=" 1349 IF LI = 4 THEN LET 1 ] 59 IF LI = 5 THEN LET 1369 IF L2 = 2 THEN LET C2 ま = ““ + C2 $ + “ 1379 I F L2 = ス THEN LET 1389 I F L2 = 4 THEN LET IF 1 ] 99 S(I ) く 19 THEN LET 51 ま = “ + STR$(S ( 1 ) ) : GOTO 141 ら LET E= NT ( T ) LET SI=T—E 81 IF 51 ) = 自 . ] 目 THEN LET E = E + 自 . 5 LET に ( 1 ) =E 84 自 NEY,T I CLERR : LET J=B ・ LET Ji = 85 LET ロ」 RSOR = 当 86 自 PRINT 87a シ、、カンヒス、、ケ PRINT “ヒス、、ケ FÜR 1=1 TO ] 1 39 LET CL 旧 5 ロ R = 」 + J : LET J=J + 1 I F 5 ( I ) = THEN GOTO 98 31 IF I ) 15 THEN LET CL 旧 50R = 15 ′ ] + JI :LE ヨ 2 ら T JI = JI + 1 IF 5 ( I ) く 19 THEN PRINT 939 949 I F に ( I ) く = 9 THEN PR I NT 5 ( I GOTO 979 PRINT S<I); 35 LET G=G + K< I ) 97 NEXT I 989 LET CLIRSOR=Ø, 2 目 ( コ、、ウイ ) 与 G; “ 9 ら PR I NT I F 日 $ く ) "P " THEN GOTO 1029 19 自 ッキュウ灯ヾつ = 6 * 5 “ ( 工 PR I NT 191 INPLIT “フ。リントスルナララ十一イン 1920 I F く ) ”” THEN GOTO 1669 19 ] IF R$="P" THEN GOTO 1519 1 49 1059 PRINT 丿ケイン“ サ・ 0 ・ン十、、ヨウ 1969 PR I NT テ、、一タ インフ。当ト 197 ら PR I NT ヒスケタイ " ヒスヾ・ケライシシ、、コつ 1989 PR I NT シャシヾ・コつ” 1999 FOR I = 1 TO 32 1190 1 F 1 + 16 ) コ 2 THEN GOTO 1219 1499 LET 51 ま = TR $ ( 5 ( i ) ) 1419 IF 5 ( I + 16 ) く 1 目 THEN LET 52 = ー ま ( 三 ( I + 16 ) ) : 60T0 14 」目 142 自 LET 2 ま = STR $ ( 5 ( I + 16 ) ) こ 1 $ = “ 5 5 ” THEN LET 14 ] 目 IF CI 5 " THEN LET C2 = “ 5 144 目 I F 匸 2 ま = 1450 PRINT #.. “ ( 当 SI$; “ ) 冫 CI まー “ ; C2 ま 1469 NEXT I ( コ、、ウケイ ) G; “くシ、、カン 1479 PRINT IF 日 $ く ) “ P “ THEN GOTO 1669 1489 シ十ュウ力、つ 1499 PRINT # くエン ) “ 60T0 166 自 1599 PRINT # ” 151 0 ート ) ケイサン“ 152 ら PRINT インフ。ット 15 ] 9 PRINT #. ・ シュッキンシコつタイシわシ 1543 PRINT " ヒッ、、プ コつ“ 1559 FOR I=I TO ] 1 GOTO 1659 IF 5 ( I ) = 9 THEN 1569 IF 5 ( I ) ( 19 THEN GOTO 1699 157 ら IF B( I ) ( 1999 THEN GÜTÜ 1639 1589 PRINT #,S(I); “ 159 D(I) : 60T ロ 1649 16 9 IF B< 1 ) ( 1990 THEN GOTO 1629 B< i ) 1619 PRINT # “当 S(I); ;D(I) :GOTO 1649 当 8 ( I ) 冫 S( I 第“ 1629 PR I NT “ ";D(I) : 60T0 1649 163 ら PRINT S(I>; ;D<I) : 60T0 1649 1649 NEXT 1 1659 GOTO 1219 1669 END “ + STR Ø":GOT . : CI まー 当 G * 599. : ; TO : 6 ー TO 当 8 ( I TK-80BS 消去サフルーチン , 手役判定あ いまヴ。 画面左上に「 CHlP50 」と表示 よび精算サフルーチンより成っ され ( 最初の手持ちチッフ ) , ていまヴ。 「 BET ? 」て賭け金入力待ちとな カードの種類は乱数 1 ~ 13 を ハート , 14 ~ 26 をワラフ , 27 ~ っていまヴガら , 賭け金を入力 ・杉井春夫 ( 大阪市西区 ) 39 をダイヤ , 40 ~ 52 をスペード してください。 5 枚のカードガ配られ . 手役 とし , 1 ロの勝負に同じカード 判定後 , 不要なカードを聞いて は出てきません。手役判定は , のそいた時 , コインて遊ぶホー ☆はじめに☆ きまヴ。各カードの下に「 ? 」ガ ます数の小さい順に並び替え , カー・ゲー乙とフラッワジャッ インべーダー・グー乙ガやや 現われた時 , そのカードガ不要 ストレートとフラッシュの判定 ワを見つけました。フラッワジ 下火になったガと思うと , ヘッ ならを , 、要なら一 ャッワはヴてに rFR A MJ 79 年 後 . 他の手役について調べまヴ。 ドオンや与作といつを新しいゲ を入力してください。ヴる ☆遊び方☆ ー乙ガ出現してきました。しガ 9 月号に掲載されましたのて , と H E LD と表示され , そのカ それては実行してください。 し , 我々 rRAMJ の読者とし 私はホーカ - ・グー乙を作って 最初に説明ガ出まヴ。「役」の後 ードは残されまヴ。 ては , こういった新しいグー乙 みました。 チッフガ無くなれは , GAME の数字は倍率てヴ。たとえば , ☆プログラ乙☆ ばガりを追うのてはなく , 古く 〇 VER ガ点滅しまヴ。再スター フロクラ乙はメインフロクラ ツウべアは 2 倍 , フォーカード ガらあるグー乙にも目を向けた トにはのキーを押してくださ は 40 倍てヴ。ワンべアは親の勝 乙と , 賭け金サフルーチン , カ いものてす。 ード表示サフルーチン , カード となり , 睹け金は取られてしま い。 さて先日 , グー乙センターを ポーカー・ゲー乙 TK ー 80BS によるホーカー・ケー乙・フロクラ乙・リスト ー CL ・一 CU ・ 5. 5 Z ・ 0 協体・ 4000 ー 0 5 2 P . ” P G AM Et• ー 20 4P ・” ( U HAVE 50 CHIPS" ー 2 5 RA. ー 0 DIM 0 ( 8 ) .0 $ ( 8 ) ド . ー・一↑ 0 5 ー 30 20 ド . ー・一↑ 0 8 ー READ G ( ー ) ー N ・一 ード B ( ー ) 《 , 0 ↑ .2 ? 0 ー 40 3 0 DA TA 0. 2. 3. 5.1. ー 0. 40. ー 00 ー 50 R•ー NT ( RN D( 52 ) ◆ー ) ・物 0 5 ( 2 ) 第“↑リ 0 PA ー R ー 60 ド . J•ー↑ ( ー 0 60 0 $ ( 3 》第”↑ HREE CARD ( 3 ) ・物 15 ( 4 ) ・“ S ↑ RA ー GH ↑ ロ 0 ード C ( J ) ・ 0 ↑・ 200 ? 0 0 $ ( 5 ) ・” FLU SH ード C ( J ) •R T . ー 50 ( ? ) ・物 ] 5 ( 6 ) 第”ド U しし HOUSE ( ー 0 ) ” ー 8 0 g 0 0 ( ? ) ・”ド CUR CAPD ( 40 ) “ー 3 5 ( 8 ) ・・・ S ↑ . ドしリ SH ( ー 00 ) ” ー 90 N ・ J 200 C ( J ) ・ R 8 6 ド・一・ 2 ↑ ( 8 ー P. G $ ( ー ) ー N ・一 ード R«ー 4 ↑ . M ・ 2 ーーー N•R ー 3 ・ 2 50 2 ー 0 ード R< 2 ? T. M ・ 2 ー 3 ー N•R—ー 3 ー G ・ 2 50 900 第 50 ー P9 第 ? 事 4096 ◆ー 4 事 256 ◆ 6 事ー 6 220 ー 00 D ー M A( 5 ) .3 ( 5 ) ・ C ( ー 0 ) ・ D( 5 ) . E ( 5 ) ード P 《 40 ↑・ M ・ 2 ー 2 ー N ・ R -26 ー G ・ 250 230 見とし 240 M• 2 ー 0 ー N•R— 39 全国版のマイワロ・マイワロ情 ハドソンソフトで、 "ATOMIC PILE Z ー 1 田『ガ新発売。これは標準型原子力発電所を運転ヴるというグーム てヴ。時には 1 次ん却水ガ漏れたり、出力ガ増加しヴきたり , のアワシテントも / カード、・発生 125

2. 月間ラム 1980年2月号

1540 FOR 作 1 T0 16 : 鬮 RS X,Y 1550 C 5 V,Y: 円訂脈 E 87 : HE 23 POKE ?DFFH;03H: 間 22 2 イ 0 FOR Y:I T0 50 ・ NEXT Y: RET 3 間 tURSOR し 14 : INPUT 当ヂ ト Y 第れ叩 $ 3 訓正 Y ミ THEN 10 3 IF くド THEH 2500 500 LET P:T: LET 2 : 1 町 ( 5 / T ) : L ET R:P 930 RETURN 10 LET 1010 IF 10 に THEN 1030 間 20 PRINT 1030 LET h:J-IHT( J / 2 ) 糶 1040 IF 1 THEN 1070 1050 P 訂ヨ 1060 印冊 1080 10 間 PRIHT ヨ 10 ト 3 THEN RETURN 12 LET C : 8-327 臼 + 1 12 正 B く : 3276 ト THEH 1230 u10 印 T0 1010 1 LET J=IHT(J/2) 1090 LET I + 1 1230 LET C=A + B に創印に 40 15 的 CLEAR : LET X : 1 む に間旺間熟 に LET R : ト躯 R 球 貶 50 LET 84 12 朝 LET 2 1510 FOR Y=I 刊 16 : CURSOR X,Y PICTURE 新 1520 NEXT Y 1530 LET X 謝 -2 : LET リ : X + 2 円訂 E B7 530 IF P:I THEN 570 540 LET P:P-I : LET R=R+P : 印間 570 LET R : R ま 2 : LET iJ=R 590 6 石囲 12 6 圓 LET H : 25 + 5-1 610 LET Z + ( 24-5 + い 620 正 Z<:H THEN RETURN 630 LET Z:Z-H-I 640 LET Z : Z + ( 24-5 + トい + 0 650 LET H:H-Q : 印 T0 620 8 LET :Z+ ! 810 LET Z=Z-8 330 正 Z)8 THEN 0 832 RETURN 9 的 LET Z:Z + 1 引 0 LET Z:Z-6 920 IF Z)6 THEN 引 0 530 1560 LET X : ト 2 : LET いリ + 2 1570 正 X02 THEN 1540 25 CLEAR : 引 . : ま的 POKE ?DFFH,02H 印 5 2100 1600 印 5 2 的 0 1590 5 眄囲 2100 15 印 5U8 2 0 URH を鸛ケ 7 タう既 ? 1010 〇 ラケ 7 ナタ 〇 フフフこれ ネズミタイジも 能率アッフ。だ′ 0 RET RUN SDA LDA RST 実行例 2 EX-80 ライフゲー乙・プログラム ・謙ー ( 河内長野市 ) ) タン引び ) 溿こ第 KEY 野うタイ 実行例 1 てライフグー乙をつくったこと ャラワタ・ティスフレイを使っ さて , 私は以前 , 16X32 のキ の例を示しまヴ。 の処理ガ終りまヴ。図 2 に , そ に対して同時に適用して 1 世代 以上の規則をヴべてのマス目 るというものてヴ。 央の空白に新しい石ガ生成され し , らようど 3 個であれは , 中 または 1 個以下てあれば , 死滅 次の世代に生き残り , 4 個以上 または 3 個てあれは , その石は 1 ライフゲー乙の規則 石は次の世代に生き残る。 まわりの石は 3 個なのて , 中央の C ←ー 図 3 D ↑ 5 ↓ E F B 7 3 ADR R I C RDC WI C ☆ライフゲー乙とは ? ☆ ライフゲー乙は . 1 967 年にケ ンフリッジ大学のコンウェイ教 授によって考案されました。ラ イフグー乙は , グー乙と呼ぶよ りはシミュレーションに属ヴる ものて , 人間は最初に石の配置 を決めるだけて , 後はコンビュ ータガ単純な規則に従って石を 生成・死滅させてグー乙を進め ていきまヴ。 その規則は , 図 1 のように対 象としている石 , または空白の まわりの石の数を数えて , 2 個 キーボードの使い方 〇 〇 〇〇〇 第一世代 図 2 〇 〇 〇〇 〇 第 2 世代 ライフゲー乙の 1 例 ( グライダー ) 〇 〇〇 〇〇 第 3 世代 ガあるのてヴガ , 画面ガ小さヴ きて大型の形を描くことガて きませんし , ハターンガ壁に衝 突して崩れてしまい , いろいろ な図形を最終状態まて調べるこ とガてきませんてした。 幸い , EX ー 80 のクラフィッワ は画面に表示されない部分も含 めると 32X128 もありまヴのて , ガなり大型の形ても動ガヴこ とガてきまヴ。 ☆ゲー乙の遊び方☆ ます , EX ー 80 の BIT-CHAR ス イッチを日 T 側に , アドレス切 左端が F 型はたは R ) べントミノ , 他は 5 ー 5 ー 5 ー 5 ー 5 ー 5 ー 5 の変化を撮影したもの 全国版のマイワロ・マイワロ情 改隍知らすの PET ! ? ・・・・・・アドコ I 、ツ ( 〒 617 長岡京市天神 3 ー 7 ー 26 0 / 5 ー 939 ー 5231 ) ては、 PET 用送風ファン を全国の西武百貨店マイコンショッを通して販売しまヴ。あ手持らの PET に改造なく簡単に取り付け可能。 127

3. 月間ラム 1980年2月号

2 ) 4 ) 5 ) ・ 1 ら ) 11 ) 15 ) ( 16 ) ( 17 ) 18 ) 29 ) く く く く 三パ・れン 1 1 1 1 くコ・。・ウイ ) 18. 5 5 匠 5 . 5 11. 5 LET 〔 : Li ト当üF : = 22 , 5 + ・ LET ン、、コつ シ力ン . : 匸 HR $ ( 1 第こ HR ま ( 新第 自 ) 9 ) 目 ) ( シ、、カン ) 残業時間とーカ 月の残業時間の 合計ガ表示され ます。残業のな い日付は、、一″印 ガ出まヴ ( 2 を見て下さい ) 。 また休日出勤を したときは次の のガわりに , 0 を入力しまヴ。 これて入力は終りてヴ。 次に 4 のような残業時間ガ CRT 上に表示されまヴ。最後 に一カ月の残業時間の合計と支 給金額を出力しまヴガ , この金 額は 1 時間 500 円として計算し ていまヴ。 ☆プリントの説明☆ 次に月と名前を入力しまヴ。行 番号 180 ~ 360 は残業時間の入力 てす。 21 日 ~ 4 日まては左厠 , 5 日 ~ 20 日まてガ石イ則に表示さ れまヴ。行番号 370 ~ 450 は残業 の計算てヴ。もし 1 7 時以後残業 のときは行番号 400 の 18 .00 を 17.00 に変更して下さい。行番 号 470 ~ 840 はハートの入力及計 シ十ュウカヾつ = 9259 くエン > 図 4 ハートの計算て 実行して下さい。 この時 , 金額は 日付を C RT 上に表示しまヴ。 ヒッケタイシャジコワヒ ッケタイシャジコワ ( 21 〉 ? この時 , 退社時刻を入力しま ヴ。例ては ( 1 ) 1900 と入力 していまヴ。ヴるとカーソルガ 消えてしまいまヴガ , 異常ては ありません。入力に間違いガな ければ Y を押して下さい。もし 間違っていれは Y 以外のキーを 押して下さい。ヴると 1900 ガ消 えてもう一度 , 21 日の入力待ら になりまヴ。 Y のときは , 次に 進み 22 日の入力待らになりまヴ。 このように残業計算は 21 日 ~ 20 日を 1 カ月としています。また 残業のない時は〇を押して下さ い。即ち〇 , R E T U 日 N , Y です。ヴると次の日付が出力し て , その入力待ちになりまヴ。 これて 21 日 ~ 4 日まてガを則こ 5 日 ~ 20 日迄ガ右イ則こ表示され まヴ。 20 日まて入力ガ終われは 無視して下さい。 ☆ノトトの計算のオペレーション☆ ハートのときは次のようにタ イトルガ表示されまヴ。 ヒヅケシュッキンジコワ タイシャジコワ 入力は日付 , 出勤時刻 , 退社 時刻の順にしまヴ。例ては ( 図 3 ) 日付 1 , 出勤時刻 10 時 0 分 ( 100 の , 退社時刻 1 1 時 0 分 ( 1100 ) を入力していまヴ。 こてやはりカーソルガ消えてし まいまヴのて入力ガ〇 K なら Y をキーインしまヴ。 Y 以外の入 力のときは今入力したテータガ 全部消えまヴガら始めガら入力 をやり百して下さい。 Y のとき は次の位置こカーソルガ移動し て次のテータの入力待ちとなり まヴ。 3 の 15 日の g 時 59 分の ように 3 桁の入力は許されませ ん。 0959 と前 0 を付けて入力し まヴ。テータガなくなれは日付 フリントスルナラ Y ヲ キーイン , と表示しまヴガらフリントヴる 場合は . Y を入力しまヴと 1 と 2 または 3 と 4 ガプ丿 ントされまヴ。名前と月ガ 1 行 目にプ丿ントされ , タイトルガ プ丿ントされまヴ。図 1 と 2 は残業計算の場合てヴ。 1 は 入力テータのプ丿ントてヴ。 2 は残業時間のプ丿ントてヴ。 / / をプ丿 残業のないときは、、 ントしまヴ。最後に一カ月の残 業時間の合計ガプ丿ントされま ヴ。 3 , 4 はバートの計算て ヴ。上部に名前と月ガ入り , 以 下タイトルの後 , 3 は入力テ ータのフリントてヴ。 4 はそ の残業時間のプ丿ントと合計時 間のフリントてヴ。支給額は 1 時間 500 円として計算した金額 てヴ。 ☆プログラ乙の説明☆ 行番号 60 ~ 80 は初期設定て , ますハートのときは P , 残業の ときは P 以外をキーインしまヴ。 算てヴ。行番号 490 ~ 660 はテー タ入力てす。行番号 610 ま FX 1 = 0.3 THEN, , とヴるところ てヴガ , 丸め誤差のためリス トのような数住こなりまヴ。他 のマイコンては別の値になりま す。行番号 670 ~ 840 は残業の計 算てヴ。行番号 850 ~ 1010 は残 業結果を C R T 上に表示しまヴ。 1020 以下はフリンタにフリン トヴるルーチンてヴ。行番号 1050 ~ 1 200 は残業計算の入力テ ータのフリントてヴ。 1 にな りまヴ。行番号 1220 ~ 1490 は残 業時間のプ丿ントてヴ ( 2 ) 。 1510 ~ 1640 はハートの入力テー タのフリントてヴ。これガ 3 になりまヴ。バートの残業時間 のプリントのルーチンは残業時 間のルーチンと同じ 1220 ~ 1490 てヴ。 なあ私の使用しているシステ 乙はべーシッワマスターレベル 2 と CR 丁 , カセットレコータ ーに日立放電プ丿ンタてヴ。 残業計算及びバートタイム計算プログラ乙・リスト 2 4 自 5 当 7 1 ら目 1 : t 12 : 十 : 本 REM REM REM REM REM ートつイ 1 イサン * らロ T ロ 2é新 25 PR I NT い ( 当 " ) 26 目 IF I ) 15 THEN ユ = 3 + 1 27 目 LET 日 = こ L 旧 5 こ・・・物」丁“ ( 1 CHRS ( CHR 52 54 55 目 5E ら 57 自 53 53 61 目 790 789 77 76 75 74 72 719 67 目 6 ら 65 40 62 LET 亡リ写ロ R = 日 4PLi 丁 5 ( をし iF 5 ( 1 ) ( 1 THEN いよ曰」 T IF 5 ( 1 ) = 自 THEN 5 ロロ 67 自 ↓ P 凵 T K(I>. ■ : I NPUT こ ( I ) INPLtT " 「 10 - ト丿ト十 P キーイン " 3 日ま INFLiT " 当千千ーイ :. ・ . INPLiT “ナェ午ーイン . CLERR TEI し N$ 2 2 ヨ它 51 目 5 らら 4 ヨ 4 47 4E 45 44 4 ] 臼 42 当 41 4 目 こを新 ] 5 ら ] 4 LET 匸 : L 旧ロ = 日 I NPLiT K ( 1 ) L ET ( I ) = 11 LET ま = IN に E ま JF ト : ま ( 匸 HF : ま ( $E> THEtg らロ〔 : 」 1 自 LET JI ニ洋 1 一 1 : らロ T ロ 1 ヨ自 IF I ) 15 丁 HEN LET . J = ユー 1 : しロ Tü 1 ヨ ~ IF : ま = い " THEN らÜT ロ FÜR 1 = 1 TO ] 2 LET 8 ( I ) = 自・ LET に ( ) = : LET 5 ( I ) = : L 1 ヱ NEXT 1 14 LET J=ø : LET G=k3 :LET 」 1 = 15 目 IF R$="P" THEN GÜTCI 47 16 ら F ・ R I NT : PR 1 NT : PR I NT : PR I NT イシ物シ、、コつヒ・ 1 ライシャシ・・コ“ 17 目 18 目 19 它 2 21 22 2 」 9 249 124 LET こ LIF 当 OF : = メ 5 FÜR 1 = 1 TÜ ] 1 LET 11 = I + 2 自 LET CL 旧当ロ R = 臼 5 + Ji LET JI = JI + 1 IF 11 ) ・ 31 THEN LET li = li ース 1 IF I ) 15 THEN LET C 凵 R 当 OR = 16 ′ 5 + J IF 11 ( 19 THEN PRINT “く NF.XT I FCIR I=I 丁ロ」 1 LET C ( I ) = ト ( ( 1 ) L ET トい I ) =K ( I ) 1 LET e ( I ) = トは I ) ー 18. 目目 LET E= I T ( 日 ( I ) ) LET 三 1 = 8 ( ) ー E IF 51 ) 自 . 2 : ヨ THEN LET L E 丁ト : ( I ) =E NEX- 「 I らÜT ロ : 5 PE'INT い辷 1 、、・ 1 シュ当ン LET ä=3 FÜR l-—i Tfi 」 1 LET ロ - 旧三ÜR = 目メ LET 日 = 匸いを口 : F'RtINT E = E + 新 . タ・ 1 ジわ 5 シ・コつ 全国版のマイワロ・マイワロ情 あの秋月電機て多量に売られた 6502 ー 01 の基板を買った人のために LET ( I ) = 優 ( ー ) : LET 0 ( 1 ) = し ( I ) LET ド 1 = 匸 ( 1 ) / 1 目目 LET XZ=INT(.XI) LET : : 1 = 1 ー X2 IF : 、 1 = - 2 ヨ 9 3 ヨ 7 THEN LET こ : ( 1 ) = し ( LET T=C ( I ) —K ( I ) IF 51 = . THEN LET E=E + 1 : LET C( LET 51 = C ( I >—E LET E= I NT ( 仁 ( 1 ) ) LET C ( I ) = C ( 1 ) 1 LET に ( I ) =E IF 51 ( 9. ] THEN LET E=E + ら自 IF 51 ) = 匠 ] 目 THEN LET E=E + 1 IF 51 = 目 . THEN GÜTO 74 目 LET 51 = に ( I )—E LET E= 1 NT ( K ( 1 ) ) LET K ( I ) = ト : ( I ) / 1 ら 9 FÜR I=I コ 1 NEXT I LET J=J + 1 IF トは ( ) " " THEU 60T0 5 IF X$CCHR$<$E> THEN : 」ロ T ロ 62 目 LET XS=INKEV$ I/ 〇ララトリーガモ二タを販売している。 AYN 〇 S ー 65 ( 愛の巣と読みまヴ ) と命名された逆アセンフラ . 高カセットドライフ等に使利なこのモ二タは今 のところ - 百販のみなのて , 〒 101 干代田区神田佐久間 1 ー 14 第二東ビル 215 谷 03 ー 251 ー 5102 へ問い合わせを。

4. 月間ラム 1980年2月号

3 い 0 N ・一 3 ー 20 S• 3 3 ー 30 ド . ー・一〒 ( 4 3 ー 40 J•ー◆ー 3 ー 50 ード DC ー》《 > 0 ( J 》↑ .3200 3 ー 60 ・一 3 0 ード S• 3 ↑ . S ・ ? ー 1 ・ 5000 3 ー 80 S ・ 4 ・ 5000 3200 ード S ・ 3 ↑ .5000 3300K ・ 0 3300 K ・ 0 ー V• 0 ー U• 0 ー H• 0 3 3 ー 0 3 3 20 J•ー◆ー ー F E( ー》《》 EC J 》↑ . K• 0 ー V ・ 0 ー H• 0 ー 0 ・ 3 390 3330 3340 ード K• 0 ↑ . U•U ◆ーー V• 0 3350 V•V ◆ー tH•H ◆ー ード H ・ 3 ↑ . S ・ 6 ー 1 ・ 5000 3360 3 3 ? 0 ード V 第 2 ↑ . し・一一 V ■ 0 ー U ・リ - ー 3 38 0 3390 3400 ード U 第 2 ↑・ S 第一一一・ 5000 34 ー 0 ードし・一↑ . 3 4 30 1 ・ 5000 3420 3430 ードリ・一↑ . S ・ 5 ー 1 ・ 5000 3440 S ・ 2 ロ .5000 CU ・し一一 P ・ 4000 4005 P ・ 400 ? 40 ー OP . ••CH ー P ”ー 0 4020 CU ・一 6 ・一一一 . ・・ BE 〒”リ 402 ・一 NT ( ABS ( 》 ) ー一戸・ 0 〒 .400 ? 4022 ード》 0 ↑・ 400 ? 4025 C し・一 0 ・ 0- 4026 P ・” CH ー P ・リ 0 4021 CU ・一 6 ・一一 P ・” BE ↑ 4030 R . 5000 CU ・一 . ー 4 50 ー 0 5020 ード Z ・ 0 ↑ .300 5030 ・リ事 1 ( 5 》ー 0 ・ Q ◆ー一戸・ 0 ↑ .5040 5035 5040 ード 0 》 0 ↑ . ー 05 5050 5010 CU ・一 0. ー 0 ー P ・“ 3 E OVER ” 501 ー P ー .20 5080 ド . ー・一↑ C 2 50 ー N ・一 5090 50 9 ー P ー・ 2 0 5 ー 00 X•PEEKC7DFCH)tIF X ・ 83 ↑・ 0 ・ 50 ー G ・一 05 5 い 0 5 ー 20 1 .50 ? 0 ンテー・プロクラマーの成果を ④誕生日入力した後 , ただちに 当るもハ卦プログラ乙 記事に採用くださることを願っ 算本表示せすに , ゼイ竹らしき ものを画面に表示させた ( 1500 ていまヴ。 ・河原友三郎 ( 大阪府枚方市 ) ☆点☆ ~ 2200 行 ) 。 このプロクラ乙の改良点は , ◎算不表示後のフロワラ乙継続 ☆私はサンテー・ 70 グラマー☆ CRAMJ 78 年 7 月号に「 Tiny 可否を入れた ( 370 ~ 390 行 ) 。 次のようになっていまヴ。 私は「 R A MJ を愛読して ① T v 画面への表示。 BAS ℃による、、当るもハ卦″ なあ , RAM 領域ガ 9 F F F ありまヴガ , なせガ TK ー 80BS 占いプロクラ乙」ガ載っていま ②前口上 , 分割分市に乱数関数 番地以上を持っていまヴのて , したガ . 私も , そのプロクラ乙 の B A S ー C の記事ガ少なく寂 を使用した ( 40 行 , 45 行 ) 。 私は「黄小娥 : 易入門」の 46 ~ ③除算の結果は , ー N T 関数を 47 べージの「表の卦名称とべー しい思いをしていまヴ。 を TK-80BS LEVEL-2 用に改 ところて旧聞に属しまヴガ , 用いて処理した ( 500 行 , 1 030 行 . ジ」を入力して , 家族・知人の 良しました。 あっガましいようてヴガ . サ 1100 行 ) 。 好評を得ていまヴ。 当るもハ卦プログラ乙・リスト 350 E 石 0 1 KEY イ % LET 年 33 花 7 2 LET G 譴に : 49 : リ 8 15 的 30 虧 1. , 7 : P 町 新 0 E 照 タ阯 1 問 LET Z : 5 い LET -Z-i : LET 1 ケを 三雌 5 3 ? 朝 40 鮨 E : LET 三町報恥 ( 3 的 6 馴し 3 LEi 43 正 3 切 E ド しを鱚囎鬮的 45 LEI 丁 : I 報 ( 25 ) 冫 : を 3. , 」魏 -1 3 正 T=Ü丁 H 臼 45 240 5 囲 590 門 P 町十引タ引亡第「 3 全国版の一イワロ・マイワロ情 126 アドコム子 ( 〒 5 行長岡京市天神 3 ー / ~ 26 ア 5 ー 939 一 5231 ) てはオリジナル・ライトべンを好評発売中。 Aople, PET. T 日 S 用の 3 機検ガそろって . 定価 9 , 0 円。百販ガあ近くのマイコンショップてあ求めを / 250 ・ ( 5 ・一 000 260 0 280 ・・ 3000 F ・一・一↑ 0 5 ・ 00 X ・ 6 事ー・ 4 3 ー 0 320 330 CU. X. ー 2 ー P ・” HE し 0 ・リ 340 350 360 町 0 F. ー・一↑ ( 5 ード日 ( ー》《》 0 ↑ .400 380 390 を ( 5 ・ 2000 400 ~ ・一口・一 25 4 ー 0 P ー第 P9 ◆ 6 事 ( ー - ー ) ー 000 P2 ・ P ー◆ 33 ー P3 ・ P2 ◆ 65 ー P4 ・ P2 ◆ー 30 ー 0 ー 0 P ( ・戸ー .9EH ー 020 F. K•ー〒 ( 3 ー P ー•P ー◆ーー PO ・ P し 96H ー N ・ K ー 0 30 p ー・ P ー◆ーー P (. P ー .9 FH ー 040 ド . K ・一 T ( 5 ー P ー•P ー◆ 32 一戸 0. P ー . 8 FH ー N ・ K ー 050 p ー•P ー◆ 32 ー P ( ・ P ー・ A ー H ー 060 ー 0 ? 0 ー 08 0 ド . 区・一↑ ( 5 ー P ー•P ー -32 ー P 0. P し 88H ー N ・ K ー 09 0 P (. P2. M ー P (. P4. M ーー 00 ード N•ー 0 ↑ . P2 ・ P3- ーー PO ・ P2 ・ 3 ー H ー PO ・ P3.30H ー P ・ ーー 20 ード N ・一一↑ . P C. P3. OAH ー R ・ ーー 30 ーー 40 ード N•ー 3 ↑ . PC. P 3.0 日 H ー R ・ ーー 50 X ・ N ◆ 48 一戸 ( ・ P3. K ー R ・ ーー 60 2000 戸ー・ P9 ◆ 6 ・ ( ー - ー ) - 32 20 ー 0 ド・ J•ー〒 ( 5 2020 P ー•P ー◆ 32 ー P ( ・ P し 20H 2 0 30 2040 N ・ K 2050 P ー・ P ー -22 3 ー N ・ J 2060 P . 3000 3 0 ー 0 K ・ 0 ー S 第 0 30 ー 5 3020 し・一◆ー 3030 ード E ( ー ) , 第を ( し》↑・ 3050 3040 3050 3060 ード K 、》 0 ↑ .30 ー 0 3 0 3080 J•ー◆ー 3090 ↑・ 3 日 0 3 ー 00 1 ・ 3 ー 30 280 ~ ヨ 60 不響ト・カ ”ーー 0.360 ( カード示サア ) ( カード三去サプ )

5. 月間ラム 1980年2月号

BA SIC に示しています。アドレス の 8000 から 81D F までが画 面用のデータです。その残 りは図 3 のアセンプラ・プ ログラムに対応しています。 図 1 を見て下さい。ルー レット・ゲーム・プログラ ムのプログラム単位 ( モジ ュール ) の構造を示してい ます。また , 図 2 はこのプロ グラムの処理の構造です。 プログラムの詳細につい ては , 図 1 , 図 2 を参考に 直接プログラム・リストを 読んで下さい。アセンプラ 図 2 ルーレット・ゲー乙・プログラ乙の処理の構造 ・リストの方には簡単なコ しかも倍率が 40 ですから言うことありません。 メントも付記しておりますので御利用下さい。 さて , このプログラムでは効果音を出力しています。 プログラムの鮮 その方法は , 日電の『 TK ー 80 応用プログラム』に記載 ルーレット・ゲームのプログラムは , TK-80B S のレ されている方法に準じています。 TK ー 80 のボード上の , ベルⅡの BASIC およびアセンプラで言されています。 〃 PD8255 ( PPI ) の 15 番ピンを , カップリング・コン BA S IC プログラムを写真 10 に , またアセンプラ・プ デンサを介して , オーディオ・アンプへ接続します。 ログラムの方を図 3 に示しています。 詳細はこのマニュアルを見て下さい。 ルーレットの画面用データは図 4 のメモリ・ダンプ 出力 処理 1. 定数および変数の初期値 を設定する 2. REPEAT ゲーム用画面を表示する 王を表示する どこに贈けるかを 問い合わせる 伍 ( 中断の指示ではない ) THEN 勝負をする UNTIL ( ゲームが終了、ある いは中断の指示が ある ) 3. 結果を表示する 入力 所持金 ゲーム用画面 のデータ 五の位置 ( 初回のみ ) 賭けの 状態 指示 王の位置 BASIC 23 , 327 ー 9 , 327 ー PR ー .4 ・・リ PRI LET 一は一 F 一 4 ・ TYEN 4 ー 宀 T / 4 ) PRINT “、 ト H + INT " 、ーæT 0- ー 5 , 3 ー PRINT “事・・ ー② , 3 ー PRINT " ー ーー NT ー - ー TO ー LET , 3 ー PRINT " ・物・ 34ø INT " 」 STæPED THIS NT ( L / ー 0 ) ・一 0 ◆ 48 ー E X' Y 0 写真 10 ルーレット・ゲー乙 BAS ℃プログラ乙 66

6. 月間ラム 1980年2月号

ス・コース。 日本からの定期講読は , 年間 10 ド ルが必要である。日本からの購読や 論文の投稿も ( ただし英文に限る ) , 500.00 120.00 50.00 70.00 20.00 35.00 35.00 35.00 15.00 8.00 2 .00 g 屈日 00 ロ社タ・ジュ もちろん可能である。 ・ THE COMPUTER TEACHER, Computing Center Eastern Oregon State College, シリコンバレーの中のマウンテ ン・ビューに工場をもつ , Pragmatic Designs lnc. から , ちょっとおもし ろい製品が売り出された。 写真の ICTM ー 1 がそれで , デジタ ル・テスタ・モジュールと名づけら れている。 なんだ , 単なる I C テスタかと思 う人がいるかもしれないが , 「モジ ユール」という言葉がついていると ころがミソである。 まず第 1 に , このテスタは 24 ピン COt•NNDS RUN USE SAVE 凵 ST LLIST SCR BYE STATEMENTS LET FOR-NEXT IF-THEN GOTO GOSUB- RETURN PR I NT LPRINT DIM REM CLEAR PO KE DPOKE OUT READ RESTORE DATA CL EAR FUNCTIONS TESTER CONTROL STATEMENTS PRAP CALL IN DPEEK PEEK SGN INT SQR AB S ・ SET DEV TEST RESET CLOC K OUTPI N INPIN PASS FAIL RESET CLOCK TSPIN T B A S ー C 叩 -p 一覧表 FORCE VCC HOLD FAIL EOT PASS DCARE TSTATE LOW HIGH ISUP LOW HIGH MEASURE I IN PRICE* 90 $ 350.00 .00 ICTM-I PRODUCTS -1 , 灯 t ” ICTM-I , Assemb1ed, Tested, Ca1 ibrated** IF-I, Kit IF-I , Assemb1ed and Tested TBAS I C I nterprete r 110 価格表 IF-I Socket Set I CTM- 1 Soc ket Set ICTM-I Manua1 Set*** ( lncludes TBASIC Manua1 ) Power Supp1y Option, Kit Foot Switch lnterface Cab1 e Set ( 2 , 4 FOOt Cab1es) Universa1 Persona1 ity Modu1e, 24- U Persona1 ity MOdu1 es 14- 24 のバラレル・イン タフェイスを通し て , あらゆるマイ コンにつなぐこと ができる。また特 に , S ー 100 バスをも つバーソナルコン ピュータに対して は , 同社が発売し ている I F ー 1 ボー ドを用いれば直接 に接続することが できる。 したがって , ハ ード上の改造を加 えることなく , あ なたが所有してい るバーソナルコン ピュータを即座に デジタル・テスタ として利用できる ことになるのであ る。 ント・テスタとなる。 座にインテリジェ コンピュータが即 なたのバーソナル これによって , あ れている。つまり , BASIC が準備さ 呼ばれる Tester めに , TBASIC と スタを制御するた さらに La Grande, Oregon 97850 , U S A →方グマッグ ー C T M ー 1 CA94043 , U S A 711 Stierlin Road, Mountain View, ・ Pragmatic Designs lnc. になっている。 いることによって容易にできるよう DPOKE, DPEEK などの命令を用 のリンクも IN, OUT, POKE, 稼動でき , また機械語プログラムと オペレーティング・システムの下で なお , この TBASIC は CP/M L O W = 5 , 6 , 11 , 13 FORC E HIG H = 3 , 4 , 7 , 9 次のようになる。 TBASIC を用いてプログラムすると , にせよとある。したがって , ピン番号 5 , 6 , 11 , 13 のピンを Low て , ピン番号 3 , 4 , 7 , 9 を High に たとえば , テストすべき I C につい 分が通常の BASIC と異なっている。 特にテスタ・コントロール命令の部 ・コマンドは別表の通りであるが , この TBASIC で利用できる命令 を , ごく簡単にしておこう。 こで TBA SIC についての説明 がわかろうというものである。 とを考えると , この製品の素晴しさ 費を覚悟しなければならなかったこ 少なくとも数百万円のオーダーの出 用のテスタを入手しようとすれば , これまで , こうした機能をもつ専

7. 月間ラム 1980年2月号

桁以上のデータを扱うよう にします。 ゲート時間を 0.1 秒とし て直接測定した場合 , カウ ント値が 10000 になるのは 100KHz の時ですから , 100 KHz 以上にしか適用できま せん。また IOOMHz 以上に なるとカウンタがオーバー フロー ( カウンタが 7 桁だ から ) しますが , 実際には ハードの関係でこの周波数 まで測定することはできま せん。 次に , 間接測定 ( 1 ) を使用 した場合 , 基準バルスは 10 MHz ですから , カウント値 が 10000 になるのは周期が 1 ms ec の時です。したが って , 1 KHz 以下の周波数 にしか適用できません。下 限はカウンタがオーバーフ ローする 1 Hz です。 これら 2 方法でカバーで きない IKHz—100KHz に ついては間接測定 ( 2 ) を適用 し , 全域にわたっての精度 を確保しています。 4. 測定値の表示 内部処理して得られた結 果の上から 5 桁目を四捨五 入し , 上位 4 桁を表示する とともに単位 (Hz,KHz, MHz など ) を表示し , オー トレンジを実現しています。 今回使用した 7 セグメント LED は , 小数点が桁の左側 にあるタイプですので , 桁の右側にあるタイプのもの を使用する場合は , 図 6 にしたがって , ハードまたは ソフトの一部を変更する必要があります。工ラー表示 については表 3 を見てください。 ( 注 2 ) ICI : 7404 ー C2 : 7404 ー C3 : 7437 ー C4 : 7403 10 K n X 4 lnv. 7 2 1 0 0 0 Q4 D7 DO Duty -4 っ 0 3 3 ワ」 双方向 Pulse D7 [)6 D5 D4 D3 2 D 1 DO Q2 Freg. 74LS 5 74 し S 279 74 L S 42 ~ 4D 1 4Q 4Q 1 D ~ 4 D 4Q lD—4D 4Q 4Q IRQCLR 0 KEY RANGE 2 LED 3 LED 十 1 4 LED 十 2 5 LED 十 3 6 7 0 4Q O < I/O S 0 ~ 4D 11 4- MSD ( 注 1 ) ~ 4D 使Ⅲ 不可 G ~ 4D 1 ( 注 1 ) 4Q 十 3 ( 注 2 ) ID —4D 4Q 7475X 10 4 L S D ( 注 3 ) 表示基板 回路図 2 E ー F H 周波数が高すぎるげ ~ 1 MHz ) 周波数が低すぎるげ $1Hz ) E ー P 5 パルスが短かすぎる ( 了 < 0.1 sec ) パルスが長すぎる ( 了 ~ 1 sec ノ 表 3 工ラー表示 83

8. 月間ラム 1980年2月号

—CLOSED— SUPER—STORE I}KIBIJN. FOR I = 14 T 024 : PR I N T LEF T $ ( H $ ′い " ■ 19839 NEXT ー 18948 F OR I = 1 TO 1888 . NEX T I 18958 1 968 PR I N T " PRINTL FT$(H$,B)"B POLICE ! " 戔 8 昌 p 19963 PR I N T " ・ 188g4 P R I N T " 18 3 5 P R I N T " 1 96 ら PR I N TL F T $ ( H $ 13 ) FORI = 1T039 PRtNT"""; NEXTI 1 ら 67 PRINTLEFT$(H$,8)SPC(1B)'tMATEEE!t• 1 ら 68 1 ら 97 ら FORI = 11T028 I F I / 2 ー I N T ( ー / 2 ) = 9 THEN 19188 19 8 ら PR ー N T LEF T $ ( H $ , 18 ) SPC ( い " ー・ / ー 1 らら 9 ら 1 日日 9 こ PO ト V ′ 2 らら . FOR 」 = T01 ら . NEXTJ POKEV' 9 60 T 01 ら 11 ら POKEV,1E13 FOR 」 = ら T01 ら POKEV,ø NEXT 1 ら 11 IFI 〉 24THEN1 ら 15 ら 1 ら 12 I F I / 2 ー I N T ( I / こ ) = ら T HEN 1 14 ( 0 ) 1 13 ~ P R I N T L E F T ま ( H ま 1 ~ ) 5 P 0 ( : + é ) " 0T01 当 145 I N T EF T ま ( H ま , 1 ら ) SP 0 ( I + ら ) " ロ創 1 日 15 ら PR I N T LEF T. ま ( H $ , 1 ~ ) 三 PC ( 31 ) " 当 6 ま 1 ら 16 5 P R I N T LEF T $ ( H 8 ) SP 0 ( 19 ) い 18176 PR I N TL EF T $ ( H ま , 1 ら ) 5P0 ( 2 ? ) い 圜 K ! ) 住ー ) 凵も創 当 , 第イ。も言 2 当歪墾 ;OKEV. POK&V 1 19 も PR 1 N TLEF T ま ( H $ 1 ら ) SPC ( 29 ) い ) PC()8 "YAKAME ! " 1 2 ら 5 FOR 」 = 1T01 らら示 E : イ T. J 1 ら PRINTLEFT$(H$,B)SPC(28)'i 1 THENå11ØØ 11 らら P R ー N T L E F T $ ( H 1 ) SPC ( い GO T 0 1111 ま , 1 ら ) SPC ~ い " ・ 0 創 工 1119 FORJ=6BT03BSTEP—2:POKEV,J:NEXTJ, ー 9338 F8R5 墅 ? ÆL 髜 060STEP5 POKEV , K . NEXTK :FORK=6BT030STEP—5 POKEV,K 29835 NEXTK 」 28318 FORI=iTOS 29 29 PR ー N TL EF T $ ( H $ 3 ) SPC ( 自ー 1 ) い IJMA I ! 罍■ F0点J=1T0288 . NEXTJ ー響 ( 当も了 T FT ↓ ~ H $ 3)spc(R_1)„ ー当響、 K ぎ T : ? き 89 NEXTJ I ー「0RI=1T0188. p0KEv,INT(RND(1)*2S5) NEXT+ 2 94 POKEV/B 2 日 95 ら PRINT ー ら 955 GOSLJB9 8 ら 86 F OR I = 1 T 013 2 97 ら PRINTLEFT$(H$,13)" PR ー N T " を " SP ( 1 ) : : NOÅ "MID$(TI$,3,2) 昌 3 点貶。 ー 2 ) = " 1 " THENtee 8 3 9 9 4 G E T 1 $ 3895 XI=X . YI=Y 3 918 1 F I $ = "THENX=X + 1 , IFPEEK(K + X + 2 + 48を Y ) く > 32ÖRPEEK ( K + X + 82 + 48 * Y ) く〉 32THEN3878 3923 ー F I $ = " 8 " T HE N X = X ー 1 . I F p E EK ( K + X + 48 車 ) く > 320RPEEK ( K + X + 89 + 43 ) く ) 32THEN3878 39 33 ー F I $ = " 2 " T H E N = y— 1 . I FPE EK ( K + X ー 48 + 48 ※ ) く > 320RPEEK ( K + X ー 38 + 49 * Y ) く〉 32THEN3878 3 8 4 8 F 1 $ = " T HE N = Y + 1 : I F P E E K ( K + X + 12 9 + 4 8 * Y ) く ) 20RPE 自 K ( K + X + 122 + 49 * ) 〈〉 32THEN3879 4 IFY<6THENY=6 FY>$THENY=22 43 FX< THENX=2 44 FX>37THENX=37 45 0T03888 PRINTLEF $()$ YI)$C(XI—I)" FX/2—INT(X/2)OBTHEN31i8 38 P R I N T LEF T $ ( H $ 第 ) SPC ( X— 1 ) " 0 3189 )平,. 2b_tNT(Y/2)=BTHENPRINT")" 3 蟹昌 5 ・ 3119 PRINTLkFt$(H$. Y)SPC(X—I)" 0 F4/2—INT(Y/2)=8THENPRINT"( ー " 冫 : 60 7 NT ". ー T 自 ENGOT04889 14 PR I N T L F T $ ( H $ 第 Y ) SPC ( X— I) " 0 期ー ) ” : F 0 R 1 = 9 T05 : NEX T 31 9 IFPEEK (K+X—}+40*Y)=164THENPOKEK + X¯ EK<K + X + *+O*Y)=164THENPOKEK + X + 0T04889FORJ = 1 日 BTOBSTEP ー 1 ら・ POKEV , J 4 8 F 合〉 35THEN 合 = 33 = Q = ら FA<2THENR=2 . = 1 4 FA=INT(RND(1)*3S + 2)THENQ=1 4 IFA=INT(RND(1)*3S+2) THENQ=B 491 495 合 1 = 合 / 2 ー INT ( 合 / 2 ) " SPC ( 合 ) " 486 IFQ=IRNDAI<>OTHENPRINT" 4895 " S P C ( 日 ) " =BTHENPRINT' 4895 " SPC ( 合 ) “ 48 合 ! K ! 鬯 EK ( K + 合 + 24D =32ftNDPEEK ( 4 ら K + 合 + 243 ) = 32THEN5889 4288 60T03988 5 らら 8 GOSUB5813 : GOT05853 ②各② PRINT"Ä"SPC(A)"< ・ ) 題ーー K ! ー創 ② 28 PRINT"ÜI'SPC(A)"( ・ ) ーー K ! - 創 ( 日 39 FORI=BT05 :POKEV,INT(RND(1)*2SS) :FO RK = 1T039 : NEXTK い POKEV 8 t'SPC(A)dI 圏ーー国 K ! 一創 5843 P R I N T " 8 :NEXTK :FORK=BT 845 RETIJRN 585 PR I N TLE F T $ ( H $ 第 Y ) SPC ( 合 ) " 創国ー国 ーーー :GOSI-JBS?IB BS 1 ら 59e ら IFX=ÉTHEN5128 { 31 鑾 ( レ 2 , ・創・ーー「圜 K ! 、の一一レ ) " . 60 〒 0511 51 皀 PRINTLFFTf(H$,I)SPC(A)" 129 PRINTLEFT$()$ YT—!ÆPC(A)"KOI— 戸 I = 3T059 = POKEV. 1NT(RND<i)*25S) ・ . N . POKEV,e EX 1 FOR{=Y—3T03ST P—I 149 1 4 = / 2- I N T ( I / ) 15 ら I F 14 = ② T HENP R I N TLE F T $ ( H $ I ) SPC ( 合 ) “ 16 ら PRINTLEFT$()$ I)SPC(A)" ・ ) - 即 ( ■ K ! 518 ら GOT019983 13 ら日 9 FORI=3T012:PRINTLEFT$(H$,I)"E . GOTO 191 ら p R I N T L E F T ま ( H $ ~ 12 ) S P C ( い " \ ・ -.. ■創 0 ? 8 日 PRINTLEFT$(H$,II\LEFT$("YOK リ YATTA 目当 39 ら FORJ=1T01らら . NEXTJ こら 1 ら P R I N T L E F T ま ( H 輩 14 ) S P C ( 2 ) い 2 ら 112 FOR 」 = 1T019 NÉXTJ I 2 ら 129 P R I N T L E F T $ ( H $ . 11 ) 2 ら 13 ら F 0 R ー = 1 T 0 3 2 14 ら PR I N TLE F T $ ( H 11 ) い 8 白 NZR いい 2 ら 15 ら PR ー N TL E F T $ ( H $ ′ 13 ) ロ : ら 1 をら一 F POKEV J . NEXTJ ・ FORJ=2 ららT05らSTEPー1 . POKEV,J:NEXTj 2 ら 17 日 P R I N T L E F T $ ( H ま , 11 ) " 2 ら 18 ら P R I N T L E F T ま ( H $ , 13 ) " 01 NEXTJ 第 I 2 ら 2 ら 記昌嵶 117 4 冖 , 2 57 , 19 , 149 も % に 5 冖 , 59

9. 月間ラム 1980年2月号

L 日囲 朝 46 4D DI ZCHECK 朝 X 6 囲 1 07 21 26 日 69 DE 21 17 27 . LDßR 76 19 86 76 肬 IB , ル 86 38 印 38 12 18 4 IF 97 を口 C を 2 日 R #$F 託 % 繦 囲 87 4 日に E 熔 ERR20 BEQ BRfi LED 7946 ST 冊 [ 印 + 2 PRGE 隝 ST L 印 + 3 を 2 ERR 98 託 % E3 LDX CPX BNE 灯 XI E 灯 519 * L0 CI 府 ロ R5 託 % 95 繝 7 % C9 4F 97 26 9 C 4C 9 D 97 25 97 R2 STX LED STX LED+2 [ 囲日 IR 収 R 日 ST FG INCR ST 旺 IC 85 IE 27 92 22 86 26 74 26 . * R 0FF 71 冊 iJ LDX EG 26 CE 18 DISPDC LDX を 8 2D * + 4 DSCLR D 15P35 虧 EG + 5 DSCLR FREQ. COUHTER ( 6892 ) 74 6D 76 % 79 00iR 78 % 65 82 加 . 89 81 7E 日 6 94 7C 26 F6 6 C 84 8 92 を C91 % 32 88 36 19 6C97 26 印 95 84 F8 託 93 27 朋 日 7 隝 TST X 6 R4 CPX 響笠 6 + 7 B8E RI 朝 4,X DfiR LDRR 3 X LDRB 新 BLT CHPR C0 BNE R2 BEQ COW P 乢日 ST 3 8C0 T0 SE ト囲 T 日 2B 6D 朋 冊加 26 01 2F 36 97 R3 冊 34 97 日 2 25 1 ・ 9 18 32 25 胞 42 26 8D 相 R5 冊 EE 62 30 97 日 4 冊 3 日引 4C 26 冊 üD2R 1 F 冊 21 28 冊朝 F8 印 49 39 7 81 莅 助 46 48 前旺 35 44 TST BNE IHX 盟 SP OR DE 託 21 07 簡 OC 84 % 25 28 第 6C26 R3 23 79 97 25 38 98 新 36 34 2R 0C C4 87 託 33 印 32 iB 35 朝 26 F2 48 84 87 44 26 FD 朝載 71 3E % 97 催 8C43 LDX STX E 46 BRfi * 0 SERUISE 本 LDRR Ⅲ 0 R ST RRN6E 00E E 日 h0DE BPL 0 TSTB DB 87 LDRB KEY LDRR DE : ー 5 DELRY を 4 R2 FREQ. COUHTER ( 載 ) 9C01 囲花 [ 00P 628 19 26 FB を日 09 D5 24 0CD4 能 9 8 第 E6 % E4 2fi 8 2 25 EI % 94 5 CLI LDX CLR DEX PRGE EXIO 響旺 -1 印住 E LDRR ST 府 US ENR 柵旺 BPL 軸 4 BSR EXEC LED DISPLW * 日囲冊盟 LDX 0 虹 R ST E LDRR X ST LED L 囲日 1 ST 朋 LED + 1 LDX 2,X STX 圧 D + 2 日 L0 WR 7E BSR ZC}ECK RTS BHE DSCLRI 4C 7E , 0 % JhP 25 本一 1 臘 026 LOOP LDRR KE\' BNE DEX LDX FREQ. COUNTER ( 6 2 ) 新 99 朋 COW OCEE 26 印 F0 肬 4F 9 旧 % 25 F5 85 64 6 7 26 第 DEX BHE * ー 1 JSR EXTS [ 囲日 DE BITR 料 BHE 此 COWI 間 2 LDX L 囲 8 LD SEGO,X 5 1X1 LDX 冊ト 1 INX DE RTS BNE COHU 1 CPX 5 INX ST 朋 5E6 の X LDX 1 LDRB 0 R BNE COHU2 DEtB LD8fi X BHE 本 -2 FREQ. COUKTER ( 載 ) PfiGE 29 22 9 2 23 4 E 灯 5 印 X STX 2 0C4F CE 肪 E 灯 5 LDX 本 EXTENS 10H * 83 94 4 0C 兜 % 94 % 12 8CB3 旺 21 6C81 % 隝 日 F 8R 肬冊 26 0C 5fi 0C 冊 26 FC R7 朝 8C 日 6 CE OBFF 0C 日 2 4C DF 21 8C 8C 6 F 0CB5 日 7 12 39 9 C6 記 DI LH 9 8 載 FD 26 載 町 TR ・ 2 BNE 裃 4 6 C6 99 何 SPFQ [ 囲 8 要 9 ~ 6 21 託 66 63 5C 44 44 5R 44 59 44 8 16 STX 1 TRB LSRR LSRR LSRR FREQ. 謝 T ( お % 2 ) PRGE 34 6 囲 4 11 9 9 DI 21 6 囲 B 27 6 囲 F 27 F6 8 囲 7 13 48 STRB 盟 CLRB LDX ー 6 ト 1 15 1 ChPB 1 0 5P22 8E0 15 5P21 RSLR 印 4E 6F 51 部 Fi 53 26 92 57 69 58 39 冊 4D 朋 冊 59 % 25 E9 6F 5B 44 5C 25 第 67 26 24 印 65 DE 63 部 61 部を 印 5F 25 印 5E 44 69 旺隝 CLR X INX BSR ZCHECK BHE 軒 4 CLR X DEX 託 5 FREQL EXEC 印 HODE DSCLRI RTS 本 DUTY-CELE * 5 P 乢笠 0C C4 8F 5F 匠 23 6C61 R7 86 67 DF LSRR IHX IHX LDX 2 ST 5E6 X ST 朋 5 新 X 以 2 FREQ. COUNTER ( 6 2 ) PRGE 97 本 I ⅱに E * 8CBE CE 3F3F 1 T LDX 3F3F 冊 14 C8 16 匹冊 96 25 馴 88 BGT SP 幻 日 5P35 5P26 LDRR 匠 LDX BHE LbX PYT BUF 鬪 F + 2

10. 月間ラム 1980年2月号

レンジの切換は自動的に行 なわれますから , 外部から の設定は不要です。 2. 表示部 測定値は 7 セグメント L E D に 4 桁で表示し , レン ジ・モードは 8 個の L E D で表示します。各データの ビットと表示位置の関係は 図 4 のように対応しており , ビットが 1 のとき点灯し , 0 のとき消去します。 表示にはスタティック方 式を採用しています。ソフ トでのダイナミック方式に しなかったのは , 周波数測 定時に , ゲート時間 0.1 秒 をソフトで作っている部分 があるので , その間に割り 込みがおこると困るし , ま た割り込み禁止にすると逆 に表示が不自然になるから です。 3. 計数部 入力バルスの計数はすべ てハードで行ない , 高い周 波数 ( または短いバルス ) まで測定できるようにして います。入力波形反転部・ゲート開閉部・モード切換 部・ 1 バルス入力部・カウンタ部 ( 図 5 参照 ) からな り , カウンタは 7 桁です。 カウンタがオーバーフローすると割り込み ( NMI ) がか かるようにしてあります。 ◆ソフト編◆ I. キー入力処理 キー入力には IRQ を用いています。入力に応じて測 定モードを変更します。割り込みを解除するには , L D A A I R Q C L R として , RS -F F をリセットします。キーにチャタリン グがあると多重割り込みになる可能性があるので , チ ャタリングがなくなってから CLI を実行します。キー 入力されない間は , 同じモードでの測定をくり返します。 2. 測定モードの設定 ( a ) 入力波形の反転 L D A A I N V ( 注 ) 左側小数点 LED の場合 は最上桁 , 右側小数点 LED の場合は最下桁の D. P. を結線しない。 KHz msec Hz s e c FREQ PULSE DUTY INV D. P. d 3 側 X8 十 5V ラッチ っー、 -0 -4 っ 0 っ】、ー 0 示 表 モ ジ レ モ コ 0 ノ ア 十 5V ラッチ BO B2 B3 d B4 e KHz m S e C B5 B6 B7 DATA D. P. INV RANGE f Hz gsec b DUTY PULSE FREQ MHz a C 図 4 ビットと表示位置の関係 を実行すると , 図 5 ( a) の D ー F F が反転し , 入力波 形を反転させることができます。 2 度実行するともと にもどります。現在 F F がどちらの状態なのかは , D A T A 番地の 6 ビット目で知ることができます。 (b) 周波数の直接測定 測定原理の 1 で述べた方法を実行します。ゲート時 間てはソフトで作ります。 L D A A C L E A R ; カウンタ , ゲートをクリア L D A A F M O D E ; 周波数測定モード L D A A G A T E ; ゲートをあける ゲート時間に相当する ディレイルーチン L D A A G A T E ; ゲートをしめる を実行すれば周波数が測定できます。カウンタの値は D A T A 番地からの 4 バイトをリードすれば知ること ができます。ディレイルーチンで浪費するマシンサイ 80