
Zoomscroll:
;                       src dest len reg
        disableints
        setvramaddr $C000, VDPControl

        move.l #13*64, d0
@ClrMap:
        move.w #$0000, VDPData
        dbf d0,@ClrMap
        
        
        move.l #64, d0
        move.l #16*64, d1

@ClrMap2:
        move.w d0, VDPData
        addq #1, d0
        dbf d1, @ClrMap2

        Singledmavram TileMask, 32*64, 64*16*32, VDPControl

        setcramaddr 0, VDPCOntrol

        moveq #0, d0
        rept 15

        move.w d0, VDPData
        add.w #$0111, d0
        
        endr

        setvramaddr $F800, VDPControl
        move.w #-104, VDPData
        waitframe
        

        jmp *
        


TILEMASK:
        incbin ./zoomscroll/mask.bin
        even