VINT:
    movem.l d6-d7, -(a7)
    move.w #$977F, (VDPControl)
    move.w #$9600, (VDPControl)
    move.l #$FF0060, d7         ; d7 = source adress
    move.w #$9700, d6
    lsr.l #1, d7
    move.b d7, d6
    move.w d6, (VDPControl)
    sub.w #$0100, d6
    lsr.l #2, d7
    move.b d7, d6
    move.w d6, (VDPControl)
    sub.w #$0100, d6
    lsr.l #2, d7
    move.b d7, d6
    move.w d6, (VDPControl)
    move.w #$1000, d7           ; Now d7 = vram destination
    move.w d7, d6
    lsl.l #2, d6
    lsr.w #2, d6
    or.w #%010000000000000, d6
    swap d6
    or.b #%1000000, d6
    move.l d6, (VDPControl)
    movem.l (a7)+,d6-d7
    rte