Paradise Café: Routine at B4F1

B4F1: Door close animation (3 frames)

Sets CHARS=$CA7A (door tileset) via direct $5C36 write. Draws three frames (frame_door_opening_frame_3 → frame_door_opening_frame_2 → frame_door_opening_frame_1) in reverse order of door_open, animating the door sliding closed.
door_close	B4F1	LD HL,$5C36	Set CHARS=$CA7A (door tileset)
	B4F4	LD A,$7A
	B4F6	LD (HL),A
	B4F7	INC HL
	B4F8	LD A,$CA
	B4FA	LD (HL),A
	B4FB	LD A,$11	Set PAPER=0 (black)
	B4FD	RST $10
	B4FE	LD A,$00
	B500	RST $10
	B501	LD H,$02
	B503	LD D,$00
	B505	LD E,$0F
	B507	LD C,$0F
	B509	LD L,$A1
	B50B	CALL door_print_sprite_row
	B50E	LD HL,$B56B	Draw frame frame_door_opening_frame_3 (door close frame 3→2)
	B511	CALL draw_frame
	B514	CALL door_short_delay
	B517	LD H,$04
	B519	LD D,$00
	B51B	LD E,$0D
	B51D	LD C,$10
	B51F	LD L,$A1
	B521	CALL door_print_sprite_row
	B524	LD HL,$B55F	Draw frame frame_door_opening_frame_2 (door close frame 2→1)
	B527	CALL draw_frame
	B52A	CALL door_short_delay
	B52D	LD H,$02
	B52F	LD D,$00
	B531	LD E,$0B
	B533	LD C,$10
	B535	LD L,$A1
	B537	CALL door_print_sprite_row
	B53A	LD HL,$B551	Draw frame frame_door_opening_frame_1 (door fully closed)
	B53D	CALL draw_frame	Draw frame frame_door_opening_frame_1 (door fully closed)
	B540	CALL door_short_delay
	B543	LD H,$07
	B545	LD D,$00
	B547	LD E,$0A
	B549	LD C,$11
	B54B	LD L,$A1
	B54D	CALL door_print_sprite_row
	B550	RET