トップページ⇒tech
755コメント212KB

MSX-BASICの奥義を伝授するスレ

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
忘れない内に皆に伝授しときましょう。

・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。
0002デフォルトの名無しさんNGNG
とりあえず多色刷りの前振り

10 SCREEN1:WIDTH32:DEFUSR=&H7E:A=USR(0)
0003デフォルトの名無しさんNGNG
PCG の弄り方忘れた。
0004デフォルトの名無しさんNGNG
POKE(&HFDCC,119)
0005デフォルトの名無しさんNGNG
ドット単位横スクロールはVDP命令を使うんだったよな。
SETADJUSTだと画面位置がバックアップされてしまうから。
でも肝心のVDP(N)のNの値が思い出せない。。。
0006デフォルトの名無しさんNGNG
R#26 VDP(27) 画面の水平スクロール量 (High)
R#27 VDP(28) 画面の水平スクロール量 (Low)

何故かあったＭ・ＦＡＮ９５年６月号より。
でも、もうＶＤＰの弄くりかたも忘れたなあ。。。
0007スプライト定義NGNG
SPRITE$(0)="■♥♥♥♥♥♥■"
0008デフォルトの名無しさんNGNG
A1-WX(WSX) クロック周波数アップ
OUT 64, 8
OUT 65, 1
ちょっと、自信ない・・・
0009デフォルトの名無しさんNGNG
OPEN"GRP"ほにゃららAS#1
0010５NGNG
>>6
サンクス。
しかしこの情報を何に生かしたらよいのやら・・・ｗ
00116NGNG
>しかしこの情報を何に生かしたらよいのやら・・・ｗ
(苦笑
まあ、うちのＭＳＸはとっくの昔にぶっ壊れましたけど、ＴＶに直接出せるし
一応持ち運べるし、A1GTならＭＩＤＩポートついてるし、なんかの時に何か
の役にたつこともないことはないかも（いや、多分ないが（藁
0012仕様書無しさんNGNG
>>10
ＭＳＸエミュは結構いいのがいろいろ出てますぜ。
もっとも、実機もちゃんと持ってますが、いつ壊れるかわからんからな〜。
ひょっとすると、知らないうちに壊れてたりして。
0013仕様書無しさんNGNG
defusr=0:a=usr(0)
0014仕様書無しさんNGNG
>>9
ほにゃらら ＝ FOR OUTPUT ?
0015デフォルトの名無しさんNGNG
家のＭＳＸ(A1ST)君はスペースキーが効きません、助けてアルゴマン！
0016キングコングNGNG
>>9
セミコロンが抜けてると思われ
0017デフォルトの名無しさんNGNG
実家にFDD2ドライブのMSX2+がありまっせ。
0018デフォルトの名無しさんNGNG
>>12
実機をもってても、フロッピーの保管が大変じゃない？
どんなに、厳重にしまっていても、３〜５年で壊れるでしょ。
0019デフォルトの名無しさんNGNG
FS-A1Mk2だった。あのキーボードの押しにくさが忘れられない。
00201ch.tvへ逝けNGNG
>>8
out64,8:out65,0じゃないかな。
ASCATのテクニカルガイドではFS-A1WX/FX/WSXで使えるとある。
あと、BASIC ROMを覗いてDSKI$, DSKI$を発見して使ったはいいが、
ディスク壊してしまったこともあったなあ。
0021デフォルトの名無しさんNGNG
リストを見れなくするのってどうやるんだっけ？

たしか行番号のあたりに直接
最終行番号の値を書いちまう方法があったが
どこの番地にナニを書けばいいか忘れた

実機があればリスト格納先頭番地からダンプするところだけど
0022デフォルトの名無しさんNGNG
MSXのエロゲーは良かったなァ。
あの時代のエロゲーには現代にはない何かがあった・・・
0023デフォルトの名無しさんNGNG
俺は98時代の同人エロゲーに、現代にはない良さを感じる。
00241ch.tvへ逝けNGNG
>>21
TXTTAB(0F676H,2)の値+2と+3のアドレスにそれぞれ&HFFを書けばいいらしいな。
つーか、これも受け売りだけど(w
あと>>20はDSKI$, DSKO$な。DSKI$じゃディスク壊せん。
0025デフォルトの名無しさんNGNG
そういやOPLLデータをmidiに変換するやつ作ったっけ。
Mファンのタイトル音楽を久々に聴く。なつかし。
0026仕様書無しさんNGNG
>>16
セミコロンじゃなく、コロンだと思われ。
0027仕様書無しさんNGNG
X=X+(STICK(6)=1)-(STICK(2)=1)+(X>39)-(X<0)

今なら普通に if で書くけどな。
002827NGNG
うわ〜、大間違いっス。
ホントは、こうね。

' ｼﾞｷ ｲﾄﾞｳ
X=X+(STICK(0)=6)-(STICK(0)=2)+(X>39)-(X<0)

鬱だァァァァ。
0029デフォルトの名無しさんNGNG
>>28
それも間違ってるぞ（ｗ

X=X-(STICK(0)=7)*(X>0)+(STICK(0)=3)*(X<39)
が正解かと。

＞+(X>39)-(X<0)
にしちゃうと、端まで行った時に１ドット跳ね返るからね。
あとスティック関数値も間違いｗ
0030デフォルトの名無しさんNGNG
>>27-29
配列使った方が読みやすいしスピードが少しはあがるんじゃない？
なんでみんなこの方法を使ったんだろ。
0031デフォルトの名無しさんNGNG
>>30
配列つかうと行数とメモリ使用量増えるから
0032デフォルトの名無しさんNGNG
１画面プログラムとか向けの手法だな＞論理式
0033デフォルトの名無しさんNGNG
>>31
なんとなくかっこいいからという理由もあったかも。
0034デフォルトの名無しさんNGNG
行番号０の行を作る
↓
LISTで表示
↓
表示された0行にカーソル移動
↓
RETURNキー押す
↓
もう一度LIST
↓
行番号直後の空白が１つ増える
↓
（゜д゜）ﾊﾞｸﾞｰ
00351NGNG
というワケで（？）、簡単にスカッシュを作ってみました（ｗ
（所要時間４０分）

10 SCREEN1,0,0:WIDTH32:KEYOFF:COLOR1,14,1
20 X=112:BX=112:BY=4:MX=2:MY=2:SC=0
40 FOR J=0 TO 23:PRINT"########## ##########";:NEXT J
60 SPRITE$(0)=""
70 SPRITE$(2)="ﾀﾀ"
80 REM =========ball move=====
90 BX=BX+MX:BY=BY+MY
100 MX=MX*((BX=78)*2+1)*((BX=174)*2+1)
110 PUTSPRITE2,(BX,BY),1
120 REM =======key input========
130 T=STRIG(0)
140 X=X-(T=0)*(X>78)+(T=-1)*(X<166)
150 PUTSPRITE0,(X,160),1
160 REM =======judge=========
170 IF BY=158 AND BX>X-1 AND BX<X+9 THEN MY=-2:SC=SC+1
180 IF BY=170 THEN 220
190 IF BY=2 THEN MY=2
200 GOTO 90
210 REM ===========game over=======
220 PRINT"SCORE=";SC*10:FOR I=0 TO 500:NEXT
230 FOR I=0 TO 1:I=-STRIG(0):NEXT I:GOTO 10


Ruでのみ動作確認してます。
（まぁ、動作確認とるまでもないショボプログラムだがｗ）

ちなみに最後の　までを含めたリストをメモ帳等にコピってSAVEした後、
そのＴＸＴファイルをDISK-manegerでDSKイメージに突っ込んでsaveすれば、
いちいちプログラムを入力しなくてもＯＫなんで楽チンです。
0036デフォルトの名無しさんNGNG
>>35
こんな時間になにやっとるんだ（藁
ｵﾚﾓﾅｰ
00371NGNG
補足

またエミュ上でプログラムをアスキーセーブすれば（save"*****.bas",a)
Win上でプログラムの閲覧、編集等ができます。

手順は、そのプログラムを・・・
・DISK-MANEGERでEXTRACTを選択してデスクトップ等に出す。
・拡張子をTXTに変更
・メモ帳で開く
という手順です。
その際プログラム末尾に”　”が付きますが、
これはアスキーセーブを有効にする為に必要なので削除しないで下さい。
00381NGNG
>>36
ぐは！ソレは突っ込まないで・・・（ｗ
0039デフォルトの名無しさんNGNG
おぉ！！
つー事は２ｃｈで簡単な自作プログラムの公開なんかもできるワケですな！
まぁ、漏れは公開するようなブツは持ち合わせてないんﾀﾞｶﾞﾅ…（藁
皆さんの日の目を見なかった作品のうｐをｷﾎﾞﾝしてよいですか？
0040デフォルトの名無しさんNGNG
ところで>>35のプログラムの４０行は
###と###の間に１２個のスペースが入ると解釈してよいんですね？
そうしないとﾜｹﾜｶﾗﾝ画面になりましたぜ〜。
0041デフォルトの名無しさんNGNG
つーかムズ過ぎ！
ラリー１０回すら続かない…
鬱駄氏脳
0042デフォルトの名無しさんNGNG
ファンダムの１画面ﾓﾉとか勝手に２ｃｈに載せたらｽﾞｲﾏｰかなー？
著作権関係の問題ってやっぱあるよなー。
0043デフォルトの名無しさんNGNG
Disk-Managerってなんじゃらホイ？
0044デフォルトの名無しさんNGNG
>>42
時効。気にすんな。
0045デフォルトの名無しさんNGNG
今ごろMSXPGで著作権を気にする奴はいないだろ
0046デフォルトの名無しさんNGNG
>>43
ココを読むべし。
ttp://www.msxnet.org/gtinter/diskmgrj.htm
0047デフォルトの名無しさんNGNG
>>44>>45
いや、でも著作権云々よりも、作者さんが気分悪くしたりしねーの？
（俺ならむしろ嬉しいけどネ）
0048デフォルトの名無しさんNGNG
age
Syntax error
Ok
■
0049デフォルトの名無しさんNGNG
先生！暴走してます、カーソルが点滅していません
0050デフォルトの名無しさんNGNG
>49
先生！　MSXはカーソル点滅しないと思います！
0051デフォルトの名無しさんNGNG
VDPコマンドとか、懐かしいフレーズだけど、全部忘れちゃったよ。
実家に帰れば、MSXテクニカルハンドブックがまだあるかな。
あのころは、3500円が激高価におもえたよ(リアル厨房だったし)。
いまなら、専門書で3500円ならやすい！とおもうが。
0052デフォルトの名無しさんNGNG
Illegal function call in >>49
0053デフォルトの名無しさんNGNG
MSXは凄いぜ！
なんたって、カーソルが斜めに動ける。
0054デフォルトの名無しさんNGNG
>>53
３つ以上のキーを押しても
マトリクス上不都合なければいくらでも
キーリピートが可能だったのは
優秀な設計の証なのか
優れた手抜きなのか
0055デフォルトの名無しさんNGNG
コスト削減のためとか
0056デフォルトの名無しさんNGNG
M5の方がずーーーっといいのにな
４０桁表示だし
グラフィック画面とテキスト画面は独立しているし
カーソルが点滅しているし
Z80CTCを積んでるし
VDPの使い方がアンポンタンだぞ>>MSX
0057デフォルトの名無しさんNGNG
>>56
アンポンタンぶりが却って良い結果を生んでたと思う。
0058デフォルトの名無しさんNGNG
>>56
MSXにも40桁の表示モード（VDPのTEXT1モード）はあるよ。
あと、MSX２以降なら80桁の表示モード（VDPのTEXT2モード）もある。
※MSXクリエイターズガイドブックで確認
0059デフォルトの名無しさんNGNG
なんかどうにかして 25行表示にすることってできなかったですかね
勘違いかな・・・
0060デフォルトの名無しさんNGNG
まあ、MSXのVDPがクソなのは何を置いても認めよう。
0061デフォルトの名無しさんNGNG
>>60
でもあれってぴゅう太にも使われてるし
安くて安定してて使いやすくて
適当に使う分にはそこそこ速い
妥協するポイントとしてはまあ良かったんじゃないかな？
0062デフォルトの名無しさんNGNG
>>59
POKE &HF3B1,25
0063デフォルトの名無しさんNGNG
>>61
ぴゅう太に使われてるってのは評価する所じゃなかろう(藁
個人的にはスピードに不満があるなぁ、やっぱり。
0064デフォルトの名無しさんNGNG
>>63
あれってさ、VDPに命令投げたらあとはほったらかしでオッケーじゃん
だからCPUも遅かったからそこだけマルチタスクって感じで
よかったんじゃないかなぁ？
と適当なことを言ってみる
0065親切な人NGNG

ヤフーオークションで、凄い人気商品、発見！！！

コピーガードキャンセラー↓
http://page2.auctions.yahoo.co.jp/jp/auction/b18032656

注目のオークションに適用される事、
間違いないですね。

私も買いました。

皆も買いましょう。
0066デフォルトの名無しさんNGNG
>>64
もちろんそういう面で便利な代物なんだけど、あのVDPに
まかせると結構遅くなってしまうんですよ。
0067デフォルトの名無しさんNGNG
Z80のアセンブラ表にない隠し命令ってどこまで発見されてましたっけ？
0068デフォルトの名無しさんNGNG
>>67
隠し命令とは、初耳。
0069デフォルトの名無しさんNGNG
>>68
http://www.geocities.com/SiliconValley/Peaks/3938/z80undoc.htm
全部かどうかは知らない。けど、turboRのR800では「正式」な命令になったはず。
0070デフォルトの名無しさんNGNG
10 'MSX物理的劣化プログラム(MSX,MSX2,MSX2+用)
20 'このプログラムは決して実機で動かさないで下さい。
30 ON STOP GOSUB 60
40 STOP ON
50 MOTOR:GOTO 50
60 RETURN
0071デフォルトの名無しさんNGNG
>>70
ミシンだな。
0072デフォルトの名無しさんNGNG
>>70
ガガガガガガ・・・・
ＡＶフォーラムでは禁じ手でしたね。
0073デフォルトの名無しさんNGNG
そういえばMOTOR使ったお遊びプログラムを店頭展示マシンで実行してたな。
何かキーを押すと始動か時限式かで（ｗ
0074デフォルトの名無しさんNGNG
>>73
こんな感じ？

A$=INPUT$(1):FOR I=0 TO 1:I=0:MOTOR:NEXT

TIME=0:FOR I=0 TO 10000:I=TIME:NEXT:FOR I=0 TO 1:I=0:MOTOR:NEXT
0075名梨産NGNG
10 CLEAR:DIM SX(8),SY(8),TX(9),TY(9)
20 RESUME 30:FOR A=1 TO 8:READ SX(A),SY(A):NEXT
30 RESUME 40:FOR A=1 TO 9:READ TX(A),TY(A):NEXT
40 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
50 DATA -1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1
60 X=X+SX(STICK(0))+TX(VAL(INKEY$))
70 Y=Y+SY(STICK(0))+TY(VAL(INKEY$))

ジョイスティックの番号あってるかな？ちと自信無し。
上が１だったらこれで動く・・・はず。誰か検証して。
0076デフォルトの名無しさんNGNG
奥義

1 'CSAVE "TEST.BAS"
0077デフォルトの名無しさんNGNG
>40 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
>50 DATA -1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1

MSX-FANに載ってたシューティングの自機移動速度が遅かったので
バイナリで上のテーブル見つけ出して書き換えたことがあるな。
0078名梨産NGNG
あの頃ってファンダムの影響で行番号を１行刻み、コロンでひたすらネスト
っていう書き方のプログラムばっかだったな（藁
0079デフォルトの名無しさんNGNG
>>77
「バイナリで」ってどういう意味？
0080デフォルトの名無しさんNGNG
>>79
「左右から雌雄のペンギンで挟み込んで」の意
0081三村NGNG
バイナリーランドかよ！
0082デフォルトの名無しさんNGNG
バシシのほうがｲｲ
008377NGNG
>>79
機械語のゲームだったのだ。
0084デフォルトの名無しさんNGNG
がんばれ、ゲイツ君

むかしから中村さんって気に入らなかったんだけど
よくよんでたらこの人、MSXを馬鹿にしまくってるのな。

頃すぞ！ と思った夕食時でした
0085デフォルトの名無しさんNGNG
中村さんってなんだ？
間違えたよ宇津田詩嚢
0086デフォルトの名無しさんNGNG
>85
まあトノサキって中村のコピーみたいなもんだし
0087デフォルトの名無しさんNGNG
中村さん？
なんのこと？（what's？）
0088BASICERNGNG
>>77
２進数
>>ALL
UBASICでAUTOでプログラムリストを書いてその後そこから出る方法
教えて下さい。
0089デフォルトの名無しさんNGNG
UBASIC？
0090デフォルトの名無しさんNGNG
>>89
二千数百桁までの数値が使えるPC-98やDOS/V用のBASICだよ。
まぁ、このスレとは関係ないけど。


ちなみに、MSX-BASICの浮動小数点型の内部表現は
10進で持ってるんだよね。

だから、他の大多数のマシンでは浮動小数点値を
内部では2進で値を持ってる。だから、
　FOR I= 0.1 TO 1 STEP 0.1:NEXT I
とやると無限ループになるけどMSXではちゃんと10回回って抜ける。

＃無限ループするのは0.1を2進数で表すと循環小数になるので
＃切捨て誤差が発生して10回足してもきっちり１にはならない為。

この辺は直感に反しないし、変な誤差も出ないから良いよね。
0091デフォルトの名無しさんNGNG
昔のPC板ができております。おいでませい。
http://pc.2ch.net/i4004/
0092デフォルトの名無しさんNGNG
ここまで、DEFINTが１度ものってないなんて・・・
0093デフォルトの名無しさんNGNG
DEFINTA -Z です。
0094デフォルトの名無しさんNGNG
DEFSTRってFM音楽館（だっけ？）のプログラムで良く使われてたよね。
$無しの変数に文字列入ってたのにはｶﾅｰﾘﾋﾞｸｰﾘしたよ。
0095もう忘れましたNGNG
@Niftyでは、MSX-BASICで年賀状作るコーナーがあったな。
そろそろ干支が1周して再利用できるようになる、かも。
0096デフォルトの名無しさんNGNG
保全sage
0097デフォルトの名無しさん NGNG
TurboRのMIDI関係の命令が解りません。
何処かに資料は無いでしょうか？
最近、MSXユーザーになったばかりであります。
0098デフォルトの名無しさんNGNG
>>97
こっちの掲示板で聞いた方がいいよん。
http://www.baboo.net/
0099デフォルトの名無しさんNGNG
エミュってキーボードのエミュレーションに不具合があるの？
なんか打ち込めない文字があるんだけど。
0100⊂(ﾟдﾟ⊂NGNG
今だ！１００ｹﾞｯﾄｫｫ
0101デフォルトの名無しさんNGNG
奥義もっと伝授しる！
■ このスレッドは過去ログ倉庫に格納されています