Knight Lore: Routine at BF91

BF91: Show one carried object and colour it

Used by the routine at display_object.
show_carried_slot	BF91	LD C,(IX+$1A)	copy the 3 x 24 box from the buffer to the screen
	BF94	LD B,(IX+$1B)
	BF97	CALL calc_vram_addr
	BF9A	CALL calc_vidbuf_addr
	BF9D	LD L,C
	BF9E	LD H,B
	BF9F	LD BC,$1803
	BFA2	CALL blit_to_screen
	BFA5	POP HL
	BFA6	POP BC
	BFA7	PUSH BC
	BFA8	PUSH HL
	BFA9	LD A,(HL)	the colour for this type, from the table at object_attributes
	BFAA	AND $0F
	BFAC	LD E,A
	BFAD	LD D,$00
	BFAF	LD HL,object_attributes
	BFB2	ADD HL,DE
	BFB3	LD C,(HL)
	BFB4	LD L,(IX+$1A)	3 x 3 attribute cells, from the top of the box
	BFB7	LD A,(IX+$1B)
	BFBA	ADD A,$17
	BFBC	LD H,A
	BFBD	CALL calc_attrib_addr
	BFC0	EX DE,HL
	BFC1	LD A,C
	BFC2	LD BC,$0303
	BFC5	CALL fill_window
	BFC8	POP HL
	BFC9	POP BC
	BFCA	INC HL	next 4-byte slot
	BFCB	INC HL
	BFCC	INC HL
	BFCD	INC HL
	BFCE	DJNZ display_object
	BFD0	POP IX
	BFD2	RET