Everyone's A Wally: Routine at B2F1

B2F1: Print a breakdown of who earned what

Used by the routines at B3C3 and B451.

Input
IY	Pointer to character data (BC67 - BC6E)

B2F1

CALL $B8ED

Clear the screen.

B2F4

LD DE,$010A

Set the position.

B2F7

LD HL,$7C1B

Point HL at the earning text. (7C1B)

B2FA

CALL $B8C4

Print it.

B2FD

PUSH IY

Remember the current pointer.

B2FF

LD DE,$0513

B302

LD BC,$0545

B305

LD HL,$B2ED

Point HL at the scratch buffer for earnings. (B2ED)

B308

LD IY,$BC67

Point IY to the first character buffer.

B30C

LD IX,$B2ED

Point HL at the scratch buffer for earnings.

B310

LD (IX+$02),$00

B314

LD (IX+$03),$00

B318

LD A,(IY-$0A)

B31B

LD (IX+$01),A

B31E

ADD A,(IX+$03)

B321

DAA

B322

LD (IX+$03),A

B325

LD A,(IY-$1E)

B328

LD (IX+$00),A

B32B

ADC A,(IX+$02)

B32E

DAA

B32F

LD (IX+$02),A

B332

CALL $B34C

Print the money.

B335

INC D

Move down three rows.

B336

INC D

B337

INC D

B338

INC IY

Move to the next player.

B33A

DJNZ $B318

B33C

POP IY

Restore the original pointer in IY.

B33E

LD D,$15

Print at row 15.

B340

LD HL,$B2EF

Point HL at the final sum earned.

B343

LD E,$11

Print at column 11.

B345

CALL $B34C

Print the money.

B348

Wait for a keypress and return.