sh10 invite overscan

        movep.l d0,0(a1)            ;6 set screen address
        move.b  d7,$ffff8260.w          ;3 left border
        move.w  d7,$ffff8260.w          ;3

    ifeq    hatari
        dcb.w   90-87,$4e71
    else
        dcb.w   90-86,$4e71
    endc
        move.b  7(a5,d1.w),d5           ;4 Fetch shift
        move.b  d5,$ffff8a3d.w          ;3 Set blitter shift
        move.l  d3,$ffff8a24.w          ;4 Blitter source address
        add.l   #48,d3              ;4 Next line
        move.l  d4,$ffff8a32.w          ;4 Destination address
        add.l   #6+8,$ffff8a32.w        ;6 4th bitplane
        move.w  #1,$ffff8a38.w          ;4 Number of rows to copy
        move.b  #%11000000,$ffff8a3c.w      ;4+2+48 Start blitter + blitter stall + blitterpass

        move.l  d4,d0               ;1 store screen address for next scanline

        move.w  d7,$ffff820a.w          ;3 right border
        move.b  d7,$ffff820a.w          ;3

        dcb.w   3,$4e71

        move.l  (a0)+,d4            ;3 fetch screen address for two scanlines down
        move.w  (a4)+,d1            ;2 get dist value
        add.w   d2,d1               ;1 add scroll position
        add.l   (a5,d1.w),d4            ;5 add screen address offset for dist value

        move.w  (a3)+,(a2)          ;3 rasterbars
        move.b  d5,$ffff8265.w          ;3 hscroll shift