Paradise Café: Routine at AFD1

AFD1: Limpa o ecra (genero de fade)

Used by the routines at start, L8800, LA1F0, desenha_chao and fade_out_azul.

Input

Output

fadeOut

AFD1

LD A,$08

Limpa o ecra a fazer SHIFT RIGHT LOGICAL aos graficos "na memoria grafica" de $4000 a $57ff

fadeOut_0

AFD3

LD HL,$4000

AFD6

LD C,$18

fadeOut_1

AFD8

LD B,$00

fadeOut_2

AFDA

SRL (HL)

AFDC

INC HL

AFDD

DJNZ fadeOut_2

AFDF

DEC C

AFE0

JR NZ,fadeOut_1

AFE2

LD B,$00

fadeOut_3

AFE4

DEC B

AFE5

JR NZ,fadeOut_3

AFE7

LD C,$00

fadeOut_4

AFE9

DEC C

AFEA

JR NZ,fadeOut_4

AFEC

DEC A

AFED

JR NZ,fadeOut_0

AFEF

LD HL,$5800

Define os atributos a partir do endereço $5800 com o valor definido em var_atributos_fade_out

AFF2

LD A,($C34F)

AFF5

LD C,$18

fadeOut_5

AFF7

LD B,$20

fadeOut_6

AFF9

LD (HL),A

AFFA

INC HL

AFFB

DJNZ fadeOut_6

AFFD

DEC C

AFFE

JR NZ,fadeOut_5

B000

RET