mirror of
https://github.com/KarolS/millfork.git
synced 2025-01-11 12:29:46 +00:00
24 lines
342 B
Plaintext
24 lines
342 B
Plaintext
|
const word dlAddr = $3000
|
||
|
|
const word dliAddr = $3100
|
||
|
|
|
||
|
|
const array(byte) dl @ dlAddr = [
|
||
|
|
$70,$70,$70,
|
||
|
|
$42,$00,$40,2,2,2,2,$f0,2,2,2,2,
|
||
|
|
$41,$00,$30
|
||
|
|
]
|
||
|
|
|
||
|
|
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 {}
|
||
|
|
}
|