hschumann2/TempleOS-Source-Code

1 2// Classic Commodore 64 Sprite3 4U8 a[60]={0,127,0,1,255,192,3,255,224,3,231,224,5          7,217,240,7,223,240,7,217,240,3,231,224,6          3,255,224,3,255,224,2,255,160,1,127,64,7          1,62,64,0,156,128,0,156,128,0,73,0,0,73,0,8          0,62,0,0,62,0,0,28,0};9 10U0 Balloon()11{12  I64 i,j,k;13 14  CLI15 16  OutU8(VGAP_IDX,VGAR_MAP_MASK);17  OutU8(VGAP_DATA,0xF);18  MemSetI64(text.vga_alias,0,640*480/64);19 20  OutU8(VGAP_IDX,VGAR_MAP_MASK);21  OutU8(VGAP_DATA,RED+GREEN+8);22  for (k=100;k<150;k++) {23 24    for (i=0;i<20;i++)25      for (j=0;j<3;j++)26        *(text.vga_alias(I64)+0x1000+(i+k)*640/8+j)(U8 *)=a[i*3+j];27 28    Busy(40000);29 30    for (i=0;i<20;i++)31      for (j=0;j<3;j++)32        *(text.vga_alias(I64)+0x1000+(i+k)*640/8+j)(U8 *)=0;33  }34 35  STI36  VGAFlush;37}38 39Balloon;40