180: Routine at 38249

38249: Redefine Key

Used by the routine at Messaging_RedefineKeys.
RedefineKey	38249	CALL 38536	Call 38536.
	38252	OR A	Jump to RedefineKey if A is not equal to zero.
	38253	JR NZ,RedefineKey	Jump to RedefineKey if A is not equal to zero.
RedefineKey_0	38255	CALL 38536	Call 38536.
	38258	OR A	Jump to RedefineKey_0 if A is zero.
	38259	JR Z,RedefineKey_0	Jump to RedefineKey_0 if A is zero.
	38261	LD C,A	Jump to RedefineKey_1 if C is less than 4.
	38262	CP 4
	38264	JR C,RedefineKey_1
	38266	LD A,(63588)	Jump to RedefineKey if *63588 is not equal to zero.
	38269	OR A
	38270	JR NZ,RedefineKey
RedefineKey_1	38272	LD HL,39513	HL=39513.
	38275	LD B,8	B=8.
	38277	LD A,C	Jump to RedefineKey if C is equal to *HL.
RedefineKey_2	38278	CP (HL)
	38279	JR Z,RedefineKey
	38281	INC HL	Increment HL by three.
	38282	INC HL
	38283	INC HL
	38284	DJNZ RedefineKey_2	Decrease counter by one and loop back to RedefineKey_2 until counter is zero.
	38286	LD (IX+0),E	Write E to *IX+0.
	38289	LD (IX+1),D	Write D to *IX+1.
	38292	LD (IX+2),A	Write A to *IX+2.
	38295	INC IX	Increment IX by three.
	38297	INC IX
	38299	INC IX
	38301	CALL Print_Key	Call Print_Key.
	38304	LD HL,63512	Write 18 to *63512.
	38307	LD (HL),18	Write 18 to *63512.
	38309	INC HL	Increment *63513 by two.
	38310	INC (HL)
	38311	INC (HL)
	38312	RET	Return.