	CLR	X		; X à gauche
	MOVE	#_BITMAPHEIGHT/2-1, Y ; Y au milieu
	MOVE	#1, B		; de gauche à droite
LOOP:
	COMP	#_BITMAPWIDTH-3, X ; touche le bord droite ?
	JUMP,LO	RIGHT		; non -> RIGHT
	MOVE	#-1, B		; de droite à gauche
RIGHT:
	COMP	#1, X		; touche le bord gauche ?
	JUMP,HI	LEFT		; non -> LEFT
	MOVE	#1, B		; de gauche à droite
LEFT:
	ADD	B, X		; avance ou recule X
	CALL	NOTBALL		; allume nouvelle balle

	CALL	NOTBALL		; éteint l'ancienne balle
	JUMP	LOOP

; Inverse la balle.
; in	X position horizontale
;	Y position verticale
; out	-
; mod	F
NOTBALL:
	PUSH	X
	PUSH	Y

	DEC	Y
	CALL	_NotPixel
	INC	X
	CALL	_NotPixel
	INC	X
	INC	Y
	CALL	_NotPixel
	INC	Y
	CALL	_NotPixel
	DEC	X
	INC	Y
	CALL	_NotPixel
	DEC	X
	CALL	_NotPixel
	DEC	X
	DEC	Y
	CALL	_NotPixel
	DEC	Y
	CALL	_NotPixel

	POP	Y
	POP	X
	RET
