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