West Bank: Routine at 51943

51943: A

Used by the routine at Prep_Display_Phase.

51943

LD A,127

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
127	SPACE	FULL-STOP	M	N	B

51945

IN A,(254)

51947

RRA

If "SPACE" is pressed.

51948

JR C,51963

51950

LD A,254

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
254	SHIFT	Z	X	C	V

51952

IN A,(254)

51954

RRA

51955

JR C,51963

51957

LD HL,52148

51960

CALL 64896

51963

LD A,254

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
254	SHIFT	Z	X	C	V

51965

IN A,(254)

51967

BIT 1,A

51969

JR NZ,51979

51971

LD A,254

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
254	SHIFT	Z	X	C	V

51973

IN A,(254)

51975

BIT 2,A

51977

JR NZ,51971

51979

51982

LD BC,(52764)

51986

DEC BC

51987

LD A,B

51988

OR C

51989

JR NZ,51986

51991

CALL Door_Prep_01_2

51994

CALL 52134

Call 52134.

51997

LD IX,53605

IX=Door_Flags_01.

52001

LD (IX+8),0

52005

LD HL,52756

HL=Door_Routine_01.

52008

LD A,(HL)

52009

INC HL

52010

OR (HL)

52011

PUSH AF

52012

CALL Z,Character_Chooser

52015

POP AF

52016

JR Z,52031

52018

LD HL,(52756)

52021

LD DE,52031

52024

PUSH DE

52025

LD A,1

52027

LD (52762),A

52030

JP (HL)

52031

LD IX,53619

52035

LD (IX+8),0

52039

LD HL,52758

52042

LD A,(HL)

52043

INC HL

52044

OR (HL)

52045

PUSH AF

52046

CALL Z,Character_Chooser

52049

POP AF

52050

JR Z,52065

52052

LD HL,(52758)

52055

LD DE,52065

52058

PUSH DE

52059

LD A,2

52061

LD (52762),A

52064

JP (HL)

52065

LD IX,53633

52069

LD (IX+8),0

52073

LD HL,52760

52076

LD A,(HL)

52077

INC HL

52078

OR (HL)

52079

PUSH AF

52080

CALL Z,Character_Chooser

52083

POP AF

52084

JR Z,52099

52086

LD HL,(52760)

52089

LD DE,52099

52092

PUSH DE

52093

LD A,3

52095

LD (52762),A

52098

JP (HL)

52099

LD A,(54014)

If bit 0 of 54014 is not zero then jump to 52551.

52102

BIT 0,A

52104

JP NZ,52551

52107

BIT 1,A

Else if bit 1 is not zero, jump to Flash_Lives.

52109

JP NZ,Flash_Lives

52112

52115

LD HL,53648

If 53648 is not zero then call 52128 (also, writes 0 to 53648 to clear it).

52118

LD A,(HL)

52119

AND A

52120

LD (HL),0

52122

CALL NZ,52128

52125

52128

CALL Dollar_Scroll_0

52131

52134

LD HL,23296

Blanks $FF bytes from BufferGeneral onwards, then returns.

52137

LD DE,23297

52140

LD BC,255

52143

LD (HL),0

52145

LDIR

52147

RET

Copied_5B80

52148

DEFB 195,210,203,195,90,204,89,204

Copied to $5B80.

52156

DEFB 42,18,206,233,195,220,205,195

52164

DEFB 176,213,195,230,213,195,250,213

52172

DEFB 195,144,205

52175

DEFB 1