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

[1 デフォルトの名無しさん NG NG]

忘れない内に皆に伝授しときましょう。

・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。

[69 デフォルトの名無しさん NG NG]

>>68
http://www.geocities.com/SiliconValley/Peaks/3938/z80undoc.htm
全部かどうかは知らない。けど、turboRのR800では「正式」な命令になったはず。

[70 デフォルトの名無しさん NG NG]

10 'MSX物理的劣化プログラム(MSX,MSX2,MSX2+用)
20 'このプログラムは決して実機で動かさないで下さい。
30 ON STOP GOSUB 60
40 STOP ON
50 MOTOR:GOTO 50
60 RETURN

[71 デフォルトの名無しさん NG NG]

>>70
ミシンだな。

[72 デフォルトの名無しさん NG NG]

>>70
ガガガガガガ・・・・
ＡＶフォーラムでは禁じ手でしたね。

[73 デフォルトの名無しさん NG NG]

そういえばMOTOR使ったお遊びプログラムを店頭展示マシンで実行してたな。
何かキーを押すと始動か時限式かで（ｗ

[74 デフォルトの名無しさん NG NG]

>>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

[75 名梨産 NG NG]

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$))

ジョイスティックの番号あってるかな？ちと自信無し。
上が１だったらこれで動く・・・はず。誰か検証して。

[76 デフォルトの名無しさん NG NG]

奥義

1 'CSAVE "TEST.BAS"

[77 デフォルトの名無しさん NG NG]

>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に載ってたシューティングの自機移動速度が遅かったので
バイナリで上のテーブル見つけ出して書き換えたことがあるな。

[78 名梨産 NG NG]

あの頃ってファンダムの影響で行番号を１行刻み、コロンでひたすらネスト
っていう書き方のプログラムばっかだったな（藁

[79 デフォルトの名無しさん NG NG]

>>77
「バイナリで」ってどういう意味？

[80 デフォルトの名無しさん NG NG]

>>79
「左右から雌雄のペンギンで挟み込んで」の意

[81 三村 NG NG]

バイナリーランドかよ！

[82 デフォルトの名無しさん NG NG]

バシシのほうがｲｲ

[83 77 NG NG]

>>79
機械語のゲームだったのだ。

[84 デフォルトの名無しさん NG NG]

がんばれ、ゲイツ君

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

頃すぞ！ と思った夕食時でした

[85 デフォルトの名無しさん NG NG]

中村さんってなんだ？
間違えたよ宇津田詩嚢

[86 デフォルトの名無しさん NG NG]

>85
まあトノサキって中村のコピーみたいなもんだし

[87 デフォルトの名無しさん NG NG]

中村さん？
なんのこと？（what's？）

[88 BASICER NG NG]

>>77
２進数
>>ALL
UBASICでAUTOでプログラムリストを書いてその後そこから出る方法
教えて下さい。

[89 デフォルトの名無しさん NG NG]

UBASIC？

[90 デフォルトの名無しさん NG NG]

>>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回足してもきっちり１にはならない為。

この辺は直感に反しないし、変な誤差も出ないから良いよね。

[91 デフォルトの名無しさん NG NG]

昔のPC板ができております。おいでませい。
http://pc.2ch.net/i4004/

[92 デフォルトの名無しさん NG NG]

ここまで、DEFINTが１度ものってないなんて・・・

[93 デフォルトの名無しさん NG NG]

DEFINTA -Z です。

[94 デフォルトの名無しさん NG NG]

DEFSTRってFM音楽館（だっけ？）のプログラムで良く使われてたよね。
$無しの変数に文字列入ってたのにはｶﾅｰﾘﾋﾞｸｰﾘしたよ。

[95 もう忘れました NG NG]

@Niftyでは、MSX-BASICで年賀状作るコーナーがあったな。
そろそろ干支が1周して再利用できるようになる、かも。

[96 デフォルトの名無しさん NG NG]

保全sage

[97 デフォルトの名無しさん NG NG]

TurboRのMIDI関係の命令が解りません。
何処かに資料は無いでしょうか？
最近、MSXユーザーになったばかりであります。

[98 デフォルトの名無しさん NG NG]

>>97
こっちの掲示板で聞いた方がいいよん。
http://www.baboo.net/

[99 デフォルトの名無しさん NG NG]

エミュってキーボードのエミュレーションに不具合があるの？
なんか打ち込めない文字があるんだけど。

[100 ⊂(ﾟдﾟ⊂ NG NG]

今だ！１００ｹﾞｯﾄｫｫ

[101 デフォルトの名無しさん NG NG]

奥義もっと伝授しる！

[102 デフォルトの名無しさん NG NG]

POKE&HFBB1,1でCTRL-STOPの禁止。0で解除。
但しこの方法だとCTRL-STOPが押されたときにPSGが初期化される。

ただON STOP GOSUBだとプログラム移動時にスキが出るので
TPOで使い分ける。

[103 デフォルトの名無しさん NG NG]

DOS1ディスクから起動していない場合は call system が出来ないが
poke &hf346,1 を実行すると call system が出来るようになる。
DOS2は無条件で出来るのでする必要が無い。

[104 デフォルトの名無しさん NG NG]

age

[105 デフォルトの名無しさん NG NG]

奥義！ﾊｧﾊｧ

[106 デフォルトの名無しさん NG NG]

行番号は10、20、30ではなく1、2、3と使え。

[107 デフォルトの名無しさん NG NG]

プロポシェの１行プログラム、投稿燃えたよね〜
常連と称されたときは嬉しくてマジ涙出た。

[108 デフォルトの名無しさん NG NG]

作ったプログラムを保存するのって
やっぱりデーターレコーダーですよね♪
(フロッピーなんて野暮な機器は使わない方向で)
で、最近、そのデーターレコーダーは、手に入らないじゃないですか
(普通にラジカセ使うって野暮な話は無しの方向で)
そんな時は、MDを使ってみましょう♪
最初は、非可逆圧縮なので駄目かと思ったんですが
何となくやってみると、さすが1200(2400)ボー
上手く録音レベルを調節すれば、使えるんですね
(自分のがLPx非対応の為、標準でしか試してませんが)
と言う訳で、Rは、ほぼ確実に使えると思うので
チャレンジャーな方は、MP3やLPxモードに挑戦してみてください♪
(普通に(？)データを吸い出すって野暮な話は無しの方向で…)
また、ビデオデッキも試してみたのですが
Hi-Fiだと、ヘッドの回転ノイズが大きい為、上手くいかないようです
もしかしたら、ノーマル音声なら上手くいくかも知れないので
同じく、チャレンジャーな方は挑戦してみてください

って、こんな奥義じゃないのかな…。（＾＾；

[109 デフォルトの名無しさん NG NG]

デーレコ今でも大切に保管してます
しかも、なぜかこいつだけ、箱や発泡スチロールごと残っている。
PHC-DR2。倍速読み込みモード付き。

しかし、本体はすでに捨ててたりするし。

[110 NG NG]

[111 デフォルトの名無しさん NG NG]

はやく免許皆伝ください

[112 デフォルトの名無しさん NG NG]

auto 10

[113 デフォルトの名無しさん NG NG]

TRON

[114 デフォルトの名無しさん NG NG]

KEY OFF:FOR I=1 TO 10:KEY I,"NEW"+CHR$(13):NEXT I

[115 デフォルトの名無しさん NG NG]

10 SCREEN 1:WIDTH 32:CLS
20 FOR I=0 TO 255:PRINT CHR$(I);:NEXT I:PRINT
30 FOR AD=1*8 TO 255*8-1:VPOKE AD-8,VPEEK(AD):NEXT AD
40 LIST
50 END

[116 デフォルトの名無しさん NG NG]

へー、おめでたいな。厨房くん
MSX-BASICだって？なんじゃそりゃ
そんな過去の遺物の話してんのかい。板違いじゃねーの？
昔のパソコン板逝けば？
http://pc.2ch.net/i4004/
おまえら今話題のこれ知らないのかよ
これだよこれ
http://www.sharp.co.jp/corporate/news/011105.html

[117 デフォルトの名無しさん NG NG]

test

[118 デフォルトの名無しさん NG NG]

test

[119 デフォルトの名無しさん NG NG]

（　´,_ゝ｀）

[120 デフォルトの名無しさん NG NG]

>>116
basicは立派なプログラム言語ですが？
つか、やられてるし…（ｗ

[121 デフォルトの名無しさん NG NG]

>>115
0から255を画面に出したらコントロールコードまで吐いちゃうよ！

[122 成毛 真 NG NG]

10 DEFUSR = &H0 : A = USR(0)

[123 デフォルトの名無しさん NG NG]

CALL TURBO ON

[124 デフォルトの名無しさん NG NG]

プログラムを速くするおまじない。
DEFINT A-Z

[125 デフォルトの名無しさん NG NG]

>>122
ホットブートかよ！
>>123
俺、ＭＳＸべーしっ君持ってねーもん！

[126 デフォルトの名無しさん NG NG]

>>125
俺はWAVYなので内蔵でしたのじゃ。

[127 デフォルトの名無しさん NG NG]

関連スレ：
http://pc.2ch.net/test/read.cgi/i4004/1008754675/l50

[128 デフォルトの名無しさん NG NG]

フォントを太字にします。

100 CLEAR 128,&HCF7F
110 '
120 FOR AD=&HCF80 TO &HCFCF
130 READ DT$:POKE AD,VAL("&H"+DT$)
140 NEXT AD
150 '
160 DEFUSR=&HCF80:A=USR(0)
170 '
180 'BSAVE "FONTBOLD.BIN",&HCF80,&HCFCF,&HCF80
190 'BLOAD "FONTBOLD.BIN",R
200 '
1000 DATA F3,DB,A8,F5,DD,21,1F,F9,DD,5E,00,E6,F0,B3,CB,23
1010 DATA CB,23,B3,D3,A8,DD,6E,01,DD,66,02,11,00,D0,01,00
1020 DATA 08,ED,B0,F1,D3,A8,FB,21,00,D0,01,00,08,7E,5F,CB
1030 DATA 3B,B3,77,23,0B,78,B1,20,F4,21,00,D0,DD,36,00,03
1040 DATA DD,75,01,DD,74,02,3A,AF,FC,CD,5F,00,C9,00,00,00

[129 デフォルトの名無しさん NG NG]

10 SCREEN 0:WIDTH 80:CLS
20 FOR AD=0 TO 65535! STEP 16
30 PRINT RIGHT$(("000" + HEX$(AD)), 4);":";
40 FOR OF=0 TO 15
50 PRINT RIGHT$(("0" + HEX$(PEEK(AD+OF))), 2);" ";
60 NEXT OF:PRINT
70 NEXT AD
80 END

[130 デフォルトの名無しさん NG NG]

>128
わざわざマシン語でやることもないじゃん。

って書いてさらに思ったが、「マシン語」っていう言葉の響きそのものが
すでに懐かしく感じた今日この頃。

[131 128 NG NG]

>>130
最近（近年？）「マシン語」って使いませんね。（笑）

MSXのエミュレータを手に入れたので、
昔作ったプログラムを動かしたりして懐かしんでおります。

>>128のプログラムは、
画面モード変えても元のフォントに戻らない様に常駐させてます。

[132 デフォルトの名無しさん NG NG]

なんか古すぎてもう文法とかいまいち覚えてないな。
マシン語の話題だったら少しくらいは覚えてるけど。

[133 128 NG NG]

>>130
>>131の、
＞>>128のプログラムは、
＞画面モード変えても元のフォントに戻らない様に常駐させてます。
は、勘違いをしておりました。（汗

ROMからフォントデータをRAMの0D000H〜0D7FFHにコピーしてボールドにしたあと、
MSXにフォントデータの参照位置を0D000H〜にする様、設定して終了。
プログラム部は常駐してませんです。（;´Д｀）

>>132
私もすっかり忘れてます。
昔買った本を引っ張り出してきて、
「そういえば、こんな命令もあったなあ・・・」って。

[134 デフォルトの名無しさん NG NG]

>>97
もう見てないかな？
手元にtR版のDataPackがあるので、言ってくれれば
スキャンしたものをうpしますよ。

[135 デフォルトの名無しさん NG NG]

[136 デフォルトの名無しさん NG NG]

MSX＠2ch2掲示板
http://www.2ch2.net/bbs/MSX/index2.html

[137 デフォルトの名無しさん NG NG]

懐かしいスレだ･･･
POKEとかSPRITE$とかたった今まですっかり忘れてた言葉だよ。
米チャでも呼んでくるか･･･

[138 デフォルトの名無しさん NG NG]

久しぶりに、こたぐち君が表紙にのってる
「MSXマシン語プログラム入門」がみたいれす。

だれかすきゃん＆うぷよろすぃく。

[139 デフォルトの名無しさん NG NG]

poke &Hfbb0,255

[140 デフォルトの名無しさん NG NG]

>>139
ホットスタート開始。

[141 デフォルトの名無しさん NG NG]

>>139
ctrl+sft+grp+ｶﾅだったっけ。

[142 デフォルトの名無しさん NG NG]

ポーク食いたい。

[143 デフォルトの名無しさん NG NG]

>>142
VPOKE安いよｗ

[144 デフォルトの名無しさん NG NG]

MSXは終わったけど、面白いよ。お金掛からないし。

[145 デフォルトの名無しさん NG NG]

DEFUSR=&H7E:A=USR(0) 'screen2.5

[146 デフォルトの名無しさん NG NG]

米屋のチャチャチャか…俺の頃はカリスマ投稿屋さんだったな…
ＭマガとかＭファンで勉強した奥義も全く忘れた
A1STは現役でPS2の横にあるのだが
あと予備で2+と2が3台あるよ

[147 デフォルトの名無しさん NG NG]

机の下にA1ST（箱入り)あるよ。
インターネット時の足置きとして立派に役立ってる。

[148 デフォルトの名無しさん NG NG]

現役って、あーた・・・・想像つかん

[149 デフォルトの名無しさん NG NG]

KEY 1,INPUT$(15)

[150 デフォルトの名無しさん NG NG]

保守

[151 デフォルトの名無しさん NG NG]

10 FOR I = 0 TO 255:FOR J = 0 TO 15:NEXT J:VDP(24) = I:NEXT I:GOTO 10

[152 _ NG NG]

MSX-BASICでOOやってみたい・・・

[153 デフォルトの名無しさん NG NG]

>>152
MSX-C があるなら、構造体に関数ポインタ突っ込んで、
擬似的なOOが体験できるかもだ。

# フリーソフトでいろいろ言語があったけど、OOのものってあったかなぁ？

[154 デフォルトの名無しさん NG NG]

カラーパレットファイルを、BLOADで設定するとき、
アドレスを指定すんだよね。どこに指定すんだっけ？
BLOAD"1.PAL",&H?????

[155 デフォルトの名無しさん NG NG]

BASICインタープリター「99 BASIC Interpreter」v1.19
“N88-BASIC(86)”と“MSX-BASIC”を足して2で割ったようなBASIC言語

http://www.forest.impress.co.jp/article/2002/08/09/okiniiri.html

[156 デフォルトの名無しさん NG NG]

IF〜THEN より
IF〜GOTO の方が早いんだよね！

[157 デフォルトの名無しさん NG NG]

べーしっくん

[158 デフォルトの名無しさん NG NG]

>>154
ＶＲＡＭにロードするんだろ？

[159 デフォルトの名無しさん NG NG]

店のＭＳＸ２にset password かけますた。

[160 デフォルトの名無しさん NG NG]

http://www.nodus.ne.jp/~ghost/msx/uzix-j.html
MSXの真の後継、UZIXにたくさんの協力者が現れますように。。

[161 デフォルトの名無しさん NG NG]

>>159
GRAPHIC押しながら起動しますた

[162 デフォルトの名無しさん NG NG]

このスレ見て部屋の隅にあるA1GTを起動してみたらFDDが逝っちまったみたいだ。
エミュじゃ我慢できねぇぞ ゴルァ

[163 デフォルトの名無しさん NG NG]

>>162
HDD接続カートリッジ買え

[164 デフォルトの名無しさん NG NG]

>>163
>HDD接続カートリッジ
それって、まだ販売してるんですか？

[165 デフォルトの名無しさん NG NG]

>>164
http://www.hat.hi-ho.ne.jp/tujikawa/ese/megascsi.html
http://www.activemsx.net/saka/ide/

[166 デフォルトの名無しさん NG NG]

どしどしとくれば？

[167 デフォルトの名無しさん NG NG]

掃除したら昔書いたメモが出てきた・・・

スプライトの衝突判定 VDP(8)AND64 が0でなければ衝突
SETADJUSTの代わりに VDP(19)=(x AND 15)*16+(y AND 15)

[168 デフォルトの名無しさん NG NG]

久しぶりに奥義を伝授すれ