; Peindre le fond en noir (ou autre? mais pose probleme de superposition)...
TITLE_INIT:
	ld	b, 64 
	ld	hl, 8e29h 
	ld	e, 0
	ld	a, 11111111b

ti_loop:
	push	bc
	ld	b, 12

ti_loop1:
	ld	(hl), a
	inc 	hl
	djnz	ti_loop1

	pop	bc
	djnz	ti_loop

	ret

	

; Afficher le titre
TITLE_PRINT:

	; Banderole a gauche
	ld	a, 4
	ld	l, 0
	ld	b, 56
	ld	ix, arrowdown
	call	putSprite

	; logo central
	ld      a, 24
        ld      e, 24
        ld      hl, pv
        call    DRWSPR2
       
        ld      a, 32
        ld      e, 24
        ld      hl, v
        call    DRWSPR2
       
        ld      a, 40
        ld      e, 24
        ld      hl, o
        call    DRWSPR2
        
        ld      a, 48
        ld      e, 24
        ld      hl, l
        call    DRWSPR2

        ld      a, 56
        ld      e, 24
        ld      hl, t
        call    DRWSPR2
         
        ld      a, 64
        ld      e, 24
        ld      hl, s
        call    DRWSPR2

	; Banderole a droite
	ld	a, 84
	ld	l, 0
	ld	b, 56
	ld	ix, arrowdown
	call	putSprite
	
	call	FASTCOPY

	; afficher "press a key"
	set	textInverse, (IY + textFlags)
	set	textEraseBelow, (IY + textFlags)
        ld       a,24
        ld       (pencol),a   ;charge la valeur de la ligne de texte sur l'écran
        ld       a,56
        ld       (penrow),a   ;charge la valeur de la colone de texte.
        ld       hl,press_a_key;charge l'adresse du texte dans hl
        call    _vputs        ;appelle la rom call puts
	res	textInverse, (IY + textFlags)

	
	call	WAITKEY
	
	call	TITLE_SCROLL

	ret

; Effet de scroll sur le titre
TITLE_SCROLL:

	ld	b, 64
ts_loop:
	push	bc
	ld	hl, 37148
	ld	de, 37160
	ld	bc, 768

	lddr

	call	FASTCOPY
	ld	b, 5
aboucle:
	push	bc
	ld	b, 255
bboucle:
	djnz	bboucle
	pop	bc
	djnz	aboucle
	pop	bc
	djnz	ts_loop
	
	ret



press_a_key:
        .db "...press a key...", 0


; Les sprites pour "VOLTS"


pv:
	.db 11101111b
	.db 11100111b
	.db 00000011b
	.db 00000001b
	.db 00000011b
	.db 11100111b
	.db 11101111b
	.db 11111111b

arrowdown:
	.db 11111111b
	.db 11100011b
	.db 11100011b
	.db 10000000b
	.db 11000001b
	.db 11100011b
	.db 11110111b
	.db 11111111b

space:
	.db 00000000b
	.db 00000000b
	.db 00000000b
	.db 00000000b
	.db 00000000b
	.db 00000000b
	.db 00000000b
	.db 00000000b
v:
	.db 11111111b
	.db 00110000b
	.db 10010001b
	.db 11000001b
	.db 11100001b
	.db 11110001b
	.db 11111001b
	.db 11111111b
o:
	.db 11111111b
	.db 00000000b
	.db 11111111b
	.db 10000001b
	.db 10011101b
	.db 10011101b
	.db 10000001b
	.db 11111111b
	
l:
	.db 11111111b
	.db 00000000b
	.db 11111111b
	.db 10000111b
	.db 10001111b
	.db 10001100b
	.db 10000000b
	.db 11111111b

t:
	.db 11111111b
	.db 00000000b
	.db 11111111b
	.db 00000000b	
	.db 11100011b
	.db 11100011b
	.db 11100011b
	.db 11111111b
	

s:	
	.db 11111111b
	.db 00000000b
	.db 11110001b
	.db 11100011b
	.db 11000001b
	.db 11110011b
	.db 11100111b
	.db 11001111b