MSX VRAM
パターンジェネレータに登録し、パターンネームを表示する。
- MSX-BASIC
smile1.bas
10 defint a-z
20 dim g(7)
30 for i=0 to 7:read d$:g(i)=val("&b"+d$):next
40 data 00111100
41 data 01000010
42 data 10100101
43 data 10000001
44 data 10100101
45 data 10011001
46 data 01000010
47 data 00111100
50 screen 1
60 for i=0 to 7:vpoke i,g(i):next
70 vpoke &h1800,0
- z88dk
smile1.c
/*
zcc +msx -lndos -create-app smile1.c
bload"cas:",r
*/
#include <msx/gfx.h>
#define BYTE unsigned char
void main()
{
BYTE g[] = {0x3c, 0x42, 0xa5, 0x81, 0xa5, 0x99, 0x42, 0x3c};
set_mode(mode_1);
vwrite(g, 0, 8);
vpoke(0x1800, 0);
}
- MSX-BASICの実行例
Author And Source
この問題について(MSX VRAM), 我々は、より多くの情報をここで見つけました https://qiita.com/Stosstruppe/items/d3696579cbe4fb8bc2b1著者帰属：元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .