nuclear@0: #define FB_ADDR		((unsigned char*)0x4000)
nuclear@0: #define ATTR_ADDR	((unsigned char*)0x5800)
nuclear@0: #define LINESKIP	(256 / 8)
nuclear@0: 
nuclear@0: unsigned char mbrot(int px, int py);
nuclear@0: 
nuclear@0: int main()
nuclear@0: {
nuclear@0: 	unsigned int i, j, k, start;
nuclear@0: 
nuclear@0: 	for(;;) {
nuclear@0: 		start = 0;
nuclear@0: 
nuclear@0: 		for(i=0; i<192; i++) {
nuclear@0: 			unsigned int banky = i & 0x3f;
nuclear@0: 			unsigned int cell = banky / 8;
nuclear@0: 			unsigned int cline = banky % 8;
nuclear@0: 			unsigned int memline = cell + cline * 8;
nuclear@0: 			unsigned char *ptr = FB_ADDR + (start + memline) * LINESKIP;
nuclear@0: 
nuclear@0: 			for(j=0; j<32; j++) {	/* 256 pixels, 8 pixels per byte */
nuclear@0: 				unsigned char pixel = 0;
nuclear@0: 				for(k=0; k<8; k++) {
nuclear@0: 					unsigned char res = mbrot((j << 3) + k, i);
nuclear@0: 					pixel = pixel | (res & 1);
nuclear@0: 					if(k < 7) pixel <<= 1;
nuclear@0: 				}
nuclear@0: 				*ptr++ = pixel;
nuclear@0: 			}
nuclear@0: 
nuclear@0: 			if((i & 0x3f) == 0x3f) {
nuclear@0: 				start += 0x40;
nuclear@0: 			}
nuclear@0: 		}
nuclear@0: 	}
nuclear@0: }
nuclear@0: 
nuclear@0: #define int2fix8_8(i)		((i) << 8)
nuclear@0: #define fix_mul8_8(a, b)	((a >> 4) * (b >> 4))
nuclear@0: #define int2fix5_11(i)		((i) << 11)
nuclear@0: #define fix_mul5_11(a, b)	((a >> 5) * (b >> 6))
nuclear@0: 
nuclear@0: unsigned char mbrot(int px, int py)
nuclear@0: {
nuclear@0: 	unsigned char i;
nuclear@0: 	int cx, cy, zx, zy, x, y, len;
nuclear@0: 
nuclear@0: 	cx = int2fix8_8(px - 192) >> 6;
nuclear@0: 	cy = int2fix8_8(py - 96) >> 6;
nuclear@0: 
nuclear@0: 	cx <<= 3;
nuclear@0: 	cy <<= 3;
nuclear@0: 
nuclear@0: 	zx = cx;
nuclear@0: 	zy = cy;
nuclear@0: 
nuclear@0: 	for(i=0; i<32; i++) {
nuclear@0: 		x = fix_mul5_11(zx, zx) - fix_mul5_11(zy, zy) + cx;
nuclear@0: 		y = fix_mul5_11(zy, zx) + fix_mul5_11(zx, zy) + cy;
nuclear@0: 		len = fix_mul5_11(x, x) + fix_mul5_11(y, y);
nuclear@0: 
nuclear@0: 		if(len > int2fix5_11(4)) return 0;
nuclear@0: 
nuclear@0: 		zx = x;
nuclear@0: 		zy = y;
nuclear@0: 	}
nuclear@0: 
nuclear@0: 	return 1;
nuclear@0: }