Marsport: Routine at AFFA

AFFA: Routine at AFFA

Used by the routines at _873a, _87c9, 8BB6 and Death_HandleFlag.
AFFA	LD A,($BD33)
This entry point is used by the routines at Game_Init, _873a, _87c9, _89e9_Shoot, _8ac9_Enter, 8BB6 and Death_HandleFlag.
AFFD	LD ($BD33),A
B000	LD A,(Stage_Compass)
B003	LD HL,$C3CF
B006	XOR (HL)
B007	AND $02
B009	LD ($AFF9),A
B00C	CALL _8f29
B00F	CALL $AAFE
B012	CALL _b0ea_12
B015	LD A,($AFF9)
B018	AND A
B019	CALL NZ,$A872
B01C	LD A,($BD33)
B01F	AND A
B020	JP Z,$B0E0
B023	LD DE,_5b00_buffer
B026	LD A,($BD33)
B029	LD ($BD33),A
B02C	LD HL,$60DB
B02F	LD A,$38
B031	LDI
B033	LDI
B035	LDI
B037	LDI
B039	LD BC,$001E
B03C	ADD HL,BC
B03D	DEC A
B03E	JR NZ,$B031
B040	LD A,($BD33)
B043	CP $4E
B045	JR C,$B04E
B047	LD A,$4B
B049	LD ($AFF8),A
B04C	JR $B090
B04E	LD L,A
B04F	LD H,$00
B051	LD DE,$AFE2
B054	ADD HL,DE
B055	LD A,(HL)
B056	LD ($AFF8),A
B059	LD A,($BD33)
B05C	CP $12
B05E	JR Z,$B090
B060	CP $13
B062	JR Z,$B090
B064	CP $15
B066	JR Z,$B090
B068	LD L,A
B069	CALL Bitmap_GetData
B06C	LD A,(Hero_LastDir)
B06F	RRCA
B070	RRCA
B071	XOR (HL)
B072	JP P,$B07B
B075	LD HL,($BD33)
B078	CALL _a345_28
B07B	LD HL,($AFF8)
B07E	CALL Bitmap_GetData
B081	LD A,(Hero_LastDir)
B084	RRCA
B085	RRCA
B086	XOR (HL)
B087	JP P,$B090
B08A	LD HL,($AFF8)
B08D	CALL _a345_28
B090	LD HL,($BD33)
B093	CALL Bitmap_GetData
B096	LD HL,(Bmp_DataBuffer)
B099	LD ($C588),HL
B09C	LD HL,($AFF8)
B09F	CALL Bitmap_GetData
B0A2	LD A,(Bmp_DataBufferHeight)
B0A5	AND $7F
B0A7	RLA
B0A8	RLA
B0A9	RLA
B0AA	LD ($C58A),A
B0AD	LD A,(Bmp_DataBufferWidth)
B0B0	AND $7F
B0B2	LD ($C58B),A
B0B5	LD DE,(Bmp_DataBuffer)
B0B9	LD HL,$60DB
B0BC	CP $02
B0BE	JR NZ,$B0C1
B0C0	INC HL
B0C1	LD IX,($C588)
B0C5	LD BC,($C58A)
B0C9	PUSH BC
B0CA	PUSH HL
B0CB	LD A,(DE)
B0CC	AND (HL)
B0CD	OR (IX+$00)
B0D0	LD (HL),A
B0D1	INC HL
B0D2	INC DE
B0D3	INC IX
B0D5	DJNZ $B0CB
B0D7	POP HL
B0D8	LD BC,$0022
B0DB	ADD HL,BC
B0DC	POP BC
B0DD	DEC C
B0DE	JR NZ,$B0C9
B0E0	LD A,($AFF9)
B0E3	AND A
B0E4	CALL Z,$A872
B0E7	JP $8F68