@wait       tst.w   vdp_counter.l           ; test the V
        bmi.s   @wait               ; if still at bottom, branch

@0      move.w  vdp_counter.l,d0        ; get H/V
        cmp.b   d6,d0               ; is H past the line already?
        bcs.s   @0              ; if not, branch
        move.w  d2,(a5)             ; disable display
        move.l  d4,(a5)             ; set CRAM write at slot #$01 from line #$00
        move.l  (a0)+,(a6)          ; send 2 colors
    ;   move.l  d5,(a5)             ; set VS-RAM write for Plane A
    ;   move.w  (a0),(a6)           ; send Vscroll value, skips auto-inc (fix for Kega)
        move.w  d3,(a5)             ; enable display
        lea 2(a0),a0            ; increase pointer AFTER enabling display (fix for Kega)
@wait0      move.w  vdp_counter.l,d0        ; get H/V
        tst.b   d0              ; has new line begun?
        bmi.s   @wait0              ; if not yet, branch
        dbf d7,@0               ; repeat for all colors