1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-23 08:29:35 +00:00
millfork/examples/a8/dli_example.mfk

27 lines
433 B
Plaintext

const word dlAddr = $3000
const word dliAddr = $3100
const array(byte) dl @ dlAddr = [
BLANK_8,BLANK_8,BLANK_8,
LMS|MODE_2,$00,$40,
MODE_2,MODE_2,MODE_2,MODE_2,
BLANK_8|DLI,
MODE_2,MODE_2,MODE_2,MODE_2,
JVB,@word[dlAddr]
]
volatile word SDLST @ $230
interrupt void dli() @ dliAddr {
gtia_colpf2 = $de
antic_wsync = 1
}
void main() {
SDLST = dl.addr
os_VDSLST = dli.addr
antic_nmien = $c0
while true {}
}