Chaos: Routine at ACED

ACED: routine23

Used by the routines at routine22 and routine54.
routine23	ACED	CALL routine44
	ACF0	XOR A
	ACF1	LD (unknown28),A
	ACF4	LD (unknown39),A
	ACF7	LD (unknown18),A
	ACFA	LD (unknown21),A
	ACFD	LD (unknown26),A
	AD00	LD (unknown13),A
	AD03	LD A,(unknown25)
	AD06	LD D,A
	AD07	LD E,$11
	AD09	CALL GETCHR
	AD0C	SLA A
	AD0E	LD (unknown17),A
	AD11	LD A,D
	AD12	CP $13
	AD14	JP M,routine23_0
	AD17	CP $1E
	AD19	JP P,routine23_0
	AD1C	LD A,(unknown17)
	AD1F	INC A
	AD20	LD (unknown18),A
routine23_0	AD23	LD A,(unknown25)
	AD26	SUB $29
	AD28	JP M,routine23_2
	AD2B	LD HL,unknown_table_3
	AD2E	LD E,A
	AD2F	LD D,$00
	AD31	ADD HL,DE
	AD32	LD A,(HL)
	AD33	BIT 5,A
	AD35	JR Z,routine23_1
	AD37	LD A,$0D
	AD39	LD (unknown18),A
	AD3C	JR routine23_2
routine23_1	AD3E	BIT 3,A
	AD40	JR Z,routine23_2
	AD42	LD A,$06
	AD44	LD (unknown17),A
	AD47	LD (unknown34),A
routine23_2	AD4A	LD A,(unknown27)
	AD4D	BIT 7,A
	AD4F	RET NZ
	AD50	LD A,(unknown25)
	AD53	OR A
	AD54	RET Z
	AD55	SUB $29
	AD57	JP M,routine23_3
	AD5A	LD HL,(current_player)
	AD5D	CP L
	AD5E	RET NZ
	AD5F	LD A,(unknown25)
	AD62	LD (unknown26),A
	AD65	JP routine23_9
routine23_3	AD68	LD A,(unknown23)
	AD6B	SUB $29
	AD6D	JP M,routine23_7
	AD70	LD HL,(current_player)
	AD73	CP L
	AD74	RET NZ
	AD75	LD A,(unknown23)
	AD78	LD (unknown26),A
	AD7B	LD A,(unknown25)
	AD7E	CP $24
	AD80	JP P,routine23_9
	AD83	LD A,$46
	AD85	LD ($5C8F),A
	AD88	LD A,(computer_player_flag)
	AD8B	OR A
	AD8C	JR NZ,routine23_5
	AD8E	LD A,$33
	AD90	LD BC,$1600
	AD93	CALL MPRINT
routine23_4	AD96	CALL $02BF
	AD99	CP $59
	AD9B	JR Z,routine23_6
	AD9D	CP $4E
	AD9F	JR NZ,routine23_4
routine23_5	ADA1	XOR A
	ADA2	LD (unknown26),A
	ADA5	JR routine23_7
routine23_6	ADA7	XOR A
	ADA8	LD (unknown18),A
	ADAB	LD A,$01
	ADAD	LD (unknown17),A
	ADB0	JP routine23_9
routine23_7	ADB3	LD A,(unknown25)
	ADB6	CP $25
	ADB8	JR Z,routine23_8
	ADBA	CP $22
	ADBC	RET P
routine23_8	ADBD	LD A,(unknown27)
	ADC0	AND $07
	ADC2	LD HL,(current_player)
	ADC5	CP L
	ADC6	RET NZ
	ADC7	LD HL,(object_table_entry_pointer)
	ADCA	LD DE,$0141
	ADCD	ADD HL,DE
	ADCE	LD A,(HL)
	ADCF	CP $04
	ADD1	RET Z
routine23_9	ADD2	CALL routine45
	ADD5	LD A,(unknown20)
	ADD8	OR A
	ADD9	JR Z,routine23_10
	ADDB	LD A,(unknown23)
	ADDE	OR A
	ADDF	JR NZ,routine23_10
	ADE1	LD A,(unknown25)
	ADE4	LD D,A
	ADE5	LD E,$12
	ADE7	CALL GETCHR
	ADEA	LD E,A
	ADEB	CALL get_random
	ADEE	INC A
	ADEF	INC A
	ADF0	CP E
	ADF1	CALL P,routine47
routine23_10	ADF4	LD A,(unknown32)
	ADF7	OR A
	ADF8	CALL NZ,routine47
	ADFB	LD A,(unknown21)
	ADFE	OR A
	ADFF	JR NZ,routine23_14
	AE01	CALL clear_bottom_row
	AE04	LD A,$44
	AE06	LD ($5C8F),A
	AE09	LD A,$3A
	AE0B	LD BC,$1600
	AE0E	CALL MPRINT
	AE11	LD A,$46
	AE13	LD ($5C8F),A
	AE16	LD A,(unknown26)
	AE19	OR A
	AE1A	JR NZ,routine23_11
	AE1C	LD A,(unknown25)
routine23_11	AE1F	LD D,A
	AE20	LD E,$11
	AE22	CALL GETCHR
	AE25	LD E,A
	AE26	LD A,(unknown18)
	AE29	OR A
	AE2A	JR Z,routine23_12
	AE2C	SRL A
	AE2E	LD E,A
routine23_12	AE2F	LD A,E
	AE30	ADD A,$30
	AE32	CALL DH_P
	AE35	LD HL,sound_effect_21
	AE38	CALL play_sound_effect_in_HL
	AE3B	EI
	AE3C	LD A,(computer_player_flag)
	AE3F	OR A
	AE40	JR Z,routine23_14
	AE42	LD A,(unknown30)
	AE45	OR A
	AE46	JR NZ,routine23_13
	AE48	CALL routine64
	AE4B	JR routine23_14
routine23_13	AE4D	CALL routine55
This entry point is used by the routines at COUNTL and routine25.
routine23_14	AE50	LD BC,(cursor_coordinates)
	AE54	LD A,(unknown18)
	AE57	OR A
	AE58	JP NZ,routine24
	AE5B	LD A,(computer_player_flag)
	AE5E	OR A
	AE5F	JR Z,routine23_16
	AE61	LD A,(unknown30)
	AE64	OR A
	AE65	JR NZ,routine23_15
	AE67	LD A,(unknown29)
	AE6A	OR A
	AE6B	CALL Z,routine64
	AE6E	JR routine23_16
routine23_15	AE70	LD A,(unknown29)
	AE73	OR A
	AE74	CALL Z,routine59
routine23_16	AE77	CALL move_cursor
This entry point is used by the routine at routine24.
routine23_17	AE7A	LD (unknown24),BC
	AE7E	CALL coordinate_to_address
	AE81	LD (object_table_entry_pointer),HL
	AE84	CALL routine44_0
	AE87	LD A,(unknown31)
	AE8A	CP $49
	AE8C	CALL Z,display_object_info
	AE8F	CP $4B
	AE91	JR NZ,routine23_18
	AE93	LD HL,sound_effect_18
	AE96	CALL play_sound_effect_in_HL
	AE99	EI
	AE9A	JP COUNTL_13
routine23_18	AE9D	LD HL,(object_table_entry_pointer)
	AEA0	LD DE,(D_ADD)
	AEA4	XOR A
	AEA5	SBC HL,DE
	AEA7	JR Z,routine23_14
	AEA9	LD A,(unknown25)
	AEAC	OR A
	AEAD	JP Z,COUNTL_5
	AEB0	LD HL,(object_table_entry_pointer)
	AEB3	LD DE,$0141
	AEB6	ADD HL,DE
	AEB7	LD A,(HL)
	AEB8	CP $04
	AEBA	JP Z,COUNTL_5
	AEBD	LD A,(unknown25)
	AEC0	CP $24
	AEC2	JR NZ,COUNTL_0
	AEC4	LD A,(unknown26)
	AEC7	LD L,$0B
	AEC9	OR A
	AECA	JR Z,COUNTL_2