TempleOSTS_140317.ISO

Demo/Graphics/Balloon.CPP

@@ -0,0 +1,38 @@
+// 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(VGA_SC_INDEX,VGA_MAP_MASK);
+    OutU8(VGA_SC_DATA,0xF);
+    MemSetU64(0xA0000,0,640*480/64);
+
+    OutU8(VGA_SC_INDEX,VGA_MAP_MASK);
+    OutU8(VGA_SC_DATA,RED+GREEN+8);
+    for (k=100;k<150;k++) {
+
+      for (i=0;i<20;i++)
+	for (j=0;j<3;j++)
+	  *(0xA0000+0x1000+(i+k)*640/8+j)(U8 *)=a[i*3+j];
+
+      BusyWait(40000);
+
+      for (i=0;i<20;i++)
+	for (j=0;j<3;j++)
+	  *(0xA0000+0x1000+(i+k)*640/8+j)(U8 *)=0;
+    }
+
+  STI
+  VGAFlush;
+}
+
+Balloon;