per-line scrolling test
[mdlife] / src / vdp.inc
1         .macro vdp_setreg reg val
2         move.w #(0x8000 + ((\reg) << 8) + (\val)), VDP_CTL_PORT
3         .endm
4
5         .macro vdp_setreg_reg vdpreg valreg
6         and.w #0xff, \valreg
7         or.w #(0x8000 + ((\vdpreg) << 8)), \valreg
8         move.w \valreg, VDP_CTL_PORT
9         .endm
10
11         .macro vdp_setup_addr type addr
12         move.l #((\type) + (((\addr) & 0x3fff) << 16) + (((\addr) >> 14) & 3)), VDP_CTL_PORT
13         .endm
14
15         .macro vdp_setup_addr_reg type addr
16         lsl.l #2, \addr
17         lsr.w #2, \addr
18         swap \addr
19         or.l #(\type), \addr
20         move.l \addr, VDP_CTL_PORT
21         .endm
22
23 | vi:ft=gas68k: