Цитата:
showscr
ld de,scrtop
ld hl,scrbuf-scraddr ;0x4000 ;screen5
add hl,de
ld b,scrhgt
showscrtileline.
push bc
ld a,8
showscrline.
push de
push hl
ld bc,scrwid
ldir
pop hl
pop de
inc h
inc d
dec a
jp nz,showscrline.
push de
push hl
;ld a,h
;rrca
;rrca
;rrca
;add a,0x18+(scrbuf/256)-(scrbuf/0x800)-1
;ld h,a
ld a,d
rrca
rrca
rrca
add a,0x18+(scraddr/256)-(scraddr/0x800)-1 ;0x58-(0x40/8)-1 ;screen5
ld d,a
add a,+(scrbuf-scraddr)/256
ld h,a
ld bc,scrwid
ldir
pop hl
pop de
pop bc
ld a,e
sub -32
ld e,a
sbc a,a
and -8
add a,d
ld d,a
ld a,l
sub -32
ld l,a
sbc a,a
and -8
add a,h
ld h,a
djnz showscrtileline.
ret
Что-то похожее на 
