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

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

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

・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。
0367デフォルトの名無しさん2005/07/25(月) 02:31:01
>時々言われる「どうして公開しないんだ」の答えの１／５は人手不足、もう４／５は言ったら誰かのクビが飛ぶような話です。
こんな考えじゃあ予約数が伸びないのも当たり前だよ､湾ちっぷ｡
値段も当初の12000円前後から2マソ近くに跳ね上がってるし｡
0368デフォルトの名無しさん2005/07/25(月) 11:15:39
GIGAMIXかあ・・・活動内容は頑張ってるかもしれんが
一般人を見下しているような態度が気に食わん
たかがMSXごときのお山の大将が偉そうに

まあGIGAMIXに限らず中途半端な実力を持った技術屋もどきは
己を過信して勘違いしがちではあるがね
0369GIGAMIX撲殺委員会2005/07/25(月) 14:39:20
GIGAMIXて、他人のプログラムの寄せ集めじゃん。
0370デフォルトの名無しさん2005/08/13(土) 05:40:54
>>353
現在の予約注文数：2900台
商品化決定まで、あと2100台
予約受付終了まで、あと7日

もうだめぽ
0371デフォルトの名無しさん2005/08/13(土) 17:52:54
アンカーで検索結果を増やそうってな魂胆か？
0372デフォルトの名無しさん2005/08/14(日) 00:41:13
3000くらいまで行けばなんとかなるかもしれへんよ？
0373デフォルトの名無しさん2005/08/14(日) 13:55:36
>>370
残り7000台をポケットマネーで買う羽目になった西さんですね。
１億4000万円用意しておいて下さいよお〜ｗ
0374デフォルトの名無しさん2005/09/26(月) 19:12:23
>現状ではmixi内のＭＳＸユーザーズコミュニティでスロット数に関するアンケートを取っている場所がありまして、画像のように
>面白い結果になっています。
>ttp://mixi.jp/view_enquete.pl?id=1873267
>mixiは「招待されないと入れない」という大問題があるものの、ここなら「投票は一人一回まで」が守られるし、第三者機関が
>管理しているので信頼され易いと思われます。まだ投票数が４０強と少ないのですが、それなりに数がまとまれば説得力を持つ
>でしょう（結果として１スロットに傾くかもしれませんけど）。

そういう閉鎖されたアンケートに対し､取り敢えずここで回答｡
｢予約数が5000に遠く及ばなかったんだから､集計中とかアスキーからは出さないがMSXAから出すよう交渉中とか､女の腐ったのみてぇにぐたぐた言ってねえで即刻発売中止にしろ！！｣
0375デフォルトの名無しさん2005/09/26(月) 21:44:34
mixiって最近流行ってるみたいだけど、どれくらい人いんの？
0376デフォルトの名無しさん2005/09/26(月) 23:17:03
むかＰ板によるとＭＳＸユーザーズコミュニティだけで1100人余だって
0377デフォルトの名無しさん2005/09/27(火) 00:14:18
MSXか、なつかしいなぁ。ロードランナーばっかりやってたなぁ。
0378デフォルトの名無しさん2005/11/05(土) 18:37:57
mixiの他にMSXで盛り上がってそうな場所はあるの？
0379デフォルトの名無しさん2005/11/05(土) 19:33:59
>>378
ttp://www.msx.org/
0380デフォルトの名無しさん2005/11/06(日) 01:41:11
>>378
http://1ch.tv/
0381デフォルトの名無しさん2005/11/06(日) 09:16:02
>>378
　　　　　　　　　　,′　　/／,,-‐"/／ヽ ヽ
　　　　　　　　　　l　　　 |'〆-‐／'　‐-ゞ　l
　　　　　　　 　 　| 　 　 |'　　 _ 　 　 　　l| |
　　　　　　　　　　|　　　 l ,ｒ7〒　　〒=､/ l
　　　　　　　　　　ｌ∧.,∧|',弋ノ‐､　,弋ﾉ､/l
　　　　　　　　　　 l:;､;:::;:lﾍ_　 _.ノ￣､_ _ノ:;l
.　　　　　 　 ||￣￣￣￣￣￣￣￣￣￣￣￣￣￣|
　　　　　.__　||　　　　　　　　　　　　　　　　　 　 　 |
　　　　　ヽヽ||　　　　　トイレ　　　　　　　　　　　　|
　　　　　　t==､　　　　　 　 　　　　 　　 　 　 　 　,=､
　　　　　　l　'=',　　　　行ってくるね　　　　　　　 `=3
　 　 　 　 ヽ'||'　　　　　　　　 　 　 　 　 　 　 　 　 |`′
.　　　　　 　 ||　　　　　　　　　　　　　　　　　 　 　 |
.　　　　　 　 ||　　　　　　　　　　　　　　　　　 　 　 |
. 　　　　　　 ||＿＿＿＿＿＿＿＿＿＿＿＿＿＿|
0382警告2005/12/07(水) 19:54:52
ﾔﾌｵｸMSX 吊上げ屋に注意

http://snow.prohosting.com/retropc/img-box/img20051207170957.jpg
↓
http://snow.prohosting.com/retropc/img-box/img20051207181315.jpg

emiri1ban=linecraft1
0383デフォルトの名無しさん2005/12/07(水) 20:04:00
おお、警告サンクス！
0384デフォルトの名無しさん2005/12/23(金) 00:33:50
どう見てもMSX支持者の落胆です。本当にありがとうございました。
0385デフォルトの名無しさん2006/01/16(月) 23:01:49
ＭＳＸ−ＢＡＳＩＣの詳しい解説してくれてるサイトはないものか・・・
0386デフォルトの名無しさん2006/01/17(火) 06:25:24
ここで聞けよww
0387デフォルトの名無しさん2006/01/17(火) 10:23:23
>>385
何が聞きたいんだ？
0388デフォルトの名無しさん2006/01/17(火) 10:32:47
LD BC,$0501
0389デフォルトの名無しさん2006/01/17(火) 21:50:27
76
0390デフォルトの名無しさん2006/01/18(水) 10:14:06
さっさと 318 が流れてくれるとありがたいんだがなあ
0391デフォルトの名無しさん2006/01/29(日) 01:02:37
今でも、アルゴリズムっていうほどでもないんだけど‥
考え方なんかは、VisualBasicで利用できるものが多いと思う。

Mid$("123456789ABCDEF",A,1) とかで、簡単に1〜16の、10進数の変数Aを
16進数に変換できる。とかね。
0392デフォルトの名無しさん2006/01/29(日) 01:05:08
間違った、0〜15までの10進数だった。
0393デフォルトの名無しさん2006/01/29(日) 13:35:09
つ Hex$
0394デフォルトの名無しさん2006/01/29(日) 14:05:34
何で最近のVBとかにはHEXは会ってもBINはないのかねぇ
0395デフォルトの名無しさん2006/02/11(土) 10:44:02
>>391
独自仕様の62進数（数字10＋英小26＋英大26）とかが
手軽に変換できるってやつじゃのー
20年も前の雑誌とかではよく使われてたのー
0396デフォルトの名無しさん2006/02/11(土) 19:58:13
62進数･･･64進数(BASE64)じゃねーの?
0397デフォルトの名無しさん2006/02/13(月) 19:10:22
>>396が何を言いたいのかさっぱりわからん。
03983952006/02/18(土) 10:13:10

俺もなんとなくしか解らなかったけど、
BASE64って64進数だったのか…って事が解って勉強になった。

（参考）
http://search.yahoo.co.jp/bin/search?p=MIME*BASE64


0399デフォルトの名無しさん2006/02/18(土) 22:15:02
n進数のnのことを基数って言うでしょ
それはbaseの訳なのよ
0400デフォルトの名無しさん2006/02/18(土) 22:16:22
>>397
62進数じゃ使いにくいから64進数じゃないの?ってことでしょ
0401デフォルトの名無しさん2006/02/25(土) 22:23:56
>>382
新着スレ
【M　S　X】maebashi301=sanibu1818【吊上注意】
http://pc7.2ch.net/test/read.cgi/yahoo/1140692617/l50
0402デフォルトの名無しさん2006/04/02(日) 01:12:33
漢字BASICで、テキスト表示とLINE文とが同時に混在させられるって
あったような
0403デフォルトの名無しさん2006/04/10(月) 23:16:18
87 ：名無しさん（新規） ：2006/04/09(日) 14:38:45 ID:R8bwXkp00
ヴァーラ＝エンジョゲ！？

【永遠に】 MSXスレ Part15 【集計作業中】
http://bubble4.2ch.net/test/read.cgi/i4004/1132584409/l50

88 ：名無しさん（新規） ：2006/04/10(月) 15:49:14 ID:qeIF0Rhr0
正義は武器に似たものである。武器は金を出しさえすれば、敵にも味方にも買われるであろう。
正義も理屈さえつけさえすれば、敵にも味方にも買われるものである。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　−　芥川龍之介　−


89 ：名無しさん（新規） ：2006/04/10(月) 22:09:26 ID:+psJvhrV0
ﾊｧ？

90 ：名無しさん（新規） ：2006/04/10(月) 23:02:37 ID:OSgWs4AU0
敵だの味方だのって‥‥‥。

どう見てもヴァーラ＝エンジョゲです。
本当にありがとうございました。
0404デフォルトの名無しさん2006/04/11(火) 10:37:54
>>391
つうかそんなの他の言語でも文字変換や文字種判定なんかで普通に使うじゃん
ちなみにmid＄(”0123456789ABCDEF",a-1,1)でないと使えないけどな
0405デフォルトの名無しさん2006/04/26(水) 20:47:24
>>404
人の訂正をするときに間違えると、恥ずかしさ倍増だよねｗ
0406デフォルトの名無しさん2006/05/27(土) 04:33:48
Mファンについて語れる奴は、明日の夜10時にここへ

http://bubble4.2ch.net/test/read.cgi/i4004/1143312133/1-100
0407デフォルトの名無しさん2006/06/12(月) 13:39:41
on A gosub(goto) 200,300,400,500,600
みたいな制御構文大好きだったな
0408デフォルトの名無しさん2006/06/13(火) 22:49:27
後追い者(リアルタイムに触ってない)からの質問ですが
MSX-BASIC＋マシン語プログラムの場合、どんな処理を
マシン語に任せてたんですか？
0409デフォルトの名無しさん2006/06/13(火) 23:25:00
>>408
ループが大量に回ったり、連続するアドレスを読み書きするケースが多かった。

もちろん全てマシン語なんていうのも結構あったぞ。
0410デフォルトの名無しさん2006/06/14(水) 23:05:26
>>409
なるほどー。素早いレスありがとうございました。
0411デフォルトの名無しさん2006/06/17(土) 00:36:09
>>408
ループが回る系の処理で、スプライトに対して場所&移動データを用意して一斉に動かすルーチンと
スプライトの当たり判定とかだけやらせてるってのもみた事あるな。
0412デフォルトの名無しさん2006/06/17(土) 01:06:54
極まったのでは、水平帰線割り込みでカラーパレットやスプライトパターンテーブルを書き換えて、
スペックよりも色数やパターン数を多く見せるのもあった。
0413デフォルトの名無しさん2006/07/03(月) 04:06:49
0414デフォルトの名無しさん2006/07/20(木) 11:37:34
V&Zエディタの日本語表示のデカさは今でも覚えているぜ
0415デフォルトの名無しさん2006/08/06(日) 00:13:53
>>414
目にやさしいマシンだったな…
0416るぶ2006/09/03(日) 21:30:56
ＭＳＸのＢＡＳＩＣでロードランナーのような壁を表示させるにはどうしたらよいのでしょうか？
ＶＰＯＫＥを使っているみたいだけどよくわかりません
サンプルプログラムがあれば教えてください
0417デフォルトの名無しさん2006/09/04(月) 14:52:36
MSX-BASIC初心者の漏れがエミュレータ使いながら頑張って答えてみる。
VPOKE使うってことはVRAMを直接操作するって事ね。
VRAMのどの番地がどんな役割をもっているかは、多分Google検索でもすれば見つかると思う。

-- SCREEN1(32x24,TEXT)で座標(X,Y)にA(キャラクターコード&H41)を表示するには
VPOKE &H1800 + 32*Y + X, &H41

-- キャラクタコード&H41のキャラクタを再定義するには
VPOKE &H41*8+0, &B11111110
VPOKE &H41*8+1, &B11111110
VPOKE &H41*8+2, &B11111110
VPOKE &H41*8+3, &B11111110
VPOKE &H41*8+4, &B10111111
VPOKE &H41*8+5, &B10111111
VPOKE &H41*8+6, &B10111111
VPOKE &H41*8+7, &B10111111

SCREEN1したあとに上だけやればAが表示されて、
下をやるとAが再定義されたキャラクタに変わるはず。
Aを入力しようとしても再定義されたキャラクタが表示される。
あとはいろいろいじくってみて。

色を変える方法については目下勉強中。
0418デフォルトの名無しさん2006/09/04(月) 18:12:01
つ【多色刷り】
0419デフォルトの名無しさん2006/09/05(火) 02:35:48
多色刷り、最近始めた初心者だから何か新鮮な言葉に感じるぜーーー！
いろいろググりながら試してみたけど、BASICのみでやると準備が激しく遅いね。
あと、ちゃんとした資料が手元にない状態でいじるのは激しくつらい。
テクニカルハンドブックとかPDF化して販売してくれないかなぁ。
0420るぶ2006/09/05(火) 06:30:25
４１６の回答ありがとうございました
入力して確認とれました
0421るぶ2006/09/27(水) 20:37:43
ＭＳＸのＢＡＳＩＣで８キャラスクロールをさせるには
どの命令文を使うのでしょうか？
0422デフォルトの名無しさん2006/09/28(木) 14:56:15
自力
0423デフォルトの名無しさん2006/09/30(土) 18:12:30
>>421
下スクロールなら、PRINT1個かますだけで楽なんだけどな…
0424デフォルトの名無しさん2006/10/09(月) 20:19:31
>>421
左スクロール：
FOR I=&H1ADE TO &H1820 STEP -1:VPOKE I+1,VPEEK(I):NEXT

ベーシックからマシン語のスクロールルーチンを読み出すのが普通と思う。
21,DE,1A,01,9F,02,CD,4A,00,23,CD,4D,00,2B,2B,0B,78,B1,20,F2,C9
0425デフォルトの名無しさん2006/10/09(月) 20:28:24
>>417
スクリーン１の場合、
FOR I=0 TO 255:VPOKE &H1800+I,I:NEXT
で全文字を画面に表示させ、

VPOKE &H2000,&HF1

と実行すると、色の変わるのが分かる。８文字ずつ文字色（Ｆ）＋背景（１）で指定。

多色刷りモードの場合、１文字に８バイトで、文字の横列ごとに指定できる。
また、８行目まで・１６行目まで・２４行目までの３ブロックで別々に指定できる。

初心者は応援するぞ、ガンガレ。
0426デフォルトの名無しさん2006/12/03(日) 23:05:13
このスレ開くとブラウザの行間がおかしくなるんだけど
なんで？
0427デフォルトの名無しさん2006/12/04(月) 00:05:56
>>426
>>318が原因だろ
「シリア語ブラクラ」と呼ばれてる物
0428デフォルトの名無しさん2006/12/04(月) 04:25:15
>>427
ありがとう
とりあえずl50で解決しますた
0429デフォルトの名無しさん2007/01/29(月) 20:24:45
保守
0430デフォルトの名無しさん2007/02/08(木) 01:45:09
保守
0431デフォルトの名無しさん2007/02/12(月) 19:09:28
既出ならｽﾏｿ
MSXのBIOSはUNIXマシンで開発され
ソースコードは８進数で記述されていたことをご存知でしたか？
0432デフォルトの名無しさん2007/02/12(月) 23:54:17
1チップMSX2が出たってのに相変わらず盛り下がってるな。
結局、割れ物のゲーム動かすだけで満足しちゃってるんだろうか。
0433デフォルトの名無しさん2007/02/18(日) 11:47:39
保守
0434デフォルトの名無しさん2007/02/24(土) 14:18:48
定期点検
0435デフォルトの名無しさん2007/02/25(日) 00:02:00
すっかり忘れてた。
FPGAキットとして欲しかったけど、もう熱冷めた。
0436デフォルトの名無しさん2007/02/25(日) 00:27:08
9800円のターボRに期待
0437デフォルトの名無しさん2007/03/26(月) 14:58:27
気が向いたんで1ChipMSXを買ってみたMSX初心者なんだが
グラフィック画面に文字を出力したいんだ。
で、書いてみたのが↓のプログラム。

10 screen2:cls:open"grp:"foroutputas#1
20 print#1,"Hello, MSX World"
30 i$=inkey$:ifi$=""then30

実行すると確かに文字は表示される事はされるんだが、実行する度に
表示位置が8ドットずつ下にずれていくんだ。なんでだろう？
printの時はlocateで出力位置指定できるけど、print#の時はどうしたらいいの？
0438デフォルトの名無しさん2007/03/26(月) 21:12:47
>>437
確かグラフィック命令で使われる現在位置が流用されてて、
PSET とかで背景色で点を打って位置指定してたような気がする。
0439デフォルトの名無しさん2007/03/26(月) 22:32:50
15 PRESET (x,y),c
0440デフォルトの名無しさん2007/03/27(火) 11:18:28
お、ほぼ期待した通りの動作をした。
ありがとう。
0441デフォルトの名無しさん2007/03/27(火) 14:15:59
ロードランナー
0442デフォルトの名無しさん2007/03/29(木) 12:10:27
_fmpac
エミュには大抵FMPAC.ROM付いてるから（公式は知らない）できるはず・・
0443デフォルトの名無しさん2007/03/31(土) 17:31:38
そういやMSX FANにFinal Fantasy の戦闘時BGMをMSX-MUSICで再現した投稿はすげーと思った。
0444デフォルトの名無しさん2007/03/31(土) 18:50:05
>>443
いわゆる耳コピができる人間なら容易いことだとは思うけどな。
確か音源も同じPSGでしょ？
0445デフォルトの名無しさん2007/03/31(土) 19:27:51
>>444
>確か音源も同じPSGでしょ？

空気嫁。FMPAC≒MSX-MUSIC
0446デフォルトの名無しさん2007/03/31(土) 21:19:40
同じピコピコだけどね
0447デフォルトの名無しさん2007/04/01(日) 16:11:51
ぜんぜん違う。
エミュしか知らねーんだろ。
0448デフォルトの名無しさん2007/04/01(日) 20:07:34
というか、なんで内蔵音源だけで再現できなかったんだろう？
どこにmsx-music使うの？ユーザ音色1色しか同時に使えないアホ音源。
0449デフォルトの名無しさん2007/04/01(日) 21:57:54
誘導されてきた者です。

実は、中学生の頃から疑問に思っていて、いまだに解けない問題があります。
それは、on sprite gosub命令で、どのスプライトとどのスプライトが衝突したのかを
サブルーチン内で判定する方法はないのでしょうか？ということです。

これができないことにはシューティングゲームが作れません。
だって自機と自機の玉と敵機と敵機の玉と何が何に衝突しても同じ処理になるからです。
0450デフォルトの名無しさん2007/04/02(月) 00:24:02
どの種類のスプライトを移動したかを記憶しておく変数を用意して
ON SPRITE GOSUBで飛んだ先で、ON 変数 GOSUBで分岐。
分岐先で衝突しうるスプライトの座標を比較する。
とかじゃダメなの？
0451デフォルトの名無しさん2007/04/02(月) 00:32:23
>>449
on sprite gosubで飛ぶサブルーチン側で、
当たったら処理しなきゃいけないスプライトを必死に探す。
449の例で言うなら自機と敵&敵の弾、自機の弾と敵について座標を比べまくって探すんだ。
それ以外が当たってるんだったら無視。

スピードが遅くなる?
そこは各自で工夫。
450の様に、動かしたスプライトについてだけ調べてみるとかも良い。
この判定処理を機械語ルーチン化するのは非常に有効な方法だ。
0452デフォルトの名無しさん2007/04/02(月) 00:40:36
>>450-451
やはり用意された方法というのはなく、座標を探すということになるのですね。
参考になりました。本当にありがとうございました。
0453デフォルトの名無しさん2007/04/03(火) 15:31:31
>>449

基本的に on sprite gosub は、処理ムラや処理が重くなる原因なので
使わない方がよい。
以下のようにすれば、使わなくても判定できる。

5 ' ｽﾌﾟﾗｲﾄ しょうとつはんていｻﾝﾌﾟﾙ
10 X=100:Y=100'じぶん
20 TX(0)=50:TY(0)=70'てき0
30 TX(1)=105:TY(1)=92'てき1
100 '
110 FOR I=0 TO 1
120 IF ABS(X-TX(I))<16 AND ABS(Y-TY(I))<16 THEN PRINT"てき";I;"とせっしょくしました"
130 NEXT
140 END

>>451のように、機械語にするのは有効。
ＭＳＸでは機械語をサブルーチンのように呼び出せるので、
ベーシックの一部分を少しずつ機械語にしていくと良い。
0454デフォルトの名無しさん2007/04/03(火) 19:11:19
最近始めた初心者がいるのが驚きです
なんのメリットが・・・
0455デフォルトの名無しさん2007/04/03(火) 19:34:36
折角なので、機械語で簡単に組んでみた。Ｆ０２０Ｈに、衝突元のスプライト番号を入れて、機械語を実行すると
Ｆ０００ＨからＦ０１ＦＨに、スプライト番号０〜３１と衝突したかどうかが入る。
（０なら衝突していない、１なら衝突している）　Ｆ０２１Ｈ、Ｆ０２２Ｈも作業領域として使用している。

5 ' ｽﾌﾟﾗｲﾄ ｼｮｳﾄﾂﾊﾝﾃｲｻﾝﾌﾟﾙ
6 'F000~F01F ﾆ ｽﾌﾟﾗｲﾄｶﾞ ｼｮｳﾄﾂｼﾃｲﾙｶﾄﾞｳｶｶﾞ ﾊｲﾙ(1:ｼｮｳﾄﾂ ｼﾃｲﾙ)
7 '
8 DEFINT A-Z:CLEAR 3000,&HCFFF:SCREEN 1,2,0:KEY OFF:WIDTH 32:SPRITE$(0)=STRING$(32,255)
9 GOSUB 1000
10 X=100:Y=100'ｼﾞﾌﾞﾝ
20 TX(0)=50:TY(0)=70'ﾃｷ1
30 TX(1)=105:TY(1)=92'ﾃｷ2
40 PUTSPRITE 0,(X,Y),15,0
50 FOR I=0 TO 1
60 PUTSPRITE I+1,(TX(I),TY(I)),8,0
70 NEXT
80 POKE &HF020,0:A=USR(0):'F020ﾆ ﾊﾝﾃｲﾓﾄ ﾉ ｽﾌﾟﾗｲﾄﾊﾞﾝｺﾞｳ ｦ ｲﾚﾙ
90 FOR I=0 TO 31:VPOKE 6144+32*10+I,PEEK(&HF000+I)+48:NEXT:END
1000 '
1010 FOR I=0 TO &H5E
1020 READ A$
1030 POKE &HD000+I,VAL("&H"+A$)
1040 NEXT
1050 DEFUSR=&HD000
1060 RETURN
1070 '
1080 DATA 3a,20,f0,87,87,26,1b,6f, cd,4a,00,32,21,f0,23,cd
1090 DATA 4a,00,32,22,f0,06,00,78, 87,87,26,1b,6f,cd,4a,00
1100 DATA 4f,3a,21,f0,b9,28,0e,30, 05,57,79,92,18,01,91,fe
1110 DATA 10,38,02,18,17,23,cd,4a, 00,4f,3a,22,f0,b9,28,10
1120 DATA 30,05,57,79,92,18,01,91, fe,10,38,04,1e,00,18,02,1e
1130 DATA 01,78,26,f0,6f,7b,77,04, 78,fe,20,20,b9,c9
0456デフォルトの名無しさん2007/04/04(水) 12:15:17
DEFINTとかPUTSPRITEとか…
懐かしくもせつない響きのステートメント
04574492007/04/04(水) 14:18:36
>>453
>>455
本当にすばらしいです。
目からうろこです。
今後の参考にしたいと思います。
本当にありがとうございました。
0458デフォルトの名無しさん2007/04/04(水) 15:48:00
プログラムの入門用にいいのでは。
命令数が少なく覚えやすいし、インタプリタでエラーも分かりやすい。
機械語を覚えるにしても、さほど苦労しない。
枯れた技術だけど、資料はネットでも書籍でも手に入る。

エミュレータ（公式エミュが望ましいが）を使えば、世界も広がるし。
0459デフォルトの名無しさん2007/04/09(月) 19:34:51
X=X-(S=7)*(X>0)+(S=3)*(X<100)
Y=Y-(S=1)*(Y>0)+(S=5)*(Y<100)

スプライトの移動で、こういう書き方があったと思うのですが、
このままでは1ドット単位で移動することになるわけですが、
任意のドット単位で動かすにはどうすればいいんでしたっけ？

あと、斜め移動とかもどうしてたのか分からなくなってしましました。
0460デフォルトの名無しさん2007/04/09(月) 22:39:16
S=STICK(0)+STICK(1)

任意のドット数で動かす（この場合、２ドットずつ）

X=X-2*(S=7)*(X>0)+2*(S=3)*(X<100)
Y=Y-2*(S=1)*(Y>0)+2*(S=5)*(Y<100)

斜め移動

X=X-(S=2)-(S=3)-(S=4)+(S=6)+(S=7)+(S=8)
Y=Y-(S=4)-(S=5)-(S=6)+(S=8)+(S=1)+(S=2)

簡単に書けば、こうだな。カッコの中の条件が揃えば−１になるから、
そこから考えれば。
0461デフォルトの名無しさん2007/04/09(月) 23:20:51
ベーマガとかでは、この書き方が推奨されていたけど
漏れ自身は必ずしもこの書き方にこだわる必要もないと思っている。
べーしっ君（ベーシックコンパイラ）でもコンパイルできないし。

10 DEFINT A-Z:SCREEN1,2,0:KEYOFF:WIDTH32
20 SPRITE$(0)=STRING$(32,255)
30 X=100:Y=100
40 GOSUB 1000
100 S=STICK(0)+STICK(1)
110 X=X+MX(S):Y=Y+MY(S)
120 PUTSPRITE 0,(X,Y),15,0
130 GOTO 100
1000 '
1010 DIM MX(8),MY(8)
1020 FOR I=0 TO 8
1030 READ A,B
1040 MX(I)=A:MY(I)=B
1050 NEXT I
1060 RETURN
1070 DATA 0,0, 0,-2, 2,-2, 2,0, 2,2, 0,2, -2,2, -2,0, -2,-2

機械語ライクに考えると、こんな書き方になる。
ON S GOSUB〜よりもスッキリとして良かろう。
0462デフォルトの名無しさん2007/04/10(火) 11:55:59
>>460-461
レスありがとうございます。
これで昔のようにゲームが作れそうです。
0463デフォルトの名無しさん2007/04/14(土) 19:31:15
なるほど、べーしっ君に頼るという方法も在りますね、機械語わからんし。
CALL TURBO ONとか懐かしい‥
0464デフォルトの名無しさん2007/04/15(日) 11:35:47
べーしっ君だとプログラムを組むのに限界がある上に、
作ったソフトを配布するなら相手もべーしっ君を持っていないといけないので、
機会があれば機械語に是非挑戦してもらいたいものだけど。
Ｚ８０はシンプルなので、考え方は難しくない。
ＰＣＧ定義など時間のかかる処理を一部機械語に任せるだけでも劇的に違う。

10 DEFINT A-Z:SCREEN 1,2,0:KEY OFF:WIDTH 32
20 SPRITE$(0)=STRING$(32,255)
30 PUTSPRITE 0,(100,100),15,0
40 GOSUB 1000
100 A=USR(0):GOTO 100
1000 '
1010 FOR I=0 TO &H75
1020 READ A$
1030 POKE &HD000+I,VAL("&H"+A$)
1040 NEXT
1050 DEFUSR=&HD000
1060 RETURN
1070 DATA 3e,00,cd,d5,00,47,3e,01, c5,cd,d5,00,c1,80,47,21
1080 DATA 64,d0,7d,80,6f,7e,4f,21, 00,1b,cd,4a,00,81,57,79
1090 DATA fe,02,20,07,7a,fe,b0,28, 10,18,0a,79,fe,fe,20,09
1100 DATA 7a,fe,fe,28,04,7a,cd,4d, 00,21,6d,d0,7d,80,6f,7e
1110 DATA 4f,21,01,1b,cd,4a,00,81, 57,79,fe,02,20,07,7a,fe
1120 DATA f2,28,10,18,0a,79,fe,fe, 20,09,7a,fe,fe,28,04,7a
1130 DATA cd,4d,00,c9,00,fe,fe,00, 02,02,02,00,fe,00,00,02
1140 DATA 02,02,00,fe,fe,fe

>>461のプログラムのスティック判断部分・移動部分・画面外に行かないように
判定する部分・スプライト表示部分を機械語化すると、こうなる。
この例では１回１回ベーシックに戻っているが、完全機械語化すると
爆速過ぎて、６０分の１秒ごとに動くようにウエイトを掛けなければいけない。
0465デフォルトの名無しさん2007/04/16(月) 08:42:16
機械語覚えたい。
当時はDATA 3e,00,cd,d5,00,47,3e,01とか書かれてるのを見ると、
神かと思ったものだ。
0466デフォルトの名無しさん2007/04/16(月) 20:52:38
機械語の習得は、入門書なりネットなりで基本をあらかた掴んで、
人が作ったプログラムを逆アセンブルしてみるのが一番かな。
プログラムは人のソースを見るのが一番の教材だわな、昔から。
「この機械語は、こんなことをしている」という情報が
予め分かっているプログラムの方がなお良し。

上のプログラムだと 3e 00 でＡレジスタに０を代入、
cd d5 00 でスティック情報を調べるＢＩＯＳにアクセス…という感じ。
つまり、S=STICK(0) 相当。

プログラムの速度向上なら、ＭＳＸのＣを覚えるという方法もあるけど
漏れはＭＳＸのＣは分からん。Ｃだと「ＢＡＳＩＣの奥義」からも外れちゃうし。

どちらにしても、画面表示の場合はＶＲＡＭ（やＶＤＰ）を直接いじるので、
その辺のハードの資料なり知識も必要になってくる。
とは言っても、資料はネットで出てくるので問題ない。
また、ハードの知識はＢＡＳＩＣのプログラム作成にも有効。

ＭＳＸのプログラム作成は、Ｗｉｎでプログラムを組むのと違って
「おもちゃをいらっている」感があって、純粋に面白いと思う。
■ このスレッドは過去ログ倉庫に格納されています