MOVEQ #0,D0 ; current raster line
  LEA Copperlist,A5
LoopToRenderLines:
  MOVE.L D0,D1
  AND.L #$FF,D1
  ROL.W #8,D1
  ADDQ #1,D1
  MOVE.W D1,(A5)+
  MOVE.W $FF00,(A5)+ ; obey only vertical line
  
  ADDQ #1,D0
  
  CMP #256,D0
  ; this has to happen right before you write copperlist entries to line 256 or above
  BNE _NoPALFix
  ; these come straight from http://vikke.net/index.php?id=copperbars-1
  MOVE.W #$FFDF, (A5)+ ; %1111111111011111, wait for Y=255, X=111*4=444
  MOVE.W #$FFFE, (A5)+ ; %1111111111111110 = blitter-finished-disable =1, all compare bits enabled
NoPALFix:
  CMP #312,D0
  BNE LoopToRenderLines