39 lines
732 B
HolyC
39 lines
732 B
HolyC
|
// Classic Commodore 64 Sprite
|
||
|
|
|
||
|
|
U8 a[60]={0,127,0,1,255,192,3,255,224,3,231,224,
|
||
|
|
7,217,240,7,223,240,7,217,240,3,231,224,
|
||
|
|
3,255,224,3,255,224,2,255,160,1,127,64,
|
||
|
|
1,62,64,0,156,128,0,156,128,0,73,0,0,73,0,
|
||
|
|
0,62,0,0,62,0,0,28,0};
|
||
|
|
|
||
|
|
U0 Balloon()
|
||
|
|
{
|
||
|
|
I64 i,j,k;
|
||
|
|
|
||
|
|
CLI
|
||
|
|
|
||
|
|
OutU8(VGAP_IDX,VGAR_MAP_MASK);
|
||
|
|
OutU8(VGAP_DATA,0xF);
|
||
|
|
MemSetI64(text.vga_alias,0,640*480/64);
|
||
|
|
|
||
|
|
OutU8(VGAP_IDX,VGAR_MAP_MASK);
|
||
|
|
OutU8(VGAP_DATA,RED+GREEN+8);
|
||
|
|
for (k=100;k<150;k++) {
|
||
|
|
|
||
|
|
for (i=0;i<20;i++)
|
||
|
|
for (j=0;j<3;j++)
|
||
|
|
*(text.vga_alias(I64)+0x1000+(i+k)*640/8+j)(U8 *)=a[i*3+j];
|
||
|
|
|
||
|
|
Busy(40000);
|
||
|
|
|
||
|
|
for (i=0;i<20;i++)
|
||
|
|
for (j=0;j<3;j++)
|
||
|
|
*(text.vga_alias(I64)+0x1000+(i+k)*640/8+j)(U8 *)=0;
|
||
|
|
}
|
||
|
|
|
||
|
|
STI
|
||
|
|
VGAFlush;
|
||
|
|
}
|
||
|
|
|
||
|
|
Balloon;
|