Re: A86: text scrolling
[Prev][Next][Index][Thread]
Re: A86: text scrolling
In a message dated 5/8/00 9:17:53 PM Eastern Daylight Time, Cybeross@aol.com
writes:
> I want to scroll right to left
call _clrWindow
ld hl,$fc00
ld de,$f000 ;buffer
ld bc,1024
ldir
ld a,$70
out (0),a ;move screen memory
;display strings
ld a,128 ;columns
rotate_screen:
ld hl,$fc00
ld de,$f000
ld c,64
do_rows:
or a
ld b,16
do_row1:
rr (hl)
inc hl
djnz do_row1
ex de,hl
ld b,16
do_row2:
rr (hl)
inc hl
djnz do_row2
ex de,hl
dec c
jr nz,do_rows
dec a
jr nz,rotate_screen
;displayed
Note that this code is untested but it _should_ work...
----
Jonah Cohen
<ComAsYuAre@aol.com>
http://jonah.ticalc.org