Lunar Jetman: Routine at F410

F410: Hall Of Fame

Used by the routine at Game_Restart.

HallOfFame

F410

LD A,$47

A=47.

F412

LD C,$08

C=08.

F414

LD HL,$5900

HL=5900.

HallOfFame_0

F417

LD B,$40

B=40.

HallOfFame_1

F419

LD (HL),A

F41A

INC HL

F41B

DJNZ HallOfFame_1

F41D

DEC A

F41E

CP $41

F420

JR NZ,HallOfFame_2

F422

LD A,$44

A=44.

HallOfFame_2

F424

DEC C

F425

JR NZ,HallOfFame_0

Handle printing "THE ULTIMATE" messaging.

F427

LD HL,$1850

HL=1850 (screen location).

F42A

LD DE,$F4AA

DE=String_Ultimate.

F42D

CALL PrintStringColour

Call PrintStringColour.

Handle printing "HALL OF FAME" messaging.

F430

LD HL,$2850

HL=2850 (screen location).

F433

LD DE,$F4B8

DE=String_HallOfFame.

F436

CALL PrintStringColour

Call PrintStringColour.

F439

LD HL,$4048

HL=4048 (screen buffer location).

F43C

XOR A

F43D

LD C,$31

F43F

LD B,$08

F441

PUSH HL

F442

CALL ScreenAddress

F445

LD A,C

F446

CALL PrintScreen

F449

POP HL

F44A

LD A,H

F44B

ADD A,$10

F44D

LD H,A

F44E

INC C

F44F

DJNZ $F441

F451

LD HL,$4060

HL=4060 (screen buffer location).

F454

LD DE,$5E20

DE=5E20.

F457

LD C,$08

C=08.

HallOfFame_3

F459

PUSH HL

F45A

CALL ScreenAddress

F45D

LD B,$03

B=03.

HallOfFame_4

F45F

LD A,(DE)

F460

CALL PrintScreen

F463

INC DE

F464

DJNZ HallOfFame_4

F466

POP HL

F467

LD A,H

F468

ADD A,$10

F46A

LD H,A

F46B

DEC C

F46C

JR NZ,HallOfFame_3

F46E

LD C,$08

C=08.

F470

LD DE,$5E06

F473

LD HL,$4088

HL=4088.

HallOfFame_5

F476

LD B,$03

B=03.

F478

PUSH HL

Stash HL on the stack.

F479

CALL ScreenAddress

Call ScreenAddress.

F47C

CALL PrintScore_Loop

Call PrintScore_Loop.

F47F

POP HL

Restore HL from the stack.

F480

LD A,H

H=H+10.

F481

ADD A,$10

F483

LD H,A

F484

DEC C

Decrease C by one.

F485

JR NZ,HallOfFame_5

Jump back to HallOfFame_5 until C is zero.

F487

LD A,$01

Write 01 to 5E74.

F489

LD ($5E74),A

F48C

LD HL,$0400

Write 0400 to 5E6D.

F48F

LD ($5E6D),HL

HallOfFame_6

F492

EI

Enable interrupts.

F493

HALT

F494

LD HL,($5E6D)

F497

DEC HL

F498

LD ($5E6D),HL

F49B

LD A,$E7

Read from the keyboard;

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

F49D

OUT ($FD),A

F49F

IN A,($FE)

F4A1

CPL

Flip the bits.

F4A2

AND %00011111

Keep only bits 0-4.

F4A4

RET NZ

F4A5

LD A,H

F4A6

OR L

F4A7

JR NZ,HallOfFame_6

F4A9

RET

Return.