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

613 名前：デフォルトの名無しさん mailto:sage [2008/03/06(木) 08:27:57 ] >>611 機械語でやっていることは、 （１）文字フォントを格納しているＲＯＭの番地を調べ、そこから（４８＋表示する数字）×８を 足して、表示する数字のフォント番地を求める （２）７８０８ｈ（ＳＣ５の場合）＋１６×桁（左から。十万→一万→…の順）から８バイトに 上で求めた数字フォントから８バイトを書き込む。つまりスプライトジェネレータの 下半分しか触っていないため、上半分は好きに使える （３）これを６桁分行う（ので、スプライト定義番号０〜２を使う） なので、この考えをベーシックにすればＯＫだな。 500 ' 510 A=PEEK(4)+PEEK(5)*256 520 FOR K=0 TO 5 530 B=(PEEK(&HF000+K)+48)*8+A 540 FOR L=0 TO 7 550 VPOKE &H7808+K*16+L,PEEK(B+L) 560 NEXT 570 NEXT 580 RETURN なのでベーシックならこのようにして、A=USR(0) を GOSUB 500 にすればＯＫ。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef