87 lines
2.0 KiB
C
87 lines
2.0 KiB
C
|
|
/*
|
|
This demo sets up two DLLs (Display List Lists) of
|
|
16 slots each. By adjusting the address and fine offset
|
|
of the first DL entry, the screen can scroll vertically
|
|
across the two DLLs. It can only wrap from the first 16
|
|
to the second 16 slots.
|
|
|
|
Note that this scheme can be used also for double-buffering.
|
|
By swapping between the two DLLs each frame, one DLL can
|
|
be written while the other is displayed.
|
|
*/
|
|
|
|
#include "atari7800.h"
|
|
#include <string.h>
|
|
|
|
#include "dll.h"
|
|
//#link "dll.c"
|
|
|
|
//#link "chr_font.s"
|
|
//#link "generic8x16.s"
|
|
|
|
char* hello = "\2\4\6\0\220\222\102";
|
|
|
|
/*{pal:"vcs",n:16}*/
|
|
const byte PALETTE[25] = {
|
|
0x02, // background color
|
|
0x8f, 0x4f, 0x1f, // palette 0
|
|
0x34, 0x28, 0x1f, // palette 1
|
|
0x7f, 0x5f, 0x1f, // palette 2
|
|
0x44, 0x38, 0x1f, // palette 3
|
|
0x6f, 0x6f, 0x1f, // palette 4
|
|
0x54, 0x48, 0x1f, // palette 5
|
|
0x0f, 0x7f, 0x1f, // palette 6
|
|
0x14, 0x58, 0x1f, // palette 7
|
|
};
|
|
|
|
// set entire palette including background color
|
|
void set_palette(register const byte* pal) {
|
|
byte i;
|
|
register byte* reg = (byte*) 0x20;
|
|
for (i=0; i<32; i++) {
|
|
if (i==0 || (i&3)) *reg = *pal++;
|
|
reg++;
|
|
}
|
|
}
|
|
|
|
void main() {
|
|
byte i;
|
|
byte y = 0;
|
|
|
|
dll_setup();
|
|
|
|
// activate DMA
|
|
MARIA.CHARBASE = 0x80;
|
|
set_palette(PALETTE);
|
|
MARIA.CTRL = CTRL_DMA_ON | CTRL_DBLBYTE | CTRL_160AB;
|
|
|
|
dll_clear();
|
|
dll_add_string(hello, y+32, 32, DL_WP(8,0));
|
|
for (i=0; i<8; i++) {
|
|
dll_page(0);
|
|
dll_add_sprite(0xa068, i*4, i*33, DL_WP(4,i));
|
|
dll_add_sprite(0xa06c, i*8, i*25, DL_WP(4,i));
|
|
dll_page(1);
|
|
dll_add_sprite(0xa068, i*4, i*32, DL_WP(4,i));
|
|
dll_add_sprite(0xa06c, 128-i*8, i*24, DL_WP(4,i));
|
|
}
|
|
dll_save();
|
|
|
|
while (1) {
|
|
// wait for vsync to end
|
|
while ((MARIA.MSTAT & MSTAT_VBLANK) == 0) ;
|
|
dll_set_scroll(y);
|
|
dll_restore_all();
|
|
// first sprite doesn't have time to draw when y < 40
|
|
dll_page(0);
|
|
dll_add_sprite(0xa06c, y, 128, DL_WP(4,1));
|
|
dll_page(1);
|
|
dll_add_sprite(0xa06c, y, 0, DL_WP(4,1));
|
|
// wait for vsync to start
|
|
while ((MARIA.MSTAT & MSTAT_VBLANK) != 0) ;
|
|
y++;
|
|
}
|
|
}
|
|
|