M.Sasume, pour l'écran noir c'est çà :
move.l #LCD_MEM,a0 ;
move.w #959,d0 ; (3840/4)-1
loop1: ; trace un écran noir
move.l #$FFFFFFFF,(a0)+ ;
dbra.w d0,loop1

Dans l'exemple que je t'ai donné je ne voulais qu'1/16 de l'écran.

M.POLLUX, je n'ai pas essayé une ligne verticale, j'ai fait çà:
move.w #7,-(a7); mode d'affichage de la ligne horizontale, ici double ligne noire
move.w #70,-(a7) ; Ordonnée finale
move.w #160,-(a7) ; Abscisse finale
move.w #70,-(a7) ; Ordonnée initiale
move.w #10,-(a7) ; Abscisse initiale
move.l DrawLine*4(a5),a0
jsr (a0)