10 REM SOFT SCROLLING
15 MODE 1:' LOAD"screen1.BIN",&C000
16 for a=1 to 10:LOCATE a,a:PRINT"*":NEXT
17 NB=0
18 FOR Y=10 TO 0 STEP -1 '16 lignes caract.
20 FOR H=7 TO 0 STEP -1: X =(H*2048)+(Y*&50)
22 FOR Z=&C000+X to (&C000+X)+16:POKE (Z),PEEK(Z-2048): NEXT Z
25 NEXT H
30 NEXT Y
50 IF NB<8*16 then goto 18

org &8000
;nolist
;;write direct "scroll.bin"
;run loop1

start:
   LD hl,&FCB0   
loop0
   LD a,&07
   LD BC,2048
loop1
   SBC hl,bc
   PUSH BC
   CALL L_copy
   POP BC
   DEC a
   JR nz,loop1
   LD BC,&C000
   SBC HL,BC
   ret c      ; &C000 test.
   ADD HL,BC
   ; hl=&C4B0-(8x2048)-LDIR OFF[8]
   LD BC,&3FB0-8
   ADD HL,BC
   JR loop0
L_copy:

     LD BC,&800
     ADD hl,bc
   LD d,h   
   LD e,l
     SBC hl,bc
   LD BC,&8
   LDIR

   RET

   ; manual config
   CNF_CRTC_R1      EQU 40
   CNF_CRTC_R6      EQU 25
   CNF_SCREEN_BASE      EQU &C000
   ; auto-config
   CNF_SCREEN_WIDTH   EQU CNF_CRTC_R1*2
   CNF_SCREEN_HEIGHT   EQU CNF_CRTC_R6*8
   ; voodoo
   LET _screen_source = CNF_CRTC_R6 - 1 * CNF_SCREEN_WIDTH + CNF_SCREEN_BASE
   LET _screen_source = &800*6 + _screen_source

   org &4000
scroll
   ld a,CNF_SCREEN_HEIGHT - 1

   ld hl,_screen_source
   ld de,_screen_source + &800

_scroll_loop
   push hl

   ld bc,CNF_SCREEN_WIDTH
   ldir
   ; move up screen-source address by one line
   ld bc,-&800-CNF_SCREEN_WIDTH
   add hl,bc
   bit 6,h
   jr nz,_scroll_skip
     ; re-adjust address when crossing a char-line boundary
     ld bc,&4000 - CNF_SCREEN_WIDTH
     add hl,bc
_scroll_skip
   pop de

   dec a
   jr nz,_scroll_loop
   
   ret