Paradise Café: Routine at B9AF

B9AF: Imprime Score e Dinheiro

Used by the routines at main, L8800, LBA0D, LBA4E, LBA8F, LBAD0 and LC192.

Input

Output

desenhaScoreDinheiro

B9AF

LD HL,$5C36

$CHARS = $3C00

B9B2

LD A,$00

B9B4

LD (HL),A

B9B5

INC HL

B9B6

LD A,$3C

B9B8

LD (HL),A

B9B9

LD HL,$B9F1

Desenha frame frame_score

B9BC

CALL desenhaFrameHL

B9BF

LD HL,($C346)

Carrega os dois primeiros caracteres do SCORE para HL

B9C2

LD A,H

Imprime o primeiro caracter

B9C3

RST $10

B9C4

LD A,L

Imprime o segundo caracter

B9C5

RST $10

B9C6

LD HL,($C348)

Carrega o terceiro a quarto caracter do SCORE para HL

B9C9

LD A,H

Imprime o terceiro caracter

B9CA

RST $10

B9CB

LD A,L

Imprime o quarto caracter

B9CC

RST $10

B9CD

LD A,$30

Imprime dois espaços

B9CF

RST $10

B9D0

LD A,$30

B9D2

RST $10

B9D3

LD HL,$BA00

Desenha frame frame_dinheiro

B9D6

CALL desenhaFrameHL

B9D9

LD HL,($C33E)

Carrega os dois primeiros caracteres do DINHEIRO para HL

B9DC

LD A,H

Imprime o primeiro caracter

B9DD

RST $10

B9DE

LD A,L

Imprime o segundo caracter

B9DF

RST $10

B9E0

LD HL,($C340)

Carrega o terceiro a quarto caracter do DINHEIRO para HL

B9E3

LD A,H

Imprime o terceiro caracter

B9E4

RST $10

B9E5

LD A,L

Imprime o quarto caracter

B9E6

RST $10

B9E7

LD A,$30

Imprime dois espaços

B9E9

RST $10

B9EA

LD A,$30

B9EC

RST $10

B9ED

LD A,$24

Imprime um cifrao

B9EF

RST $10

B9F0

RET