|C prototype: void ClearScreenBuffer (void *buffer);
|
|void ClearScreenBuffer (register void *buffer asm("%a0"));
.data
.globl ClearScreenBuffer
.even
ClearScreenBuffer:
	movem.l  %d3-%d7/%a2-%a6,-(%a7)
	lea      12000(%a0),%a0			|6000*2
    	moveq    #0,%d0
    	moveq    #0,%d1
    	moveq    #0,%d2
    	moveq    #0,%d3
    	moveq    #0,%d4
    	moveq    #0,%d5
    	moveq    #0,%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