1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-06-12 06:29:34 +00:00

a8 examples refactor

This commit is contained in:
zbyti 2020-09-15 22:29:18 +02:00
parent bed44cd08e
commit 88e74906b6
2 changed files with 9 additions and 11 deletions

View File

@ -4,7 +4,7 @@ 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,lo(dlAddr),hi(dlAddr)
$41,@word[dlAddr]
]
volatile word SDLST @ $230

View File

@ -3,22 +3,20 @@ const word lms1Addr = $4000
const word lms2Addr = $4060
const word lms3Addr = $40c0
volatile word SDLST @ $230
array(byte) dl @ dlAddr = [
$70,$70,$70,
$52,lo(lms1Addr),hi(lms1Addr),
$52,lo(lms2Addr),hi(lms2Addr),
$52,lo(lms3Addr),hi(lms3Addr),
$52, @word[lms1Addr],
$52, @word[lms2Addr],
$52, @word[lms3Addr],
$41,lo(dlAddr),hi(dlAddr)
]
noinline asm void wait(byte register(a) f) {
clc
adc os_RTCLOK+2
rt_check:
cmp os_RTCLOK+2
bne rt_check
adc os_RTCLOK.b2
.rt_check:
cmp os_RTCLOK.b2
bne .rt_check
rts
}
@ -33,7 +31,7 @@ void main() {
screeni = lms1Addr
wait(1)
SDLST = dl.addr
os_SDLST = dl.addr
while true {
if hscroli == $b {