Cookie: Routine at 68C4

68C4: Routine at 68C4


68C4	LD HL,$68D0	HL=68D0.
68C7	LD DE,$5F4D	DE=5F4D.
68CA	LD BC,$0008	BC=08.
68CD	LDIR
68CF	RET	Return.
68D0	DEFB $19,$20,$20,$20,$21,$D9,$68,$18
68D8	DEFB $EE,$16,$08,$DE,$68,$10
68DE	DEFB $00,$78,$70,$68,$60,$58,$50,$48
68E6	DEFB $40
This entry point is used by the routines at 6C7A and 6E25.
68E7	LD HL,$68EC	HL=68EC.
68EA	JR $68C7	Jump to 68C7.
68EC	DEFB $16,$08,$F1,$68,$10,$00,$40,$48
68F4	DEFB $50,$58,$60,$68,$70,$78
This entry point is used by the routine at 67E2.
68FA	LD HL,$68FF	HL=68FF.
68FD	JR $68C7	Jump to 68C7.
68FF	DEFB $16,$10,$04,$69,$06,$00,$40,$40
6907	DEFB $40,$40,$50,$50,$50,$50,$40,$40
690F	DEFB $40,$40,$50,$50,$50,$50
This entry point is used by the routine at 65E8.
6915	LD HL,$691A	HL=691A.
6918	JR $68C7
691A	DEFB $16,$10,$1F,$69,$06,$00,$50,$4E
6922	DEFB $4C
6923	LD C,D
6924	LD C,B
6925	LD B,(HL)
6926	LD B,H
6927	LD B,D
6928	LD B,B
6929	LD A,$3C
692B	LD A,($3638)
692E	INC (HL)
692F	LD ($D0CD),A
6932	HALT
6933	LD HL,$5F1B
6936	INC (HL)
6937	LD A,(IX+$01)
693A	CP $C4
693C	JR NC,$6977
693E	CALL $6A46
6941	DEC E
6942	JP Z,$6A73
6945	CALL $7317
6948	BIT 7,(IX+$00)
694C	JP NZ,$730D
694F	LD A,(IX+$07)
6952	AND $07
6954	JR NZ,$6960
6956	LD A,(IX+$05)
6959	CP $08
695B	JR Z,$6960
695D	INC (IX+$05)
6960	LD A,(IX+$05)
6963	LD (IX+$03),$46
6967	SRA A
6969	ADD A,(IX+$02)
696C	CP $20
696E	JR C,$697A
6970	CP $A0
6972	JR NC,$6988
6974	LD (IX+$02),A
6977	JP $72B4
697A	LD (IX+$02),$20
697E	LD A,(IX+$05)
6981	NEG
6983	LD (IX+$05),A
6986	JR $6977
6988	LD (IX+$02),$A0
698C	CALL $6EAC
698F	LD A,R
6991	AND $07
6993	CPL
6994	JR $6983
6996	CALL $76D0
6999	LD HL,$5F1B
699C	INC (HL)
699D	CALL $6A46
69A0	DEC E
69A1	JP Z,$6A73
69A4	CALL $7317
69A7	BIT 7,(IX+$00)
69AB	JP NZ,$730D
69AE	LD (IX+$03),$45
69B2	LD A,(IX+$07)
69B5	AND $0F
69B7	JR NZ,$6A05
69B9	LD C,$00
69BB	LD HL,$5F36
69BE	LD A,(IX+$01)
69C1	SUB (HL)
69C2	JR NC,$69C6
69C4	LD C,$02
69C6	INC HL
69C7	LD A,(IX+$02)
69CA	SUB (HL)
69CB	JR NC,$69CF
69CD	SET 0,C
69CF	LD (IX+$06),C
69D2	JR $6A05
69D4	CALL $76D0
69D7	LD HL,$5F1B
69DA	INC (HL)
69DB	LD A,(IX+$01)
69DE	CP $C4
69E0	JR NC,$6A2B
69E2	CALL $6A46
69E5	DEC E
69E6	JP Z,$6A73
69E9	CALL $7317
69EC	BIT 7,(IX+$00)
69F0	JP NZ,$730D
69F3	LD (IX+$03),$42
69F7	LD A,(IX+$07)
69FA	AND $0F
69FC	JR NZ,$6A05
69FE	LD A,R
6A00	AND $03
6A02	LD (IX+$06),A
6A05	BIT 0,(IX+$07)
6A09	JR NZ,$6A2B
6A0B	BIT 0,(IX+$06)
6A0F	JR Z,$6A2E
6A11	LD A,(IX+$05)
6A14	CP $02
6A16	JR Z,$6A1B
6A18	INC (IX+$05)
6A1B	BIT 1,(IX+$06)
6A1F	JR Z,$6A3A
6A21	LD A,(IX+$04)
6A24	CP $02
6A26	JR Z,$6A2B
6A28	INC (IX+$04)
6A2B	JP $72A3
6A2E	LD A,(IX+$05)
6A31	CP $FE
6A33	JR Z,$6A1B
6A35	DEC (IX+$05)
6A38	JR $6A1B
6A3A	LD A,(IX+$04)
6A3D	CP $FE
6A3F	JR Z,$6A2B
6A41	DEC (IX+$04)
6A44	JR $6A2B
This entry point is used by the routines at 65E8 and 6C7A.
6A46	LD HL,$5F35
6A49	LD E,$00
6A4B	LD A,(HL)
6A4C	AND $3F
6A4E	DEC A
6A4F	JR Z,$6A53
6A51	DEC A
6A52	RET NZ
6A53	INC HL
6A54	LD A,(HL)
6A55	SUB (IX+$01)
6A58	JP P,$6A5D
6A5B	NEG
6A5D	CP $0C
6A5F	RET NC
6A60	INC HL
6A61	LD A,(HL)
6A62	SUB (IX+$02)
6A65	JP P,$6A6A
6A68	NEG
6A6A	CP $0C
6A6C	RET NC
6A6D	CALL $68C4
6A70	LD E,$01
6A72	RET
This entry point is used by the routines at 65E8 and 6C7A.
6A73	PUSH IX
6A75	LD IX,$5F35
6A79	CALL $7617
6A7C	LD (IX+$00),$0C
6A80	CALL $7617
6A83	LD (IX+$00),$0D
6A87	LD A,(IX+$01)
6A8A	LD (IX+$04),A
6A8D	LD A,(IX+$02)
6A90	LD (IX+$05),A
6A93	SUB $10
6A95	LD (IX+$02),A
6A98	CALL $7617
6A9B	POP IX
6A9D	JP $6AFC
6AA0	CALL $76D0
6AA3	LD A,(IX+$02)
6AA6	SUB $02
6AA8	JR C,$6ADF
6AAA	LD (IX+$02),A
6AAD	CALL $75CC
6AB0	CALL $74EE
6AB3	LD L,(IX+$01)
6AB6	LD H,(IX+$02)
6AB9	PUSH HL
6ABA	LD A,(IX+$04)
6ABD	LD (IX+$01),A
6AC0	LD A,(IX+$05)
6AC3	LD (IX+$02),A
6AC6	LD (IX+$00),$0C
6ACA	CALL $76D0
6ACD	CALL $75CC
6AD0	CALL $74EE
6AD3	POP HL
6AD4	LD (IX+$01),L
6AD7	LD (IX+$02),H
6ADA	LD (IX+$00),$0D
6ADE	RET
6ADF	CALL $7617
6AE2	LD A,(IX+$04)
6AE5	LD (IX+$01),A
6AE8	LD A,(IX+$05)
6AEB	LD (IX+$02),A
6AEE	LD (IX+$00),$0C
6AF2	CALL $7617
6AF5	LD (IX+$00),$0E
6AF9	JP $7617
This entry point is used by the routine at 6C7A.
6AFC	LD HL,$5F55
6AFF	LD DE,$0004
6B02	LD B,$06
6B04	LD A,(HL)
6B05	AND A
6B06	JR Z,$6B13
6B08	LD C,A
6B09	LD (HL),$0F
6B0B	ADD HL,DE
6B0C	LD (HL),C
6B0D	INC HL
6B0E	LD (HL),$01
6B10	DEC HL
6B11	JR $6B14
6B13	ADD HL,DE
6B14	ADD HL,DE
6B15	DJNZ $6B04
6B17	RET
6B18	LD HL,$5F1B
6B1B	INC (HL)
6B1C	LD A,(IX+$00)
6B1F	PUSH AF
6B20	LD A,(IX+$04)
6B23	LD (IX+$00),A
6B26	CALL $76D0
6B29	LD A,(IX+$05)
6B2C	AND A
6B2D	JR Z,$6B4E
6B2F	LD A,(IX+$02)
6B32	CP $A0
6B34	JR C,$6B3A
6B36	LD (IX+$05),$00
6B3A	LD A,(IX+$01)
6B3D	CP $68
6B3F	JR NC,$6B7D
6B41	SUB $04
6B43	JR NC,$6B49
6B45	XOR A
6B46	LD (IX+$05),A
6B49	LD (IX+$01),A
6B4C	JR $6B5A
6B4E	LD A,(IX+$02)
6B51	ADD A,$04
6B53	CP $B8
6B55	JR NC,$6B77
6B57	LD (IX+$02),A
6B5A	LD A,($5F1D)
6B5D	AND $03
6B5F	LD A,(IX+$04)
6B62	JR NZ,$6B69
6B64	XOR $01
6B66	LD (IX+$04),A
6B69	LD (IX+$00),A
6B6C	CALL $75CC
6B6F	CALL $74EE
6B72	POP AF
6B73	LD (IX+$00),A
6B76	RET
6B77	LD (IX+$00),$00
6B7B	POP AF
6B7C	RET
6B7D	ADD A,$04
6B7F	CP $C0
6B81	JR C,$6B49
6B83	XOR A
6B84	LD (IX+$05),A
6B87	LD A,$C0
6B89	JR $6B49
6B8B	CALL $76D0
6B8E	LD A,(IX+$02)
6B91	ADD A,$01
6B93	CP $B4
6B95	JR NC,$6BA0
6B97	LD (IX+$02),A
6B9A	CALL $75CC
6B9D	JP $74EE
6BA0	LD (IX+$00),$18
6BA4	LD A,($5F0D)
6BA7	AND A
6BA8	RET NZ
6BA9	LD DE,$65D1
6BAC	JP PlayMusic
6BAF	LD A,($5F1C)
6BB2	AND A
6BB3	RET NZ
6BB4	LD A,($5F0C)
6BB7	AND A
6BB8	JR NZ,$6BC3
6BBA	LD A,($5F2E)
6BBD	AND A
6BBE	JR Z,GameOver_ControllerRestart
6BC0	JP $6FFD
6BC3	LD A,($5F32)
6BC6	AND A
6BC7	JR Z,$6BBA
6BC9	LD A,($5F2E)
6BCC	AND A
6BCD	CALL Z,GameOver_Controller
6BD0	CALL ChangePlayer
6BD3	LD A,($5F21)
6BD6	CPL
6BD7	LD ($5F21),A
6BDA	CALL $5FE8
6BDD	JP $6FFD