忘れない内に皆に伝授しときましょう。
・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。
探検
MSX-BASICの奥義を伝授するスレ
レス数が900を超えています。1000を超えると表示できなくなるよ。
1デフォルトの名無しさん
NGNG802799
2014/03/14(金) 04:13:09.54ID:Dt0a1Iuk もう一つ。海外のBASICのことを考え、140行は Y\4 から INT(Y/4) に変更した。
整数除算の"\"は、海外(日本語環境以外・日本のMSX以外)では半角"\"になる。
110行 INPUT"年(1900〜2100),月" ;Y,M → INPUT"M,Y(1900-2100)";M,Y
270行 PRINT " ";A$;" "; → PRINT A$;" "; (曜日名を英3文字にするため)
380行 DATA "日","月","火","水","木","金","土"
→DATA "SUN","MON","TUE","WED","THU","FRI","SAT"
それ以外の変更はなし……で動く海外のBASICはあるだろうか?
整数除算の"\"は、海外(日本語環境以外・日本のMSX以外)では半角"\"になる。
110行 INPUT"年(1900〜2100),月" ;Y,M → INPUT"M,Y(1900-2100)";M,Y
270行 PRINT " ";A$;" "; → PRINT A$;" "; (曜日名を英3文字にするため)
380行 DATA "日","月","火","水","木","金","土"
→DATA "SUN","MON","TUE","WED","THU","FRI","SAT"
それ以外の変更はなし……で動く海外のBASICはあるだろうか?
803799
2014/03/15(土) 03:32:57.56ID:GTtrbY0y 訂正。MSXと99Basicは問題ないが、
N88互換のBASICの一つ「MBASIC86」でエラーが出た。
99Basicは作者が元MSXユーザーなので、MSXとの互換性をある程度重視している。
けど、N88BASIC系統は空白の省略は許されない。
PRINT命令やPRINT USING命令などの次には、空白が必要。
310 PRINT USING " ## ";I;:D=D+1
↑310行を訂正してほしい。申し訳ない。
「MBASIC86」は、これで動作した。
N88互換のBASICの一つ「MBASIC86」でエラーが出た。
99Basicは作者が元MSXユーザーなので、MSXとの互換性をある程度重視している。
けど、N88BASIC系統は空白の省略は許されない。
PRINT命令やPRINT USING命令などの次には、空白が必要。
310 PRINT USING " ## ";I;:D=D+1
↑310行を訂正してほしい。申し訳ない。
「MBASIC86」は、これで動作した。
804デフォルトの名無しさん
2014/03/15(土) 12:51:19.31ID:8TvWREf7 なにこの独り相撲
805デフォルトの名無しさん
2014/03/15(土) 13:37:16.17ID:E7qCmrfx IDありになって良かったな
806799
2014/03/15(土) 22:22:48.57ID:GTtrbY0y わざわざ過疎スレまで煽りに来たのか。
……昔のMファンをヤフオクで落札したので、自作品をここに書いただけ。
他人様の作品を無断転載はしないよ。
落札前に再び同じプログラムを作ろうとしたが、肝心の自分がアルゴリズムを忘れた。
私のカレンダーでは使っていないけど(28年分のカレンダーを使いまわしているだけ〜例:1986年=2014年=2042年)
カレンダーのプログラムを作るなら、「ツェラーの公式」
http://ja.wikipedia.org/wiki/%E3%83%84%E3%82%A7%E3%83%A9%E3%83%BC%E3%81%AE%E5%85%AC%E5%BC%8F
を参考にするといいと思う。
……と書いたら、また煽られるだろうな。
昔〜ひろゆき氏が熱心に活動していた頃〜の2chは、
この程度で煽られることは少ない気はしたが。
ひろゆき氏が「PCが安価になったので、一部を除いては、2chは馬鹿ばかりになった」
と嘆いたのもわかる気が。
……昔のMファンをヤフオクで落札したので、自作品をここに書いただけ。
他人様の作品を無断転載はしないよ。
落札前に再び同じプログラムを作ろうとしたが、肝心の自分がアルゴリズムを忘れた。
私のカレンダーでは使っていないけど(28年分のカレンダーを使いまわしているだけ〜例:1986年=2014年=2042年)
カレンダーのプログラムを作るなら、「ツェラーの公式」
http://ja.wikipedia.org/wiki/%E3%83%84%E3%82%A7%E3%83%A9%E3%83%BC%E3%81%AE%E5%85%AC%E5%BC%8F
を参考にするといいと思う。
……と書いたら、また煽られるだろうな。
昔〜ひろゆき氏が熱心に活動していた頃〜の2chは、
この程度で煽られることは少ない気はしたが。
ひろゆき氏が「PCが安価になったので、一部を除いては、2chは馬鹿ばかりになった」
と嘆いたのもわかる気が。
807799
2014/03/15(土) 22:31:04.32ID:GTtrbY0y ID制…といっても、末尾が「0」「O」「i」「P」ではないので、
ID云々で煽る板ではない気がする(少数だが、現時点でもIDがない板がある)。
内容はどうであれ、末尾が「P」はボロクソに罵倒される。
「P」はp2。p2はものすごく嫌われている。悪質な荒らしが多いのかも。
(そのせいで、荒らし以外が罵倒の被害に遭っている)
アク禁になったら、別の携帯電話や避難所のスレに代理書き込み依頼が多数のはず。
あと、書き込みが1日1回限定だとIDの意味をなさないと思う。
ID云々で煽る板ではない気がする(少数だが、現時点でもIDがない板がある)。
内容はどうであれ、末尾が「P」はボロクソに罵倒される。
「P」はp2。p2はものすごく嫌われている。悪質な荒らしが多いのかも。
(そのせいで、荒らし以外が罵倒の被害に遭っている)
アク禁になったら、別の携帯電話や避難所のスレに代理書き込み依頼が多数のはず。
あと、書き込みが1日1回限定だとIDの意味をなさないと思う。
808デフォルトの名無しさん
2014/03/16(日) 14:24:59.42ID:SqWBi3v6 なんかよくわからんけど、どうせなら、この世の全ての BASIC で動くコード
とかだと面白いんだけどな
とかだと面白いんだけどな
809デフォルトの名無しさん
2014/03/16(日) 14:50:41.80ID:4mUPyn+t 独り相撲してナンボのスレだけどな
まあ、番号コテの人にはスレタイくらい読んでおいてほしかったとは思うな
まあ、番号コテの人にはスレタイくらい読んでおいてほしかったとは思うな
810デフォルトの名無しさん
2014/03/16(日) 15:08:12.80ID:gkqHMcUQ BASICでは、ダークと99はNGに入ってるわ、俺。
811799
2014/03/16(日) 16:50:59.39ID:P7mFBOx5 Wikiや他サイトを参考にし、カレンダーの曜日を求める式を作ったところ…
変数 H:曜日(0〜6、0=日・1=月…6=土)、Y:年(2014など) M:月(3など) D:日(今回は1のみ)
H=(365*Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((306*(M+1))/10)+D-428) MOD 7
N88互換系では実行できたけど……MSXでは"Overflow in xxx"エラー。
MSXのMOD演算子や整数除算"\(海外版は\)"は、
2バイトの整数型(-32768〜32767)の範囲に限られる。
365×西暦4桁がある時点でアウト。
……ので、MODの被除数を32767以下にしてみるか。7の倍数で最も32767に近い値を減算するとどうだろう。
MSXで動かないプログラムを作っても……と思うし。
行番号は追放する方針。>>800->>801のプログラムも、最初はDATA命令の行番号を指示する
"RESTORE 380"があったが、180〜240行を無駄ループにして回避。
変数 H:曜日(0〜6、0=日・1=月…6=土)、Y:年(2014など) M:月(3など) D:日(今回は1のみ)
H=(365*Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((306*(M+1))/10)+D-428) MOD 7
N88互換系では実行できたけど……MSXでは"Overflow in xxx"エラー。
MSXのMOD演算子や整数除算"\(海外版は\)"は、
2バイトの整数型(-32768〜32767)の範囲に限られる。
365×西暦4桁がある時点でアウト。
……ので、MODの被除数を32767以下にしてみるか。7の倍数で最も32767に近い値を減算するとどうだろう。
MSXで動かないプログラムを作っても……と思うし。
行番号は追放する方針。>>800->>801のプログラムも、最初はDATA命令の行番号を指示する
"RESTORE 380"があったが、180〜240行を無駄ループにして回避。
812799(MSXで動作可)
2014/03/16(日) 17:47:43.30ID:P7mFBOx5 100 CLS
110 INPUT "Y,M ";Y,M:MM=M:D=1:U=Y MOD 4
120 IF U=0 THEN UU=1
130 IF U=0 AND (Y MOD 100)=0 AND (Y MOD 400)>0 THEN UU=0
140 IF M=1 OR M=2 THEN M=M+12:Y=Y-1
150 IF Y<0 OR Y>9999 OR MM<1 OR MM>12 THEN RUN
160 H1=(365*Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((306*(M+1))/10)+D-428)
170 HH=INT(H1/32767):H=(H1-32767*HH) MOD 7
180 FOR I=1 TO 12
190 READ X
200 IF MM=I THEN D=X+28
210 IF MM=2 AND UU=1 THEN D=29
220 NEXT
230 PRINT:PRINT
240 FOR I=1 TO 7
250 READ A$:PRINT A$;" ";
260 NEXT
270 PRINT:PRINT:PRINT SPACE$(H*4);
280 FOR I=1 TO D
290 PRINT USING " ## ";I;:H=H+1
300 IF H=7 THEN H=0:PRINT:PRINT
310 NEXT
320 PRINT
330 IF H>0 THEN PRINT:PRINT
340 END
350 DATA 3,0,3,2,3,2,3,3,2,3,2,3
360 DATA "SUN","MON","TUE","WED","THU","FRI","SAT"
110 INPUT "Y,M ";Y,M:MM=M:D=1:U=Y MOD 4
120 IF U=0 THEN UU=1
130 IF U=0 AND (Y MOD 100)=0 AND (Y MOD 400)>0 THEN UU=0
140 IF M=1 OR M=2 THEN M=M+12:Y=Y-1
150 IF Y<0 OR Y>9999 OR MM<1 OR MM>12 THEN RUN
160 H1=(365*Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((306*(M+1))/10)+D-428)
170 HH=INT(H1/32767):H=(H1-32767*HH) MOD 7
180 FOR I=1 TO 12
190 READ X
200 IF MM=I THEN D=X+28
210 IF MM=2 AND UU=1 THEN D=29
220 NEXT
230 PRINT:PRINT
240 FOR I=1 TO 7
250 READ A$:PRINT A$;" ";
260 NEXT
270 PRINT:PRINT:PRINT SPACE$(H*4);
280 FOR I=1 TO D
290 PRINT USING " ## ";I;:H=H+1
300 IF H=7 THEN H=0:PRINT:PRINT
310 NEXT
320 PRINT
330 IF H>0 THEN PRINT:PRINT
340 END
350 DATA 3,0,3,2,3,2,3,3,2,3,2,3
360 DATA "SUN","MON","TUE","WED","THU","FRI","SAT"
813デフォルトの名無しさん
2014/03/16(日) 21:18:49.40ID:lTEgNzO7 >>807
俺P2からの書き込みだけどPにならんよ
俺P2からの書き込みだけどPにならんよ
814799
2014/03/17(月) 00:30:21.19ID:wkMqB80o >>813
この板ではならない。
末尾に"7"などの数字・"Q"などその他の英字がある時点で
「ここはp2・ガラケー・iPhone・PCなどその他 の判別がない」とわかるはず?
末尾が"P"になってもp2とは無関係。"0" "O" "i"も同様。
このような板だと、プロバイダがアク禁のときにp2から書き込んでもバレないけど。
>>809
>スレタイくらい読んでおいてほしかったとは思うな
MSXでMファンに採用された1行プログラムを作ったとき、「これはMSXの仕様に依存している」
と意識した。SPC関数はMSX独自。論理式の"A=D=6"は、正しくは"A=(D=6)"
(D=6のときAが-1に・その他はAが0に、の意)と書くべきだが、エラー覚悟で書いたところ実行できた。
99BasicやMBASIC86でも動く…を目指すと、どうしても脱MSXになる傾向が。
>>812のプログラムの160行・170行はMSX対策。
MODや整数除算"\"は、MSXは32767以下限定。「MSX対策」と書かないとなぜ?と聞かれると思う。
この板ではならない。
末尾に"7"などの数字・"Q"などその他の英字がある時点で
「ここはp2・ガラケー・iPhone・PCなどその他 の判別がない」とわかるはず?
末尾が"P"になってもp2とは無関係。"0" "O" "i"も同様。
このような板だと、プロバイダがアク禁のときにp2から書き込んでもバレないけど。
>>809
>スレタイくらい読んでおいてほしかったとは思うな
MSXでMファンに採用された1行プログラムを作ったとき、「これはMSXの仕様に依存している」
と意識した。SPC関数はMSX独自。論理式の"A=D=6"は、正しくは"A=(D=6)"
(D=6のときAが-1に・その他はAが0に、の意)と書くべきだが、エラー覚悟で書いたところ実行できた。
99BasicやMBASIC86でも動く…を目指すと、どうしても脱MSXになる傾向が。
>>812のプログラムの160行・170行はMSX対策。
MODや整数除算"\"は、MSXは32767以下限定。「MSX対策」と書かないとなぜ?と聞かれると思う。
815デフォルトの名無しさん
2014/03/17(月) 00:41:51.33ID:cdm9pD2a 「これはMSXの仕様に依存している」…まさしくそれがスレタイの意味するところじゃねかしら?
ほかのBASICで動くなら、MSX-BASICの奥義でもなんでもないし
ほかのBASICで動くなら、MSX-BASICの奥義でもなんでもないし
816799
2014/03/17(月) 04:47:53.34ID:wkMqB80o >>812のカレンダーだけど、MSXでもエラーが出ない式があったので訂正。
160 '
170 H=(Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((13*M+8)/5)+D) MOD 7
(160行は削除してもよい。GOTO xxなどがないので、RENUMコマンドも問題ない。)
被除数は常に32767未満なので、MOD演算子でOverflowが出ることはない。
曜日は 0=日・1=月…6=土 なので使いやすい。
調べたところ、0=土・1=日…6=金 と返す式もあるから。
あとは…漢字BASICの_KANJI版を作ったら、カレンダーは終わりにするか。
_KANJI2・_KANJI3を除く漢字BASICは、いかに改行を減らすか…
改行の問題さえ解決すれば、数字が大きいので見やすいはず。
そのうち〜バスの電磁大光ブザーを真似た PLAY"S8M90O6G" とSOUND命令版も紹介するか。
これは自分で考えたもの。 PLAY"S8M90O7G" だと、通常のアナログブザーに。
…当時のMSXのクイズプログラムは、不正解の音は PLAY"O1C" などワンパターンだった。
ちなみにエミュレータのfMSXとRuMSXは、これらの音は再現できない=PSG再現に難がある。
160 '
170 H=(Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((13*M+8)/5)+D) MOD 7
(160行は削除してもよい。GOTO xxなどがないので、RENUMコマンドも問題ない。)
被除数は常に32767未満なので、MOD演算子でOverflowが出ることはない。
曜日は 0=日・1=月…6=土 なので使いやすい。
調べたところ、0=土・1=日…6=金 と返す式もあるから。
あとは…漢字BASICの_KANJI版を作ったら、カレンダーは終わりにするか。
_KANJI2・_KANJI3を除く漢字BASICは、いかに改行を減らすか…
改行の問題さえ解決すれば、数字が大きいので見やすいはず。
そのうち〜バスの電磁大光ブザーを真似た PLAY"S8M90O6G" とSOUND命令版も紹介するか。
これは自分で考えたもの。 PLAY"S8M90O7G" だと、通常のアナログブザーに。
…当時のMSXのクイズプログラムは、不正解の音は PLAY"O1C" などワンパターンだった。
ちなみにエミュレータのfMSXとRuMSXは、これらの音は再現できない=PSG再現に難がある。
2014/03/17(月) 05:17:53.14ID:wkMqB80o
100 _KANJI:WIDTH 29:_CLS
110 INPUT "Y,M ";Y,M:MM=M:D=1:U=Y MOD 4:UU=0
120 IF U=0 THEN UU=1
130 IF U=0 AND (Y MOD 100)=0 AND (Y MOD 400)>0 THEN UU=0
140 IF M=1 OR M=2 THEN M=M+12:Y=Y-1
150 IF Y<0 OR Y>9999 OR MM<1 OR MM>12 THEN RUN
160 H=(Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((13*M+8)/5)+D) MOD 7
170 D=31:M=MM
180 IF M=4 OR M=6 OR M=9 OR M=11 THEN D=30
190 IF M=2 THEN D=28+UU
200 PRINT:PRINT "SUN MON TUE WED THU FRI SAT"
210 PRINT SPACE$(H*4);
220 FOR I=1 TO D
230 PRINT USING " ## ";I;:H=H+1
240 IF H=7 THEN H=0:PRINT
250 NEXT
260 PRINT
270 IF H>0 THEN PRINT
280 END
110 INPUT "Y,M ";Y,M:MM=M:D=1:U=Y MOD 4:UU=0
120 IF U=0 THEN UU=1
130 IF U=0 AND (Y MOD 100)=0 AND (Y MOD 400)>0 THEN UU=0
140 IF M=1 OR M=2 THEN M=M+12:Y=Y-1
150 IF Y<0 OR Y>9999 OR MM<1 OR MM>12 THEN RUN
160 H=(Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+INT((13*M+8)/5)+D) MOD 7
170 D=31:M=MM
180 IF M=4 OR M=6 OR M=9 OR M=11 THEN D=30
190 IF M=2 THEN D=28+UU
200 PRINT:PRINT "SUN MON TUE WED THU FRI SAT"
210 PRINT SPACE$(H*4);
220 FOR I=1 TO D
230 PRINT USING " ## ";I;:H=H+1
240 IF H=7 THEN H=0:PRINT
250 NEXT
260 PRINT
270 IF H>0 THEN PRINT
280 END
818デフォルトの名無しさん
2014/03/19(水) 12:04:38.51ID:OxhLoqdL ここもちらしの裏だし
まいっか
まいっか
819デフォルトの名無しさん
2014/06/04(水) 15:34:40.19ID:ZiHf6GEW 揚げろや屑やろう!
820デフォルトの名無しさん
2014/06/04(水) 15:40:59.44ID:3TCFL1gZ 断る
821デフォルトの名無しさん
2014/07/09(水) 09:59:00.63ID:jeW2TfnT 保守
822デフォルトの名無しさん
2014/07/12(土) 17:02:47.46ID:dhVKd2av 奥義はよ
823デフォルトの名無しさん
2014/07/14(月) 22:42:26.64ID:4A74nF8C 奥義マダー?
824デフォルトの名無しさん
2014/07/15(火) 06:39:57.66ID:mWyocOMn 奥義・光子力まるはだか!
825デフォルトの名無しさん
2014/07/15(火) 11:46:12.23ID:6lvRYATA ジャパニウム、だっけ?
826デフォルトの名無しさん
2014/07/15(火) 19:41:46.28ID:uDYfEjIO そのジャパニウムの力で、
小学4年生の江久保葉子ちゃんをまるはだかにむくのじゃあ!
小学4年生の江久保葉子ちゃんをまるはだかにむくのじゃあ!
827デフォルトの名無しさん
2014/07/25(金) 13:12:32.97ID:RkXLEhxK >>826
通報しますた
通報しますた
828デフォルトの名無しさん
2014/07/28(月) 11:47:27.95ID:XCE2nVfS ★2ch勢いランキングサイトリスト★
◎ +ニュース
・ 2NN
・ 2chTimes
◎ +ニュース新着
・ 2NN新着
・ Headline BBY
◎ +ニュース他
・ Desktop2ch
・ 記者別一覧
◎ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
◎ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi
※ 要サイト名検索
◎ +ニュース
・ 2NN
・ 2chTimes
◎ +ニュース新着
・ 2NN新着
・ Headline BBY
◎ +ニュース他
・ Desktop2ch
・ 記者別一覧
◎ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
◎ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi
※ 要サイト名検索
829デフォルトの名無しさん
2014/09/09(火) 20:53:47.73ID:xGs4sfhV 2001年の生き残りはこのスレだけ
最長老ごきげんよろし
最長老ごきげんよろし
830デフォルトの名無しさん
2014/09/26(金) 15:40:44.73ID:cDF8qWEh 多色刷りって、BIOS使わずVDP直接操作だけでやるとしたら
どうやるんだろうか…(市販ゲームとか)
BIOSのINIT32(006FH)とかSETGRP(007EH)とかを解析したら良いんだろうけど、
めんどいなw
スクリーンモードってVDPのR#0と#1だけで決めていると思ってるんだけど、
それ以外に何かいじらないと多色刷りモードにはならないってことか
どうやるんだろうか…(市販ゲームとか)
BIOSのINIT32(006FH)とかSETGRP(007EH)とかを解析したら良いんだろうけど、
めんどいなw
スクリーンモードってVDPのR#0と#1だけで決めていると思ってるんだけど、
それ以外に何かいじらないと多色刷りモードにはならないってことか
831デフォルトの名無しさん
2014/09/28(日) 10:53:47.04ID:nD5Yu8m1 多色刷りってのは BASIC で手軽に Graphic 2 の性能を引き出す手法の俗称だろ。
市販ゲームなんかは、それこそすべての操作を VDP に直接アクセスしてやってるから、
多色刷り云々の話ではないよ。
市販ゲームなんかは、それこそすべての操作を VDP に直接アクセスしてやってるから、
多色刷り云々の話ではないよ。
832デフォルトの名無しさん
2014/09/28(日) 11:28:05.44ID:/z7vQ2zP833デフォルトの名無しさん
2014/09/28(日) 14:43:20.51ID:DVWno/3n >>134
お願いします
お願いします
834デフォルトの名無しさん
2014/09/28(日) 15:22:11.12ID:8Hq1x0kC 反応するのに12年もかかるのかよ
835デフォルトの名無しさん
2014/09/28(日) 15:28:43.79ID:J5abx0zT 12年後が楽しみだ
836830
2014/09/29(月) 00:58:02.60ID:EDDV56hZ >>831
それは知ってるんだが、
なぜVDPがscreen2であるにも関わらず、
VDPに対してprint文などでキャラクタコードで書けるのかが不思議だったんだよ
screen2はパターンジェネレータテーブルとカラーテーブルだけが有効で、
パターンネームテーブルは無効だと思ってたから。
…と思いながら、screen2をテクハン片手にvpokeでいじってたら、
screen2でもパターンネームテーブルは生きてるんだな。
今ごろになって気が付いたwこれでスッとしたわ…自己解決。
screen2のパターンネームテーブルは&h1800から値が順に01,02,03,…とデフォでは入っていて、
これによってパターンジェネレータテーブルの定義内容が順に表示されるようになっているみたいだな。
(これでグラフィック画面らしい挙動ができるわけだ)
で、多色刷りだと、screen2でもscreen1同様このテーブルをprint文などで書き換えると。
(今までscreen2のパターンネームテーブルは無効だと思い込んでいたから、この1点が謎だった)
じゃあ多色刷りって、VDP側はただのscreen2だな。
別にどうってことない話じゃないかw(←オイ
それは知ってるんだが、
なぜVDPがscreen2であるにも関わらず、
VDPに対してprint文などでキャラクタコードで書けるのかが不思議だったんだよ
screen2はパターンジェネレータテーブルとカラーテーブルだけが有効で、
パターンネームテーブルは無効だと思ってたから。
…と思いながら、screen2をテクハン片手にvpokeでいじってたら、
screen2でもパターンネームテーブルは生きてるんだな。
今ごろになって気が付いたwこれでスッとしたわ…自己解決。
screen2のパターンネームテーブルは&h1800から値が順に01,02,03,…とデフォでは入っていて、
これによってパターンジェネレータテーブルの定義内容が順に表示されるようになっているみたいだな。
(これでグラフィック画面らしい挙動ができるわけだ)
で、多色刷りだと、screen2でもscreen1同様このテーブルをprint文などで書き換えると。
(今までscreen2のパターンネームテーブルは無効だと思い込んでいたから、この1点が謎だった)
じゃあ多色刷りって、VDP側はただのscreen2だな。
別にどうってことない話じゃないかw(←オイ
837デフォルトの名無しさん
2014/10/01(水) 09:01:42.86ID:1BRcjDE3 screen2はぶっちゃけ画面全部を違うパターンの文字にしたものだからね
多食刷りのミソは、本来テキストを扱うscreen1用のbasicコマンドが
(内部が)screen2でもそのまま使えたことだろうな
多食刷りのミソは、本来テキストを扱うscreen1用のbasicコマンドが
(内部が)screen2でもそのまま使えたことだろうな
838デフォルトの名無しさん
2014/10/08(水) 10:54:52.16ID:2a6Sl7jH なつかしいFANダムに4本載ったワシ
839デフォルトの名無しさん
2014/10/09(木) 13:56:29.65ID:MpVmhvXd 何の作品か言うてみい。打ち込んでやるわボケ。
840デフォルトの名無しさん
2014/10/23(木) 03:08:20.65ID:khbr0nbg MSX1で縦スクロールする。スペースで終了
100 SCREEN2:COLOR15,4,4:CLEAR1000:KEYOFF:SCREEN1:DEFINTA-Z:ONSTRIGGOSUB200:STRIG(0)ON
110 P$=" MSX SCROLL "
120 PM=LEN(P$)*8:DIMP$(PM):C!=PEEK(4)+PEEK(5)*256:FORA=0TOLEN(P$)-1:I=ASC(MID$(P$,A+1,1)):FORB=0TO7:P$(A*8+7-B)=RIGHT$("00000000"+BIN$(PEEK(I*8+B+C!)),8):NEXTB,A
130 FORA=0TOPM-2:I!=VARPTR(P$(A)):I1!=PEEK(I!+1)+PEEK(I!+2)*256:I!=VARPTR(P$(A+1)):I2!=PEEK(I!+1)+PEEK(I!+2)*256:FORB=0TO7:POKEI1!+B,PEEK(I1!+B)-(PEEK(I1!+B)=49)-(PEEK(I2!+B)=49):NEXTB,A
140 FORA=0TO15:VPOKE384+A,0:VPOKE400+A,255:VPOKE2432+A,0:VPOKE2448+A,255:NEXT:FORA=5120TO5887:VPOKEA,0:NEXT
150 ONINTERVAL=4GOSUB300:INTERVALON
160 GOTO160
200 STRIG(0)OFF:INTERVALOFF:SCREEN0:FORA=-1TO0:A=INKEY$<>"":NEXT:END
300 INTERVALOFF:B=PCAND7:ONBGOTO330,330,330,320,330,330,330
310 GOSUB350:D=1-D:GOSUB360:GOTO340
320 GOSUB350
330 A=391+B+2048*(1-D):VPOKEA,255:VPOKEA+8,0:VPOKEA+16,255
340 A=384+B+2048*D:VPOKEA,0:VPOKEA+8,0:VPOKEA+16,255:VPOKEA+24,255:PC=(PC+1)MOD(PM*8):INTERVALON:RETURN
350 PRINTCHR$(27);"Y! ";CHR$(27);"L";P$(PC/8):RETURN
360 VDP(1)=VDP(1)AND191:VDP(2)=6-D:VDP(4)=1-D:VDP(1)=VDP(1)OR64:POKE&HF923,20+D*4:RETURN
100 SCREEN2:COLOR15,4,4:CLEAR1000:KEYOFF:SCREEN1:DEFINTA-Z:ONSTRIGGOSUB200:STRIG(0)ON
110 P$=" MSX SCROLL "
120 PM=LEN(P$)*8:DIMP$(PM):C!=PEEK(4)+PEEK(5)*256:FORA=0TOLEN(P$)-1:I=ASC(MID$(P$,A+1,1)):FORB=0TO7:P$(A*8+7-B)=RIGHT$("00000000"+BIN$(PEEK(I*8+B+C!)),8):NEXTB,A
130 FORA=0TOPM-2:I!=VARPTR(P$(A)):I1!=PEEK(I!+1)+PEEK(I!+2)*256:I!=VARPTR(P$(A+1)):I2!=PEEK(I!+1)+PEEK(I!+2)*256:FORB=0TO7:POKEI1!+B,PEEK(I1!+B)-(PEEK(I1!+B)=49)-(PEEK(I2!+B)=49):NEXTB,A
140 FORA=0TO15:VPOKE384+A,0:VPOKE400+A,255:VPOKE2432+A,0:VPOKE2448+A,255:NEXT:FORA=5120TO5887:VPOKEA,0:NEXT
150 ONINTERVAL=4GOSUB300:INTERVALON
160 GOTO160
200 STRIG(0)OFF:INTERVALOFF:SCREEN0:FORA=-1TO0:A=INKEY$<>"":NEXT:END
300 INTERVALOFF:B=PCAND7:ONBGOTO330,330,330,320,330,330,330
310 GOSUB350:D=1-D:GOSUB360:GOTO340
320 GOSUB350
330 A=391+B+2048*(1-D):VPOKEA,255:VPOKEA+8,0:VPOKEA+16,255
340 A=384+B+2048*D:VPOKEA,0:VPOKEA+8,0:VPOKEA+16,255:VPOKEA+24,255:PC=(PC+1)MOD(PM*8):INTERVALON:RETURN
350 PRINTCHR$(27);"Y! ";CHR$(27);"L";P$(PC/8):RETURN
360 VDP(1)=VDP(1)AND191:VDP(2)=6-D:VDP(4)=1-D:VDP(1)=VDP(1)OR64:POKE&HF923,20+D*4:RETURN
841デフォルトの名無しさん
2014/10/23(木) 06:59:36.83ID:QsQhyUlJ テープに録音するときってどんな音に聞こえた?
ピー
ガラガラガラ
ピロピロピロ
ピー
ガラガラガラ
ピロピロピロ
842デフォルトの名無しさん
2014/10/23(木) 09:03:15.77ID:sksS7kTY ピー−ガッ! ←最初に必ずこの工程があるでしょ
ピーーガゴギゴギゴ…
ピーーガゴギゴギゴ…
843デフォルトの名無しさん
2014/10/23(木) 09:29:44.09ID:GVukQ4G4 緊急地震速報の音が当時のやつに一番近いかな
844デフォルトの名無しさん
2014/10/23(木) 09:31:17.65ID:GVukQ4G4 ああ間違えた
大津波警報の方です
すみません
大津波警報の方です
すみません
845デフォルトの名無しさん
2014/10/23(木) 09:33:03.26ID:GVukQ4G4 あれ?
ぐぐって聴いてみたら最近JALERTのは違うんだね
ぐぐって聴いてみたら最近JALERTのは違うんだね
846デフォルトの名無しさん
2014/10/23(木) 09:39:04.77ID:xi8wnWKn847デフォルトの名無しさん
2014/10/23(木) 09:40:34.27ID:GVukQ4G4848デフォルトの名無しさん
2014/10/23(木) 10:53:09.83ID:GVukQ4G4849デフォルトの名無しさん
2014/10/23(木) 11:28:00.27ID:ISc0F2Qf850デフォルトの名無しさん
2014/11/15(土) 10:36:19.60ID:gWegtIR0 REM文を利用するプログラムを作ってみた。
内容は>>35。
1 'ッツ`メピョマャヘマモッ」ェマ゚ャユソ`」リ。モカト`ィセ」モソホサワスヤショ`シユァ`ャラャ`「ァノワモク。ィモクョィモク。モカィ`ィー`ク`ーネ`ッツッュオタ`ヲ・メ、カヲャキナ`アー`ッツッュオタ」チ`イ``「シ、ーロタ、ェ`」リテモオク`ィーモア、ー`リ`ア``モオミ`ィイ」ア、イウアソマリ」ャ`ャ゙
2 '`チィコチヌシテ、ムハヲスンケッ゚ナワリ。。ヒヘア。ェマモスタ`チモモヘア「、スヤクザウテタ・゚ハクミ`キシチァュ、ア`。フ。「`」ュキ``チィュ・゙゚ハネミォマレセィ。リテソツ、スヤケクワ゚タネミ、モロ゙ャツウアィウォアソフク。ゥラシヒソフリ`ゥラシヲェ、タヲ`。」゙ーア」リヲィヌュオタ、ヲ「メ、ニヤキリテ
3 'モコィ`、ッニマ」タィヲ`ホユマヘメタ・ンテ」ュネタ`ーンョユマィミヤタロ」リミモコィ`メソ゚゚゚゚ワ`````ミャ````````「タシ``。。ァ`。`ーィ「ヲユトラィ`ノウーヤンイアウヤ`````
10 CLEAR 300,&HD000:DEFINTA-Z:A=&HD800:DEFUSR=A
20 A$="2148FC5E2356EB1100D0010500092323237EB7283DD620E63F878747237ED620E6300F0F0F0F8012137ED620E60F8787878747237ED620E63C0F0F8012137ED620E6030F0F47237E23D620E63F80121318BF010500097EFE3A28B3C300D0C9"
30 FORI=1TOLEN(A$)STEP2:POKEA,VAL("&H"+MID$(A$,I,2)):A=A+1:NEXT:A=USR(0)
blueMSXで動作確認。
blueMSXにはディレクトリをMSXディスクとして読み込む機能があるので、コピペしてファイルに書き込んだ後、[ファイル]-[ディスクドライブA]-[ディレクトリ挿入]でディレクトリを指定してやると、ディスクイメージを作らなくてもファイルが読める。
内容は>>35。
1 'ッツ`メピョマャヘマモッ」ェマ゚ャユソ`」リ。モカト`ィセ」モソホサワスヤショ`シユァ`ャラャ`「ァノワモク。ィモクョィモク。モカィ`ィー`ク`ーネ`ッツッュオタ`ヲ・メ、カヲャキナ`アー`ッツッュオタ」チ`イ``「シ、ーロタ、ェ`」リテモオク`ィーモア、ー`リ`ア``モオミ`ィイ」ア、イウアソマリ」ャ`ャ゙
2 '`チィコチヌシテ、ムハヲスンケッ゚ナワリ。。ヒヘア。ェマモスタ`チモモヘア「、スヤクザウテタ・゚ハクミ`キシチァュ、ア`。フ。「`」ュキ``チィュ・゙゚ハネミォマレセィ。リテソツ、スヤケクワ゚タネミ、モロ゙ャツウアィウォアソフク。ゥラシヒソフリ`ゥラシヲェ、タヲ`。」゙ーア」リヲィヌュオタ、ヲ「メ、ニヤキリテ
3 'モコィ`、ッニマ」タィヲ`ホユマヘメタ・ンテ」ュネタ`ーンョユマィミヤタロ」リミモコィ`メソ゚゚゚゚ワ`````ミャ````````「タシ``。。ァ`。`ーィ「ヲユトラィ`ノウーヤンイアウヤ`````
10 CLEAR 300,&HD000:DEFINTA-Z:A=&HD800:DEFUSR=A
20 A$="2148FC5E2356EB1100D0010500092323237EB7283DD620E63F878747237ED620E6300F0F0F0F8012137ED620E60F8787878747237ED620E63C0F0F8012137ED620E6030F0F47237E23D620E63F80121318BF010500097EFE3A28B3C300D0C9"
30 FORI=1TOLEN(A$)STEP2:POKEA,VAL("&H"+MID$(A$,I,2)):A=A+1:NEXT:A=USR(0)
blueMSXで動作確認。
blueMSXにはディレクトリをMSXディスクとして読み込む機能があるので、コピペしてファイルに書き込んだ後、[ファイル]-[ディスクドライブA]-[ディレクトリ挿入]でディレクトリを指定してやると、ディスクイメージを作らなくてもファイルが読める。
851デフォルトの名無しさん
2014/11/15(土) 10:44:03.15ID:gWegtIR0 補足
コピペの際、各行の終わりにスペースがつく場合は、スペースを消して実行してくれ
コピペの際、各行の終わりにスペースがつく場合は、スペースを消して実行してくれ
852デフォルトの名無しさん
2014/11/18(火) 00:02:20.73ID:zu7jtgft REM文に書かれた文字そのものがプログラムだっていうのは結構やってたな
プログラムすべてを文字化するのは面倒だから、文字だけでデコーダを書いて、
文字にエンコードされたメインプログラムを展開して実行みたいなことが多かった
小さなちょっとしたことなら文字だけでプログラムを書くのも普通にやってたね
そもそも上記のデコーダがそうだし
で、REM文の内容の書かれたアドレスを直接指定してマシン語として実行するわけだけど
GRAPH文字には結構お世話になった気がする
ご存知だろうがGRAPH文字は01hを頭とする2バイト文字なのだ
01hを表現したいときに、たとえば >円 と書くと
文字コードが 3e 01 49 となって
LD A,01h → LD C,C になる、みたいな
文字コードとか覚えてなくてググりながら書いてみたんで間違いがあったりするかもだけど、
とにかく、GRAPH文字の01hっていうのはREMに直接マシン語を書くとき便利だったなあ
というお話
プログラムすべてを文字化するのは面倒だから、文字だけでデコーダを書いて、
文字にエンコードされたメインプログラムを展開して実行みたいなことが多かった
小さなちょっとしたことなら文字だけでプログラムを書くのも普通にやってたね
そもそも上記のデコーダがそうだし
で、REM文の内容の書かれたアドレスを直接指定してマシン語として実行するわけだけど
GRAPH文字には結構お世話になった気がする
ご存知だろうがGRAPH文字は01hを頭とする2バイト文字なのだ
01hを表現したいときに、たとえば >円 と書くと
文字コードが 3e 01 49 となって
LD A,01h → LD C,C になる、みたいな
文字コードとか覚えてなくてググりながら書いてみたんで間違いがあったりするかもだけど、
とにかく、GRAPH文字の01hっていうのはREMに直接マシン語を書くとき便利だったなあ
というお話
853デフォルトの名無しさん
2015/10/13(火) 21:35:13.92ID:tF56vlyv 昔、Panasonic FS-A1FX(MSX2+)持ってたんだけど
POKE文でどこかのアドレスに所定の値を設定すると
CPUのクロック数が上がるって技があったと思うんだけど
・・・いや、今更調べたいというわけでもないんだけど、ちょっと脳裏に浮かんだので書いてみた
POKE文でどこかのアドレスに所定の値を設定すると
CPUのクロック数が上がるって技があったと思うんだけど
・・・いや、今更調べたいというわけでもないんだけど、ちょっと脳裏に浮かんだので書いてみた
854デフォルトの名無しさん
2015/10/14(水) 15:47:26.04ID:NrBXnG0t 昔、ASCII社製の木の板にMSX基板をはっつけた開発機材もらったんだけど、これってオクで売れるかな
仕様はMSX1とMSX2と両方もってる
仕入れ元はガーボロジーなのでアレなのだが
仕様はMSX1とMSX2と両方もってる
仕入れ元はガーボロジーなのでアレなのだが
855デフォルトの名無しさん
2015/10/14(水) 16:02:06.05ID:PR+BbI9O もれは買わんな
856デフォルトの名無しさん
2015/10/16(金) 06:55:09.09ID:ubnomhpt ちなみにいくらで売りたい?
ぼったくり価格でないなら買うかもよ
ぼったくり価格でないなら買うかもよ
857デフォルトの名無しさん
2015/10/16(金) 11:43:35.94ID:ZWbPxBYc イラネ
858デフォルトの名無しさん
2015/10/16(金) 22:21:53.33ID:08ph5kmV 欲しいとは思うけど、買ってもどうせ押し入れの中で腐らすだろうな
859デフォルトの名無しさん
2016/01/23(土) 16:18:18.90ID:SBqTJcjF 保守
860デフォルトの名無しさん
2016/01/23(土) 19:22:11.95ID:l5TKWQpo861デフォルトの名無しさん
2016/02/20(土) 06:24:47.86ID:GAQ/DQUn862デフォルトの名無しさん
2016/02/21(日) 10:33:15.20ID:zmvsu5mb What is her name?
863デフォルトの名無しさん
2016/02/22(月) 11:48:33.93ID:suz1nbmf 山本陽菜 means Hina Ymamamoto
864デフォルトの名無しさん
2016/12/19(月) 22:09:13.65ID:LUv0TAy6 paul gilbert alternate picking
https://www.youtube.com/watch?v=y2CGto_KoRg&t=19m52s
https://www.youtube.com/watch?v=y2CGto_KoRg&t=19m52s
865デフォルトの名無しさん
2017/03/07(火) 19:29:36.58ID:r9Kcpwe1 指長ぇな
866デフォルトの名無しさん
2018/04/04(水) 14:03:45.90ID:nsnO7hcT 1年経っても書き込みゼロ
MSX-BASICの奥義ってこの程度かよw
まぁ安物マシンだったからこんなもんだろうがな
MSX-BASICの奥義ってこの程度かよw
まぁ安物マシンだったからこんなもんだろうがな
867デフォルトの名無しさん
2018/04/08(日) 13:50:06.98ID:vzbFopv/ 10年前にガチで奥義を書いたけど、理解できないような人しか居なかったようで……
868デフォルトの名無しさん
2018/04/11(水) 21:56:09.68ID:2+sM3+jO スレタイが"BASICの奥義"となっていながら、結局その奥義がマシン語に頼ることになってるからなぁ
869デフォルトの名無しさん
2018/05/23(水) 22:52:21.42ID:Au5e7VGg 僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
Z776Y
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
Z776Y
870デフォルトの名無しさん
2018/05/23(水) 23:12:07.40ID:vLiyuJ6c Z776Y
Z776Y
Z776Y
Z776Y
Z776Y
871デフォルトの名無しさん
2018/07/04(水) 22:58:03.37ID:gFgZc5FG VIM
872デフォルトの名無しさん
2018/07/06(金) 12:33:43.11ID:uTPDH9XV Z776Y
Z776Y
Z776Y
Z776Y
Z776Y
873デフォルトの名無しさん
2019/06/19(水) 05:00:08.96ID:tVNS+22r 【出資】松本卓朗 人工知能詐欺【注意】
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/
874デフォルトの名無しさん
2019/09/14(土) 14:03:23.14ID:hhxdRhHk やりたいんだけど今だったらどうすればいいの?
公式エミュとかあるの?
公式エミュとかあるの?
875デフォルトの名無しさん
2020/03/08(日) 13:13:51.50ID:/DRbfiFK BlueMSXを使うのじゃ
OpenMSXの方が細かいけどBIOS-ROMを別に用意しなければならん
Blueだったら必要ない
OpenMSXの方が細かいけどBIOS-ROMを別に用意しなければならん
Blueだったら必要ない
876デフォルトの名無しさん
2020/04/04(土) 00:30:25.19ID:Zq6ktbwf Microsoft xbox SXってのが出るらしいけど名前といい実質MSX4だよね?
877デフォルトの名無しさん
2020/06/14(日) 14:00:39.88ID:pmI3WURN CMD〜だったかな?
自分でBASICの命令を拡張する(作る)ことができた
自分でBASICの命令を拡張する(作る)ことができた
878デフォルトの名無しさん
2020/07/27(月) 23:53:17.35ID:fLON8hVb CMD ASM[RETUEN]とかDISK-BASIC版アセンブラ使ってたな
後にDOS版のASM.COMに移行したけど
後にDOS版のASM.COMに移行したけど
879デフォルトの名無しさん
2020/09/23(水) 07:33:55.01ID:t/wfY7As 糞スレ
880デフォルトの名無しさん
2020/09/23(水) 07:34:12.09ID:t/wfY7As 終わらせちまいたいな
881デフォルトの名無しさん
2020/09/23(水) 07:34:18.93ID:t/wfY7As こんな糞スレ
882デフォルトの名無しさん
2020/09/23(水) 07:34:28.14ID:t/wfY7As 勘弁しちくりませ
883デフォルトの名無しさん
2020/09/23(水) 07:58:56.56ID:y8i6TGSM エール見る
884デフォルトの名無しさん
2020/09/23(水) 16:45:43.26ID:U8R4tFiJ わかりました
885デフォルトの名無しさん
2020/09/24(木) 09:19:16.67ID:r0X6EHjc 情けない
886デフォルトの名無しさん
2020/09/24(木) 09:19:22.31ID:r0X6EHjc 糞スレ
887デフォルトの名無しさん
2020/09/24(木) 09:19:27.80ID:r0X6EHjc 早く終わらせろ
888デフォルトの名無しさん
2020/09/24(木) 09:19:32.20ID:r0X6EHjc マジ
889デフォルトの名無しさん
2020/09/24(木) 09:19:40.08ID:r0X6EHjc 何という
890デフォルトの名無しさん
2020/09/24(木) 09:19:45.11ID:r0X6EHjc 糞スレ
891デフォルトの名無しさん
2020/09/24(木) 09:19:51.88ID:r0X6EHjc 勘弁
892デフォルトの名無しさん
2020/09/24(木) 09:19:58.27ID:r0X6EHjc していた
893デフォルトの名無しさん
2020/09/24(木) 09:20:03.57ID:r0X6EHjc だきたい
894デフォルトの名無しさん
2020/09/24(木) 09:20:08.79ID:r0X6EHjc カマン
895デフォルトの名無しさん
2020/09/24(木) 15:39:18.12ID:gCZKgWY+ 日韓国交断絶
896デフォルトの名無しさん
2020/09/24(木) 15:40:25.20ID:gCZKgWY+ ロート製薬は反日企業
897デフォルトの名無しさん
2020/09/25(金) 14:40:11.34ID:Cg84R9yT 糞スレ
898デフォルトの名無しさん
2020/09/25(金) 14:40:21.80ID:Cg84R9yT とりあえず900にまでは
899デフォルトの名無しさん
2020/09/25(金) 14:40:27.14ID:Cg84R9yT 頑張り
900デフォルトの名無しさん
2020/09/25(金) 14:40:33.28ID:Cg84R9yT マッスル
901デフォルトの名無しさん
2020/09/25(金) 14:40:40.62ID:Cg84R9yT ガッデム
レス数が900を超えています。1000を超えると表示できなくなるよ。
ニュース
- 日中対立、打開策見えず 高市氏答弁1カ月、影響拡大 ★3 [蚤の市★]
- 小林よしのり 日中関係、来年「ますます日本は不利に… 加害者の分際で被害者ぶって、中国が横暴だと毅然と振る舞っても滑稽なだけ」★2 [冬月記者★]
- 【テレビ】家入レオ、勘当同然での上京告白「敷居はもう跨がないでください」 14年の確執語る [湛然★]
- 働いて働いて働いても生活は…円安に歯止めが掛からず生活は苦しくなるばかり…サナエノミクスの限界で「高市不況」がやってくる ★7 [ぐれ★]
- 【FC】『スペランカー』の発売40周年! [湛然★]
- 元グラドル維新議員 夫に「サンドイッチのパン」を依頼→食パン6枚切り買われ怒り…“どちらが悪い?”SNSで議論 ★3 [muffin★]
- 朝食バイキングで褒められるような取り方ってどんなのかわからないよな
- 千晴を考える
- 【高市リスク】レアアース停滞 [115996789]
- 第二次日中戦争、お互い何を守るための戦いなのかわからないまま開戦へ… [469534301]
- 年末に妹がロリコン彼氏連れて挨拶に来るらしいんだが別れさせたい
- 第二次日中戦争ってどうなるんだ? 九州まで奪われて降伏か? [205023192]
