Dun Darach: Routine at AD54

AD54: Displays object extra string in correct place.

Used by the routines at Room_Initialise, Gamble_DisplayStakes and Inv_Update.

Input
HL	Ptr to string.

Output

String can be multi lined by putting + in place of newline.

Object_StringExtraDisplay

AD54

PUSH IX

AD56

PUSH DE

AD57

PUSH HL

AD58

LD A,$02

PRINT #2

AD5A

CALL $1601

AD5D

LD A,$03

AD5F

LD DE,$5826

Object_StringExtraDisplay_0

AD62

LD HL,TempStore

AD65

LD BC,$0019

AD68

LDIR

AD6A

LD HL,$0007

AD6D

ADD HL,DE

AD6E

EX DE,HL

AD6F

DEC A

AD70

JR NZ,Object_StringExtraDisplay_0

AD72

CALL Print_StrFromStack

AD75

DEFB $10

PRINT INK 6; PAPER 0; BRIGHT 1;

AD76

DEFB $06

AD77

DEFB $11

AD78

DEFB $00

AD79

DEFB $13

AD7A

DEFB $01

AD7B

DEFB $5E

AD7C

POP HL

String ptr.

AD7D

LD E,$01

Object_StringExtraDisplay_1

AD7F

LD A,$16

PRINT AT e,6;

AD81

RST $10

AD82

LD A,E

AD83

RST $10

AD84

LD A,$06

AD86

RST $10

AD87

INC E

Increase line count.

Object_StringExtraDisplay_2

AD88

LD A,(HL)

Next character.

AD89

INC HL

AD8A

CP $2B

Newline.

AD8C

JR Z,Object_StringExtraDisplay_1

AD8E

CP $5E

End of string.

AD90

JR Z,Object_StringExtraDisplay_3

AD92

CALL Print_SelectChar

AD95

JR Object_StringExtraDisplay_2

Object_StringExtraDisplay_3

AD97

POP DE

AD98

POP IX

AD9A

RET