Robotron: 2084: Routine at D0F0

D0F0: Routine at D0F0


D0F0	LD B,(HL)
D0F1	LD A,B
D0F2	LD ($C423),A
D0F5	INC HL
D0F6	LD A,(HL)
D0F7	LD ($C424),A
D0FA	INC HL
D0FB	PUSH HL
D0FC	LD HL,($C509)
D0FF	LD A,B
D100	AND A
D101	JP Z,$D196
D104	PUSH BC
D105	LD DE,$CCCE
D108	LD (HL),E
D109	INC HL
D10A	LD (HL),D
D10B	INC HL
D10C	CALL $D1BF
D10F	AND $1F
D111	JR Z,$D10C
D113	CP $1F
D115	JR Z,$D10C
D117	LD B,A
D118	CALL $D1BF
D11B	AND $1F
D11D	CP $02
D11F	JR C,$D118
D121	CP $17
D123	JR NC,$D118
D125	SLA A
D127	SLA A
D129	SLA A
D12B	SLA B
D12D	SLA B
D12F	SLA B
D131	LD (HL),A
D132	LD ($C4F3),A
D135	INC HL
D136	LD (HL),B
D137	LD A,B
D138	LD ($C4F4),A
D13B	INC HL
D13C	LD (HL),$07
D13E	INC HL
D13F	LD (HL),$07
D141	DEC HL
D142	DEC HL
D143	DEC HL
D144	EXX
D145	LD HL,$D1C7
D148	EXX
D149	CALL $C6DA
D14C	DEC HL
D14D	DEC HL
D14E	DEC HL
D14F	JR NC,$D10C
D151	INC HL
D152	INC HL
D153	INC HL
D154	INC HL
D155	LD A,($C424)
D158	LD (HL),A
D159	INC HL
D15A	EX DE,HL
D15B	LD HL,$C4F3
D15E	LD A,(HL)
D15F	INC HL
D160	LD C,(HL)
D161	LD L,A
D162	LD B,$45
D164	SLA C
D166	RL B
D168	LD H,$46
D16A	SLA L
D16C	RL H
D16E	LD A,(HL)
D16F	INC HL
D170	LD H,(HL)
D171	LD L,A
D172	LD A,(BC)
D173	OR L
D174	LD L,A
D175	EX DE,HL
D176	LD (HL),E
D177	INC HL
D178	LD (HL),D
D179	INC HL
D17A	LD A,D
D17B	RRCA
D17C	RRCA
D17D	RRCA
D17E	AND $03
D180	OR $58
D182	LD D,A
D183	LD (HL),E
D184	INC HL
D185	LD (HL),D
D186	DEC HL
D187	DEC HL
D188	DEC HL
D189	DEC HL
D18A	CALL $CC81
D18D	DEC HL
D18E	LD (HL),$FF
D190	INC HL
D191	POP BC
D192	DEC B
D193	JP NZ,$D104
D196	LD DE,$D1A4
D199	LD ($C509),HL
D19C	LD (HL),E
D19D	INC HL
D19E	LD (HL),D
D19F	INC HL
D1A0	LD (HL),$FF
D1A2	POP HL
D1A3	RET
D1A4	LD HL,$6000
D1A7	RET
This entry point is used by the routine at D630.
D1A8	LD HL,($C4DC)
D1AB	PUSH BC
D1AC	ADD HL,HL
D1AD	ADD HL,HL
D1AE	ADD HL,HL
D1AF	ADD HL,HL
D1B0	ADD HL,HL
D1B1	LD BC,($C4DC)
D1B5	ADD HL,BC
D1B6	LD BC,$0029
D1B9	ADD HL,BC
D1BA	LD ($C4DC),HL
D1BD	POP BC
D1BE	RET
This entry point is used by the routines at C84F and D630.
D1BF	PUSH HL
D1C0	CALL $D1A8
D1C3	LD A,L
D1C4	XOR H
D1C5	POP HL
D1C6	RET
D1C7	LD D,B
D1C8	LD (HL),C
D1C9	INC HL
D1CA	RRA
D1CB	LD A,(HL)
D1CC	LD ($C425),A
D1CF	LD B,A
D1D0	LD A,($C41C)
D1D3	ADD A,B
D1D4	LD ($C41C),A
D1D7	INC HL
D1D8	LD A,(HL)
D1D9	LD ($C426),A
D1DC	INC HL
D1DD	LD D,(HL)
D1DE	LD A,D
D1DF	LD ($C427),A
D1E2	LD E,$FE
D1E4	LD ($C51B),DE
D1E8	INC HL
D1E9	PUSH HL
D1EA	LD HL,($C509)
D1ED	LD A,B
D1EE	AND A
D1EF	JP Z,$D23E
D1F2	PUSH BC
D1F3	LD DE,$CEDF
D1F6	LD (HL),E
D1F7	INC HL
D1F8	LD (HL),D
D1F9	INC HL
D1FA	CALL $D1BF
D1FD	AND $03
D1FF	JR Z,$D1FA
D201	LD (HL),A
D202	INC HL
D203	LD (HL),$04
D205	INC HL
D206	CALL $D1BF
D209	CP $18
D20B	JR C,$D206
D20D	CP $A4
D20F	JR NC,$D206
D211	LD (HL),A
D212	INC HL
D213	CALL $D1BF
D216	CP $08
D218	JR C,$D213
D21A	CP $EF
D21C	JR NC,$D213
D21E	LD (HL),A
D21F	INC HL
D220	LD (HL),$0C
D222	INC HL
D223	LD (HL),$09
D225	DEC HL
D226	DEC HL
D227	DEC HL
D228	EXX
D229	LD HL,$D1C7
D22C	EXX
D22D	CALL $C6DA
D230	JR C,$D237
D232	DEC HL
D233	DEC HL
D234	DEC HL
D235	JR $D206
D237	INC HL
D238	LD (HL),$FF
D23A	INC HL
D23B	POP BC
D23C	DJNZ $D1F2
D23E	LD DE,$D1A4
D241	LD ($C509),HL
D244	LD (HL),E
D245	INC HL
D246	LD (HL),D
D247	INC HL
D248	LD (HL),$FF
D24A	POP HL
D24B	RET
This entry point is used by the routines at C544 and PlayerDeath.
D24C	LD HL,$6100
D24F	LD ($C509),HL
D252	LD DE,$D1A4
D255	LD (HL),E
D256	INC HL
D257	LD (HL),D
D258	INC HL
D259	LD (HL),$FF
D25B	LD A,($C41C)
D25E	AND A
D25F	JR NZ,$D299
D261	LD HL,$C423
D264	LD DE,$C424
D267	LD (HL),$00
D269	LD BC,$000C
D26C	LDIR
D26E	LD HL,($C409)
D271	LD A,(HL)
D272	LD ($C408),A
D275	CALL $D30C
D278	LD HL,($C409)
D27B	INC HL
D27C	CALL $C702
D27F	LD ($C409),HL
D282	LD HL,$6000
D285	LD DE,$CE62
D288	LD ($C4D1),HL
D28B	LD (HL),E
D28C	INC HL
D28D	LD (HL),D
D28E	INC HL
D28F	LD (HL),$FF
D291	LD HL,$C4DE
D294	LD (HL),$01
D296	JP $CB4F
D299	XOR A
D29A	LD ($C41C),A
D29D	CALL RenderHUD
D2A0	LD HL,$C423
D2A3	CALL $D0F0
D2A6	CALL $D1CB
D2A9	CALL $E122
D2AC	CALL $E290
D2AF	CALL $E863
D2B2	CALL $CE64
D2B5	CALL $E92C
D2B8	XOR A
D2B9	JP $D282
This entry point is used by the routines at C84F and D630.
D2BC	LD HL,$5800
D2BF	LD B,$07
D2C1	LD A,(HL)
D2C2	AND B
D2C3	LD (HL),A
D2C4	INC HL
D2C5	LD A,H
D2C6	CP $5B
D2C8	JP NZ,$D2C1
D2CB	CALL $D2D1
D2CE	POP DE
D2CF	POP DE
D2D0	RET
D2D1	LD B,$14
D2D3	LD HL,$0000
D2D6	PUSH HL
D2D7	LD DE,$4000
D2DA	LD A,(DE)
D2DB	AND (HL)
D2DC	LD (DE),A
D2DD	INC DE
D2DE	INC HL
D2DF	LD A,E
D2E0	AND A
D2E1	JR NZ,$D2DA
D2E3	LD A,$00
D2E5	OUT ($FE),A
D2E7	LD A,B
D2E8	SLA A
D2EA	SLA A
D2EC	DEC A
D2ED	JR NZ,$D2EC
D2EF	LD A,$18
D2F1	AND $18
D2F3	OUT ($FE),A
D2F5	LD A,B
D2F6	SLA A
D2F8	SLA A
D2FA	DEC A
D2FB	JR NZ,$D2FA
D2FD	LD A,D
D2FE	CP $58
D300	JR NZ,$D2DA
D302	POP HL
D303	INC H
D304	DJNZ $D2D6
D306	RET
D307	LD A,$07
D309	OUT ($FE),A
D30B	RET