Re: A85: Re: Scrolling


[Prev][Next][Index][Thread]

Re: A85: Re: Scrolling




I used this routine by Eric, but I had to modify it a little. Here is the
original:

; scroll.asm
; written by Erik Huizing
; ehuizing@acs.ucalgary.ca
; 
; scroll the entire screen left 1 pixel
;
; code size = ~30 bytes

Scroll: 
 ld b, 64
 ld hl, VIDEO_MEM
rowLoop:
 push bc
 sla (hl)
 inc hl
 ld b, 15
scrollBytes:
 sla (hl)
 jr nc, skip
 dec hl
 set 0, (hl)
 inc hl
skip:
 inc hl
 djnz scrollBytes
 pop bc
djnz rowLoop
ret

Then I had to write a routine to add the new row, but that wasn't to big a
problem :)

-------
NAME : Mikel Blanchard, President of Macross Software
WEB   : http://MacrossSoftware.home.ml.org/
EMAIL : cashonly@aol.com
ICQ     : 3033904 (CashOnly)