Lunar Jetman: Routine at 62480

62480: Hall Of Fame

Used by the routine at Game_Restart.

HallOfFame

62480

LD A,71

A=71.

62482

LD C,8

C=8.

62484

LD HL,22784

HL=22784.

HallOfFame_0

62487

LD B,64

B=64.

HallOfFame_1

62489

LD (HL),A

62490

INC HL

62491

DJNZ HallOfFame_1

62493

DEC A

62494

CP 65

62496

JR NZ,HallOfFame_2

62498

LD A,68

A=68.

HallOfFame_2

62500

DEC C

62501

JR NZ,HallOfFame_0

Handle printing "THE ULTIMATE" messaging.

62503

LD HL,6224

HL=6224 (screen location).

62506

LD DE,62634

DE=String_Ultimate.

62509

CALL PrintStringColour

Call PrintStringColour.

Handle printing "HALL OF FAME" messaging.

62512

LD HL,10320

HL=10320 (screen location).

62515

LD DE,62648

DE=String_HallOfFame.

62518

CALL PrintStringColour

Call PrintStringColour.

62521

LD HL,16456

HL=16456 (screen buffer location).

62524

XOR A

62525

LD C,49

62527

LD B,8

62529

PUSH HL

62530

CALL ScreenAddress

62533

LD A,C

62534

CALL PrintScreen

62537

POP HL

62538

LD A,H

62539

ADD A,16

62541

LD H,A

62542

INC C

62543

DJNZ 62529

62545

LD HL,16480

HL=16480 (screen buffer location).

62548

LD DE,24096

62551

LD C,8

C=8.

HallOfFame_3

62553

PUSH HL

62554

CALL ScreenAddress

62557

LD B,3

B=3.

HallOfFame_4

62559

LD A,(DE)

62560

CALL PrintScreen

62563

INC DE

62564

DJNZ HallOfFame_4

62566

POP HL

62567

LD A,H

62568

ADD A,16

62570

LD H,A

62571

DEC C

62572

JR NZ,HallOfFame_3

62574

LD C,8

C=8.

62576

LD DE,24070

62579

LD HL,16520

HL=16520.

HallOfFame_5

62582

LD B,3

B=3.

62584

PUSH HL

Stash HL on the stack.

62585

CALL ScreenAddress

Call ScreenAddress.

62588

CALL PrintScore_Loop

Call PrintScore_Loop.

62591

POP HL

Restore HL from the stack.

62592

LD A,H

H=H+16.

62593

ADD A,16

62595

LD H,A

62596

DEC C

Decrease C by one.

62597

JR NZ,HallOfFame_5

Jump back to HallOfFame_5 until C is zero.

62599

LD A,1

Write 1 to 24180.

62601

LD (24180),A

62604

LD HL,1024

Write 1024 to 24173.

62607

LD (24173),HL

HallOfFame_6

62610

EI

Enable interrupts.

62611

HALT

62612

LD HL,(24173)

62615

DEC HL

62616

LD (24173),HL

62619

LD A,231

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
231	Q	W	E	R	T	Y	U	I	O	P

62621

OUT (253),A

62623

IN A,(254)

62625

CPL

Flip the bits.

62626

AND %00011111

Keep only bits 0-4.

62628

RET NZ

62629

LD A,H

62630

OR L

62631

JR NZ,HallOfFame_6

62633

RET

Return.