89 lines
1.9 KiB
C
89 lines
1.9 KiB
C
|
|
//#resource "astrocade.inc"
|
|
#include "aclib.h"
|
|
//#link "aclib.s"
|
|
#include "acbios.h"
|
|
//#link "acbios.s"
|
|
//#link "acfast.s"
|
|
//#link "hdr_autostart.s"
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#pragma opt_code_speed
|
|
|
|
/*{pal:"astrocade",layout:"astrocade"}*/
|
|
const byte palette[8] = {
|
|
0x77, 0xBC, 0x35, 0x01,
|
|
0x07, 0xF2, 0x64, 0x01,
|
|
};
|
|
|
|
const byte SPRITE[] = {
|
|
2,8,
|
|
/*{w:8,h:8,bpp:2,brev:1}*/
|
|
0x01,0x40, 0x06,0x90, 0x15,0x54, 0x47,0x51,
|
|
0x45,0xD1, 0x05,0x50, 0x04,0x10, 0x3C,0x3C,
|
|
};
|
|
|
|
extern void fast_sprite_8(const byte* pattern, byte* dst);
|
|
extern void fast_sprite_16(const byte* pattern, byte* dst);
|
|
|
|
#define MAX_SPRITES 8
|
|
|
|
typedef struct {
|
|
byte x; // x coordinate
|
|
byte y; // y coordinate
|
|
byte lastmagic; // last magic byte used
|
|
byte* lastdest; // last destination address
|
|
const byte* pattern; // pattern definition
|
|
byte _unused;
|
|
} Actor;
|
|
|
|
Actor actors[MAX_SPRITES];
|
|
|
|
void erase_actor(Actor* actor) {
|
|
hw_magic = actor->lastmagic;
|
|
fast_sprite_8(actor->pattern, actor->lastdest);
|
|
}
|
|
|
|
void draw_actor(Actor* actor) {
|
|
byte op = M_XOR;
|
|
byte x = actor->x;
|
|
byte y = actor->y;
|
|
actor->lastdest = &vmagic[y][x>>2];// destination address
|
|
actor->lastmagic = M_SHIFT(x) | op; // set magic register
|
|
erase_actor(actor);
|
|
}
|
|
|
|
void main(void) {
|
|
byte i;
|
|
// setup palette
|
|
set_palette(palette);
|
|
// set screen height
|
|
// set horizontal color split (position / 4)
|
|
// set interrupt status
|
|
SYS_SETOUT(89*2, 0, 0);
|
|
// clear screen
|
|
SYS_FILL(0x4000, 89*40, 0);
|
|
// infinite loop
|
|
activate_interrupts();
|
|
// fill array
|
|
for (i=0; i<MAX_SPRITES; i++) {
|
|
actors[i].x = rand() & 0x7f;
|
|
actors[i].y = (i*8) & 0x3f;
|
|
actors[i].pattern = SPRITE;
|
|
draw_actor(&actors[i]);
|
|
}
|
|
while (1) {
|
|
fast_vsync();
|
|
hw_col0r = 0x2;
|
|
for (i=0; i<MAX_SPRITES; i++) {
|
|
Actor* a = &actors[i];
|
|
erase_actor(a);
|
|
draw_actor(a);
|
|
a->x++;
|
|
}
|
|
hw_col0r = 0x1;
|
|
}
|
|
}
|