nolist
VRAMLINES_C000 equ &2200
org &4000
run $
loop:
ld de,&C000
ld h,8
pixY:
push de
ld l,25
do25:
ld a,r
ld c,80
pixX:
add c:and l:and h
ld (de),a:inc de
dec c
jr nz,pixX
dec l
jr nz,do25
pop de
ld a,d:add h:ld d,a
dec h
jr nz,pixY
jr loop
list
aend:
nolist