|C prototype: void BlackScreenBuffer (void *buffer);
|
|void BlackScreenBuffer (register void *buffer asm("%a0"));
.data
.globl BlackScreenBuffer
.even
BlackScreenBuffer:
	movem.l  %d3-%d7/%a2-%a6,-(%a7)
	lea      12000(%a0),%a0			|6000*2
    	moveq    #-1,%d0
    	moveq    #-1,%d1
    	moveq    #-1,%d2
    	moveq    #-1,%d3
    	moveq    #-1,%d4
    	moveq    #-1,%d5
    	moveq    #-1,%d6
    	movea.l  %d0,%a1
    	movea.l  %d0,%a2
    	movea.l  %d0,%a3
    	movea.l  %d0,%a4
    	movea.l  %d0,%a5
    	movea.l  %d0,%a6
    	move.l	 #39,%d7
   	|30 octets=7 long+1 word = 1 ligne
    	
clear_bcl:
	|300 octets=75 long
	movem.l  %d0-%d6/%a1-%a6,-(%a0)	|13 long=52 octets		
    	movem.l  %d0-%d6/%a1-%a6,-(%a0)
    	movem.l  %d0-%d6/%a1-%a6,-(%a0)
    	movem.l  %d0-%d6/%a1-%a6,-(%a0)
    	movem.l  %d0-%d6/%a1-%a6,-(%a0)	
    	movem.l  %d0-%d6/%a1-%a3,-(%a0)
	dbf      %d7,clear_bcl
	movem.l  (%a7)+,%d3-%d7/%a2-%a6
	rts