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

613 ：デフォルトの名無しさん：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 にすればＯＫ。