Es geht auch ein bischen schneller...
ld hl,1000
ld d,0
ld a,(XaltDurch8)
ld e,a
add hl,de
ld a,(YaltMal3)
ld e,a
add hl,de
Oder alternativ...
xor a,a ;A = 0 (doppelt so schnell wie ld a,0)
ld hl,1000
ld de,(XaltDurch8)
ld d,a ;D = 0 setzen
add hl,de
ld de,(YaltMal3)
ld d,a
add hl,de