West Bank: Routine at CAE7

CAE7: A

Used by the routine at Prep_Display_Phase.

CAE7

LD A,$7F

Read from the keyboard;

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

CAE9

IN A,($FE)

CAEB

RRA

If "SPACE" is pressed.

CAEC

JR C,$CAFB

CAEE

LD A,$FE

Read from the keyboard;

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

CAF0

IN A,($FE)

CAF2

RRA

CAF3

JR C,$CAFB

CAF5

LD HL,$CBB4

CAF8

CALL $FD80

CAFB

LD A,$FE

Read from the keyboard;

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

CAFD

IN A,($FE)

CAFF

BIT 1,A

CB01

JR NZ,$CB0B

CB03

LD A,$FE

Read from the keyboard;

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

CB05

IN A,($FE)

CB07

BIT 2,A

CB09

JR NZ,$CB03

CB0B

CB0E

LD BC,($CE1C)

BC=CE1C.

CB12

DEC BC

CB13

LD A,B

CB14

OR C

CB15

JR NZ,$CB12

CB17

CALL Door_Prep_01_2

CB1A

CALL $CBA6

Call CBA6.

CB1D

LD IX,$D165

IX=Door_Flags_01.

CB21

LD (IX+$08),$00

CB25

LD HL,$CE14

HL=Door_Routine_01.

CB28

LD A,(HL)

CB29

INC HL

CB2A

OR (HL)

CB2B

PUSH AF

CB2C

CALL Z,Character_Chooser

CB2F

POP AF

CB30

JR Z,$CB3F

CB32

LD HL,($CE14)

CB35

LD DE,$CB3F

CB38

PUSH DE

CB39

LD A,$01

CB3B

LD ($CE1A),A

CB3E

JP (HL)

CB3F

LD IX,$D173

CB43

LD (IX+$08),$00

CB47

LD HL,$CE16

CB4A

LD A,(HL)

CB4B

INC HL

CB4C

OR (HL)

CB4D

PUSH AF

CB4E

CALL Z,Character_Chooser

CB51

POP AF

CB52

JR Z,$CB61

CB54

LD HL,($CE16)

CB57

LD DE,$CB61

CB5A

PUSH DE

CB5B

LD A,$02

CB5D

LD ($CE1A),A

CB60

JP (HL)

CB61

LD IX,$D181

CB65

LD (IX+$08),$00

CB69

LD HL,$CE18

CB6C

LD A,(HL)

CB6D

INC HL

CB6E

OR (HL)

CB6F

PUSH AF

CB70

CALL Z,Character_Chooser

CB73

POP AF

CB74

JR Z,$CB83

CB76

LD HL,($CE18)

CB79

LD DE,$CB83

CB7C

PUSH DE

CB7D

LD A,$03

CB7F

LD ($CE1A),A

CB82

JP (HL)

CB83

LD A,($D2FE)

If bit 0 of D2FE is not zero then jump to CD47.

CB86

BIT 0,A

CB88

JP NZ,$CD47

CB8B

BIT 1,A

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

CB8D

JP NZ,Flash_Lives

CB90

CB93

LD HL,$D190

If D190 is not zero then call CBA0 (also, writes 00 to D190 to clear it).

CB96

LD A,(HL)

CB97

AND A

CB98

LD (HL),$00

CB9A

CALL NZ,$CBA0

CB9D

CBA0

CALL Dollar_Scroll_0

CBA3

CBA6

LD HL,$5B00

Blanks $FF bytes from BufferGeneral onwards, then returns.

CBA9

LD DE,$5B01

CBAC

LD BC,$00FF

CBAF

LD (HL),$00

CBB1

LDIR

CBB3

RET

Copied_5B80

CBB4

DEFB $C3,$D2,$CB,$C3,$5A,$CC,$59,$CC

Copied to $5B80.

CBBC

DEFB $2A,$12,$CE,$E9,$C3,$DC,$CD,$C3

CBC4

DEFB $B0,$D5,$C3,$E6,$D5,$C3,$FA,$D5

CBCC

DEFB $C3,$90,$CD

CBCF

DEFB $01