MSX VRAM (2)

100 defint a-z
110 dim g(7)
120 for i=0 to 7:read d$:g(i)=val("&b"+d$):next
130 data 00111100
140 data 01000010
150 data 10100101
160 data 10000001
170 data 10100101
180 data 10011001
190 data 01000010
200 data 00111100
210 color 15,1,14:screen 2
220 for k=0 to 2
230  c=(2+k*3)*&h10+1
240  for j=0 to 255
250   p=(k*256+j)*8
260   for i=0 to 7:vpoke &h2000+p+i,c:next
270   for i=0 to 7:vpoke p+i,g(i):next
280 next j,k
290 if strig(0)=0 then 290
300 p=&h2000+int(rnd(1)*768)*8
310 c=int(rnd(1)*16)*&h10+1
320 for i=0 to 7:vpoke p+i,c:next
330 goto 300

/*
zcc +msx -lndos -create-app smile2.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_color(15, 1, 1);
    set_mode(mode_2);

    // パターンジェネレータ
    for (int i = 0; i < MODE2_MAX; i += 8) {
        vwrite(g, i, 8);
    }

    while (! get_trigger(0)) {
        int c = rand() & 15;
        int addr = (rand() % MODE2_MAX) & ~(7);
        fill(MODE2_ATTR + addr, c << 4, 8);
    }
}