PSSST: Routine at 67AE

67AE: Routine at 67AE


67AE	CALL $64ED
67B1	DEC E
67B2	JP Z,$6A73
67B5	CALL $6A42
67B8	DEC E
67B9	JR NZ,$67C0
67BB	LD A,C
67BC	AND A
67BD	JP NZ,$68ED
67C0	BIT 3,(IX+$04)
67C4	JP NZ,$6B3A
67C7	CALL $644D
67CA	DEC E
67CB	JR Z,$679C
67CD	BIT 2,(IX+$04)
67D1	JR Z,$67DD
67D3	DEC (IX+$05)
67D6	JP NZ,$6F31
67D9	RES 2,(IX+$04)
67DD	CALL $690F
67E0	LD A,(IX+$05)
67E3	LD B,A
67E4	AND $0F
67E6	LD C,A
67E7	LD A,B
67E8	AND $F0
67EA	LD B,A
67EB	LD A,(HL)
67EC	SUB (IX+$01)
67EF	JP P,$686E
67F2	BIT 6,(IX+$00)
67F6	JP Z,$689A
67F9	LD A,C
67FA	CP $0F
67FC	JR NC,$67FF
67FE	INC A
67FF	LD C,A
6800	LD H,(IX+$01)
6803	CALL $68DD
6806	AND A
6807	SBC HL,DE
6809	LD A,H
680A	CP $1A
680C	JR NC,$6812
680E	RES 6,(IX+$00)
6812	LD (IX+$01),A
6815	LD A,L
6816	AND $F0
6818	OR C
6819	LD (IX+$05),A
681C	LD A,(IX+$01)
681F	CP $18
6821	JP C,$6F31
6824	CP $D0
6826	JP NC,$6F31
6829	CALL $690F
682C	LD A,(IX+$06)
682F	LD B,A
6830	AND $0F
6832	LD C,A
6833	LD A,B
6834	AND $F0
6836	LD B,A
6837	INC HL
6838	LD A,(HL)
6839	SUB (IX+$02)
683C	JP P,$68A6
683F	BIT 7,(IX+$00)
6843	JP Z,$68D3
6846	LD A,C
6847	DEC A
6848	JR NZ,$68B3
684A	RES 7,(IX+$00)
684E	LD C,A
684F	LD H,(IX+$02)
6852	CALL $68DD
6855	AND A
6856	SBC HL,DE
6858	LD A,H
6859	CP $28
685B	JR NC,$6861
685D	SET 7,(IX+$00)
6861	LD (IX+$02),A
6864	LD A,L
6865	AND $F0
6867	OR C
6868	LD (IX+$06),A
686B	JP $6F31
686E	BIT 6,(IX+$00)
6872	JR Z,$6892
6874	LD A,C
6875	DEC A
6876	JP NZ,$67FF
6879	RES 6,(IX+$00)
687D	LD C,A
687E	LD H,(IX+$01)
6881	CALL $68DD
6884	ADD HL,DE
6885	LD A,H
6886	CP $D6
6888	JP C,$6812
688B	SET 6,(IX+$00)
688F	JP $6812
6892	LD A,C
6893	CP $0F
6895	JR NC,$687D
6897	INC A
6898	JR $687D
689A	LD A,C
689B	DEC A
689C	JP NZ,$687D
689F	SET 6,(IX+$00)
68A3	JP $67FF
68A6	BIT 7,(IX+$00)
68AA	JR Z,$68C8
68AC	LD A,C
68AD	CP $0F
68AF	JP NC,$68B3
68B2	INC A
68B3	LD C,A
68B4	LD H,(IX+$02)
68B7	CALL $68DD
68BA	ADD HL,DE
68BB	LD A,H
68BC	CP $B6
68BE	JP C,$6861
68C1	RES 7,(IX+$00)
68C5	JP $6861
68C8	LD A,C
68C9	DEC A
68CA	JP NZ,$684E
68CD	SET 7,(IX+$00)
68D1	JR $68B3
68D3	LD A,C
68D4	CP $0F
68D6	JP NC,$684E
68D9	INC A
68DA	JP $684E
68DD	LD L,B
68DE	LD A,C
68DF	RLA
68E0	RLA
68E1	RLA
68E2	RLA
68E3	AND $F0
68E5	LD E,A
68E6	LD D,$00
68E8	SLA E
68EA	RL D
68EC	RET
68ED	AND $3F
68EF	CP $08
68F1	JR Z,$6909
68F3	CP $12
68F5	JP Z,$67C0
68F8	BIT 3,(IX+$04)
68FC	JP NZ,$6B3A
68FF	LD (IX+$06),$00
6903	CALL $65CB
6906	JP $67C0
6909	LD BC,$0050
690C	JP $65D9
690F	LD A,($5E6D)
6912	CP $18
6914	JR C,$6967
6916	CP $D8
6918	JR NC,$6967
691A	SRL A
691C	LD B,A
691D	LD A,(IX+$01)
6920	SRL A
6922	SUB B
6923	JP P,$6928
6926	NEG
6928	LD B,A
6929	LD A,($5E6E)
692C	SRL A
692E	LD C,A
692F	LD A,(IX+$02)
6932	SRL A
6934	SUB C
6935	JP P,$693A
6938	NEG
693A	ADD A,B
693B	LD D,A
693C	LD A,($5E8D)
693F	SRL A
6941	LD B,A
6942	LD A,(IX+$01)
6945	SRL A
6947	SUB B
6948	JP P,$694D
694B	NEG
694D	LD B,A
694E	LD A,($5E8E)
6951	SRL A
6953	LD C,A
6954	LD A,(IX+$02)
6957	SRL A
6959	SUB C
695A	JP P,$695F
695D	NEG
695F	ADD A,B
6960	CP D
6961	JR C,$6967
6963	LD HL,$5E6D
6966	RET
6967	LD HL,$5E8D
696A	RET
This entry point is used by the routines at 698F and 6A98.
696B	INC DE
696C	LD A,(DE)
696D	DEC DE
696E	DEC DE
696F	DEC DE
6970	AND $01
6972	LD A,(DE)
6973	RET
This entry point is used by the routine at 6A98.
6974	CALL $696B
6977	JR Z,$6985
6979	CP $30
697B	RET C
697C	SUB $0C
697E	LD (HL),$48
6980	LD B,$45
6982	JP $6BA5
6985	CP $C0
6987	RET NC
6988	ADD A,$18
698A	LD (HL),$08
698C	JP $6980